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


(local
    local0
    local1[2]
    local3[2] = (234 226 )
    local5[2] = (230 281 )
    local7[2] = (133 150 )
    local9[2] = (0 3 )

)
(instance public rm34 of Rm
    (properties
        picture 34
        horizon 47
        north 47
        east 33
        south 31
        west 35
    )

    (method (init)
        (self:style(
            (switch (gGNumber)
                (case north
                    5
                )
                (case west
                    3
                )
                (case east
                    2
                )
                (case south
                    4
                )
            )
))
        proc958_0(128 234 226)
        (super:init())
        (switch (gGNumber)
            (case north
                (if (< (send gEgo:x) 230)
                    (send gEgo:posn((+ (send gEgo:x) 100) (+ horizon 2)))
                )(else
                    (send gEgo:posn(proc0_17(319 (send gEgo:x) 297) (+ horizon 2)))
                )
            )
            (case south
                (send gEgo:y(188))
            )
            (case west
                (send gEgo:posn(3 proc0_17(188 (send gEgo:y) 68)))
            )
            (case east
                (if (< (send gEgo:y) 140)
                    (send gEgo:posn(317 proc0_17(66 (send gEgo:y) 49)))
                )(else
                    (send gEgo:posn(317 187))
                )
            )
            (default 
                (send gEgo:posn(3 137))
            )
        )
        (send gEgo:init())
        proc0_1()
        (self:setRegions(608))
        = local0 0
        (while (< local0 2)
            (send (= local1[local0] Clone(Ripple)):
                view(local3[local0])
                cycleSpeed(1)
                x(local5[local0])
                y(local7[local0])
                setLoop(local9[local0])
                setPri(2)
                ignoreActors(1)
                description("ripple")
                init()
                stopUpd()
            )
            (if (>= global101 1)
                (send local1[local0]:setCycle(Fwd))
            )
            ++local0
        )
        (rock1:init())
        (rock2:init())
        (rock3:init())
        (rock4:init())
        (rock5:init())
        (rock6:init())
        (rock7:init())
        (rock8:init())
        (river1:init())
        (river2:init())
        (river3:init())
        (river4:init())
        (cliff1:init())
        (cliff2:init())
        (tree1:init())
        (tree2:init())
        (tree3:init())
        (bush1:init())
        (bush2:init())
        (bush3:init())
        (bush4:init())
        (bush5: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('[<at,around][/room,grass]'))
                        proc255_0(34 0)
                    )(else
                        (if (Said('<across') or Said('<across/brook,water,brook'))
                            proc255_0(34 1)
                        )(else
                            (if (Said('/clearing'))
                                proc255_0(34 2)
                            )
                        )
                    )
                )
            )
        )
    )

)
(instance rock1 of NewFeature
    (properties
        x 38
        y 85
        noun 2359
        nsTop 80
        nsLeft 16
        nsBottom 90
        nsRight 60
        description 2416
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2421
    )
)
(instance rock2 of NewFeature
    (properties
        x 40
        y 96
        noun 2359
        nsTop 90
        nsLeft 5
        nsBottom 102
        nsRight 75
        description 2416
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2421
    )
)
(instance rock3 of NewFeature
    (properties
        x 53
        y 105
        noun 2359
        nsTop 102
        nsLeft 13
        nsBottom 109
        nsRight 94
        description 2416
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2421
    )
)
(instance rock4 of NewFeature
    (properties
        x 67
        y 114
        noun 2359
        nsTop 109
        nsLeft 31
        nsBottom 119
        nsRight 103
        description 2416
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2421
    )
)
(instance rock5 of NewFeature
    (properties
        x 86
        y 123
        noun 2359
        nsTop 119
        nsLeft 63
        nsBottom 127
        nsRight 110
        description 2416
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2421
    )
)
(instance rock6 of NewFeature
    (properties
        x 106
        y 132
        noun 2359
        nsTop 127
        nsLeft 85
        nsBottom 138
        nsRight 128
        description 2416
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2421
    )
)
(instance rock7 of NewFeature
    (properties
        x 177
        y 99
        noun 2359
        nsTop 83
        nsLeft 154
        nsBottom 116
        nsRight 201
        description 2416
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2421
    )
)
(instance rock8 of NewFeature
    (properties
        x 187
        y 127
        noun 2359
        nsTop 116
        nsLeft 165
        nsBottom 139
        nsRight 209
        description 2416
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2421
    )
)
(instance Ripple of Prop
    (properties)

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


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

)
(instance river1 of NewFeature
    (properties
        x 232
        y 63
        noun 2372
        nsTop 49
        nsLeft 199
        nsBottom 78
        nsRight 266
        description 2550
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2556
    )
)
(instance river2 of NewFeature
    (properties
        x 246
        y 102
        noun 2372
        nsTop 78
        nsLeft 202
        nsBottom 126
        nsRight 290
        description 2550
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2556
    )
)
(instance river3 of NewFeature
    (properties
        x 268
        y 138
        noun 2372
        nsTop 126
        nsLeft 217
        nsBottom 150
        nsRight 319
        description 2550
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2556
    )
)
(instance river4 of NewFeature
    (properties
        x 287
        y 162
        noun 2372
        nsTop 150
        nsLeft 254
        nsBottom 175
        nsRight 320
        description 2550
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2556
    )
)
(instance cliff1 of NewFeature
    (properties
        x 242
        y 39
        noun 2382
        nsTop 23
        nsLeft 213
        nsBottom 56
        nsRight 272
        description 2621
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2627
    )
)
(instance cliff2 of NewFeature
    (properties
        x 292
        y 97
        noun 2382
        nsTop 57
        nsLeft 264
        nsBottom 138
        nsRight 320
        description 2621
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2627
    )
)
(instance tree1 of NewFeature
    (properties
        x 15
        y 26
        noun 2392
        nsBottom 52
        nsRight 30
        description 2747
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2752
    )
)
(instance tree2 of NewFeature
    (properties
        x 89
        y 19
        noun 2392
        nsTop -1
        nsLeft 68
        nsBottom 39
        nsRight 110
        description 2747
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2752
    )
)
(instance tree3 of NewFeature
    (properties
        x 303
        y 17
        noun 2392
        nsTop -1
        nsLeft 286
        nsBottom 36
        nsRight 320
        description 2747
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2752
    )
)
(instance bush1 of NewFeature
    (properties
        x 31
        y 59
        noun 2396
        nsTop 51
        nsBottom 67
        nsRight 63
        description 2831
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2837
    )
)
(instance bush2 of NewFeature
    (properties
        x 94
        y 46
        noun 2396
        nsTop 40
        nsLeft 66
        nsBottom 53
        nsRight 123
        description 2900
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2837
    )
)
(instance bush3 of NewFeature
    (properties
        x 47
        y 33
        noun 2396
        nsTop 25
        nsLeft 27
        nsBottom 42
        nsRight 68
        description 2906
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2837
    )
)
(instance bush4 of NewFeature
    (properties
        x 178
        y 73
        noun 2396
        nsTop 66
        nsLeft 168
        nsBottom 81
        nsRight 188
        description 2912
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2837
    )
)
(instance bush5 of NewFeature
    (properties
        x 309
        y 41
        noun 2396
        nsTop 35
        nsLeft 298
        nsBottom 47
        nsRight 320
        description 2918
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2837
    )
)
