Yoko

Code: Select all

sub Blacksmithing() 
var Exit=0, LastTimer 
while Exit<>1 
uo.DeleteJournal() 
LastTimer=uo.Timer() 

UO.AutoMenu('Blacksmithing','(last)') 
UO.AutoMenu('Weapons','(last)') 
UO.AutoMenu('Maces & Hammers','(last)')

uo.UseType('0x1BEF') 
  
while not uo.InJournal('You put') and not uo.InJournal('You have failed') 
wait(500) 
wend 

if uo.InJournal('You have failed') then 
repeat 
wait(100) 
until uo.Timer()>=LastTimer+100 
end if 

uo.FindType('0x0F5C',-1,'backpack') 
wait(2500) 

if uo.GetQuantity('finditem') then 
uo.WaitTargetObject('finditem') 
uo.UseObject('0x400546E5') ; Форж 
end if 

uo.FindType('0x1BEF',-1,'backpack') 
if uo.GetQuantity('finditem')<20 then 
uo.FindType('0x1BEF','0x0000','0x40481292') ;Cундук с ингами 
wait(1000) 
uo.Grab('1000','finditem') 
Endif 
wait(1000) 
wend    
end sub