;===================
;====---KONFIG---===
set %sd 4 ;small_delaytime
set %bd 80 ;big_delaytime
set %t_pool     ;tooltype_fishingpool
set %t_net      ;tooltype_fishingnet
set %t_f4cut    ;ittype_fish4cut
set %t_junk     ;ittype_shells(unused)bones_
set %t_food     ;ittype_food

;===================
;=-MAIN LOOP CODE-==
mainloop:


gotomainloop


;===================
;=====----SUBS----==
sub fish_pool
{
finditem %t_pool C_ , #BACKPACKID
if #findkind = 0
{
set #Lobjectid #findid
event macro 17 0 ;l_object
wait %sd
set #LTARGETKIND 2
set #LTARGETY #CHARPOSY - 3
set #LTARGETX #CHARPOSX + 3
wait %sd
event macro 22 0 ;l_target
wait %bd
}
;scan
deletejournal
wait %sd
scanjournal 1
if #JOURNAL = Wyglada_jakby_juz_tu_nie_bylo_ryb.
gosub shipmove
else
goto mainloop
}
return
;--==--;
sub shipmove
{
deletejournal
wait %sd
scanjournal 1
if #JOURNAL = Zapisywanie_Stanu_Swiata. 2
wait 800
gosub shipmove
event macro 1 0 Wynurz kotwice
wait %sd
event macro 1 0 Skrec w prawo
wait %sd
event macro 1 0 Naprzod
set %random00001 #random % 4 + 3
set %random00002 %random00001 * 20
wait %random00002
event macro 1 0 Zatrzymaj