(include "sci.sh")
(use "Main")
(use "n958")
(use "Cycle")
(use "Sounds")
(use "View")
(use "Obj")
(script 1025)



(instance public rm1025 of Rm
    (properties
        noun 1
        picture 133
    )

    (method (init)
        proc958_0(128 679)
        = global133 2
        = global135 26
        (bigarrow:
            init()
            setCycle(Fwd)
        )
        (shieldSwitch:init())
        (light:init())
        (super:init())
        (send gWalkHandler:addToFront(self))
        (send gSQ5:handsOn())
        (send gSq5IconBar:select((send gSq5IconBar:at(2))))
        (send gSQ5:setCursor(982))
    )


    (method (dispose param1)
        (send gWalkHandler:delete(self))
        (super:dispose(rest param1))
    )


    (method (doVerb param1)
        (switch (param1)
            (case 1
                ((send gTestMessager:say(noun param1 0 0))  )
            )
            (default 
                ((send gRoom:newRoom(1020)) )
            )
        )
    )

)
(instance sFlipSwitch of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (shieldSwitch:setCel(0)) (light:dispose()) (arrow:
                    init()
                    setCycle(Fwd)
                )
 proc0_10(248 20) = seconds 2  )
            )
            (case 1
                ((send gRoom:newRoom(1020)) (self:dispose()) )
            )
        )
    )

)
(instance arrow of Prop
    (properties
        x 126
        y 116
        noun 3
        view 679
        loop 1
        cycleSpeed 8
    )
)
(instance bigarrow of Prop
    (properties
        x 150
        y 73
        noun 3
        view 679
    )
)
(instance shieldSwitch of View
    (properties
        x 160
        y arrow
        noun 2
        view 679
        loop 2
        cel 1
    )

    (method (doVerb param1 param2)
        (switch (param1)
            (case 4
                ((send gRoom:setScript(sFlipSwitch))  )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance light of View
    (properties
        x 198
        y 117
        noun 3
        view 679
        loop 3
    )
)
