(version 2)
(include "sci.sh")
(exports
    0 rm74
)
(use "Main")
(use "Class_255_0")
(use "NewFeature")
(use "Extra")
(use "Cycle")
(use "Game")
(use "PicView")
(script 74)



(instance public rm74 of Rm
    (properties
        picture 74
        horizon 116
        north 73
        west 75
    )

    (method (init)
        Load(rsVIEW 274)
        (self:style(
            (switch (gGNumber)
                (case north
                    7
                )
                (case west
                    3
                )
            )
))
        (super:init())
        (switch (gGNumber)
            (case west
                (send gEgo:posn(3 proc0_17(175 (send gEgo:y) 149)))
            )
            (default 
                (send gEgo:posn(
                    (if (<= (send gEgo:x) 181)
                        234
                    )(else
                        (if (>= (send gEgo:x) 235)
                            276
                        )(else
                            249
                        )
                    )
 (+ horizon 2)))
            )
        )
        (send gEgo:init())
        proc0_1()
        (torchLight:
            setPri(4)
            init()
            stopUpd()
        )
        (if (>= global101 1)
            (torchLight:setCycle(Fwd))
            (d1:
                setPri(14)
                init()
            )
            (d2:
                setPri(14)
                init()
            )
            (d3:
                setPri(15)
                init()
            )
        )
        (light:init())
        (stalactite1:init())
        (stalactite2:init())
        (stalactite3:init())
        (stalactite4:init())
        (stalactite5:init())
    )

)
(instance torchLight of Prop
    (properties
        x 146
        y 115
        description 1631
        view 274
        loop 1
    )

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (proc255_5(self pEvent) or Said('look,look/torch,candle,light,flame,fire'))
                proc255_0(74 0)
            )(else
                (if (Said('look,look>'))
                    (if (Said('[<at,around][/room,cave]'))
                        proc255_0(74 1)
                    )(else
                        (if (Said('/drip'))
                            proc255_0(74 2)
                        )
                    )
                )(else
                    (if (Said('get,get,get/torch'))
                        proc255_0(74 3)
                    )(else
                        (if (((== (send pEvent:type) 1) and (& (send pEvent:modifiers) $0003)) and (== OnControl(2 (send pEvent:x) (send pEvent:y)) -32768))
                            proc255_0(74 4)
                        )(else
                            (if (Said('/stalactite,stalactite>'))
                                (if (Said('get,bend'))
                                    proc255_0(74 5)
                                )(else
                                    (if (Said('look,look'))
                                        proc255_0(74 4)
                                    )
                                )
                            )(else
                                (super:handleEvent(pEvent))
                            )
                        )
                    )
                )
            )
        )
    )

)
(instance d1 of Extra
    (properties
        x 9
        y 81
        description 1648
        view 274
        loop 2
        cycleType 1
        minPause 30
        maxPause 34
        minCycles 1
        maxCycles 1
    )

    (method (doVerb theVerb param2)
        (switch (theVerb)
            (case 1
                proc255_0(74 2)
            )
            (default 
                (super:doVerb(theVerb rest param2))
            )
        )
    )

)
(instance d2 of Extra
    (properties
        x 87
        y 87
        description 1648
        view 274
        loop 2
        cycleType 1
        minPause 20
        maxPause 24
        minCycles 1
        maxCycles 1
    )

    (method (doVerb theVerb param2)
        (d1:doVerb(theVerb rest param2))
    )

)
(instance d3 of Extra
    (properties
        x 258
        y 62
        description 1648
        view 274
        loop 2
        cycleType 1
        minPause 50
        maxPause 54
        minCycles 1
        maxCycles 1
    )

    (method (doVerb theVerb param2)
        (d1:doVerb(theVerb rest param2))
    )

)
(instance light of NewFeature
    (properties
        x 245
        y 52
        noun 1611
        nsTop 30
        nsLeft 240
        nsBottom 74
        nsRight 251
        description 1662
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1668
    )
)
(instance stalactite1 of NewFeature
    (properties
        x 102
        y 36
        noun 1618
        nsTop 26
        nsLeft 46
        nsBottom 46
        nsRight 159
        description 1751
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1762
    )
)
(instance stalactite2 of NewFeature
    (properties
        x 87
        y 66
        noun 1618
        nsTop 46
        nsLeft 81
        nsBottom 87
        nsRight 93
        description 1751
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1762
    )
)
(instance stalactite3 of NewFeature
    (properties
        x 60
        y 57
        noun 1618
        nsTop 46
        nsLeft 56
        nsBottom 69
        nsRight 64
        description 1751
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1762
    )
)
(instance stalactite4 of NewFeature
    (properties
        x 10
        y 61
        noun 1618
        nsTop 41
        nsBottom 81
        nsRight 20
        description 1751
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1762
    )
)
(instance stalactite5 of NewFeature
    (properties
        x 119
        y 57
        noun 1618
        nsTop 46
        nsLeft 115
        nsBottom 68
        nsRight 124
        description 1751
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 1762
    )
)
