Ultima Online Antares

sub Cook()
    
    var havka = '0x097A'; тип еды, которую будем жарить
    var printcolour = '1069'
    
    uo.charprint(printcolour, 'Выбери жаровню, на которой будешь жарить' )
    uo.exec('addobject Forge')
    while uo.targeting()
        wait(100)
    wend
    repeat
        UO.DeleteJournal()
        UO.FindType(havka,'0x0000','my')
        if UO.FindCount() > 0 then
            UO.WaitTargetObject('Forge')
            UO.UseObject('finditem')
            repeat
                wait (100)
            until UO.InJournal("You burn")  or UO.InJournal("You put")
        else
            uo.charprint(printcolour, 'Сырье закончилось' )
            return
        end if
    Until UO.Dead()
end sub