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

lib/reentry.ks

@@ -0,0 +1,26 @@
+// Automated reentry.
+// Assumes stage 0 contains only parachutes.
+// Primarily written for small science payload probes.
+
+function PerformReentry {
+  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.
+}