Музыка

Вот у меня вопросик появился - сделать следущим образом:
есть папка - music, в ней храниться определенное количество файлов в .mp3 формате(количество меняеться)Так вот, как сделать, чтобы Блитц открывал все что там есть, и проигрывал в случайном порядке?

Тебе нужно посмотреть описание использования команды NextFile$ в хелпе или >здесь<.

[impersonalis]

SeedRnd(MilliSecs())

Global music_channel%
;Global counter

Function SelectRandMusic(DIR$)
	Local counter%=0
	Local channel
	Local dir_h%=ReadDir(DIR$)
	While True
 *file$=NextFile$(dir_h)
 *If Upper$(Right(file$,3))="MP3"
 *	counter=counter+1
 *EndIf
 *If file$="" Exit
	Wend
	CloseDir dir_h
	Print "files="+counter
	Local iR%=Rand(1,counter%)
	If Not counter Return False
	counter=0
	dir_h%=ReadDir(DIR$)
	While True
 *file$=NextFile$(dir_h)
 *If Upper$(Right(file$,3))="MP3" 
 *	counter=counter+1
 *	If counter%=iR
 * *Print "select - "+IR+" = "+file$
 * *channel=PlayMusic(DIR$+"\"+file$)
 *	Exit
 *	EndIf
 *EndIf
	Wend
	Return channel
End Function

SelectRandMusic("music")
While Not KeyHit(1)
Wend
End

[Жека]

Замечание: если содержимое папки МЬЮЗИК меняется только ДО (после) запуска игры, то лучше сделать массив, в котором хранить ПУТИ к файлам и с ним работать (как путь найти impersonalis разъяснил выше).
А то перебирать ВСЕ файлы поновой, чтоб что-то выбрать....

[impersonalis]

Originally posted by Жека@Sep 20 2005, 01:20 PM
Замечание: если содержимое папки МЬЮЗИК меняется только ДО (после) запуска игры, то лучше сделать массив, в котором хранить ПУТИ к файлам и с ним работать (как путь найти impersonalis разъяснил выше).
А то перебирать ВСЕ файлы поновой, чтоб что-то выбрать....

Не только по причине изменеия кол-ва файлов я использвоал этот алгоритм - кэшировать фоновую музыку это очччень накладно и неоправдано. На то пошло - надо юзать не массив, а типы.

[Жека]

Если файлов много, то возможны задержки при вызове функции.
Или нет?
Типы... Массив удобнее: PlayMysic (musicList$(Rand(MAX_KOLVO_MUSIC)))

Пусть Dizels использует типы, или весь твой код, а я буду массив!

[Diplomat]

Как насчет такого варианта.
Позволяет избежать тормозов в главном цикле цикле и знаменитых глюков команды PlayMusic за счет повышения времени загрузки.

Dir$="D:\KrutajaGama\Music" 
CheckDir=ReadDir(Dir$) 
File$="*"
NFiles=0
While File$<>""
   File$=NextFile$(CheckDir) 
   If FileType(Dir$+"\"+File$) = 1 Then NFiles=NFiles+1
Wend
CloseDir CheckDir 

Dim Music(NFiles)

CheckDir=ReadDir(Dir$) 
File$="*"
NFile=0
While File$<>""
   File$=NextFile$(CheckDir) 
   If FileType(Dir$+"\"+File$) = 1 Then Music(NFile)=LoadSound(Dir$+"\"+File$)
Wend
CloseDir CheckDir 

While Not KeyHit(1)
   If ChannelPlaying(ChnlMusic)=0 then ChnlMusic=PlaySound(Music(Rnd(NFiles)))
Wend
End

[Жека]

Diplomat, а сколько памяти ест музыка? Столько же, сколько на ХДД? Если у меня 20 треков, то это будет весить около 50-70 мб, и все это в память толкать?!

Не знаю как у вас, а у меня команда ChannelPlaying() тормозит, поэтому я вызываю ее 1 раз за 2-5 секунд, чаще смысла нет.
Тогда все ок, а если каждый раз при проходе цикла звать, то тормозит

Я массив так же "делаю", но вместо хендлов загоняю пути к файлам...

[Diplomat]

это будет весить около 50-70 мб, и все это в память толкать?!

Да, плата за скорость работы и гарантию отсутствия глюков с PlayMusic на другой машине...
А насчет памяти- то 70 метров- это перегиб. Ну пусть 5 треков МР3- это 50Мб максимум... При обьеме оперативы в 1Гиг (ну или даже 256Мб) это условие перестает играть каку-либо роль...
Другое дело, что длинный трек может грузиться 1-5 секунд, а это уже серьезный недостаток...

[SubZer0]

Originally posted by Жека@Sep 20 2005, 08:06 PM
а сколько памяти ест музыка?

музыка подвергается раскодировке в нормальный для звуковой карты формат, а именно ADPCM wav... и проверить сколько это будет весить можно например виндосовским менеджером задач

видимо воспроизводить потоково несудьба :o

[SubZer0]

Originally posted by jimon@Sep 20 2005, 08:33 PM
видимо воспроизводить потоково несудьба :o

а ты что, хочешь, чтоб игра еще тормозила из-за раскодировки??

по-моему было-бы глупо...

мдя... когда ты слушаеш winamp (или че там еще) и устанавливаеш прогу , сидиш в аське , мучаеш paint то у тебя музычка тормозит ?!

есть такое заветное слово - буферизация

притом я же неговорил декодировать музыку в блице - для етого есть нормальные либы bass.dll например )

[SubZer0]

Originally posted by jimon@Sep 20 2005, 09:17 PM
когда ты слушаеш winamp (или че там еще) и устанавливаеш прогу , сидиш в аське , мучаеш paint то у тебя музычка тормозит ?!

а, ну да, если игрушка у тя такая, что кушает ресурсов меньше чем пайнт, то тогда я молчу...

для раскодировки надо примерно 1-3 метра озу... может даже меньше (смотря какой буфер поставиш)