(version 2)
(include "sci.sh")
(exports
    0 rm12
)
(use "Main")
(use "Class_255_0")
(use "NewFeature")
(use "Feature")
(use "n958")
(use "Rev")
(use "RFeature")
(use "Cycle")
(use "Game")
(use "PicView")
(use "Obj")
(script 12)



(procedure (localproc_187c)
    (send gEgo:
        view(212)
        ignoreActors()
        posn(183 115)
        loop(3)
        cel(0)
        setPri(9)
    )
    (knifehand:
        view(212)
        ignoreActors()
        posn(193 104)
        setCycle(Fwd)
        loop(4)
        cel(0)
        setPri(10)
        init()
    )
)


(procedure (localproc_18d2)
    (knifehand:
        cel(0)
        stopUpd()
    )
    (knifehand:dispose())
)


(procedure (localproc_18e8)
    proc255_0(12 58)
)


(procedure (localproc_18f2)
    proc255_0(12 59)
)


(procedure (localproc_18fc)
    proc255_0(12 60)
)


(procedure (localproc_1906)
    proc0_3()
    proc0_1()
    (send gEgo:
        loop(2)
        posn(184 135)
    )
)


(procedure (localproc_1921)
    proc0_2()
    (send gEgo:
        view(212)
        ignoreActors()
        posn(210 140)
        setCycle(Fwd)
        loop(1)
        cel(0)
        cycleSpeed(1)
        priority(12)
    )
)


(procedure (localproc_1957)
    proc255_0(12 61)
)


(procedure (localproc_1961)
    (send gEgo:inRect(160 115 200 138))
)


(procedure (localproc_1976)
    (send gEgo:inRect(140 150 218 162))
)


(procedure (localproc_198c)
    proc255_0(12 49)
)


