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


(local
    local0
    local1[2]
    local3[2] = (114 9 )
    local5[2] = (71 112 )
    local7[2] = (0 1 )

)
(instance public rm26 of Rm
    (properties
        picture 26
        horizon 43
        north 39
        east 27
        south 23
        west 25
    )

    (method (init)
        Load(rsVIEW 226)
        (self:style(
            (switch (gGNumber)
                (case north
                    5
                )
                (case west
                    3
                )
                (case east
                    2
                )
                (case south
                    4
                )
            )
))
        (super:init())
        (switch (gGNumber)
            (case north
                (if (< (send gEgo:x) 93)
                    (send gEgo:posn(63 (+ horizon 2)))
                )(else
                    (send gEgo:posn(proc0_17(319 (send gEgo:x) 213) 57))
                )
            )
            (case south
                (send gEgo:posn(proc0_18(179 (send gEgo:x) 9) 188))
            )
            (case west
                (if (< (send gEgo:y) 100)
                    (send gEgo:posn(3 proc0_17(61 (send gEgo:y) (+ horizon 2))))
                )(else
                    (send gEgo:posn(3 proc0_17(188 (send gEgo:y) 128)))
                )
            )
            (case east
                (send gEgo:posn(317 proc0_17(188 (send gEgo:y) 54)))
            )
            (default 
                (send gEgo:posn(163 188))
            )
        )
        (send gEgo:init())
        proc0_1()
        (self:setRegions(608))
        = local0 0
        (while (< local0 2)
            (send (= local1[local0] Clone(Ripple)):
                cycleSpeed(1)
                view(226)
                x(local3[local0])
                y(local5[local0])
                setLoop(local7[local0])
                ignoreActors(1)
                description("ripple")
                init()
                stopUpd()
            )
            (if (>= global101 1)
                (send local1[local0]:setCycle(Fwd))
            )
            ++local0
        )
        (bank1:init())
        (bank2:init())
        (bank3:init())
        (bank4:init())
        (bank5:init())
        (river1:init())
        (river2:init())
        (river3:init())
        (river4:init())
        (river5:init())
        (river6:init())
        (bigtree1:init())
        (bigtree2:init())
        (smalltree1:init())
        (smalltree2:init())
        (smalltree3:init())
        (bush1:init())
        (bush2:init())
        (bush3:init())
        (bush4: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>') and Said('[<at,around][/room,clearing,bury,vegetation,grass]'))
                    proc255_0(26 0)
                )
            )
        )
    )

)
(instance bank1 of NewFeature
    (properties
        x 19
        y 72
        noun 2179
        nsTop 64
        nsBottom 81
        nsRight 38
        description 2246
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2251
    )
)
(instance bank2 of NewFeature
    (properties
        x 52
        y 66
        noun 2179
        nsTop 58
        nsLeft 38
        nsBottom 75
        nsRight 67
        description 2246
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2251
    )
)
(instance bank3 of NewFeature
    (properties
        x 74
        y 64
        noun 2179
        nsTop 55
        nsLeft 66
        nsBottom 73
        nsRight 82
        description 2246
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2251
    )
)
(instance bank4 of NewFeature
    (properties
        x 91
        y 56
        noun 2179
        nsTop 51
        nsLeft 82
        nsBottom 62
        nsRight 101
        description 2246
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2251
    )
)
(instance bank5 of NewFeature
    (properties
        x 106
        y 49
        noun 2179
        nsTop 45
        nsLeft 101
        nsBottom 54
        nsRight 111
        description 2246
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2251
    )
)
(instance river1 of NewFeature
    (properties
        x 12
        y 104
        noun 2179
        nsTop 85
        nsBottom 123
        nsRight 25
        description 2323
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2329
    )
)
(instance river2 of NewFeature
    (properties
        x 40
        y 97
        noun 2183
        nsTop 82
        nsLeft 23
        nsBottom 113
        nsRight 58
        description 2323
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2329
    )
)
(instance river3 of NewFeature
    (properties
        x 66
        y 89
        noun 2183
        nsTop 75
        nsLeft 57
        nsBottom 104
        nsRight 75
        description 2323
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2329
    )
)
(instance river4 of NewFeature
    (properties
        x 84
        y 84
        noun 2183
        nsTop 73
        nsLeft 75
        nsBottom 96
        nsRight 93
        description 2323
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2329
    )
)
(instance river5 of NewFeature
    (properties
        x 102
        y 76
        noun 2183
        nsTop 63
        nsLeft 91
        nsBottom 89
        nsRight 114
        description 2323
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2329
    )
)
(instance river6 of NewFeature
    (properties
        x 121
        y 53
        noun 2183
        nsTop 45
        nsLeft 111
        nsBottom 61
        nsRight 131
        description 2323
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 2329
    )
)
(instance bigtree1 of NewFeature
    (properties
        x 256
        y 23
        noun 2193
        nsLeft 194
        nsBottom 46
        nsRight 319
        description 2439
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2444
    )
)
(instance bigtree2 of NewFeature
    (properties
        x 272
        y 77
        noun 2193
        nsTop 46
        nsLeft 260
        nsBottom 108
        nsRight 284
        description 2439
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2444
    )
)
(instance smalltree1 of NewFeature
    (properties
        x 65
        y 160
        noun 2202
        nsTop 152
        nsLeft 42
        nsBottom 168
        nsRight 89
        description 2439
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2512
    )
)
(instance smalltree2 of NewFeature
    (properties
        x 99
        y 146
        noun 2202
        nsTop 151
        nsLeft 70
        nsBottom 140
        nsRight 128
        description 2439
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2512
    )
)
(instance smalltree3 of NewFeature
    (properties
        x 117
        y 158
        noun 2202
        nsTop 151
        nsLeft 89
        nsBottom 165
        nsRight 145
        description 2439
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2512
    )
)
(instance bush1 of NewFeature
    (properties
        x 246
        y 124
        noun 2211
        nsTop 116
        nsLeft 220
        nsBottom 133
        nsRight 273
        description 2603
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2608
    )
)
(instance bush2 of NewFeature
    (properties
        x 280
        y 115
        noun 2211
        nsTop 109
        nsLeft 260
        nsBottom 121
        nsRight 300
        description 2603
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2608
    )
)
(instance bush3 of NewFeature
    (properties
        x 172
        y 87
        noun 2211
        nsTop 80
        nsLeft 156
        nsBottom 94
        nsRight 188
        description 2603
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2608
    )
)
(instance bush4 of NewFeature
    (properties
        x 178
        y 59
        noun 2211
        nsTop 50
        nsLeft 162
        nsBottom 69
        nsRight 194
        description 2603
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2608
    )
)
(instance Ripple of Prop
    (properties)

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


    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                proc255_0(26 1)
            )
        )
    )

)
