(version 2)
(include "sci.sh")
(exports
    0 rm9
)
(use "Main")
(use "InterActor")
(use "InterFeature")
(use "InterProp")
(use "InterView")
(use "CycleBet")
(use "n958")
(use "Sound")
(use "Jump")
(use "Cycle")
(use "Game")
(use "View")
(use "Obj")
(script 9)

(local
    local0
    local1
    local2
    newProp
    newProp_2
    newView
    newProp_3
    local7

)
(instance public rm9 of Rm
    (properties
        picture 900
        style $000a
    )

    (method (init param1)
        proc958_0(130 874 991)
        (super:init(rest param1))
        (aVineDino:init())
        (pondWater:init())
        (moon:init())
        (aFire:init())
        (blowFtr:init())
        (aWord0:init())
        (aWord1:init())
        (aWord2:init())
        (aWord3:init())
        (aWord4:init())
        (aWord5:init())
        (aWord6:init())
        (aWord7:init())
        (aWord8:init())
        (aWord9:init())
        (aWord10:init())
        (aWord11:init())
        (aWord12:init())
        (aWord13:init())
        (aWord14:init())
        (aWord15:init())
        (aWord16:init())
        (rock:init())
        (slater:init())
        (charlie:init())
        (bushCat:init())
        (send gLongSong2:
            number(111)
            setLoop(-1)
            play(10)
            fade(127 10 30 0)
        )
        (rockDino:
            init()
            stopUpd()
        )
        (foliageMorph:
            init()
            stopUpd()
        )
        (vineDino:
            init()
            stopUpd()
        )
        (aBugBush:init())
        (theVine:
            init()
            stopUpd()
        )
        (drinkingTree:
            init()
            stopUpd()
        )
        (send global2:setScript(rockScript))
    )


    (method (doit)
        (super:doit())
        (if ((global120 and not local0) and not (send global2:script))
            = local0 1
            (self:setScript(ScriptID(0 4)))
        )
    )


    (method (dispose)
        DisposeScript(991)
        (mySound:dispose())
        (my2Sound:dispose())
        (my3Sound:dispose())
        (super:dispose())
    )


    (method (doVerb)
        return 0
    )


    (method (cue)
        (theView:
            hide()
            dispose()
        )
        (send global1:handsOn())
        (super:cue())
    )


    (method (newRoom newRoomNumber)
        (send gLongSong2:fade(0 10 20 1))
        (super:newRoom(newRoomNumber))
    )

)
(instance aWord0 of InterFeature
    (properties
        nsTop 164
        nsLeft 41
        nsBottom 172
        nsRight 67
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1061)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(0)
            posn(55 172)
            init()
        )
    )

)
(instance aWord1 of InterFeature
    (properties
        nsTop 164
        nsLeft 71
        nsBottom 172
        nsRight 104
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1101)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(1)
            posn(86 172)
            init()
        )
    )

)
(instance aWord2 of InterFeature
    (properties
        nsTop 164
        nsLeft 107
        nsBottom 172
        nsRight 132
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1102)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(2)
            posn(119 172)
            init()
        )
    )

)
(instance aWord3 of InterFeature
    (properties
        nsTop 164
        nsLeft 137
        nsBottom 172
        nsRight 169
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1103)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(3)
            posn(149 172)
            init()
        )
    )

)
(instance aWord4 of InterFeature
    (properties
        nsTop 164
        nsLeft 172
        nsBottom 172
        nsRight 203
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1074)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(4)
            posn(186 172)
            init()
        )
    )

)
(instance aWord5 of InterFeature
    (properties
        nsTop 164
        nsLeft 205
        nsBottom 172
        nsRight 238
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1104)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(5)
            posn(220 172)
            init()
        )
    )

)
(instance aWord6 of InterFeature
    (properties
        nsTop 164
        nsLeft 242
        nsBottom 172
        nsRight 278
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1105)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(6)
            posn(264 172)
            init()
        )
    )

)
(instance aWord7 of InterFeature
    (properties
        nsTop 175
        nsLeft 40
        nsBottom 182
        nsRight 85
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1056)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(7)
            posn(59 183)
            init()
        )
    )

)
(instance aWord8 of InterFeature
    (properties
        nsTop 175
        nsLeft 89
        nsBottom 182
        nsRight 114
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1079)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(8)
            posn(99 183)
            init()
        )
    )

)
(instance aWord9 of InterFeature
    (properties
        nsTop 175
        nsLeft 127
        nsBottom 182
        nsRight 160
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1106)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(9)
            posn(143 183)
            init()
        )
    )

)
(instance aWord10 of InterFeature
    (properties
        nsTop 175
        nsLeft 164
        nsBottom 182
        nsRight 206
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1107)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(10)
            posn(183 183)
            init()
        )
    )

)
(instance aWord11 of InterFeature
    (properties
        nsTop 175
        nsLeft 215
        nsBottom 182
        nsRight 235
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1061)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(11)
            posn(225 183)
            init()
        )
    )

)
(instance aWord12 of InterFeature
    (properties
        nsTop 175
        nsLeft 238
        nsBottom 182
        nsRight 282
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1105)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(6)
            posn(257 183)
            init()
        )
    )

)
(instance aWord13 of InterFeature
    (properties
        nsTop 186
        nsLeft 95
        nsBottom 196
        nsRight 119
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1108)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(12)
            posn(108 194)
            init()
        )
    )

)
(instance aWord14 of InterFeature
    (properties
        nsTop 186
        nsLeft 120
        nsBottom 196
        nsRight 144
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1109)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(13)
            posn(132 194)
            init()
        )
    )

)
(instance aWord15 of InterFeature
    (properties
        nsTop 186
        nsLeft 150
        nsBottom 196
        nsRight 173
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1109)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(13)
            posn(161 194)
            init()
        )
    )

)
(instance aWord16 of InterFeature
    (properties
        nsTop 186
        nsLeft 175
        nsBottom 196
        nsRight 214
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1110)
            setLoop(1)
            play(rm9)
        )
        (theView:
            view(970)
            setLoop(14)
            posn(193 194)
            init()
        )
    )

)
(instance moon of InterFeature
    (properties
        nsTop 6
        nsLeft 150
        nsBottom 19
        nsRight 166
    )

    (method (doVerb)
        (send global2:setScript(shootTheMoonScr))
    )

)
(instance blowFtr of InterFeature
    (properties
        nsTop 31
        nsLeft 70
        nsBottom 63
        nsRight 94
    )

    (method (doVerb)
        (send global2:setScript(blowScr))
    )

)
(instance aBugBush of InterFeature
    (properties
        nsTop 144
        nsLeft 184
        nsBottom 158
        nsRight 288
    )

    (method (doVerb)
        (send global2:setScript(bugScr))
    )

)
(instance aFire of InterFeature
    (properties
        nsTop 82
        nsLeft 232
        nsBottom 115
        nsRight 288
    )

    (method (doVerb)
        (send global2:setScript(flameScr))
    )

)
(instance aVineDino of InterFeature
    (properties
        nsLeft 68
        nsBottom 21
        nsRight 93
    )

    (method (doVerb)
        (send global2:setScript(tickleScr))
    )

)
(instance rock of InterView
    (properties
        x 35
        y 172
        view 975
        loop 3
        priority 15
        signal $4011
    )

    (method (doVerb)
        (send global2:setScript(rockScript))
    )

)
(instance footEffect of View
    (properties
        x 96
        y 154
        view 950
        cel 2
    )
)
(instance theView of Prop
    (properties
        cel 1
        priority 15
        signal $0010
    )
)
(instance theProp of Prop
    (properties
        cel 1
        priority 15
        signal $0010
    )
)
(instance oddView of Prop
    (properties
        cel 1
        priority 15
        signal $0010
    )
)
(instance slater of InterProp
    (properties
        x 88
        y 160
        view 980
        priority 6
        signal $5011
    )

    (method (doVerb)
        (send global2:setScript(slaterScript))
    )

)
(instance rubble of InterProp
    (properties
        x 97
        y 55
        z -100
        view 980
        cel 2
        priority 3
        signal $5011
    )

    (method (doVerb)
        (send global2:setScript(sneakAPeekScr))
    )

)
(instance charlie of InterProp
    (properties
        x 193
        y 136
        view 980
        loop 1
        priority 4
        signal $5011
    )

    (method (doVerb)
        (send global2:setScript(openBagScr))
    )

)
(instance drinkingTree of InterProp
    (properties
        x 254
        y 69
        view 980
        loop 1
        cel 1
        priority 2
        signal $5011
    )

    (method (doVerb)
        (send global2:setScript(emptyPondScript))
    )

)
(instance wavingFish of Prop
    (properties
        x 242
        y 68
        view 960
        loop 2
        signal $5001
    )
)
(instance pondWater of InterProp
    (properties
        x 244
        y 70
        view 980
        loop 1
        cel 2
        priority 1
        signal $5011
    )

    (method (doVerb)
        (send global2:setScript(emptyPondScript))
    )

)
(instance fire of Prop
    (properties
        x 263
        y 117
        view 925
        loop 2
        cel 1
        priority 10
        signal $4010
    )
)
(instance hoseIt of Prop
    (properties
        x 267
        y 120
        view 925
        loop 1
        cel 5
        priority 10
        signal $4010
    )
)
(instance rockDino of InterProp
    (properties
        x 63
        y 68
        view 980
        loop 2
        priority 2
        signal $5011
    )

    (method (doVerb)
        (send global2:setScript(rockDinoScr))
    )

)
(instance foliageMorph of InterProp
    (properties
        x 210
        y 23
        view 980
        loop 2
        cel 1
        signal $5001
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1003)
            setLoop(-1)
            play()
        )
        (self:
            view(915)
            setLoop(0)
            setCel(0)
            setCycle(End self)
        )
    )


    (method (cue)
        (self:
            view(980)
            setLoop(2)
            setCel(1)
            stopUpd()
        )
        (mySound:stop())
        (send global1:handsOn())
    )

)
(instance theVine of InterProp
    (properties
        x 74
        y 125
        view 980
        loop 3
        priority 12
        signal $4011
    )

    (method (doVerb)
        (if (local1)
            (send global2:setScript(vinePucksEyeScript))
        )
    )

)
(instance bushCat of InterActor
    (properties
        x 83
        y 160
        view 980
        loop 3
        cel 2
        priority 6
        signal $5011
    )

    (method (doVerb)
        (send global2:setScript(bushCatScr))
    )

)
(instance catEyes of Actor
    (properties
        x 42
        y 108
        view 945
        loop 3
        priority 2
        signal $5011
    )
)
(instance fireTruck of Actor
    (properties
        x -15
        y 83
        view 925
        loop 3
        priority 3
        signal $4010
    )

    (method (init param1)
        (super:init(rest param1))
        (self:setStep(7 7))
    )

)
(instance cow of Actor
    (properties
        x 102
        y 77
        view 910
        priority 4
        signal $6810
    )
)
(instance hornBlowingDino of Actor
    (properties
        x 78
        y 70
        view 930
        priority 1
        signal $4010
    )

    (method (cue)
        (super:cue())
        (if (local7)
            (my2Sound:play(self))
        )
    )

)
(instance vineDino of InterActor
    (properties
        x 129
        y 60
        view 980
        loop 2
        cel 2
        signal $4800
    )

    (method (doVerb)
        (send global2:setScript(tickleScr))
    )

)
(instance bug of Actor
    (properties
        x 275
        y 181
        view 905
        priority 4
        signal $4810
    )
)
(instance bugEyes of Actor
    (properties
        x 267
        y 159
        view 905
        loop 2
        cel 2
        priority 5
        signal $4810
    )
)
(instance foot of Actor
    (properties
        x 97
        y 155
        view 950
        signal $4000
    )
)
(instance mySound of Sound
    (properties)
)
(instance my2Sound of Sound
    (properties)
)
(instance my3Sound of Sound
    (properties)
)
(instance rockScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (rock:setCel(1))
                = ticks 12
            )
            (case 1
                (send global1:handsOff())
                (theView:
                    view(965)
                    setLoop(0)
                    setCel(1)
                    posn(73 172)
                    init()
                )
                (mySound:
                    number(1050)
                    setLoop(1)
                    play()
                )
                = ticks 14
            )
            (case 2
                (send global1:handsOff())
                (theProp:
                    view(965)
                    setLoop(1)
                    setCel(1)
                    posn(137 172)
                    init()
                )
                = ticks 17
            )
            (case 3
                (oddView:
                    view(965)
                    setLoop(2)
                    setCel(1)
                    posn(228 172)
                    init()
                )
                = ticks 22
            )
            (case 4
                (theView:hide())
                = ticks 20
            )
            (case 5
                (theProp:hide())
                = ticks 33
            )
            (case 6
                (theProp:
                    view(965)
                    setLoop(3)
                    setCel(1)
                    posn(74 183)
                    show()
                )
                = ticks 50
            )
            (case 7
                (oddView:hide())
                = ticks 10
            )
            (case 8
                (theView:
                    view(965)
                    setLoop(4)
                    setCel(1)
                    posn(161 183)
                    show()
                )
                = ticks 59
            )
            (case 9
                (theProp:
                    view(965)
                    setLoop(5)
                    setCel(1)
                    posn(249 183)
                    show()
                )
                = ticks 29
            )
            (case 10
                (oddView:
                    view(965)
                    setLoop(6)
                    setCel(1)
                    posn(119 194)
                    show()
                )
                = ticks 45
            )
            (case 11
                (theView:hide())
                = ticks 5
            )
            (case 12
                (theView:
                    view(965)
                    setLoop(7)
                    setCel(1)
                    posn(185 194)
                    show()
                )
                = ticks 25
            )
            (case 13
                (theProp:
                    hide()
                    dispose()
                )
                = ticks 50
            )
            (case 14
                (oddView:
                    hide()
                    dispose()
                )
                = ticks 56
            )
            (case 15
                (theView:
                    hide()
                    dispose()
                )
                (rock:
                    setCel(0)
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance rockDinoScr of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (rockDino:
                    view(940)
                    setLoop(0)
                    setCel(0)
                    setCycle(CT 2 1 self)
                )
                (mySound:
                    number(1029)
                    setLoop(1)
                    play()
                )
            )
            (case 1
                (mySound:
                    number(956)
                    setLoop(1)
                    play()
                )
                (rockDino:setCycle(CT 5 1 self))
            )
            (case 2
                (mySound:
                    number(1030)
                    setLoop(-1)
                    play()
                )
                (rockDino:
                    setLoop(1)
                    setCel(0)
                    setCycle(Fwd)
                )
                = ticks 150
            )
            (case 3
                (mySound:
                    number(920)
                    setLoop(1)
                    play()
                )
                (rockDino:
                    setLoop(0)
                    setCel(5)
                    setCycle(Beg self)
                )
            )
            (case 4
                (rockDino:
                    view(980)
                    setLoop(2)
                    setCel(0)
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance emptyPondScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (drinkingTree:
                    view(960)
                    setLoop(0)
                    setCel(0)
                    cycleSpeed(6)
                    setCycle(CT 1 1 self)
                )
            )
            (case 1
                (mySound:
                    number(942)
                    setLoop(-1)
                    play()
                )
                (my2Sound:
                    number(930)
                    setLoop(1)
                    play()
                )
                (drinkingTree:setCycle(CT 4 1 self))
            )
            (case 2
                (my2Sound:
                    number(956)
                    setLoop(1)
                    play()
                )
                (pondWater:
                    view(960)
                    setLoop(1)
                    setCel(0)
                    init()
                    setCycle(End self)
                )
                (drinkingTree:setCycle(CT 6 1 self))
            )
            (case 3
            )
            (case 4
                (wavingFish:
                    init()
                    setLoop(2)
                    setCycle(CT 1 1 self)
                )
            )
            (case 5
                (mySound:
                    number(1023)
                    setLoop(-1)
                    play()
                )
                (wavingFish:setCycle(CT 4 1 self))
                (pondWater:hide())
            )
            (case 6
                (wavingFish:setCycle(CycleBet 4 6 6 self))
            )
            (case 7
                (mySound:
                    number(964)
                    setLoop(-1)
                    play()
                )
                = ticks 20
            )
            (case 8
                (drinkingTree:
                    setCycle(Fwd)
                    cycleSpeed(4)
                    setLoop(5)
                )
                = cycles 2
            )
            (case 9
                (wavingFish:
                    setCel(0)
                    hide()
                    dispose()
                )
                (pondWater:
                    show()
                    setLoop(4)
                    cel((pondWater:lastCel()))
                    setCycle(Beg)
                )
                = ticks 60
            )
            (case 10
                (drinkingTree:
                    setLoop(3)
                    cel(4)
                    setCycle(End self)
                )
            )
            (case 11
                (mySound:stop())
                (pondWater:
                    view(980)
                    setLoop(1)
                    cel(2)
                    forceUpd()
                    stopUpd()
                )
                (if (<> (send gLongSong2:number) 130)
                    (send gLongSong2:
                        number(130)
                        setLoop(-1)
                        play()
                    )
                )
                (drinkingTree:
                    view(980)
                    setLoop(1)
                    cel(1)
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance blowScr of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                = local7 1
                (my2Sound:
                    number(1163)
                    setLoop(1)
                    play(hornBlowingDino)
                )
                = ticks 50
            )
            (case 1
                (hornBlowingDino:
                    setLoop(0)
                    setCel(0)
                    setCycle(0)
                    setLoop(0)
                    ignoreActors(1)
                    init()
                    setCycle(Fwd)
                    setMotion(MoveTo 146 67 self)
                )
            )
            (case 2
                (hornBlowingDino:
                    loop(2)
                    setCel(0)
                    setCycle(End self)
                )
            )
            (case 3
                (hornBlowingDino:
                    setLoop(1)
                    setCycle(Fwd)
                    setMotion(MoveTo 93 70 self)
                )
            )
            (case 4
                (hornBlowingDino:
                    setLoop(1)
                    setCycle(Fwd)
                    setMotion(MoveTo 78 70 self)
                )
            )
            (case 5
                (hornBlowingDino:hide())
                = ticks 50
            )
            (case 6
                = local7 0
                (hornBlowingDino:dispose())
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance flameScr of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (fire:
                    init()
                    setCycle(Fwd)
                )
                (mySound:
                    number(944)
                    setLoop(-1)
                    play()
                )
                = ticks 60
            )
            (case 1
                (mySound:
                    number(1028)
                    setLoop(-1)
                    play(10)
                    fade(127 10 10 0 self)
                )
            )
            (case 2
                (fireTruck:
                    setLoop(3)
                    ignoreActors(1)
                    moveSpeed(0)
                    init()
                    setMotion(MoveTo 330 83 self)
                )
            )
            (case 3
                = ticks 75
            )
            (case 4
                (fireTruck:
                    setLoop(0)
                    setCel(0)
                    setMotion(MoveTo 263 83 self)
                )
            )
            (case 5
                (fireTruck:setCel(1))
                (hoseIt:init())
                = ticks 30
            )
            (case 6
                (mySound:
                    number(964)
                    setLoop(-1)
                    play()
                )
                (hoseIt:setCycle(CT 3 1 self))
            )
            (case 7
                (hoseIt:setCycle(CycleBet 1 3 5 self))
            )
            (case 8
                (hoseIt:setCycle(CT 5 1 self))
            )
            (case 9
                (hoseIt:
                    setCel(0)
                    dispose()
                )
                (fire:dispose())
                (mySound:
                    number(1028)
                    setLoop(1)
                    play()
                )
                (fireTruck:
                    setLoop(0)
                    setCel(0)
                    setMotion(MoveTo 0 83 self)
                )
            )
            (case 10
                (mySound:
                    number(944)
                    setLoop(1)
                    fade(0 10 10 1)
                )
                (fireTruck:
                    setLoop(3)
                    setCel(0)
                    posn(-15 83)
                    dispose()
                )
                (send gLongSong2:
                    number(150)
                    setLoop(-1)
                    play()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance openBagScr of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                = ticks 6
            )
            (case 1
                (charlie:
                    view(955)
                    setLoop(0)
                    cel(0)
                    setPri(14)
                    setCycle(CT 1 1 self)
                )
            )
            (case 2
                (mySound:
                    number(1027)
                    setLoop(1)
                    play()
                )
                (charlie:setCycle(CT 6 1 self))
            )
            (case 3
                = ticks 100
            )
            (case 4
                (charlie:setCycle(CT 9 1 self))
            )
            (case 5
                (charlie:setCycle(CT 11 1 self))
            )
            (case 6
                (mySound:
                    number(1027)
                    setLoop(1)
                    play(self)
                )
                (charlie:cel(12))
            )
            (case 7
                (charlie:
                    view(980)
                    loop(1)
                    setCel(0)
                    setPri(4)
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sneakAPeekScr of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (mySound:
                    number(929)
                    setLoop(-1)
                    play()
                )
                (slater:
                    view(900)
                    setLoop(0)
                    setCel(0)
                    init()
                    setCycle(End self)
                )
                = register 2
            )
            (case 1
                (if (--register)
                    --state
                )
                (slater:
                    setLoop(1)
                    cycleSpeed(Random(8 12))
                )
                (switch (Random(1 3))
                    (case 1
                        (slater:setCycle(Fwd))
                        = ticks 60
                    )
                    (case 2
                        (slater:setCycle(End self))
                    )
                    (case 3
                        (slater:setCycle(Beg self))
                    )
                )
            )
            (case 2
                (mySound:stop())
                (foot:
                    setLoop(0)
                    cel(0)
                    x(97)
                    y(155)
                    init()
                )
                (rubble:init())
                (footEffect:init())
                (slater:hide())
                = ticks 9
            )
            (case 3
                ShakeScreen(1 1)
                (footEffect:dispose())
                (mySound:
                    number(1024)
                    setLoop(1)
                    play()
                )
                (my2Sound:
                    number(915)
                    setLoop(1)
                    play()
                )
                (slater:
                    view(980)
                    loop(0)
                    setCel(1)
                    posn(112 113)
                    dispose()
                )
                (rubble:
                    view(980)
                    setLoop(0)
                    setCel(2)
                    stopUpd()
                )
                (charlie:
                    view(980)
                    setLoop(1)
                    setCel(0)
                    stopUpd()
                )
                (foot:
                    ignoreActors(1)
                    ignoreHorizon()
                    setLoop(0)
                    moveSpeed(0)
                )
                = ticks 60
            )
            (case 4
                (foot:
                    setStep(20 20)
                    setMotion(MoveTo 97 -10 self)
                )
            )
            (case 5
                (foot:dispose())
                = local1 1
                (send global1:handsOn())
                (slater:dispose())
            )
        )
    )

)
(instance slaterScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (mySound:
                    number(1163)
                    setLoop(1)
                    play()
                )
                = ticks 25
            )
            (case 1
                (my2Sound:
                    number(950)
                    setLoop(1)
                    play()
                )
                (slater:
                    view(951)
                    setLoop(1)
                    setCel(0)
                )
                = ticks 25
            )
            (case 2
                (if ((mySound:handle))
                    --state
                )(else
                    (mySound:
                        number(1163)
                        setLoop(1)
                        play()
                    )
                )
                = ticks 25
            )
            (case 3
                (slater:setCycle(CT 4 1 self))
            )
            (case 4
                = ticks 25
            )
            (case 5
                (slater:setCel(0))
                = ticks 25
            )
            (case 6
                (slater:setCycle(CT 5 1 self))
            )
            (case 7
                (charlie:
                    view(951)
                    setLoop(0)
                    setCel(0)
                    setCycle(End self)
                )
                = register 8
            )
            (case 8
                (mySound:
                    number(975)
                    setLoop(1)
                    play()
                )
                (charlie:cel(3))
                = ticks Random(5 20)
            )
            (case 9
                (if (--register)
                    = state (- state 2)
                )
                (charlie:cel(4))
                = ticks Random(5 20)
            )
            (case 10
                (mySound:stop())
                (charlie:setCycle(Beg self))
            )
            (case 11
                (slater:setCel(6))
                = ticks 100
            )
            (case 12
                (slater:
                    cycleSpeed(10)
                    setCycle(End self)
                )
            )
            (case 13
                (slater:
                    view(950)
                    setLoop(1)
                    cel(0)
                )
                = ticks 60
            )
            (case 14
                (slater:
                    cycleSpeed(14)
                    setCycle(End self)
                )
            )
            (case 15
                = ticks 30
            )
            (case 16
                (slater:cel(0))
                = ticks 100
            )
            (case 17
                (slater:
                    cycleSpeed(10)
                    setCycle(End self)
                )
            )
            (case 18
                (foot:init())
                (rubble:init())
                = newView (View:new())
                (send newView:
                    name("pillow")
                    view(980)
                    setLoop(0)
                    cel(3)
                    x(95)
                    y(123)
                    setPri(7)
                    ignoreActors(1)
                    init()
                    addToPic()
                )
                (footEffect:init())
                (slater:hide())
                = ticks 12
            )
            (case 19
                (footEffect:dispose())
                (my2Sound:
                    number(915)
                    setLoop(1)
                    play()
                )
                (slater:
                    view(980)
                    loop(0)
                    setCel(1)
                    posn(112 113)
                    dispose()
                )
                (rubble:
                    view(980)
                    setLoop(0)
                    setCel(2)
                    stopUpd()
                )
                (charlie:
                    view(980)
                    setLoop(1)
                    setCel(0)
                    stopUpd()
                )
                (foot:
                    ignoreActors(1)
                    ignoreHorizon()
                    setLoop(0)
                    moveSpeed(0)
                )
                = ticks 60
            )
            (case 20
                (foot:
                    setStep(20 20)
                    setMotion(MoveTo 97 -10 self)
                )
            )
            (case 21
                = local1 1
                (foot:dispose())
                (send global1:handsOn())
                (slater:dispose())
            )
        )
    )

)
(instance bugScr of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (mySound:
                    number(1025)
                    setLoop(-1)
                    play()
                )
                (bugEyes:
                    init()
                    ignoreActors()
                    setMotion(MoveTo 219 129)
                )
                (bug:
                    init()
                    ignoreActors(1)
                    setCycle(Walk)
                    setMotion(MoveTo 226 151 self)
                )
            )
            (case 1
                (mySound:
                    number(1013)
                    setLoop(1)
                    play()
                )
                (bugEyes:setCycle(CT 0 -1 self))
            )
            (case 2
                = ticks 50
            )
            (case 3
                (bugEyes:setCycle(CT 1 1 self))
            )
            (case 4
                (bugEyes:setCel(5))
                = ticks 2
            )
            (case 5
                (send gLongSong2:pause(1))
                (mySound:
                    number(961)
                    setLoop(-1)
                    play(self)
                )
                (bug:
                    setLoop(1)
                    setCel(0)
                    setCycle(CycleBet 2 4 5 self)
                )
            )
            (case 6
                (mySound:stop())
                (bugEyes:cel(2))
                = ticks 30
            )
            (case 7
                (bug:setCel(5))
                = ticks 30
            )
            (case 8
                (mySound:
                    number(1026)
                    setLoop(1)
                    setVol(127)
                    play()
                )
                (bug:setCel(6))
                = ticks 30
            )
            (case 9
                (bug:setCel(5))
                = ticks 20
            )
            (case 10
                (bug:setCel(6))
                (mySound:
                    number(1026)
                    setLoop(1)
                    play()
                )
                = ticks 60
            )
            (case 11
                (mySound:
                    number(928)
                    setLoop(1)
                    play()
                )
                (bugEyes:setCycle(CT 0 -1 self))
                (bug:setCycle(CT 3 -1 self))
            )
            (case 12
            )
            (case 13
                (mySound:stop())
                (send gLongSong2:pause(0))
                = ticks 30
            )
            (case 14
                (mySound:
                    number(1025)
                    setLoop(-1)
                    play()
                )
                (bugEyes:dispose())
                (bug:
                    setCycle(Walk)
                    loop(0)
                    setMotion(MoveTo 275 181 self)
                )
            )
            (case 15
                (mySound:stop())
                (bug:
                    setLoop(0)
                    setCel(0)
                    posn(275 181)
                    dispose()
                )
                (bugEyes:
                    setCel(2)
                    posn(268 159)
                    dispose()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance tickleScr of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (mySound:
                    number(951)
                    setLoop(1)
                    play()
                )
                (vineDino:
                    view(935)
                    setLoop(0)
                    setCel(0)
                    moveSpeed(0)
                    setMotion(MoveTo 145 88 self)
                )
            )
            (case 1
                (vineDino:setCycle(End self))
            )
            (case 2
                = ticks 50
            )
            (case 3
                (vineDino:setLoop(1))
                = ticks 5
            )
            (case 4
                (mySound:
                    number(1016)
                    setLoop(-1)
                    play()
                )
                (charlie:
                    view(935)
                    loop(2)
                    setCel(0)
                    posn(182 132)
                )
                (vineDino:
                    loop(1)
                    setCycle(Fwd)
                )
                = ticks 120
            )
            (case 5
                (mySound:stop())
                (charlie:
                    view(980)
                    loop(1)
                    setCel(0)
                    posn(193 136)
                )
                (vineDino:
                    loop(0)
                    setCel(2)
                    setCycle(0)
                )
                = cycles 2
            )
            (case 6
                (vineDino:setCycle(Beg self))
            )
            (case 7
                (mySound:
                    number(951)
                    setLoop(1)
                    play()
                )
                (vineDino:setMotion(MoveTo 129 60 self))
            )
            (case 8
                (vineDino:
                    view(980)
                    setLoop(2)
                    setCel(2)
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance bushCatScr of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (bushCat:
                    view(945)
                    setLoop(0)
                    setCel(0)
                    setCycle(Fwd)
                    ignoreActors(1)
                    setMotion(MoveTo 80 159 self)
                )
            )
            (case 1
                (mySound:
                    number(956)
                    setLoop(-1)
                    play()
                )
                (bushCat:setMotion(MoveTo 60 159 self))
            )
            (case 2
                (bushCat:
                    setLoop(6)
                    setCel(0)
                    cycleSpeed(10)
                    posn(33 159)
                    setCycle(End self)
                )
            )
            (case 3
                (bushCat:
                    setLoop(7)
                    setCycle(Fwd)
                    cycleSpeed(6)
                    setMotion(MoveTo 43 122 self)
                )
            )
            (case 4
                (theVine:hide())
                (bushCat:
                    setLoop(1)
                    setCel(0)
                    posn(37 105)
                    setCycle(CT 5 1 self)
                )
                (mySound:stop())
            )
            (case 5
                (bushCat:
                    posn(41 108)
                    setCel(6)
                )
                (my2Sound:
                    number(934)
                    setLoop(1)
                    play()
                )
                = ticks 60
            )
            (case 6
                (my2Sound:stop())
                (mySound:
                    number(904)
                    setLoop(1)
                    play()
                )
                (bushCat:
                    setLoop(2)
                    setCel(0)
                )
                (catEyes:
                    cel(1)
                    setLoop(3)
                    init()
                    posn(42 108)
                    ignoreActors(1)
                    setPri(15)
                    setStep(3 2)
                    setCycle(End self)
                )
            )
            (case 7
                (catEyes:
                    setLoop(4)
                    setCel(0)
                    posn(46 56)
                    ignoreActors()
                    moveSpeed(0)
                    setMotion(JumpTo 69 33 self)
                )
                (mySound:
                    number(930)
                    setLoop(1)
                    play()
                )
            )
            (case 8
                (my2Sound:play())
                (catEyes:posn(106 88))
                = ticks 10
            )
            (case 9
                (catEyes:posn(122 138))
                = ticks 10
            )
            (case 10
                (catEyes:
                    setPri(6)
                    posn(127 167)
                )
                = ticks 10
            )
            (case 11
                (my2Sound:
                    number(924)
                    setLoop(1)
                    play()
                )
                (bushCat:
                    setLoop(5)
                    setCel(0)
                    setCycle(CT 1 1 self)
                )
            )
            (case 12
                (bushCat:setCycle(CT 4 1))
                (catEyes:
                    setLoop(8)
                    posn(111 99)
                )
                = ticks 10
            )
            (case 13
                (catEyes:posn(114 203))
                = ticks 5
            )
            (case 14
                (catEyes:dispose())
                (theVine:
                    show()
                    stopUpd()
                )
                (mySound:
                    number(988)
                    setLoop(1)
                    play()
                )
                (bushCat:
                    view(980)
                    setLoop(3)
                    setCel(2)
                    setCycle(0)
                    hide()
                )
                = ticks 25
            )
            (case 15
                (bushCat:
                    show()
                    posn(83 190)
                    moveSpeed(0)
                    setStep(4 4)
                    setMotion(MoveTo 83 160 self)
                )
            )
            (case 16
                (bushCat:
                    setStep(3 2)
                    moveSpeed(6)
                    cycleSpeed(6)
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance vinePucksEyeScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (theVine:
                    cel(1)
                    forceUpd()
                )
                = newProp (Prop:new())
                (send newProp:
                    name("pinkVine")
                    view(920)
                    setLoop(4)
                    cel(0)
                    setPri(4)
                    x(34)
                    y(99)
                    cycleSpeed(8)
                    ignoreActors(1)
                    init()
                )
                = newProp_2 (Prop:new())
                (send newProp_2:
                    name("purpleVine")
                    view(920)
                    setLoop(5)
                    cel(0)
                    setPri(4)
                    x(36)
                    y(107)
                    cycleSpeed(8)
                    ignoreActors(1)
                    init()
                )
                = ticks 20
            )
            (case 1
                (send newProp_2:
                    cel(0)
                    setCycle(CT 2 1 self)
                )
            )
            (case 2
                (mySound:
                    number(961)
                    setLoop(-1)
                    play()
                )
                (send newProp_2:setCycle(CycleBet 2 3 -1))
                = register 10
                = cycles 2
            )
            (case 3
                (if (--register)
                    --state
                    (send newProp_2:cycleSpeed(Random(8 12)))
                )
                = ticks 10
            )
            (case 4
                (send newProp_2:
                    setLoop(2)
                    cel(1)
                    setCycle(CT 3 1 self)
                )
            )
            (case 5
                (mySound:
                    number(904)
                    setLoop(1)
                    play()
                )
                (send newProp_2:setCycle(CT 8 1 self))
            )
            (case 6
                (send newProp:
                    setLoop(4)
                    setCycle(CT 2 1 self)
                )
            )
            (case 7
                (send newProp:
                    y(102)
                    setCycle(CycleBet 2 3 -1)
                )
                (mySound:
                    number(961)
                    setLoop(-1)
                    play()
                )
                = register 10
                = cycles 2
            )
            (case 8
                (if (--register)
                    --state
                    (send newProp:cycleSpeed(Random(8 12)))
                )
                = ticks 10
            )
            (case 9
                (send newProp:
                    setLoop(1)
                    cel(1)
                    setCycle(CT 3 1 self)
                )
                Load(rsSOUND 924)
            )
            (case 10
                (mySound:
                    number(904)
                    setLoop(1)
                    play()
                )
                (send newProp:
                    y(99)
                    setCycle(CT 8 1 self)
                )
            )
            (case 11
                = ticks 30
            )
            (case 12
                (send newProp:setCycle(CT 10 1 self))
                (send newProp_2:setCycle(CT 10 1 self))
            )
            (case 13
            )
            (case 14
                = ticks 100
                = register 10
            )
            (case 15
                (if (--register)
                    --state
                    (send newProp:
                        cel(Random(8 15))
                        forceUpd()
                    )
                    (send newProp_2:
                        cel(Random(8 15))
                        forceUpd()
                    )
                )
                = ticks Random(10 20)
            )
            (case 16
                = newProp_3 (Prop:new())
                (send newProp_3:
                    name("arm")
                    view(920)
                    setLoop(3)
                    cel(0)
                    setPri(5)
                    ignoreActors(1)
                    x(80)
                    y(138)
                    cycleSpeed(0)
                    init()
                )
                = ticks 30
            )
            (case 17
                (send newProp_3:posn(71 114))
                = ticks 20
            )
            (case 18
                (send newProp_3:posn(63 97))
                = ticks 20
            )
            (case 19
                (send newProp_3:
                    cel(1)
                    forceUpd()
                )
                (send newProp_2:
                    setLoop(5)
                    cel(0)
                    setCycle(0)
                    forceUpd()
                )
                = ticks 25
            )
            (case 20
                (mySound:
                    number(904)
                    setLoop(1)
                    play()
                )
                (send newProp_3:setCycle(End self))
            )
            (case 21
                (send newProp_3:posn(71 114))
                = ticks 2
            )
            (case 22
                (send newProp_3:posn(80 138))
                = ticks 2
            )
            (case 23
                (send newProp_3:hide())
                (send newProp:setCycle(CycleBet 8 15 -1))
                = ticks 100
            )
            (case 24
                (send newProp_3:
                    show()
                    cel(0)
                    posn(60 132)
                )
                = ticks 20
            )
            (case 25
                (send newProp_3:posn(52 111))
                = ticks 20
            )
            (case 26
                (send newProp_3:posn(43 92))
                = ticks 20
            )
            (case 27
                (send newProp_3:
                    cel(1)
                    forceUpd()
                )
                (send newProp:
                    setLoop(4)
                    cel(0)
                    setCycle(0)
                    forceUpd()
                )
                = ticks 25
            )
            (case 28
                (mySound:
                    number(904)
                    setLoop(1)
                    play()
                )
                (send newProp_3:setCycle(End self))
            )
            (case 29
                (send newProp_3:posn(52 111))
                = ticks 2
            )
            (case 30
                (send newProp_3:posn(60 132))
                = ticks 2
            )
            (case 31
                (send newProp_3:dispose())
                = ticks 60
            )
            (case 32
                (send newProp_2:setCycle(End self))
                (send newProp:
                    setLoop(6)
                    cel(0)
                    setCycle(End self)
                )
            )
            (case 33
            )
            (case 34
                (send newProp_2:dispose())
                (send newProp:dispose())
                (theVine:
                    cel(0)
                    forceUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance shootTheMoonScr of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (cow:
                    init()
                    setPri(4)
                    setCycle(CT 1 1 self)
                )
            )
            (case 1
                (my3Sound:
                    number(912)
                    setLoop(1)
                    play()
                )
                (cow:setCycle(CT 5 1 self))
            )
            (case 2
                (mySound:
                    number(911)
                    setLoop(1)
                    play()
                )
                (cow:
                    setPri(1)
                    setCycle(CT 9 1 self)
                )
            )
            (case 3
                (cow:setCel(10))
                (my2Sound:
                    number(914)
                    setLoop(1)
                    play(self)
                )
            )
            (case 4
                (cow:
                    setPri(0)
                    setCycle(CT 11 1)
                    setMotion(MoveTo 102 110 self)
                )
                (my2Sound:
                    number(1006)
                    setLoop(1)
                    play()
                )
            )
            (case 5
                (cow:
                    setCel(0)
                    posn(102 77)
                    dispose()
                )
                = cycles 2
            )
            (case 6
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
