Code: Alles auswählen
Procedure play(soundfile.s)
Protected name.s
Result = FMOD_System_CreateStream(system,@soundfile, #FMOD_SOFTWARE | #FMOD_2D | #FMOD_CreateSTREAM, 0, @sound) ; | #FMOD_2D | #FMOD_CreateSTREAM
FMOD_ErrCheck(Result, "CreateStream")
Result = FMOD_System_PlaySound(system, #FMOD_CHANNEL_FREE, sound, 0, @channel) ; | #FMOD_NONBLOCKING | #FMOD_ACCURATETIME
FMOD_ErrCheck(Result, "PlaySound")
name = "TITLE"
FMOD_Sound_GetTag(sound,@name,#Null,tag)
Debug tag\_data
Debug soundfile
EndProceduremfg deify