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 $
returnBizit 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:
EXITLumber
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 $
returnFishing 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
ты прям как Мать Тэреза 
