(version 2)
(include "sci.sh")
(exports
    0 fiddler
    1 fiddleSound
)
(use "Main")
(use "Class_255_0")
(use "Sound")
(use "Cycle")
(use "Obj")
(script 782)



(instance public fiddler of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (fiddleSound:
                    number(42)
                    loop(1)
                    init()
                    play()
                )
                (send gEgo:
                    view(
                        (if (proc0_12(0))
                            32
                        )(else
                            55
                        )
)
                    cycleSpeed(1)
                    setCycle(Fwd)
                )
                = seconds 2
            )
            (case 1
                proc255_0(782 0)
                = seconds 4
            )
            (case 2
                (fiddleSound:fade())
                (if (== gNumber 79)
                    proc255_0(782 1)
                )(else
                    (if ((== gNumber 58) and proc0_12(88))
                        proc255_0(782 2)
                    )(else
                        proc255_0(782 3)
                    )
                )
                proc0_3()
                proc0_1()
                (send gEgo:loop(2))
                (self:dispose())
            )
        )
    )

)
(instance public fiddleSound of Sound
    (properties
        priority 10
    )
)
