initevents
begin:
chooseskill fish
set %skill #skill
fishing:
for %x 1 10
{
set #LTARGETX #CHARPOSX - 3
set #LTARGETY #CHARPOSY
set #LTARGETZ -5
set #LTARGETKIND 2
finditem kdf c
set #lobjectid #findid
event macro 17 0
target 3s
event macro 22 0
wait 8s
chooseskill fish
if #skill - %skill >= 3
{
gosub move
}
}
gosub move
sub move
{
msg forward$
wait 4s
msg stop$
goto begin
}
return