Files
ksp-kos-scripts/scripts/staging.ks
T

51 lines
1.5 KiB
Plaintext

// ═══════════════════════════════════════════════════════════
// staging.ks
// Utility functions related to staging and the effects of changing stages
//
// Usage:
// basicStaging()
// calcBurnTime(dvNeeded: scalar)
// ═══════════════════════════════════════════════════════════
function calcBurnTime {
parameter dvNeeded.
local totalTime to 0.
local dvRemaining to dvNeeded.
local stageNum to ship:stagenum.
until dvRemaining <= 0 or stageNum < 0 {
local stageDv to ship:stagedeltav(stageNum):current.
local stageTime to ship:stagedeltav(stageNum):duration.
print "Stage: " + stageNum.
if stageDv <= 0 {
set stageNum to stageNum - 1.
} else if stageDv >= dvRemaining {
set totalTime to totalTime + stageTime * (dvRemaining / stageDv).
set dvRemaining to 0.
} else {
set totalTime to totalTime + stageTime.
set dvRemaining to dvRemaining - stageDv.
set stageNum to stageNum - 1.
}
print " - time: " + totalTime.
print " - dv : " + dvRemaining.
}
if dvRemaining > 0 {
print "WARNING: Insufficient dV. Short by " + round(dvRemaining, 1) + " m/s.".
}
return totalTime.
}
function deployables {
ag1 on.
wait 0.5.
panels on.
radiators on.
ag2 on.
}