Aligallaton

kOS Script for proofing

Aug 28th, 2019
283
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.06 KB | None | 0 0
  1. CLEARSCREEN.
  2. SET state TO "On Pad".
  3. //Data that can be seen
  4. PRINT"DATA SCREEN" AT (0,16).
  5. PRINT"MISSION TIME: "+MISSIONTIME AT (0, 17).
  6. PRINT"STATUS: "+state AT (0, 18).
  7. PRINT"ALTITUDE: "+SHIP:ALTITUDE AT (0, 19).
  8. PRINT"HEADING: "+SHIP:HEADING AT (0, 20).
  9. PRINT"STAGE: "+STAGE:NUMBER AT (0, 21).
  10. PRINT"VELOCITY: "+VELOCITY AT (0, 22).
  11. PRINT"ACCELERATION: "+VESSELSENSORS:ACC AT (0, 23).
  12. PRINT"CURRENT ENGINE THRUST: "+(THROTTLE/SHIP:MAXTHRUST) AT (0,24).
  13. PRINT"APOAPSIS: "+APOAPSIS. AT (0,24).
  14. //Countdown Sequence
  15. IF countdown = 2 THEN {SET state TO "IGNITING MAIN ENGINES".STAGE.PRESERVE.}.
  16. FROM {local countdown is 10.} UNTIL countdown = 0 STEP {SET countdown to countdown - 1.} DO {
  17. WAIT 1. // pauses the script here for 1 second.
  18. SET state TO ("COUNTDOWN - " + countdown).
  19. }.
  20. //Launch and gravity turn
  21. SET MYSTEER TO HEADING(90, 90).
  22. LOCK HEADING TO MYSTEER.
  23. SET state TO ("LAUNCHED").
  24. STAGE.
  25. WHEN APOAPSIS < 80000 THEN {
  26. SET MYSTEER TO HEADING(90,90).
  27. WHEN ALTITUDE > 15000 THEN {
  28. SET MYSTEER TO HEADING(90,85).
  29. }.
  30. WHEN ALTITUDE > 20000 THEN {
  31. SET MYSTEER TO HEADING(90,80).
  32. }.
  33. WHEN ALTITUDE > 25000 THEN {
  34. SET MYSTEER TO HEADING(90,75).
  35. }.
  36. WHEN ALTITUDE > 30000 THEN {
  37. SET MYSTEER TO HEADING(90,70).
  38. }.
  39. WHEN ALTITUDE > 35000 THEN {
  40. SET MYSTEER TO HEADING(90,65).
  41. }.
  42. WHEN ALTITUDE > 40000 THEN {
  43. SET MYSTEER TO HEADING(90,60).
  44. }.
  45. WHEN ALTITUDE > 45000 THEN {
  46. SET MYSTEER TO HEADING(90,55).
  47. }.
  48. WHEN ALTITUDE > 50000 THEN {
  49. SET MYSTEER TO HEADING(90,50).
  50. }.
  51. WHEN ALTITUDE > 55000 THEN {
  52. SET MYSTEER TO HEADING(90,45).
  53. }.
  54. WHEN ALTITUDE > 60000 THEN {
  55. SET MYSTEER TO HEADING(90,40).
  56. }.
  57. }.
  58. //Engine Cutoff
  59. WHEN APOAPSIS > 80000 THEN {
  60. SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 0.
  61. SET state TO "SUBORBITAL".
  62. }.
  63. //Obirting Section
  64. WHEN ALTITUDE = (APOAPSIS-5000) THEN {
  65. SET MYSTEER TO (90,0).
  66. STAGE.
  67. WAIT UNTIL ALTITUDE = (APOAPSIS-100).
  68. LOCK THROTTLE TO 0.5.
  69. WAIT UNTIL PERIAPSIS = APOAPSIS.
  70. SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 0.
  71. }.
Advertisement
Add Comment
Please, Sign In to add comment