View difference between Paste ID: Ks6HvtaA 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).
 
 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").
     for engine in engines {
         if engine:hasmodule("ModuleEnginesFx") set m to engine:getmodule("ModuleEnginesFx").
         if engine:hasmodule("ModuleEngines") set m to engine:getmodule("ModuleEngines").
         if m:hasaction(targetMode) m:doaction(targetMode, true).
     }
 }
 
 function ThrustLimit {
     parameter targetEngines.
     parameter targetThrust.
     for eng in targetEngines set eng:thrustlimit to targetThrust.
 }
 
 function SetAngle {
     parameter targetangle.
     for s in servos if s:hasfield("target angle") s:setfield("target angle", targetangle).
 }
 
 function info {
     parameter message.
 
     set logmessage to round(missionTime,1) + ": " + message.
     print logmessage.
 }
 
 
 copypath("0:","1:").
 for i in range(terminal:height-3) Print "":padright(terminal:width).
 
 set steeringmanager:rollcontrolanglerange to 180.
 
-set takeoffspeed to 100.
+set takeoffspeed to 200.
-set targetOrbitAltitude to 101e3.
+set targetOrbitAltitude to body:atm:height + 10e3.
 
 set vectors to ship:partsdubbedpattern("vector").
 set nukes to ship:partsdubbedpattern("nuc").
 set servos to ship:modulesnamed("ModuleRoboticRotationServo").
-lock p to choose 0 if airspeed < takeoffspeed else min(25,max(0,groundspeed/7.5)).
+lock p to choose 5 if airspeed < takeoffspeed else min(25,max(0,groundspeed/7.5)).
 lock steering to heading(90,p).
-wait 0.5.
+
 SetEngines("Activate Engine", vectors).
 lock throttle to targetOrbitAltitude-apoapsis.
-lock angletarget to 0.
+lock angletarget to 5.
-when altitude > 72 and abs(steeringmanager:angleerror) < 5 then {
+
 set runwayheight to 20.
 when alt:Radar > runwayheight-1 then {
-    lock angletarget to max(0, min(90,100 - ((-verticalspeed + (80-altitude)/1.5)*100))).
+
-    //set p to 10.
+
     lock angletarget to max(5, min(90,100 - ((-verticalspeed + (runwayheight-alt:radar)/1.5)*100))).
 
 }
-lock vlimit to (-verticalspeed + (80-altitude))*100.
+
 info("initialize vtols").
 lock vlimit to (-verticalspeed + (runwayheight-alt:radar))*100.
 set vlimitcopy to vlimit.
-when abs(vang(ship:facing:vector, heading(90,0):vector)) < 5 then {
+
 
 when abs(vang(ship:facing:vector, heading(90,0):vector)) < 6 then {
      SetEngines("Activate Engine", ship:partsdubbedpattern("turbofan")).
 }
 
 until vlimit < 0 {
     set vlimitcopy to vlimit.
     set anglecopy to angletarget.
     ThrustLimit(vectors, vlimitcopy).
     SetAngle(anglecopy).
     print "   v thrust: " + vlimitcopy at (0,0).
     print "servo angle: " + anglecopy at (0,1).
     print "          p: " + p at (0,2).
     wait 0.
 }
 
 info("store vtols").
 SetEngines("Shutdown Engine", vectors).
 
 SetAngle(90).
 print "   v thrust: " + vlimitcopy at (0,0).
 print "servo angle: " + anglecopy at (0,1).
 info("gain speed").
 lock aoa to vang(srfprograde:vector, ship:facing:vector).
 lock p to max(aoa+0.5,min(45, aoa+(airspeed-400)/5 )).
 
 when altitude > 8000 then {
     info("go faster").
     lock p to vang(srfprograde:vector,heading(90,0):vector).
 }
 when altitude > 8000 and p < 10 then set p to 10.
 
 when altitude > 14000 then {
     info("engage nukes").
     SetEngines("Activate Engine", nukes).
     set p to 15.
 }
 
 when altitude > 20000 then {
     info("push to orbit").
     lock p to airspeed/50.
     SetEngines("Activate Engine", vectors).
     ThrustLimit(vectors, 100).
 }
 when altitude > 20000 and p > 30 then lock p to 30.
 
 
 when ship:oxidizer < 3750 then {
     info("preserve landing fuel").
     SetEngines("Shutdown Engine", vectors).
 }
 
 when apoapsis >= targetOrbitAltitude-5e3 then {
     info("lock surface prograde").
     lock p to vang(srfprograde:vector,heading(90,0):vector).
 }
 
 when altitude > 50e3 then {
     lock p to vang(prograde:vector,heading(90,0):vector).
 }
 
 when apoapsis >= targetOrbitAltitude then {
     info("warping to space").
 
     SetEngines("Shutdown Engine", ship:partsdubbedpattern("turbofan")).
 
     lock throttle to 0.
     set warpmode to "physics".
     set warp to 3.
 }
 
 when (altitude >= body:atm:height and (periapsis > body:atm:height or ship:verticalspeed > 0)) then {
 
     steeringManager:resettodefault().
     set warp to 0.
     wait until kuniverse:timewarp:issettled.
     set warpmode to "rails".
     info("adjusting apoapsis").
     lock throttle to choose (targetOrbitAltitude - apoapsis)/10 if apoapsis - periapsis > 10 else 0.
-when apoapsis >= targetOrbitAltitude and (altitude >= body:atm:height and (periapsis > body:atm:height or ship:verticalspeed > 0)) then {
+
-
+