//Missile Launch Program
//Multi stage suborbital
//Manually set target in map mode

//Declarations and variables
LOCK Tminus TO countdown.
LOCK thrust TO ship:maxthrust.
LOCK snum TO stage:number.
SET tgt TO target.
SET s TO stack ( ).
s PUSH:("Stage 1 activated").
s PUSH:("Stage 2 activated").
s PUSH:("Stage 3 activated").
s PUSH:("Stage 4 activated").

//Gettable retention
GET stage:number.
GET eta:apoapsis.
GET tgt:lat.
GET tgt:lng.

//Access terminal and initiate sequence
PRINT "KSC Missile defense network login...".
WAIT 2.
PRINT " ".
PRINT "User: Jebediah Kerman".
WAIT 2.
PRINT " ".
PRINT "Password:************".
WAIT 5.
PRINT " ".
PRINT "Access granted".
PRINT " ".
PRINT "No Target".
WAIT 5.
PRINT " ".
PRINT "Obtaining Target".
WAIT 5.
PRINT " ".
PRINT "Target lock".
PRINT target:lat.
PRINT target:lng.
PRINT " ".
PRINT "Require: Launch code".
WAIT 5.
PRINT " ".
PRINT "S0M1V2E3M4J5S6U7N7P8".
WAIT 1.
PRINT " ".
PRINT "VERIFYING...".
WAIT 5.
PRINT " ".
PRINT "Code confirmed; systems GO".
WAIT 1.
PRINT " ".
PRINT "Arming Missile".
PRINT " ".
PRINT "Initiating launch sequence".
PRINT eta:apoapsis.
WAIT 1.

//countdown and launch sequence blocks
//steering and throttle lock
//stage all clamps and ignite main engine

{
FROM {local countdown is 10.} UNTIL countdown = 0 STEP{SET countdown TO countdown - 1.} DO {
PRINT "..." + countdown.
WAIT 1. }
}

WHEN Tminus = 7 THEN {
LOCK steering TO up.
PRINT " ".
PRINT "Guidance system activated".
PRINT " ".
PRINT "Release fuel feed clamps".
STAGE.
}

WHEN Tminus = 5 THEN {
LOCK throttle TO 1.
PRINT " ".
PRINT "Main engine ignition".
PRINT " ".
PRINT s:pop.
PRINT " ".
PRINT "Waiting for maximum thrust".
STAGE.
}

WHEN Tminus = 0 THEN {
PRINT " ".
PRINT "Missile Launch!!!".
STAGE.
}

//recurring staging loop
//set snum for current number of stages
//if last stage isn't for initial burn set to
//one stage lower
WHEN thrust = 0 THEN {
PRINT " ".
PRINT "Fairing deploy"
STAGE.
WAIT 3.
PRINT " ".
PRINT s:pop
STAGE.
PRESERVE.
IF snum = 4 THEN {
BREAK. }
}

//point nose to target latitude and longitude
//altitude 1,000 km above target
WAIT UNTIL ship:velocity:surface:mag > 100 THEN { LOCK steering TO target:latlng:altitudeposition 1000000.
}

WHEN ship altitude > 200000 THEN {
rcs on.
LOCK steering TO target:latlng:altitudeposition 5.
LOCK throttle TO 1.
}

//keep loop open
//altitude unobtainable
WAIT UNTIL ship altitude > 5000000.