(version 2)
(include "sci.sh")
(exports
    0 rm690
)
(use "Main")
(use "Class_255_0")
(use "Cycle")
(use "Game")
(use "User")
(use "Feature")
(use "Obj")
(script 690)



(instance public rm690 of Rm
    (properties
        picture 690
    )

    (method (init)
        (var temp0[50])
        (User:
            canInput(1)
            canControl(0)
        )
        (super:init())
        (if (not global256)
            Load(128 91)
            (ray:init())
        )
        (self:setScript(RayScript))
    )


    (method (doit)
        (super:doit())
    )


    (method (handleEvent pEvent)
        (super:handleEvent(pEvent))
        (if ((<> (send pEvent:type) 128) or (send pEvent:claimed))
            return 
        )
        (if (Said('look>'))
            (if (Said('[/around,scope]'))
                proc255_0(690 0)
            )(else
                (if (Said('/moon'))
                    proc255_0(690 1)
                )(else
                    (if (Said('/beam'))
                        (if (global256)
                            proc255_0(690 2)
                        )(else
                            (if (global170)
                                proc255_0(690 3)
                            )(else
                                proc255_0(690 4)
                            )
                        )
                    )
                )
            )
        )(else
            (if (Said('get>'))
                (send pEvent:claimed(1))
                proc255_0(690 5)
            )
        )
    )

)
(instance RayScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                = seconds 5
            )
            (case 1
                (if (not global254)
                    (if (global170)
                        proc255_0(690 6)
                    )(else
                        (if (global256)
                            proc255_0(690 7)
                        )(else
                            proc255_0(690 8)
                        )
                    )
                    (send global1:changeScore(10))
                )(else
                    (if (global256)
                        (if (global170)
                            proc255_0(690 9)
                        )(else
                            proc255_0(690 10)
                        )
                    )(else
                        (if (global170)
                            proc255_0(690 11)
                        )(else
                            proc255_0(690 12)
                        )
                    )
                )
                = global254 1
                = seconds 5
            )
            (case 2
                ++global593
                (send client:newRoom(69))
            )
        )
    )

)
(instance ray of Prop
    (properties)

    (method (init)
        (super:init())
        (self:
            view(91)
            setLoop(0)
            setCel(0)
            setPri(11)
            posn(145 85)
            setCycle(Fwd)
            cycleSpeed(0)
        )
    )

)
