ssto-r15-deorbit.ks

    when geoposition:lng > 175 then {
        lock throttle to 1.
        when periapsis < 30_000 then {
            lock throttle to 0.25.
            when periapsis < 25_000 then {
                lock throttle to 0.
                lock steering to lookDirUp(srfretrograde:forevector, sun:position).
                brakes on.

                wait 5.

                set warp to 2.
                when altitude  < (body:atm:height + 400) then {
                    set warp to 0.
                    set warpmode to "physics".
                    set warp to 3.
                    when altitude < 2500 then
                    {
                        set warp to 0.
                    }
                }


                when geoposition:lng > -49  and geoposition:lng < -35 then {
                    print "Near KSC".
                    if airspeed > 380 {
                        when airspeed < 385 then {
                            lock throttle to 0.
                        }
                    }

                }
                when geoposition:lng > -48 and geoposition:lng < -35 then {
                    print "Over KSC".
                    stage.
                }
            }
        }
    }