scrub

set %pole XHF

set %fish DQD_EQD_FQD_GQD_DMF_EQD_FQD_NSH_DPH_CUD

set %somabanka vVHPKMMD

set %Roba ASOYJMD; Skill Roba

set %Roba2 NXGTLMD; Zhenskaja takaja roba dolzhna byt' v backpacke.

set %Cloack IVVGLMD; Skill Cloack

set %Cloack2 OUSCMMD

set %Mask QNEUJMD; Skill Mask

set %Mask2 XQTYKMD; Ljuboj drugoj helm ( TYPE )



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

{

msg .arm  $

wait 2

gosub follow



Finditem %Roba2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

Finditem %Cloack2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

Finditem %Mask2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

Finditem %Roba2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

msg .arm $; Wepons :bow ,sw >?<





Finditem %Roba2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

Finditem %Cloack2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

Finditem %Mask2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

Finditem %Roba2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0





finditem ED g_10

finditem #enemyid

if #findcnt >= 1

{

gosub follow

}

wait 2

goto unpause



wait 2s



Finditem %Roba c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

Finditem %Roba c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

Finditem %Cloack c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

Finditem %Mask c_ , #backpackid

set #lobjectID #findid

event macro 17 0





if #hits < 150

msg .camp $

wait 2s

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

if is_attacking_you in #JOURNAL

msg .arm $

wait 20s

}

goto loop





#####################################

sub follow

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 1

wait 2s

}

until #findcnt = 0

wait 2

return