Ultima Online Antares

sub tinker()
VAR ingder = '0x1BEF'; тип ингов

VAR Res = '0x1055'; производимый ресурс hinges

VAR k = 0, MaxVes =620
repeat
While TRUE
While UO.Count( ingder ) > 2 ; Пока в паке есть инги
UO.DeleteJournal()

UO.WaitMenu ('Tinkering', 'Parts', 'Parts', 'hinge')
UO.UseType(Instrum)
k = 0
while NOT UO.InJournal('put') AND NOT UO.InJournal('Tinkering failed'); AND ( k < 6 )
k = k + 1
UO.Print('Сделано ' + Str( UO.Count( Res )))
wait(2000)
wend
Wend
Wend
until UO.Dead()
end sub