sounds in code ?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

CrazyFrog

''Create_Audio_Samples()

''Function Create_Audio_Samples()
Local fr:Long=14000
Local f:Long
Local k:Long

fr=frt[0]
Global sample_000:TAudioSample=CreateAudioSample( 32,fr,SF_MONO8 )
For k=0 Until 32
f=0
If k>15 Then f=127
sample_000.samples[k]=f
Next
Global Sound_000:TSound=LoadSound( sample_000,True )

fr=frt[1]
Global sample_001:TAudioSample=CreateAudioSample( 32,fr,SF_MONO8 )
For k=0 Until 32
f=0
If k>15 Then f=127
sample_001.samples[k]=f
Next
Global Sound_001:TSound=LoadSound( sample_001,True )

fr=frt[2]
Global sample_002:TAudioSample=CreateAudioSample( 32,fr,SF_MONO8 )
For k=0 Until 32
f=0
If k>15 Then f=127
sample_002.samples[k]=f
Next
Global Sound_002:TSound=LoadSound( sample_002,True )

fr=frt[3]
Global sample_003:TAudioSample=CreateAudioSample( 32,fr,SF_MONO8 )
For k=0 Until 32
f=0
If k>15 Then f=127
sample_003.samples[k]=f
Next
Global Sound_003:TSound=LoadSound( sample_003,True )