Ultima Online Antares

sub pereklad()
    VAR COL = 150; количество
    VAR Type, Colour,priem,istok
    UO.Print('Выбери ИСТОЧНИК')
    UO.Exec('addobject istok')
    while UO.Targeting()
        wait(100)
    wend
    UO.Print('Выбери ПРИЕМНИК')
    UO.Exec('addobject priem')
    while UO.Targeting()
        wait(100)
    wend
    UO.UseObject('priem')
    wait(100)
    UO.UseObject('istok')
    wait(100)
    UO.Print('Выбери ТОВАР')
    UO.Exec('addobject tovar')
    while UO.Targeting()
        wait(100)
    wend
    Type = UO.GetGraphic('tovar')
    Colour= uo.getColor( 'tovar' )
    UO.FindType(Type,Colour,'istok')
    If UO.FindCount() > 0 then
        repeat
            UO.FindType(Type,Colour,'priem')
            If UO.FindCount() >= COL then
                return
            endif
            UO.FindType(Type,Colour,'istok')
            UO.MoveItem('finditem', Colour, 'priem')
            wait(100)
            UO.FindType(Type,Colour,'istok')
        until not UO.FindCount()
        UO.Print('Закончили...')
    endif
end sub