Звук

[Crystal]

Мне надо бесконечно проигрывать звук если определённая переменная выше нуля.
Попробовал сделать так:

Global speedk1#=0
Global zvdvigk1
Global zvdvigk1z#=0

If zvdvigk1z#=1 Then
zvdvigk1=LoadSound("Data\sound\jet_loop.wav")
LoopSound zvdvigk1
PlaySound zvdvigk1
End If

If speedk1#>0 Then zvdvigk1z#=1
If speedk1#=0 Then zvdvigk1z#=0

Вопщем накладывает звук бесконечно.
Там такой резананс получается, что уши закладывает.

Что неправельно делаю? Как резананс убрать?

[Raiter]

Ппц. А не пробовал звук загружать перед началом цыкла, а не после ?

[Crystal]

Пробовал
неполучается чёто

До While Not KeyDown(1) звук играть нехочет
а если ставлю после то резонанс

[Crystal]

Вот упростил до опупения и запихал в самый верх кода

Global zvdvigk1=LoadSound("Data\sound\jet_loop.wav")
If speedk1#>0 Then LoopSound zvdvigk1
If speedk1#>0 Then PlaySound zvdvigk1

И если увеличиваю переменную speedk1 из функции звука не слышу.
Но если я изначально присвою переменной значение выше нуля то звук играет.

Вопрос:
Почему если увеличиваю переменную из функции музыка не играет?
Переменная увеличивается я её число на экран вывел.
Видно, что увеличивается.
Да и по кораблю движущемуся видно, что переменная выросла ибо эта переменная служит скоростью корабля.

Crystal
может потому что у тебя получается что speedk1 локальная ?
написание с заданием типа speedk1# только потверждает это

[Crystal]

Global speedk1#=0

Глобальная она

[Raiter]

Я так подозреваю, что и проверка :

If speedk1#>0 Then LoopSound zvdvigk1
If speedk1#>0 Then PlaySound zvdvigk1

у тебя перед цыклом стоит....

[Crystal]

Так о чём и речь! Сейчас поставил перед циклом потому, что если я ставлю после появляется дикий резонанс!

[IGR]

Так о чём и речь! Сейчас поставил перед циклом потому, что если я ставлю после появляется дикий резонанс!

и проверка и тебя перед цыклом ?? ужос !!
проверка должна быть в цыкле !!

[Crystal]

Короче если я ставлю под While Not KeyDown(1) то появляется резонанс.
Если я ставлю под RenderWorld то появляется резонанс.
Если я ставлю над While Not KeyDown(1) то естественно непашет.

мне надоел етот балаган, на :

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

[Crystal]

Как много кода!
Но работает! Спсибо!

а

if keyhit(28) then start_play = 1
if keyhit(57) then stop_play = 1

заменил на

If speedk1#>0 Then start_play = 1
If speedk1#=0 Then stop_play = 1

)

Хотя думаю ещё буду переделывать потому что мне надо код поменьше.