9 lines
455 B
Plaintext
9 lines
455 B
Plaintext
a=0 b=60 c=100 e=60 m="\n" n="Fuelrod:" o=" m" p=" h" q="Propellant:"
|
|
r="%" s="Inf" t=" km" u=1000
|
|
d=300000 //Fuelrod amount
|
|
if :FcuMfcIO1==0 then :fuel=:status goto4 else goto5 end
|
|
i=tgs-:gas if i then tgs2=:gas/i tgs=:gas else g=s end l=:gas/:mgas
|
|
j=:fr/d*c ft=t1-t2 f=(((:fr/ft)/e)/1000)*1000
|
|
if i then distM=tgs2*:spd distKM=distM/u/u*u g=distKm+t end
|
|
t1=:fr*5 if f<e then fr=f+p else fr=f/e+p end
|
|
t2=:fr*5 :fuel=m+n+m+j+r+m+fr+m+q+m+l*c+r+m+g goto5 |