fixed burn time calculations for multi stage burns

2026-04-19 21:52:07 -04:00
parent 9a4ae5e472
commit 7431ab7946
13 changed files with 221 additions and 155 deletions
@@ -0,0 +1,39 @@
+
+
+import("library/lib_ascent").
+
+WaitForEngineStart().
+
+CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
+
+set profile to 1.2.
+set turn_start to 1000.
+set target_orbit to 100000.
+
+Ascent(target_orbit, turn_start, profile, 1).
+wait 3.
+
+lock steering to retrograde.
+wait 10.
+lock throttle to 1.
+wait until ship:deltav:current <= 0.
+wait 0.01.
+stage.
+
+set kuniverse:timewarp:rate to 10.
+wait until kuniverse:timewarp:rate = 0.
+
+lock steering to srfRetrograde.
+
+wait until surfaceSpeed < 1000.
+
+unlock steering.
+set kuniverse:timewarp:rate to 5.
+
+wait until ship:status = "LANDED" or ship:status = "SPLASHED".
+
+SET V0 TO GETVOICE(0). 
+V0:PLAY( NOTE(400, 2.5) ).
+
+CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Close Terminal").
+SHUTDOWN.