What am I not understanding about all this?
Type SongDatabase
Song01
Song02
Song03
Song04
Song05
Song06
Song07
EndType
LoadSong as SongDatabase
LoadSong.Song01 = LoadMusic ( "Song01.mp3" )
LoadSong.Song02 = LoadMusic ( "Song02.mp3" )
LoadSong.Song03 = LoadMusic ( "Song03.mp3" )
LoadSong.Song04 = LoadMusic ( "Song04.mp3" )
LoadSong.Song05 = LoadMusic ( "Song05.mp3" )
LoadSong.Song06 = LoadMusic ( "Song06.mp3" )
LoadSong.Song07 = LoadMusic ( "Song07.mp3" )
Function MusicPlayer ()
Song = Random ( 1, 7 )
If Song = 1
PlayMusic ( LoadSong.Song01 )
EndIf
Endfunction