[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дет.

Код:

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 провинился, какова задача, может можно простыми оськиными прибамбасасми обойтись, типа

Код:

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;

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