sub FISHING() 
uo.Set('finddistance', 1) 
DIM ULOVtype[4] 
ULOVtype[0] = '0x09CC' #fish1 
ULOVtype[1] = '0x09CD' #fish2 
ULOVtype[2] = '0x09CE' #fish3 
ULOVtype[3] = '0x09CF' #fish4 
VAR udochka = '0x0DBF' 
VAR nozh = '0x13F6' 
VAR NumTile = '6043' 
VAR MaxWeigth = 300 
VAR i, x, y, k 
wait(500) 
UO.Equipt('Rhand', udochka) 
start: 
for x=-6 to 6 
for y=-6 to 6 
;ToHide() 
UO.Print("?uaa?ei a oi?ea: " + str(x) + " " + str(y)) 
UO.DeleteJournal() 
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water") 
k = 0 
if UO.Weight > MaxWeigth then 
goto finish 
endif 
;ToHide() 
UO.DeleteJournal() 
UO.WaitTargetTile(NumTile, str(UO.GetX()+x), str(UO.GetY()+y), str(UO.GetZ())) 
UO.UseType(udochka) 
while not (UO.InJournal("in water") or UO.InJournal("far away") or UO.InJournal("but fail") or UO.InJournal("You pull") or UO.InJournal("no fish here") or UO.InJournal("location") or k==50) 
k = k + 1 
wait(200) 
if UO.InJournal("Targeting Cancelled") then 
goto start 
endif 
wend 
#niae?aai oeia 
if UO.InJournal("You pull") then 
wait(2000) 
for i=0 to 3 
UO.FindType(ULOVtype[i], '-1', 'ground') 
UO.MoveItem('finditem') 
wait(100) 
next 
endif 
wend 
next 
next 
finish: 
UO.Print("Iaa?ai iaeneiaeuiue aan oeiaa") 
wait(1000) 
#?a?ai ?uao 
UO.Print("?a?ai ?uao ia oeo noaeee") 
for i=0 to 3 
UO.WaitTargetType(ULOVtype[i]) 
UO.UseType(nozh) 
wait(1000) 
next 
if UO.Weight < MaxWeigth-5 then 
goto start 
endif 
bank() ; тут сделаешь либо терминат либо рекол ну или как тебе надо
endsub