initevents

set %logs DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_FZH

set %safe SWUTKMD  ; ID kaste kur metis visus logus 

set %ljtool NTWHLMD ; id certamajam  hatchet

set %staf JYSZKMD  ; ID ieroca ar ko cinisaties 







start:

   

 

GOSUB LJING 1432 1440 3284
 GOSUB LJING 1432 1434 3297
 GOSUB LJING 1432 1431 3300
 GOSUB LJING 1431 1427 3391
 GOSUB LJING 1428 1431 3281
 GOSUB LJING 1428 1428 3281
 GOSUB LJING 1428 1425 3281
 GOSUB LJING 1428 1419 3284
 GOSUB LJING 1428 1416 3278
 GOSUB LJING 1424 1419 3278
 GOSUB LJING 1424 1422 3284
 GOSUB LJING 1420 1419 3291
 GOSUB LJING 1420 1413 3284
 GOSUB LJING 1416 1413 3297
 GOSUB LJING 1412 1413 3284
 GOSUB LJING 1412 1410 3297
 GOSUB LJING 1412 1407 3283
 GOSUB LJING 1412 1404 3281
 GOSUB LJING 1412 1401 3284
 GOSUB LJING 1416 1395 3297
 GOSUB LJING 1416 1392 3300
 GOSUB LJING 1416 1389 3294
 GOSUB LJING 1412 1389 3297
 GOSUB LJING 1416 1383 3281
 GOSUB LJING 1416 1380 3291
 GOSUB LJING 1416 1374 3297
 GOSUB LJING 1416 1371 3297
 GOSUB LJING 1416 1368 3281
 GOSUB LJING 1416 1365 3294
 GOSUB LJING 1412 1365 3294
 GOSUB LJING 1412 1362 3290
 GOSUB LJING 1412 1359 3291
 GOSUB LJING 1416 1344 3291
 GOSUB LJING 1408 1350 3300
 GOSUB LJING 1408 1356 3297
 GOSUB LJING 1404 1347 3294
 GOSUB LJING 1404 1344 3300
 GOSUB LJING 1404 1341 3291
 GOSUB LJING 1396 1329 3294
 GOSUB LJING 1396 1323 3300
 GOSUB LJING 1392 1317 3300
 GOSUB LJING 1392 1311 3283
 GOSUB LJING 1392 1305 3278
 GOSUB LJING 1392 1296 3280
 GOSUB LJING 1388 1290 3278
 GOSUB LJING 1392 1284 3281
 GOSUB LJING 1388 1284 3293
 GOSUB LJING 1384 1281 3300
 GOSUB LJING 1384 1275 3303
 GOSUB LJING 1384 1272 3300
 GOSUB LJING 1384 1269 3278
 GOSUB LJING 1380 1266 3294
 GOSUB LJING 1376 1260 3297
 GOSUB LJING 1380 1254 3294
 GOSUB LJING 1380 1251 3281
 GOSUB LJING 1376 1251 3297
 GOSUB LJING 1372 1251 3294
 GOSUB LJING 1368 1251 3294
 GOSUB LJING 1364 1248 3294
 GOSUB LJING 1360 1248 3297
 GOSUB LJING 1356 1251 3297
 GOSUB LJING 1356 1248 3297

 



goto start



sub ljing

move %1 %2 2

finditem %ljtool

set #lobjectid #findid

event macro 17 0

target 10s						 ; katra koka cirsanas laiks

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 > 450					   ; svars kuru var izturet cilveks

gosub razgr



sub scan							 

scan:

scanjournal %cnt

if #hits < #str						 

{

set #lobjectid %staf					   

event macro 17 0

wait 5

event macro 17 0

wait 5s

gosub follow&kill

}

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

move 1111 1111 0	  ; kastes kordinates lai pie vinjas varetu tikt

move 1111 1111 0

move 1111 1111 0

finditem %safe

if #findkind = -1

goto razgr

set %kuda #findid

drop:

wait 5

finditem %logs c_ , #backpackid

if #findkind = -1

return

exevent Drag #Findid #findstack	   

wait 5

msg $								 

wait 5								

exevent Dropc %kuda				   

goto drop

  }

  }

  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