Yoko
http://forum.yoko.com.ua/

Извращенная версия алхимии от ветерана.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=5604		 Page 1 of 1
Author:  Dron D. [ 2006-02-09 17:23:34 ]
Post subject:  Извращенная версия алхимии от ветерана.
Решил прокачать алхимию себе на оскоме, взял скрипт ветерана, пытался переделать, но нечего не вышло.
Работа:
Code:
1. Взять 150 регов - '0x0F7A'  из сунудка
2. Взять 50 бутлей - '0x0F0E'  из сундука
3. Сундук - '0x402E63D3'
4. Если бутлей меньше 1, брать еще 50 из сундука.
5. Если рега меньше 20, брать еще 150 из сундука.
6. Если бутлей готовой продукции больше 60, перекидываем их в суднук.

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

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

Вот сам переделанный мною скрипт. СКрипт начинается и тут же завершается, без всякого еффекта.
Code:
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


Заранее спасибо.
Author:  Grin [ 2006-02-09 17:33:14 ]
Post subject: 
гыгыгы
Code:
while uo.dead() 
;completed bottles moved to pack 
   UO.DeleteJournal()

Ты мертв?;) НЕТ!;) по этому вайл и завершается!
Author:  Dron D. [ 2006-02-09 17:42:44 ]
Post subject: 
О боже! :D
А ты уверен, что на етом месте проблемы кончаются? Мне кажется что я там столько всего накромсал... :lol:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/