set %pole XHF
set %Roba OVBHLMD; Skill Roba
set %Roba2 GWBDKMD; parasta roba, kleita vai kkas tamliidziigs
set %Cloack BEIRLMD; Skill Cloack
set %Cloack2 ITTBMMD; vienkaarshs, parasts cloaks
set %Mask WMBHLMD; Skill Mask
set %Mask2 MIWBMMD; parasta maska, kaada armora cepure jeb kkas taml
set %Axe UNWGMMD; sitamais kuru izmantosim, lai izniicinaatu ljaunos juuras botus
set %Shield GHOAMMD; vairogs, ar kuru aizsargaasimies no ljaunajiem juuras botiem

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 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 90s
msg stop$
gosub fishing
wait 1s
goto moving
sub fishing
wait 2
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 4
gosub proverka
}
}
return
sub proverka
set %overtime #SCNT + 15
loop:
if #hits < #maxhits
{
msg .camp heal $
wait 2
Finditem %Roba2 c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 5
Finditem %Cloack2 c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 5
Finditem %Mask2 c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 5
Finditem %Shield c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 5
Finditem %Axe c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 5
finditem #enemyid
if #findcnt >= 1
{
gosub follow
}
wait 2
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
return
}
deletejournal
scanjournal 1
if you_put in #sysmsg
return
if you_gained in #sysmsg
return
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
return
if you_Fail in #sysmsg
return
goto loop
#####################################
sub follow
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
}
until #findcnt = 0
wait 2
return