daily pastebin goal
33%
SHARE
TWEET

Untitled

a guest Jan 12th, 2018 51 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
Top