Yoko

sub fishing123232()
var mx, my, mz, i, j , N,counter=0
DIM foods[7]
foods[0]='0x09CC'
foods[1]='0x09CD'
foods[2]='0x09CF'
foods[3]='0x09CE'
foods[4]='0x14EB'
foods[5]='0x0DD6'
foods[6]='0x0DD6'
var t, maxtime=1000
uo.print('Where is a Bag?')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend

UO.DeleteJournal()
while not uo.dead()

mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
uo.print('Наши координаты X='+str(mx)+'  Y='+str(my)+'  Z='+str(mz))
counter=counter+1
  for i = mx-4 to mx+4
  for j = my-4 to my+4
    if UO.dead() then
      return
    endif
    while not UO.Hidden()
      UO.Warmode("0")
      uo.print("hiding...")
      UO.UseSkill("Hiding")
      wait(4000)
    wend
    t=uo.timer()
    UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
    while not UO.InJournal("Вы выловили fish!|Тут не рыбное |in water|выловили|Слишком далеко.|Sea Serpent|Рыба живет") AND NOT ((t + maxtime) < UO.Timer())
      wait (200)
      UO.DeleteJournal()
      UO.Waittargettile("1341", str(i), str(j), str(mz))
      UO.Usetype("0x0DBF") ;FishingPole
      while not UO.InJournal("Вы выловили fish!|Вы потратили довольно много|Рыба живет|выловили|Тут не рыбное |in water|Слишком далеко.|Sea Serpent")
        wait (200)
      wend 
       
      if UO.dead() then
        return
      endif

      For N=0 to 6
        uo.findtype(foods[N],'-1','ground')
        uo.moveitem('finditem',0,'Bag')
      NEXT
    wend
    UO.DeleteJournal()
  next
  next
 
uo.say("Forward")
uo.print('going forward')
wait(7000)
uo.say("Stop")

if counter==8 then
  uo.msg('turn left')
  wait(200)
  uo.msg('turn left')
  uo.print('turning')
  counter=0
  uo.say("Forward")
  wait(500)
  uo.say("Forward")
  wait(7000)
  uo.say("Stop")
  endif 
wend

end sub

    while not UO.InJournal("Вы выловили fish!|Тут не рыбное |in water|выловили|Слишком далеко.|Sea Serpent|Рыба живет") AND NOT ((t + maxtime) < UO.Timer())
      wait (200)
      UO.DeleteJournal()
      UO.Waittargettile("1341", str(i), str(j), str(mz))
      UO.Usetype("0x0DBF") ;FishingPole
      while not UO.InJournal("Вы выловили fish!|Вы потратили довольно много|Рыба живет|выловили|Тут не рыбное |in water|Слишком далеко.|Sea Serpent")

while not UO.InJournal("You pull out|You can't see|You can't fish under the ship|You are too far away|You fish a while, but fail to catch anything|Try fishing in water") AND NOT ((t + maxtime) < UO.Timer())
      wait (200)
      UO.DeleteJournal()
      UO.Waittargettile("1341", str(i), str(j), str(mz))
      UO.Usetype("0x0DBF") ;FishingPole
while not UO.InJournal("You pull out|You can't see|You can't fish under the ship|You are too far away|You fish a while, but fail to catch anything|Try fishing in water")