set %logs ZLK set %safe RLFAKMD; Sominjas id kuraa liks logus set %axe KPH; id/type pushki set %shield NIK; id/type shilda start: GOSUB LJING .......... goto start sub ljing gosub checkHP gosub backpack move %1 %2 1 finditem FSF C 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 15 set %overtime #scnt + 25 gosub scan return sub backpack if #weight > 600 gosub razgr return sub scan; skanirovanije zurnala scan: gosub checkHP 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 there_is_not_wood_left_to_harvest in #sysmsg return gosub checkHP if #scnt >= %overtime return goto scan sub razgr _move: move ......; KASTES ATRASHANAAS VIETA finditem %safe G_3 if #findcnt = 0 goto _move repeat { finditem %logs c_ , #backpackid if #findcnt <> 0 { exevent Drag #Findid #findstack; Hvatajem vse logi exevent Dropc %safe; Sgruzajem v Sunduk wait 20 } } until #findcnt = 0 return sub follow&kill event macro 27 0 repeat { finditem #enemyid event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s } until #findcnt = 0 return sub checkHP if #hits < #maxhits { gosub arm gosub follow&kill } return sub arm repeat { finditem %axe C_ , #backpackid set #lobjectid #findid event macro 17 0 } until #findcnt = 0 repeat { finditem %shield C_ , #backpackid set #lobjectid #findid event macro 17 0 } until #findcnt = 0 return
Kur es varu atrast kordinatas shai rindai (man ir maja ar kasti araa ) ?
move ......; KASTES ATRASHANAAS VIETA