daily pastebin goal
61%
SHARE
TWEET

Untitled

a guest Jan 12th, 2018 52 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. // CREATED BY HANS SCHÜLEIN
  2.  
  3. // PRELAUNCH
  4. SET landingpad TO SHIP:GEOPOSITION.
  5. SET controllerheight TO SHIP:ALTITUDE - landingpad:TERRAINHEIGHT.
  6. LOCK h_d TO SHIP:ALTITUDE - landingpad:TERRAINHEIGHT - controllerheight.
  7.  
  8.  
  9. // COUNTDOWN
  10. FROM {LOCAL countdown is 10.} UNTIL countdown = 0 STEP {SET countdown TO countdown - 1.} DO {
  11.     PRINT countdown.
  12.     WAIT 1.
  13. }
  14.  
  15.  
  16. // LAUNCH
  17. LOCK THROTTLE TO 1.
  18. LOCK STEERING TO UP.
  19. STAGE.
  20. PRINT("LAUNCH").
  21.  
  22.  
  23. // ASCENT
  24. WAIT 4.
  25. LOCK THROTTLE TO 0.
  26. PRINT("SHUTDOWN").
  27. WAIT UNTIL SHIP:VERTICALSPEED < 0.
  28. PRINT("APOAPSIS").
  29.  
  30.  
  31. // "DUMB" SUICIDE BURN
  32. WAIT UNTIL h_d + SHIP:VERTICALSPEED/CONFIG:IPU < 0.5 * ( SHIP:VERTICALSPEED ^ 2 / (SHIP:MAXTHRUST / SHIP:MASS - 9.81)).
  33. PRINT("SUICIDE BURN IGNITION").
  34. RCS ON.
  35. LOCK THROTTLE TO 1.
  36. LOCK STEERING TO UP.
  37. IF NOT GEAR { TOGGLE GEAR.}
  38.  
  39.  
  40. // TOUCHDOWN
  41. WAIT UNTIL SHIP:VERTICALSPEED > 0.
  42. PRINT("TOUCHDOWN").
  43. PRINT(" ").
  44. LOCK THROTTLE TO 0.
  45. SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 0.
  46. RCS OFF.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top