clearscreen.
PRINT "Préparation du lancement d'Hydrogène...".
sas off.
rcs off.
lights off.
lock throttle to 0.
SET timer to 0.
SET CU to "TestFlightPound".
PRINT "Etapes du vol :" at (3,10).
SET etage to 0.
PRINT "Décollage d'Hydrogène." at (4,11).
SET coiffe to 1.

SET apoapsis to 120000. //Set de l'apogée finale en mètre
SET periapsis to 100000. //Set de lapérgiée finale en mètre

SET phasevol to 2. //Gère les phases du vol
IF alt:radar < 50 {
	SET phasevol to 1.
}

UNTIL phasevol = 0 { //Jusqu'à la fin du vol

	IF phasevol = 1 { //Vaisseau sur le launchpad
		LOCK steering to up.
		LOCK throttle to 1.0. //Throttle to 100%
		stage.
		SET phasevol to 2.
	}

	else if phasevol = 2 { //Le vaisseau vol jusqu'a 100m/s

		LOCK steering to heading ( 90, 90). //Pointe le haut
		IF ship:verticalspeed > 100 {
			SET phasevol to 3. //Passé à la 3eme phase
		}
	}

	else IF phasevol = 3 { //Gravity turn
		LOCK steering to heading ( 90, 70). //vers 90 degrés à l'est
		IF ship:altitude > 17000 {
			set phasevol to 4.
		}
	}

	else IF phasevol = 5 { //Vers l'orbite
		IF eta:apoapsis < 10 { //Si on dépasse l'apogée
			LOCK steering to heading ( 90, 0).
			LOCK throttle to 1.0.
			PRINT "2ème Allumage Terrier." at (4,17).
		}
		IF (ship:periapsis > periapsis) or (ship:periapsis > apoapsis * 0.95) { //Si la périgée dépasse l'apogée
			LOCK throttle to 0.0.
			PRINT "2ème Extinction Terrier." at (4,18).
			SET phasevol to 10.
		}
	}
	else IF phasevol = 10 { //Touche finale
		LOCK throttle to 0.0.
		stage.
		PRINT CU + " a été déployé avec succés !" at (4,19).
		SET phasevol to 0.
	}
	SET timer to timer + 1.
PRINT timer at (5,20).
	IF timer > 1700 {
		stage.
		PRINT "Séparation des quatres Hammer." at (4,12).
		SET timer to -9999999.
	}

	IF maxthrust = 0 { //Si l'étage n'accélère plus on s'en sépare
		LOCK throttle to 0.0.
		wait 1.
		stage.
		SET etage to etage + 1.
		IF etage = 0 {
		PRINT "Décollage d'Hydrogène." at (4,11).
	} else IF etage = 1 {
		PRINT "Séparation Kickback." at (4,13).
	} else IF etage = 2 {
		PRINT "1er Allumage Terrier." at (4,14).
	} else IF etage = 3 {
		PRINT "1er Extinction Terrier." at (4,15).
	}
		wait 3.
		stage.
		SET etage to etage + 1.
		LOCK throttle to 1.0.
		IF etage = 0 {
		PRINT "Décollage d'Hydrogène." at (4,11).
	} else IF etage = 1 {
		PRINT "Séparation Kickback." at (4,13).
	} else IF etage = 2 {
		PRINT "1er Allumage Terrier." at (4,14).
	} else IF etage = 3 {
		PRINT "1er Extinction Terrier." at (4,16).
	} else IF etage = 4 {
	}
	}

	IF ship:altitude > 60000 and coiffe = 1 {
		stage.
		PRINT "Séparation de la coiffe" at (4,15).
		SET etage to 5.
		SET coiffe to 0.
	}

	else IF phasevol = 4 { //Vers l'apogée
		IF ship:apoapsis > apoapsis { //Quand l'apogée est bonne
			LOCK throttle to 0.0. //Moteur à 0% On arrete les moteurs
			LOCK steering to heading ( 90, 0).
			PRINT "1er Extinction Terrier." at (4,15).
			SET phasevol to 5.
		} else {
			LOCK steering to heading ( 90, 45). //3° au dessus de l'horizon
		}
	}

	//Infos du vol en direct
	PRINT "Phase du vol :   " + phasevol + "        " at (5,4).
	PRINT "Altitude :       " + round(ship:altitude) + "        " at (5,5).
	PRINT "Apogée :         " + round(apoapsis) + "        " at (5,6).
	PRINT "Périgée :        " + round(periapsis) + "        " at (5,7).
	PRINT "Temps avant AP : " + round(eta:apoapsis) + "        " at (5,8).
}