fishing

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Louis
Posts: 7
Joined: 2004-07-16 08:50:35

fishing

Post by Louis »

вот скрипт на фишинг которым я пользуюсь. работал долгое время, а вчера вдруг перестал. КОнкретней - когда чар вылавливает вокруг себя все и получает запись "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
Post Reply