(include "sci.sh")
(use "Class_255_0")
(use "Game")
(script 511)



(instance public mountReg of Rgn
    (properties)

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed()))
            return 1
        )
        return 
            (if (== (send pEvent:type()) 128)
                (if (Said('look/cliff'))
                    Print(511 0)
                )(else
                    (if (Said('climb,cross/cliff'))
                        Print(511 1)
                    )
                )
            )(else
                0
            )
    )

)
