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


(local
    local0[7]

)
(instance public meadReg of Rgn
    (properties)

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed()))
            return 1
        )
        return 
            (if (== (send pEvent:type()) 128)
                (if (Said('look>'))
                    (if (Said('/bush'))
                        Print(506 0)
                    )(else
                        (if (Said('/boulder'))
                            Print(506 1)
                        )(else
                            (if (Said('<down') or Said('/dirt,down'))
                                Print(506 2)
                            )(else
                                (if (Said('/grass'))
                                    Print(506 3)
                                )(else
                                    (if (Said('/flora'))
                                        Print(506 4)
                                    )(else
                                        (if (Said('/forest'))
                                            Print(506 5)
                                        )
                                    )
                                )
                            )
                        )
                    )
                )(else
                    (if (Said('climb>'))
                        (if (Said('/forest'))
                            Print(506 6)
                        )(else
                            (if (Said('/boulder'))
                                Print(506 7)
                            )
                        )
                    )(else
                        (if (Said('get/flora,flora'))
                            Print(506 8)
                        )
                    )
                )
            )(else
                0
            )
    )

)
