Protected sample player library

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|110\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Sound and Music

Teasy	Created : 10 August 2007 Edited : 10 August 2007 System : Windows Language : Blitz Protected sample player library Features customizable sound overlap prevention.
;------------------------------------------------------------------------------- ; * Protected sample player ; Version 2006 Oct 07 Rev 01 ;------------------------------------------------------------------------------- ; ; PlaySample Sample , TimeOut ; ; This function can prevent the same Sample from being played simultaneously. ; You can specify the minimum overlap (TimeOut) in milliseconds, where 0 ms is ; simultaneously. When playing the same Sample after the TimeOut, a new sound ; will overlap the already playing sound. Every call to PlaySample ; automatically updates all channels. ; Returns False when the sound to be played overlaps; no new sound is played. ; Otherwise returns the handle of the newly playing sound, like PlaySound(). ; ; UpdateChannels ; ; You can manually clean up idle channels using UpdateChannels, even though ; this is also done in PlaySample, and not really necessary. ; ; SoundOff ; ; You can force a total sound off using SoundOff. ; ; LoadSoundProtected( ; sFileName$, ; Looping=False, ; DefaultVolume#=-1, ; DefaultPanning#=-2, ; DefaultPitch#=-1 ; ) ; ; Safely validate and load a sound (with optional defaults). ; Causes an explicit RuntimeError on any errors during load. ;------------------------------------------------------------------------------- Type ActiveChannel Field ChannelHandle Field SoundHandle Field Created Field TimeOut ; How long to wait before being able to play same sound. End Type ;------------------------------------------------------------------------------- Function PlaySample ( SoundHandle , TimeOut = False ) Local FindChannel.ActiveChannel Local FoundChannel.ActiveChannel Local Playing = False Local PlayNew = False For FindChannel = Each ActiveChannel If ChannelPlaying ( FindChannel\ChannelHandle ) If FindChannel\SoundHandle = SoundHandle Playing = True FoundChannel = FindChannel End If Else Delete FindChannel End If Next If Playing If MilliSecs () - FoundChannel\Created >= FoundChannel\TimeOut PlayNew = True End If Else PlayNew = True End If If PlayNew FoundChannel = New ActiveChannel FoundChannel\Created = MilliSecs () FoundChannel\TimeOut = TimeOut FoundChannel\SoundHandle = SoundHandle FoundChannel\ChannelHandle = PlaySound ( SoundHandle ) Return FoundChannel\ChannelHandle End If End Function Function UpdateChannels () Local Channel.ActiveChannel For Channel = Each ActiveChannel If Not ChannelPlaying ( Channel\ChannelHandle ) Then Delete Channel Next End Function Function SoundOff () Local Channel.ActiveChannel For Channel = Each ActiveChannel StopChannel Channel\ChannelHandle Delete Channel Next End Function ; Validate and load a sound (with optional defaults) Function LoadSoundProtected( sFileName$ , Looping=False,DefaultVolume#=-1,DefaultPanning#=-2,DefaultPitch#=-1 ) Local hSound If FileType( sFileName ) <> 1 RuntimeError "LoadSound() - File not found:"+Chr(13)+sFileName EndIf hSound = LoadSound( sFileName ) If hSound = 0 RuntimeError "LoadSound() - Unable to load sample:"+Chr(13)+sFileName EndIf If Looping LoopSound hSound EndIf If DefaultVolume >= 0 And DefaultVolume <= 1 SoundVolume hSound , DefaultVolume EndIf If DefaultPanning >= -1 And DefaultPanning <= 1 SoundPan hSound , DefaultPanning EndIf If DefaultPitch > -1 SoundPitch hSound , DefaultPitch EndIf Return hSound End Function --v

Comments

Protected sample player library

Comments