мне надоел етот балаган, на :
global sndWave=LoadSound("Data\sound\jet_loop.wav")
LoopSound sndWave
global chnWave
global play
global start_play
global stop_play
while not keyhit(1)
if keyhit(28) then start_play = 1
if keyhit(57) then stop_play = 1
if start_play = 1 and play = 0 then
chnWave=PlaySound(sndWave)
start_play = 0
play = 1
end if
if stop_play = 1 and play = 1 then
StopChannel chnWave
stop_play = 0
play = 0
end if
wend
нажми ентер - начнется проигровать
нажми пробел - перестанет проигровать
ps. писал в браузере то мож че нето ... подправиш
ps2. есно что можно написать заумно ... но пишу специально чтобы понятно было