heres another one

[MNDRBNDR]

as copied from fmodtest

Code:

Const MusicFile = "dne_trtn.mod"
    Dim Shared Handle As Long


    If FSOUND_GetVersion <= FMOD_VERSION Then
          ErrorQuit "FMOD version " + STR$(FMOD_VERSION) + " or greater required"
    End If

    If FSOUND_Init(44100, 32, 0) = FALSE Then
          ErrorQuit "Can't initialize FMOD"
    End If

    Handle = FMUSIC_LoadSong(MusicFile)
    If Handle = FALSE Then
          ErrorQuit "Can't load music file " + CHR$(34) + MusicFile + CHR$(34)
    End if

    FMUSIC_PlaySong(Handle)

    Print "FMOD test for freeBASIC"
    Print
    Print "(press any key to quit)"

    Sleep

    FMUSIC_FreeSong(Handle)
    FSOUND_Close

    End

ok in my program i have this i know its not right but how do i fix this

if lev=1 then Const MusicFile = "l1.mid"
if lev=2 then const musicfile="l2.mid"

i get the error message duplicated definition musicfile
i know that it being a const its saying that there can only be one definition even though its within the if statement so how do i get it to accept both when lev=1 i want it to play l1.mid and when lev=2 play l2.mid??

[adosorken]

Two problems:

1. Constants can only be used once per label. Use a variable instead.
2. Last time I checked...FMOD doesn't support MIDI. Wtf? Did I miss something??

[MNDRBNDR]

sure does it can fmod can only play .mid and .mod files check it out

[adosorken]

It plays more module formats than .mod...it can also play .s3m .it and .xm, not sure about others. But when did it get MIDI support? This is news.

[MNDRBNDR]

not sure but it was just today that i finaly figured out how to add music to my programs and was playing around and stumbled onto it but either way it's cool