Advertisement
Guest User

Simple KSP Launch script for 100k Satellites.

a guest
Dec 24th, 2017
172
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 1.20 KB | None | 0 0
  1. CLEARSCREEN.
  2.  
  3. LOCK THROTTLE TO 1.0.
  4. PRINT "Counting Down...".
  5. FROM {local countdown is 10.} UNTIL countdown = 0 STEP {SET countdown to countdown - 1.} do {
  6.    PRINT "..." + countdown.
  7.    WAIT 1.
  8. }
  9. PRINT "LIFT OFF!".
  10.  
  11. WHEN SHIP:MAXTHRUST = 0 THEN {
  12.    Print "Staging.".
  13.    STAGE.
  14.    PRESERVE.
  15. }
  16.  
  17. SET MYSTEER to HEADING(90,90).
  18. LOCK STEERING TO MYSTEER.
  19.  
  20. SET TARVEL to 100.
  21. SET TARHEAD to 90.
  22.  
  23. UNTIL APOAPSIS > 100000 {
  24.    IF SHIP:VELOCITY:SURFACE:MAG < TARVEL {
  25.       SET MYSTEER TO HEADING(90,TARHEAD).
  26.    } ELSE {
  27.       SET TARVEL to TARVEL + 100.
  28.       SET TARHEAD to TARHEAD - 8.
  29.       IF TARHEAD < 0 {
  30.          SET TARHEAD to 0.
  31.       } ELSE {
  32.          //PRINT "Set New Pitch " + TARGEAD.
  33.       }
  34.    }
  35. }
  36.  
  37. PRINT "Desired AP Achieved. Start Coast".
  38. //Coast to AP
  39. LOCK THROTTLE to 0.0.
  40.  
  41.  
  42. UNTIL SHIP:ALTITUDE > 77000 {
  43.    wait 1.
  44. }
  45. PRINT "Blow Protective Payload Shell".
  46. STAGE. //Blow Protective Shell
  47.  
  48. UNTIL PERIAPSIS > 100000 {
  49.    LOCK STEERING TO HEADING(90,0).
  50.    IF APOAPSIS < 100000 {
  51.       LOCK THROTTLE to 0.5.
  52.    } ELSE IF APOAPSIS >= 100000 AND ETA:APOAPSIS > 12 {
  53.       LOCK THROTTLE to 0.0.
  54.    } IF ETA:APOAPSIS <= 7 {
  55.       LOCK THROTTLE to 1.0.
  56.    }
  57.    
  58. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement