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


(local
    local0
    local1[4]
    local5[4] = (241 242 242 226 )
    local9[4] = (136 57 264 282 )
    local13[4] = (147 140 94 150 )
    local17[4] = (1 3 3 3 )

)
(instance public rm33 of Rm
    (properties
        picture 33
        horizon 51
        north 48
        east 40
        south 32
        west 34
    )

    (method (init)
        proc958_0(128 241 242 226)
        (self:style(
            (switch (gGNumber)
                (case north
                    5
                )
                (case west
                    3
                )
                (case east
                    2
                )
                (case south
                    4
                )
            )
))
        (super:init())
        (tree1:init())
        (tree2:init())
        (tree3:init())
        (switch (gGNumber)
            (case north
                (send gEgo:posn(proc0_17(256 (send gEgo:x) 39) (+ horizon 2)))
            )
            (case south
                (if (< (send gEgo:x) 247)
                    (send gEgo:posn(proc0_17(273 (send gEgo:x) 0) 188))
                )(else
                    (send gEgo:posn(317 121))
                )
            )
            (case west
                (if (< (send gEgo:y) 128)
                    (send gEgo:posn(3 proc0_17(69 (send gEgo:y) (+ horizon 2))))
                )(else
                    (send gEgo:posn(3 proc0_17(188 (send gEgo:y) 183)))
                )
            )
            (default 
                (send gEgo:posn(317 proc0_17(139 (send gEgo:y) 113)))
            )
        )
        (send gEgo:init())
        proc0_1()
        (self:setRegions(608))
        = local0 0
        (while (< local0 4)
            (send (= local1[local0] Clone(Ripple)):
                view(local5[local0])
                cycleSpeed(1)
                x(local9[local0])
                y(local13[local0])
                setLoop(local17[local0])
                ignoreActors(1)
                description("ripple")
                init()
                stopUpd()
            )
            (if (>= global101 1)
                (send local1[local0]:setCycle(Fwd))
            )
            ++local0
        )
        (rock1:init())
        (river1:init())
        (river2:init())
        (river3:init())
        (river4:init())
        (river5:init())
        (river6:init())
        (river7:init())
        (river8:init())
        (river9:init())
        (river10:init())
        (river11:init())
        (boulder1:init())
        (boulder2:init())
        (boulder3:init())
        (boulder4:init())
        (bush1:init())
        (bush2:init())
        (bush3:init())
        (bush4:init())
        (bush5:init())
        (bush6:init())
        (bush7:init())
        (bush8:init())
        (bush9:init())
        (bush10:init())
        (bush11:init())
        (bush12:init())
        (bush13:init())
        (bush14: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,brook,water'))
                        proc255_0(33 0)
                    )(else
                        (if (Said('/rapid'))
                            proc255_0(33 1)
                        )(else
                            (if (Said('/clearing'))
                                proc255_0(33 2)
                            )
                        )
                    )
                )
            )
        )
    )

)
(instance river1 of NewFeature
    (properties
        x 50
        y 142
        noun 3038
        nsTop 111
        nsBottom 174
        nsRight 100
        description 3104
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 3110
    )
)
(instance river2 of NewFeature
    (properties
        x 118
        y 138
        noun 3038
        nsTop 109
        nsLeft 100
        nsBottom 168
        nsRight 137
        description 3104
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 3110
    )
)
(instance river3 of NewFeature
    (properties
        x 149
        y 107
        noun 3038
        nsTop 100
        nsLeft 136
        nsBottom 114
        nsRight 162
        description 3104
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 3110
    )
)
(instance river4 of NewFeature
    (properties
        x 161
        y 97
        noun 3038
        nsTop 94
        nsLeft 148
        nsBottom 100
        nsRight 175
        description 3104
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 3110
    )
)
(instance river5 of NewFeature
    (properties
        x 281
        y 84
        noun 3038
        nsTop 73
        nsLeft 243
        nsBottom 90
        nsRight 320
        description 3104
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 3110
    )
)
(instance river6 of NewFeature
    (properties
        x 271
        y 99
        noun 3038
        nsTop 94
        nsLeft 248
        nsBottom 105
        nsRight 294
        description 3104
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 3110
    )
)
(instance river7 of NewFeature
    (properties
        x 149
        y 146
        noun 3038
        nsTop 131
        nsLeft 136
        nsBottom 162
        nsRight 163
        description 3104
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 3110
    )
)
(instance river8 of NewFeature
    (properties
        x 173
        y 142
        noun 3038
        nsTop 135
        nsLeft 163
        nsBottom 150
        nsRight 184
        description 3104
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 3110
    )
)
(instance river9 of NewFeature
    (properties
        x 234
        y 142
        noun 3038
        nsTop 136
        nsLeft 208
        nsBottom 148
        nsRight 261
        description 3104
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 3110
    )
)
(instance river10 of NewFeature
    (properties
        x 275
        y 160
        noun 3038
        nsTop 148
        nsLeft 230
        nsBottom 172
        nsRight 320
        description 3104
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 3110
    )
)
(instance river11 of NewFeature
    (properties
        x 298
        y 180
        noun 3038
        nsTop 172
        nsLeft 277
        nsBottom 189
        nsRight 320
        description 3104
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 3110
    )
)
(instance boulder1 of NewFeature
    (properties
        x 212
        y 116
        noun 3061
        nsTop 105
        nsLeft 163
        nsBottom 128
        nsRight 262
        description 3277
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3285
    )
)
(instance boulder2 of NewFeature
    (properties
        x 213
        y 100
        noun 3061
        nsTop 96
        nsLeft 175
        nsBottom 104
        nsRight 251
        description 3277
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3285
    )
)
(instance boulder3 of NewFeature
    (properties
        x 208
        y 91
        noun 3061
        nsTop 86
        nsLeft 186
        nsBottom 96
        nsRight 230
        description 3277
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3285
    )
)
(instance boulder4 of NewFeature
    (properties
        x 205
        y 80
        noun 3061
        nsTop 74
        nsLeft 194
        nsBottom 86
        nsRight 217
        description 3277
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3285
    )
)
(instance Ripple of Prop
    (properties)

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


    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                proc255_0(33 3)
            )
        )
    )

)
(instance tree1 of NewFeature
    (properties
        x 43
        y 22
        noun 3080
        nsTop -1
        nsBottom 45
        nsRight 86
        description 3375
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3381
    )
)
(instance tree2 of NewFeature
    (properties
        x 25
        y 58
        noun 3080
        nsTop 46
        nsLeft 6
        nsBottom 70
        nsRight 44
        description 3433
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3381
    )
)
(instance tree3 of NewFeature
    (properties
        x 138
        y 18
        noun 3080
        nsTop -1
        nsLeft 109
        nsBottom 38
        nsRight 167
        description 3439
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3381
    )
)
(instance bush1 of NewFeature
    (properties
        x 21
        y 67
        noun 3084
        nsTop 57
        nsBottom 77
        nsRight 43
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush2 of NewFeature
    (properties
        x 51
        y 69
        noun 3084
        nsTop 63
        nsLeft 43
        nsBottom 75
        nsRight 60
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush3 of NewFeature
    (properties
        x 68
        y 72
        noun 3084
        nsTop 67
        nsLeft 60
        nsBottom 77
        nsRight 77
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush4 of NewFeature
    (properties
        x 50
        y 43
        noun 3084
        nsTop 35
        nsLeft 36
        nsBottom 51
        nsRight 64
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush5 of NewFeature
    (properties
        x 78
        y 43
        noun 3084
        nsTop 36
        nsLeft 67
        nsBottom 51
        nsRight 90
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush6 of NewFeature
    (properties
        x 142
        y 36
        noun 3084
        nsTop 27
        nsLeft 120
        nsBottom 45
        nsRight 164
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush7 of NewFeature
    (properties
        x 5
        y 44
        noun 3084
        nsTop 38
        nsBottom 51
        nsRight 11
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush8 of NewFeature
    (properties
        x 303
        y 35
        noun 3084
        nsTop 19
        nsLeft 286
        nsBottom 52
        nsRight 320
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush9 of NewFeature
    (properties
        x 276
        y 24
        noun 3084
        nsTop 16
        nsLeft 268
        nsBottom 32
        nsRight 285
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush10 of NewFeature
    (properties
        x 240
        y 40
        noun 3084
        nsTop 36
        nsLeft 221
        nsBottom 45
        nsRight 260
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush11 of NewFeature
    (properties
        x 255
        y 30
        noun 3084
        nsTop 25
        nsLeft 242
        nsBottom 35
        nsRight 269
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush12 of NewFeature
    (properties
        x 277
        y 49
        noun 3084
        nsTop 46
        nsLeft 268
        nsBottom 52
        nsRight 286
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush13 of NewFeature
    (properties
        x 313
        y 102
        noun 3084
        nsTop 86
        nsLeft 307
        nsBottom 119
        nsRight 320
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance bush14 of NewFeature
    (properties
        x 301
        y 105
        noun 3084
        nsTop 92
        nsLeft 296
        nsBottom 118
        nsRight 307
        description 3445
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3450
    )
)
(instance rock1 of NewFeature
    (properties
        x 273
        y 40
        noun 3061
        nsTop 34
        nsLeft 260
        nsBottom 46
        nsRight 286
        description 3618
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 3623
    )
)
