// Cassiopeiae VTOL software. V.5.1.

//PREFLIGHT
//35//50
set wt to 0.01.
clearscreen.
print".". wait wt.    
print".". wait wt.                                               
print".                    8               ". wait wt.
print".                      88            ". wait wt.
print".                    88888           ". wait wt.
print".                  888888888         ". wait wt.
print".                  88  888.8         ". wait wt.
print".                88888   8888        ". wait wt.
print".               888      88888       ". wait wt.
print".              8888      88 88       ". wait wt.
print".               8888  88888          ". wait wt.
print".               88888 88             ". wait wt.
print".                88888888            ". wait wt.
print".                888 8               ". wait wt.
print".                 888                ". wait wt.
print".                 8888888            ". wait wt.
print".                 88 88888288        ". wait wt.
print".                 88  88  88888      ". wait wt.
print".                 88        8888     ". wait wt.
print".                 888        8888    ". wait wt.
print".                  88         888    ". wait wt.
print".                             8888   ". wait wt.
print".                 8           888    ". wait wt.
print".               8888888     88888    ". wait wt.
print".              88   888884888888     ". wait wt.
print".              8     88888888788     ". wait wt.
print".             88         8           ". wait wt.
print".              8                     ". wait wt.
print".              8                     ". wait wt.
print".              888                   ". wait wt.
print".               8888                 ". wait wt.
print".                88888   88          ". wait wt.
print".                   888888           ". wait 0.5.
print". ". wait wt.
print".                 Let's Fly!         ". wait 1.     

//Fly

clearscreen.

set TFH to 10.

//Start
if MAXTHRUST = 0
{
print "NO ENGINES". wait 0.2.
print "NO ENGINES". wait 0.2.
print "NO ENGINES". wait 0.4.
print "abort with -> strg + c <-".
until 0 {wait 100.}
}

set timer to 0.
set thrA to 0.
set timex to 70.

set TVS to 0.
until ALT:RADAR+1 >= TFH
{

set timer to timer + 1.
if timer >= timex/2 { print"---LIFTING-UP---"at(17,10). } else {print"   LIFTING UP   "at(17,10).}
if timer >= timex { set timer to 0. }

if 1 >= TVS {set TVS to TVS + 0.001.}

set TTW to (MASS / MAXTHRUST*9.81).
set CVS to VERTICALSPEED.

set TRO to TTW * -(CVS - TVS - 1).

lock throttle to TRO.
}

//Fly
set timex to 30.
clearscreen.
set STP to 0.
on abort set STP to 1.
until STP = 1
{

on AG8 set TFH to round(CFH).
if RCS = True {set fhadd to 10.} else {set fhadd to 1.}
on AG9 set TFH to TFH - fhadd.
on AG10 set TFH to TFH + fhadd.

set TTW to (MASS / MAXTHRUST*9.81).
set CFH to ALT:RADAR.
set DFH to (CFH - TFH).
set CVS to VERTICALSPEED.
set TVS to -DFH*(TTW*2).

set TRO to TTW * -(CVS - TVS - 1).

lock throttle to TRO.

print "Target Altitude         " + round(TFH,2) + "    Meters" at(0,13).
print "Current Altitute        " + round(CFH,2) + "    Meters" at(0,15).
print "Target Vertical Speed   " + round(TVS,2) + "    Meters / sec." at(0,18).
print "Current Vertical Speed  " + round(CVS,2) + "    Meters / sec." at(0,20).
print "Thrust to Waight Ratio  " + round(TTW,2) + "    Meters / sec." at(0,23).
print "Current Throttle        " + round(TRO*100,2) + "   %   " at(0,25).

if ALT:RADAR <= 7 {if timer >= timex/2 { print"---TOO-LOW---"at(0,5). } else {print"   TOO LOW   "at(0,5).}} else{print"             "at(0,5).}
if SURFACESPEED >= 30 {if timer >= timex/2 { print"---TOO-FAST---"at(0,7). } else {print"   TOO FAST   "at(0,7).}} else{print"              "at(0,7).}
set timer to timer + 1.
if timer >= timex { set timer to 0. }
}

//Land 
clearscreen.
set stpp to 0.

until stpp >= 100 and round(VERTICALSPEED, 2) >= 0
{
set timer to timer + 1.
if timer >= timex/2 { print"---LANDING---"at(15,10). } else {print"   LANDING   "at(15,10).}
if timer >= timex { set timer to 0. }

set stpp to stpp + 1.

set TTW to (MASS / MAXTHRUST*9.81).
set CVS to VERTICALSPEED.
set TVS to -1.5.

set TRO to TTW * -(CVS - TVS - 1).

lock throttle to TRO.
}

clearscreen.

print".". wait wt.
print".". wait wt.
print".". wait wt.
print".". wait wt.
print".". wait wt.
print".     I hope I see you again.        ". wait wt.
print".". wait wt.
print".                Have a nice day.    ". wait wt.
print".". wait wt.
print".". wait wt.
print".". wait wt.
print".". wait wt.
print".". wait wt.
wait 2.
clearscreen.