Nemiet un neflodojiet ! Ilikt vajag savas raksanas vietu koordinates, kastes koordinates, runkas koordinates!
set %ljtool NPF_QPF; set your ljtool here x y title
set %Roba FWL; Skill Roba
set %Roba2 dwl; Zhenskaja takaja roba dolzhna byt' v backpacke.
set %Cloack obekmmd; Skill Cloack
set %Cloack2 DCI; Prostoj cloack
set %Mask NZH; Skill Mask
set %Mask2 OSH; Ljuboj drugoj helm ( TYPE )
set %runebookid DOLZLMD; ID Runebooka
start:
gosub ljing xxxxx
gosub ljing xxxxx
gosub ljing xxxxx
goto start
sub ljing
move %1 %2 1
finditem %ljtool
set #lobjectid #findid
event macro 17 0
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 bp10
return
gosub bp10
sub bp10
if #weight > 750; ves
gosub telehouse
//------------------------------------------------------------------------------------------
sub telehouse
telehouse:
move
move
move
wait 2s
finditem %runebookid
set #lobjectid #findid
event macro 17 0
wait 5s
event macro 17 0
wait 5s
click 420 276;To House
wait 5s
click 420 276;To House
Gosub hz450
//--------------------------------------------------------
sub back1
back1:
finditem %runebookid
set #lobjectid #findid
event macro 17 0
wait 5s
event macro 17 0
wait 5s
click 419 304;Mine Rune
wait 5s
click 419 304;Mine Rune
finditem %runebookid
set #lobjectid #findid
event macro 17 0
wait 5s
click 260 220;perezorjadka
event macro 17 0
wait 2s
click 260 220;perezorjadka
event macro 17 0
wait 2s
click 260 220;perezorjadka
event macro 17 0
wait 2s
GOSUB MINING
//------------------------------------------------------------------------------------------
sub scan
scan:
scanjournal %cnt
if ( is_attacking_you in #journal || kal_vas_flam in #journal || an_ex_por in #journal || des_mani in #journal )
else
if #hits < #str; STR -1 ( na odin hp menshe stav' )
{
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 %Roba2 c_ , #backpackid
set #lobjectID #findid
event macro 17 0
msg .arm $; Wepons :bow ,sw >?<
finditem ED g_10
finditem #enemyid
if #findcnt >= 1
{
gosub follow
}
wait 2
goto unpause
wait 40s
Finditem %Roba c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Roba c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Cloack c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Mask c_ , #backpackid
set #lobjectID #findid
event macro 17 0
}
if You_put_Marganece_Ore_in_your_pack in #sysmsg
return
if You_stop_mining in #sysmsg
{
wait 1s
gosub ljing
}
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 You_have_no_line_of_sight_to_that_location in #sysmsg
return
if #scnt >= %overtime
return
goto scan
sub hz450
Move xxxx xxxx
Move xxxx xxxx
gosub moveItems
sub moveItems
{
set !dragTimeout 7 s
set !dragTimer #scnt2
set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF
if %0 < 10
set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF
set !from AVBKKMD
set !to WDSWLMD; Kudaa rudu skidavatj
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
}
Gosub back1
back2:
}
return
#####################################
sub follow
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
}
until #findcnt = 0
wait 2
return
