start:
set #ltargetx #charPosX + 2 + #random % 4
set #ltargetY #charPosY + #random % 6 - #random % 6
set %a #ltargetx - #charPosX
set %b #ltargety - #charPosY
goto loop
loop:
finditem XHF C
set #lobjectid #findid
event macro 17
event macro 25
event macro 22
wait 3s
goto start