Зациклить фишинг

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
some
Posts: 197
Joined: 2007-05-23 19:51:18

Зациклить фишинг

Post by some »

всем привет, помогите зациклить скрипт ( чтобы постоянно висел запущенным )
сейчас он облавливает все и останавливается.
что сделал я : добавил repeat в начало скрипта, но это не помогло.


Code: Select all

sub fishing()
var mx, my, mz, i, j
repeat
uo.print('Ведро для рыбы где ?')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend

UO.Say (',set finddistance 4')

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


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")
wait (100)
if UO.InJournal("You pull") then
UO.SetReceivingContainer('Bag')
UO.findtype('0x09CF','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CD','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CE','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CC','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x14EB','0x0000','ground') ;tattered map
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish
UO.grab ('1','finditem')
wait (200)
UO.UnSetReceivingContainer()
end if
wend
wend
UO.DeleteJournal()
next
next
end sub
Top
Incorrect User
Posts: 949
Joined: 2011-05-23 00:33:30

Re: Зациклить фишинг

Post by Incorrect User »

добавил repeat в начало скрипта, но это не помогло.

ну у команды репит должно быть окончание until и условие а вообще сделай в начале скрипта, где нужно while not uo.dead и в конце закрой
Top
some
Posts: 197
Joined: 2007-05-23 19:51:18

Re: Зациклить фишинг

Post by some »

Code: Select all

sub fishing()
var mx, my, mz, i, j
while not uo.dead
uo.print('Ведро для рыбы где ?')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend

UO.Say (',set finddistance 4')

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


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")
wait (100)
if UO.InJournal("You pull") then
UO.SetReceivingContainer('Bag')
UO.findtype('0x09CF','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CD','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CE','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CC','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x14EB','0x0000','ground') ;tattered map
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish
UO.grab ('1','finditem')
wait (200)
UO.UnSetReceivingContainer()
end if
wend
wend
UO.DeleteJournal()
next
next
end while
end sub

так ?
Top
Incorrect User
Posts: 949
Joined: 2011-05-23 00:33:30

Re: Зациклить фишинг

Post by Incorrect User »

end while это в уо пилоте а в инжекте wend
Top
Incorrect User
Posts: 949
Joined: 2011-05-23 00:33:30

Re: Зациклить фишинг

Post by Incorrect User »

Только не понятно зачем зацикливать, раз чар выловил все значит уже на этом месте ловить нечего а ходилки в скрипте нету, по этому и не случайно он выключаеться.
Top
ZeroDX
Posts: 718
Joined: 2006-12-08 10:51:50
Location: Москва
Contact:
Contact ZeroDX

Re: Зациклить фишинг

Post by ZeroDX »

while нужно ставить перед первым for
Top
some
Posts: 197
Joined: 2007-05-23 19:51:18

Re: Зациклить фишинг

Post by some »

ZeroDX wrote:while нужно ставить перед первым for


Code: Select all

UO.DeleteJournal()
while not uo.dead - сюда ? 
for i = mx-4 to mx+4
for j = my -4 to my+4
if UO.dead() then
Top
ZeroDX
Posts: 718
Joined: 2006-12-08 10:51:50
Location: Москва
Contact:
Contact ZeroDX

Re: Зациклить фишинг

Post by ZeroDX »

ага, но только если ты не будешь двигать чара, если будешь, то надо переписывать waittargettile
Top
Incorrect User
Posts: 949
Joined: 2011-05-23 00:33:30

Re: Зациклить фишинг

Post by Incorrect User »

Code: Select all

sub fishing()
while not uo.dead
var mx, my, mz, i, j
Top
ZeroDX
Posts: 718
Joined: 2006-12-08 10:51:50
Location: Москва
Contact:
Contact ZeroDX

Re: Зациклить фишинг

Post by ZeroDX »

не уверен, что постоянно объявлять переменные - хорошая идея.
Top
Post Reply

Return to “I need script!”