Последовательная смена звука.
Всем привет. Вы спросите почему так долго не заходил ? А я отвечу : " Трафик дело серьёзное ))) " . Проект 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. Нет , я конечно могу склеить все эти звуки в один фаил , но душа не будет удовлетворена. Не очень хочется идти лёгким путём. Всё ж из-за этого четвертый раз код переписываю.
__________________
Самый первый и самый великий программист - это Бог.
|