(include "sci.sh")
(use "Main")
(use "MyPuke")
(use "Blink")
(use "Scaler")
(use "Osc")
(use "n958")
(use "Sound")
(use "Cycle")
(use "Sounds")
(use "View")
(use "Obj")
(script 660)


(local
    local0
    local1
    local2

)
(instance theMusic3 of Sound
    (properties)
)
(instance public rm660 of Rm
    (properties
        picture 102
    )

    (method (init)
        = style 32778
        proc958_0(143 number)
        proc958_0(128 560 562 563 564 567)
        (super:init())
        (self:setScript(sFallOff))
    )

)
(instance sDoRope of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= seconds 15  )
            )
            (case 1
                ((rope:init()) = ticks 5  )
            )
            (case 2
                ((rope:setCycle(End self))  )
            )
            (case 3
                ((self:dispose()) )
            )
        )
    )

)
(instance sFallOff of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (RogersBody:
                    init()
                    stopUpd()
                )
 (RogersArm:
                    init()
                    stopUpd()
                )
 (RogersHead:
                    init()
                    stopUpd()
                )
 (RogersLegs:
                    init()
                    stopUpd()
                )
 (BeasHead:
                    init()
                    setCycle(Fwd)
                )
 (BeasArm:
                    init()
                    stopUpd()
                )
 (BeasEyes:
                    init()
                    setCycle(Fwd)
                )
 (BeaLegs:
                    init()
                    setCycle(Fwd)
                )
 = seconds 3  )
            )
            (case 1
                ((send gTestMessager:say(3 0 0 1 self))  )
            )
            (case 2
                (= seconds 5  )
            )
            (case 3
                ((oid1:init()) (send gEgo:get(19)) (send gEgo:get(10)) = seconds 3  )
            )
            (case 4
                ((send gTestMessager:say(14 0 0 1 self))  )
            )
            (case 5
                ((RogersLegs:
                    loop(3)
                    setCel(1)
                    x(98)
                    y(74)
                )
 (BeasHead:
                    loop(0)
                    setCel(1)
                    x(110)
                    y(57)
                )
 (BeasArm:
                    loop(2)
                    setCel(0)
                    x(112)
                    y(89)
                )
 (BeasEyes:
                    loop(1)
                    setCel(0)
                    x(132)
                    y(69)
                )
 (RogersEyes:
                    init()
                    setCycle(Fwd)
                )
 (RogersPants:
                    init()
                    stopUpd()
                )
 (BeaLegs:
                    loop(6)
                    setCel(0)
                    x(120)
                    y(85)
                )
 (BeasOtherArm:
                    init()
                    stopUpd()
                )
 = seconds 2  )
            )
            (case 6
                ((RogersLegs:
                    loop(3)
                    setCel(0)
                    x(97)
                    y(79)
                )
 (BeasArm:
                    loop(2)
                    setCel(0)
                    x(133)
                    y(98)
                )
 (BeasEyes:
                    loop(1)
                    setCel(0)
                    x(150)
                    y(78)
                )
 (RogersEyes:
                    loop(4)
                    setCel(1)
                    x(86)
                    y(34)
                )
 (BeasOtherArm:
                    loop(5)
                    setCel(0)
                    x(126)
                    y(84)
                )
 (BeaLegs:
                    loop(6)
                    setCel(0)
                    x(136)
                    y(92)
                )
 (BeasHead:
                    loop(0)
                    setCel(1)
                    x(128)
                    y(66)
                )
 = seconds 2  )
            )
            (case 7
                ((send gTestMessager:say(3 0 0 2 self))  )
            )
            (case 8
                ((self:dispose()) )
            )
        )
    )

)
(instance sByeBea of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send gTestMessager:say(3 0 0 3 self))  )
            )
            (case 1
                ((BeasHead:dispose()) (BeasArm:dispose()) (BeasEyes:dispose()) (BeasOtherArm:dispose()) (RogersBody:stopUpd()) (RogersArm:stopUpd()) (RogersLegs:stopUpd()) (RogersEyes:stopUpd()) (RogersPants:stopUpd()) (BeaLegs:
                    setLoop(8)
                    moveSpeed(0)
                    setStep(8 8)
                    setCycle(0)
                    setPri(15)
                    setCel(0)
                    posn(143 60)
                    setScale(Scaler 7 100 131 60)
                )
 (puke4HitBea:dispose()) = ticks 2  )
            )
            (case 2
                ((BeaLegs:setMotion(MoveTo 157 81 self))  )
            )
            (case 3
                ((BeaLegs:
                    setStep(5 5)
                    moveSpeed(2)
                    setMotion(MoveTo 176 110 self)
                )
  )
            )
            (case 4
                ((BeaLegs:
                    moveSpeed(4)
                    setStep(2 2)
                    setMotion(MoveTo 191 131 self)
                )
  )
            )
            (case 5
                ((BeaLegs:dispose()) (puke1HitRog:init()) (RogersHead:startUpd())  )
            )
            (case 6
                (= cycles 4  )
            )
            (case 7
                ((RogersEyes:dispose()) (RogersHead:cel(1)) = seconds 4  )
            )
            (case 8
                (proc0_9(31) )
            )
        )
    )

)
(instance sDoComm of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (RogersHead:startUpd()) (RogersEyes:hide()) = cycles 4  )
            )
            (case 1
                (proc0_2(99) (RogersArm:
                    posn(44 76)
                    setCel(2)
                )
 (RogersHead:setCel(2)) (send gSq5Music2:
                    number(603)
                    setLoop(1)
                    play()
                )
 = seconds 3  )
            )
            (case 2
                (proc0_10(226 25) (send gTestMessager:say(9 32 0 0 self))  )
            )
            (case 3
                ((RogersHead:setCel(0)) (RogersArm:
                    posn(0 56)
                    setCel(0)
                )
 (RogersEyes:show()) (send gSQ5:handsOn()) (self:dispose()) )
            )
        )
    )

)
(instance sGiveFrock of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (RogersEyes:dispose()) (RogersArm:
                    loop(2)
                    setCel(4)
                    x(53)
                    y(75)
                )
 (RogersHead:
                    loop(1)
                    setCel(1)
                    x(84)
                    y(37)
                )
 (RogersLegs:
                    loop(3)
                    setCel(0)
                    x(97)
                    y(79)
                )
 (BeasArm:
                    loop(2)
                    setCel(0)
                    x(133)
                    y(98)
                )
 (BeasEyes:
                    loop(1)
                    setCel(0)
                    x(148)
                    y(78)
                )
 (BeasOtherArm:
                    loop(5)
                    setCel(0)
                    x(126)
                    y(84)
                )
 (frock:init()) (BeaLegs:
                    loop(6)
                    setCel(0)
                    x(136)
                    y(92)
                )
 (BeasHead:
                    loop(0)
                    setCel(1)
                    x(128)
                    y(66)
                )
 proc0_10(225 35) (send gEgo:put(19)) = seconds 1  )
            )
            (case 1
                ((RogersArm:
                    loop(2)
                    setCel(4)
                    x(53)
                    y(75)
                )
 (RogersHead:
                    loop(1)
                    setCel(1)
                    x(84)
                    y(37)
                )
 (RogersLegs:
                    loop(3)
                    setCel(0)
                    x(97)
                    y(79)
                )
 (BeasArm:
                    loop(3)
                    setCel(0)
                    x(97)
                    y(100)
                )
 (BeasEyes:
                    loop(1)
                    setCel(0)
                    x(148)
                    y(78)
                )
 (BeasOtherArm:
                    loop(5)
                    setCel(0)
                    x(126)
                    y(84)
                )
 (BeaLegs:
                    loop(6)
                    setCel(0)
                    x(136)
                    y(92)
                )
 (BeasHead:
                    loop(0)
                    setCel(1)
                    x(128)
                    y(66)
                )
 = local2 (= seconds 1)  )
            )
            (case 2
                ((BeasArm:dispose()) (BeasOtherArm:dispose()) (BeasEyes:dispose()) (BeaLegs:
                    setCycle(0)
                    setPri(15)
                )
 (BeasHead:dispose()) (frock:dispose()) (puke4HitBea:dispose()) (send gCast:eachElementDo(102)) (send gRoom:drawPic(103 (send gRoom:style))) (both:init()) = seconds 1  )
            )
            (case 3
                (= seconds 2  )
            )
            (case 4
                ((both:setCycle(End self))  )
            )
            (case 5
                (= seconds 1  )
            )
            (case 6
                ((both:
                    addToPic()
                    dispose()
                )
 = cycles 2  )
            )
            (case 7
                ((send gRoom:drawPic(102 (send gRoom:style))) (send gCast:eachElementDo(224)) = local2 0 (RogersArm:
                    loop(2)
                    setCel(0)
                    x(1)
                    y(58)
                )
 (RogersHead:
                    loop(1)
                    setCel(0)
                    x(75)
                    y(39)
                )
 (RogersLegs:
                    loop(3)
                    setCel(0)
                    x(97)
                    y(79)
                )
 (BeanButt:
                    init()
                    loop(4)
                    setCel(0)
                    x(3)
                    y(65530)
                )
 (BeaLegs:
                    view(562)
                    loop(4)
                    setCel(1)
                    x(0)
                    y(35)
                )
 = seconds 1  )
            )
            (case 8
                ((RogersArm:
                    loop(2)
                    setCel(0)
                    x(1)
                    y(58)
                )
 (RogersHead:
                    loop(1)
                    setCel(0)
                    x(75)
                    y(39)
                )
 (RogersLegs:
                    loop(3)
                    setCel(0)
                    x(97)
                    y(79)
                )
 (BeanButt:
                    loop(4)
                    setCel(3)
                    x(3)
                    y(65531)
                )
 (BeaLegs:
                    loop(4)
                    setCel(1)
                    x(0)
                    y(35)
                )
 = seconds 1  )
            )
            (case 9
                ((RogersArm:
                    loop(2)
                    setCel(0)
                    x(1)
                    y(58)
                )
 (RogersHead:
                    loop(1)
                    setCel(0)
                    x(75)
                    y(39)
                )
 (RogersLegs:
                    loop(3)
                    setCel(0)
                    x(97)
                    y(79)
                )
 (BeanButt:
                    loop(4)
                    setCel(4)
                    x(3)
                    y(65531)
                )
 (BeaLegs:
                    loop(4)
                    setCel(1)
                    x(0)
                    y(35)
                )
 = seconds 1  )
            )
            (case 10
                ((RogersArm:
                    loop(2)
                    setCel(0)
                    x(1)
                    y(58)
                )
 (RogersHead:
                    loop(1)
                    setCel(0)
                    x(75)
                    y(39)
                )
 (RogersLegs:
                    loop(3)
                    setCel(0)
                    x(97)
                    y(79)
                )
 (BeaLegs:
                    loop(4)
                    setCel(1)
                    x(65514)
                    y(35)
                )
 (BeanButt:
                    loop(4)
                    setCel(2)
                    x(5)
                    y(7)
                )
 = seconds 1  )
            )
            (case 11
                ((RogersArm:
                    loop(2)
                    setCel(0)
                    x(1)
                    y(58)
                )
 (RogersHead:
                    loop(1)
                    setCel(0)
                    x(75)
                    y(39)
                )
 (RogersLegs:
                    loop(3)
                    setCel(0)
                    x(97)
                    y(79)
                )
 (BeanButt:
                    loop(4)
                    setCel(2)
                    x(5)
                    y(7)
                )
 = seconds 1  )
            )
            (case 12
                ((BeaLegs:dispose()) = seconds 1  )
            )
            (case 13
                ((RogersArm:setScript(sDoRope)) = local0 1 (BeanButt:dispose()) (send gSQ5:handsOn()) proc958_0(128 562 0) (self:dispose()) )
            )
        )
    )

)
(instance sDoOids of Script
    (properties)

    (method (doit)
        (if (not local2)
            (super:doit())
        )
    )


    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((oid2:
                    init()
                    setLoop(+ (oid2:loop) 7)
                    setCycle(End)
                )
 (oid3:
                    init()
                    setLoop(+ (oid3:loop) 7)
                    setCycle(End)
                )
 (send gSq5Music2:
                    number(260)
                    setLoop(1)
                    play()
                )
 = seconds 2  )
            )
            (case 1
                ((oid1:
                    show()
                    setLoop(+ (oid1:loop) 7)
                    setCycle(End self)
                )
 (oid4:
                    init()
                    setLoop(+ (oid4:loop) 7)
                    setCycle(End self)
                )
 (send gSq5Music2:
                    number(260)
                    setLoop(1)
                    play()
                )
  )
            )
            (case 2
                (0  )
            )
            (case 3
                ((oid1:
                    setLoop(- (oid1:loop) 7)
                    stopUpd()
                )
 (oid2:
                    setLoop(- (oid2:loop) 7)
                    stopUpd()
                )
 (oid3:
                    setLoop(- (oid3:loop) 7)
                    stopUpd()
                )
 (oid4:
                    setLoop(- (oid4:loop) 7)
                    stopUpd()
                )
 = seconds 1  )
            )
            (case 4
                ((oid1:setCycle(Osc 1)) (puke1Miss:init()) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 = seconds 1  )
            )
            (case 5
                ((oid2:setCycle(Osc 1)) (puke2Miss:init()) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 = seconds 1  )
            )
            (case 6
                ((oid4:setCycle(Osc 1)) (puke4HitBea:init()) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 = seconds 3  )
            )
            (case 7
                ((oid3:setCycle(Osc 1)) (puke3Miss:init()) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 = seconds 2  )
            )
            (case 8
                ((oid4:setCycle(Osc 1)) (puke4Miss:init()) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 = seconds 4  )
            )
            (case 9
                ((BeasEyes:setLoop(1)) (oid4:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke4HitWall:init()) = seconds 2  )
            )
            (case 10
                ((oid1:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke1Miss:init()) = seconds 3  )
            )
            (case 11
                ((oid2:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke2Miss:init()) = seconds 2  )
            )
            (case 12
                ((oid4:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke4HitWall:init()) = seconds 1  )
            )
            (case 13
                (
                (if (local0)
                    = cycles 1
                )(else
                    (if (== sGiveFrock (send gRoom:script))
                        = seconds 3
                    )(else
                        (send gRoom:setScript(sByeBea))
                    )
                )
 )
            )
            (case 14
                ((puke1Miss:moveSpeed(3)) (puke2Miss:moveSpeed(3)) (puke3Miss:moveSpeed(3)) (puke4Miss:moveSpeed(3)) (puke4HitWall:moveSpeed(3)) (puke4HitBea:moveSpeed(3)) (puke1HitRog:moveSpeed(3)) (oid3:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke3Miss:init()) = seconds 2  )
            )
            (case 15
                ((oid4:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke4Miss:init()) = seconds 4  )
            )
            (case 16
                ((oid4:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke4HitWall:init()) = seconds 4  )
            )
            (case 17
                ((oid1:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke1Miss:init()) = seconds 3  )
            )
            (case 18
                ((oid2:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke2Miss:init()) = seconds 3  )
            )
            (case 19
                ((oid4:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke4HitWall:init()) = seconds 4  )
            )
            (case 20
                ((oid1:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke1Miss:init()) = seconds 3  )
            )
            (case 21
                ((oid2:setCycle(Osc 1)) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (puke2Miss:init()) = seconds 3  )
            )
            (case 22
                ((send gSQ5:handsOff()) (send gSq5Music2:
                    number(519)
                    setLoop(1)
                    play()
                )
 (oid1:setCycle(Osc 1)) (puke1HitRog:init())  )
            )
            (case 23
                ((RogersHead:setCel(1)) = seconds 4  )
            )
            (case 24
                (proc0_9(40) )
            )
        )
    )

)
(instance both of Prop
    (properties
        x 64
        y 141
        view 560
        loop 7
        priority 2
        signal 16400
        cycleSpeed theMusic3
    )
)
(instance RogersBody of Prop
    (properties
        y 23
        noun 9
        view 563
        priority 2
        signal 16400
    )

    (method (doVerb param1 param2)
        (switch (param1)
            (case 32
                (
                (if (not local1)
                    (send gRoom:setScript(sDoComm))
                )
 )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance RogersArm of Prop
    (properties
        y 56
        noun 9
        view 563
        loop 2
        priority 3
        signal 16400
    )

    (method (doVerb param1 param2)
        (RogersBody:doVerb(param1 rest param2))
    )

)
(instance RogersHead of Prop
    (properties
        x 74
        y 37
        noun 9
        view 563
        loop 1
        priority 3
        signal 16400
    )

    (method (doVerb param1 param2)
        (RogersBody:doVerb(param1 rest param2))
    )

)
(instance RogersLegs of Prop
    (properties
        x 98
        y 74
        noun 9
        view 563
        loop 3
        cel 1
        priority 1
        signal 16400
    )

    (method (doVerb param1 param2)
        (RogersBody:doVerb(param1 rest param2))
    )

)
(instance BeasHead of Prop
    (properties
        x 107
        y 56
        noun 3
        view 562
        cel 1
        priority theMusic3
        signal 16400
        detailLevel 3
    )

    (method (doVerb param1 param2)
        (BeaLegs:doVerb(param1 rest param2))
    )

)
(instance BeasArm of Prop
    (properties
        x 112
        y 89
        noun 3
        view 562
        loop 2
        priority theMusic3
        signal 16400
    )

    (method (doVerb param1 param2)
        (BeaLegs:doVerb(param1 rest param2))
    )

)
(instance BeasEyes of Prop
    (properties
        x 129
        y 68
        noun 3
        view 562
        loop 1
        priority 11
        signal 16400
        cycleSpeed 62
        detailLevel 3
    )

    (method (doVerb param1 param2)
        (BeaLegs:doVerb(param1 rest param2))
    )

)
(instance BeaLegs of Actor
    (properties
        x 116
        y 84
        noun 3
        view 562
        loop 6
        priority 1
        signal 16400
        cycleSpeed 20
        detailLevel 3
    )

    (method (doVerb param1 param2)
        (switch (param1)
            (case 23
                (
                (if (not (send gRoom:script))
                    (send gRoom:setScript(sGiveFrock))
                )
 )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance RogersPants of Prop
    (properties
        x 99
        y 78
        noun 9
        view 563
        loop 3
        cel 2
        priority theMusic3
        signal 16400
    )

    (method (doVerb param1 param2)
        (RogersBody:doVerb(param1 rest param2))
    )

)
(instance RogersEyes of Prop
    (properties
        x 86
        y 34
        noun 9
        view 563
        loop 4
        cel 1
        priority 7
        signal 16400
        cycleSpeed 80
        detailLevel 3
    )

    (method (doVerb param1 param2)
        (RogersBody:doVerb(param1 rest param2))
    )

)
(instance BeasOtherArm of Prop
    (properties
        x 112
        y 74
        noun 3
        view 562
        loop 5
        priority 11
        signal 16400
    )

    (method (doVerb param1 param2)
        (BeaLegs:doVerb(param1 rest param2))
    )

)
(instance BeanButt of Prop
    (properties
        x 3
        y 65530
        noun 3
        view 562
        loop 4
        priority 15
        signal 16400
    )
)
(instance oid1 of Prop
    (properties
        x 165
        y 15
        noun 8
        view 564
        loop 2
        cel 3
    )

    (method (init)
        (super:init())
        (self:
            hide()
            setScript(sDoOids)
        )
    )

)
(instance oid2 of Prop
    (properties
        x 214
        y 57
        noun 8
        view 564
        cel 2
    )
)
(instance oid3 of Prop
    (properties
        x 234
        y 67
        noun 8
        view 564
        loop 1
        cel 1
    )
)
(instance oid4 of Prop
    (properties
        x 292
        y 136
        noun 8
        view 564
        loop 3
    )
)
(instance frock of Prop
    (properties
        x 53
        y 74
        view 563
        loop 2
        cel 3
        signal 16400
    )
)
(class MyPuke of Actor
    (properties
        x 0
        y 0
        z 0
        heading 0
        noun 0
        modNum -1
        nsTop 0
        nsLeft 0
        nsBottom 0
        nsRight 0
        sightAngle 26505
        actions 0
        onMeCheck 26505
        state 0
        approachX 0
        approachY 0
        approachDist 0
        _approachVerbs 0
        yStep 2
        view -1
        loop 0
        cel 0
        priority 0
        underBits 0
        signal 0
        lsTop 0
        lsLeft 0
        lsBottom 0
        lsRight 0
        brTop 0
        brLeft 0
        brBottom 0
        brRight 0
        scaleSignal 0
        scaleX 128
        scaleY 128
        maxScale 128
        cycleSpeed 6
        script 0
        cycler 0
        timer 0
        detailLevel 0
        scaler 0
        illegalBits 32768
        xLast 0
        yLast 0
        xStep 3
        origStep 770
        moveSpeed 6
        blocks 0
        baseSetter 0
        mover 0
        looper 0
        viewer 0
        avoider 0
        code 0
    )

    (method (dispose)
        (theMusic3:
            number(213)
            setLoop(1)
            play()
        )
        (super:dispose())
    )


    (method (cue)
        (self:dispose())
    )

)
(instance puke1Miss of MyPuke
    (properties
        view 564
        signal 24576
        moveSpeed 0
    )

    (method (init)
        (super:init())
        (self:
            posn(162 1)
            setLoop(11)
            setStep(8 8)
            setPri(1)
            setMotion(MoveTo 21 21 self)
            setCycle(End)
        )
    )


    (method (cue)
        (self:dispose())
    )

)
(instance puke2Miss of MyPuke
    (properties
        view 564
        signal 24576
        moveSpeed 0
    )

    (method (init)
        (super:init())
        (self:
            posn(212 38)
            setPri(1)
            setStep(8 8)
            setLoop(13)
            setMotion(MoveTo 29 38 self)
            setCycle(End)
        )
    )

)
(instance puke3Miss of MyPuke
    (properties
        view 564
        signal 24576
        moveSpeed 0
    )

    (method (init)
        (super:init())
        (self:
            posn(236 51)
            setPri(1)
            setStep(8 8)
            setLoop(13)
            setMotion(MoveTo 19 15 self)
            setCycle(End)
        )
    )

)
(instance puke4Miss of MyPuke
    (properties
        view 564
        signal 24576
        moveSpeed 0
    )

    (method (init)
        (super:init())
        (self:
            setPri(0)
            setStep(8 8)
            posn(290 125)
            setLoop(6)
            setMotion(MoveTo 45 87 self)
            setCycle(End)
        )
    )

)
(instance puke4HitWall of MyPuke
    (properties
        view 564
        signal 24576
        moveSpeed 0
    )

    (method (init)
        (super:init())
        (self:
            setPri(0)
            posn(290 125)
            setStep(8 8)
            setLoop(6)
            setMotion(MoveTo 75 39 self)
            setCycle(End)
        )
    )


    (method (cue)
        (if (== loop 6)
            (self:
                setLoop(5)
                setCel(0)
                posn(28 41)
                setCycle(End self)
            )
        )(else
            (self:dispose())
        )
    )

)
(instance puke4HitBea of MyPuke
    (properties
        view 564
        signal 24576
        moveSpeed 0
    )

    (method (init)
        (super:init())
        (self:
            view(564)
            posn(290 125)
            setStep(8 8)
            setPri(15)
            setLoop(6)
            setMotion(MoveTo 190 104 self)
            setCycle(End)
        )
    )


    (method (cue)
        (if (== loop 6)
            (self:
                view(562)
                setLoop(7)
                setCel(0)
                posn(160 92)
                setCycle(End self)
            )
        )(else
            (send gSQ5:handsOn())
            (BeasEyes:setLoop(9))
            (send gTestMessager:say(2 0 0 0))
        )
    )

)
(instance puke1HitRog of MyPuke
    (properties
        view 564
        signal 24576
        moveSpeed 0
    )

    (method (init)
        (super:init())
        (self:
            posn(162 1)
            setPri(14)
            setStep(8 8)
            setLoop(11)
            setMotion(MoveTo 73 16 self)
            setCycle(End)
        )
    )


    (method (cue)
        (if (== loop 11)
            (self:
                setLoop(12)
                setCel(0)
                posn(31 18)
                setCycle(End self)
            )
        )(else
            (if ((send gRoom:script))
                (sByeBea:cue())
            )(else
                (sDoOids:cue())
            )
        )
    )

)
(instance public rogTalker of Narrator
    (properties
        talkWidth 150
    )

    (method (init param1)
        = font gFont
        (send (= gSq5Win gNewSpeakWindow):
            tailX(110)
            tailY(67)
            xOffset(25)
            isBottom(0)
        )
        (super:init(rest param1))
    )


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

)
(instance public floTalker of Narrator
    (properties
        talkWidth 150
    )

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


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

)
(instance public beaTalker of Narrator
    (properties
        talkWidth 150
    )

    (method (init param1)
        = font gFont
        (send (= gSq5Win gNewSpeakWindow):
            tailX(172)
            tailY(59)
            xOffset(25)
            isBottom(1)
        )
        (super:init(rest param1))
    )


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

)
(instance rope of Prop
    (properties
        x 62
        y 64
        noun theMusic3
        view 567
        priority 12
        signal 16
    )

    (method (doVerb param1 param2)
        (switch (param1)
            (case 4
                (
                (if (not (send gRoom:script))
                    (send gRoom:setScript(sGrabRope))
                )
 )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance sGrabRope of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (RogersArm:startUpd()) = cycles 6  )
            )
            (case 1
                ((RogersArm:
                    loop(2)
                    cel(1)
                    x(38)
                    y(59)
                    setPri(15)
                )
 proc0_10(227 5) = seconds 3  )
            )
            (case 2
                ((send gSQ5:handsOn()) (send gRoom:newRoom(640)) )
            )
        )
    )

)
