sub main()
uo.exec("disarm")
var xs,ys,y,x,tile
while not uo.dead()
if UO.Count("0x0DBF")== 0 then
uo.say("Удочки нету! Нахаляву не работаю")
uo.say(",closeuo")
end if
xs=Uo.GetX()
ys=Uo.GetY()
for x=xs-5 to xs+5
for y=ys-5 to ys+5
uo.deletejournal()
Tile= GetTileWater(x, y)
if Tile then
while not uo.injournal("any fish|fish there|complete")
uo.deletejournal()
wait(100)
havka()
SW()
Boots()
uo.WaitTargetTile(Tile, x, y, 0)
uo.usetype('0x0DBF')
nolomka()
SW()
dropp()
while not uo.injournal("That is too far away|The skies|fish there|biting|You catch|any fish|location|walrus comes by to|You find|complete")
wend
wend
end if
next
next
wend
UO.Print()
end sub

sub GetTileWater(x, y)
for var i=6039 to 6045
if uo.privategettile(x, y, -1, i, i) then
return i
end if
next
Return 0
end sub

sub havka()
if UO.Count("0x097B")>0 then
UO.usetype ("0x097B")
Wait(1000)
else
UO.Print("Еда закончилась……помру-)")
end if
end sub

sub SW()
if UO.InJournal("Saving World State|Saving Game State Now") then
repeat
wait(200)
until uo.injournal("Saving World State complete|Done saving")
end if
uo.Click('backpack')
repeat
wait(200)
until uo.InJournal("Backpack")
wait(1000)
end sub

sub Boots()
DIM Boot[8]
;режет обувку на кожу
Boot[0] = 0x170A
Boot[1] = 0x170B
Boot[2] = 0x170C
Boot[3] = 0x170D
Boot[4] = 0x170E
Boot[5] = 0x170F
Boot[6] = 0x1710
Boot[7] = 0x1711
VAR i

For i = 0 To 7
UO.FindType( Boot[i], '-1', 'backpack')
if UO.FindCount() > 0 Then
UO.WaitTargetobject( 'finditem' )
UO.UseType(0x0F9E) #ножницы
repeat
wait(100)
until uo.injournal("You could")
End if
next
end sub

sub dropp()
DIM mycop[6]
;выкидывает выловленный мусор себе подноги
mycop[0] = 0x09CD #рыба
mycop[1] = 0x09CE #рыба
mycop[2] = 0x09CC #рыба
mycop[3] = 0x099F #sos бутылка
mycop[4] = 0x0DC8 #сеть
mycop[5] = 0x14ED #карта сокровищ

VAR i

For i = 0 To 5
UO.FindType( mycop[i], '-1', 'backpack')
if UO.FindCount() > 0 Then
UO.WaitTargetobject( 'finditem' )
UO.drop()
wait(2000)
End if
next
end sub

sub nolomka()
wait(2000)
if uo.injournal("have to equip that to go") then
main()
end if
end sub