View difference between Paste ID: A0u1dhNC and V3bpYEja

-lock liquidmatched to min(ship:oxidizer * 9 / 11, ship:liquidfuel).
+
-lock NukeLiquid to max(0, ship:liquidfuel-liquidmatched).
+
-lock nukedv to Round(800 * 9.81 * ln(ship:mass / (ship:mass - (NukeLiquid * 0.005))), 5).
+    print char(7).
     set logmessage to round(missionTime,1):tostring():padleft(5) + ": " + message.
-lock oxidizermatched to min(ship:oxidizer, ship:liquidfuel * 11 / 9).
+
-lock vectordv to Round(315 * 9.81 * ln((ship:mass - (NukeLiquid * 0.005)) / ((ship:mass - (NukeLiquid * 0.005)) - (liquidmatched * 0.005) - (oxidizermatched * 0.005))), 5).
+
 
-bays off. brakes off. rcs on.
+
-function SetEngines {
+
-    parameter targetMode to "Activate Engine".
+
-    parameter engines to ship:partsdubbedpattern("vector").
+//Variables
-    for engine in engines {
+set x to 90.
-        if engine:hasmodule("ModuleEnginesFx") set m to engine:getmodule("ModuleEnginesFx").
+lock p to choose 0 if airspeed < takeoffspeed else min(60,max(0,groundspeed/5)).
-        if engine:hasmodule("ModuleEngines") set m to engine:getmodule("ModuleEngines").
+set takeoffspeed to 125.
-        if m:hasaction(targetMode) m:doaction(targetMode, true).
+set targetOrbitAltitude to body:atm:height + 1e4.
 lock angletarget to 0.
 set shipbounds to ship:bounds.
 set runwayaltradar to 4.
-function ThrustLimit {
+lock vlimit to max(0,(-verticalspeed + (runwayaltradar-shipbounds:bottomaltradar))*100).
-    parameter targetEngines.
+
-    parameter targetThrust.
+
-    for eng in targetEngines set eng:thrustlimit to targetThrust.
+
 set maxCircEta to 50.
 set chaseSpeed to 350.
-function SetAngle {
+set turboSpeed to 300.
-    parameter targetangle.
+set autoVectoring to true.
-    for s in servos if s:hasfield("target angle") s:setfield("target angle", targetangle).
+set minheight to 0.
 circularizing off.
 
 //Triggers
 when shipbounds:bottomaltradar > 0.5 and abs(steeringmanager:angleerror) < 5 then {
     info("engage dynamic servo").
-    set logmessage to round(missionTime,1) + ": " + message.
+
     lock angletarget to max(0, min(90,100 - ((-verticalspeed + (runwayaltradar-shipbounds:bottomaltradar)/1.5)*100))).
 }
 when shipbounds:bottomaltradar > 1 and ship:verticalspeed < 1 then {
     info("Capture starting height").
-copypath("0:","1:").
+    set minheight to shipbounds:bottomaltradar.
 }
 
 when true then {
     if(shipbounds:bottomaltradar < minheight) set minheight to shipbounds:bottomaltradar.
-set takeoffspeed to 100.
+
-set targetOrbitAltitude to 101e3.
+
     ThrustLimit(vectors, vlimitcopy).
-set vectors to ship:partsdubbedpattern("vector").
+
-set nukes to ship:partsdubbedpattern("nuc").
+    return autoVectoring.
-set servos to ship:modulesnamed("ModuleRoboticRotationServo").
+
-lock p to choose 0 if airspeed < takeoffspeed else min(25,max(0,groundspeed/7.5)).
+
-lock steering to heading(90,p).
+when airspeed > takeoffspeed then {
-wait 0.5.
+    info("Vector Power Climb").
-SetEngines("Activate Engine", vectors).
+    lock vlimit to 100.
     lock p to 60.
 }
-when altitude > 72 and abs(steeringmanager:angleerror) < 5 then {
+
 when apoapsis > 1000 then {
     info("will clear mountain, locking to surface prograde").
-    lock angletarget to max(0, min(90,100 - ((-verticalspeed + (80-altitude)/1.5)*100))).
+    lock p to max(10,vang(srfprograde:vector,heading(90,0):vector)).
-    //set p to 10.
+
 
 when airspeed > turboSpeed then {
-info("initialize vtols").
+    info("Resume Airbreathing Flight").
-lock vlimit to (-verticalspeed + (80-altitude))*100.
+    shutoff(vectors).
     set vlimit to 100.
     set angletarget to 90.
 
-when abs(vang(ship:facing:vector, heading(90,0):vector)) < 5 then {
+    autoVectoring off.
-     SetEngines("Activate Engine", ship:partsdubbedpattern("turbofan")).
+
 
 
-until vlimit < 0 {
+
     info("engage nukes").
     startup(nukes).
     lock p to 15.
 }
-    print "   v thrust: " + vlimitcopy at (0,0).
+
-    print "servo angle: " + anglecopy at (0,1).
+
-    print "          p: " + p at (0,2).
+
-    wait 0.
+    lock p to min(35,airspeed/50).
     startup(vectors).
     ThrustLimit(vectors, 100).
-info("store vtols").
+
-SetEngines("Shutdown Engine", vectors).
+
 when apoapsis >= targetOrbitAltitude-5e3 then {
-SetAngle(90).
+    info("locking to surface prograde").
-print "   v thrust: " + vlimitcopy at (0,0).
+
-print "servo angle: " + anglecopy at (0,1).
+
-info("gain speed").
+
 when ship:oxidizer < 3750 then {
-lock p to max(aoa+0.5,min(45, aoa+(airspeed-400)/5 )).
+
     shutoff(vectors).
-when altitude > 8000 then {
+
-    info("go faster").
+
 when apoapsis >= targetOrbitAltitude then {
     info("warping to space").
-when altitude > 8000 and p < 10 then set p to 10.
+
     shutoff(turbos).
 
     lock throttle to 0.
-    SetEngines("Activate Engine", nukes).
+
-    set p to 15.
+
 }
 
 when (altitude >= body:atm:height and (periapsis > body:atm:height or ship:verticalspeed > 0)) then {
 
-    lock p to airspeed/50.
+
-    SetEngines("Activate Engine", vectors).
+
     wait until kuniverse:timewarp:issettled.
     set warpmode to "rails".
-when altitude > 20000 and p > 30 then lock p to 30.
+
     lock throttle to 1.
 }
 
 
-    SetEngines("Shutdown Engine", vectors).
+
     info("prep for circularization").
     set warp to 0.
     lock throttle to 0.
-    info("lock surface prograde").
+    shutoff(turbos).
     shutoff(vectors).
     startup(nukes).
 
-when altitude > 50e3 then {
+    lock throttle to periapsis < body:atm:height.
-    lock p to vang(prograde:vector,heading(90,0):vector).
+    lock p to max(0,min(60,-verticalspeed)).
 
 }
 
 when eta:apoapsis < maxCircEta and altitude > body:atm:height and apoapsis > targetOrbitAltitude then {
 
-    SetEngines("Shutdown Engine", ship:partsdubbedpattern("turbofan")).
+    info("Final circularization").
     rcs on.
     set circularizing to true.
     lock desiredVel to vxcl(up:vector,velocity:orbit):normalized * sqrt(body:MU/(body:Radius + altitude)).
     lock dV to desiredVel - velocity:orbit.
     lock steering to lookdirup(dV, ship:facing:topvector).
 }
 
 when circularizing then {
     if vang(facing:vector,dV) > 10 {
         lock throttle to 0.
     } else {
         lock throttle to dv:mag / 2.
     }
-    lock throttle to choose (targetOrbitAltitude - apoapsis)/10 if apoapsis - periapsis > 10 else 0.
+    if dv:mag > 0.3 {
         return true.
     } else {
         info("circularize complete").
-
+        lock throttle to 0.
         set circularizing to false.
-    list engines in es. for e in es e:shutdown().
+        rcs off.
-    SetEngines("Activate Engine", nukes).
+
-    if(apoapsis - periapsis > 10) {
+        info("Final Stats: ").
-        info("need to circularize").
+        info("apoapsis " + apoapsis).
-        set warpmode to "rails".
+        info("periapsis " + periapsis).
-        set warp to 1.
+        info("liquidfuel " + ship:liquidfuel).
-        wait 1.
+        info("oxidizer" + ship:oxidizer).
-        warpto(time:Seconds + eta:apoapsis - 50).
+
-        wait until eta:apoapsis < 50.
+    return circularizing.
-        info("circularizing").
+}
-        set circularizing to true.
+
-        lock desiredVel to vxcl(up:vector,velocity:orbit):normalized * sqrt(body:MU/(body:Radius + altitude)).
+//Settings
-        lock dV to desiredVel - velocity:orbit.
+
-        lock steering to lookdirup(dV, ship:facing:topvector).
+
-        when circularizing then {
+//Flight
-            if vang(facing:vector,dV) > 10 {
+bays off.
-                lock throttle to 0.
+brakes off.
-            } else {
+startup(vectors).
-                lock throttle to dv:mag / 2.
+startup(turbos).
-            }
+
-            if dv:mag > 0.3 {
+lock steering to heading(x,p).
-                return true.
+
-            } else {
+
-                info("circularize complete").
+
-                lock throttle to 0.
+
-                set circularizing to false.
+info("non-blocking").