View difference between Paste ID: nt8Bv77J and wqSc1yfz
SHOW: | | - or go back to the newest paste.
1-
set sgfirst to 0.
1+
set sgfirst to 0. 
2
set sgp to 0.
3
set sggo to true.
4
set sgf to 8.
5
set sgpr to 4.
6
function sgd {
7-
parameter l. parameter d.
7+
parameter sglabel. parameter sgdetail.
8-
If l:length > sgpr set sgpr to l:length.
8+
If sglabel:length > sgpr set sgpr to sglabel:length.
9-
print (l:padleft(sgpr) + ": " +round(d,2)):padright(terminal:width) at (0, sgp).
9+
print (sglabel:padleft(sgpr) + ": " +round(sgdetail,2)):padright(terminal:width) at (0, sgp).
10
set sgp to sgp + 1.
11
}.
12-
set sggo to false. wait 1. set sggo to true.
12+
13
lock sgtwr to ship:availablethrust/ship:mass/body:mu*body:position:sqrmagnitude.
14
list engines in sgengines.
15-
sgd("Apoapsis", apoapsis).
15+
function sgfueltime {
16-
sgd("ETA Apoapsis", CHOOSE eta:apoapsis IF apoapsis > 0 ELSE -1).
16+
	set sgtotal to 0. 
17
	for sge in sgengines set sgtotal to choose sgtotal+sge:consumedresources["liquid fuel"]:fuelflow if sge:consumedresources:haskey("liquid fuel") else sgtotal. 
18-
sgd("Periapsis", periapsis).
18+
	return choose ship:liquidfuel/sgtotal if sgtotal > 0 else -1.
19-
sgd("ETA Periapsis", eta:periapsis).
19+
20
21
22
23-
sgd("Ox",ship:oxidizer).
23+
set sggo to false. wait 0. set sggo to true.
24
On round(kuniverse:realtime * sgf) {
25-
sgd("Lat",latitude).
25+
26-
sgd("Long",longitude).
26+
27
sgd("Vertical Speed", ship:verticalspeed).
28
sgd("alt radar",alt:radar).
29
sgd("terrain alt",ship:geoposition:terrainheight).
30
sgd("groundspeed",groundspeed).
31
sgd("twr",sgtwr).
32
sgd("oxidizer", ship:oxidizer).
33
sgd("liquidfuel", ship:liquidfuel).
34
sgd("ore", ship:ore).
35
sgd("EC", ship:electriccharge).
36
sgd("Fuel Time", sgfueltime()/60).
37
sgd("eta minutes", alt:radar / -ship:verticalspeed / 60).
38
sgd("lat", ship:geoposition:lat).
39
sgd("long", ship:geoposition:lng).
40
sgd("apo", apoapsis).
41
sgd("peri", periapsis).
42
43
Print "":padright(terminal:width) at (0,sgp).
44
Set sgp to sgp + 1.
45
Print "":padright(terminal:width) at (0,sgp).
46
return sggo.
47
}
48