|
|
|
Oskom Forums Добро пожаловать на Oskom Forums.
|
-
Проблема со скриптом
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
Проблема в том, что у вас пишется на русском "тут не осталось руды" а пилот не понимает если писать (ластмсг тут). Что мне делать??
-
а зачем скидывать скрипт, если ты уже сам сформулировал проблему? - что пилот не понимает русские символы..
юзай поиск тут неоднократно были такие темы..
-
Grandmaster
Если бы отправился в спецтоп по скриптам, то нашел бы ответ на свой вопрос
http://uoo.ru/phpBB/viewtopic.php?t=145599&start=100
Ваши права
- Вы не можете создавать новые темы
- Вы не можете отвечать в темах
- Вы не можете прикреплять вложения
- Вы не можете редактировать свои сообщения
Правила форума
|