set #hide 0 // 1 - ?????? ??????????, 0 - ???
set #dlin 15 // ???????????? ????? ????? ? ????? ???????????
set #napr 1 // ? ????? ??????? ??????: 0 - ??????-??????,
// 1 - ?????-???????
set #ves 500 // ???????????? ???, ?????????? ?????
set #sdvig 0 // ???? ?????????? ??? ?????????: 0 - ????, 1 - ?????
set #proba 20 // ?????????? ??????? ?????????
set #propusk 0 // 1 - ?????????? ??????? ????, 0 - ???????? ??? ?? ??????

// ????????? ????
if #hide = 1
while_not (lastmsg you have hidden)
send F7 3000 // ???????? ???????????
end_while
end_if

// ???????? ?????????
:main
set #i 1 // ??????? ??? ????????? ? ???? ??????
while #i < #dlin
set #xx charposx // ??????? ?????????? ????
set #yy charposy
gosub kopaem
gosub idem_hor
if #xx = charposx and #yy = charposy
// ????????? ???? ??? ???????? ?? ??????????!
gosub razvorot
break
end_if
set #i #i + 1
end_while
if #napr = 0
// ?????? ??????????? ????????
set #napr 1
else
set #napr 0
end_if
goto main

// ????????? ??????????? 25 ?????? ?????? ????
:kopaem
for #y -2 2 1
for #x -2 2 1
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
gosub dyatel // ?????? ? ???? ?????
end_for
end_for
return

// ????????? ????????? ??????? ?????? ?????
:dyatel
set #p 0
:mining
send F2 // lastobject waitfortarget lasttarget
wait 9000
roverka
if (lastmsg nothing) or (lastmsg mining in rock) or (lastmsg have no line) or (lastmsg get there) or (lastmsg you can't)
return
end_if
goto mining
end_if
wait 500
set #p #p + 1
if #p > #proba
return
end_if
goto mining
return

// ????????? ?????? ???? ?? ??? ???? ?????????????
:idem_hor
if #napr = 0
send Left
if #hide = 1
// ???? ?? ? ????? - ???? ????? ????? ??????
wait 1000
end_if
send Left
if #hide = 1
// ???? ?? ? ????? - ???? ????? ????? ??????
wait 1000
if lastmsg been revealed
send F7
wait 500
end_if
end_if
else
send Right
if #hide = 1
// ???? ?? ? ????? - ???? ????? ????? ??????
wait 1000
end_if
send Right
if #hide = 1
// ???? ?? ? ????? - ???? ????? ????? ??????
wait 1000
if lastmsg been revealed
send F7
wait 500
end_if
end_if
end_if
return

// ????????? ?????? ???? ?? ????????? ??? ?????????
:razvorot
if #sdvig = 0
send Down
if #hide = 1
// ???? ?? ? ????? - ???? ????? ????? ??????
wait 1000
if lastmsg been revealed
send F7
wait 500
end_if
end_if
else
send Up
if #hide = 1
// ???? ?? ? ????? - ???? ????? ????? ??????
wait 1000
if lastmsg been revealed
send F7
wait 500
end_if
end_if
end_if



Проблема в том, что у вас пишется на русском "тут не осталось руды" а пилот не понимает если писать (ластмсг тут). Что мне делать??