Initial import

boot/mercury-return.ks

@@ -0,0 +1,39 @@
+@lazyglobal off.
+wait until ship:unpacked.
+rcs off.
+lock throttle to 0.
+
+runoncepath("0:/lib/common.ks").
+runoncepath("0:/lib/moonmath.ks").
+runoncepath("0:/lib/stage/atlas.ks").
+
+local orbit_time is 24*60*60.
+stage.
+rcs on.
+local dir is ship:prograde.
+lock steering to dir.
+wait 1.
+wait until steering_locked().
+set warpmode to "rails".
+set warp to 1.
+
+// Human can time-warp faster here if they want
+
+wait orbit_time.
+set warp to 0.
+wait 1.
+wait until kuniverse:timewarp:issettled.
+
+local retro is ship:retrograde.
+lock steering to retro.
+wait 1.
+wait until steering_locked().
+stage.
+wait 20.
+stage.
+set warpmode to "rails".
+set warp to 2.
+wait until ship:altitude < 140_000.
+lock steering to ship:retrograde.
+wait until ship:altitude < 35_000.
+stage.