Yoko
http://forum.yoko.com.ua/

fishing
http://forum.yoko.com.ua/viewtopic.php?f=3&t=2280		 Page 1 of 1
Author:  Louis [ 2004-12-18 13:49:38 ]
Post subject:  fishing
вот скрипт на фишинг которым я пользуюсь. работал долгое время, а вчера вдруг перестал. КОнкретней - когда чар вылавливает вокруг себя все и получает запись "vse vilovleno", вместо того чтобы плыть дальше, он стоит на том же месте. В журнале есть только запись "What water do you want to fish in?", прицел на воду не юзается.
Если перезайти УО, то первый заход после запуска скрипта он работает, но как только надо переплывать в др.место, перестает.
Чего стряслось?

sub Fishtest()
VAR f=1, LastTimer
DIM X[12]
DIM Y[12]
X[1]=295
Y[1]=332
X[2]=252
Y[2]=285
X[3]=390
Y[3]=228
X[4]=341
Y[4]=199
X[5]=448
Y[5]=176
X[6]=407
Y[6]=134
X[7]=405
Y[7]=399
X[8]=474
Y[8]=330
X[9]=538
Y[9]=263
X[10]=582
Y[10]=311
X[11]=515
Y[11]=375
X[12]=450
Y[12]=445
start:
UO.Exec("setcatchbag box")
for f=1 to 12
UO.DeleteJournal()
repeat
# UO.Press(119) ; F8 - Allnames
UO.Exec("useobject pole")
wait(500)
UO.LClick(X[f],Y[f])
wait(4900)


until UO.InJournal("0xAD84") or UO.InJournal('0xA4F0')
UO.DeleteJournal()
UO.Print("Vse vilovleno")
next
movef()
goto start
end sub

sub movef()
UO.Say("Forward")
wait(3000)
if UO.InJournal("0xA6B0") then
UO.Say("Backward")
wait(900)
UO.Say("One left")
wait(1000)
UO.Say("One left")
wait(1000)
UO.Say("One left")
wait(1000)
UO.Say("One left")
wait(1000)
endif
UO.Say("Forward")
wait(500)
UO.Say("Forward")
wait(3500)
UO.Say("Stop")
UO.DeleteJournal()
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/