103 lines
4.0 KiB
Plaintext
103 lines
4.0 KiB
Plaintext
//First, we'll clear the terminal screen to make it look nice
|
|
CLEARSCREEN.
|
|
|
|
NOTIFY("Software loaded and ready to takeoff.").
|
|
|
|
//Next, we'll lock our throttle to 100%.
|
|
LOCK THROTTLE TO 1.0. // 1.0 is the max, 0.0 is idle.
|
|
|
|
//This is our countdown loop, which cycles from 10 to 0
|
|
PRINT "Counting down:".
|
|
FROM {local countdown is 10.} UNTIL countdown = 0 STEP {SET countdown to countdown - 1.} DO {
|
|
PRINT "..." + countdown.
|
|
WAIT 1. // pauses the script here for 1 second.
|
|
}
|
|
|
|
//This is a trigger that constantly checks to see if our thrust is zero.
|
|
//If it is, it will attempt to stage and then return to where the script
|
|
//left off. The PRESERVE keyword keeps the trigger active even after it
|
|
//has been triggered.
|
|
WHEN MAXTHRUST = 0 THEN {
|
|
NOTIFY("Staging").
|
|
STAGE.
|
|
PRESERVE.
|
|
}.
|
|
|
|
//This will be our main control loop for the ascent. It will
|
|
//cycle through continuously until our apoapsis is greater
|
|
//than 100km. Each cycle, it will check each of the IF
|
|
//statements inside and perform them if their conditions
|
|
//are met
|
|
SET MYSTEER TO HEADING(90,90).
|
|
LOCK STEERING TO MYSTEER. // from now on we'll be able to change steering by just assigning a new value to MYSTEER
|
|
UNTIL SHIP:APOAPSIS > 100000 { //Remember, all altitudes will be in meters, not kilometers
|
|
|
|
//For the initial ascent, we want our steering to be straight
|
|
//up and rolled due east
|
|
IF SHIP:VELOCITY:SURFACE:MAG < 100 {
|
|
//This sets our steering 90 degrees up and yawed to the compass
|
|
//heading of 90 degrees (east)
|
|
SET MYSTEER TO HEADING(90,90).
|
|
|
|
//Once we pass 100m/s, we want to pitch down ten degrees
|
|
} ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 100 AND SHIP:VELOCITY:SURFACE:MAG < 200 {
|
|
SET MYSTEER TO HEADING(90,80).
|
|
NOTIFY("Pitching to 80 degrees").
|
|
PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).
|
|
|
|
//Each successive IF statement checks to see if our velocity
|
|
//is within a 100m/s block and adjusts our heading down another
|
|
//ten degrees if so
|
|
} ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 200 AND SHIP:VELOCITY:SURFACE:MAG < 300 {
|
|
SET MYSTEER TO HEADING(90,70).
|
|
NOTIFY("Pitching to 70 degrees").
|
|
PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).
|
|
|
|
} ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 300 AND SHIP:VELOCITY:SURFACE:MAG < 400 {
|
|
SET MYSTEER TO HEADING(90,60).
|
|
NOTIFY("Pitching to 60 degrees").
|
|
PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).
|
|
STAGE.
|
|
|
|
} ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 400 AND SHIP:VELOCITY:SURFACE:MAG < 500 {
|
|
SET MYSTEER TO HEADING(90,50).
|
|
NOTIFY("Pitching to 50 degrees").
|
|
PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).
|
|
|
|
} ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 500 AND SHIP:VELOCITY:SURFACE:MAG < 600 {
|
|
SET MYSTEER TO HEADING(90,40).
|
|
NOTIFY("Pitching to 40 degrees").
|
|
PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).
|
|
STAGE.
|
|
|
|
} ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 600 AND SHIP:VELOCITY:SURFACE:MAG < 700 {
|
|
SET MYSTEER TO HEADING(90,30).
|
|
NOTIFY("Pitching to 30 degrees").
|
|
PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).
|
|
|
|
} ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 700 AND SHIP:VELOCITY:SURFACE:MAG < 800 {
|
|
SET MYSTEER TO HEADING(90,11).
|
|
NOTIFY("Pitching to 20 degrees").
|
|
PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).
|
|
|
|
//Beyond 800m/s, we can keep facing towards 10 degrees above the horizon and wait
|
|
//for the main loop to recognize that our apoapsis is above 100km
|
|
} ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 800 {
|
|
SET MYSTEER TO HEADING(90,10).
|
|
NOTIFY("Pitching to 10 degrees").
|
|
PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).
|
|
|
|
}.
|
|
|
|
}.
|
|
|
|
NOTIFY("100km apoapsis reached, cutting throttle").
|
|
|
|
//At this point, our apoapsis is above 100km and our main loop has ended. Next
|
|
//we'll make sure our throttle is zero and that we're pointed prograde
|
|
LOCK THROTTLE TO 0.
|
|
|
|
//This sets the user's throttle setting to zero to prevent the throttle
|
|
//from returning to the position it was at before the script was run.
|
|
SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 0.
|