(include "sci.sh")
(use "Main")
(use "VelocityMover")
(use "AnimDialog")
(use "genetix")
(use "Print")
(use "Blink")
(use "Scaler")
(use "PolyPath")
(use "Polygon")
(use "n958")
(use "Sound")
(use "Cycle")
(use "Sounds")
(use "View")
(use "Obj")
(script 730)


(local
    local0
    local1[2]
    local3

)
(instance theMusic3 of Sound
    (properties)
)
(instance public rm730 of Rm
    (properties
        noun 21
        picture 112
    )

    (method (init)
        = style 
            (switch (gGModNum)
                (case 760
                    (11  )
                )
                (case 740
                    (32778  )
                )
                (case 790
                    (32778  )
                )
                (case 770
                    (32778 )
                )
            )
        (if (proc0_1(22))
            (exit740:init())
        )
        (self:setRegions(31))
        proc958_0(143 number)
        proc958_0(128 1003)
        (bigWF:init())
        (bridge:init())
        (domeBack:init())
        (pondF:init())
        (smallFalls:init())
        (send gEgo:edgeHit(0))
        (plant:
            init()
            setScript(swOscilate)
        )
        (super:init())
        (if (not proc0_1(28))
            (bigDoor:
                init()
                stopUpd()
            )
        )
        (if (not proc0_1(22))
            (if (proc0_1(28))
                (send gRoom:addObstacle((send ((Polygon:new())):
                        type(3)
                        init(0 148 0 169 319 164 319 125 308 129 279 148 257 148 205 150 166 154 131 148 61 151 49 147 50 141 80 128 90 123 98 119 111 112 142 109 149 102 180 102 195 102 257 104 258 100 209 99 198 98 188 97 173 97 135 95 129 104 111 110 98 113 83 114 84 119 82 124 71 128 56 127 35 123)
                        yourself()
                    )
))
            )(else
                (controlPanel:init())
                (send gRoom:addObstacle((send ((Polygon:new())):
                        type(3)
                        init(0 148 0 169 319 164 319 125 308 129 279 148 257 148 205 150 166 154 131 148 61 151 49 147 50 141 80 128 90 123 98 119 111 112 142 109 149 102 180 102 195 102 257 104 258 100 209 99 198 98 188 97 173 97 135 95 129 104 111 110 98 113 83 114 84 119 82 124 71 128 56 127)
                        yourself()
                    )
))
            )
        )(else
            (send gSq5Music2:
                number(600)
                setLoop(-1)
                play()
            )
            (send gSq5Music2:setVol(proc999_2(127 proc999_3(30 (- (send gEgo:y) 32)))))
            (controlPanel:init())
            (send gWalkHandler:addToFront(self))
            (send gWalkHandler:addToFront(exit740))
            (send gWalkHandler:addToFront(controlPanel))
            (if (proc0_1(26) and not proc0_1(117))
                (send gWalkHandler:addToFront(myCliffy))
            )
        )
        (if (proc0_1(22))
            (if (proc0_1(26) and not proc0_1(117))
                (myCliffy:init())
                (if (not proc0_1(79))
                    (wd40:init())
                )
            )
        )(else
            (if (proc0_1(23))
                (cliffy:init())
            )
        )
        (switch (gGModNum)
            (case 240
                ((send gRoom:setScript(sFromShipMore))  )
            )
            (case 760
                (
                (if (proc0_1(22))
                    proc31_1(230 150)
                    (send gSQ5:handsOn())
                )(else
                    (send gRoom:setScript(sHuman760))
                )
 )
            )
            (case 740
                (
                (if (proc0_1(22))
                    (send gRoom:setScript(sFly740))
                )(else
                    (send gRoom:setScript(sHuman740))
                )
 )
            )
            (case 770
                ((send gSq5Music1:
                    number(39)
                    setLoop(-1)
                    play()
                )
 proc31_1(67 95)  )
            )
            (case 790
                ((send gRoom:setScript(sHuman790))  )
            )
            (default 
                (proc0_2(22) proc0_2(23) proc0_2(24) proc0_2(79) proc0_2(82) proc0_2(25) proc0_2(26) proc0_2(27) (send gRoom:setScript(sHuman760)) )
            )
        )
    )


    (method (doit)
        Palette(6 225 233 -1)
        Palette(6 234 240 -1)
        (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 script and not proc0_1(22))
            (if (& (= local0 (send gEgo:onControl(1))) $0002)
                (send gRoom:setScript(ScriptID(31 3) 0 0))
            )(else
                (if (& local0 $1000)
                    (send gRoom:setScript(ScriptID(31 3) 0 1))
                )(else
                    (if (& local0 $2000)
                        (send gRoom:setScript(ScriptID(31 3) 0 2))
                    )
                )
            )
        )
        (super:doit())
    )


    (method (dispose param1)
        (theMusic3:dispose())
        (send gWalkHandler:delete(controlPanel))
        (send gWalkHandler:delete(self))
        (send gWalkHandler:delete(exit740))
        (send gWalkHandler:delete(myCliffy))
        (rogTalker:dispose())
        (super:dispose(rest param1))
    )


    (method (doVerb param1 param2)
        (if (proc0_1(22))
            (switch (param1)
                (case 3
                    proc31_2(gPEventY)
                    (if (> 300 gPEventX)
                        (send gEgo:setMotion(VelocityMover gPEventX gPEventY 0 0))
                    )(else
                        (send gRoom:setScript(sExitRight))
                    )
                )
                (default 
                    (super:doVerb(param1 rest param2))
                )
            )
        )
    )

)
(instance sFlyLeave740 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gEgo:setMotion(MoveTo 234 84 self))  )
            )
            (case 1
                ((send gSQ5:handsOn()) (send gRoom:newRoom(740)) )
            )
        )
    )

)
(instance sGetSlapped of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gEgo:setMotion(VelocityMover 178 60 self 1))  )
            )
            (case 1
                ((send gSq5Music2:stop()) = seconds 2  )
            )
            (case 2
                ((myCliffy:setCycle(End self))  )
            )
            (case 3
                ((send gSq5Music2:
                    number(620)
                    setLoop(-1)
                    play()
                )
 = seconds 2  )
            )
            (case 4
                (proc0_9(41) )
            )
        )
    )

)
(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
                ((send gTestMessager:say(4 32 4 0 self 701))  )
            )
            (case 2
                ((send gEgo:setCycle(Beg self))  )
            )
            (case 3
                (proc0_6(0) (send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sTalkToCliffy of Script
    (properties)

    (method (dispose)
        (send gEgo:setMotion(VelocityMover 178 60 0 0))
        (send gSq5Music2:play())
        (send gSQ5:handsOn())
        (super:dispose())
    )


    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) proc31_2(60) (send gEgo:setMotion(VelocityMover 178 60 self 1))  )
            )
            (case 1
                ((send gSq5Music2:pause(1)) 
                (if (proc0_1(79))
                    (send gTestMessager:say(24 0 0 0 self))
                )(else
                    = cycles 1
                )
 )
            )
            (case 2
                (
                (if (proc0_1(79))
                    (self:dispose())
                )(else
                    = cycles 1
                )
 )
            )
            (case 3
                (proc0_10(235 5) proc0_2(79) = seconds 2  )
            )
            (case 4
                ((send gEgo:stopUpd()) = seconds 1  )
            )
            (case 5
                ((cliffOverlay:init()) (flyOL:
                    init()
                    setCycle(Fwd)
                )
 = seconds 1  )
            )
            (case 6
                ((send gTestMessager:say(17 0 0 0 self))  )
            )
            (case 7
                ((cliffOverlay:dispose()) (flyOL:dispose()) (send gEgo:startUpd()) = seconds 2  )
            )
            (case 8
                ((send gTestMessager:say(23 0 0 0 self))  )
            )
            (case 9
                ((theMusic3:
                    init()
                    number(156)
                    flags(1)
                    setLoop(-1)
                    play()
                )
 (wd40:
                    view(6000)
                    setLoop(0)
                    cel(0)
                    x(207)
                    y(103)
                    setPri(15)
                    setStep(8 2)
                    setCycle(End self)
                )
  )
            )
            (case 10
                ((wd40:setMotion(MoveTo 360 103 self)) (theMusic3:fade())  )
            )
            (case 11
                ((wd40:dispose()) (self:dispose()) )
            )
        )
    )

)
(instance sFly740 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (proc31_1(250 60) = cycles 1  )
            )
            (case 1
                ((self:dispose()) )
            )
        )
    )

)
(instance sFlyToLock of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) proc31_2(95) proc0_10(230 20) (send gEgo:setMotion(VelocityMover 67 95 self 1)) (send gSq5Music2:stop())  )
            )
            (case 1
                ((send gSQ5:handsOn()) (send gRoom:newRoom(770)) )
            )
        )
    )

)
(instance sHuman760 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (proc0_6(0) (send gEgo:
                    init()
                    posn(305 144)
                    signal(16384)
                    setScale(Scaler 124 55 167 80)
                    setMotion(MoveTo 277 149 self)
                )
 
                (if (not (send gEgo:has(10)))
                    = next sGiveCommBack
                )
 )
            )
            (case 1
                ((send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sHuman740 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) proc0_6(0) (send gEgo:
                    init()
                    setScale(Scaler 124 55 167 80)
                    posn(261 101)
                    setMotion(MoveTo 180 101 self)
                )
 
                (if (not (send gEgo:has(10)))
                    = next sGiveCommBack
                )
 )
            )
            (case 1
                ((send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sGiveCommBack of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (wd40:
                    init()
                    view(6000)
                    setLoop(1)
                    cel(0)
                    setStep(8 2)
                    moveSpeed(1)
                    x(311)
                    y(139)
                )
 (theMusic3:
                    init()
                    number(156)
                    setLoop(-1)
                    play()
                )
 = cycles 2  )
            )
            (case 1
                ((wd40:setMotion(MoveTo 311 139 self))  )
            )
            (case 2
                ((wd40:setMotion(MoveTo 282 137 self))  )
            )
            (case 3
                ((wd40:setMotion(MoveTo 248 134 self))  )
            )
            (case 4
                ((wd40:setMotion(MoveTo 215 130 self))  )
            )
            (case 5
                ((wd40:setMotion(MoveTo 184 134 self))  )
            )
            (case 6
                ((theMusic3:fade()) (wd40:setMotion(MoveTo 153 138 self))  )
            )
            (case 7
                ((wd40:setMotion(MoveTo 123 134 self))  )
            )
            (case 8
                ((wd40:setMotion(MoveTo 97 128 self))  )
            )
            (case 9
                ((wd40:setMotion(MoveTo 80 136 self))  )
            )
            (case 10
                ((wd40:setCycle(End self))  )
            )
            (case 11
                (
                (if ((<> (send gEgo:x) 51) or (<> (send gEgo:y) 134))
                    (send gEgo:setMotion(PolyPath 51 134 self))
                )(else
                    = cycles 3
                )
 )
            )
            (case 12
                ((send gEgo:
                    view(6000)
                    setLoop(4)
                    setCel(0)
                    setCycle(0)
                    x(51)
                    y(134)
                )
 (wd40:
                    setLoop(2)
                    setCycle(End self)
                )
  )
            )
            (case 13
                (= seconds 2  )
            )
            (case 14
                ((send gTestMessager:say(13 0 0 0 self))  )
            )
            (case 15
                ((send gEgo:setCycle(End self))  )
            )
            (case 16
                ((wd40:
                    setLoop(3)
                    setCel(0)
                )
 = seconds 2  )
            )
            (case 17
                ((send gTestMessager:say(13 0 3 0 self))  )
            )
            (case 18
                ((wd40:
                    view(34)
                    x(66)
                    y(131)
                    setCel(15)
                )
 = seconds 3  )
            )
            (case 19
                ((send gSq5Music2:
                    number(260)
                    setLoop(1)
                    play()
                )
 (wd40:setCycle(Beg self))  )
            )
            (case 20
                ((wd40:dispose()) = seconds 4  )
            )
            (case 21
                ((send gEgo:get(10)) proc0_6(0) (sHuman790:cue()) (send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sHuman790 of Script
    (properties)

    (method (dispose)
        proc0_6(0)
        (super:dispose())
    )


    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) proc0_6(0) (send gEgo:
                    init()
                    posn(10 134)
                    setScale(Scaler 124 55 167 80)
                    setMotion(MoveTo 50 134 self)
                )
 
                (if (proc0_1(23))
                    (cliffy:init())
                )
 )
            )
            (case 1
                (
                (if (proc0_1(23))
                    = seconds 2
                )(else
                    (send gSQ5:handsOn())
                    (self:dispose())
                )
 )
            )
            (case 2
                (
                (if (not (send gEgo:has(10)))
                    (self:setScript(sGiveCommBack))
                )(else
                    = ticks 1
                )
 )
            )
            (case 3
                ((send gTestMessager:say(14 0 (= local3 
                        (if (not proc0_1(102))
                            6
                        )(else
                            proc0_3(102)
                            (if ((send gEgo:has(16)))
                                (send gEgo:put(16))
                                (if (proc0_1(82))
                                    4
                                )(else
                                    7
                                )
                            )(else
                                (if (proc0_1(82))
                                    5
                                )(else
                                    8
                                )
                            )
                        )
) 0 self 730))  )
            )
            (case 4
                ((cliffyTalker:
                    normal(0)
                    keepWindow(1)
                    curNoun(2)
                    curVerb(0)
                    curCase(2)
                )
 = cycles 1  )
            )
            (case 5
                ((send gSQ5:handsOn()) (send gSq5IconBar:select((send gSq5IconBar:at(2)))) (send gSQ5:setCursor(999 1)) (send gTestMessager:say(2 0 2 1 self))  )
            )
            (case 6
                ((cliffyTalker:
                    normal(1)
                    keepWindow(0)
                )
 = cycles 1  )
            )
            (case 7
                (
                (if (== (cliffyTalker:whichSelect) 1)
                    = next sBeamMeUp
                    = cycles 1
                )(else
                    (send gSq5IconBar:select((send gSq5IconBar:at(0))))
                    (send gSQ5:setCursor(980 1))
                    (self:dispose())
                )
 )
            )
            (case 8
                ((self:dispose()) )
            )
        )
    )

)
(instance sCommandCliffy of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (cliffyTalker:
                    normal(0)
                    keepWindow(1)
                    curNoun(1)
                    curVerb(24)
                    curCase(1)
                )
 = cycles 1  )
            )
            (case 1
                ((send gSQ5:handsOn()) (send gSq5IconBar:select((send gSq5IconBar:at(2)))) (send gSQ5:setCursor(982)) (send gTestMessager:say(1 24 1 0 self))  )
            )
            (case 2
                ((cliffyTalker:
                    normal(1)
                    keepWindow(0)
                )
 = cycles 1  )
            )
            (case 3
                (
                (if (== (cliffyTalker:whichSelect) 1)
                    = next sBeamMeUp
                )(else
                    (send gSq5IconBar:select((send gSq5IconBar:at(0))))
                    (send gSQ5:setCursor(980 1))
                )
 = cycles 1  )
            )
            (case 4
                ((self:dispose()) )
            )
        )
    )

)
(instance sFly790 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) proc31_1(70 0) = cycles 1  )
            )
            (case 1
                ((send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sCardNLock of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gEgo:setMotion(PolyPath 84 125 self))  )
            )
            (case 1
                ((send gEgo:setHeading(290 self))  )
            )
            (case 2
                ((send gEgo:
                    view(611)
                    loop(5)
                    cel(0)
                    setCycle(End self)
                )
 (send gSQ5:handsOn()) (send gSQ5:setCursor(999 1))  )
            )
            (case 3
                (proc0_6(0) 
                (if (<> global129 341)
                    (if (< global165 5)
                        (if (global129)
                            (if (& global129 $feaa)
                                (Print:
                                    addText(5 0 0 0)
                                    addButton(0 8 0 0 0 120 44)
                                    init()
                                )
                                = global129 0
                                ++global165
                            )(else
                                (if ((Print:
                                    addText(16 35 0 1)
                                    addButton(1 6 0 0 0 15 44)
                                    addButton(0 7 0 0 0 120 44)
                                    init()
                                )
)
                                    = global129 0
                                    ++global165
                                )
                            )
                        )(else
                            (Print:
                                addText(16 43 0 1)
                                init()
                            )
                            ++global165
                        )
                    )(else
                        proc0_9(42)
                    )
                    (send gSQ5:handsOn())
                    (self:dispose())
                )(else
                    = cycles 2
                )
 )
            )
            (case 4
                ((send ((send gRoom:obstacles)):dispose()) (send gRoom:addObstacle((send ((Polygon:new())):
                        type(3)
                        init(0 148 0 169 319 164 319 125 308 129 279 148 257 148 205 150 166 154 131 148 61 151 49 147 50 141 80 128 90 123 98 119 111 112 142 109 149 102 180 102 195 102 257 104 258 100 209 99 198 98 188 97 173 97 135 95 129 104 111 110 98 113 83 114 84 119 82 124 71 128 56 127 35 123)
                        yourself()
                    )
)) proc0_2(28) (controlPanel:dispose()) (bigDoor:
                    startUpd()
                    setCycle(End)
                )
 (send gSq5Music2:
                    number(108)
                    setLoop(1)
                    play(self)
                )
  )
            )
            (case 5
                (
                (switch (global165)
                    (case 0
                        (proc0_10(239 500)  )
                    )
                    (case 1
                        (proc0_10(240 300)  )
                    )
                    (case 2
                        (proc0_10(241 100)  )
                    )
                    (case 3
                        (proc0_10(242 50)  )
                    )
                    (default 
                        (proc0_10(243 25) )
                    )
                )
 = cycles 1  )
            )
            (case 6
                (= seconds 2  )
            )
            (case 7
                ((send gTestMessager:say(9 1 0 0 self))  )
            )
            (case 8
                ((send gSQ5:handsOn()) (bigDoor:dispose()) (self:dispose()) )
            )
        )
    )

)
(instance sExitRight of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gEgo:setMotion(MoveTo 400 100 self))  )
            )
            (case 1
                ((send gSQ5:handsOn()) (send gRoom:newRoom(760)) )
            )
        )
    )

)
(instance swOscilate 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 plant of MyProp
    (properties
        x 271
        y 189
        noun 19
        view 610
        loop 1
        priority 14
        signal 16
        cycleSpeed 50
    )
)
(instance bigDoor of MyProp
    (properties
        x 14
        y 102
        noun theMusic3
        view 610
        signal 16384
    )
)
(instance controlPanel of MyFeature
    (properties
        x 271
        y 189
        noun 16
        onMeCheck 1024
    )

    (method (doVerb param1 param2)
        (switch (param1)
            (case 3
                (proc31_2(gPEventY) (send gRoom:setScript(sFlyToLock))  )
            )
            (case 35
                ((send gRoom:setScript(sCardNLock))  )
            )
            (case 1
                (
                (if (proc0_1(22))
                    (send gTestMessager:say(16 1 10 0))
                )(else
                    (send gTestMessager:say(16 1 11 0))
                )
 )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance myCliffy of MyActor
    (properties
        x 179
        y 104
        noun 17
        modNum 701
        view 626
        signal 16384
    )

    (method (init)
        (super:init())
        (self:setScale(Scaler 124 55 167 80))
    )


    (method (doVerb param1 param2)
        (switch (param1)
            (case 3
                (
                (if ((proc0_1(24) and not proc0_1(23)) and proc0_1(22))
                    proc31_2(gPEventY)
                    (send gRoom:setScript(sTalkToCliffy))
                )
 
                (if (not proc0_1(24))
                    proc31_2(gPEventY)
                    (send gRoom:setScript(sGetSlapped))
                )
 )
            )
            (case 2
                ((myCliffy:doVerb(3 rest param2))  )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance wd40 of MyActor
    (properties
        x 202
        y 102
        noun 23
        view 13
        loop 2
        cel 4
        signal 16384
        moveSpeed 2
    )

    (method (init)
        (super:init())
        (self:setScale(Scaler 124 55 167 80))
    )


    (method (doVerb param1 param2)
        (switch (param1)
            (case 4
                (
                (if (proc0_1(22))
                    (send gTestMessager:say(23 4 10 0 self))
                )(else
                    (send gTestMessager:say(23 4 11 0 self))
                )
 )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance exit740 of MyFeature
    (properties
        x 271
        y 79
        onMeCheck 16384
    )

    (method (doVerb param1 param2)
        (switch (param1)
            (case 3
                (proc31_2(gPEventY) (send gRoom:setScript(sFlyLeave740))  )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance public rogTalker of Narrator
    (properties)

    (method (init param1)
        = font gFont
        (send (= gSq5Win gNewSpeakWindow):
            tailX(99)
            tailY(70)
            xOffset(10)
            isBottom(0)
        )
        (super:init(rest param1))
    )


    (method (dispose param1)
        = gSq5Win gSq5Win_2
        (super:dispose(rest param1))
    )

)
(instance bigWF of MyFeature
    (properties
        x 133
        y 90
        noun 3
        onMeCheck 8
    )
)
(instance bridge of MyFeature
    (properties
        x 302
        y 136
        noun 4
        onMeCheck 2
    )
)
(instance domeBack of MyFeature
    (properties
        x 200
        y 11
        noun 11
        onMeCheck 16
    )
)
(instance pondF of MyFeature
    (properties
        x sUseComm
        y 124
        noun 20
        onMeCheck 32
    )
)
(instance smallFalls of MyFeature
    (properties
        x 282
        y 79
        noun 22
        onMeCheck 64
    )
)
(instance cliffOverlay of View
    (properties
        x 10
        y 25
        view 1003
        loop 7
        priority 15
        signal 16
    )
)
(instance public cliffyTalker of ChoiceTalker
    (properties
        x 10
        y 25
        view 1003
        talkWidth 150
        keepWindow 1
        textX sFlyLeave740
        textY 10
        normal 1
    )

    (method (init param1)
        = font gFont
        = gSq5Win gSq5Win_2
        (super:init(0 cliffyEyes cliffyMouth rest param1))
        (if (not proc0_1(22))
            (cliffyEyes:setLoop(Random(2 3)))
        )
    )


    (method (dispose param1)
        = gSq5Win gSq5Win_2
        (super:dispose(rest param1))
    )

)
(instance cliffyEyes of Prop
    (properties
        nsTop 14
        nsLeft 58
        view 1003
        loop 5
    )
)
(instance cliffyMouth of Prop
    (properties
        nsTop 32
        nsLeft 52
        view 1003
        loop 1
    )
)
(instance flyOL of MyActor
    (properties
        x 87
        y 254
        z 200
        view 1003
        loop 6
        priority 15
        signal 16
        cycleSpeed 15
    )
)
(instance sBeamMeUp of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gTestMessager:say(15 0 0 0 self)) (send gSQ5:handsOff())  )
            )
            (case 1
                ((cliffy:
                    view(604)
                    loop(2)
                    cel(0)
                )
 (send gEgo:setHeading(180)) = seconds 1  )
            )
            (case 2
                ((cliffy:setCel(1)) = seconds 3  )
            )
            (case 3
                ((send gSq5Music2:
                    number(260)
                    setLoop(1)
                    play()
                )
 (send gEgo:
                    view(6)
                    cel(15)
                    setCycle(Beg self)
                )
 (cliffy:
                    view(33)
                    cel(15)
                    setCycle(Beg self)
                )
  )
            )
            (case 4
                (0  )
            )
            (case 5
                ((cliffy:dispose()) (send gEgo:dispose()) = seconds 2  )
            )
            (case 6
                ((send gRoom:newRoom(240)) )
            )
        )
    )

)
(instance cliffy of MyActor
    (properties
        x 75
        y 145
        noun 17
        view 20
        signal 16384
    )

    (method (init)
        (super:init())
        (self:
            setHeading(300)
            setScale(Scaler 124 55 167 80)
        )
    )


    (method (doVerb param1 param2)
        (switch (param1)
            (case 2
                (
                (if (proc0_1(22))
                    (send gTestMessager:say(17 2 10 1))
                )(else
                    (if (not (send gEgo:has(10)))
                        (send gTestMessager:say(1 2 0 0 0 701))
                    )(else
                        (send gRoom:setScript(sCommandCliffy))
                    )
                )
 )
            )
            (case 24
                (
                (if (not (send gEgo:has(10)))
                    (send gTestMessager:say(1 24 2 0 0 701))
                )(else
                    (send gRoom:setScript(sCommandCliffy))
                )
 )
            )
            (case 35
                ((send gTestMessager:say(17 35 (= local3 
                        (if (global129)
                            15
                        )(else
                            14
                        )
) 1))  )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance sFromShipMore of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gSq5Music1:
                    number(39)
                    setLoop(-1)
                    play()
                )
 (theMusic3:
                    number(260)
                    setLoop(1)
                    play()
                )
 (cliffy:
                    view(33)
                    init()
                    cel(0)
                    setCycle(End)
                )
 proc0_6(6) (send gEgo:
                    init()
                    posn(50 134)
                    loop(0)
                    cel(0)
                    setScale(Scaler 124 55 167 80)
                    setCycle(End self)
                )
  )
            )
            (case 1
                (proc0_6(0) (send gEgo:
                    setScale(Scaler 124 55 167 80)
                    setHeading(180)
                )
 (cliffy:
                    view(604)
                    loop(2)
                    cel(0)
                )
 = seconds 2  )
            )
            (case 2
                ((send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
