Refactor reentry into a library and make it usable by rocket.ks

prog/reentry.ks

@@ -4,23 +4,5 @@
 
 @lazyglobal off.
 
-SAS off.
-
-// stage until only stage 0 remains.
-until STAGE:NUMBER <= 1 {
-  stage.
-}
-
-lock STEERING to SHIP:SRFRETROGRADE.
-
-for p in SHIP:PARTS {
-  if p:MODULES:Find("ModuleRTAntenna") > -1 and p:GetModule("ModuleRTAntenna"):ALLEVENTNAMES:Find("Deactivate") > -1 {
-    p:GetModule("ModuleRTAntenna"):DoEvent("Deactivate").
-  }
-}
-
-when SHIP:ALTITUDE - SHIP:GEOPOSITION:TERRAINHEIGHT < 2500 then {
-  CHUTES on.
-}
-
-wait until false.
+runoncepath("/lib/reentry").
+PerformReentry().

prog/rocket.ks

@@ -6,6 +6,7 @@ runoncepath("/lib/throttle").
 runoncepath("/lib/stabilize_rocket").
 runoncepath("/lib/launch_rocket").
 runoncepath("/lib/sensors").
+runoncepath("/lib/reentry").
 
 clearguis().
 
@@ -71,6 +72,17 @@ MakeMenu(
   }
 ).
 
+MakeMenu(
+  stk,
+  MakeButton(rows[1], "REENTRY"),
+  List(),
+  "Execute",
+  {
+    parameter options.
+    PerformReentry().
+  }
+).
+  
 MakeButton(rows[1], "HOVER", { Hover(). }).
 MakeButton(rows[1], "LAND", { Land(). }).