(include "sci.sh")
(use "Main")
(use "Class_255_0")
(use "Extra")
(use "Cycle")
(use "Game")
(use "PV")
(script 38)


(local
    newProp
    newProp_2
    newExtra
    newExtra_2

)
(instance public Room38 of Rm
    (properties
        picture 38
    )

    (method (init)
        = north 35
        = south 41
        = west 37
        = horizon 74
        = global101 0
        (send gEgo:
            view(2)
            xStep(2)
            yStep(1)
            init()
        )
        (if (global100)
            = picture 138
        )
        (super:init())
        (self:setRegions(505))
        = newProp (Prop:new())
        = newProp_2 (Prop:new())
        = newExtra (Extra:new())
        = newExtra_2 (Extra:new())
        (send newProp:
            view(662)
            loop(3)
            cel(0)
            posn(199 75)
            setPri(0)
            setCycle(Fwd)
            ignoreActors()
            cycleSpeed(2)
            init()
        )
        (send newProp_2:
            view(662)
            loop(4)
            cel(3)
            posn(303 99)
            setPri(0)
            setCycle(Fwd)
            ignoreActors()
            cycleSpeed(2)
            init()
        )
        (send newExtra:
            view(341)
            loop(2)
            posn(243 38)
            minPause(4)
            maxPause(60)
            pauseCel(1)
            minCycles(10)
            maxCycles(40)
            ignoreActors()
            cycleSpeed(2)
            init()
        )
        (send newExtra_2:
            view(341)
            loop(3)
            pauseCel(1)
            minPause(4)
            maxPause(60)
            minCycles(10)
            maxCycles(50)
            posn(214 27)
            ignoreActors()
            cycleSpeed(2)
            init()
        )
        (if (== gPicture 35)
            (send gEgo:
                x(196)
                y(79)
            )
        )(else
            (if (== gPicture 41)
                (send gEgo:
                    x(159)
                    y(187)
                )
            )
        )
    )


    (method (dispose)
        DisposeScript(988)
        (super:dispose())
    )


    (method (handleEvent pEvent)
        (if (== (send pEvent:type()) 128)
            (if (Said('look>'))
                (if (Said('/bush'))
                    Print(38 0)
                )(else
                    (if (Said('/beach'))
                        Print(38 1)
                    )(else
                        (if (Said('/dirt'))
                            Print(38 2)
                        )(else
                            (if (Said('/grass'))
                                Print(38 3)
                            )(else
                                (if (Said('/flora'))
                                    Print(38 4)
                                )(else
                                    (if (Said('/blossom'))
                                        Print(38 5)
                                    )(else
                                        (if (Said('/forest'))
                                            Print(38 6)
                                        )(else
                                            (if (Said('/garden'))
                                                Print(38 7)
                                            )(else
                                                (if (Said('/path'))
                                                    Print(38 8)
                                                )(else
                                                    (if (Said('/castle'))
                                                        Print(38 9)
                                                    )(else
                                                        (if (Said('/ocean'))
                                                            Print(38 10)
                                                        )(else
                                                            (if (Said('/bird'))
                                                                Print(38 11)
                                                            )(else
                                                                (if (Said('/monument,dolphin'))
                                                                    Print(38 12)
                                                                )(else
                                                                    (if (Said('[<around][/island,room]'))
                                                                        Print(38 13)
                                                                    )
                                                                )
                                                            )
                                                        )
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )(else
                (if (Said('converse/bird'))
                    Print(38 14)
                )(else
                    (if (Said('capture,get/bird'))
                        Print(38 15)
                    )(else
                        (if (Said('kiss/bird'))
                            Print(38 16)
                        )(else
                            (if (Said('get/blossom'))
                                Print(38 17)
                            )
                        )
                    )
                )
            )
        )
    )

)
