Advertisement
Guest User

Untitled

a guest
Oct 29th, 2015
257
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.39 KB | None | 0 0
  1. PRINT "Faulty Software Systems Inc.".
  2. PRINT "Counting down:".
  3. FROM {local countdown is 10.} UNTIL countdown = 0 STEP {SET countdown to countdown - 1.} do {
  4. PRINT "..." + countdown.
  5. WAIT 1.
  6. }
  7.  
  8. PRINT "Takeoff".
  9. LOCK THROTTLE TO 1.0.
  10. WAIT 2.
  11.  
  12. WHEN SHIP:MAXTHRUST = 0 THEN {
  13. PRINT "Staging.".
  14. STAGE.
  15. PRESERVE.
  16. }
  17. WAIT UNTIL SHIP:ALTITUDE > 5000.
  18. PRINT "Starting gravity turn.".
  19. LOCK STEERING TO HEADING (90,85).
  20. WAIT UNTIL SHIP:ALTITUDE > 10000.
  21. PRINT "Easing the ship down.".
  22. LOCK STEERING TO HEADING (90,80).
  23. WAIT UNTIL SHIP:ALTITUDE > 15000.
  24. PRINT "Easing the ship down.".
  25. LOCK STEERING TO HEADING (90,70).
  26. WAIT UNTIL SHIP:ALTITUDE > 20000.
  27. PRINT "Easing the ship down.".
  28. LOCK STEERING TO HEADING (90,60).
  29. WAIT UNTIL SHIP:ALTITUDE > 25000.
  30. PRINT "Easing the ship down.".
  31. LOCK STEERING TO HEADING (90,50).
  32. WAIT UNTIL SHIP:ALTITUDE > 30000.
  33. PRINT "Easing the ship down.".
  34. LOCK STEERING TO HEADING (90,35).
  35. WAIT UNTIL SHIP:ALTITUDE > 35000.
  36. PRINT "Easing the ship down.".
  37. LOCK STEERING TO HEADING (90,15).
  38. WAIT UNTIL SHIP:ALTITUDE > 40000.
  39. PRINT "Circularizing now.".
  40. LOCK STEERING TO HEADING (90,0).
  41.  
  42. WAIT UNTIL APOAPSIS > 100000.
  43. LOCK THROTTLE TO 0.0.
  44. LOCK STEERING TO HEADING (90,0).
  45. WAIT UNTIL ETA:APOAPSIS < 15.
  46. LOCK THROTTLE TO 1.0.
  47. WAIT UNTIL PERIAPSIS > 95000.
  48. LOCK THROTTLE TO 0.0.
  49. PRINT "Wait...this thing worked?".
  50. UNLOCK STEERING.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement