(version 2)
(include "sci.sh")
(exports
    0 rm29
)
(use "Main")
(use "Class_255_0")
(use "NewFeature")
(use "Game")
(use "User")
(script 29)



(instance public rm29 of Rm
    (properties
        picture 29
        horizon 70
        north 36
        east 30
        south 20
        west 28
        picAngle 60
    )

    (method (init)
        (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(319 proc0_18(258 (send gEgo:x) 148) 89) (+ horizon 2)))
            )
            (case south
                (send gEgo:posn(proc0_17(319 (send gEgo:x) 30) 188))
            )
            (case west
                (send gEgo:posn(3 proc0_17(188 (send gEgo:y) (+ 2 horizon))))
            )
            (case east
                (send gEgo:posn(317 proc0_17(188 (send gEgo:y) (+ 2 horizon))))
            )
            (default 
                (send gEgo:posn(3 137))
            )
        )
        (send gEgo:init())
        proc0_1()
        (tree1:init())
        (tree2:init())
        (tree3:init())
        (tree4:init())
        (tree5:init())
        (tree6:init())
        (tree7:init())
        (tree8:init())
        (tree9:init())
        (tree10:init())
        (tree11:init())
        (tree12:init())
        (tree13:init())
        (tree14:init())
        (tree15:init())
        (rock1:init())
        (rock2:init())
        (rock3:init())
        (rock4:init())
        (rock5:init())
        (if (not proc0_12(2) and Random(0 6))
            (self:setRegions(602))
        )
    )


    (method (doit)
        (var temp0)
        (if ((send gMenace:script) and ((<> (send gMenace:script) ScriptID(602 1)) or gTLHandsOff))
            (send ((send gMenace:script)):doit())
        )(else
            = temp0 
                (switch ((send ((User:alterEgo)):edgeHit))
                    (case 1
                        north
                    )
                    (case 2
                        east
                    )
                    (case 3
                        south
                    )
                    (case 4
                        west
                    )
                )
            (if (temp0)
                proc0_26()
                (self:newRoom(temp0))
            )(else
                (if (script)
                    (send script:doit())
                )
            )
        )
    )


    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if ((super:handleEvent(pEvent)))
                return 
            )(else
                (if (Said('look,look>') and Said('[<at,around][/room,ceder,clearing]'))
                    proc255_0(29 0)
                )
            )
        )
    )

)
(instance tree1 of NewFeature
    (properties
        x 72
        y 162
        noun 1893
        nsTop 152
        nsLeft 34
        nsBottom 173
        nsRight 110
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree2 of NewFeature
    (properties
        x 71
        y 106
        noun 1893
        nsTop 61
        nsLeft 51
        nsBottom 152
        nsRight 92
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree3 of NewFeature
    (properties
        x 65
        y 38
        noun 1893
        nsTop 16
        nsLeft 43
        nsBottom 61
        nsRight 87
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree4 of NewFeature
    (properties
        x 98
        y 25
        noun 1893
        nsTop 18
        nsLeft 86
        nsBottom 33
        nsRight 110
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree5 of NewFeature
    (properties
        x 22
        y 50
        noun 1893
        nsTop 40
        nsLeft 15
        nsBottom 61
        nsRight 29
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree6 of NewFeature
    (properties
        x 34
        y 31
        noun 1893
        nsTop 21
        nsLeft 26
        nsBottom 42
        nsRight 42
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree7 of NewFeature
    (properties
        x 74
        y 7
        noun 1893
        nsTop -2
        nsLeft 60
        nsBottom 16
        nsRight 88
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree8 of NewFeature
    (properties
        x 266
        y 69
        noun 1893
        nsTop 35
        nsLeft 256
        nsBottom 104
        nsRight 276
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree9 of NewFeature
    (properties
        x 260
        y 28
        noun 1893
        nsTop 22
        nsLeft 249
        nsBottom 35
        nsRight 272
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance rock1 of NewFeature
    (properties
        x 203
        y 160
        noun 1897
        nsTop 154
        nsLeft 195
        nsBottom 166
        nsRight 211
        description 2069
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2074
    )
)
(instance rock2 of NewFeature
    (properties
        x 220
        y 161
        noun 1897
        nsTop 157
        nsLeft 211
        nsBottom 165
        nsRight 230
        description 2069
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2074
    )
)
(instance rock3 of NewFeature
    (properties
        x 262
        y 166
        noun 1897
        nsTop 161
        nsLeft 230
        nsBottom 171
        nsRight 294
        description 2069
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2074
    )
)
(instance rock4 of NewFeature
    (properties
        x 271
        y 158
        noun 1897
        nsTop 155
        nsLeft 252
        nsBottom 161
        nsRight 290
        description 2069
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2074
    )
)
(instance rock5 of NewFeature
    (properties
        x 272
        y 152
        noun 1897
        nsTop 149
        nsLeft 266
        nsBottom 155
        nsRight 279
        description 2069
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2074
    )
)
(instance tree10 of NewFeature
    (properties
        x 305
        y 37
        noun 1893
        nsTop -1
        nsLeft 292
        nsBottom 75
        nsRight 318
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree11 of NewFeature
    (properties
        x 226
        y 31
        noun 1893
        nsTop -1
        nsLeft 212
        nsBottom 64
        nsRight 240
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree12 of NewFeature
    (properties
        x 183
        y 33
        noun 1893
        nsLeft 166
        nsBottom 66
        nsRight 201
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree13 of NewFeature
    (properties
        x 177
        y 69
        noun 1893
        nsTop 66
        nsLeft 161
        nsBottom 73
        nsRight 194
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree14 of NewFeature
    (properties
        x 38
        y 47
        noun 1893
        nsTop -1
        nsLeft 23
        nsBottom 96
        nsRight 53
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
(instance tree15 of NewFeature
    (properties
        x 3
        y 90
        noun 1893
        nsTop -2
        nsLeft -1
        nsBottom 183
        nsRight 6
        description 1911
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1916
    )
)
