sub fishing()
var mx, my, mz, i, j
uo.print('Where is The box ?')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend

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

while not UO.Hidden() 
UO.Warmode("0") 
uo.print("hiding...") 
UO.Cast("Invisibility") 
wait(5000) 
UO.Cast("Magic Reflection")
wait(5000)
wend
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('0x09CC','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (100)
UO.findtype('0x09CD','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (100)
UO.findtype('0x09CE','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (100)
UO.findtype('0x09CF','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (100)
UO.findtype('0x14EB','0x09B1','ground') ;tattered map
UO.grab ('1','finditem')
wait (100)
UO.findtype('0x09CC','0x0487','ground') ;Truly rare fish
UO.grab ('1','finditem')
wait (100)
UO.findtype('0x09CC','0x0445','ground') ;Prize fish
UO.grab ('1','finditem')
wait (100)
UO.UnSetReceivingContainer()
end if
wend
wend
UO.DeleteJournal()
next
next
end sub 

uo.say("Forward") 
uo.print('плывём вперед') 
wait(7000) 
uo.say("Stop") 

if counter==8 then 
  uo.msg('turn left') 
  wait(200) 
  uo.msg('turn left') 
  uo.print('разворачиваемся') 
  counter=0 
  uo.say("Forward") 
  wait(500) 
  uo.say("Forward") 
  wait(7000) 
  uo.say("Stop") 
  endif  
wend