Тема: Звук
Показать сообщение отдельно
Старый 13.09.2007, 16:44   #11
jimon
 
Сообщений: n/a
Re: Звук

мне надоел етот балаган, на :
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. есно что можно написать заумно ... но пишу специально чтобы понятно было
 
Ответить с цитированием