(version 2)
(include "sci.sh")
(exports
    0 rm2
)
(use "Main")
(use "Class_255_0")
(use "NewFeature")
(use "n958")
(use "RFeature")
(use "Cycle")
(use "Game")
(use "PicView")
(script 2)


(local
    local0
    local1[6]
    local7[6] = (137 203 296 258 96 56 )
    local13[6] = (178 178 159 168 171 167 )
    local19[6] = (1 2 3 3 3 3 )

)
(instance public rm2 of Rm
    (properties
        picture 2
        horizon 67
        north 15
        east 1
        south 47
        west 3
    )

    (method (init)
        proc958_0(128 202 267)
        (self:style(
            (switch (gGNumber)
                (case north
                    5
                )
                (case west
                    3
                )
                (case east
                    40
                )
                (case south
                    4
                )
            )
))
        (super:init())
        (switch (gGNumber)
            (case north
                (send gEgo:posn(58 (+ horizon 2)))
            )
            (case south
                (send gEgo:posn(163 188))
            )
            (case west
                (send gEgo:posn(3 100))
            )
            (case east
                (send gEgo:x(317))
            )
            (default 
                (send gEgo:posn(3 100))
            )
        )
        (send gEgo:init())
        proc0_1()
        (bridge:init())
        (tree:init())
        (tree1:init())
        (self:setRegions(605))
        = local0 0
        (while (< local0 6)
            (send (= local1[local0] Clone(Ripple)):
                view(202)
                cycleSpeed(1)
                setPri(3)
                x(local7[local0])
                y(local13[local0])
                setLoop(local19[local0])
                ignoreActors(1)
                ignoreActors(1)
                sightAngle(180)
                closeRangeDist(500)
                longRangeDist(500)
                description("ripples")
                init()
                stopUpd()
            )
            (if (>= global101 1)
                (send local1[local0]:setCycle(Fwd))
            )
            ++local0
        )
        (send gAddToPics:
            add(urn)
            eachElementDo(#init)
            doit()
        )
        (vine1:init())
        (vine2:init())
        (turret:init())
        (moat1:init())
        (moat2:init())
        (moat3:init())
    )


    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (Said('look,look/blossom'))
                (if (< (send gEgo:y) 112)
                    proc255_0(2 0)
                )(else
                    proc255_0(2 1)
                )
            )(else
                (if (Said('get,get,use/planter,caldron,planter'))
                    proc255_0(2 2)
                )(else
                    (if (Said('get,get<in/planter,planter,caldron') or Said('hide<in/planter,planter,caldron'))
                        proc255_0(2 3)
                    )(else
                        (super:handleEvent(pEvent))
                    )
                )
            )
        )
    )

)
(instance urn of RPicView
    (properties
        x 288
        y 103
        noun 1530
        description 1618
        sightAngle 180
        closeRangeDist 300
        longRangeDist 300
        view 267
    )

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (Said('look,look/planter,planter,planter,caldron'))
                (self:doVerb(1))
            )(else
                (super:handleEvent(pEvent))
            )
        )
    )


    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                proc255_0(2 4)
            )
        )
    )

)
(instance Ripple of Prop
    (properties)

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (Said('look,look/moat,water,brook'))
                (self:doVerb(1))
            )(else
                (super:handleEvent(pEvent))
            )
        )
    )


    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                proc255_0(2 5)
            )
        )
    )

)
(instance bridge of NewFeature
    (properties
        x 91
        y 111
        noun 1570
        nsTop 95
        nsLeft 3
        nsBottom 128
        nsRight 179
        description 1629
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1636
    )
)
(instance vine1 of NewFeature
    (properties
        x 281
        y 27
        noun 1574
        nsLeft 246
        nsBottom 55
        nsRight 317
        description 1690
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1695
    )
)
(instance vine2 of NewFeature
    (properties
        x 280
        y 59
        noun 1574
        nsTop 55
        nsLeft 274
        nsBottom 63
        nsRight 287
        description 1690
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1695
    )
)
(instance turret of NewFeature
    (properties
        x 173
        y 49
        noun 1587
        nsTop -1
        nsLeft 104
        nsBottom 100
        nsRight 242
        description 1767
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1774
    )
)
(instance moat1 of NewFeature
    (properties
        x 57
        y 125
        noun 1594
        nsTop 102
        nsLeft 22
        nsBottom 149
        nsRight 93
        description 1862
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1867
    )
)
(instance moat2 of NewFeature
    (properties
        x 78
        y 93
        noun 1594
        nsTop 86
        nsLeft 59
        nsBottom 101
        nsRight 97
        description 1862
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1867
    )
)
(instance moat3 of NewFeature
    (properties
        x 97
        y 82
        noun 1594
        nsTop 75
        nsLeft 90
        nsBottom 90
        nsRight 105
        description 1862
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1867
    )
)
(instance tree of NewFeature
    (properties
        x 52
        y 32
        noun 1598
        nsTop -1
        nsBottom 65
        nsRight 104
        description 1972
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1977
    )
)
(instance tree1 of NewFeature
    (properties
        x 13
        y 74
        noun 1598
        nsTop 64
        nsBottom 84
        nsRight 27
        description 1972
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1977
    )
)
