gorohuo

sub BS-PEREPLAV() 



VAR Exit=0, LastTimer 

while Exit<>1 

UO.DeleteJournal() 

LastTimer=UO.Timer() 

UO.WaitMenu('Blacksmithing','Weapons','dagger');Что куем 

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;Время создания дагера 

EndIf 



UO.FindType('0x0F51',-1,'backpack') 

wait(500) 



If UO.GetQuantity('finditem') then 

UO.WaitTargetObject('finditem') 

UO.UseObject(0x4000141F); Форж 

Endif 







UO.FindType('0x1BEF',-1,'backpack') 

If UO.GetQuantity('finditem')<10 then 

UO.FindType('0x0E76','0x0000','0x4001FA8D');Cундук с ингами 

wait(1000) 

UO.Grab('1000','finditem') 

Endif 

wait(1000) 

wend 

end sub

Видимо 60 секунд истекло... За которые надо ввести код.