(version 2)
(include "sci.sh")
(exports
    0 rm32
)
(use "Main")
(use "Class_255_0")
(use "NewFeature")
(use "Cycle")
(use "Game")
(use "User")
(use "PicView")
(script 32)


(local
    local0
    local1
    local2 =     241
    local3 =     293
    local4 =     107
    local5 =     3

)
(instance public rm32 of Rm
    (properties
        picture 32
        horizon 51
        north 33
        east 25
        south 17
        west 31
    )

    (method (init)
        Load(rsVIEW 241)
        (self:style(
            (switch (gGNumber)
                (case north
                    5
                )
                (case west
                    3
                )
                (case east
                    2
                )
                (case south
                    4
                )
            )
))
        (super:init())
        (switch (gGNumber)
            (case north
                (send gEgo:posn(proc0_17(174 (send gEgo:x) 78) (+ horizon 2)))
            )
            (case south
                (send gEgo:posn(proc0_17(319 proc0_18(296 (send gEgo:x) 180) 0) 188))
            )
            (case west
                (send gEgo:posn(3 proc0_17(188 (send gEgo:y) 83)))
            )
            (default 
                (if (< (send gEgo:y) 105)
                    (send gEgo:posn(317 proc0_17(60 (send gEgo:y) (+ 2 horizon))))
                )(else
                    (send gEgo:posn(317 proc0_17(188 (send gEgo:y) 129)))
                )
            )
        )
        (send gEgo:init())
        proc0_1()
        (self:setRegions(608))
        = local0 0
        (while (< local0 1)
            (send (= local1[local0] Clone(Ripple)):
                view(local2[local0])
                cycleSpeed(1)
                x(local3[local0])
                y(local4[local0])
                setLoop(local5[local0])
                ignoreActors(1)
                description("ripple")
                init()
                stopUpd()
            )
            (if (>= global101 1)
                (send local1[local0]:setCycle(Fwd))
            )
            ++local0
        )
        (bank1:init())
        (river1:init())
        (river2:init())
        (river3:init())
        (river4:init())
        (river5:init())
        (rock:init())
        (bush1:init())
        (bush2:init())
        (bush3:init())
        (bush4:init())
        (bush5:init())
        (bush6:init())
        (bush7:init())
        (bush8:init())
        (bush9:init())
        (bush10:init())
        (tree1:init())
        (tree2:init())
        (tree3:init())
    )


    (method (doit)
        (var temp0)
        (if (script)
            (send script:doit())
        )(else
            = temp0 
                (switch ((send ((User:alterEgo)):edgeHit))
                    (case 1
                        north
                    )
                    (case 2
                        east
                    )
                    (case 3
                        south
                    )
                    (case 4
                        west
                    )
                )
            (if (temp0)
                (self:newRoom((= temp0 
                        (switch ((send ((User:alterEgo)):edgeHit))
                            (case 1
                                north
                            )
                            (case 2
                                east
                            )
                            (case 3
                                south
                            )
                            (case 4
                                west
                            )
                        )
)))
            )
        )
    )


    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if ((super:handleEvent(pEvent)))
                return 
            )(else
                (if (Said('look,look>'))
                    (if (Said('<across[/brook,water,brook]'))
                        proc255_0(32 0)
                    )(else
                        (if (Said('/clearing'))
                            proc255_0(32 1)
                        )
                    )
                )
            )
        )
    )

)
(instance bank1 of NewFeature
    (properties
        x 287
        y 74
        noun 2150
        nsTop 60
        nsLeft 256
        nsBottom 88
        nsRight 319
        description 2224
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2229
    )
)
(instance river1 of NewFeature
    (properties
        x 239
        y 71
        noun 2154
        nsTop 59
        nsLeft 222
        nsBottom 84
        nsRight 256
        description 2285
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2291
    )
)
(instance river2 of NewFeature
    (properties
        x 277
        y 94
        noun 2154
        nsTop 84
        nsLeft 235
        nsBottom 105
        nsRight 320
        description 2285
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2291
    )
)
(instance river3 of NewFeature
    (properties
        x 291
        y 112
        noun 2154
        nsTop 105
        nsLeft 262
        nsBottom 120
        nsRight 320
        description 2285
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2291
    )
)
(instance river4 of NewFeature
    (properties
        x 240
        y 54
        noun 2154
        nsTop 49
        nsLeft 231
        nsBottom 59
        nsRight 249
        description 2285
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2291
    )
)
(instance river5 of NewFeature
    (properties
        x 305
        y 123
        noun 2154
        nsTop 120
        nsLeft 291
        nsBottom 126
        nsRight 320
        description 2285
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2291
    )
)
(instance Ripple of Prop
    (properties)

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (Said('look,look/brook,boulder,water'))
                proc255_0(32 2)
            )(else
                (super:handleEvent(pEvent))
            )
        )
    )


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

)
(instance rock of NewFeature
    (properties
        x 236
        y 185
        noun 2192
        nsTop 182
        nsLeft 198
        nsBottom 189
        nsRight 275
        description 2378
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2383
    )
)
(instance bush1 of NewFeature
    (properties
        x 232
        y 136
        noun 2196
        nsTop 130
        nsLeft 214
        nsBottom 142
        nsRight 250
        description 2429
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2434
    )
)
(instance bush2 of NewFeature
    (properties
        x 65
        y 165
        noun 2196
        nsTop 152
        nsLeft 38
        nsBottom 179
        nsRight 93
        description 2429
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2500
    )
)
(instance bush3 of NewFeature
    (properties
        x 23
        y 177
        noun 2196
        nsTop 173
        nsLeft 8
        nsBottom 182
        nsRight 39
        description 2429
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2500
    )
)
(instance bush4 of NewFeature
    (properties
        x 99
        y 171
        noun 2196
        nsTop 164
        nsLeft 93
        nsBottom 179
        nsRight 106
        description 2429
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2500
    )
)
(instance bush5 of NewFeature
    (properties
        x 60
        y 99
        noun 2196
        nsTop 92
        nsLeft 12
        nsBottom 107
        nsRight 109
        description 2429
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2500
    )
)
(instance bush6 of NewFeature
    (properties
        x 64
        y 86
        noun 2196
        nsTop 80
        nsLeft 31
        nsBottom 92
        nsRight 97
        description 2429
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2584
    )
)
(instance bush7 of NewFeature
    (properties
        x 151
        y 53
        noun 2196
        nsTop 47
        nsLeft 141
        nsBottom 59
        nsRight 162
        description 2429
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2584
    )
)
(instance bush8 of NewFeature
    (properties
        x 197
        y 61
        noun 2196
        nsTop 56
        nsLeft 178
        nsBottom 67
        nsRight 216
        description 2429
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2584
    )
)
(instance bush9 of NewFeature
    (properties
        x 198
        y 52
        noun 2196
        nsTop 48
        nsLeft 189
        nsBottom 56
        nsRight 207
        description 2429
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2584
    )
)
(instance bush10 of NewFeature
    (properties
        x 33
        y 67
        noun 2196
        nsTop 55
        nsBottom 80
        nsRight 67
        description 2429
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2584
    )
)
(instance tree1 of NewFeature
    (properties
        x 47
        y 22
        noun 2203
        nsTop -1
        nsBottom 46
        nsRight 95
        description 2675
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2680
    )
)
(instance tree2 of NewFeature
    (properties
        x 101
        y 35
        noun 2203
        nsTop 28
        nsLeft 95
        nsBottom 42
        nsRight 107
        description 2675
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2680
    )
)
(instance tree3 of NewFeature
    (properties
        x 32
        y 50
        noun 2203
        nsTop 46
        nsBottom 55
        nsRight 65
        description 2675
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2680
    )
)
