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


(local
    local0
    local1[6]
    local7[6] = (263 224 62 24 203 123 )
    local13[6] = (167 171 169 159 178 178 )
    local19[6] = (3 3 3 3 2 1 )

)
(instance public rm83 of Rm
    (properties
        picture 83
        horizon 74
        north 16
        east 8
        west 1
    )

    (method (init)
        proc958_0(128 202 267)
        (self:style(
            (switch (gGNumber)
                (case north
                    5
                )
                (case west
                    41
                )
                (case east
                    2
                )
                (case south
                    4
                )
            )
))
        (super:init())
        (switch (gGNumber)
            (case north
                (send gEgo:posn(296 (+ horizon 2)))
            )
            (case west
                (send gEgo:x(3))
            )
            (case east
                (send gEgo:posn(317 99))
            )
            (default 
                (send gEgo:
                    loop(1)
                    posn(317 99)
                )
            )
        )
        (send gEgo:init())
        proc0_1()
        (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()
        )
        (bridge:init())
        (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(83 0)
                )(else
                    proc255_0(83 1)
                )
            )(else
                (if (Said('get,get,use/planter,caldron,planter'))
                    proc255_0(83 2)
                )(else
                    (if (Said('get,get<in/planter,planter,caldron') or Said('hide<in/planter,planter,caldron'))
                        proc255_0(83 3)
                    )(else
                        (super:handleEvent(pEvent))
                    )
                )
            )
        )
    )

)
(instance urn of RPicView
    (properties
        x 34
        y 103
        noun 1520
        description 1609
        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'))
                proc255_0(83 4)
            )(else
                (super:handleEvent(pEvent))
            )
        )
    )


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

)
(instance Ripple of Prop
    (properties)

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (Said('look,look/moat,water,brook'))
                proc255_0(83 5)
            )(else
                (super:handleEvent(pEvent))
            )
        )
    )


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

)
(instance bridge of NewFeature
    (properties
        x 224
        y 113
        noun 1560
        nsTop 94
        nsLeft 138
        nsBottom 133
        nsRight 311
        description 1620
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 1627
    )
)
(instance vine1 of NewFeature
    (properties
        x 35
        y 24
        noun 1564
        nsTop -1
        nsLeft 3
        nsBottom 49
        nsRight 68
        description 1687
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 1692
    )
)
(instance vine2 of NewFeature
    (properties
        x 31
        y 55
        noun 1564
        nsTop 49
        nsLeft 27
        nsBottom 62
        nsRight 36
        description 1687
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 1692
    )
)
(instance turret of NewFeature
    (properties
        x 144
        y 50
        noun 1577
        nsTop -1
        nsLeft 75
        nsBottom 101
        nsRight 214
        description 1764
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 1771
    )
)
(instance moat1 of NewFeature
    (properties
        x 225
        y 85
        noun 1584
        nsTop 80
        nsLeft 215
        nsBottom 91
        nsRight 235
        description 1859
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 1864
    )
)
(instance moat2 of NewFeature
    (properties
        x 262
        y 121
        noun 1584
        nsTop 93
        nsLeft 223
        nsBottom 150
        nsRight 302
        description 1859
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 1864
    )
)
(instance moat3 of NewFeature
    (properties
        x 245
        y 88
        noun 1584
        nsTop 84
        nsLeft 236
        nsBottom 92
        nsRight 254
        description 1859
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 1864
    )
)
(instance tree of NewFeature
    (properties
        x 267
        y 32
        noun 1588
        nsTop -1
        nsLeft 215
        nsBottom 65
        nsRight 319
        description 1969
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 1974
    )
)
(instance tree1 of NewFeature
    (properties
        x 291
        y 83
        noun 1588
        nsTop 64
        nsLeft 264
        nsBottom 103
        nsRight 319
        description 1969
        sightAngle 360
        getableDist 320
        seeableDist 500
        shiftClick 369
        lookStr 1974
    )
)
