hathii Landing Info Display

set sgfirst to 0.
set sgp to 0.
set sggo to true.
set sgf to 8.
set sgpr to 4.
function sgd {
parameter sglabel. parameter sgdetail.
If sglabel:length > sgpr set sgpr to sglabel:length.
print (sglabel:padleft(sgpr) + ": " +round(sgdetail,2)):padright(terminal:width) at (0, sgp).
set sgp to sgp + 1.
}.

lock sgtwr to ship:availablethrust/ship:mass/body:mu*body:position:sqrmagnitude.
list engines in sgengines.
function sgfueltime {
	set sgtotal to 0.
	for sge in sgengines set sgtotal to choose sgtotal+sge:consumedresources["liquid fuel"]:fuelflow if sge:consumedresources:haskey("liquid fuel") else 0.
	return choose ship:liquidfuel/sgtotal if sgtotal > 0 else -1.
}



set sggo to false. wait 0. set sggo to true.
On round(kuniverse:realtime * sgf) {
set sgp to sgfirst.

sgd("Vertical Speed", ship:verticalspeed).
sgd("alt radar",alt:radar).
sgd("terrain alt",ship:geoposition:terrainheight).
sgd("groundspeed",groundspeed).
sgd("twr",sgtwr).
sgd("oxidizer", ship:oxidizer).
sgd("liquidfuel", ship:liquidfuel).
sgd("ore", ship:ore).
sgd("EC", ship:electriccharge).
sgd("Fuel Time", sgfueltime()/60).
sgd("eta minutes", alt:radar / -ship:verticalspeed / 60).
sgd("lat", ship:geoposition:lat).
sgd("long", ship:geoposition:lng).
sgd("nukedv", nukedv).
sgd("vectordv", vectordv).

Print "":padright(terminal:width) at (0,sgp).
Set sgp to sgp + 1.
Print "":padright(terminal:width) at (0,sgp).
return sggo.
}