В общем, использую музыку в *.MID через PlayMusic
Примерно вот так:
function PlMus()
select RND(1,2)
case 1
ChanMus=PlayMusic("Sound1.mid")
case 2
ChanMus=PlayMusic("Sound2.mid")
end select
end function
В цикле:
If ChannelPlaying(ChanMus)=0 Then PlMus()
Т.е., по уму, если в Цикле музыка уже (или еще) не проигрывается, то переходим в ф-цию, устанавливаем случ. композицию и все. А пока она играет, ChannelPlaying=1 и в Цикле она ее не вызывает. Но проблема в том, что музыка играет, но все жутко начинает тормозить. Все из-за ChannelPlaying, когда я просто в начале проги запускал PlayMusic, то ничего не тормозило. Может кто знает, где я не прав?
