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



(instance public cemReg of Rgn
    (properties)

    (method (handleEvent pEvent)
        (var gInvSaidMe)
        (if ((send pEvent:claimed()))
            return 1
        )
        return 
            (if (== (send pEvent:type()) 128)
                (if (Said('look>'))
                    (if (Said('/flora'))
                        Print(510 0)
                    )(else
                        (if (Said('/boulder'))
                            Print(510 1)
                        )(else
                            (if (Said('/dirt,down'))
                                Print(510 2)
                            )(else
                                (if (Said('/grass'))
                                    Print(510 3)
                                )(else
                                    (if (Said('/bush'))
                                        Print(510 4)
                                    )(else
                                        (if (Said('/blossom'))
                                            Print(510 5)
                                        )(else
                                            (if (Said('/fence'))
                                                Print(510 6)
                                            )(else
                                                (if (Said('/forest'))
                                                    Print(510 7)
                                                )(else
                                                    (if (Said('/cemetery,cemetery'))
                                                        Print(510 8)
                                                    )(else
                                                        (if (Said('/grave,crypt'))
                                                            Print(510 9)
                                                        )(else
                                                            (if (Said('/gravestone'))
                                                                Print(510 10)
                                                            )(else
                                                                (if (Said('/monument'))
                                                                    Print(510 11)
                                                                )(else
                                                                    (if (Said('/ghoul'))
                                                                        (if (global100 and global186)
                                                                            Print(510 12)
                                                                        )(else
                                                                            Print(510 13)
                                                                        )
                                                                    )
                                                                )
                                                            )
                                                        )
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )(else
                    (if (Said('get/blossom'))
                        Print(510 14)
                    )(else
                        (if (Said('dig[/grave,hole]'))
                            (if (not (send ((Inv:at(15))):owner(gEgo)))
                                Print(510 15)
                            )
                            (if (== 5 global113)
                                Print(510 16)
                            )
                        )(else
                            (if (Said('conceal<behind/grave,gravestone'))
                                Print(510 17)
                            )(else
                                (if (Said('get/gravestone'))
                                    Print(510 18)
                                )(else
                                    (if (Said('move/gravestone'))
                                        Print(510 19)
                                    )(else
                                        (if (Said('converse[/ghoul]'))
                                            (if (global100 and global186)
                                                Print(510 20)
                                            )(else
                                                Print(510 21)
                                            )
                                        )(else
                                            (if (Said('kill[/ghoul]'))
                                                (if (global100 and global186)
                                                    Print(510 22)
                                                )(else
                                                    Print(510 13)
                                                )
                                            )(else
                                                (if (Said('climb/boulder'))
                                                    Print(510 23)
                                                )(else
                                                    (if (Said('get,capture/ghoul'))
                                                        (if (global100 and global186)
                                                            Print(510 24)
                                                        )(else
                                                            Print(510 13)
                                                        )
                                                    )(else
                                                        (if (Said('kiss[/ghoul]'))
                                                            (if (global100 and global186)
                                                                Print(510 25)
                                                            )(else
                                                                (send pEvent:claimed(0))
                                                            )
                                                        )(else
                                                            (if (Said('deliver>') and (= gInvSaidMe (send gInv:saidMe())))
                                                                (if ((send gEgo:has((send gInv:indexOf((= gInvSaidMe (send gInv:saidMe())))))))
                                                                    (if (== global186 0)
                                                                        Print(510 21)
                                                                    )(else
                                                                        Print(510 26)
                                                                    )
                                                                )(else
                                                                    proc0_19()
                                                                )
                                                            )
                                                        )
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )(else
                0
            )
    )

)
