Музыка

Я вижу, что последняя строчка. Покажи тогда код, в котором ты вызываешь функцию, а не одну строчку этого кода.

[impersonalis]

Основной цикл здесь - цикл в котором выполняются ф-ции обновления и логики NPC а так же рендер и просчёт коллизий. Судя по результату - один файл играет - ты пишешь это не в главном цикле.

[Dizels]

Я понимаю, что я что-то делаю не так, но вот что именно - ни как не доходит. Вот еще раз ВЕСЬ код который у меня написан для воспроизведения музыки:

Graphics3D 1024,768,32,1
................
SeedRnd(MilliSecs())

Function UpdateMusic(channel)
If ChannelPlaying (channel) = 0 channel=SelectRandMusic("music")
Return channel
End Function

Function SelectRandMusic(DIR$)
Local counter%=0
Local channel%=0
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

channel=UpdateMusic(channel)
.............................
Flip
Wend
End

Вот!А теперь по поводу высказывания alcoSHoLiK'a мне кажеться, что именно он подобрался к сути вопроса - как вызывать функцию?Потомучто как мне казалось - строка

channel=UpdateMusic(channel)

как раз таки ее и вызывает!Объясните или дополните кодом.

[impersonalis]

while not keyhit(1)
......................
channel=UpdateMusic(channel)
.............................
Flip
Wend
End