Auto target cancelled
No item found
Где тут ошибка?
Code: Select all
sub bonsay()
DIM DEREVO[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
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.UseObject(DEREVO[i])
repeat
wait(200)
until UO.InJournal("Try to look after your bonsay better")
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")
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
wait(20000)
until UO.Dead()
endsub