22 replies to this topic

[DuMoH-]

URODIIII ISPOGANILI MOJU TEMU

[Graff TrAXuLA]

initevents

set %ljtool NPF_qpf

set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG

set %box UMDIMMD_UMF; bokss pie maajas

set %Roba FWL; Skill Roba

set %Roba2 DWL; Sievieshu klieta (Plain Dress)

set %Cloack ERWELMD; Skill Cloack (ID)

set %Cloack2 PJPBKMD; Parastais cloack (ID)

set %Mask NZH; Skill Mask

set %Mask2 OSH; Jebursh Platemail helms (TYPE)





start:

 

 GOSUB LJING 









goto start



sub ljing

gosub ghost

move %1 %2 1

finditem %ljtool

set #lobjectid #findid

event macro 17 0

target 14s

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 > 650; max svars

gosub home



sub home

move 1

move 1; te var ielikt dazhaadas koord, lai apietu seetu, u.c.

move 1; koord pie boksa

gosub moveItems



sub scan

scan:

scanjournal %cnt

if #hits < #maxhits

{

Finditem %Roba2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

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 %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 %Mask2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

key PRNSCR

if #hits < #str

msg .drink heal $

msg .arm $

if #hits < #maxhits

msg .arm $

wait 5

gosub follow&kill

if #hits < #str

msg .arm $

if #hits < #str

gosub follow&kill

if #hits < #str

wait 70s

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 10s

return

}

if #hits < #str

msg .arm $

if THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg

return

if You_stop_Mining in #sysmsg

return

if YOu_CAN'T_REACH_THIS in #sysmsg

return

if Wolrd_safe_has_been_initiated in #sysmsg

wait 20s

if You_fail_to_do_that in #sysmsg

{

set %piens zbm; automaatiska paeeshana

set #LTARGETID %piens

finditem zbm

set #lobjectid #findid

event macro 17 0

wait 2

set %bekons GND

set #LTARGETID %bekons

finditem GND

set #lobjectid #findid

event macro 17 0

wait 2

set %bekons GND

set #LTARGETID %bekons

finditem GND

set #lobjectid #findid

event macro 17 0

wait 10

return

}

if Try_mining_elsewhere in #sysmsg

return

if You_have_no_line_of_sight_to_that_location in #sysmsg

return

if #scnt >= %overtime + 25

return

goto scan



sub moveItems

wait 1s

move 1;Konteinera atrashanaas vieta

wait 3s

scanjournal %cnt

if World_save_in_15_seconds_ in #sysmsg

wait 40s

finditem %box

if #findkind = -1

goto moveItems

set %kuda #findid

drop:

wait 15

finditem %item c_ , #backpackid

if #findkind = -1

gosub vadatsa

exevent Drag #Findid #findstack

wait 15

msg $

wait 15

exevent Dropc %kuda

goto drop

return





sub follow&kill

repeat

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

until #findcnt = 0

wait 8s

return

Почему он не хочет воврашаться назад, по копает и стоит у сундука (((

[DuMoH-]

lizardking thnx for scp :*