Sorry your browser is not supported!

type TYPE_QUEUESOUND
   //id of the sound file
   soundID as integer
   //whether or not sound finished playing
   soundFinished as integer
   //whether or not sound started playing
   soundStarted as integer
   //whether or not we can increase background timer
   soundPauseTimer as integer
endtype

//counting variable
global queueSoundCount as integer
queueSoundCount = 0
//variable to store the current active index
global queueActiveIndex as integer
queueActiveIndex = -1
//array variable
global dim queueSounds[] as TYPE_QUEUESOUND

//function to add sound to queue
function AddSoundQueue(pID, pPauseTimer)
endfunction

//function to clear the queue and reset values to initial values
function ClearSoundQueue()
endfunction

//function to process sound queue
function UpdateSoundQueue()

   //update only if the sound count is greater than zero
   //and that active index does not match soundCount
   if queueSoundCount > 0 and ((queueActiveIndex = queueSoundCount) = 0)
        
      //get the ball started if the active index is -1 or sound has finished playing
      if queueActiveIndex = -1 or queueSounds[queueActiveIndex].soundFinished = 1
         queueActiveIndex = queueActiveIndex + 1
      endif

      //play sound if not playing
      if queueSounds[queueActiveIndex].soundStarted = 0         
         queueSounds[queueActiveIndex].soundStarted = 1
         PlaySound(queueSounds[queueActiveIndex].soundID)
      endif 

      //timer gets incremented in another function
      pauseTimer = queueSounds[queueActiveIndex].soundPauseTimer 

      //see if sound is finished
      if queueSounds[queueActiveIndex].soundStarted = 1         
         if GetSoundInstances(queueSounds[queueActiveIndex].soundID) = 0
             queueSounds[queueActiveIndex].soundFinished = 1
         endif
      endif   
    
   elseif queueActiveIndex = queueSoundCount
       //erase array and reset to zero
       ClearSoundQueue()
   endif

endfunction

type sound_type
    id as integer
    sequence as integer
endtype

numSounds = 3
dim mySounds[numSounds] as sound_type
mySounds[0].id = numSounds //a size counter for our array
mySounds[0].sequence = 1 // use this for keeping track of what sound to play

for i = 1 to mySounds[0]
    mySounds[i].id = LoadSound("a" + str(i) + ".wav")
    mySounds[i].sequence = i //the order of which they are played
next i

repeat
    HandleSounds()
    Sync()
until GetRawKeyPressed(27) = 1
END

function HandleSounds()
    soundIsPlaying = 0
    for i = 1 to mySounds[0].id
        if GetSoundsPlaying(mySounds[i].id) > 0
            soundIsPlaying = 1
        end
    next i

    if soundIsPlaying = 0
        soundToPlay = mySounds[0].sequence
        for i = 1 to mySounds[0].id
            if mySounds[i].sequence = soundToPlay
                soundIndex = i
                EXIT
            endif
        next i
        PlaySound(mySounds[soundIndex].id)
        //set the next sound to play
        mySounds[0].sequence = (mySounds[0].sequence , mySounds[0].id) + 1
    endif
endfunction