Ultima Online Antares

sub main()
uo.print('Âûáåðè ìîëîòîê!')
uo.exec('addobject hummer')
while uo.targeting()
wait(100)
wend
VAR Exit=0, LastTimer, ingots='0x1BEF'
UO.AutoMenu('Blacksmithing','Weapon');
UO.AutoMenu('Weapon','Macefighting');
UO.AutoMenu('Macefighting','Mace'); Äåëàåì äàããåðû
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
uo.waittargettype(ingots)
UO.UseObject('hummer')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(100)
wend
If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
EndIf
wend
end sub