Скрипт на фиш работает но не ловит рыбу
Posted: 2007-06-28 18:02:00
Не хочет ловить рыбу что нада исправить ?там чето он отшитывает но не ловит
Code: Select all
sub fishing_2()
var x, y, z, i, j
x = UO.GetX("self")
y = UO.GetY("self")
z = UO.GetZ("self")
for i = x-140 to x+140
for j = y-150 to y+150
UO.DeleteJournal()
while not UO.InJournal("You catch a nice fish!") and not UO.InJournal("Voce nao consegue ver este local!") and not UO.InJournal("You can't fish there!") and not UO.InJournal("Voce nao pode pescar ai!")
UO.DeleteJournal()
UO.Print("Now Fishing In: "+str(x-i)+" "+str(y-j))
UO.Waittargettile("1341", str(x-i), str(y-j), str(z))
UO.Usetype("0x0DBF")
while not UO.InJournal("You catch a nice fish!") and not UO.InJournal("Voce nao consegue ver este local!") and not UO.InJournal("You can't fish there!") and not UO.InJournal("Voce nao pode pescar ai!")
wait (500)
wend
wend
next
next
end sub