set %pole XHF set %Roba WWMTLMD; Skill Roba set %Roba2 BPOXLMD; parasta roba, kleita vai kkas tamliidziigs set %Cloack BRZHLMD; Skill Cloack set %Cloack2 JYHMLMD; vienkaarshs, parasts cloaks set %Mask PUBILMD; Skill Mask set %Mask2 HUAQLMD; parasta maska, kaada armora cepure jeb kkas taml set %Axe STSZLMD; sitamais kuru izmantosim, lai izniicinaatu ljaunos juuras botus set %Shield VNHTJMD 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 returnvrode vsjo praviljna zdelal vse LOBJECTID zapisal kuda nada no 4tota on umenja ne odevajetsa i ne peredevajetsa kogda monstr vilzajet

Поставил в код. wap