(version 2)
(include "sci.sh")
(exports
    0 rm073
)
(use "Main")
(use "Class_255_0")
(use "Cycle")
(use "Game")
(use "User")
(use "Obj")
(script 73)



(instance public rm073 of Rm
    (properties
        picture 73
        east 74
        south 74
    )

    (method (init)
        (var temp0[50])
        (User:
            canInput(1)
            canControl(1)
        )
        (self:setRegions(600))
        Load(128 68)
        (super:init())
        (send gEgo:
            view(68)
            setStep(2 2)
            illegalBits(-32768)
            setLoop(-1)
            init()
        )
        (if (global255)
            (self:setScript(WalkIn))
        )(else
            (send gEgo:posn(316 (send gEgo:y)))
        )
    )


    (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('[/area,around]'))
                proc255_0(73 0)
            )(else
                (if (Said('/lava'))
                    proc255_0(73 1)
                )(else
                    (if (Said('/device,building,generator'))
                        (if (not global256)
                            (if (global170)
                                proc255_0(73 2)
                            )(else
                                proc255_0(73 3)
                            )
                        )(else
                            (if (global170)
                                proc255_0(73 4)
                            )(else
                                proc255_0(73 5)
                            )
                        )
                    )(else
                        (if (Said('/beam'))
                            (if (not global256)
                                (if (global170)
                                    proc255_0(73 6)
                                )(else
                                    proc255_0(73 7)
                                )
                            )(else
                                proc255_0(73 8)
                            )
                        )
                    )
                )
            )
        )(else
            (if (Said('climb'))
                proc255_0(73 9)
            )
        )
    )


    (method (newRoom newRoomNumber)
        (var temp0[50])
        (if (not script)
            (if (> (send gEgo:y) 140)
                = global255 1
            )(else
                = global255 0
            )
            (if (global256)
                ++global593
            )
            (super:newRoom(newRoomNumber))
        )
    )

)
(instance WalkIn of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:
                    posn(195 197)
                    loop(3)
                    setPri(-1)
                    setMotion(MoveTo 195 187 self)
                )
            )
            (case 1
                proc0_3()
                (send client:setScript(0))
            )
        )
    )

)
