Yoko

sub fishing()    
    dim coords[20]
    var x, y
    var coord_num=0, coordnum=0
    var mintile = '6039', maxtile='6044'
    var fishingpole='0x0DBF'    
    for x = -8 to 8
        for y=-8 to 8
            if not uo.dead() then
                uo.deletejournal()
                uo.exec("privatedig "+str(x)+" "+str(y)+" "+fishingpole+" "+mintile+" "+maxtile)                
                repeat
                    wait(100)
                    if uo.injournal('Pause') then
                        uo.deletejournal()
                        repeat
                            wait(100)
                        until uo.injournal('Continue')
                    endif
                until uo.injournal('No cave floor there') or uo.injournal('You stop fishing.') or uo.injournal("can't")
                if not uo.injournal('No cave floor there') then
                    coords[coord_num]=str(x)+" "+str(y)
                    coord_num=coord_num+1
                endif
            endif
            if coord_num>20 then
                x=8
                y=8
            endif
        next
    next
    while not uo.dead()
        coordnum=0
        while coordnum<coord_num and (not uo.dead())
            uo.deletejournal()
            uo.exec("privatedig "+coords[coordnum]+" "+fishingpole+" "+mintile+" "+maxtile)                
            repeat
                wait(100)
                if uo.injournal('Pause') then
                    uo.deletejournal()
                    repeat
                        wait(100)
                    until uo.injournal('Continue')
                endif
            until uo.injournal('No cave floor there') or uo.injournal('You stop fishing.') or uo.injournal("can't")
            coordnum=coordnum+1
        wend        
    wend
end sub