added raden launch

radenLaunch.ks

@@ -0,0 +1,52 @@
+run "library/lib_math".
+
+clearScreen.
+BRAKES on.
+print "Preparing to launch".
+from { local c is 5.} until c = 0 step {set c to c - 1.} do {
+	print c.
+	wait 1.
+}
+print "Launching!".
+lock throttle to 100.
+lock steering to heading(90, 0, 0).
+
+print "Phase: Takeoff".
+wait until surfaceSpeed > 140.
+
+print "Phase: Rotate".
+lock steering to heading(90, 3, 0).
+wait 1.
+print "Gear up".
+gear off.
+
+print "Phase: Athmospheric Climb".
+lock steering to heading(90, 15, 0).
+wait until altitude > 20000.
+
+print "Phase: Mode Switch".
+ag1 on. //Switch engine mode
+lock steering to heading(90, 25, 0).
+wait until apoapsis > 80000.
+
+print "Phase: Sub-Orbital Coast".
+lock throttle to 0.
+lock steering to prograde.
+
+when altitude > 70000 then {
+	print "Deploying Solar".
+	ag2 on. //deploy solar
+	print "Opening Docking Port".
+	ag3 on. //open docking port
+}
+
+lock distToApo to apoapsis - altitude.
+wait until distToApo < 100.
+print "Phase: Circularize".
+lock throttle to 100.
+wait until periapsis > 79000.
+unlock throttle.
+
+print "In orbit. Releasing controls".
+
+