Последовательная смена звука.

[Ganociy]

Всем привет. Вы спросите почему так долго не заходил ? А я отвечу : " Трафик дело серьёзное ))) " . Проект ZomBox не заброшен , а полсностью переживает смену кода . Вот как раз и вопрос выше .
Вот значить мне нужно последовательно сменять звуки перезарядки у автомата ))) . Вот код:

Dim Chmag(3); Выделяю 3 ячейки массива для переменной ChMag
For f=1 To 3
Chmag(f)=LoadSound("Data\Sounds\Player\sg552_chm"+ f+".wav"); Загружаю три звука
Next

;В главном цикле
If reloading=1 ; Перезарядка = 1 , то
TiChMag1#=TiChMag1#+.1
If TiChMag1#>5 Then TiChMag1#=0 PlaySound (Chmag(Rnd (1,3)))
EndIf

Так вот как сделать так, что бы происходила последовательная смена звука , а не случайная ?

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

[Nex]

Наверно так?

If reloading=1 then
   TiChMag1#=TiChMag1#+.1
       If TiChMag1#>5 Then
          TiChMag1#=0
             For i=1 To 3 
                PlaySound Chmag (i)
             Next
       EndIf
EndIf 


[Ganociy]

Хммм... SkyDream , проигрывает последовательно , но быстро. подряд 3 раза одни и тежи звуки.

[impersonalis]

про ChannelPlaying забыли

[FireOwl]

Может так?

If reloading=1 Then 
   TiChMag1#=TiChMag1#+.1 
   If TiChMag1#=5 Then PlaySound Chmag(1)
   If TiChMag1#=10 Then PlaySound Chmag(2)
   If TiChMag1#=15 Then PlaySound Chmag(3): TiChMag1#=0
EndIf 

Но лучше всего через Channel's.

[Ganociy]

А можно по подробнее через каналы ?)