Попробуй этот вариант.
Если не покатит, то попробую еще разок исправить, если опишишь где происходят сбои, так как сам понимаешь пишу в слепую.
Кстати, для большой плантации может понадобиться хождение от дерева к дереву, добор удобрения и т.д. и т.п. Но это уже не ко мне.
Code: sub bonsay()
DIM DEREVO[2] # Объявляем массив с деревьями, сейчас их 2.
DEREVO[0] = '0x4025A750' # Каждому элементу массива
DEREVO[1] = '0x4016EB3B' # присваиваем значения.
VAR poilka = '0x4003D00E'
VAR Fertile_Dirt = '0x0F81' # Плодородная грязь.
VAR Flask = '0x182A' # Фляга с водой.
VAR Flask_empty = '0x182D' # Пустая фляга.
VAR i
repeat
for i = 0 to 1 # Цикл на два дерева, если будет три дерева, то 1 исправить на 2, и т.д.
UO.FindType(Flask) # Ищим флягу с водой.
if UO.FindCount() == 0 then # Если не нашли флягу с водой, то будем искать пустую флягу.
UO.FindType(Flask_empty) # Ищим пустую флягу с водой в бэкпаке.
if UO.FindCount() > 0 then # Если нашли пустую флягу, то наполним ее водой.
UO.WaitTargetObject(poilka) # Ставим ловушку на поилку.
UO.UseObject('fainditem') # Двойной щелчок по фляге, после чего сработает ловушка и фляга будет наполнена.
else
UO.Print("У тебя нет бутылок для воды.")
UO.Print("Скрипт выключен.")
return
endif
UO.FindType(Flask)
endif
UO.FindType(Fertile_Dirt) # Ищим удобрение в бэкпаке.
if UO.FindCount() == 0 then # Если не нашли, то выход из скрипта,
UO.Print("У тебя нет удобрения.") # или организовать добор.
UO.Print("Скрипт выключен.")
return
endif
UO.DeleteJournal()
UO.Click(DEREVO[i]) # Кликаем по дереву один раз или
UO.UseObject(DEREVO[i]) # два раза. Оставь что-то одно, а можешь и все.
repeat # Ждем сообщение от дерева, что "Попытка позаботиться о дереве удалась".
wait(200) # наверное есть и сообщение о не удачной попытке, тогда надо делать что-то еще.
until UO.InJournal("Try to look after your bonsay better") #or UO.InJournal("вставь сам сообщение о неудачной попытке и убери знак комментария перед OR")
#wait(3000) # Если после сообщения нужна пауза, то раскомментируй.
if UO.InJournal("Try to look after your bonsay better") then # Если попытка позаботиться удалась, то будем поливать и удобрять.
UO.DeleteJournal()
UO.WaitTargetObject(DEREVO[i]) # Ставим ловушку на дерево.
UO.UseType(Flask) # Поливаем.
repeat # Ждем сообщения что дерево полито, или оно не нуждается в поливке.
wait(200)
until UO.InJournal("Your bonsay looks") or UO.InJournal("There is no need to use")
#wait(3000) # Если после сообщения нужна пауза, то раскомментируй.
UO.DeleteJournal()
UO.WaitTargetObject(DEREVO[i]) # Ставим ловушку на дерево.
UO.UseType(Fertile_Dirt) # Удобряем.
repeat # Ждем сообщения что дерево удобрено, или оно не нуждается в удобрении.
wait(200)
until UO.InJournal("Your bonsay looks") or UO.InJournal("There is no need to use")
endif
# Полили, удобрили. Переходим к следующему дереву.
next
# Наверное деревья не требуют ухода через каждых 6 секунд.
# Поэтому можно поставить паузу до начала следующего цикла ухода, например:
wait(20000) # Ждем 20 секунд.
until UO.Dead()
endsub
|
