27 lines
610 B
Plaintext
27 lines
610 B
Plaintext
|
// Automated reentry.
|
||
|
|
// Assumes stage 0 contains only parachutes.
|
||
|
|
// Primarily written for small science payload probes.
|
||
|
|
|
||
|
|
function PerformReentry {
|
||
|
|
SAS off.
|
||
|
|
|
||
|
|
// stage until only stage 0 remains.
|
||
|
|
until STAGE:NUMBER <= 1 {
|
||
|
|
stage.
|
||
|
|
}
|
||
|
|
|
||
|
|
lock STEERING to SHIP:SRFRETROGRADE.
|
||
|
|
|
||
|
|
for p in SHIP:PARTS {
|
||
|
|
if p:MODULES:Find("ModuleRTAntenna") > -1 and p:GetModule("ModuleRTAntenna"):ALLEVENTNAMES:Find("Deactivate") > -1 {
|
||
|
|
p:GetModule("ModuleRTAntenna"):DoEvent("Deactivate").
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
when SHIP:ALTITUDE - SHIP:GEOPOSITION:TERRAINHEIGHT < 2500 then {
|
||
|
|
CHUTES on.
|
||
|
|
}
|
||
|
|
|
||
|
|
wait until false.
|
||
|
|
}
|