Yoko

sub main() 
uo.deletejournal()
var mx, my, mz, i, j
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
for i = mx+2 to mx+6 
for j = my-6 to my+6 
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") 
uo.deletejournal()
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("You fail") and not UO.InJournal("far away") and not UO.InJournal("in water") 
wait(100) 
if uo.life < 60 then (ето твои хп если менее 60 то клиент закроетсЯ)
  uo.closeuo() 
endif
wend
next
next
uo.say("left")
wait(5000)
uo.say("stop")
uo.exec("exec main")
end sub 

sub main() 
var mx, my, mz, i, j 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
while not uo.dead()
for i = mx-6 to mx+6 
for j = my-6 to my+6 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") ;тип удочки вписать
uo.deletejournal() 
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) 
wend 
next 
next 
wend
end sub 

sub fish() 
var mx, my, mz, i, j,inFishing=0
var spining='0x0DC0' ; удочка 
DIM text[6] 
 text[0] = 'You pull out a' 
 text[1] = 'You fish a while' 
 text[2] = 'That is too far away' 
 text[3] = 'Try fishing in water' 
 text[4] = 'There are no fish here' 
 text[5] = 'location' 
 text[6] = 'return' 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
while not uo.dead()
for i = mx-6 to mx+6 
 for j = my -6 to my+6 
   repeat 
    inFishing=0
    UO.DeleteJournal() 
    UO.Waittargettile("1341", str(i), str(j), str(mz)) 
    UO.Usetype(spining) 
    repeat 
     wait(10) 
    Until UO.InJournal(text[0]) OR UO.InJournal(text[1]) OR UO.InJournal(text[2]) OR UO.InJournal(text[3]) OR UO.InJournal(text[4]) OR UO.InJournal(text[5]) OR UO.InJournal(text[6]) 
    if NOT UO.InJournal(text[1]) then 
     inFishing=1 
    endif 
   Until inFishing==1 
 next 
next 
wend
end sub 

var MaxFailure=2 # Через сколько подряд безрезультатных попыток переходить к другой клетке.
sub FishingAround()
var iX,iY
for var iStep=0 to 1000
   for iX=-6 to 6
     for iY=-6 to 6
       GetAllFish(UO.GetX()+iX,UO.GetY()+iY)
     next
   next
next
end sub
Sub GetAllFish(iX,iY)
var counter=0
repeat
   counter=counter+1
   UO.DeleteJournal()
   UO.WaitTargetTile(0,iX,iY,0)
   UO.UseType('0x0DBF')
   while not UO.InJournal('Вы поймали рыбу!') and not UO.InJournal('У вас не получилось ничего поймать') and not UO.InJournal('Тут нету рыбы.') and not UO.InJournal('Попробуйте порыбачить в другом') and not UO.InJournal('удочку из воды')
     wait(100)
   wend
   if UO.InJournal('Тут нету рыбы.') OR UO.InJournal('удочку из воды') OR UO.InJournal('That is too far away') then
     return
   end if
   if UO.InJournal('Вы поймали рыбу!') then
     counter=0
    GetFish()
   end if
until UO.Injournal('Тут нету рыбы.') OR UO.InJournal('удочку из воды') OR UO.InJournal('That is too far away') OR counter>MaxFailure
end sub
Sub GetFish()
UO.set('finddistance',0)
UO.IgnoreReset()
UO.Ignore('self')
UO.FindType('0x352D',-1,'ground')
UO.Ignore('finditem')
UO.FindType(-1,-1,'ground')
while UO.FindCount()>0
   UO.WaitTargetObject('finditem')
   UO.UseType('0x0F51')
   UO.Ignore('finditem')
   wait(500)
   UO.FindType(-1,-1,'ground')
wend
UO.Ignorereset()
UO.Ignore('self')
UO.FindType('0x352D',-1,'ground')
UO.Ignore('finditem')
UO.FindType(-1,-1,'ground')
while UO.FindCount()>0
   UO.Grab(0,'finditem')
   wait(100)
   UO.FindType(-1,-1,'ground')
wend
UO.Ignorereset()
end sub