sub scan
scan:
scanjournal %cnt
if #hits < 249 #str ; STR -1 ( na odin hp menshe stav' )
{


event macro 17 0
msg $
msg .wear $
msg .camp $
; Wepons :bow ,sw >?<


finditem #enemyid
if #findcnt >= 1
{
gosub follow
}
wait 2
goto unpause

wait 0

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 Try_mining_elsewhere 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_cant_reach_this in #sysmsg
return
if You_have_no_line_of_sight_to_that_location in #sysmsg
return
if #scnt >= %overtime
return
goto scan