Помогите!!

[CMETANKA]

Плизз обесните чё копает тока в одном месте??(
for #y -2 2 1
for #x -2 2 1
:mining
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
send F4 2000 // ЛастОбжект-ВаитФорТаргет-ЛастТаргет
set timer 0
while (lastmsg do you want) and (timer < 10000)
wait 10
end_while
if_not (lastmsg no ore) or (lastmsg mining in) or (lastmsg have no line)
wait 500
goto mining
end_if
end_for
end_for
alarm
end_script

если можете перепрате и не надо сувать таких скриптов как
set #ves 600 // указываем чуть меньше максимального веса, поднимаего чаром
set #proba 5 // количество попыток на одной точке, нужно когда много флуда вокруг

:main
gosub kopaem
gosub fin
goto main

:kopaem // процедура определения координаты ласттаргета
for #y -2 2 1
for #x -2 2 1
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
gosub tochka //
end_for
end_for
alarm
stop_script
return


:tochka // процедура вскапывания одной точки
set #p 0 // обнуление счетчика попыток
:mining
send F5 // ластобджект, уэйтфотаргет, ласттаргет
wait 5000
:proverka
if (lastmsg no ore) or (lastmsg mining in rock) or (lastmsg have no line) or (lastmsg get there) or (lastmsg you can't)
return
end_if
if wght > #ves // проверка на вес
gosub fin
end_if
wait 3000
set #p #p + 1 // счетчик попыток
if #p > #proba
return
end_if
goto mining
return

:fin
alarm
wait 1s
alarm
wait 1s
flash
stop_script
тк тоже копает на одном месте и мне нравится маленькие скриптики!! где просто запустил откопал переставил!!
сенки зарание!))