(version 2)
(include "sci.sh")
(use "Sound")
(script 959)



(class QSnd of Sound
    (properties
        nodePtr 0
        handle 0
        flags $0000
        number 0
        vol 127
        priority 0
        loop 1
        signal $0000
        prevSignal 0
        dataInc 0
        min 0
        sec 0
        frame 0
        client 0
        owner 0
    )

    (method (check)
        (var temp0, theSignal, temp2[100])
        DoSound(sndUPDATE_CUES self)
        (if ((== signal -1) or (<u signal 128))
            return 
                (if (signal)
                    = prevSignal signal
                    = signal 0
                    (if (IsObject(client))
                        (send client:cue(self))
                    )
                )(else
                    0
                )
        )
        (while (<> (= theSignal signal) prevSignal)
            (if (IsObject(client))
                = temp0 (- theSignal 
                    (if (prevSignal)
                    )(else
                        127
                    )
)
                (while (temp0)
                    (send client:cue(self))
                    --temp0
                )
            )
            = prevSignal theSignal
        )
        = signal 0
        return 1
    )

)
