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

Проблема с фишингом
http://forum.yoko.com.ua/viewtopic.php?f=17&t=15213		 Page 1 of 1
Author:  exet [ 2009-10-25 14:42:05 ]
Post subject:  Проблема с фишингом
Code:
sub fishing()
var plav = 16
var l
var m
var k
dim xx[10] 
xx[0] = -5
xx[1] = -4
xx[2] = -3
xx[3] = -2
xx[4] = -1
xx[5] = 0
xx[6] = 1
xx[7] = 2
xx[8] = 3
xx[9] = 4
xx[10] = 5

dim yy[7] 
yy[0] = -6
yy[1] = -5
yy[2] = -4
yy[3] = -3
yy[4] = 3
yy[5] = 4
yy[6] = 5
yy[7] = 6

while True
for l = 0 to 10
for m = 0 to 7
if uo.GetGlobal("fish")=='yes' then
if uo.weight > 400 then
dobor()
End If
k=0
uo.deletejournal()
UO.WaitTargetTile(0,str(uo.GetX()+xx[l]),str(uo.GetY()+yy[m]),str(uo.GetZ()))
uo.usetype("0x0DBF")
while not (uo.injournal("You pull out a fish!") or uo.injournal("You stop fishing.") or uo.injournal("You fail to catch anything.") or uo.injournal("There are no fish here.") or uo.injournal("You put") or uo.injournal("You pull") or uo.injournal("Fishing has") or uo.injournal("That is too") or uo.injournal("Try fishing") or uo.injournal("Unexpected target info")) or k > 40000
wait(500)
k=k+500
wend
next
wait(50)
next
wait(50)
if plav < 5 then
plav = plav + 1
uo.msg("forward")
uo.print(str(plav))
wait(10000)
uo.msg("stop")
end if
if plav >= 5 and plav < 10 then
plav = plav + 1
uo.msg("Right")
uo.print(str(plav))
wait(10000)
uo.msg("stop")
end if
if plav >= 10 and plav < 15 then
plav = plav + 1
uo.msg("Back")
uo.print(str(plav))
wait(10000)
uo.msg("stop")
end if
if plav >= 15 and plav < 20 then
plav = plav + 1
uo.msg("left")
uo.print(str(plav))
wait(10000)
uo.msg("stop")
end if
if plav == 20 then
plav = 0
uo.print(plav)
end if
wait(50)
end if
wait(50)
wend
wait(50)
end sub



Вот Кусок моего скрипта на фишинг.Работает отлично, плавает по квадрату, Но иногда возникает проблема: Чар просто перестает ловить и стоит, в чем проблема я не знаю, Даже если вручную ему помочь и один раз выловить рыбу, то цикл дальше не идет, значит проблема не с журналом. Помогите, пожалуйста =(
Author:  Mirage [ 2009-10-25 18:30:11 ]
Post subject: 
if uo.GetGlobal("fish")=='yes' then вот эта хрень тут зачем? О_о
Пропусти через табулятор Дестракшена - у тебя структура не верна в циклах. Увидишь ошибки сразу.
Code:
for
If 
next
endif...
Author:  exet [ 2009-10-25 20:30:06 ]
Post subject: 
Mirage wrote:
if uo.GetGlobal("fish")=='yes' then вот эта хрень тут зачем? О_о
Пропусти через табулятор Дестракшена - у тебя структура не верна в циклах. Увидишь ошибки сразу.
Code:
for
If 
next
endif...


Глобал, для того, чтобы если выловил моба, процесс отвечающий за убийство моба ставит значение NO, и скрипт на паузе, соотв как убил моба ставит переменную YES
Author:  exet [ 2009-10-25 20:34:42 ]
Post subject: 
Code:
sub fishing()
   var plav = 16
   var l
   var m
   var k
   dim xx[10]
   xx[0] = -5
   xx[1] = -4
   xx[2] = -3
   xx[3] = -2
   xx[4] = -1
   xx[5] = 0
   xx[6] = 1
   xx[7] = 2
   xx[8] = 3
   xx[9] = 4
   xx[10] = 5
   dim yy[7]
   yy[0] = -6
   yy[1] = -5
   yy[2] = -4
   yy[3] = -3
   yy[4] = 3
   yy[5] = 4
   yy[6] = 5
   yy[7] = 6
   while True
      for l = 0 to 10
         for m = 0 to 7
            if uo.GetGlobal("fish")=='yes' then
               if uo.weight > 400 then
                  dobor()
               End If
               k=0
               uo.deletejournal()
               UO.WaitTargetTile(0,str(uo.GetX()+xx[l]),str(uo.GetY()+yy[m]),str(uo.GetZ()))
               uo.usetype("0x0DBF")
               while not (uo.injournal("You pull out a fish!") or uo.injournal("You stop fishing.") or uo.injournal("You fail to catch anything.") or uo.injournal("There are no fish here.") or uo.injournal("You put") or uo.injournal("You pull") or uo.injournal("Fishing has") or uo.injournal("That is too") or uo.injournal("Try fishing") or uo.injournal("Unexpected target info")) or k > 40000
                  wait(500)
                  k=k+500
               wend
            end if
         next
         wait(50)
      next
      wait(50)
      if plav < 5 then
         plav = plav + 1
         uo.msg("forward")
         uo.print(str(plav))
         wait(10000)
         uo.msg("stop")
      end if
      if plav >= 5 and plav < 10 then
         plav = plav + 1
         uo.msg("Right")
         uo.print(str(plav))
         wait(10000)
         uo.msg("stop")
      end if
      if plav >= 10 and plav < 15 then
         plav = plav + 1
         uo.msg("Back")
         uo.print(str(plav))
         wait(10000)
         uo.msg("stop")
      end if
      if plav >= 15 and plav < 20 then
         plav = plav + 1
         uo.msg("left")
         uo.print(str(plav))
         wait(10000)
         uo.msg("stop")
      end if
      if plav == 20 then
         plav = 0
         uo.msg("left")
         uo.print(str(plav))
         wait(10000)
         uo.msg("stop")
      end if
      wait(50)
   wend
   wait(50)
end sub


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