(version 2)
(include "sci.sh")
(exports
    0 speedRoom
)
(use "Main")
(use "n958")
(use "Cycle")
(use "Game")
(use "View")
(use "Obj")
(script 28)


(local
    local0
    local1

)
(instance public speedRoom of Rm
    (properties
        picture 780
    )

    (method (init)
        proc958_0(128 1000)
        (super:init())
        (send gGame:handsOff())
        (send gEgo:setSpeed(0))
        (self:setScript(speedTest))
    )


    (method (doit)
        (var temp0)
        (super:doit())
        = temp0 0
        (while (< temp0 500)
            ++temp0
        )
    )

)
(instance fred of Actor
    (properties
        view 1000
    )
)
(instance speedTest of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (fred:
                    setLoop(0)
                    illegalBits(0)
                    posn(0 0)
                    setStep(1 1)
                    setCycle(Fwd)
                    init()
                )
                = cycles 1
            )
            (case 1
                = local1 GetTime()
                (fred:setMotion(MoveTo 320 190))
                = cycles 50
            )
            (case 2
                = local0 (- GetTime() local1)
                (startGame:doit())
            )
        )
    )

)
(instance startGame of Code
    (properties)

    (method (doit)
        (var temp0[100])
        (if (> local0 160)
            = global87 0
        )(else
            (if (> local0 150)
                = global87 1
            )(else
                (if (> local0 140)
                    = global87 2
                )(else
                    (if (> local0 130)
                        = global87 3
                    )(else
                        (if (> local0 120)
                            = global87 4
                        )(else
                            (if (> local0 110)
                                = global87 5
                            )(else
                                (if (> local0 100)
                                    = global87 6
                                )(else
                                    (if (> local0 90)
                                        = global87 7
                                    )(else
                                        (if (> local0 80)
                                            = global87 8
                                        )(else
                                            (if (> local0 70)
                                                = global87 9
                                            )(else
                                                (if (> local0 60)
                                                    = global87 10
                                                )(else
                                                    (if (> local0 50)
                                                        = global87 11
                                                    )(else
                                                        (if (> local0 40)
                                                            = global87 12
                                                        )(else
                                                            (if (> local0 30)
                                                                = global87 13
                                                            )(else
                                                                (if (> local0 20)
                                                                    = global87 14
                                                                )(else
                                                                    = global87 15
                                                                )
                                                            )
                                                        )
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
        )
        (send gEgo:setSpeed(7))
        (send global2:newRoom(
            (if (FileIO(fiEXISTS "29.scr"))
                global130
            )(else
                100
            )
))
    )

)
