//GLOBALS
SET WAITS TO 0.
SET LASTTIME TO TIME:SECONDS.

//SETTINGS
SET TGH TO 75.
SET LS TO 2.

CLEARSCREEN.
SAS OFF.
SET HD TO HEADING(0,0):Vector.
SET M TO 1.
lock steering to lookdirup(((-(VELOCITY:SURFACE*(10000/SQRT(VELOCITY:SURFACE*VELOCITY:SURFACE))*0.3)+((SHIP:UP:VECTOR*(10000/SQRT(SHIP:UP:VECTOR*SHIP:UP:VECTOR)))*20))+((HD*(10000/SQRT(HD*HD)))*M)), ship:facing:topvector).
UNTIL AG10
{
	SET HD TO HEADING(0,0):Vector.
	SET SPD TO ((ALT:RADAR-TGH)*(BODY:MU/BODY:RADIUS^2)*2)/100.
	IF SPD < -(BODY:MU/BODY:RADIUS^2)*2 SET SPD TO -(BODY:MU/BODY:RADIUS^2)*2.
	IF SPD > (BODY:MU/BODY:RADIUS^2) SET SPD TO (BODY:MU/BODY:RADIUS^2).
	SET TWR TO SHIP:MAXTHRUST/SHIP:MASS/(BODY:MU/BODY:RADIUS^2).
	SET THR TO 1/TWR+((-SHIP:VERTICALSPEED-SPD)/20)/TWR*(BODY:MU/BODY:RADIUS^2).
	SET TP TO 1/THR.
	IF TP<1 SET TP TO 1.
	IF TP>5 SET TP TO 5.
	SET M TO TWR*TP*3*(ALT:RADAR/TGH).
	IF THR<0.2 SET THR TO 0.2.
	SET THROTTLE TO THR.
	PRINT SPD+"     " AT(0,0).
	WAIT 0.
}
SET MUL TO (15-LS)/2/(ALT:RADAR-5).
lock steering to lookdirup( ((-(VELOCITY:SURFACE*(10000/SQRT(VELOCITY:SURFACE*VELOCITY:SURFACE)))*SQRT(SHIP:VERTICALSPEED*SHIP:VERTICALSPEED))+((SHIP:UP:VECTOR*(10000/SQRT(SHIP:UP:VECTOR*SHIP:UP:VECTOR)))*5)), ship:facing:topvector ).
UNTIL SHIP:AIRSPEED<LS/2
{
	SET SPD TO LS+((ALT:RADAR-5)*MUL).
	IF SPD < LS SET SPD TO LS.
	SET TWR TO SHIP:MAXTHRUST/SHIP:MASS/(BODY:MU/BODY:RADIUS^2).
	SET THR TO 1/TWR+(((-SHIP:VERTICALSPEED/2+SHIP:AIRSPEED/2)-SPD)/50)/TWR*(BODY:MU/BODY:RADIUS^2).
	IF THR<0.8/TWR SET THR TO 0.8/TWR.
	SET THROTTLE TO THR.
	WAIT 0.
}
SET THROTTLE TO 0.