Yoko

Code: Select all

sub CarpentBETEP() 
VAR Exit=0, LastTimer, TryToPoison 
uo.print('Noiaoe ') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
uo.print('Iiiieea ') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal() 
UO.FindType('0x0E34','0x0000','backpack'); 
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2'); 
wait(1000) 
UO.Grab('all','finditem') 
wait(1000) 
UO.UnSetReceivingContainer() 
Endif 
UO.FindType('0x1BDD',-1,'backpack') ; 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BDD','0x0000','Bag') ; 
wait(1000) 
UO.Grab('100','finditem') ; 
wait(1000) 
Endif 
LastTimer=UO.Timer() 
CheckLag() 
UO.DeleteJournal() 
UO.UseType('0x1034') 
UO.WaitMenu ('Carpentry','Miscellaneous','Miscellaneous','Paper')  ; 
wait(5000) 
wend    
end sub 


sub CheckLag() 
IF UO.Waiting() > 0 THEN 
UO.Exec("canceltarget") 
END IF 
UO.DeleteJournal() 
UO.Click('backpack') 
REPEAT 
WAIT(50) 
UNTIL UO.InJournal('backpack') 
end sub