(version 2)
(include "sci.sh")
(exports
    0 slingr
)
(use "Main")
(use "Class_255_0")
(use "Sound")
(use "Cycle")
(use "Obj")
(script 784)



(instance public slingr of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:
                    cel(0)
                    cycleSpeed(1)
                )
                (if (proc0_12(0))
                    (send gEgo:
                        view(40)
                        setCycle(CT 
                            (if (< (send gEgo:loop) 2)
                                7
                            )(else
                                5
                            )
 1 self)
                    )
                )(else
                    (send gEgo:
                        view(41)
                        setCycle(CT 5 1 self)
                    )
                )
            )
            (case 1
                (slingSound:
                    init()
                    play()
                )
                (if (proc0_12(0))
                    (send gEgo:
                        cel(
                            (if (< (send gEgo:loop) 2)
                                8
                            )(else
                                6
                            )
)
                        setCycle(End)
                    )
                )(else
                    (send gEgo:setCycle(End))
                )
                = cycles 15
            )
            (case 2
                (if (((<= 56 gNumber) and (<= gNumber 72)) and not proc999_5(gNumber 63 65))
                    proc255_0(784 0)
                )(else
                    proc255_0(784 1)
                )
                (if (global140)
                    proc0_27()
                )
                proc0_3()
                proc0_1()
                (self:dispose())
            )
        )
    )

)
(instance slingSound of Sound
    (properties
        number 19
        priority 10
    )
)
