Code:
set %pole XHF
set %fish DQD_EQD_FQD_GQD_DMF_EQD_FQD_NSH_DPH_CUD
set %somabanka RLNRJMD
set %Roba FWL
set %Roba2 DWL
Set %Mask NZH
set %Mask2 HJL
set %Cloack DCI
moving:
msg back$
wait 14s
msg stop$
gosub fishing
msg back$
wait 14s
msg stop$
gosub fishing
msg back$
wait 14s
msg stop$
gosub fishing
msg forward$
wait 45s
msg stop$
gosub fishing
wait 1s
goto moving
sub fishing
wait 5s
for %xx -5 5
{
for %yy -5 5
{
finditem %pole
set #LOBJECTID #FINDID
event macro 17 0
wait 2
target 5s
set #LTARGETX #CHARPOSX + %xx
set #LTARGETY #CHARPOSY + %yy
set #LTARGETKIND 3
event macro 22 0
wait 3
gosub proverka
}
}
return
sub proverka
set %overtime #SCNT + 15
loop:
if #hits < #str
{
Finditem %Roba2 c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 20
Finditem %Cloack c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 20
Finditem %Mask2 c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 20
Finditem %Roba2 c_ , #backpackid
set #lobjectID #findid
event macro 17 0
msg .arm bow $
msg .camp $
wait 25s
Finditem %Roba c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 10
Finditem %Cloack c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 10
Finditem %Mask c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 10
finditem ZLF
set #LOBJECTID #FINDID
event macro 17 0
wait 10
event macro 23 0
wait 6s
return
}
deletejournal
scanjournal 1
if There_are_no_ in #JOURNAL || Try_fishing_ in #JOURNAL || That_is_too in #JOURNAL || You_fail_to_catch_ in #JOURNAL || Fishing_has in #JOURNAL || #SCNT >= %overtime
return
if You_pull in #JOURNAL || seconds_before in #JOURNAL
{
wait 1s
return
}
goto loop