Первые шаги в kOS (учебник)

CLEARSCREEN. PRINT "==HELLO WORLD==".

EDIT HELLO.

PRINT "=========================================".
PRINT "      HELLO WORLD".
PRINT "THIS IS MY FIRST SCRIPT IN kOS.".
PRINT "=========================================".

• Заметка на полях: Шрифт редактора - Опытные программисты могут заметить, что в редакторе используется пропорциональный шрифт, а не моноширинный, что не идеально для программирования. Вы правы, но с этим ничего нельзя поделать ввиду множества технических причин, которые слишком сложны, что бы сейчас в них вникать.
  

RUN HELLO.

LIST FILES.

SWITCH TO 0.
EDIT HELLO2.  //создайте новый файл, который просто говорит: PRINT "hi again".
LIST FILES.
RUN HELLO2.
SWITCH TO 1.
LIST FILES.
RUN HELLO.

• [url=http://]Тома[/url]
  
• [url=http://]Управление файлами[/url]
  

• Используются ТОЛЬКО жидкостные двигатели. В этом примере будет предполагаться именно этот случай. kOS может работать и с твердотопливными ускорителями, но ради простоты примера, мы будем использовать только жидкостные.
  
• Правильный список ступеней. (Убедитесь, что вам не нужно вручную кликать правой клавишей по частям, что бы запустить следующую ступень, а так же нет нужды для этого использовать Action Groups).
  
• Убедитесь, что корабль имеет достаточные средства стабилизации, что бы не болтаться сильно.
  
• Корабль должен содержать, по меньшей мере, следующие детали:
  
  • Батарея, емкостью не менее 400 единиц
    
  • Возможность зарядки, эквивалентная хотя бы 6 солнечным панелям или одному РИТЭГу
    
  • Деталь kOS SCS где-то ближе к верхушке, где она не будет отстрелена вместе с одной из ступеней

// Мой первый лончер
//
SET countdown TO 10.
PRINT "Counting down:".
UNTIL countdown = 0 {
PRINT "..." + countdown.
SET countdown TO countdown - 1.
WAIT 1. // Ставит скрипт на паузу на 1 секунду
}.

SWITCH TO 0.
LIST FILES.

SWITCH TO 1.
COPY HELLOLAUNCH FROM 0.
RUN HELLOLAUNCH.

// Мой первый лончер.
//
SET countdown TO 10.
PRINT "Counting down:".
UNTIL countdown = 0 {
  PRINT "..." + countdown.
  SET countdown TO countdown - 1.
  WAIT 1. // Ставит здесь скрипт на паузу на одну секунду.
}.
PRINT "Main throttle up.  2 seconds to stabalize it.".
LOCK THROTTLE TO 1.0.   // 1.0 это максимум, 0.0 это отсутствие.
WAIT 2. // даем время тяге выровняться.
UNTIL SHIP:MAXTHRUST > 0 {
  WAIT 0.5. // Пауза в пол секунды между попытками откинуть ступень.
  PRINT "Stage activated.".
  STAGE. // То же самое, что нажать ПРОБЕЛ.
}.
WAIT UNTIL SHIP:ALTITUDE > 70000. // Пауза, пока корабль не наберет достаточную высоту.
//
// Обратите внимание, что важно не дать скрипту завершить работу
// прямо здесь. Как только kOS закончит выполнение скрипта, он "отпустит"
// все управление для ручного пилотирования, что бы вы смогли вручную
// управлять своей ракетой. Если программа просто закончится здесь, 
// это может привести к падению тяги до нуля.

COPY HELLOLAUNCH FROM 0.
RUN HELLOLAUNCH.

LOCK STEERING TO UP.

// Мой первый лончер.
//
SET countdown TO 10.
PRINT "Counting down:".
UNTIL countdown = 0 {
  PRINT "..." + countdown.
  SET countdown TO countdown - 1.
  WAIT 1. // Ставит здесь скрипт на паузу на одну секунду.
}.
PRINT "Main throttle up.  2 seconds to stabalize it.".
LOCK THROTTLE TO 1.0.   // 1.0 это максимум, 0.0 это отсутствие.
//
//
LOCK STEERING TO UP.
//
//
WAIT 2. // даем время тяге выровняться.
UNTIL SHIP:MAXTHRUST > 0 {
  WAIT 0.5. // Пауза в пол секунды между попытками откинуть ступень.
  PRINT "Stage activated.".
  STAGE. // То же самое, что нажать ПРОБЕЛ.
}.
WAIT UNTIL SHIP:ALTITUDE > 70000. // Пауза, пока корабль не наберет достаточную высоту.
//
// Обратите внимание, что важно не дать скрипту завершить работу
// прямо здесь. Как только kOS закончит выполнение скрипта, он "отпустит"
// все управление для ручного пилотирования, что бы вы смогли вручную
// управлять своей ракетой. Если программа просто закончится здесь, 
// это может привести к падению тяги до нуля.

SWITCH TO 1. //Уже пора бы привыкнуть ;)
COPY HELLOLAUNCH FROM 0.
RUN HELLOLAUNCH.

WHEN STAGE:LIQUIDFUEL < 0.001 THEN {
PRINT "No liquidfuel. Attempting to stage.".
STAGE.
PRESERVE.
}.

// Мой первый лончер.
//
SET countdown TO 10.
PRINT "Counting down:".
UNTIL countdown = 0 {
PRINT "..." + countdown.
SET countdown TO countdown - 1.
WAIT 1. // Ставит здесь скрипт на паузу на одну секунду.
}.
PRINT "Main throttle up.  2 seconds to stabalize it.".
LOCK THROTTLE TO 1.0.   // 1.0 это максимум, 0.0 это отсутствие.
//
//
LOCK STEERING TO UP.
//
//
WAIT 2. // даем время тяге выровняться.
WHEN STAGE:LIQUIDFUEL < 0.001 THEN {
PRINT "No liquidfuel. Attempting to stage.".
STAGE.
PRESERVE.
}.
WAIT UNTIL SHIP:ALTITUDE > 70000. // Пауза, пока корабль не наберет достаточную высоту.
//
// Обратите внимание, что важно не дать скрипту завершить работу
// прямо здесь. Как только kOS закончит выполнение скрипта, он "отпустит"
// все управление для ручного пилотирования, что бы вы смогли вручную
// управлять своей ракетой. Если программа просто закончится здесь, 
// это может привести к падению тяги до нуля.

• Летим прямо до высоты 10000 метров.
  
• Поворачиваем на 45 градусов вниз на восток до высоты в 40000 метров.
  
• Ускоряемся горизонтально на восток после этого.
  

• Направиться по компасу на A.
  
• Отклониться вверх от уровня горизонта на B градусов.
  

WHEN SHIP:ALTITUDE > 10000 THEN {
PRINT "Starting turn. Aiming to 45 degree pitch.".
LOCK STEERING TO HEADING(90,45). //на восток, тангаж 45 градусов.
}.
WHEN SHIP:ALTITUDE > 40000 THEN {
PRINT "Starting flat part. Aiming to horizon.".
LOCK STEERING TO HEADING(90,0). //на восток, горизонтально.
}.

// Мой первый лончер.
//
WHEN SHIP:ALTITUDE > 10000 THEN {
PRINT "Starting turn. Aiming to 45 degree pitch.".
LOCK STEERING TO HEADING(90,45). //на восток, тангаж 45 градусов.
}.
WHEN SHIP:ALTITUDE > 40000 THEN {
PRINT "Starting flat part. Aiming to horizon.".
LOCK STEERING TO HEADING(90,0). //на восток, горизонтально.
}.
SET countdown TO 10.
PRINT "Counting down:".
UNTIL countdown = 0 {
PRINT "..." + countdown.
SET countdown TO countdown - 1.
WAIT 1. // Ставит здесь скрипт на паузу на одну секунду.
}.
PRINT "Main throttle up.  2 seconds to stabalize it.".
LOCK THROTTLE TO 1.0.   // 1.0 это максимум, 0.0 это отсутствие.
//
//
LOCK STEERING TO UP.
//
//
WAIT 2. // даем время тяге выровняться.
WHEN STAGE:LIQUIDFUEL < 0.001 THEN {
PRINT "No liquidfuel. Attempting to stage.".
STAGE.
PRESERVE.
}.
WAIT UNTIL SHIP:ALTITUDE > 70000. // Пауза, пока корабль не наберет достаточную высоту.
//
// Обратите внимание, что важно не дать скрипту завершить работу
// прямо здесь. Как только kOS закончит выполнение скрипта, он "отпустит"
// все управление для ручного пилотирования, что бы вы смогли вручную
// управлять своей ракетой. Если программа просто закончится здесь, 
// это может привести к падению тяги до нуля.