(include "sci.sh")
(use "Main")
(use "Cycle")
(use "Game")
(use "PicView")
(use "Obj")
(script 803)


(local
    local0
    local1
    local2
    local3

)
(instance fred of Actor
    (properties)
)
(instance public speedTest of Rm
    (properties
        picture 803
        style 100
    )

    (method (init)
        FileIO(5 gLOOKUP_ERROR 6 = local2 FileIO(0 "version" 1))
        FileIO(1 local2)
        (super:init())
        (send global8:eachElementDo(149))
        (while (>u GetTime() 64512)
        )
        (fred:
            view(803)
            setLoop(0)
            illegalBits(0)
            posn(20 99)
            setStep(1 1)
            setMotion(MoveTo 300 100)
            setCycle(Fwd)
            init()
        )
        = global170 Random(0 9)
        = global185 3417
        = global3 0
        = local1 0
        = local3 
            (if (proc0_6(21))
                90
            )(else
                40
            )
    )


    (method (doit)
        (super:doit())
        (if (== ++local1 1)
            = local0 (+ 60 GetTime())
        )
        (if ((<u local0 GetTime()) and not (self:script))
            (if (< local1 local3)
                = global101 0
                (send global1:detailLevel(1))
            )(else
                = global101 2
            )
            (self:setScript(speedScript))
        )
    )


    (method (dispose)
        (super:dispose())
    )

)
(instance speedScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                = cycles 1
            )
            (case 1
                = global3 6
                = cycles 1
            )
            (case 2
                = register 1
                (while (<= register 5)
                    = gNewDisplayCel[register] Random(0 14)
                    ++register
                )
                (send global2:newRoom(global107))
            )
        )
    )

)
