12 lines
578 B
Plaintext
12 lines
578 B
Plaintext
b=:BatteryLevel>=9995 G=:Generator gr=:GenRate m=51*(1-:ECO)+101*:CBOS
|
|
m+=33*(:FCUForward>0)*(m==0) ifG<m+b*(m==0+G>m)thenG=m end
|
|
G+=1*(b!=1)*(G<=gr)*(gr<100) G-=1*b*(G>=gr)*(gr>0) G*=:Shutdown
|
|
:Generator=G :GenRate=:GeneratorUnitRate m=0 goto1
|
|
// b = current battery level
|
|
// G = current generator setting
|
|
// gr = current generator rate (how close to setting)
|
|
// m = minimum battery level, 0 base, 33 if forward engines on,
|
|
// 51 if Eco button off, 101 if Cargo Beams are on
|
|
// G is raised by 1 or lowered by 1 to keep battery charged so long
|
|
// as G is at least minimum.
|