Mining
initevents set %ljtool TEKNLMD ; Pickakse ID start: GOSUB LJING 1111 1111 1111 GOSUB LJING 1111 1111 1111 GOSUB LJING 1111 1111 1111 goto start sub ljing move %1 %2 1 finditem %ljtool set #lobjectid #findid event macro 17 0 5? target 10s set #ltargetx %1 set #ltargety %2 set #ltargetkind 3 set #ltargettile %3 event macro 22 0 wait 7 set %overtime #scnt + 25 gosub ves return gosub ves sub ves if #weight > 500 ;Ves kotorova mozna derzat vas personaz gosub home sub scan scan: scanjournal %cnt if #hits < #maxhits msg .arm $ if #hits < #maxhits gosub follow&kill if THERE_IS_NOTHING_HERE_TO_MINE_FOR in #sysmsg return if It_appears_immune_to_your_blow in #sysmsg return if YOu_can't_reach_this in #sysmsg return if #scnt >= %overtime return goto scan sub home move 1111 1111 0 ;koordinat do sunduka move 1111 1111 0 move 1111 1111 0 gosub moveItems sub moveItems { set !dragTimeout 4;1/10 s set !dragTimer #scnt2 set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF if %0 < 2 set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF set !from #backpackid set !to HLEYKMD ;Id jasika gde budit kidat rudu finditem !items C_ , !from for #findindex 1 #findcnt { if #findkind = 0 { set !amt 1 if #findstack > 1 set !amt #findstack while #scnt2 < !dragTimer wait 0 exevent drag #findid !amt exevent dropc !to set !dragTimer #scnt2 + !dragTimeout } } namespace clear } sub follow&kill repeat finditem #enemyid event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s } until #findcnt = 0 wait 2 msg .camp Heal $ return
Bizit i ubivait protivnika i peredevait skill vesi na prostije
set %puha YLUCMMD ;Id Oruzije set %puha YLUCMMD ;Id Oruzije drugoi jesli tot slomaitsa set %roba XGOCMMD ;roba zenskaja set %roba KAOCMMD ;Roba zenskaja nu lu4s pokrasit v drugoi cvet 4 set %cloack FFKCMMD ;cloak set %cloack LRNCMMD ;iso odin cloak nu v drugoi cvet 4tob nekidalis v meste set %maska YNYCMMD ;helm set %maska YNYCMMD ;Helm jesli tot slomaitsa set %idishka set %lut POF_FWL_DCI_NZH_IJG_FZH_SJG_CUD_RVH ;eto vse ve6i katorije on sobirait ot monstrof WHILE #CHARGHOST = NO { scanjournal 1 if #hits < #str || #JCOLOR = 34 || attacking_you in #journal { key enter msg .arm key enter wait 1 set #LOBJECTID %roba event macro 17 wait 1 set #LOBJECTID %cloack event macro 17 wait 1 set #LOBJECTID %maska event macro 17 wait 1 MSG STOP finditem %elem while #FINDCNT = 1 { finditem %elem finditem %puha set #lobjectid #findid event macro 17 finditem %elem set %a #FINDX set %b #FINDY set #LTARGETID #FINDID event macro 27 0 event PathFind %a %b wait 1s } finditem #enemyID while #FINDCNT = 1 { kill: finditem %puha set #lobjectid #findid event macro 17 finditem #enemyID set %a #FINDX set %b #FINDY set #LTARGETID #FINDID event macro 27 0 event PathFind %a %b wait 1s } msg stop while #str > #hits { finditem ZLF set #lobjectid #FINDID event macro 17 wait 5 event macro 23 wait 3s } finditem YFM G_4 if #findcnt > 0 { set #lobjectid #findid event macro 17 wait 2s set %idishka #findid finditem %lut C_ , %idishka wait 10 if #findcnt > 0 { WHILE #FINDCNT > 0 { finditem %lut C_ , %idishka exevent drag #FINDID #findstack wait 15 exevent dropc #BACKPACKID wait 15 } } } wait 1 set #LOBJECTID YYXHKMD;Skill Roba event macro 17 wait 1 set #LOBJECTID IDZGKMD;Skill Cloak event macro 17 wait 1 set #LOBJECTID WPWUKMD;Skill maska event macro 17 wait 1 KEY ENTER } WAIT 10 } if #hits = #str goto unpause goto start unpause: EXIT
Lumber
initevents set %logs DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_FZH set %safe SWUTKMD ;ID Jasik gde logi budit kidat set %ljtool GLLPLMD ;ID hatchet set %staf JYSZKMD ;ID oruzije s 4em budete dratsa start: GOSUB LJING 1111 1111 1111 GOSUB LJING 1111 1111 1111 GOSUB LJING 1111 1111 1111 goto start sub ljing move %1 %2 2 finditem %ljtool set #lobjectid #findid event macro 17 0 target 10s ; Vremja rubki set #ltargetx %1 set #ltargety %2 set #ltargetkind 3 set #ltargettile %3 event macro 22 0 wait 7 set %overtime #scnt + 25 gosub backpack return gosub backpack sub backpack if #weight > 450 ; Max ves gosub razgr sub scan scan: scanjournal %cnt if #hits < #str { set #lobjectid %staf event macro 17 0 wait 5 event macro 17 0 wait 5s gosub follow&kill } if THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg return if It_appears_immune_to_your_blow in #sysmsg return if you_can't_reach_this in #sysmsg return if #scnt >= %overtime return goto scan sub razgr move 1111 1111 0; koordinati do jasika move 1111 1111 0 move 1111 1111 0 finditem %safe if #findkind = -1 goto razgr set %kuda #findid drop: wait 5 finditem %logs c_ , #backpackid if #findkind = -1 return exevent Drag #Findid #findstack wait 5 msg $ wait 5 exevent Dropc %kuda goto drop } } namespace clear } sub follow&kill repeat finditem #enemyid event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s } until #findcnt = 0 wait 2 msg .camp Heal $ return
Fishing sobirait vso kromje prostih rib
set %pole XHF set %fish DMF set %somabanka OPHTLMD;Beacpack 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 $ msg .camp $ wait 15s 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