(version 2)
(include "sci.sh")
(exports
    0 rm804
)
(use "Main")
(use "InterFeature")
(use "InterProp")
(use "Sound")
(use "Cycle")
(use "Game")
(use "View")
(use "Obj")
(script 804)

(local
    local0

)
(instance public rm804 of Rm
    (properties
        picture 111
        style $000a
    )

    (method (init)
        (var temp0[10])
        (super:init())
        (characters:
            init()
            setCycle(Fwd)
        )
        = local0 Random(1 6)
        (lArrows:init())
        (rArrows:init())
        (switch (local0)
            (case 1
                = local0 110
            )
            (case 2
                = local0 111
            )
            (case 3
                = local0 112
            )
            (case 4
                = local0 113
            )
            (case 5
                = local0 130
            )
            (default 
                = local0 150
            )
        )
        (roomSound:
            number(local0)
            loop(-1)
            play()
        )
        (send global1:handsOn())
    )


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


    (method (doVerb)
        return 0
    )

)
(instance sayOkScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (mySound:
                    number(1147)
                    setLoop(1)
                    play()
                )
            )
            (case 1
                (send global1:handsOff())
                (send global1:quitGame(1))
            )
        )
    )

)
(instance goToRoom12 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (mySound:
                    number(910)
                    setLoop(1)
                    play()
                )
                (lArrows:setCel(1))
                = ticks 15
            )
            (case 1
                (lArrows:setCel(0))
                = ticks 15
            )
            (case 2
                (send global2:newRoom(12))
            )
        )
    )

)
(instance goToRoom801 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (mySound:
                    number(910)
                    setLoop(1)
                    play()
                )
                (rArrows:setCel(1))
                = ticks 15
            )
            (case 1
                (rArrows:setCel(0))
                = ticks 15
            )
            (case 2
                = global106 1
                (send global2:newRoom(801))
            )
        )
    )

)
(instance ltArrows of InterFeature
    (properties
        nsTop 185
        nsLeft 308
        nsBottom 200
        nsRight 320
    )

    (method (doVerb)
        (send global1:handsOff())
        (send global2:setScript(goToRoom12))
    )

)
(instance rtArrows of InterFeature
    (properties
        nsTop 185
        nsBottom 200
        nsRight 15
    )

    (method (doVerb)
        (send global2:setScript(goToRoom801))
    )

)
(instance characters of Prop
    (properties
        x 150
        y 110
        view 8
        priority 2
        signal $0011
    )
)
(instance lArrows of InterProp
    (properties
        x 7
        y 198
        view 1301
        priority 3
        signal $0011
    )

    (method (doVerb)
        (send global1:handsOff())
        (send global2:setScript(goToRoom12))
    )

)
(instance rArrows of InterProp
    (properties
        x 313
        y 198
        view 1300
        loop 1
        priority 3
        signal $0011
    )

    (method (doVerb)
        (send global2:setScript(goToRoom801))
    )

)
(instance roomSound of Sound
    (properties)
)
(instance mySound of Sound
    (properties)
)
