beeg sana

beegSana.ks

@@ -0,0 +1,28 @@
+run "defaults".
+
+run "poweredLanding".
+
+declare function Reentry{
+	print "Re-entry.".
+	lock steering to heading(90, 60, 0).
+	ag1 on.
+	rcs off.
+
+	wait until (groundSpeed < 500 and altitude < 11000).
+	print "Flipping.".
+	rcs on.
+	lock steering to srfRetrograde.
+}
+
+wait until (periapsis < 0 and throttle = 0).
+print "Prep for re-entry".
+sas off.
+CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
+lock steering to heading(90, 60, 0).
+wait until (altitude < 70000).
+Reentry().
+brakes on.
+Descent(200, 20).
+Landing(0, -20).
+
+