KOS Warp 2

PARAMETER duration.

set SAFETY_MARGIN to 1.

set start to TIME:SECONDS.
set end to TIME:SECONDS + duration.
lock remaining to end - TIME:SECONDS.

print " ".
print "Warping for " + duration + "s.".

set WARPMODE to "RAILS".

//
// MODE:                MEANING:                MINIMUM DURATION:
// 0                    1x                              -
// 1                    5x                              10s
// 2                    10x                             20s
// 3                    50x                             100s
// 4                    100x                    200s
// 5                    1,000x                  2,000s
// 6                    10,000x                 20,000s
// 7                    100,000x                200,000s
//

set MINIMUM to list(0, 10, 20, 100, 200, 2000, 20000, 200000).
set MULTIPLICATOR to list(1, 5, 10, 50, 100, 1000, 10000, 100000).

set done to 0.
until (remaining <= 3 or done = 1) {

        print "Remaining: " + Round(remaining) + "s".

        // Determine which warp speed to use.
        set warpLevel to 0.
        until warpLevel >= MINIMUM:Length or MINIMUM[warpLevel + 1] > remaining {
                set warpLevel to warpLevel + 1.
        }
        print "Using " + MULTIPLICATOR[warpLevel] + "x acceleration...".

        // Initiate time warp.
        set margin to SAFETY_MARGIN * MULTIPLICATOR[warpLevel].

        if (remaining < margin) {
                set done to 1.
        }

        set WARP to warpLevel.

        until (remaining < margin) {
                wait 0.1.
        }
}

set WARP to 0.

print "Finished warping. Waiting for remaining " + remaining + "s...".
wait remaining.
print "Done.".