Yoko

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 

Code: Select all

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