(include "sci.sh")
(use "Main")
(use "Class_255_0")
(use "Game")
(script 2)



(instance public Room2 of Rm
    (properties
        picture 2
    )

    (method (init)
        = north 26
        = south 8
        = east 3
        = west 1
        = horizon 68
        = global101 0
        (if (global100)
            = picture 102
        )
        (super:init())
        (send gEgo:
            view(2)
            init()
        )
        (self:setRegions(506 514))
    )


    (method (handleEvent pEvent)
        (if ((send pEvent:claimed()))
            return 1
        )
        return 
            (if ((== (send pEvent:type()) 128) and Said('look>'))
                (if ((Said('/room') or Said('/around')) or Said('[<around][/!*]'))
                    Print(2 0)
                )(else
                    (if (Said('/brook'))
                        Print(2 1)
                    )
                )
            )(else
                0
            )
    )


    (method (newRoom param1)
        (if ((send gCast:contains(gNewAct)))
            = global211 global160
            = global212 global159
        )
        (super:newRoom(param1))
    )

)
