Yoko

Posted: **2011-09-25 12:40:34**

Скрипт на фишинг. Взятый с этого форума (чуток отредактированный). Работает нормально, но у меня на сервере стоит антимакрос система. она вылезает когда закидываешь удочку (таргет наводишь на воду). и когда она вылезает, рыбак перестает рыбачить. и стоит. обход АМ я нашел, но рыбак после обхода стоит. он же ждет пока в журнале будет while not uo.injournal("you pull") и тд, а там в журнале пишет инжа, и он на этот текст не реагирует.

как вставить таймер, чтобы по истечению например секунд 5 после закидывания удочки (безрезультатно) он заново её закидывал?

Code: Select all

sub fishing()
var mx, my, mz, i, j


mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-6 to mx+6
for j = my -6 to my+6
if UO.dead() then
return
endif
UO.Warmode("0")



UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF") ;FishingPole
if UO.dead() then
return
endif
if UO.Weight>660 then
return
endif
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") and not UO.InJournal("Number")
wait (100)

wend
wend
UO.DeleteJournal()
next
next
uo.sayu ('Forward')
wait(10000)
uo.sayu ('Stop')
grab()
fishing()
end sub

Posted: **2011-11-22 01:23:49**

Code: Select all

sub fishing()
var mx, my, mz, i, j, time


mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-6 to mx+6
for j = my -6 to my+6
if UO.dead() then
return
endif
UO.Warmode("0")



UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF") ;FishingPole
time = UO.Timer()
if UO.dead() then
return
endif
if UO.Weight>660 then
return
endif
while time + 100 < UO.Timer() and 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") and not UO.InJournal("Number")
wait (100)

wend
wend
UO.DeleteJournal()
next
next
uo.sayu ('Forward')
wait(10000)
uo.sayu ('Stop')
grab()
fishing()
end sub

Yoko

помогите вставить таймер. скрипт на фишинг

помогите вставить таймер. скрипт на фишинг

Re: помогите вставить таймер. скрипт на фишинг