(include "sci.sh")
(use "Main")
(use "VelocityMover")
(use "genetix")
(use "Scaler")
(use "PolyPath")
(use "Polygon")
(use "MoveFwd")
(use "n958")
(use "Sound")
(use "Cycle")
(use "Sounds")
(use "View")
(use "Obj")
(script 790)


(local
    local0
    theGPEventX
    theGPEventY

)
(procedure (localproc_00f0)
    (send gEgo:
        moveSpeed(5)
        cycleSpeed(7)
        setStep(3 3)
    )
)


(instance theMusic3 of Sound
    (properties)
)
(instance theMusic4 of Sound
    (properties)
)
(instance public rm790 of Rm
    (properties
        noun 13
        picture 116
    )

    (method (init)
        proc958_0(143 number)
        proc0_2(64)
        (self:setRegions(31))
        (if (not proc0_1(22))
            proc958_0(128 618 619 620 621 518 520)
            (send gRoom:addObstacle((send ((Polygon:new())):
                    type(3)
                    init(218 46 197 47 188 51 164 69 120 105 69 115 57 127 52 129 53 158 190 157 215 147 210 144 182 145 148 122 123 124 105 131 65 130 86 120 116 114 119 112 200 56 214 51 254 51 255 46)
                    yourself()
                )
))
        )
        (super:init())
        proc0_3(121)
        (computerFlashing:init())
        (if (gRegister)
            (computerFlashing:
                init()
                setLoop(9)
            )
        )(else
            (computerFlashing:
                init()
                setCycle(Fwd)
            )
        )
        (botCageF:init())
        (otherCageF:init())
        (topCageButF:init())
        (creatureM:
            init()
            setCycle(Fwd)
        )
        (creatureL:
            init()
            setScript(sWoscillate)
        )
        (creatureR:
            init()
            setCycle(Fwd)
        )
        (steamPuff:
            init()
            hide()
            setScript(sSteamPuff)
        )
        (crFeatureM:init())
        (crFeatureR:init())
        (crFeatureL:init())
        (bigForceField:
            init()
            setCycle(Fwd)
        )
        (send gSQ5:handsOn())
        (theMusic3:
            number(101)
            flags(1)
            loop(-1)
            play()
        )
        (if (proc0_1(22))
            (send gSq5Music2:
                number(600)
                loop(-1)
                play()
            )
            (send gSq5Music2:setVol(proc999_2(127 proc999_3(30 (- (send gEgo:y) 32)))))
            (Door1:
                init()
                stopUpd()
            )
            (send gWalkHandler:addToFront(self))
            (send gWalkHandler:addToFront(computerFlashing))
            (if (== gGModNum 770)
                (send gSq5Music1:
                    number(39)
                    setLoop(-1)
                    play()
                )
                proc31_1(224 24)
            )(else
                (send gSq5IconBar:enable(7))
                proc31_1(224 124)
            )
            (send gWalkHandler:addToFront(doorLock))
            (doorLock:init())
        )(else
            (if (proc0_1(83))
                (fog:
                    init()
                    setLoop(5)
                    setCycle(Fwd)
                )
                (nitroDoor:
                    init()
                    setLoop(2)
                    cel(2)
                    addToPic()
                )
                (if (not proc0_1(125))
                    (nitro:init())
                )
            )(else
                (nitroDoorBut:init())
            )
            (topCageBut:init())
            (bottomCageBut:init())
            (send gWalkHandler:addToFront(self))
            (send gWalkHandler:addToFront(Door1))
            (switch (gGModNum)
                (case 730
                    (send gRoom:setScript(sWalkIn))
                )
                (case 750
                    (send gRoom:setScript(sBackFromComputer))
                )
                (default 
                    (send gRoom:setScript(sWalkIn))
                )
            )
        )
    )


    (method (doit)
        (if (proc0_1(22))
            (send gEgo:setLoop((/ (+ (send gEgo:heading) 90) 180)))
            (send gSq5Music2:setVol(proc999_2(127 proc999_3(30 (- (send gEgo:y) 32)))))
        )
        (if (not 
        (if (script)
        )(else
            proc0_1(22)
        )
)
            (switch ((send gEgo:onControl(1)))
                (case 64
                    (send gRoom:setScript(sUpStairs))
                )
                (case 32
                    (send gRoom:setScript(sDownStairs))
                )
                (case 1024
                    (if (> (send gEgo:y) 100)
                        (send gRoom:setScript(sToComputer))
                    )
                )
                (case 16384
                    (send gRoom:setScript(sUpSmallStairs))
                )
                (case 128
                    (send gRoom:setScript(sDownSmallStairs))
                )
            )
        )
        (super:doit())
    )


    (method (dispose param1)
        (send gWalkHandler:delete(self))
        (send gWalkHandler:delete(computerFlashing))
        (send gWalkHandler:delete(doorLock))
        (send gWalkHandler:delete(Door1))
        DisposeScript(29)
        (super:dispose(rest param1))
    )


    (method (doVerb param1 param2)
        (switch (param1)
            (case 3
                (
                (if (proc0_1(22))
                    proc31_2(gPEventY)
                    (send gEgo:setMotion(VelocityMover gPEventX gPEventY self 0))
                )(else
                    = theGPEventX gPEventX
                    = theGPEventY gPEventY
                    (send gEgo:setMotion(PolyPath gPEventX gPEventY))
                )
 )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance sToComputer of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gEgo:
                    view(518)
                    setLoop(0)
                    cycleSpeed(12)
                    setStep(1 1)
                    setMotion(PolyPath 230 160 self)
                )
  )
            )
            (case 1
                (proc0_6(0) (send gEgo:setMotion(MoveTo 253 160 self))  )
            )
            (case 2
                ((send gEgo:setHeading(0)) = seconds 2  )
            )
            (case 3
                ((send gSQ5:handsOn()) (send gRoom:newRoom(750)) )
            )
        )
    )

)
(instance sBackFromComputer of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (Door1:
                    init()
                    stopUpd()
                )
 proc0_6(0) (send gEgo:
                    init()
                    ignoreActors()
                    posn(253 160)
                    setMotion(MoveTo 230 160 self)
                    setScale(Scaler 100 70 141 123)
                )
  )
            )
            (case 1
                ((send gEgo:
                    view(520)
                    setLoop(1)
                    cycleSpeed(12)
                    setStep(1 1)
                    setMotion(MoveTo 211 148 self)
                )
  )
            )
            (case 2
                (proc0_6(0) (send gEgo:setMotion(MoveTo 187 150 self))  )
            )
            (case 3
                ((send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sUpStairs of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gEgo:setCycle(0)) 
                (if ((send gEgo:looper))
                    (send ((send gEgo:looper)):dispose())
                )
 = cycles 2  )
            )
            (case 1
                ((send gEgo:
                    view(520)
                    setLoop(2)
                    setStep(3 2)
                    moveSpeed(3)
                    cycleSpeed(6)
                    setCycle(Fwd)
                    setMotion(MoveTo 173 74 self)
                )
  )
            )
            (case 2
                ((send gEgo:
                    setScale(0)
                    scaleX(128)
                    scaleY(128)
                    setMotion(MoveTo 215 51 self)
                )
  )
            )
            (case 3
                (proc0_6(0) (send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sUpSmallStairs of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) localproc_00f0() (send gEgo:
                    setLoop(-1)
                    view(520)
                    setLoop(2)
                    setHeading(45)
                    setMotion(MoveFwd 27 self)
                )
  )
            )
            (case 1
                (proc0_6(0) 
                (if (< theGPEventY 116)
                    (send gEgo:setMotion(PolyPath theGPEventX theGPEventY))
                )
 (send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sDownStairs of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) localproc_00f0() (send gEgo:
                    setLoop(-1)
                    view(518)
                    setLoop(1)
                    setMotion(MoveTo 116 107 self)
                )
 = seconds 2  )
            )
            (case 1
                ((send gEgo:setScale(Scaler 100 70 141 123))  )
            )
            (case 2
                (proc0_6(0) 
                (if (> theGPEventY 110)
                    (send gEgo:setMotion(PolyPath theGPEventX theGPEventY))
                )
 (send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sDownSmallStairs of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gEgo:
                    setLoop(-1)
                    view(518)
                    setLoop(1)
                    setStep(3 4)
                    setHeading(235)
                    setMotion(MoveFwd 22 self)
                )
  )
            )
            (case 1
                (proc0_6(0) 
                (if (> theGPEventY 130)
                    (send gEgo:setMotion(PolyPath theGPEventX theGPEventY))
                )(else
                    (send gEgo:setMotion(MoveTo 70 138))
                )
 (send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sSteamPuff of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= seconds Random(8 20)  )
            )
            (case 1
                ((steamPuff:
                    show()
                    setCycle(End self)
                )
  )
            )
            (case 2
                ((steamPuff:hide()) = cycles 1 = state -1 )
            )
        )
    )

)
(instance sFlyToComputer of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) proc31_2(145) (send gEgo:setMotion(VelocityMover 245 145 self 1))  )
            )
            (case 1
                ((send gSq5Music2:stop()) (send gSQ5:handsOn()) (send gRoom:newRoom(750)) )
            )
        )
    )

)
(instance sWoscillate of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= seconds Random(4 15)  )
            )
            (case 1
                ((send client:setCycle(End self))  )
            )
            (case 2
                (= seconds Random(4 15)  )
            )
            (case 3
                ((send client:setCycle(Beg self))  )
            )
            (case 4
                (= cycles 1 = state -1 )
            )
        )
    )

)
(instance sWalkIn of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (Door1:
                    init()
                    setCycle(End self)
                )
 (theMusic4:
                    number(103)
                    loop(1)
                    play()
                )
  )
            )
            (case 1
                (proc0_6(0) (send gEgo:
                    init()
                    ignoreActors()
                    posn(274 50)
                    setScale(0)
                    setMotion(MoveTo 224 50 self)
                    illegalBits(0)
                )
  )
            )
            (case 2
                ((Door1:setCycle(Beg self))  )
            )
            (case 3
                ((Door1:stopUpd()) (send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sTornado of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (
                (if (> (send gEgo:y) 130)
                    (send gEgo:setMotion(PolyPath 173 141 self))
                    (send gSQ5:handsOff())
                )(else
                    (send gTestMessager:say(4 0 0 0))
                    (self:dispose())
                )
 )
            )
            (case 1
                ((send gEgo:
                    view(619)
                    ignoreActors(1)
                    setLoop(-1)
                    setCycle(0)
                    posn(173 141)
                    loop(0)
                    init()
                )
 = ticks 9  )
            )
            (case 2
                ((send gEgo:setCycle(End self))  )
            )
            (case 3
                (= seconds 2  )
            )
            (case 4
                ((topForceField:init()) = seconds 2  )
            )
            (case 5
                ((send gSq5Music2:
                    number(616)
                    loop(1)
                    play()
                )
 (send gEgo:
                    setLoop(1)
                    cel(0)
                    setCycle(End self)
                )
  )
            )
            (case 6
                ((send gEgo:
                    setLoop(5)
                    setCycle(Fwd)
                    setMotion(MoveTo 103 137 self)
                )
  )
            )
            (case 7
                (= seconds 1  )
            )
            (case 8
                ((tornado:
                    init()
                    setMotion(MoveTo 2 127)
                    setCycle(Fwd)
                )
 (send gEgo:
                    setLoop(2)
                    setCycle(End self)
                )
  )
            )
            (case 9
                ((send gEgo:setCycle(End self))  )
            )
            (case 10
                ((send gEgo:setCycle(End self))  )
            )
            (case 11
                ((send gEgo:setCycle(End self))  )
            )
            (case 12
                ((send gEgo:setCycle(CT 4 1 self))  )
            )
            (case 13
                ((send gEgo:
                    setLoop(3)
                    cel(0)
                    setCycle(CT 4 1 self)
                )
  )
            )
            (case 14
                ((send gEgo:setCycle(End self)) ShakeScreen(1) (theMusic3:
                    number(136)
                    loop(1)
                    play(self)
                )
  )
            )
            (case 15
                (proc0_9(27) (self:dispose()) )
            )
        )
    )

)
(instance sBlood of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (
                (if (> (send gEgo:y) 130)
                    (send gEgo:setMotion(PolyPath 169 141 self))
                    (send gSQ5:handsOff())
                )(else
                    (send gTestMessager:say(4 0 0 0))
                    (self:dispose())
                )
 )
            )
            (case 1
                ((send gEgo:
                    scaleSignal(0)
                    scaleX(128)
                    scaleY(128)
                    setCycle(0)
                    view(620)
                    setLoop(0)
                    cel(0)
                    setPri(7)
                    cycleSpeed(12)
                    ignoreActors(1)
                )
 = ticks 9  )
            )
            (case 2
                ((send gEgo:setCycle(End self))  )
            )
            (case 3
                ((bottomForceField:init()) = ticks 9  )
            )
            (case 4
                ((send gEgo:setLoop(1)) = ticks 9  )
            )
            (case 5
                ((send gEgo:setCycle(End self)) (send gSq5Music2:
                    number(228)
                    loop(1)
                    play()
                )
  )
            )
            (case 6
                ((send gEgo:
                    setLoop(2)
                    setCycle(End self)
                )
 (send gSq5Music2:
                    number(228)
                    loop(1)
                    play()
                )
  )
            )
            (case 7
                ((send gSq5Music2:
                    number(228)
                    loop(1)
                    play()
                )
 (send gEgo:
                    setLoop(2)
                    setCycle(End self)
                )
 (blood:
                    init()
                    setCycle(End)
                )
  )
            )
            (case 8
                ((send gEgo:
                    setLoop(2)
                    setCycle(End self)
                )
 (blood:setCycle(End))  )
            )
            (case 9
                ((send gEgo:setMotion(MoveTo 178 141 self))  )
            )
            (case 10
                ((send gEgo:
                    setLoop(2)
                    setCycle(End self)
                )
 (blood:setCycle(End))  )
            )
            (case 11
                ((send gEgo:
                    setLoop(2)
                    setCycle(End self)
                )
 (blood:setCycle(End))  )
            )
            (case 12
                ((send gEgo:
                    cel(3)
                    setMotion(MoveTo 206 141 self)
                )
  )
            )
            (case 13
                ((send gEgo:dispose()) (blood:setCycle(End self))  )
            )
            (case 14
                ((blood:dispose()) = seconds 2  )
            )
            (case 15
                ((send gSq5Music2:
                    number(502)
                    loop(1)
                    play(self)
                )
  )
            )
            (case 16
                (proc0_9(27) )
            )
        )
    )

)
(instance sOpenNitroDoor of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) proc0_2(83) (send gEgo:setMotion(PolyPath 73 117 self))  )
            )
            (case 1
                ((send gEgo:
                    view(621)
                    setLoop(0)
                    cel(0)
                    setCycle(End self)
                )
  )
            )
            (case 2
                ((nitroDoor:
                    init()
                    setCycle(End self)
                )
 (theMusic4:
                    number(108)
                    setLoop(1)
                    play()
                )
  )
            )
            (case 3
                ((fog:
                    init()
                    setCycle(End self)
                )
  )
            )
            (case 4
                ((fog:
                    setLoop(5)
                    setCycle(Fwd)
                )
 proc0_6(0) (send gEgo:setMotion(MoveTo 92 112 self))  )
            )
            (case 5
                ((send gEgo:setHeading(0)) (nitro:
                    init()
                    setPri(1)
                )
 (nitroDoor:dispose()) (nitroDoorBut:dispose()) (send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sLeaveFly of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gEgo:setMotion(VelocityMover 238 25 self 1))  )
            )
            (case 1
                (= seconds 2  )
            )
            (case 2
                ((send gEgo:dispose()) (send gSQ5:handsOn()) (send gRoom:newRoom(770)) )
            )
        )
    )

)
(instance Door1 of Prop
    (properties
        x 242
        y 65526
        noun 2
        view 618
        signal 20480
    )

    (method (doVerb param1 param2)
        (switch (param1)
            (case 3
                (
                (if (< (send gEgo:y) 60)
                    (Door1:
                        startUpd()
                        setCycle(End)
                    )
                    (theMusic4:
                        number(103)
                        loop(1)
                        play()
                    )
                    (send gRoom:setScript(ScriptID(31 3) 0 9))
                )(else
                    (send gEgo:setMotion(PolyPath 232 51))
                )
 )
            )
            (case 4
                (
                (if (< (send gEgo:y) 60)
                    (Door1:
                        startUpd()
                        setCycle(End)
                    )
                    (send gRoom:setScript(ScriptID(31 3) 0 9))
                )(else
                    (send gTestMessager:say(4 0 0 0))
                )
 )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance nitro of MyProp
    (properties
        x 63
        y 73
        noun 12
        onMeCheck 2048
        view 621
        loop 1
        cel 6
        priority 7
        signal 16400
    )

    (method (doVerb param1 param2)
        (switch (param1)
            (case 4
                (
                (if (not (send gEgo:has(16)))
                    (self:
                        loop(2)
                        cel(2)
                    )
                    proc0_10(234 50)
                    (send gEgo:get(16))
                    proc0_2(125)
                    proc0_2(102)
                )
 )
            )
            (case 1
                (
                (if (proc0_1(82))
                    (send gTestMessager:say(12 1 1))
                )(else
                    (send gTestMessager:say(12 1 2))
                )
 )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance creatureM of MyProp
    (properties
        x 68
        y 163
        noun 6
        nsTop 155
        nsLeft theMusic4
        nsBottom 189
        nsRight 112
        view 618
        loop 1
        cel 2
        priority 14
        signal 16400
        cycleSpeed 60
    )
)
(instance creatureR of MyProp
    (properties
        x 296
        y 107
        noun 7
        nsTop 100
        nsLeft 286
        nsBottom 162
        nsRight 319
        view 618
        loop 2
        cel 1
        priority 14
        signal 16400
        cycleSpeed 20
    )
)
(instance creatureL of MyProp
    (properties
        x 2
        y 120
        noun 5
        nsTop 110
        nsBottom 149
        nsRight 32
        view 618
        loop 3
        cel 2
        priority 14
        signal 16400
    )
)
(instance crFeatureL of MyFeature
    (properties
        x 2
        y 120
        noun 5
        nsTop 110
        nsBottom 149
        nsRight 32
    )
)
(instance crFeatureM of MyFeature
    (properties
        x 68
        y 163
        noun 6
        nsTop 155
        nsLeft theMusic4
        nsBottom 189
        nsRight 112
    )
)
(instance crFeatureR of MyFeature
    (properties
        x 296
        y 107
        noun 7
        nsTop 100
        nsLeft 286
        nsBottom 162
        nsRight 319
    )
)
(instance doorF of MyFeature
    (properties
        x 255
        y 22
        noun 2
        nsLeft 248
        nsBottom 45
        nsRight 265
    )
)
(instance topCageButF of MyFeature
    (properties
        x 192
        y 89
        noun 15
        nsTop 85
        nsLeft 181
        nsBottom 99
        nsRight 196
        onMeCheck 256
    )
)
(instance botCageF of MyFeature
    (properties
        x 190
        y 110
        noun 1
        nsTop 103
        nsLeft 181
        nsBottom 119
        nsRight 197
        onMeCheck 256
    )
)
(instance otherCageF of MyFeature
    (properties
        x 140
        y 111
        noun 3
        nsTop 89
        nsLeft 158
        nsBottom 114
        nsRight 180
        onMeCheck 256
    )
)
(instance nitroDoorBut of MyFeature
    (properties
        x 57
        y 89
        onMeCheck 4
    )

    (method (doVerb param1)
        (var temp0)
        (switch (param1)
            (case 4
                (
                (if (& (= temp0 (send gEgo:onControl(1))) $0010)
                    (send gRoom:setScript(sOpenNitroDoor))
                )(else
                    (send gTestMessager:say(4 0 0 0))
                )
 )
            )
            (default 
                ((super:doVerb(param1)) )
            )
        )
    )

)
(instance doorLock of MyFeature
    (properties
        x 238
        y 25
        noun 14
        onMeCheck 8
    )

    (method (doVerb param1)
        (switch (param1)
            (case 3
                ((send gRoom:setScript(sLeaveFly))  )
            )
            (default 
                ((super:doVerb(param1)) )
            )
        )
    )

)
(instance topCageBut of MyFeature
    (properties
        x 257
        y 100
        onMeCheck 4096
    )

    (method (doVerb param1)
        (switch (param1)
            (case 4
                (
                (if (> (send gEgo:y) 70)
                    (send gRoom:setScript(sTornado))
                )(else
                    (send gTestMessager:say(4 0 0 0))
                )
 )
            )
            (case 3
                (
                (if (< (send gEgo:y) 60)
                    (send gRoom:setScript(sTornado))
                )
 )
            )
            (default 
                ((super:doVerb(param1)) )
            )
        )
    )

)
(instance bottomCageBut of MyFeature
    (properties
        x 257
        y 120
        onMeCheck 512
    )

    (method (doVerb param1)
        (switch (param1)
            (case 4
                ((send gRoom:setScript(sBlood))  )
            )
            (case 3
                ((send gRoom:setScript(sTornado))  )
            )
            (default 
                ((super:doVerb(param1)) )
            )
        )
    )

)
(instance steamPuff of MyProp
    (properties
        x 113
        y 65530
        view 618
        loop 5
    )
)
(instance computerFlashing of MyProp
    (properties
        x 243
        y 141
        noun 16
        onMeCheck 2
        view 618
        loop 6
        cycleSpeed 20
    )

    (method (doVerb param1)
        (switch (param1)
            (case 3
                (
                (if (not (send gRoom:script))
                    (send gRoom:setScript(sFlyToComputer))
                )
 )
            )
            (default 
                ((super:doVerb(param1)) )
            )
        )
    )

)
(instance nitroDoor of MyActor
    (properties
        x 63
        y 73
        noun 8
        view 621
        loop 1
        cel 1
        signal 16384
    )
)
(instance bigForceField of MyActor
    (properties
        x 156
        y 83
        view 618
        loop 4
        cel 1
        signal 16384
    )
)
(instance tornado of MyActor
    (properties
        x 103
        y 137
        view 619
        loop 4
        signal 2048
    )
)
(instance blood of MyProp
    (properties
        x 187
        y 110
        view 620
        loop 3
        cel 6
        priority 15
        signal 16
    )
)
(instance topForceField of View
    (properties
        x 179
        y 84
        view 618
        loop 7
        priority 6
        signal 16
    )
)
(instance bottomForceField of View
    (properties
        x 184
        y 103
        view 618
        loop 8
    )
)
(instance fog of MyProp
    (properties
        x 67
        y 98
        noun 11
        view 621
        loop 4
    )
)
(instance public sUseComm of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gEgo:
                    view(14)
                    loop(0)
                    cel(0)
                    setCycle(End self)
                )
 (send gSq5Music2:
                    number(603)
                    setLoop(1)
                    play()
                )
  )
            )
            (case 1
                (= seconds 2  )
            )
            (case 2
                ((send gTestMessager:say(17 0 0 0 self))  )
            )
            (case 3
                ((send gEgo:setCycle(Beg self))  )
            )
            (case 4
                (proc0_6(0) (send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
