Ancient.Dreamer

set %Roba RBFDLMD; Skill Roba

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

set %Cloack UBHDLMD; Skill Cloack

set %Cloack2 BRUIKMD; Prostoj cloack

set %Mask HQGDLMD; Skill Mask

set %Mask2 IBSMKMD; Ljuboj drugoj helm ( TYPE )



set %pole XHF

set %fish DMF

set %somabanka JYGLKMD  ;SOMAS ID



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 bow $

msg .camp $



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 #enemyid

 if #findcnt > 0

  {

   repeat

	{

	 finditem #enemyid

	 msg .camp

	 wait 1s

	 msg .arm bow

	 wait 1s

	}

   until #findcnt = 0

   wait 1s

   set %charx #charposx

   set %chary #charposy

   gosub looting

   move %charx %chary 0 10s

  }

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

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

{

gosub drag

return

}

goto loop



sub drag

finditem %fish G_1

exevent drag #FINDID

wait 3

exevent dropc %somabanka

wait 3

finditem %fish G_1

exevent drag #FINDID

wait 3

exevent dropc %somabanka

wait 3

return



sub looting

finditem %corpse G_3

event pathfind #findx #findy

wait 2s

ignoreItem #findid 1

 if #findkind = 1

  set #lobjectid #findid

  event macro 17 0

  wait 10

   repeat

   {

   finditem POF_CUD C_ , #contid

	if #findcnt > 0

	 {

	  exevent drag #findid #findstack

	  wait 10

	  exevent dropc #backpackid

	  wait 1s

	 }

   }

   until #findkind = -1

return

provee, ja nestraadaa tad raksti, gan kaads palabos, jo pats uz laiku off

tu esi wariors? paraadi savu skriptu te vai pm`aa

uzdaaviniet man ar, es ar uzrakstiishju

uz kugja tak ir tas kontainers, uzliec taa id

uz shitaa vecaa uo euo suudinjsh kas mekle istos tailus nestrada, man pat shkjiet ka pat parastiem tilefinders nestradas