// Example .aud file for "pinball" demo.
//
// Source code:   tut/pinball.c
// Documentation: tut/pinball.html
//
// Two FM tones, slightly detuned, beat against each other for the
// ball's sound;  soundfiles are played when the ball collides with things.

SetPrintCommands 0;

LoadDSO msgGroup.so;
LoadDSO samp.so;
LoadDSO fm.so;

hSample = Create SampleActor;
SetDirectory hSample ".";
SetAmp hSample .5;
LoadFile hSample "drip.aiff";

// Bumper

mBumper = Create MessageGroup;
AddMessage mBumper PlaySample hSample "drip.aiff";


// Randomizer

mRandomizer = Create MessageGroup;
AddMessage mRandomizer PlaySample hSample "drip.aiff";


// Accelerator

mAccelerator = Create MessageGroup;
AddMessage mAccelerator PlaySample hSample "drip.aiff";


// Ball -- height (*0) and vertical speed (*1)

mBall = Create MessageGroup;
hBall = Create FmActor;
nBall = BeginSound hBall SetAmp 0.1 SetCarFreq 440 SetCMratio .32;
AddMessage mBall SetModIndex nBall *1 .05;

SetPrintCommands 0;