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



(instance public rm46 of Rm
    (properties
        picture 46
        horizon 52
        north 3
        east 47
        south 35
        west 45
        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(155 (send gEgo:x) 0) (+ horizon 2)))
            )
            (case south
                (send gEgo:posn(proc0_17(319 (send gEgo:x) 103) 188))
            )
            (case west
                (send gEgo:posn(3 proc0_17(177 proc0_18(129 (send gEgo:y) 114) 0)))
            )
            (case east
                (send gEgo:posn(317 proc0_18(182 (send gEgo:y) 160)))
            )
            (default 
                (send gEgo:posn(3 137))
            )
        )
        (send gEgo:init())
        proc0_1()
        (if (not proc0_12(2) and Random(0 3))
            (self:setRegions(602))
        )
        (stump1:init())
        (stump2:init())
        (smalltree1:init())
        (smalltree2:init())
        (smalltree3:init())
        (bush1:init())
        (bush2:init())
        (bush3:init())
        (bush4:init())
        (tree1:init())
        (tree2:init())
        (rock4:init())
        (rocks1:init())
        (rocks2:init())
        (rocks3:init())
    )


    (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(46 0)
                )
            )
        )
    )

)
(instance stump1 of NewFeature
    (properties
        x 21
        y 161
        noun 1565
        nsTop 134
        nsBottom 188
        nsRight 42
        description 1599
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1605
    )
)
(instance stump2 of NewFeature
    (properties
        x 59
        y 161
        noun 1565
        nsTop 150
        nsLeft 41
        nsBottom 173
        nsRight 77
        description 1599
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1605
    )
)
(instance smalltree1 of NewFeature
    (properties
        x 43
        y 79
        noun 1569
        nsTop 66
        nsBottom 92
        nsRight 87
        description 1675
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1686
    )
)
(instance smalltree2 of NewFeature
    (properties
        x 18
        y 103
        noun 1569
        nsTop 92
        nsLeft 12
        nsBottom 115
        nsRight 24
        description 1675
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1686
    )
)
(instance smalltree3 of NewFeature
    (properties
        x 79
        y 110
        noun 1569
        nsTop 101
        nsLeft 55
        nsBottom 120
        nsRight 104
        description 1675
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1686
    )
)
(instance rocks1 of NewFeature
    (properties
        x 181
        y 114
        noun 1578
        nsTop 104
        nsLeft 134
        nsBottom 124
        nsRight 228
        description 1794
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1800
    )
)
(instance rocks2 of NewFeature
    (properties
        x 263
        y 169
        noun 1578
        nsTop 157
        nsLeft 215
        nsBottom 181
        nsRight 311
        description 1794
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1800
    )
)
(instance rocks3 of NewFeature
    (properties
        x 271
        y 153
        noun 1578
        nsTop 150
        nsLeft 244
        nsBottom 157
        nsRight 298
        description 1794
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1800
    )
)
(instance bush1 of NewFeature
    (properties
        x 47
        y 40
        noun 1582
        nsTop 25
        nsLeft 27
        nsBottom 56
        nsRight 67
        description 1893
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1898
    )
)
(instance bush2 of NewFeature
    (properties
        x 84
        y 45
        noun 1582
        nsTop 36
        nsLeft 67
        nsBottom 55
        nsRight 101
        description 1893
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1898
    )
)
(instance bush3 of NewFeature
    (properties
        x 299
        y 40
        noun 1582
        nsTop 19
        nsLeft 279
        nsBottom 62
        nsRight 320
        description 1893
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1898
    )
)
(instance bush4 of NewFeature
    (properties
        x 260
        y 54
        noun 1582
        nsTop 44
        nsLeft 242
        nsBottom 65
        nsRight 279
        description 1893
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1898
    )
)
(instance tree1 of NewFeature
    (properties
        x 13
        y 17
        noun 1586
        nsTop -2
        nsBottom 36
        nsRight 26
        description 2020
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2025
    )
)
(instance tree2 of NewFeature
    (properties
        x 172
        y 18
        noun 1586
        nsTop -2
        nsLeft 26
        nsBottom 39
        nsRight 319
        description 2020
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 2025
    )
)
(instance rock4 of NewFeature
    (properties
        x 203
        y 58
        noun 1578
        nsTop 47
        nsLeft 163
        nsBottom 69
        nsRight 243
        description 2115
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1800
    )
)
