set %fish YDF_EQD_DQD_GQD_LET_RET_ELL_PET_NET_SET_MET_OET_YDF
tile Init

finditem XHF C
if #FINDKIND = -1
{
event SysMessage You need a fishingpole.
halt
}
set %Fishingpole #FINDID


start:
repeat
set #LTARGETX ( #RANDOM % 13 ) - 6 + #CHARPOSX
set #LTARGETY ( #RANDOM % 13 ) - 6 + #CHARPOSY
tile Cnt #LTARGETX #LTARGETY 1
tile Get #LTARGETX #LTARGETY #TILECNT 1
until #TILENAME = water || Wet in #TILEFLAGS
set #LTARGETZ #TILEZ
set #LTARGETTILE #TILETYPE
set #LTARGETKIND 3

set #LOBJECTID %Fishingpole
event Macro 17 0
target 2s
event Macro 22 0

fishing:
for %n 5 1
{
scanjournal %n
if There_doesn't_seem_to_be_any_fish_here in #JOURNAL
{
deletejournal
goto start
}
if Not_in_your_line_of_sight in #JOURNAL
{
deletejournal
goto start
}
if You_can't_fish_there in #JOURNAL
{
deletejournal
goto start
}
}
goto fishing