initEvents
set %w 0
main:
for %x -5 -3 1
{
for %y -4 4 1
{
gosub fish
ww:
}
}
msg right $
wait 4s
msg stop $
if #CHARPOSX > 3128
{
msg forward $
wait 8s
msg left $
wait 80s
msg stop $
}
return
goto maim
sub fish
fish:
Finditem XHF Ñ_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
target 5s
wait 10
set #LTARGETX #CHARPOSX + %x
set #LTARGETY #CHARPOSY + %y
key f2
deletejournal
gosub wait
wait:
for %scan 1 5 1
{
scanJournal %scan
set %w %w + 1
key f2
;event SysMessage %w
if Çäåñü_íåò_ðûáû. in #JOURNAL || You_fish_a_while in #JOURNAL
{
set %w 0
goto ww
}
if Fish in #JOURNAL || Òû_ïîéìàë in #JOURNAL
{
set %w 0
goto fish
}
if %w > 25
goto fish
goto wait
}
return