;Autor: [nGz]
;Najpierw trzeba recznie zarzucic wedke, skrypt bedzie w tym miejscu lowil ryby
;Pozniej trzeba zrobic anatomie na wybranym celu, dopiero wtedy play
initevents
set %lt #ltargetid
set %lol 0
start:
finditem xhf
if #findkind = -1
   halt
if %lol = 0
   goto anat
goto next
anat:
set #ltargetkind 1
set #ltargetid %lt
set %licz 0
event macro 13 1
loop:
set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
   goto dalej
if %licz > 5
   goto anat
goto loop
dalej:
event macro 22
event macro 22
event macro 22
wait 5
next:
set #ltargetkind 3
set #lobjectid #findid
set %licz2 0
event macro 17
loop2:
set %licz2 %licz2 + 1
wait 1
wait 1
if #targcurs = 1
   goto targ
if %licz2 > 5
   goto next
goto loop2
targ:
event macro 22
event macro 22
event macro 22
if %lol = 0
{
   set %lol 1
   goto next2
}
if %lol = 1
   set %lol 0
next2:
wait 75
goto start