[RBK]

Простой перебор звуков.

snd_1=LoadSound("sound\10BEET1.WAV")
snd_2=LoadSound("sound\10BEET2.WAV")
snd_3=LoadSound("sound\10BEET3.WAV")
snd_4=LoadSound("sound\10BEET4.WAV")

ch=0
snd_v=0

While Not KeyDown(1)

If KeyDown(57) And snd_v=0 Then snd_v=1

If snd_v>0
	Select(snd_v)
		Case 1:
			ch=PlaySound(snd_1)
			snd_v=2
		Case 2:
			If ChannelPlaying(ch)=0
				ch=PlaySound(snd_2)
				snd_v=3
			End If
		Case 3:
			If ChannelPlaying(ch)=0
				ch=PlaySound(snd_3)
				snd_v=4
			End If
		Case 4:
			If ChannelPlaying(ch)=0
				ch=PlaySound(snd_4)
				snd_v=5
			End If
		Case 5:
			If ChannelPlaying(ch)=0
				snd_v=0
			End If
	End Select
End If

Wend
End