Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CLEARSCREEN.
- SET state TO "On Pad".
- //Data that can be seen
- PRINT"DATA SCREEN" AT (0,16).
- PRINT"MISSION TIME: "+MISSIONTIME AT (0, 17).
- PRINT"STATUS: "+state AT (0, 18).
- PRINT"ALTITUDE: "+SHIP:ALTITUDE AT (0, 19).
- PRINT"HEADING: "+SHIP:HEADING AT (0, 20).
- PRINT"STAGE: "+STAGE:NUMBER AT (0, 21).
- PRINT"VELOCITY: "+VELOCITY AT (0, 22).
- PRINT"ACCELERATION: "+VESSELSENSORS:ACC AT (0, 23).
- PRINT"CURRENT ENGINE THRUST: "+(THROTTLE/SHIP:MAXTHRUST) AT (0,24).
- PRINT"APOAPSIS: "+APOAPSIS. AT (0,24).
- //Countdown Sequence
- IF countdown = 2 THEN {SET state TO "IGNITING MAIN ENGINES".STAGE.PRESERVE.}.
- FROM {local countdown is 10.} UNTIL countdown = 0 STEP {SET countdown to countdown - 1.} DO {
- WAIT 1. // pauses the script here for 1 second.
- SET state TO ("COUNTDOWN - " + countdown).
- }.
- //Launch and gravity turn
- SET MYSTEER TO HEADING(90, 90).
- LOCK HEADING TO MYSTEER.
- SET state TO ("LAUNCHED").
- STAGE.
- WHEN APOAPSIS < 80000 THEN {
- SET MYSTEER TO HEADING(90,90).
- WHEN ALTITUDE > 15000 THEN {
- SET MYSTEER TO HEADING(90,85).
- }.
- WHEN ALTITUDE > 20000 THEN {
- SET MYSTEER TO HEADING(90,80).
- }.
- WHEN ALTITUDE > 25000 THEN {
- SET MYSTEER TO HEADING(90,75).
- }.
- WHEN ALTITUDE > 30000 THEN {
- SET MYSTEER TO HEADING(90,70).
- }.
- WHEN ALTITUDE > 35000 THEN {
- SET MYSTEER TO HEADING(90,65).
- }.
- WHEN ALTITUDE > 40000 THEN {
- SET MYSTEER TO HEADING(90,60).
- }.
- WHEN ALTITUDE > 45000 THEN {
- SET MYSTEER TO HEADING(90,55).
- }.
- WHEN ALTITUDE > 50000 THEN {
- SET MYSTEER TO HEADING(90,50).
- }.
- WHEN ALTITUDE > 55000 THEN {
- SET MYSTEER TO HEADING(90,45).
- }.
- WHEN ALTITUDE > 60000 THEN {
- SET MYSTEER TO HEADING(90,40).
- }.
- }.
- //Engine Cutoff
- WHEN APOAPSIS > 80000 THEN {
- SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 0.
- SET state TO "SUBORBITAL".
- }.
- //Obirting Section
- WHEN ALTITUDE = (APOAPSIS-5000) THEN {
- SET MYSTEER TO (90,0).
- STAGE.
- WAIT UNTIL ALTITUDE = (APOAPSIS-100).
- LOCK THROTTLE TO 0.5.
- WAIT UNTIL PERIAPSIS = APOAPSIS.
- SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 0.
- }.
Advertisement
Add Comment
Please, Sign In to add comment