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

(local
    local0
    local1
    theTreeTrunkT

)
(instance public rm10 of Rm
    (properties
        picture 1000
        style $000a
    )

    (method (init)
        (super:init())
        (send gLongSong:
            number(113)
            setLoop(-1)
            play(10)
            fade(127 10 30 0)
        )
        (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())
        (rock:init())
        (branch:
            init()
            stopUpd()
        )
        (bushWorm:
            init()
            stopUpd()
        )
        (charlie:
            init()
            stopUpd()
        )
        (cEyes:
            init()
            stopUpd()
        )
        (cEyes2:
            init()
            x(82)
            y(96)
            stopUpd()
        )
        (treeTrunkT:
            init()
            setPri(0)
            stopUpd()
        )
        (treeTrunkM:
            init()
            setPri(0)
            stopUpd()
        )
        (treeTrunkB:
            init()
            setPri(0)
            stopUpd()
        )
        (sky:init())
        (rock_dino:
            init()
            stopUpd()
        )
        (turtles:
            init()
            stopUpd()
        )
        (spinningVine:
            init()
            stopUpd()
        )
        (flower1:
            init()
            stopUpd()
        )
        (flower2:
            init()
            stopUpd()
        )
        (rocksStop:
            init()
            stopUpd()
        )
        (bigRockFea:init())
        (slater:
            init()
            ignoreActors(1)
            stopUpd()
        )
        (pond:
            init()
            setOnMeCheck(1 16384)
        )
        (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)
        (mySound:dispose())
        (my2Sound:dispose())
        (super:dispose())
    )


    (method (doVerb)
        return 0
    )


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


    (method (newRoom newRoomNumber)
        (send gLongSong:fade(0 10 30 1))
        (super:newRoom(newRoomNumber))
    )

)
(instance sBushWorm of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                proc958_0(128 1010 1000)
                (send gLongSong:
                    number(112)
                    play()
                )
                = cycles 1
            )
            (case 1
                (bushWorm:
                    view(1010)
                    loop(0)
                    setCel(0)
                    setCycle(CT 1 1 self)
                )
            )
            (case 2
                (mySound:
                    number(928)
                    setLoop(1)
                    play()
                )
                (bushWorm:setCycle(CT 7 1 self))
            )
            (case 3
                (mySound:
                    number(940)
                    setLoop(1)
                    play()
                )
                (bushWorm:setCycle(CT 14 1 self))
            )
            (case 4
                (mySound:
                    number(928)
                    setLoop(1)
                    play()
                )
                (bushWorm:setCycle(End self))
            )
            (case 5
                (bushWorm:
                    view(1000)
                    loop(0)
                    setCel(0)
                    stopUpd()
                )
                = ticks 25
            )
            (case 6
                (mySound:stop())
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sPiranhaFish of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                = cycles 1
            )
            (case 1
                (cEyes:dispose())
                (cEyes2:dispose())
                (charlie:
                    view(1020)
                    loop(0)
                    setCel(0)
                    posn(121 140)
                    setCycle(CT 3 1 self)
                )
                (mySound:
                    number(997)
                    play(self)
                    setLoop(1)
                )
            )
            (case 2
            )
            (case 3
                (mySound:
                    number(947)
                    setLoop(1)
                    play(self)
                )
            )
            (case 4
                (charlie:setCycle(CT 5 1 self))
            )
            (case 5
                = ticks 30
            )
            (case 6
                (charlie:
                    setCel(8)
                    setCycle(End self)
                )
                (mySound:
                    number(1014)
                    setLoop(1)
                    play(self)
                )
            )
            (case 7
                (charlie:
                    loop(1)
                    setCel(0)
                    cycleSpeed(8)
                    setCycle(CT 8 1 self)
                )
            )
            (case 8
                = ticks 25
            )
            (case 9
                (charlie:
                    setCel(8)
                    setCycle(CT 9 1 self)
                )
            )
            (case 10
                (charlie:
                    setCel(9)
                    setCycle(CT 8 -1 self)
                )
            )
            (case 11
                (mySound:
                    number(934)
                    setLoop(1)
                    play()
                )
                (charlie:
                    setCel(8)
                    setCycle(CT 9 1 self)
                )
            )
            (case 12
                (my2Sound:
                    number(947)
                    setLoop(1)
                    play()
                )
                (charlie:setCycle(End self))
            )
            (case 13
                (mySound:
                    number(996)
                    setLoop(-1)
                    play()
                )
                (charlie:
                    loop(2)
                    setCel(0)
                    setCycle(CycleBet 0 2 -1)
                )
                = ticks 100
            )
            (case 14
                (mySound:stop())
                (charlie:
                    view(1021)
                    loop(0)
                    setCel(0)
                    setCycle(CT 8 1 self)
                )
            )
            (case 15
                (mySound:
                    number(1031)
                    setLoop(1)
                    play()
                )
                (charlie:
                    setCel(8)
                    setCycle(End self)
                )
            )
            (case 16
                (my2Sound:
                    number(997)
                    setLoop(1)
                    play()
                )
                (charlie:
                    loop(1)
                    setCel(0)
                )
                = cycles 1
            )
            (case 17
                (charlie:
                    view(1020)
                    loop(0)
                    setCel(0)
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sTreeTrunk of Script
    (properties)

    (method (doit)
        (if ((== state 2) and (== (send theTreeTrunkT:cel) 1))
            (mySound:
                number(1034)
                setLoop(1)
                play()
            )
        )
        (super:doit())
    )


    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (if (<> (send gLongSong:number) 130)
                    (send gLongSong:
                        number(130)
                        play()
                        setLoop(-1)
                    )
                )
                (switch (register)
                    (case 1
                        = theTreeTrunkT treeTrunkT
                    )
                    (case 2
                        = theTreeTrunkT treeTrunkM
                    )
                    (case 3
                        = theTreeTrunkT treeTrunkB
                    )
                )
                = cycles 1
            )
            (case 1
                (send theTreeTrunkT:
                    view(1025)
                    loop(
                        (if (== register 1)
                            0
                        )(else
                            1
                        )
)
                    setCel(0)
                    setCycle(End self)
                )
                (mySound:
                    number(955)
                    setLoop(1)
                    play()
                )
            )
            (case 2
                (mySound:stop())
                (send theTreeTrunkT:
                    loop(2)
                    setCel(0)
                    cycleSpeed(13)
                    setCycle(Fwd)
                )
                = ticks 212
            )
            (case 3
                (my2Sound:
                    number(955)
                    play()
                    setLoop(1)
                )
                (send theTreeTrunkT:
                    loop(
                        (if (== register 1)
                            0
                        )(else
                            1
                        )
)
                    setCel(14)
                    cycleSpeed(6)
                    setCycle(Beg self)
                )
            )
            (case 4
                (my2Sound:stop())
                (send theTreeTrunkT:
                    view(1000)
                    loop(0)
                    setCel(
                        (if (== register 1)
                            1
                        )(else
                            2
                        )
)
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sPteroFlys of Script
    (properties)

    (method (doit)
        (if (((== (mySound:prevSignal) -1) and (< state 3)) and (== (ptero:cel) 2))
            (mySound:
                number(978)
                setLoop(1)
                play()
            )
        )
        (super:doit())
    )


    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                = cycles 1
            )
            (case 1
                (ptero:
                    view(1030)
                    setLoop(0)
                    posn(29 40)
                    cycleSpeed(7)
                    init()
                    setPri(6)
                    setCycle(Fwd)
                    illegalBits(0)
                    ignoreActors(1)
                    setMotion(MoveTo 200 41 self)
                )
            )
            (case 2
                (ptero:setMotion(MoveTo 224 35 self))
            )
            (case 3
                (branch:dispose())
                (mySound:
                    number(996)
                    setLoop(1)
                    play()
                )
                (ptero:
                    loop(1)
                    setCel(0)
                    posn(230 24)
                    setCycle(CT 10 1 self)
                )
            )
            (case 4
                = ticks 50
            )
            (case 5
                (mySound:
                    number(910)
                    setLoop(1)
                    play()
                )
                (ptero:setCycle(CT 11 1 self))
            )
            (case 6
                = cycles 3
            )
            (case 7
                (ptero:setCycle(End self))
            )
            (case 8
                = ticks 100
            )
            (case 9
                (mySound:
                    number(910)
                    setLoop(1)
                    play()
                )
                (ptero:
                    loop(2)
                    setCel(0)
                    setCycle(End self)
                )
                (branch:
                    init()
                    setCel(3)
                    stopUpd()
                )
            )
            (case 10
                (mySound:
                    number(952)
                    setLoop(1)
                    play()
                )
                (ptero:
                    setLoop(3)
                    setCel(0)
                    posn(221 94)
                    setCycle(Fwd)
                    setMotion(MoveTo 310 117 self)
                )
                (my2Sound:
                    number(929)
                    setLoop(-1)
                    play()
                )
            )
            (case 11
                (branch:
                    setCel(2)
                    stopUpd()
                )
                (my2Sound:stop())
                (ptero:dispose())
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sTinyDinoRock of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                = cycles 1
            )
            (case 1
                (rock_dino:
                    view(1035)
                    loop(0)
                    setCel(0)
                    setCycle(CT 2 1 self)
                )
            )
            (case 2
                (mySound:
                    number(950)
                    setLoop(1)
                    play()
                )
                (rock_dino:setCycle(End self))
            )
            (case 3
                (rock_dino:
                    loop(1)
                    setCel(0)
                    setCycle(CT 7 1 self)
                )
            )
            (case 4
                = ticks 5
            )
            (case 5
                (rock_dino:
                    setCel(7)
                    setCycle(CT 8 1 self)
                )
            )
            (case 6
                (mySound:
                    number(1022)
                    setLoop(1)
                    play()
                )
                (rock_dino:setCycle(CT 10 1 self))
            )
            (case 7
                (mySound:
                    number(1022)
                    setLoop(1)
                    play(self)
                )
                (rock_dino:setCycle(CycleBet 7 10 -1))
            )
            (case 8
                (rock_dino:setCycle(End self))
            )
            (case 9
                (mySound:
                    number(926)
                    setLoop(1)
                    play()
                )
                (rock_dino:
                    view(1000)
                    loop(0)
                    setCel(3)
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sTurtle of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (mySound:
                    number(1003)
                    setLoop(1)
                    play()
                )
                = cycles 1
            )
            (case 1
                (turtles:
                    view(1040)
                    loop(0)
                    setCel(0)
                    setCycle(End self)
                )
            )
            (case 2
                (turtles:
                    loop(1)
                    setCel(0)
                    setCycle(End self)
                )
                (mySound:
                    number(1033)
                    setLoop(1)
                    play()
                )
            )
            (case 3
                (turtles:
                    loop(2)
                    setCel(0)
                    setCycle(CT 3 1 self)
                )
                (my2Sound:
                    number(1149)
                    setLoop(1)
                    play()
                )
            )
            (case 4
                (turtles:
                    setCel(3)
                    setCycle(CT 0 -1 self)
                )
            )
            (case 5
                (turtles:
                    setCel(0)
                    setCycle(CT 3 1 self)
                )
                (my2Sound:
                    number(1159)
                    setLoop(1)
                    play()
                )
            )
            (case 6
                (turtles:
                    setCel(3)
                    setCycle(CT 0 -1 self)
                )
            )
            (case 7
                (turtles:
                    setCel(0)
                    setCycle(CT 3 1 self)
                )
                (my2Sound:
                    number(1160)
                    setLoop(1)
                    play()
                )
            )
            (case 8
                (turtles:
                    setCel(3)
                    setCycle(CT 0 -1 self)
                )
            )
            (case 9
                (turtles:
                    setCel(0)
                    setCycle(CT 6 1 self)
                )
            )
            (case 10
                (turtles:setCel(7))
                (mySound:
                    number(982)
                    setLoop(1)
                    play()
                )
                = ticks 25
            )
            (case 11
                (my2Sound:
                    number(914)
                    setLoop(1)
                    play()
                )
                (turtles:setCycle(End self))
            )
            (case 12
                (turtles:
                    view(1000)
                    loop(1)
                    setCel(0)
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sSpinningVine of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (my2Sound:
                    number(945)
                    setLoop(1)
                    play()
                )
                = cycles 1
            )
            (case 1
                (spinningVine:
                    view(1045)
                    loop(0)
                    setCel(0)
                    posn(123 82)
                    setPri(1)
                    setCycle(CT 2 1 self)
                )
            )
            (case 2
                (spinningVine:setCycle(End self))
            )
            (case 3
                (my2Sound:
                    number(934)
                    setLoop(1)
                    play()
                )
                (spinningVine:
                    loop(1)
                    setCel(0)
                    setCycle(CT 10 1 self)
                )
            )
            (case 4
                (my2Sound:
                    number(924)
                    setLoop(1)
                    play(self)
                )
            )
            (case 5
                = ticks 15
            )
            (case 6
                (spinningVine:setCycle(End self))
            )
            (case 7
                (mySound:
                    number(1020)
                    setLoop(1)
                    play()
                )
                (spinningVine:
                    loop(2)
                    setCel(0)
                    setCycle(CT 4 1 self)
                )
            )
            (case 8
                (treeTrunkT:setPri(0))
                (treeTrunkM:setPri(0))
                (mySound:
                    number(994)
                    play()
                    setLoop(1)
                )
                (spinningVine:setCycle(CT 9 1 self))
            )
            (case 9
                (mySound:
                    number(994)
                    play()
                    setLoop(1)
                )
                (spinningVine:setCycle(CT 12 1 self))
            )
            (case 10
                (mySound:
                    number(994)
                    play()
                    setLoop(1)
                )
                (spinningVine:setCycle(End self))
            )
            (case 11
                (mySound:
                    number(991)
                    play()
                    setLoop(1)
                )
                (spinningVine:
                    loop(3)
                    setCel(0)
                    setCycle(CT 2 1 self)
                )
            )
            (case 12
                (mySound:
                    number(986)
                    setLoop(1)
                    play()
                )
                (spinningVine:setCycle(End self))
            )
            (case 13
                (spinningVine:
                    loop(4)
                    setCel(0)
                    setCycle(End self)
                )
            )
            (case 14
                (spinningVine:
                    view(1000)
                    loop(1)
                    setCel(1)
                    posn(104 72)
                    stopUpd()
                )
                = ticks 40
            )
            (case 15
                (treeTrunkT:setPri(0))
                (treeTrunkM:setPri(0))
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sTugOWar of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (spinningVine:
                    view(1050)
                    loop(0)
                    setCel(2)
                    posn(104 71)
                )
                = cycles 1
            )
            (case 1
                (mySound:
                    number(1003)
                    setLoop(1)
                    play()
                )
                (flower2:hide())
                (flower1:
                    view(1050)
                    loop(1)
                    setCel(0)
                    setCycle(CT 6 1 self)
                )
            )
            (case 2
                (mySound:
                    number(910)
                    setLoop(1)
                    play()
                )
                (spinningVine:hide())
                (flower1:setCycle(CT 9 1 self))
            )
            (case 3
                (mySound:
                    number(934)
                    setLoop(1)
                    play()
                )
                (flower1:setCycle(End self))
            )
            (case 4
                (flower1:
                    setCel(14)
                    setCycle(CT 11 -1 self)
                )
            )
            (case 5
                (flower1:
                    setCel(11)
                    setCycle(CT 14 1 self)
                )
            )
            (case 6
                (flower1:
                    setCel(14)
                    setCycle(CT 11 -1 self)
                )
            )
            (case 7
                (flower1:
                    setCel(11)
                    setCycle(CT 14 1 self)
                )
            )
            (case 8
                (flower1:
                    loop(2)
                    setCel(0)
                    setCycle(CT 2 1 self)
                )
            )
            (case 9
                (mySound:
                    number(947)
                    setLoop(1)
                    play()
                )
                (flower1:setCycle(End self))
            )
            (case 10
                (flower1:
                    view(1000)
                    loop(1)
                    setCel(2)
                    stopUpd()
                )
                (flower2:
                    show()
                    stopUpd()
                )
                (spinningVine:
                    view(1000)
                    loop(1)
                    setCel(1)
                    posn(104 71)
                    show()
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sDivingDino of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                Load(rsVIEW 1056)
                = cycles 1
            )
            (case 1
                (divingDino:
                    view(1055)
                    loop(0)
                    setCel(0)
                    init()
                )
                = ticks 50
            )
            (case 2
                (divingDino:
                    cycleSpeed(2)
                    setCycle(CT 7 1 self)
                )
            )
            (case 3
                (divingBoard:hide())
                (cEyes:
                    view(1020)
                    loop(3)
                    cel(6)
                    x(80)
                    y(90)
                    init()
                )
                (cEyes2:
                    view(1020)
                    loop(4)
                    cel(6)
                    x(80)
                    y(88)
                    init()
                )
                (divingDino:setCycle(CT 11 1 self))
            )
            (case 4
                (mySound:
                    number(911)
                    setLoop(1)
                    play()
                )
                (divingDino:setCycle(End self))
                (cEyes:setCycle(Beg))
                (cEyes2:setCycle(Beg))
            )
            (case 5
                (divingDino:
                    loop(1)
                    setCel(0)
                    setCycle(End self)
                )
                (my2Sound:
                    number(1035)
                    setLoop(1)
                    play()
                )
            )
            (case 6
                (divingDino:
                    view(1056)
                    loop(0)
                    setCel(0)
                    cycleSpeed(-1)
                    setCycle(CT 2 1 self)
                )
                (cEyes:dispose())
                (cEyes2:dispose())
                (charlie:hide())
                (divingBoard:show())
            )
            (case 7
                (mySound:
                    number(992)
                    setLoop(1)
                    play()
                )
                = ticks 25
            )
            (case 8
                (divingDino:
                    setCel(2)
                    setCycle(CT 6 1 self)
                )
            )
            (case 9
                (my2Sound:
                    number(1026)
                    play()
                )
                = ticks 25
            )
            (case 10
                (divingDino:
                    setCel(6)
                    setCycle(CT 7 1 self)
                )
            )
            (case 11
                (mySound:
                    number(930)
                    setLoop(1)
                    play()
                )
                (divingDino:setCycle(CT 9 1 self))
            )
            (case 12
                (my2Sound:
                    number(997)
                    setLoop(1)
                    play()
                )
                (divingDino:
                    setCel(9)
                    setCycle(End self)
                )
            )
            (case 13
                (divingDino:
                    hide()
                    dispose()
                )
                proc958_0(0 1056)
                (charlie:
                    show()
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sRockMan of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (rockMan:init())
                = cycles 1
            )
            (case 1
                (mySound:
                    number(925)
                    setLoop(1)
                    play()
                )
                (rockMan:
                    loop(0)
                    setCel(0)
                    setCycle(CT 6 1 self)
                )
            )
            (case 2
                (rocksStop:hide())
                (rockMan:setCycle(CT 14 1 self))
            )
            (case 3
                = ticks 100
            )
            (case 4
                (mySound:
                    number(904)
                    setLoop(1)
                    play()
                )
                (rockMan:setCycle(End self))
            )
            (case 5
                (rockMan:
                    setLoop(1)
                    setCel(0)
                    setCycle(CT 2 1 self)
                )
            )
            (case 6
                (mySound:
                    number(952)
                    play()
                    setLoop(1)
                )
                (rockMan:setCycle(CT 6 1 self))
            )
            (case 7
                (my2Sound:
                    number(925)
                    play()
                    setLoop(1)
                )
                (mySound:
                    number(952)
                    setLoop(1)
                    play()
                )
                (rockMan:setCycle(CT 8 1 self))
            )
            (case 8
                (mySound:
                    number(930)
                    play()
                    setLoop(1)
                )
                (rockMan:setCycle(End self))
            )
            (case 9
                (mySound:
                    number(952)
                    play()
                    setLoop(1)
                )
                (rockMan:dispose())
                (rocksStop:
                    show()
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sSlaterDive of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                = cycles 1
            )
            (case 1
                (slater:
                    view(1065)
                    loop(0)
                    setCel(0)
                    setCycle(CT 1 1 self)
                )
            )
            (case 2
                (mySound:
                    number(911)
                    setLoop(1)
                    play()
                )
                (slater:setCycle(CT 2 1 self))
            )
            (case 3
                (divingBoard:
                    init()
                    stopUpd()
                )
                (slater:
                    setCel(3)
                    setCycle(CT 6 1 self)
                )
                (cEyes:
                    cycleSpeed(0)
                    setCycle(Beg)
                )
                (cEyes2:
                    cycleSpeed(0)
                    setCycle(Beg)
                )
            )
            (case 4
                (mySound:
                    number(997)
                    play()
                )
                (slater:setCycle(CT 10 1 self))
                (cEyes:dispose())
                (cEyes2:dispose())
            )
            (case 5
                (slater:
                    setCel(11)
                    posn(168 126)
                    stopUpd()
                )
                = ticks 10
            )
            (case 6
                = ticks 100
            )
            (case 7
                (my2Sound:
                    number(997)
                    setLoop(1)
                    play()
                )
                (cEyes:dispose())
                (cEyes2:dispose())
                (charlie:setCycle(Beg self))
            )
            (case 8
                (charlie:stopUpd())
                (slater:
                    view(1000)
                    loop(2)
                    setCel(0)
                    stopUpd()
                )
                = local1 1
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sSlaterFish of Script
    (properties)

    (method (doit)
        (super:doit())
        (if (((== state 2) and (== (mySound:prevSignal) -1)) and ((== (slater:cel) 2) or (== (slater:cel) 8)))
            (if ((== (my2Sound:prevSignal) -1) and (== Random(0 4) 1))
                (my2Sound:
                    number(937)
                    play()
                    setLoop(1)
                )
            )
            (mySound:
                number(954)
                setLoop(1)
                play()
            )
        )
    )


    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                = cycles 1
            )
            (case 1
                (mySound:
                    number(997)
                    setLoop(1)
                    play()
                )
                (slater:
                    view(1065)
                    loop(1)
                    setCel(0)
                    setCycle(End self)
                )
            )
            (case 2
                (slater:
                    loop(2)
                    setCel(0)
                    setCycle(CycleBet 0 8 -1)
                )
                = ticks 200
            )
            (case 3
                (slater:
                    loop(3)
                    setCel(0)
                    setCycle(CT 4 1 self)
                )
                (mySound:
                    number(991)
                    setLoop(1)
                    play()
                )
            )
            (case 4
                (slater:setCycle(End self))
                (my2Sound:
                    number(997)
                    setLoop(1)
                    play()
                )
            )
            (case 5
                (slater:
                    view(1000)
                    loop(2)
                    setCel(0)
                    stopUpd()
                )
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sSlaterBubbles of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                = cycles 1
            )
            (case 1
                (bubbles:
                    view(1005)
                    loop(0)
                    setCel(0)
                    init()
                    posn(- (slater:x) 35 + (slater:y) 1)
                    setCycle(CT 6 1 self)
                )
            )
            (case 2
                (mySound:
                    number(924)
                    setLoop(1)
                    play()
                )
                (bubbles:setCel(7))
                = ticks 10
            )
            (case 3
                (my2Sound:
                    number(924)
                    setLoop(1)
                    play()
                )
                (bubbles:setCel(8))
                = ticks 10
            )
            (case 4
                (bubbles:setCycle(CT 10 1 self))
            )
            (case 5
                (mySound:
                    number(924)
                    setLoop(1)
                    play()
                )
                (bubbles:setCel(11))
                = ticks 10
            )
            (case 6
                (bubbles:setCycle(CT 13 1 self))
            )
            (case 7
                (mySound:
                    number(924)
                    setLoop(1)
                    play()
                )
                (bubbles:setCel(14))
                = ticks 10
            )
            (case 8
                (bubbles:
                    setCel(14)
                    setCycle(End self)
                )
            )
            (case 9
                (bubbles:dispose())
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance rockScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (rock:setCel(1))
                = ticks 60
            )
            (case 1
                (send global1:handsOff())
                (theView:
                    view(1070)
                    setLoop(0)
                    setCel(1)
                    posn(111 176)
                    init()
                )
                (mySound:
                    number(1051)
                    setLoop(1)
                    play()
                )
                = ticks 16
            )
            (case 2
                (send global1:handsOff())
                (theProp:
                    view(1070)
                    setLoop(1)
                    setCel(1)
                    posn(185 176)
                    init()
                )
                = ticks 25
            )
            (case 3
                (send global1:handsOff())
                (theView2:
                    view(1070)
                    setLoop(2)
                    setCel(1)
                    posn(156 188)
                    init()
                )
                = ticks 15
            )
            (case 4
                (theView:
                    hide()
                    dispose()
                )
                = ticks 35
            )
            (case 5
                (theProp:
                    hide()
                    dispose()
                )
                = ticks 20
            )
            (case 6
                (theProp:
                    view(1070)
                    setLoop(3)
                    setCel(1)
                    posn(202 188)
                    init()
                )
                = ticks 50
            )
            (case 7
                (theView2:
                    hide()
                    dispose()
                )
                = ticks 126
            )
            (case 8
                (theProp:
                    hide()
                    dispose()
                )
                (rock:
                    setCel(0)
                    stopUpd()
                )
                (if (local1)
                    = cycles 1
                )(else
                    (self:setScript(sSlaterDive self))
                )
            )
            (case 9
                (send global1:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance aWord0 of InterFeature
    (properties
        nsTop 161
        nsLeft 73
        nsBottom 178
        nsRight 117
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1054)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(0)
            posn(95 176)
            init()
        )
    )

)
(instance aWord1 of InterFeature
    (properties
        nsTop 161
        nsLeft 117
        nsBottom 178
        nsRight 154
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1111)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(1)
            posn(135 176)
            init()
        )
    )

)
(instance aWord2 of InterFeature
    (properties
        nsTop 161
        nsLeft 154
        nsBottom 178
        nsRight 165
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1093)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(2)
            posn(159 176)
            init()
        )
    )

)
(instance aWord3 of InterFeature
    (properties
        nsTop 161
        nsLeft 166
        nsBottom 178
        nsRight 189
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1112)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(3)
            posn(177 176)
            init()
        )
    )

)
(instance aWord4 of InterFeature
    (properties
        nsTop 161
        nsLeft 189
        nsBottom 178
        nsRight 218
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1113)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(4)
            posn(202 176)
            init()
        )
    )

)
(instance aWord5 of InterFeature
    (properties
        nsTop 164
        nsLeft 218
        nsBottom 178
        nsRight 246
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1114)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(5)
            posn(231 176)
            init()
        )
    )

)
(instance aWord6 of InterFeature
    (properties
        nsTop 164
        nsLeft 246
        nsBottom 178
        nsRight 261
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1093)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(2)
            posn(251 176)
            init()
        )
    )

)
(instance aWord7 of InterFeature
    (properties
        nsTop 179
        nsLeft 56
        nsBottom 188
        nsRight 99
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1115)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(6)
            posn(78 188)
            init()
        )
    )

)
(instance aWord8 of InterFeature
    (properties
        nsTop 179
        nsLeft 99
        nsBottom 188
        nsRight 134
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1116)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(7)
            posn(116 188)
            init()
        )
    )

)
(instance aWord9 of InterFeature
    (properties
        nsTop 179
        nsLeft 143
        nsBottom 188
        nsRight 157
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1093)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(2)
            posn(151 188)
            init()
        )
    )

)
(instance aWord10 of InterFeature
    (properties
        nsTop 179
        nsLeft 157
        nsBottom 188
        nsRight 191
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1117)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(8)
            posn(175 188)
            init()
        )
    )

)
(instance aWord11 of InterFeature
    (properties
        nsTop 179
        nsLeft 191
        nsBottom 188
        nsRight 230
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1115)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(6)
            posn(209 188)
            init()
        )
    )

)
(instance aWord12 of InterFeature
    (properties
        nsTop 179
        nsLeft 230
        nsBottom 188
        nsRight 266
    )

    (method (doVerb)
        (send global1:handsOff())
        (mySound:
            number(1116)
            setLoop(1)
            play(rm10)
        )
        (theView:
            view(1075)
            setLoop(7)
            posn(246 188)
            init()
        )
    )

)
(instance sky of InterFeature
    (properties
        nsLeft 34
        nsBottom 45
        nsRight 123
    )

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

)
(instance branch of View
    (properties
        x 230
        y 24
        view 1000
        loop 2
        cel 2
    )
)
(instance rock of InterView
    (properties
        x 67
        y 175
        view 1080
        loop 3
        priority 15
        signal $0011
    )

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

)
(instance cEyes of Prop
    (properties
        x 80
        y 97
        view 1020
        loop 3
        cel 3
        priority 14
        signal $4010
    )
)
(instance cEyes2 of Prop
    (properties
        x 85
        y 96
        view 1020
        loop 4
        cel 3
        priority 14
        signal $4010
    )
)
(instance bushWorm of InterProp
    (properties
        x 152
        y 163
        view 1000
        signal $1000
    )

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

)
(instance charlie of InterProp
    (properties
        x 122
        y 140
        view 1020
        cel 4
        signal $5000
    )

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

)
(instance treeTrunkT of InterProp
    (properties
        x 272
        y 61
        view 1000
        cel 1
        signal $5000
    )

    (method (doVerb)
        (send global2:setScript(sTreeTrunk 0 1))
    )

)
(instance treeTrunkM of InterProp
    (properties
        x 271
        y 83
        view 1000
        cel 2
        signal $5000
    )

    (method (doVerb)
        (send global2:setScript(sTreeTrunk 0 2))
    )

)
(instance treeTrunkB of InterProp
    (properties
        x 272
        y 103
        view 1000
        cel 2
        priority 6
        signal $5010
    )

    (method (doVerb)
        (send global2:setScript(sTreeTrunk 0 3))
    )

)
(instance rock_dino of InterProp
    (properties
        x 273
        y 163
        view 1000
        cel 3
    )

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

)
(instance turtles of InterProp
    (properties
        x 168
        y 76
        view 1000
        loop 1
        signal $1000
    )

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

)
(instance spinningVine of InterProp
    (properties
        x 104
        y 71
        view 1000
        loop 1
        cel 1
    )

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

)
(instance flower1 of InterProp
    (properties
        x 53
        y 85
        view 1000
        loop 1
        cel 2
        signal $4000
    )

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

)
(instance flower2 of InterProp
    (properties
        x 53
        y 85
        view 1000
        loop 1
        cel 3
        signal $4000
    )

    (method (doVerb theVerb)
        (flower1:doVerb(theVerb))
    )

)
(instance divingDino of Prop
    (properties
        x 124
        y 148
        view 1055
    )
)
(instance divingBoard of InterView
    (properties
        x 258
        y 126
        view 1000
        loop 1
        cel 4
        signal $4000
    )

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

)
(instance rockMan of Prop
    (properties
        x 214
        y 88
        view 1060
    )
)
(instance bigRockFea of InterFeature
    (properties
        nsTop 37
        nsLeft 188
        nsBottom 72
        nsRight 225
    )

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

)
(instance rocksStop of InterProp
    (properties
        x 214
        y 88
        view 1000
        loop 1
        cel 6
    )

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

)
(instance slater of InterProp
    (properties
        x 172
        y 147
        view 1065
        signal $1000
    )

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

)
(instance pond of InterFeature
    (properties)

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

)
(instance bubbles of Prop
    (properties
        view 1005
    )
)
(instance theView of Prop
    (properties
        view 1070
        cel 1
        priority 15
        signal $0010
    )
)
(instance theView2 of Prop
    (properties
        view 1070
        cel 1
        priority 15
        signal $0010
    )
)
(instance theProp of Prop
    (properties
        view 1070
        cel 1
        priority 15
        signal $0010
    )
)
(instance ptero of Actor
    (properties
        x 29
        y 40
        view 1030
        signal $4000
    )
)
(instance mySound of Sound
    (properties)
)
(instance my2Sound of Sound
    (properties)
)
