initevents
set %logs ZLK
set %safe NAZXLMD ; ID Sunduka, kuda skidivajem logi
set %ljtool FSF_ASF ; zdes' stavim ID hatchet
move 2907 660 0
start:
...
..
...
goto start ; Process samoj rubki derev'jev
sub ljing
move %1 %2 1
finditem %ljtool
set #lobjectid #findid
event macro 17 0
target 10s ; Vremja rubki kazdogo dereva
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 ; Uslovije dlja razgruzki logov
sub backpack ; Pri polnom vese
if #weight > 450 ; Tut ukazivajem ves logov
gosub razgr
sub scan ; skanirovanije zurnala
scan:
scanjournal %cnt
if #hits < 120 ; Esli men'she 150 hits to
msg .arm bow $ ; Ispol'zujem Oruzije
if #hits < 120
msg .camp $
wait 15 ; Eto nado , 4to bi izbezat' flood
if 30_seconds_till_disconnect... in #journal
display ANTI MACROOOO ; Tabli4ka NATIMAKRO
if 29_seconds_till_disconnect... in #journal
display ANTI MACROOOO
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 ; Razgruzka
move 2907 610
move 2907 683
move 2889 683
msg bank $
finditem %safe g_2
if #findkind = -1
goto razgr
set %kuda #findid
drop:
wait 5
finditem %logs c_ , #backpackid
if #findkind = -1
goto start
exevent Drag #Findid #findstack ; Hvatajem vse logi
wait 5
msg $ ; Imitirujet nazatije ENTER
wait 5 ; Pri vzjatih logah
exevent Dropc %safe ; Sgruzajem v Sunduk
goto drop
return
Help!
