(version 2)
(include "sci.sh")
(exports
    0 sOpeningCredits
)
(use "Main")
(use "View")
(use "Obj")
(script 32)


(local
    local0
    local1
    local2
    local3[16] = (790 790 791 792 793 794 795 796 796 796 796 797 797 797 798 799 )
    local19[16] = (1 2 1 1 1 1 1 1 2 3 4 1 2 3 1 1 )
    local35
    local36

)
(instance public sOpeningCredits of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                = seconds 10
            )
            (case 1
                = local35 local3[global132]
                = local36 local19[global132]
                (creditTitle:
                    view(local35)
                    setCel(0)
                    setPri(15)
                    setStep(5 5)
                    setScale(10)
                    setScale()
                    init()
                    hide()
                )
                = cycles 1
            )
            (case 2
                = local0 10
                (while (< local0 129)
                    Animate((send gOldCast:elements) 1)
                    (creditTitle:
                        scaleX(local0)
                        scaleY(local0)
                        show()
                    )
                    = local0 (+ local0 12)
                )
                = cycles 1
            )
            (case 3
                (creditTitle:stopUpd())
                (creditView:
                    view(local35)
                    setCel(local36)
                    setPri(15)
                    setStep(5 5)
                    setScale(10)
                    setScale()
                    init()
                    hide()
                )
                = cycles 1
            )
            (case 4
                = local1 10
                (while (< local1 129)
                    Animate((send gOldCast:elements) 1)
                    (creditView:
                        scaleX(local1)
                        scaleY(local1)
                        show()
                    )
                    = local1 (+ local1 12)
                )
                = cycles 1
            )
            (case 5
                ++global132
                = cycles 20
            )
            (case 6
                (creditTitle:startUpd())
                = local0 129
                (while (> local0 1)
                    Animate((send gOldCast:elements) 1)
                    (creditTitle:
                        scaleX(local0)
                        scaleY(local0)
                        show()
                    )
                    (creditView:
                        scaleX(local0)
                        scaleY(local0)
                    )
                    = local0 (- local0 12)
                )
                = cycles 1
            )
            (case 7
                (creditView:dispose())
                (creditTitle:dispose())
                UnLoad(128 local35)
                (if (== global132 16)
                    proc0_4(52)
                )
                (self:dispose())
            )
        )
    )

)
(instance creditTitle of Actor
    (properties
        x 160
        y 190
        z 138
        noun 1
        view 790
        priority 14
        signal $5010
    )

    (method (doVerb theVerb)
        (if (proc999_5(theVerb 1 4 2))
            (send gFpMessager:say(noun theVerb 0 0 0 32))
        )(else
            (send gFpMessager:say(noun 0 1 0 0 32))
        )
    )

)
(instance creditView of Actor
    (properties
        x 160
        y 190
        z 80
        noun 2
        view 790
        priority 14
        signal $5010
    )

    (method (doVerb theVerb)
        (if (proc999_5(theVerb 1 4 2))
            (send gFpMessager:say(noun theVerb 0 0 0 32))
        )(else
            (send gFpMessager:say(noun 0 1 0 0 32))
        )
    )

)
