Alligatorkr | Дата: Воскресенье, 04.09.2011, 12:24 | Сообщение # 1 |
Сержант
Группа: Администраторы
Сообщений: 21
Статус: Offline
| Перекидывает с одного место в другое однотипные предметы. Ничего указывать не нужно в скрипте, при запуске скрипта указываем таргетом на то, ОТКУДА будем брать, КУДА будем кидать и ЧТО будем кидать.
sub pereklad() #****ДРВ*****# # © 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
|
|
| |