Пятница, 29.03.2024, 11:42Главная | Регистрация | Вход

Меню сайта

Ссылки

Наш опрос

Как Вам наш гильдийный цвет?
Всего ответов: 74
Перекидывать с сундука в сундук - Форум
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Скрипты » Скрипты » Перекидывать с сундука в сундук (Работает с однотипными предметами)
Перекидывать с сундука в сундук
AlligatorkrДата: Воскресенье, 04.09.2011, 12:24 | Сообщение # 1
Сержант
Группа: Администраторы
Сообщений: 21
Репутация: 0
Статус: 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
 
Форум » Скрипты » Скрипты » Перекидывать с сундука в сундук (Работает с однотипными предметами)
  • Страница 1 из 1
  • 1
Поиск:

Copyright Reflection © 2024 | Конструктор сайтов - uCoz