(include "sci.sh")
(use "Main")
(use "Scaler")
(use "Cycle")
(use "Sounds")
(use "View")
(use "Obj")
(script 802)


(local
    local0 = 65535

)
(instance public rm802 of Rm
    (properties
        noun 14
        picture 48
        style 10
    )

    (method (init param1)
        (super:init(rest param1))
        (send gSq5Music1:
            number(37)
            loop(-1)
            play()
        )
        (lever1:addToPic())
        (lever2:addToPic())
        (hand1:addToPic())
        (hand2:addToPic())
        (goliath:addToPic())
        (panel1:addToPic())
        (panel2:addToPic())
        (panel3:addToPic())
        (arm:addToPic())
        (self:setScript(doAnimation))
    )

)
(instance doAnimation of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= seconds 2  )
            )
            (case 1
                ((send gTestMessager:say(14 0 1 0 self))  )
            )
            (case 2
                ((send gSQ5:handsOn())  )
            )
            (case 3
                ((send gSQ5:handsOff()) (send gRoom:drawPic(134)) = cycles 3  )
            )
            (case 4
                ((pod:
                    init()
                    setScale(Scaler 182 100 189 121)
                    setMotion(MoveTo 216 123 self)
                )
  )
            )
            (case 5
                ((pod:setCycle(CT 7 1 self))  )
            )
            (case 6
                ((pod:setScale(Scaler 100 18 123 99)) 
                (switch (local0)
                    (case 0
                        ((pod:setMotion(MoveTo 227 98 self))  )
                    )
                    (case 1
                        ((pod:setMotion(MoveTo 171 107 self))  )
                    )
                    (case 2
                        ((pod:setMotion(MoveTo 201 104 self)) )
                    )
                )
  )
            )
            (case 7
                ((pod:setCycle(End self))  )
            )
            (case 8
                ((send gRoom:drawPic(135 32778)) (pod:
                    view(711)
                    loop(0)
                    cel(0)
                    x(160)
                    y(144)
                    setScale(Scaler 100 77 144 116)
                )
 = seconds 3  )
            )
            (case 9
                ((send gSq5Music2:
                    number(106)
                    loop(1)
                    play()
                )
 (pod:setCycle(End self))  )
            )
            (case 10
                ((pod:setMotion(MoveTo 160 134 self))  )
            )
            (case 11
                ((send gSq5Music2:
                    number(233)
                    loop(1)
                    play()
                )
 = seconds 2  )
            )
            (case 12
                ((send gRoom:newRoom(800)) )
            )
        )
    )

)
(instance pod of Actor
    (properties
        x 150
        y 189
        view 655
        signal 24576
        scaleSignal 5
    )
)
(instance goliath of View
    (properties
        x 145
        y 65486
        z 65436
        view 698
        priority 5
        signal 20496
    )
)
(instance panel1 of View
    (properties
        x 199
        y 44
        noun 16
        view 698
        loop 1
        priority 15
        signal 24592
    )

    (method (doVerb param1 param2)
        (if (== param1 4)
            = local0 0
            proc0_3(68)
            (doAnimation:cue())
        )(else
            (super:doVerb(param1 rest param2))
        )
    )

)
(instance panel2 of View
    (properties
        x 109
        y 46
        noun 17
        view 698
        loop 1
        cel 1
        priority 15
        signal 24592
    )

    (method (doVerb param1 param2)
        (if (== param1 4)
            = local0 1
            proc0_2(68)
            (doAnimation:cue())
        )(else
            (super:doVerb(param1 rest param2))
        )
    )

)
(instance panel3 of View
    (properties
        x 163
        y 46
        noun 18
        view 698
        loop 1
        cel 2
        priority 15
        signal 16400
    )

    (method (doVerb param1 param2)
        (if (== param1 4)
            = local0 2
            proc0_3(68)
            (doAnimation:cue())
        )(else
            (super:doVerb(param1 rest param2))
        )
    )

)
(instance lever1 of View
    (properties
        x 54
        y 135
        noun 20
        view 270
        cel 1
        signal 16384
    )
)
(instance lever2 of View
    (properties
        x 270
        y 135
        noun 1
        view 270
        loop 1
        cel 1
        signal 16384
    )
)
(instance hand1 of View
    (properties
        y 125
        view 270
        cel 2
        priority 15
        signal 16400
    )
)
(instance hand2 of View
    (properties
        x 322
        y 124
        view 270
        loop 1
        cel 2
        priority 15
        signal 16400
    )
)
(instance arm of View
    (properties
        x 319
        y 27
        noun 2
        view 269
        priority rm802
        signal 20496
    )
)
