(include "sci.sh")
(use "Main")
(use "eureka")
(use "Scaler")
(use "Osc")
(use "Polygon")
(use "CueObj")
(use "MoveFwd")
(use "n958")
(use "Sound")
(use "Cycle")
(use "Sounds")
(use "View")
(use "Obj")
(script 200)


(local
    local0[4] = (0 2 4 7 )
    local4[4] = (1 3 4 6 )
    local8
    local9

)
(procedure (localproc_00d4)
    (floHead2:
        init()
        setLoop(0)
        setScript((sRandomScr:new()))
    )
    (flo:
        view(185)
        setLoop(1)
        setCycle(End)
        setScript((sRandomScr:new()))
    )
)


(procedure (localproc_0112)
    (droole:
        view(186)
        loop(1)
        setCycle(End)
        setScript((sRandomScr:new()))
    )
)


(procedure (localproc_0135)
    (droole:
        view(186)
        setLoop(0)
        cel(1)
        cycleSpeed(6)
        setCycle(Osc)
    )
)


(procedure (localproc_0156)
    (floHead2:dispose())
    (flo:
        view(185)
        setLoop(2)
        cel(1)
        setCycle(Osc)
    )
)


(procedure (localproc_0179)
    (send gEgo:
        view(181)
        setLoop(7)
        cel(0)
        posn(157 146)
        setCycle(Osc)
    )
)


(procedure (localproc_019e param1)
    (send gEgo:
        view(181)
        loop(2)
        cel(0)
        posn(157 146)
        setCycle(End 
            (if (paramTotal)
                param1
            )(else
                0
            )
)
    )
)


(procedure (localproc_01cc)
    (send gEgo:
        view(181)
        setPri(-1)
        setLoop(2)
        setCel(7)
        posn(157 146)
    )
)


(procedure (localproc_01f0 param1)
    (send gEgo:
        view(181)
        loop(2)
        cel(7)
        posn(157 146)
        setCycle(Beg 
            (if (paramTotal)
                param1
            )(else
                0
            )
)
    )
)


(procedure (localproc_021f)
    (if (proc0_1(84))
        (if (<> (send gSq5Music1:number) 42)
            (send gSq5Music1:
                number(42)
                loop(-1)
                play(127)
            )
        )
    )(else
        (if (proc0_1(61))
            (if (<> (send gSq5Music1:number) 20)
                (send gSq5Music1:
                    number(20)
                    loop(-1)
                    play(127)
                )
            )
        )(else
            (send gSq5Music1:
                number(101)
                loop(-1)
                play(75)
            )
        )
    )
)


(procedure (localproc_0287)
    (if (proc0_1(84) or (>= (eureka:puke) 4))
        (if (<> (send gSq5Music2:number) 105)
            (send gSq5Music2:
                number(105)
                loop(-1)
                play()
            )
        )
    )(else
        (if (<> (send gSq5Music2:number) 206)
            (send gSq5Music2:
                number(206)
                loop(-1)
                play()
            )
        )
    )
)


