[ined]

Над названием я почти не думал, но думаю игра получилась довольно занятной
Это моя 1ая игра которая доведена, ну или почти доведена до ума.
Скачать с google диска
Скачать с delphisources
Описание

[M.A.D.M.A.N.]

Хоть бы скрины кинул и описание игры дал, а то вдруг там малварь в архиве, а ты фейк.

[ined]

Сообщение от M.A.D.M.A.N.

Хоть бы скрины кинул и описание игры дал, а то вдруг там малварь в архиве, а ты фейк.

А фейк, это типо не я? )

[ined]

Игра написана на Delphi 2010. Использовал OpenGL и WinApi. Файлы *.t3d содержат подготовленное изображение и сжаты zLIBом. Модуль zLIB урезаный, по этому EXE файл маленький.

[M.A.D.M.A.N.]

Ну дак накиай скринов-то, ёпть

[ined]

Вроде разобрался )) Добавил 1 скрин. А ссылки на pp.vk... не меняются просто я от туда картинку взял точнее ссылку на неё? )

[ined]

Странно. 62 просмотра и никто больше ничего не писал. Ладно, начну доделывать своё полимино.
Подскажите. Звуковые эффекты в чём лучше делать или куда копать.
OpenAL проста в использовании? Если да, то можно короткий примерчик от гуру. Или ссылочку.

[M.A.D.M.A.N.]

Сообщение от ined

Странно. 62 просмотра и никто больше ничего не писал. Ладно, начну доделывать своё полимино.
Подскажите. Звуковые эффекты в чём лучше делать или куда копать.
OpenAL проста в использовании? Если да, то можно короткий примерчик от гуру. Или ссылочку.

думаю тупого snd_play_sound() вполне хватит.
https://msdn.microsoft.com/ru-ru/lib...(v=vs.85).aspx

[ined]

Сообщение от M.A.D.M.A.N.

думаю тупого snd_play_sound() вполне хватит.
https://msdn.microsoft.com/ru-ru/lib...(v=vs.85).aspx

snd_play_sound, я как понял из прочитанных статей, форумов микшировать не может. А я скорей всего столкнусь с этой проблемой. А реализовывать миксер, я не уверен что пойму как.

Может есть ещё варианты?

[M.A.D.M.A.N.]

А в чем проблема микширования? Звук — это массив байт, со значениями от -1 до 1. Микшировать можно просто суммируя массивы.

[ined]

Сообщение от M.A.D.M.A.N.

А в чем проблема микширования? Звук — это массив байт, со значениями от -1 до 1. Микшировать можно просто суммируя массивы.

Разве суммируя. Может усреднение или от максимального значения. Просто если суммировать то (250byte+20byte=14byte) Эм.... Или я что-то не понимаю) Если честно я думал над этим, но как это работает до конца не понимаю.
Если использовать такой пример:

sndPlaySound(Pointer(tada), SND_MEMORY Or SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);

Он будет повторяться постоянно. то в процессе его работы я могу изменять массив данных и будет изменяться звук по мере чтения массива? Если да то мне нужно понять как лучше настроить заголовок и какой выбрать кусок исполнения(буфер). И как мне понять в каком положении находится чтение если мне нужно что-то микшировать.

[M.A.D.M.A.N.]

Сообщение от ined

Разве суммируя. Может усреднение или от максимального значения. Просто если суммировать то (250byte+20byte=14byte) Эм.... Или я что-то не понимаю) Если честно я думал над этим, но как это работает до конца не понимаю.
Если использовать такой пример:
Он будет повторяться постоянно. то в процессе его работы я могу изменять массив данных и будет изменяться звук по мере чтения массива? Если да то мне нужно понять как лучше настроить заголовок и какой выбрать кусок исполнения(буфер). И как мне понять в каком положении находится чтение если мне нужно что-то микшировать.

За пределы - и -1 не вы1дет.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure Mix(Buffer,First,Second : PChar; Count : LongInt); assembler; {       процедура смешивает два массива данных First и Second и помещает} {       результат в Buffer. Элементы массивов имеют размер WORD         } {       Count -- Число элеменов в ОДНОМ массиве, т.е. Buffer имеет длину} {       2*Count элементов}   {       EAX - Buffer       } {       EDX - First        } {       ECX - Second       } {       Count -- в стеке   } asm         PUSH    EBX         PUSH    ESI         PUSH    EDI         MOV     EDI,EAX     // Buffer помещен в EDI -- индексный регистр приемника         MOV     ESI,ECX     // Second помещен в ESI -- индексный регистр источника         MOV     ECX,Count   // Count помещен в ECX         XCHG    ESI,EDX     // смена источника -- теперь First @@Loop:         MOVSW              // пересылка слова из First/Second в Buffer и инкремент индексов         XCHG    ESI,EDX    // смена источника         LOOP    @@Loop     // декремент ECX и проверка условия выхода ECX = 0           POP     EDI         POP     ESI         POP     EBX end;

[ined]

А что если использовать Waveform Audio, очень хорошо описано тут
Скорей всего мне придётся подгонять звуки под 1 формат. Ну это не беда. )

[M.A.D.M.A.N.]

Можешь тут глянуть: http://www.delphisources.ru/pages/so...generator.html
Тоже вывод в директ аудио. А вообще, могу еще посоветовать bass.dll

[Alegun]

Извнс, увж. кол., но всёже bass это искуситель, таскать с собой чужой байткод - это зло, а чем обычный MAPI MCI провинился, какова задача, может можно простыми оськиными прибамбасасми обойтись, типа

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure SendMCICommand(Cmd: string); var RetVal: Integer; ErrMsg: array[0..254] of char; begin RetVal := mciSendString(PChar(Cmd), nil, 0, 0); if RetVal <> 0 then begin    mciGetErrorString(RetVal, ErrMsg, 255);    MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0); end; end;   procedure TForm1.Button1Click(Sender: TObject);   begin SendMCICommand('open waveaudio shareable'); SendMCICommand('play "C:\1.wav"'); SendMCICommand('play "C:\2.wav"'); SendMCICommand('close waveaudio'); end;

крутятся два звука одновременно