(instance public rm12 of Rm
    (properties
        picture 12
        horizon 74
        north 21
        east 13
        south 5
        west 11
    )

    (method (init)
        proc958_0(128 212 61 
            (if (proc0_12(0))
                17
            )(else
                15
            )
)
        (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(275 (send gEgo:x) 163) (+ horizon 2)))
            )
            (case south
                (send gEgo:posn(proc0_17(319 (send gEgo:x) 90) 188))
            )
            (case west
                (send gEgo:posn(3 proc0_17(187 (send gEgo:y) 117)))
            )
            (default 
                (send gEgo:posn(317 proc0_17(187 (send gEgo:y) 118)))
            )
        )
        (send gEgo:init())
        proc0_1()
        (send gAddToPics:
            add(vine)
            eachElementDo(#init)
            doit()
        )
        (crank:
            setPri(10)
            ignoreActors()
            init()
            stopUpd()
        )
        (if (not 
        (if ((proc0_12(20) or proc0_12(21)) or (send gEgo:has(8)))
        )(else
            proc0_12(25)
        )
)
            (bucket:
                view(212)
                posn(179 122)
                illegalBits(0)
                setPri(10)
                setCel(1)
                setLoop(5)
                ignoreActors()
                init()
                stopUpd()
            )
        )
        (if ((send gCast:contains(bucket)))
            (baranrope:
                loop(0)
                cel(0)
            )
        )(else
            (if (proc0_12(21) or proc0_12(20))
                (baranrope:
                    loop(0)
                    cel(14)
                )
            )(else
                (if (proc0_12(25))
                    (baranrope:
                        loop(5)
                        cel(0)
                    )
                )
            )
        )
        (baranrope:
            setPri(10)
            ignoreActors()
            init()
            stopUpd()
        )
        (if (proc0_12(19) and (== gGNumber 49))
            (send global2:setScript(climbOutaWell))
        )
        (tree1:init())
        (tree2:init())
        (tree3:init())
        (tree4:init())
        (tree5:init())
        (bush:init())
        (bush2:init())
        (wellBush:init())
    )


    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if ((super:handleEvent(pEvent)))
                return 
            )(else
                (if (Said('get,get,get,pick,uncoil/vine'))
                    proc255_0(12 0)
                )(else
                    (if (Said('look,look>'))
                        (if (Said('[<at,around][/room,clearing]'))
                            proc255_0(12 1)
                        )(else
                            (if (Said('/blossom'))
                                proc255_0(12 2)
                            )(else
                                (if (Said('<in,down/well'))
                                    (if ((send gEgo:inRect(163 131 199 161)))
                                        proc255_0(12 3)
                                    )(else
                                        proc255_0(12 4)
                                    )
                                )(else
                                    (if (Said('<down'))
                                        (if ((send gEgo:inRect(163 131 199 161)))
                                            proc255_0(12 3)
                                        )(else
                                            proc255_0(12 5)
                                        )
                                    )(else
                                        (if (Said('/well'))
                                            proc255_0(12 6)
                                        )(else
                                            (if (Said('look,look/grass,grass'))
                                                proc255_0(12 5)
                                            )(else
                                                (if (Said('<in/bucket'))
                                                    (if (proc0_12(21))
                                                        proc255_0(12 7)
                                                    )(else
                                                        (send pEvent:claimed(0))
                                                    )
                                                )(else
                                                    (if (Said('/water') and not proc0_12(9))
                                                        (if ((send gEgo:inRect(163 131 199 161)))
                                                            proc255_0(12 8)
                                                        )(else
                                                            proc255_0(12 9)
                                                        )
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )(else
                        (if (Said('get,get/water'))
                            (if (not (send gEgo:has(8)))
                                proc255_0(12 10)
                            )(else
                                (if (not proc0_12(9))
                                    proc255_0(12 11)
                                )(else
                                    proc255_0(12 12)
                                )
                            )
                        )(else
                            (if (((Said('(climb,climb[<down,in]),(go<down)[/rope,well]') or Said('enter/well')) or Said('get,get<in,in/well')) or Said('slide/rope'))
                                (if (proc0_12(1))
                                    localproc_18f2()
                                )(else
                                    (if (proc0_12(2))
                                        proc255_0(12 13)
                                    )(else
                                        (if (proc0_12(1))
                                            localproc_18f2()
                                        )(else
                                            (if (localproc_1976())
                                                localproc_18e8()
                                            )(else
                                                (if (localproc_1961())
                                                    (send pEvent:claimed(0))
                                                    (if (proc0_12(21) or proc0_12(20))
                                                        (send pEvent:claimed(1))
                                                        (send global2:setScript(climbRope))
                                                    )(else
                                                        (if (Said('/well'))
                                                            proc255_0(12 14)
                                                        )(else
                                                            (if (proc0_12(25))
                                                                (send pEvent:claimed(1))
                                                                proc255_0(12 15)
                                                            )(else
                                                                (send pEvent:claimed(1))
                                                                proc255_0(12 16)
                                                            )
                                                        )
                                                    )
                                                )(else
                                                    proc0_4()
                                                )
                                            )
                                        )
                                    )
                                )
                            )(else
                                (if (((Said('climb,climb[<in]/bucket') or Said('sit[<in]/bucket')) or Said('enter/bucket')) or Said('get,get<in,in/bucket'))
                                    (if (proc0_12(2))
                                        proc255_0(12 17)
                                    )(else
                                        (if (proc0_12(1))
                                            localproc_18f2()
                                        )(else
                                            (if (localproc_1976())
                                                localproc_18e8()
                                            )(else
                                                (if (localproc_1961())
                                                    (if ((send gEgo:has(8)))
                                                        proc255_0(12 18)
                                                    )(else
                                                        (if (proc0_12(21) or proc0_12(25))
                                                            localproc_18fc()
                                                        )(else
                                                            (if (proc0_12(47))
                                                                proc255_0(12 19)
                                                            )(else
                                                                (send global2:setScript(intoBucket))
                                                            )
                                                        )
                                                    )
                                                )(else
                                                    proc0_4()
                                                )
                                            )
                                        )
                                    )
                                )(else
                                    (if (Said('jump/bucket'))
                                        (if (proc0_12(1))
                                            localproc_18f2()
                                        )(else
                                            (if (localproc_1976())
                                                localproc_18e8()
                                            )(else
                                                (if ((send gEgo:has(8)))
                                                    proc255_0(12 20)
                                                )(else
                                                    (if (localproc_1961())
                                                        (if (proc0_12(21) or proc0_12(47))
                                                            proc255_0(12 21)
                                                            (send global2:setScript(jumpsInWell))
                                                        )(else
                                                            proc255_0(12 22)
                                                            (send global2:setScript(jumpsInWell))
                                                        )
                                                    )(else
                                                        proc0_4()
                                                    )
                                                )
                                            )
                                        )
                                    )(else
                                        (if (Said('jump'))
                                            (if (proc0_12(1))
                                                localproc_18f2()
                                            )(else
                                                (if (localproc_1976())
                                                    localproc_18e8()
                                                )(else
                                                    (if (localproc_1961())
                                                        (send global2:setScript(jumpsInWell))
                                                    )(else
                                                        (send pEvent:claimed(0))
                                                    )
                                                )
                                            )
                                        )(else
                                            (if (Said('untie/rope'))
                                                proc255_0(12 23)
                                            )(else
                                                (if (Said('untie,get,get/bucket'))
                                                    (if ((send gEgo:has(8)))
                                                        proc255_0(12 24)
                                                    )(else
                                                        (if (proc0_12(25))
                                                            localproc_18fc()
                                                        )(else
                                                            (if (proc0_12(47))
                                                                proc255_0(12 25)
                                                            )(else
                                                                (if ((send gEgo:inRect(163 131 199 161)))
                                                                    proc255_0(12 26)
                                                                )(else
                                                                    proc0_4()
                                                                )
                                                            )
                                                        )
                                                    )
                                                )(else
                                                    (if (Said('lower/bucket') or ((send gCast:contains(bucket)) and Said('lower/rope')))
                                                        (if ((send gEgo:has(8)))
                                                            proc255_0(12 27)
                                                        )(else
                                                            (if (proc0_12(25))
                                                                localproc_198c()
                                                            )(else
                                                                (if (proc0_12(21))
                                                                    localproc_18fc()
                                                                )(else
                                                                    (if (proc0_12(47))
                                                                        proc255_0(12 28)
                                                                    )(else
                                                                        (if (script)
                                                                            (send script:doit())
                                                                            proc0_22()
                                                                        )(else
                                                                            (if (proc0_12(1))
                                                                                localproc_18f2()
                                                                            )(else
                                                                                (if ((send gEgo:inRect(190 115 230 138)))
                                                                                    (send global2:setScript(crankDown))
                                                                                )(else
                                                                                    localproc_1957()
                                                                                )
                                                                            )
                                                                        )
                                                                    )
                                                                )
                                                            )
                                                        )
                                                    )(else
                                                        (if (Said('lower/rope'))
                                                            (if (proc0_12(25))
                                                                localproc_198c()
                                                            )(else
                                                                (if (proc0_12(20))
                                                                    proc255_0(12 29)
                                                                )(else
                                                                    (if (proc0_12(1))
                                                                        localproc_18f2()
                                                                    )(else
                                                                        (if ((send gEgo:inRect(190 115 230 138)))
                                                                            (send global2:setScript(crankDown))
                                                                        )(else
                                                                            localproc_1957()
                                                                        )
                                                                    )
                                                                )
                                                            )
                                                        )(else
                                                            (if (Said('raise/bucket') or ((not proc0_12(47) and proc0_12(21)) and Said('raise/rope')))
                                                                (if ((send gEgo:inRect(190 115 230 138)))
                                                                    (if (proc0_12(1))
                                                                        localproc_18f2()
                                                                    )(else
                                                                        (if ((send gEgo:has(8)))
                                                                            proc255_0(12 30)
                                                                        )(else
                                                                            (if (proc0_12(25))
                                                                                localproc_198c()
                                                                            )(else
                                                                                (if (proc0_12(47))
                                                                                    proc255_0(12 31)
                                                                                )(else
                                                                                    (if (not proc0_12(21))
                                                                                        proc255_0(12 32)
                                                                                    )(else
                                                                                        (send global2:setScript(crankUp))
                                                                                    )
                                                                                )
                                                                            )
                                                                        )
                                                                    )
                                                                )(else
                                                                    localproc_1957()
                                                                )
                                                            )(else
                                                                (if (Said('raise/rope'))
                                                                    (if (proc0_12(25))
                                                                        localproc_198c()
                                                                    )(else
                                                                        (if (not proc0_12(20))
                                                                            proc255_0(12 33)
                                                                        )(else
                                                                            (if (proc0_12(1))
                                                                                localproc_18f2()
                                                                            )(else
                                                                                (send global2:setScript(crankUp))
                                                                            )
                                                                        )
                                                                    )
                                                                )(else
                                                                    (if (Said('turn/crank,handle'))
                                                                        (if (proc0_12(25))
                                                                            localproc_198c()
                                                                        )(else
                                                                            (if (proc0_12(1))
                                                                                localproc_18f2()
                                                                            )(else
                                                                                (if (not (send gEgo:inRect(190 115 230 138)))
                                                                                    localproc_1957()
                                                                                )(else
                                                                                    (if (proc0_12(20))
                                                                                        (send global2:setScript(crankUp))
                                                                                    )(else
                                                                                        (if (not proc0_12(20))
                                                                                            (send global2:setScript(crankDown))
                                                                                        )
                                                                                    )
                                                                                )
                                                                            )
                                                                        )
                                                                    )(else
                                                                        (if (Said('tie,drop,drop/bucket'))
                                                                            (if ((send gEgo:has(8)))
                                                                                proc255_0(12 34)
                                                                            )(else
                                                                                proc0_6()
                                                                            )
                                                                        )(else
                                                                            (if (Said('cut/rope') or Said('cut<off/bucket'))
                                                                                (if (not (send gEgo:has(0)))
                                                                                    proc255_0(12 35)
                                                                                )(else
                                                                                    (if (proc0_12(1))
                                                                                        localproc_18f2()
                                                                                    )(else
                                                                                        (if (localproc_1976())
                                                                                            localproc_18e8()
                                                                                        )(else
                                                                                            (if (localproc_1961())
                                                                                                (if (proc0_12(21))
                                                                                                    (send global2:setScript(cutLowered))
                                                                                                )(else
                                                                                                    (if (proc0_12(20))
                                                                                                        (send global2:setScript(cutLowered))
                                                                                                    )(else
                                                                                                        (if (proc0_12(25))
                                                                                                            proc255_0(12 36)
                                                                                                        )(else
                                                                                                            (if (proc0_12(47))
                                                                                                                proc255_0(12 37)
                                                                                                            )(else
                                                                                                                (if (not (send gEgo:has(8)))
                                                                                                                    (send global2:setScript(cutOffBucket))
                                                                                                                )(else
                                                                                                                    proc255_0(12 38)
                                                                                                                )
                                                                                                            )
                                                                                                        )
                                                                                                    )
                                                                                                )
                                                                                            )(else
                                                                                                proc0_4()
                                                                                            )
                                                                                        )
                                                                                    )
                                                                                )
                                                                            )
                                                                        )
                                                                    )
                                                                )
                                                            )
                                                        )
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
        )
    )

)
(instance rope of Prop
    (properties
        x 179
        y 125
        view 212
        loop 8
        cycleSpeed 1
    )
)
(instance bucket of Actor
    (properties)

    (method (init)
        = xLast x
        = yLast y
        = signal (& signal $7fff)
        (if (not (send gCast:contains(self)))
            = lsRight (= lsBottom (= lsLeft (= lsTop 0)))
            = signal (& signal $ff77)
        )
        BaseSetter(self)
        (send gCast:addToFront(self))
        = description name
        (Feature:init())
    )


    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if ((super:handleEvent(pEvent)))
                return 
            )(else
                (if (Said('look,look<in/bucket'))
                    (if ((send gEgo:has(8)))
                        (if (proc0_12(9))
                            proc255_0(12 39)
                        )(else
                            proc255_0(12 40)
                        )
                    )(else
                        (if ((send gEgo:inRect(163 131 199 161)))
                            proc255_0(12 41)
                        )(else
                            proc255_0(12 42)
                        )
                    )
                )(else
                    (if (Said('look,look/bucket') or proc255_5(bucket pEvent 3))
                        (if ((send gEgo:has(8)))
                            (send pEvent:claimed(0))
                        )(else
                            (send pEvent:claimed(1))
                            (self:doVerb(1))
                        )
                    )
                )
            )
        )
    )


    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (if (proc0_12(21))
                    proc255_0(12 43)
                )(else
                    (if ((send gEgo:inRect(163 131 199 161)))
                        (if (proc0_12(9))
                            proc255_0(12 44)
                        )(else
                            proc255_0(12 45)
                        )
                    )(else
                        proc255_0(12 46)
                    )
                )
            )
        )
    )

)
(instance crank of Prop
    (properties
        x 212
        y 102
        view 212
        loop 2
    )

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


    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                proc255_0(12 47)
            )
        )
    )

)
(instance knifehand of Prop
    (properties
        x 193
        y 104
        view 212
        loop 9
    )
)
(instance baranrope of Prop
    (properties
        x 178
        y 94
        view 212
    )

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


    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (if (proc0_12(20))
                    proc255_0(12 48)
                )(else
                    (if (proc0_12(25))
                        proc255_0(12 49)
                    )(else
                        proc255_0(12 50)
                    )
                )
            )
        )
    )

)
(instance vine of RPicView
    (properties
        x 180
        y 157
        description 7839
        sightAngle 180
        closeRangeDist 500
        longRangeDist 500
        view 212
        loop 6
    )

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


    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                proc255_0(12 51)
            )
        )
    )

)
(instance jumpsInWell of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:setMotion(MoveTo 183 135 self))
            )
            (case 1
                (send gEgo:
                    view(
                        (if (proc0_12(0))
                            17
                        )(else
                            15
                        )
)
                    setLoop(0)
                    cel(0)
                    setStep(1 5)
                    setMotion(MoveTo 177 119)
                    setCycle(End self)
                )
            )
            (case 2
                (baranrope:setPri(11))
                (bucket:setPri(11))
                (send gEgo:
                    setCel(6)
                    setPri(10)
                    ignoreActors()
                    illegalBits(0)
                    setMotion(MoveTo 181 184 self)
                )
            )
            (case 3
                proc0_11(2)
                proc0_26()
                (send global2:newRoom(49))
            )
        )
    )

)
(instance intoBucket of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:setMotion(MoveTo 183 135 self))
            )
            (case 1
                (send gEgo:
                    view(212)
                    loop(7)
                    cel(0)
                    setPri(10)
                    illegalBits(0)
                    ignoreActors()
                    posn(179 122)
                    cycleSpeed(1)
                    setCycle(End self)
                )
                (bucket:dispose())
            )
            (case 2
                (send (ScriptID(0 21)):
                    number(24)
                    loop(-1)
                    init()
                    play()
                )
                (send gEgo:
                    setLoop(5)
                    setCel(2)
                    setStep(0 1)
                    setMotion(MoveTo 179 155)
                )
                (crank:setCycle(Fwd))
                (baranrope:setCycle(End self))
            )
            (case 3
                (baranrope:stopUpd())
                (bucket:stopUpd())
                (rope:
                    init()
                    setPri(10)
                    setCycle(Fwd)
                )
                = cycles 25
            )
            (case 4
                (rope:dispose())
                (send (ScriptID(0 21)):stop())
                proc255_0(12 52)
                proc0_10(18)
                proc0_10(20)
                proc0_3()
                proc0_26()
                (send global2:newRoom(49))
            )
        )
    )

)
(instance crankUp of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (if ((== (send gEgo:x) 215) and (== (send gEgo:y) 135))
                    (self:changeState(2))
                )(else
                    (send gEgo:setMotion(MoveTo 215 132 self))
                )
            )
            (case 1
                (send gEgo:setMotion(MoveTo 215 135 self))
            )
            (case 2
                (send (ScriptID(0 21)):
                    number(24)
                    loop(-1)
                    init()
                    play()
                )
                localproc_1921()
                (crank:hide())
                = cycles 5
            )
            (case 3
                (baranrope:stopUpd())
                (bucket:stopUpd())
                (rope:
                    init()
                    setPri(11)
                    setCycle(Rev)
                )
                = cycles 25
            )
            (case 4
                (rope:dispose())
                localproc_1921()
                (if (not (send gEgo:has(8)) and not proc0_12(47))
                    (bucket:
                        view(212)
                        init()
                        setStep(0 1)
                        setPri(10)
                        illegalBits(0)
                        ignoreActors(1)
                        setCycle(0)
                        setLoop(5)
                        setCel(1)
                        posn(179 149)
                        setMotion(MoveTo 179 122)
                    )
                )
                (baranrope:
                    cycleSpeed(1)
                    ignoreActors()
                    setCycle(Beg)
                )
                = cycles 29
            )
            (case 5
                (baranrope:stopUpd())
                (bucket:stopUpd())
                (send (ScriptID(0 21)):stop())
                proc0_11(21)
                proc0_11(20)
                (crank:show())
                proc0_3()
                proc0_1()
                (send gEgo:loop(2))
                (self:dispose())
            )
        )
    )

)
(instance crankDown of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (if ((== (send gEgo:x) 215) and (== (send gEgo:y) 135))
                    (self:changeState(2))
                )(else
                    (send gEgo:setMotion(MoveTo 215 132 self))
                )
            )
            (case 1
                (send gEgo:setMotion(MoveTo 215 135 self))
            )
            (case 2
                localproc_1921()
                (crank:hide())
                (send (ScriptID(0 21)):
                    number(24)
                    loop(-1)
                    init()
                    play()
                )
                (if ((send gCast:contains(bucket)))
                    (bucket:
                        setStep(0 1)
                        startUpd()
                        setMotion(MoveTo 179 152)
                    )
                )
                (baranrope:
                    cycleSpeed(1)
                    ignoreActors()
                    setCycle(End self)
                )
            )
            (case 3
                (baranrope:stopUpd())
                (bucket:stopUpd())
                (rope:
                    init()
                    setPri(11)
                    setCycle(Fwd)
                )
                = cycles 25
            )
            (case 4
                (send (ScriptID(0 21)):stop())
                (rope:dispose())
                (crank:show())
                proc0_3()
                proc0_1()
                (send gEgo:loop(2))
                (if ((send gCast:contains(bucket)))
                    proc255_0(12 53)
                    proc0_10(20)
                    proc0_10(21)
                    (bucket:dispose())
                )(else
                    proc255_0(12 54)
                    proc0_10(20)
                )
                (self:dispose())
            )
        )
    )

)
(instance cutLowered of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:setMotion(MoveTo 183 135 self))
            )
            (case 1
                localproc_187c()
                = cycles 12
            )
            (case 2
                localproc_18d2()
                (baranrope:
                    loop(5)
                    setCel(0)
                    stopUpd()
                )
                (bucket:
                    view(212)
                    init()
                    setLoop(5)
                    setCel(3)
                    posn(179 122)
                    setStep(1 3)
                    illegalBits(0)
                    ignoreActors()
                    setMotion(MoveTo 179 148 self)
                )
            )
            (case 3
                (bucket:stopUpd())
                (if (proc0_12(21) and not proc0_12(24))
                    proc255_0(12 55)
                )(else
                    (if (proc0_12(20))
                        proc255_0(12 56)
                    )
                )
                proc0_10(25)
                proc0_11(21)
                proc0_11(20)
                (bucket:dispose())
                localproc_1906()
                (self:dispose())
            )
        )
    )

)
(instance cutOffBucket of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:setMotion(MoveTo 183 135 self))
            )
            (case 1
                localproc_187c()
                = cycles 12
            )
            (case 2
                localproc_18d2()
                (bucket:dispose())
                proc0_7()
                (send (ScriptID(0 21)):
                    number(105)
                    loop(1)
                    init()
                    play()
                )
                proc255_0(12 57 67 -1 110)
                proc0_19(95 2)
                (send gEgo:get(8))
                localproc_1906()
                (self:dispose())
            )
        )
    )

)
(instance climbRope of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:setMotion(MoveTo 188 135 self))
            )
            (case 1
                (send gEgo:setHeading(270))
                (self:cue())
            )
            (case 2
                (send gEgo:
                    view(61)
                    loop(1)
                    cel(0)
                    posn(188 117)
                    setPri(10)
                    setCycle(End self)
                )
            )
            (case 3
                (send gEgo:
                    loop(0)
                    posn(179 95)
                    setCycle(Fwd)
                    setMotion(MoveTo 179 133 self)
                )
            )
            (case 4
                proc0_10(19)
                (send global2:newRoom(49))
            )
        )
    )

)
(instance climbOutaWell of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:
                    view(61)
                    loop(0)
                    cel(0)
                    setPri(10)
                    posn(179 113)
                    setMotion(MoveTo 179 95 self)
                )
            )
            (case 1
                (send gEgo:
                    loop(1)
                    cel(5)
                    posn(188 117)
                    setCycle(Beg self)
                )
            )
            (case 2
                proc0_1()
                (send gEgo:
                    posn(188 135)
                    loop(2)
                )
                proc0_11(19)
                proc0_3()
                (self:dispose())
            )
        )
    )

)
(instance tree1 of NewFeature
    (properties
        x 81
        y 37
        noun 7783
        nsTop -1
        nsBottom 76
        nsRight 162
        description 7933
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 7938
    )
)
(instance tree2 of NewFeature
    (properties
        x 11
        y 96
        noun 7783
        nsTop 76
        nsLeft 3
        nsBottom 116
        nsRight 20
        description 7933
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 7938
    )
)
(instance tree3 of NewFeature
    (properties
        x 81
        y 113
        noun 7783
        nsTop 76
        nsLeft 64
        nsBottom 151
        nsRight 98
        description 7933
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 7938
    )
)
(instance tree4 of NewFeature
    (properties
        x 275
        y 30
        noun 7783
        nsTop -1
        nsLeft 231
        nsBottom 61
        nsRight 319
        description 7933
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 7938
    )
)
(instance tree5 of NewFeature
    (properties
        x 294
        y 85
        noun 7783
        nsTop 61
        nsLeft 274
        nsBottom 109
        nsRight 315
        description 7933
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 7938
    )
)
(instance bush of NewFeature
    (properties
        x 18
        y 171
        noun 7787
        nsTop 154
        nsBottom 189
        nsRight 36
        description 8023
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 8028
    )
)
(instance bush2 of NewFeature
    (properties
        x 50
        y 179
        noun 7787
        nsTop 169
        nsLeft 35
        nsBottom 189
        nsRight 65
        description 8023
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 8028
    )
)
(instance wellBush of NewFeature
    (properties
        x 141
        y 133
        noun 7787
        nsTop 121
        nsLeft 128
        nsBottom 146
        nsRight 155
        description 8112
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 8125
    )
)
