class Timer
    export initialize, time_up

    var attr :
        record
            ending, duration, current : int
            consistant : boolean
        end record

    proc initialize (duration : int, consistant_time : boolean)
        attr.current := Time.Elapsed
        attr.ending := attr.current + duration
        attr.duration := duration
        attr.consistant := consistant_time
    end initialize

    fcn time_up () : boolean
        attr.current := Time.Elapsed
        var overshot := attr.current - attr.ending
        if overshot >= 0 then
            if attr.consistant then
                attr.ending += attr.duration + overshot
            end if
            result true
        end if
        result false
    end time_up
end Timer

var timer : ^Timer
new Timer, timer
timer -> initialize (100, true)
loop
    loop
        exit when timer -> time_up ()
    end loop
end loop

var timer : ^Timer
new Timer, timer

timer -> initialize (100, true)
%The first parameter is the delay.
%The second parameter is hard to explain.
%   -If you want the timer to continue timing when the time is up set the parameter as true.
%       -Used with fps limiters.
%   -If you don't want the timer to reset its values and continue, then set it as false.
%       -Used with things that require different delays (ex. when you hold a key in a text box it has a long delay for the first character outputted).

if timer -> time_up () then
    %Do something.
end if