sub pereklad() #****ДРВ*****# # (C) Cooper #****v1.0****# VAR Ttov
UO.Print('Выбери ИСТОЧНИК') UO.Exec('addobject istok') while UO.Targeting() wait(100) wend UO.UseObject('istok')
UO.Print('Выбери ПРИЕМНИК') UO.Exec('addobject priem') while UO.Targeting() wait(100) wend
UO.Print('Выбери ТОВАР') UO.Exec('addobject tovar') while UO.Targeting() wait(100) wend
TTov = UO.GetGraphic('tovar') UO.FindType(Ttov,'-1','istok') If UO.FindCount() > 0 then repeat UO.MoveItem('finditem', '0', 'priem') wait(700) UO.FindType(Ttov,'-1','istok') until not UO.FindCount() UO.Print('Закончили...') else UO.Print('А кидать то нечего...') endif end sub
