Page 1 of 1

фишинг помогите потпраивить чучуть

Posted: 2006-04-23 01:31:28
by megafakel

Code: Select all

sub main() 
uo.deletejournal()
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
for i = mx+2 to mx+6
for j = my-3 to my+3
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF")
uo.deletejournal()
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water")
wait(500)
wend
next
next
uo.say("back")
wait(10000)
uo.say("stop")
uo.exec("exec main")
end sub


Вот скрипт ... помогите плз чтобы он доплывая до берега сразу делал логаут ... Плз зделайте умоляю васс...

Destruction: ЧИТАЙ ПРАВИЛА !!!

Posted: 2006-04-23 08:13:11
by Edred
Для этого нужно знать сообщение, которое выдает твой шард при попытке ловить на суше. Или если корабль уперся в сушу.

Телепаты в отпуске.