autostage

wait until ship:unpacked=true.
clearscreen.
declare global biglist to list().
list engines in biglist.
set oldflamlist to list().
set STAGENOW to false.
print shipName + " is go for launch".
set n to ship:stagenum.
when STAGENOW=true then {
    wait 0.1.
    stage.
    print "Seperation of stage " + n + " confirmed!".
    wait 0.1.
    set STAGENOW to false.
    set n to ship:stagenum.
    preserve.
}
until ship:periapsis>=140000 {
    for eng in biglist:copy {
        if ship:parts:contains(eng) {
            if eng:flameout=true and STAGENOW=false and not oldflamlist:contains(eng:name) {
                set STAGENOW to true.
                oldflamlist:add(eng).
                set x to biglist:find(eng).
                wait 0.1.
                biglist:remove(x).
                wait 0.
            }
        } else {
            set x to oldflamlist:find(eng).
            if x <> -1{
                oldflamlist:remove(x).
            }
            wait 0.
        }


    }
    wait 0.1.
    clearScreen.
    print biglist.
    print oldflamlist.
    print STAGENOW.
}