(version 2)
(include "sci.sh")
(exports
    0 speedChecker
)
(use "Main")
(use "Cycle")
(use "Game")
(use "PicView")
(script 777)


(local
    local0

)
(instance fred of Actor
    (properties)
)
(instance public speedChecker of Rm
    (properties
        picture 777
        style $0006
    )

    (method (init)
        proc0_2()
        Load(rsVIEW 777)
        (super:init())
        (send gSounds:eachElementDo(#stop))
        (while (>u GetTime() -1024)
        )
        (fred:
            view(777)
            setLoop(0)
            illegalBits(0)
            posn(20 99)
            setStep(1 1)
            setMotion(MoveTo 300 100)
            setCycle(Fwd)
            init()
        )
        (send gGame:setSpeed(0))
        = global100 0
    )


    (method (doit)
        (super:doit())
        (if (== ++global100 1)
            = local0 (+ 60 GetTime())
        )
        (if (<u local0 GetTime())
            (if (<= global100 30)
                = global101 0
            )(else
                (if (<= global100 60)
                    = global101 1
                )(else
                    (if (<= global100 90)
                        = global101 2
                    )(else
                        = global101 3
                    )
                )
            )
            (send gGame:setSpeed(
                (switch (global101)
                    (case 1
                        3
                    )
                    (case 0
                        1
                    )
                    (default 
                        5
                    )
                )
))
            proc0_7()
            proc0_3()
            (send global2:newRoom(global102))
        )
    )

)
