Помогите с пропуском руд! Опции

[Zaldiar]

set $s1 is no ore here
set $s2 have no line
set $s3 try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
for #x -2 2 1
for #y -2 2 1
set lasttargetx charposx +#x
set lasttargety charposy +#y
set lasttargetkind 2
:repeat
send F8 400
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s3) or (lastmsg = $s4) or (timer > 800)
while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 2000)
end_while
if wght >= 450
repeat 5
alarm
end_repeat
pause_script
end_if
goto repeat
end_while
end_for
end_for
set #walk random 5
if #walk = 0
repeat 5
send PageUp 200
end_repeat
end_if
if #walk = 1
repeat 5
send PageDown 200
end_repeat
end_if
if #walk = 2
repeat 5
send Home 200
end_repeat
end_if
if #walk = 3
repeat 5
send End 200
end_repeat
end_if
if #walk = 4
repeat 5
send Up 200
end_repeat
end_if
if #walk = 5
repeat 5
send Down 200
end_repeat
end_if
if #walk = 6
repeat 5
send Left 200
end_repeat
end_if
if #walk = 7
repeat 5
send Left 200
end_repeat
end_if
if #walk = 8
repeat 5
send Left 200
end_repeat
end_if
if #walk = 9
repeat 5
send Left 200
end_repeat
end_if
if #walk = 10
repeat 5
send Left 200
end_repeat
end_if
if #walk = 11
repeat 5
send Left 200
end_repeat
end_if

Добрые люди выручайте!!!!
как в етот скрипт поставить пропуск айрона??
Он копает 25 клетов вокруг себя....и если нигде нет руды-идет на новое место.
А как сделать чтобы он копал 25 клеток вокруг себя и шел на новое место, если в тайлах осталась айрон руда??