Извращенная версия алхимии от ветерана.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Dron D.
Posts: 190
Joined: 2004-12-13 01:27:00

Извращенная версия алхимии от ветерана.

Post by Dron D. »

Решил прокачать алхимию себе на оскоме, взял скрипт ветерана, пытался переделать, но нечего не вышло.
Работа:

Code: Select all

1. Взять 150 регов - '0x0F7A'  из сунудка
2. Взять 50 бутлей - '0x0F0E'  из сундука
3. Сундук - '0x402E63D3'
4. Если бутлей меньше 1, брать еще 50 из сундука.
5. Если рега меньше 20, брать еще 150 из сундука.
6. Если бутлей готовой продукции больше 60, перекидываем их в суднук.

Особенность: бутылки не складываются в кучку.

**оригинал скрипта**

Вот сам переделанный мною скрипт. СКрипт начинается и тут же завершается, без всякого еффекта.

Code: Select all

sub alchemytrain() 
VAR Exit=0, LastTimer
var reg='0x0F7A'
var chest='0x402E63D3'

while uo.dead()
;completed bottles moved to pack
   UO.DeleteJournal()
   UO.FindType('0x0F0B','0x0000','backpack')
         while uo.findcount()>10
           checklag()
           uo.moveitem('finditem','all',chest)
           wait(500)
           uo.findtype('0x0F0B','0x0000','backpack')
         wend
   wait(1000)
;empty bottles grab
   UO.FindType('0x0F0B',-1,'backpack')
   If UO.GetQuantity('finditem')<10 then
      UO.FindType('0x0F0B','0x0000',chest)
      wait(1000)
      UO.Grab('100','finditem')
      wait(1000)
   Endif
;regs grab
   UO.FindType(reg,'0x0000','backpack')
   If UO.GetQuantity('finditem')<20 then
      UO.FindType(reg,'0x0000','Bag')
      wait(1000)
      UO.Grab('250','finditem')
      wait(1000)
   Endif

   LastTimer=UO.Timer()
   UO.DeleteJournal()
;toss
   UO.UseType('0x0F7A')
   UO.WaitMenu('What','Total Refresh')       
   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
   wait(500)
   wend
   If UO.InJournal("You toss the failed") then
      repeat
      wait(100)
      until UO.Timer()>=LastTimer+100
       Else
   EndIf
wend   
end sub


Заранее спасибо.
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

гыгыгы

Code: Select all

while uo.dead() 
;completed bottles moved to pack
   UO.DeleteJournal()

Ты мертв?;) НЕТ!;) по этому вайл и завершается!
Dron D.
Posts: 190
Joined: 2004-12-13 01:27:00

Post by Dron D. »

О боже! :D
А ты уверен, что на етом месте проблемы кончаются? Мне кажется что я там столько всего накромсал... :lol:
Post Reply