(instance theMusic4 of Sound
    (properties)
)
(instance public rm200 of Rm
    (properties
        noun 16
        picture 40
        style 10
        vanishingY 50
    )

    (method (init)
        (send gRoom:setRegions(210))
        proc958_0(128 181 0 2 183 184 185 186 180)
        proc958_0(132 19)
        (send gWalkHandler:addToFront(chair northDoor))
        (send gRoom:addObstacle((send ((Polygon:new())):
                type(2)
                init(185 137 181 149 135 148 128 137)
                yourself()
            )
 (send ((Polygon:new())):
                type(3)
                init(123 141 135 152 181 152 194 142 279 142 286 141 287 139 278 134 178 133 173 123 140 123 130 134 42 135 33 141)
                yourself()
            )
))
        (send gRoom:setScript(sInitRoom))
        (super:init())
        (if (proc0_1(0))
            (sCyclePal:init())
            (send gTheDoits:add(sCyclePal))
        )
    )


    (method (dispose)
        Joystick(3)
        (send gWalkHandler:delete(chair northDoor))
        (if (proc0_1(0))
            (send gTheDoits:delete(sCyclePal))
        )
        (super:dispose())
    )

)
(instance sInitRoom of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (leftDome:
                    init()
                    setOnMeCheck(1 2)
                )
 (rightDome:
                    init()
                    setOnMeCheck(1 32)
                )
 (leftConsole:init()) (rightConsole:init()) (roofPipes:
                    init()
                    setOnMeCheck(1 8)
                )
 (navPanel:init()) (comPanel:init()) (auxStorage:
                    init()
                    setOnMeCheck(1 4)
                )
 (chair:
                    init()
                    setOnMeCheck(1 1024)
                )
 (northDoor:
                    init()
                    stopUpd()
                )
 
                (if (proc999_5(gGModNum 100 201))
                    localproc_01cc()
                    (send gEgo:init())
                )(else
                    proc0_6(0 2)
                    (send gEgo:
                        init()
                        posn(161 122)
                        setScale(Scaler 110 70 152 111)
                    )
                )
 
                (switch (gGModNum)
                    (case 165
                        ((send gEgo:setPri(3)) = next sNewCaptain = gEurekaCurLocation 0 = global130 1 (droole:
                            init()
                            loop(2)
                            cel(1)
                            setCycle(Fwd self)
                        )
 (floHead1:init()) (flo:
                            init()
                            view(184)
                            setLoop(1)
                            setCycle(End self)
                            setScript((sRandomScr:new()))
                        )
  )
                    )
                    (case 201
                        (
                        (if (proc0_1(85))
                            = next sAbandonShip
                        )(else
                            (if (proc0_1(108) and (== gEurekaCurLocation 5))
                                (if (proc0_1(86))
                                    = next sStandUp
                                    proc0_3(108)
                                )(else
                                    = next sDrooleAtClorox2
                                )
                            )(else
                                (if ((== (eureka:puke) 4) and not proc0_1(86))
                                    = next sAbandonShip
                                )(else
                                    (if (== (eureka:puke) 2)
                                        = next sBlobKills
                                    )(else
                                        (if (proc0_1(106))
                                            = next sKUComment
                                        )(else
                                            = next sStandUp
                                        )
                                    )
                                )
                            )
                        )
 
                        (if (not proc0_1(86))
                            (flo:init())
                            localproc_00d4()
                            (if (not proc0_1(97))
                                (droole:init())
                                localproc_0112()
                            )
                        )
 )
                    )
                    (case 225
                        (= next sEnterNorth 
                        (if (not proc0_1(86))
                            (flo:
                                init()
                                setScript(sFloGoofOff)
                            )
                            (if (not proc0_1(97))
                                (droole:
                                    init()
                                    setScript(sDrooleGoofOff)
                                )
                            )
                        )
 )
                    )
                    (default 
                        (proc0_2(85) = next sAbandonShip (flo:init()) localproc_00d4() (droole:init()) localproc_0112() )
                    )
                )
 = cycles 1  )
            )
            (case 1
                (localproc_021f() localproc_0287() (self:dispose()) )
            )
        )
    )

)
(instance sBlobKills of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) = register 3 = seconds 1  )
            )
            (case 1
                (ShakeScreen(3 3) = cycles 1  )
            )
            (case 2
                (
                (if (--register)
                    = state (- state 2)
                )
 = cycles 1  )
            )
            (case 3
                (proc0_9(7) (self:dispose()) )
            )
        )
    )

)
(instance sKUComment of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) = cycles 1 proc0_3(106)  )
            )
            (case 1
                (localproc_01f0(self)  )
            )
            (case 2
                (proc0_6(0 2) (send gEgo:
                    setScale(Scaler 110 70 152 111)
                    x(159)
                    y(147)
                )
 = seconds 3  )
            )
            (case 3
                ((send gTestMessager:say(9 0 0 1 self))  )
            )
            (case 4
                ((send gTestMessager:say(9 0 0 2 self))  )
            )
            (case 5
                ((send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sFloAbandonShip of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((floHead2:dispose()) (flo:
                    view(350)
                    setLoop(0)
                    cel(0)
                    x(271 167)
                    setCycle(End self)
                    signal(| $0004 (flo:signal))
                )
  )
            )
            (case 1
                ((flo:
                    setLoop(2)
                    posn(308 150)
                    setPri(-1)
                    setStep(6)
                    cycleSpeed(6)
                    setCycle(Walk)
                    setScale(Scaler 107 68 149 121)
                    setMotion(MoveTo 171 131 self)
                )
  )
            )
            (case 2
                (
                (if (proc0_1(97))
                    (northDoor:setCycle(End))
                )
 = cycles 1  )
            )
            (case 3
                ((northDoor:stopUpd()) (flo:
                    view(189)
                    setPri(2)
                    setLoop(3)
                    posn(165 132)
                    setCycle(Osc)
                    ignoreActors(1)
                    setMotion(MoveTo 161 121 self)
                )
  )
            )
            (case 4
                ((self:dispose()) )
            )
        )
    )

)
(instance sDrooleAtClorox2 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) = seconds 1  )
            )
            (case 1
                ((droole:
                    view(300)
                    setLoop(0)
                    cel(0)
                    posn(28 170)
                    setCycle(End self)
                    signal(| $0004 (droole:signal))
                    setScript(0)
                )
  )
            )
            (case 2
                ((droole:
                    setLoop(3)
                    setPri(-1)
                    posn(0 151)
                    setSpeed(6)
                    setStep(7)
                    setScale(Scaler 119 60 150 117)
                    setCycle(Walk)
                    setMotion(MoveTo 125 139 self)
                )
  )
            )
            (case 3
                ((northDoor:setCycle(End self)) (droole:
                    setLoop(1)
                    cel(0)
                    posn(133 136)
                    setCycle(End self)
                )
  )
            )
            (case 4
                (0  )
            )
            (case 5
                ((northDoor:stopUpd()) = cycles 4  )
            )
            (case 6
                ((send gTestMessager:say(4 0 2 1 self)) proc0_2(97) proc0_3(108)  )
            )
            (case 7
                (= cycles 3  )
            )
            (case 8
                ((droole:setCycle(Beg self))  )
            )
            (case 9
                ((droole:
                    setLoop(3)
                    cel(4)
                    setStep(7 3)
                    setScale(Scaler 119 60 150 117)
                    posn(131 135)
                    setCycle(Walk)
                )
 = cycles 2  )
            )
            (case 10
                ((droole:setMotion(MoveTo 153 127 self))  )
            )
            (case 11
                ((droole:
                    setPri(2)
                    setMotion(MoveTo 155 117 self)
                )
  )
            )
            (case 12
                ((northDoor:setCycle(Beg self))  )
            )
            (case 13
                ((northDoor:stopUpd()) (droole:dispose()) = next sStandUp (self:dispose()) )
            )
        )
    )

)
(instance sDrooleAbandonShip of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((droole:
                    view(300)
                    setLoop(0)
                    cel(0)
                    posn(28 170)
                    setCycle(End self)
                    signal(| $0004 (droole:signal))
                )
  )
            )
            (case 1
                ((droole:
                    setLoop(3)
                    setPri(-1)
                    posn(0 151)
                    setSpeed(6)
                    setStep(7)
                    setScale(Scaler 119 60 150 117)
                    setCycle(Walk)
                    setMotion(MoveTo 125 139 self)
                )
  )
            )
            (case 2
                ((droole:
                    setLoop(1)
                    cel(0)
                    posn(133 136)
                    setCycle(End self)
                )
  )
            )
            (case 3
                (= seconds 1  )
            )
            (case 4
                (
                (if ((< (eureka:puke) 4) and proc0_1(84))
                    (send gTestMessager:say(4 0 1 1 self))
                )(else
                    (if ((== (eureka:curLocation) 4) and (== global127 3))
                        (send gTestMessager:say(4 0 3 1 self))
                    )(else
                        (send gTestMessager:say(4 0 1 2 self))
                    )
                )
 )
            )
            (case 5
                (= seconds 1  )
            )
            (case 6
                ((droole:setCycle(Beg self)) (northDoor:setCycle(End self))  )
            )
            (case 7
                (0  )
            )
            (case 8
                ((northDoor:stopUpd()) (droole:
                    setLoop(3)
                    cel(4)
                    setStep(7 3)
                    setScale(Scaler 119 60 150 117)
                    posn(131 135)
                    setCycle(Walk)
                    setMotion(MoveTo 153 127 self)
                )
  )
            )
            (case 9
                ((droole:
                    setPri(2)
                    setMotion(MoveTo 155 117 self)
                )
  )
            )
            (case 10
                ((self:dispose()) )
            )
        )
    )

)
(instance sAbandonShip of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (flo:setScript(sFloAbandonShip self)) 
                (if (not proc0_1(97))
                    (droole:setScript(sDrooleAbandonShip self))
                )(else
                    = cycles 1
                )
 )
            )
            (case 1
                (0  )
            )
            (case 2
                ((northDoor:setCycle(Beg self))  )
            )
            (case 3
                ((northDoor:stopUpd()) (flo:dispose()) (droole:dispose()) = seconds 1  )
            )
            (case 4
                (proc0_3(85) proc0_2(86) 
                (if (proc0_1(84))
                    (if (proc0_1(61))
                        = global136 180
                    )
                    (send gRoom:newRoom(201))
                )(else
                    = next sStandUp
                )
 (self:dispose()) )
            )
        )
    )

)
(instance sAttacked of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) = seconds 4  )
            )
            (case 1
                (ShakeScreen(3 3) localproc_0156() localproc_0135() localproc_0179()  )
            )
            (case 2
                (localproc_01cc() localproc_0112() localproc_00d4() = cycles 1  )
            )
            (case 3
                (localproc_01f0(self)  )
            )
            (case 4
                (proc0_6(0 2) (send gEgo:
                    setScale(Scaler 110 70 152 111)
                    x(159)
                    y(147)
                )
 (send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sEnterNorth of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gEgo:
                    priority(-1)
                    setMotion(MoveFwd 10 self)
                )
  )
            )
            (case 1
                ((northDoor:setCycle(Beg self))  )
            )
            (case 2
                ((northDoor:stopUpd()) 
                (if (<> gGModNum 165)
                    (send gSQ5:handsOn())
                )
 (self:dispose()) )
            )
        )
    )

)
(instance sExitNorth of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) = cycles 1  )
            )
            (case 1
                ((northDoor:setCycle(End self))  )
            )
            (case 2
                ((send gEgo:setMotion(MoveTo 160 122 self))  )
            )
            (case 3
                (
                (if (proc0_1(86) or (== global130 0))
                    = global130 0
                )(else
                    (if (== global170 1)
                        = global130 4
                    )(else
                        (if (== global126 1)
                            = global130 1
                        )(else
                            (if (proc0_1(61))
                                = global130 
                                    (switch (Random(0 1))
                                        (case 0
                                            1
                                        )
                                        (case 1
                                            2
                                        )
                                    )
                            )(else
                                (if (((== gEurekaCurLocation 8) or (== gEurekaCurLocation 14)) or (== gEurekaCurLocation 3))
                                    = global130 2
                                )(else
                                    = global130 Random(1 3)
                                )
                            )
                        )
                    )
                )
 
                (if (== (send gSq5Music2:number) 206)
                    (send gSq5Music2:fade())
                )
 (send gRoom:newRoom(225)) (self:dispose()) )
            )
        )
    )

)
(instance sCyclePal of Script
    (properties)

    (method (doit param1)
        (if (== Joystick(2) 64)
            (self:cue())
        )
        (super:doit(rest param1))
    )


    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (Joystick(3) Joystick(0 401 1)  )
            )
            (case 1
                (Joystick(3) Joystick(0 403 1)  )
            )
            (case 2
                (Joystick(3) = state -1 )
            )
        )
    )


    (method (cue param1)
        (self:changeState((+ state 1) rest param1))
    )

)
(instance sDrooleGoofOff of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((droole:
                    loop(local0[= local8 Random(0 3)])
                    cel(0)
                    setCycle(Osc self)
                )
 
                (if (== local8 3)
                    (drooleArm:
                        init()
                        setCycle(End drooleArm)
                    )
                )
 = cycles 1  )
            )
            (case 1
                (
                (if (== local8 1)
                    (theMusic3:
                        number(209)
                        setLoop(-1)
                        play()
                    )
                )
 = ticks Random(120 220)  )
            )
            (case 2
                (
                (if (== local8 3)
                    (drooleArm:setCycle(Beg self))
                )(else
                    = cycles 1
                )
 )
            )
            (case 3
                (
                (switch (local8)
                    (case 1
                        ((theMusic3:stop())  )
                    )
                    (case 3
                        ((drooleArm:dispose()) )
                    )
                )
 (droole:
                    setLoop(local4[local8])
                    setCycle(End self)
                )
  )
            )
            (case 4
                (localproc_0112() (self:dispose()) )
            )
        )
    )

)
(instance sFloGoofOff of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (
                (switch (= local9 Random(0 1))
                    (case 0
                        ((floHead1:init()) (flo:
                            view(184)
                            setLoop(1)
                            setCycle(Fwd self)
                        )
  )
                    )
                    (case 1
                        ((flo:
                            view(184)
                            setLoop(4)
                            cel(0)
                            setCycle(Fwd self)
                        )
 (floHead1:
                            init()
                            setLoop(6)
                            cycleSpeed(15)
                            setPri(14)
                            posn(260 117)
                            setCycle(Osc self)
                        )
 )
                    )
                )
 = cycles 1  )
            )
            (case 1
                (= seconds Random(2 3)  )
            )
            (case 2
                (
                (if (== local9 1)
                    (self:changeState(10))
                )(else
                    (self:changeState(Random(3 5)))
                )
 )
            )
            (case 3
                (
                (if (not (send gCast:contains(floHead1)))
                    (floHead1:init())
                )
 (flo:
                    view(184)
                    setLoop(1)
                    setCycle(Fwd)
                )
 (self:changeState(8))  )
            )
            (case 4
                (
                (if ((send gCast:contains(floHead1)))
                    (floHead1:dispose())
                )
 (flo:
                    setLoop(2)
                    setCycle(End)
                )
 (self:changeState(8))  )
            )
            (case 5
                (
                (if ((send gCast:contains(floHead1)))
                    (floHead1:dispose())
                )
 (flo:
                    setLoop(3)
                    setCycle(End self)
                )
  )
            )
            (case 6
                (= ticks Random(20 90)  )
            )
            (case 7
                ((flo:setCycle(Beg self)) (self:changeState(11))  )
            )
            (case 8
                (= ticks Random(80 120)  )
            )
            (case 9
                ((self:changeState(Random(3 5)))  )
            )
            (case 10
                ((floHead1:dispose()) (flo:
                    setLoop(5)
                    setCycle(End self)
                )
  )
            )
            (case 11
                (localproc_00d4() (self:dispose()) )
            )
        )
    )

)
(instance sRandomScr of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= ticks Random(50 120)  )
            )
            (case 1
                ((send client:setCycle(End self))  )
            )
            (case 2
                (= ticks Random(50 120)  )
            )
            (case 3
                ((send client:setCycle(Beg self))  )
            )
            (case 4
                ((self:changeState(0)) )
            )
        )
    )

)
(instance theMusic3 of Sound
    (properties)
)
(instance sNewCaptain of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) = seconds 2 (theMusic3:
                    number(209)
                    setLoop(-1)
                    play(80)
                )
  )
            )
            (case 1
                ((theMusic4:
                    number(205)
                    setLoop(1)
                    play(self)
                )
  )
            )
            (case 2
                ((northDoor:setCycle(End self))  )
            )
            (case 3
                ((northDoor:stopUpd()) (send gEgo:setPri(-1)) (theMusic4:dispose()) (theMusic3:stop()) (droole:
                    loop(3)
                    cel(0)
                    setCycle(CT 1 1 self)
                )
 (floHead1:dispose()) (flo:
                    loop(3)
                    cel(0)
                    setCycle(End self)
                    setScript(0)
                )
  )
            )
            (case 4
                (0  )
            )
            (case 5
                ((self:setScript(sEnterNorth self))  )
            )
            (case 6
                ((send gSQ5:handsOff()) = seconds 2  )
            )
            (case 7
                ((send (ScriptID(1880 19)):disposeWhenDone(0)) (send gTestMessager:say(8 0 0 0 self))  )
            )
            (case 8
                ((flo:setCycle(Beg)) (droole:setCycle(CT 4 1)) (send (ScriptID(1880 19)):disposeWhenDone(1)) (send gEgo:setMotion(MoveFwd 2 self))  )
            )
            (case 9
                ((send gEgo:
                    view(181)
                    setLoop(0)
                    cel(0)
                    x(164)
                    y(157)
                    setPri(9)
                    setCycle(CT 2 1 self)
                )
  )
            )
            (case 10
                ((send gEgo:
                    setPri(-1)
                    setCycle(CT 7 1 self)
                )
 (theMusic3:
                    number(102)
                    setLoop(1)
                    play()
                )
  )
            )
            (case 11
                ((theMusic3:
                    number(136)
                    setLoop(1)
                    play()
                )
 (send gEgo:
                    cel(7)
                    setCycle(CT 11 1 self)
                )
 (droole:
                    loop(3)
                    cel(0)
                    setCycle(CT 1 1 self)
                )
 (flo:
                    loop(3)
                    cel(0)
                    setCycle(End self)
                    setScript(0)
                )
  )
            )
            (case 12
                (0  )
            )
            (case 13
                (0  )
            )
            (case 14
                ((send gEgo:setCel(11)) = seconds 3  )
            )
            (case 15
                ((send gEgo:
                    posn(157 149)
                    setLoop(1)
                    cel(0)
                    setCycle(End self)
                )
 (flo:setCycle(Beg self)) (droole:setCycle(CT 4 1 self))  )
            )
            (case 16
                (0  )
            )
            (case 17
                (0  )
            )
            (case 18
                (proc0_6(0 2) localproc_00d4() localproc_0112() = cycles 1  )
            )
            (case 19
                (= seconds 2  )
            )
            (case 20
                (localproc_019e(self) = register 1  )
            )
            (case 21
                ((theMusic3:
                    number(213)
                    loop(1)
                    play(self)
                )
  )
            )
            (case 22
                ((send gTestMessager:say(7 0 0 0 self))  )
            )
            (case 23
                (= seconds 2  )
            )
            (case 24
                ((send gEgo:
                    setPri(12)
                    setLoop(3)
                    cel(0)
                    x(138)
                    y(100)
                    setScale(0)
                    setCycle(End self)
                )
 (theMusic3:
                    number(431)
                    loop(1)
                    play()
                )
  )
            )
            (case 25
                (localproc_01cc() = cycles 1  )
            )
            (case 26
                (
                (if (register)
                    (self:changeState((- state 2)))
                    = register 0
                )(else
                    = cycles 1
                )
 )
            )
            (case 27
                (= seconds 2  )
            )
            (case 28
                (= next sStandUp (theMusic3:dispose()) (self:dispose()) )
            )
        )
    )

)
(instance sTakeCommand of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) = seconds 1  )
            )
            (case 1
                (localproc_019e(self)  )
            )
            (case 2
                ((theMusic3:
                    number(213)
                    loop(1)
                    play(self)
                )
  )
            )
            (case 3
                ((send gRoom:newRoom(201)) (theMusic3:dispose()) (self:dispose()) )
            )
        )
    )

)
(instance sStandUp of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) = cycles 1  )
            )
            (case 1
                (
                (if (<> gGModNum 165)
                    (theMusic3:
                        number(2471)
                        setLoop(1)
                        play()
                    )
                )
 localproc_01f0(self)  )
            )
            (case 2
                (
                (if (<> gGModNum 165)
                    (theMusic3:
                        number(247)
                        setLoop(1)
                        play(self)
                    )
                )(else
                    = cycles 1
                )
 proc0_6(0 2) (send gEgo:
                    setScale(Scaler 110 70 152 111)
                    x(159)
                    y(147)
                )
  )
            )
            (case 3
                ((send gSQ5:handsOn()) (theMusic3:dispose()) (self:dispose()) )
            )
        )
    )

)
(instance droole of Actor
    (properties
        x 40
        y 169
        noun 4
        view 183
        cycleSpeed 15
    )
)
(instance flo of Actor
    (properties
        x 268
        y 158
        noun 5
        view 184
        loop 1
        priority 12
        signal 16400
        cycleSpeed 10
    )
)
(instance floHead1 of Prop
    (properties
        x sFloAbandonShip
        y 130
        noun 5
        view 184
        priority 12
        signal 16400
    )
)
(instance floHead2 of Prop
    (properties
        x sFloAbandonShip
        y 130
        noun 5
        view 185
        priority 12
        signal 16400
    )
)
(instance drooleArm of Prop
    (properties
        x 39
        y 171
        noun 4
        view 183
        loop 5
        priority 12
        signal 16400
        cycleSpeed 5
    )

    (method (init param1)
        (paddleBall:init())
        (super:init(rest param1))
    )


    (method (doit)
        (switch (cel)
            (case 0
                ((paddleBall:
                    x(36)
                    y(125)
                    scaleX(33)
                    scaleY(33)
                    maxScale(33)
                )
  )
            )
            (case 1
                ((paddleBall:
                    x(44)
                    y(129)
                    scaleX(128)
                    scaleY(128)
                    maxScale(128)
                )
  )
            )
            (case 2
                ((paddleBall:
                    x(59)
                    y(134)
                    scaleX(194)
                    scaleY(194)
                    maxScale(194)
                )
 )
            )
        )
        (super:doit())
    )


    (method (dispose param1)
        (paddleBall:dispose())
        (theMusic3:dispose())
        (super:dispose(rest param1))
    )


    (method (cue)
        (if (cel)
            (self:setCycle(Beg self))
            (theMusic3:
                number(208)
                setLoop(1)
                play()
            )
        )(else
            (self:setCycle(End self))
        )
    )

)
(instance paddleBall of Prop
    (properties
        x 36
        y 125
        view 183
        loop 8
        priority 13
        signal 16400
        scaleSignal 1
    )
)
(instance leftConsole of Feature
    (properties
        x 21
        y 100
        noun 10
        nsTop 85
        nsBottom 116
        nsRight 42
        sightAngle 40
    )
)
(instance navPanel of Feature
    (properties
        x 100
        y 185
        noun 12
        nsTop 153
        nsLeft 1
        nsBottom 199
        nsRight 77
        sightAngle 40
    )
)
(instance comPanel of Feature
    (properties
        x 225
        y 185
        noun 3
        nsTop 158
        nsLeft 240
        nsBottom 199
        nsRight 358
        sightAngle 40
    )
)
(instance roofPipes of Feature
    (properties
        x 144
        y 37
        noun 13
        sightAngle 40
        onMeCheck 8
    )
)
(instance rightConsole of Feature
    (properties
        x 265
        y 185
        noun 14
        nsTop 85
        nsLeft 276
        nsBottom 123
        nsRight 319
        sightAngle 40
    )
)
(instance leftDome of Feature
    (properties
        x 45
        y 148
        noun 11
        sightAngle 40
        onMeCheck 2
    )
)
(instance auxStorage of Feature
    (properties
        x 175
        y 175
        noun 1
        sightAngle 40
        onMeCheck 4
    )
)
(instance rightDome of Feature
    (properties
        x 265
        y 120
        noun 15
        sightAngle 40
        onMeCheck 32
    )

    (method (doVerb param1 param2)
        ERROR_UNIMPLEMENTED_OPCODE
    )

)
(instance chair of Feature
    (properties
        x 163
        y 175
        z 50
        noun 2
        sightAngle 30
        onMeCheck 1024
        approachX 159
        approachY 147
        approachDist 10
    )

    (method (init)
        (chair:approachVerbs(4 1 3))
        (super:init())
    )


    (method (doVerb param1 param2)
        (switch (param1)
            (case 4
                ((send gRoom:setScript(sTakeCommand))  )
            )
            (case 3
                ( )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance doorSound of Sound
    (properties)
)
(instance northDoor of Prop
    (properties
        x 157
        y 102
        noun 6
        approachX 160
        approachY 128
        view 180
    )

    (method (init param1)
        (super:init(rest param1))
        (self:
            ignoreActors()
            approachVerbs(4 3)
            cel(
                (if (proc999_5(gGModNum 225))
                    (self:lastCel())
                )(else
                    0
                )
)
        )
    )


    (method (dispose param1)
        (doorSound:dispose())
        (super:dispose(rest param1))
    )


    (method (doVerb param1 param2)
        (switch (param1)
            (case 3
                ((self:setScript(sExitNorth))  )
            )
            (case 4
                ((self:setScript(sExitNorth))  )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )


    (method (setCycle param1 param2)
        (if (param1)
            (doorSound:
                number(103)
                loop(1)
                play()
            )
        )
        (super:setCycle(param1 rest param2))
    )

)
