Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //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 " ".
- 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".
- 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.
- }
- //keep loop open
- //altitude unobtainable
- WAIT UNTIL ship altitude > 5000000.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement