initevents
set %ljtool METGLMD ; Pickakse ID
start:
xxxxxxxxxxxxx
xxxxxxxxxxxxx
xxxxxxxxxxxxx
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 > 700 ;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 2430 175
move 2438 195
move 2425 212 ;koordinat do sunduka
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 TTXLLMD ;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
rekur mans skripts izlabojiet luuduz butu pateiciigs
![:P](https://forum.oldp.net/public/style_emoticons/default/tongue.png)