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

Зациклить фишинг
http://forum.yoko.com.ua/viewtopic.php?f=17&t=16678
Page 1 of 1

Author:  some [ 2011-06-18 17:27:09 ]
Post subject:  Зациклить фишинг

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


Code:
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

Author:  Incorrect User [ 2011-06-18 17:34:08 ]
Post subject:  Re: Зациклить фишинг

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

ну у команды репит должно быть окончание until и условие а вообще сделай в начале скрипта, где нужно while not uo.dead и в конце закрой

Author:  some [ 2011-06-18 17:39:32 ]
Post subject:  Re: Зациклить фишинг

Code:
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

так ?

Author:  Incorrect User [ 2011-06-18 17:41:23 ]
Post subject:  Re: Зациклить фишинг

end while это в уо пилоте а в инжекте wend

Author:  Incorrect User [ 2011-06-18 17:59:53 ]
Post subject:  Re: Зациклить фишинг

Только не понятно зачем зацикливать, раз чар выловил все значит уже на этом месте ловить нечего а ходилки в скрипте нету, по этому и не случайно он выключаеться.

Author:  ZeroDX [ 2011-06-19 07:42:46 ]
Post subject:  Re: Зациклить фишинг

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

Author:  some [ 2011-06-19 11:18:13 ]
Post subject:  Re: Зациклить фишинг

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


Code:
UO.DeleteJournal()
while not uo.dead - сюда ?
for i = mx-4 to mx+4
for j = my -4 to my+4
if UO.dead() then

Author:  ZeroDX [ 2011-06-19 11:21:16 ]
Post subject:  Re: Зациклить фишинг

ага, но только если ты не будешь двигать чара, если будешь, то надо переписывать waittargettile

Author:  Incorrect User [ 2011-06-19 11:21:44 ]
Post subject:  Re: Зациклить фишинг

Code:
sub fishing()
while not uo.dead
var mx, my, mz, i, j

Author:  ZeroDX [ 2011-06-19 12:48:42 ]
Post subject:  Re: Зациклить фишинг

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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/