Проект (нужны советы).

[Fatalix3d]

Имею несколько звуковых файлов (щебетания птиц, шум листвы, и т.д) так вот как проигрывать их поочередно, и с определенным интервалом. Blitz юзаю недавно так что не пинайте если вопрос где то поднимался.

Еще вопрос про звук при ходьбе и KeyDown звук накладывается на себя, а при KeyHit проигрывается всего раз не подскажите реализацию оного.

[ABTOMAT]

Скрин кошерен! Тени - лайтмап? Или PSSM (если Xors?) Глоу какой? Ашадов? Фаст Екст? Свой? Дай побегать =)

Насчёт поочерёжных звуков я бы сделал так.
Массив с хендлами звуков, с моментами времени с последнего старта и интервал.

const N=10
Dim AmbientSnds[N,2]

AmbientSnds[0,0]=LoadSound(...) ; хендл
AmbientSnds[0,1]=10000 ; интервал

далее в обработке

For i=0 to N
    If AmbientSnds[i,0]<> 0 then ; Если звука нет то обрабатывать уже нечего, выходим
        If AmbientSnds[i,1]+AmbientSnds[i,2]<Millisecs() then 
             PlaySound(AmbientSnds[i,0])
             AmbientSnds[i,2] = Millisecs()
        end if
    else
        exit
    end if
next

Еще вопрос про звук при ходьбе и KeyDown звук накладывается на себя

Потому что каждый тик (читай: примерно 60 раз в секунду) звук проигрывается заново (потому что нажата клавиша). Естественно получается какофония. Решение - те же интервалы. Перечитай мой код и попробуй подстроить его под ходьбу.
З.Ы. Ток не копипасть код, я его даже не проверял, в браузере набрал

[cahekp]

Блин, классный скриншот!
И ты Blitz3D, говоришь, недавно начал изучать? Не верю!
По поводу звуков - АВТОМАТ уже все сказал.

[Baisangur]

Тени ФастЕкст стопудофф =)

[SKA_DIMKA]

Да ну ребят это же элементарно на счет звука...

Global Ambient_chl, Ambient_snd
Ambient_snd=LoadSound("sound\Ambient.mp3")


If Not ChannelPlaying (Ambient_chl) Then
Ambient_chl=PlaySound (Ambient_snd)
EndIf

Вопщем если перевести то когда нет звука в канале "Ambient_chl" начинается воспроизводится звук "Ambient_snd" и без всяких интервалов

так же можно это использовать и при нажатии клавиш к примеру ходьбы)

[Damp]

Не, лучше циклить по времени. И чтоб луп имел плавное наростание громкости вначале и спад в конце, fade in/fade out, тогда будет незаметен переход.

[ABTOMAT]

Да решений-то много... кстати если

If Not ChannelPlaying (Ambient_chl) Then
Ambient_chl=PlaySound (Ambient_snd)
EndIf

То например птицы будут щебетать не умолкая, а вдруг надо чтобы это происходило раз в N сек?

[Fatalix3d]

Вот спасибо за советы! Тени FastEx конечно (отличные тени) Будут вопросы буду писать в эту ветку дабы не засорять форум глупыми вопросами.

P.s "поект" - вот я грамотей!)

[ABTOMAT]

P.s "поект" - вот я грамотей!)

исправил

[Slepetc]

Знаю, что не в тему, но раз уж подняли тему, то птицы преимущественно со случайными перерывами.
Поэтому бы вот так изменил код:

const N=10
Dim AmbientSnds[N,3]

AmbientSnds[0,0]=LoadSound(...) ; хендл
AmbientSnds[0,1]=10000 ; к интервалу будет добавляться случайное число в пределах этого
AmbientSnds[0,1]=0 ;обязательный интервал

For i=0 to N
    If AmbientSnds[i,0]<> 0 then ; Если звука нет то обрабатывать уже нечего, выходим
        If rand(AmbientSnds[i,1])+AmbientSnds[i,3]+AmbientSnds[i,2]<Millisecs() then 
             PlaySound(AmbientSnds[i,0])
             AmbientSnds[i,2] = Millisecs()
        end if
    else
        exit
    end if
next

З.Ы. не знаю, может где-то ошибки, давно не работал с Блитцем.

[ken park]

подскажите о_О как сделать такое свечение с неба, как на скриншоте... меня это ооочень радует...

[Dzirt]

Гмммм...тебе это еще рановато,но не мне решать)
1. Можеш подключить библиотеку Ashadow(http://andreyman.ucoz.ru) к Blitz3d
2. Можеш подключить библиотеку Fastext http://www.fastlibs.com к Blitz3d
3.Наконец зделать сам.Но скорее всего результат будет первым словом третего пункта.Но поробуй (http://www.forum.boolean.name/showthread.php?t=8445)

[ken park]

а как при создании игры допустим, подключать ? или они сами как бе будут?

[Dzirt]

Внутри прилагаются семплы и справки.По ним все можно розобрать.

[ABTOMAT]

Лучше сначала изучи простой Blitz3D, а то в глюках утонешь.