54 procedure ResumeMusic; |
54 procedure ResumeMusic; |
55 procedure StopSound(snd: TSound); |
55 procedure StopSound(snd: TSound); |
56 function ChangeVolume(voldelta: LongInt): LongInt; |
56 function ChangeVolume(voldelta: LongInt): LongInt; |
57 function AskForVoicepack(name: shortstring): Pointer; |
57 function AskForVoicepack(name: shortstring): Pointer; |
58 |
58 |
59 |
59 {*remember: LongInt = 32bit; integer = 16bit; byte = 8bit*} |
60 function openal_init (memsize: LongInt) : boolean; cdecl; external OpenALBridge; |
60 function openal_init (memsize: LongInt) : boolean; cdecl; external OpenALBridge; |
61 function openal_close : boolean; cdecl; external OpenALBridge; |
61 function openal_close : boolean; cdecl; external OpenALBridge; |
62 function openal_loadfile (filename: PChar) : LongInt; cdecl; external OpenALBridge; |
62 function openal_loadfile (filename: PChar) : LongInt; cdecl; external OpenALBridge; |
63 function openal_toggleloop (index: LongInt) : boolean; cdecl; external OpenALBridge; |
63 function openal_toggleloop (index: LongInt) : boolean; cdecl; external OpenALBridge; |
64 function openal_setvolume (index: LongInt; percentage: byte) : boolean; cdecl; external OpenALBridge; |
64 function openal_setvolume (index: LongInt; percentage: byte) : boolean; cdecl; external OpenALBridge; |
65 function openal_fadeout (index: LongInt; quantity: LongInt) : boolean; cdecl; external OpenALBridge; |
65 function openal_setglobalvolume (percentage: byte) : boolean; cdecl; external OpenALBridge; |
66 function openal_fadein (index: LongInt; quantity: LongInt) : boolean; cdecl; external OpenALBridge; |
66 function openal_fadeout (index: LongInt; quantity: integer) : boolean; cdecl; external OpenALBridge; |
|
67 function openal_fadein (index: LongInt; quantity: integer) : boolean; cdecl; external OpenALBridge; |
|
68 function openal_fade (index: LongInt; quantity: integer; direction: byte) : boolean; cdecl; external OpenALBridge; |
67 function openal_playsound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
69 function openal_playsound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
68 function openal_pausesound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
70 function openal_pausesound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
69 function openal_stopsound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
71 function openal_stopsound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
70 function openal_setglobalvolume (percentage: byte) : boolean; cdecl; external OpenALBridge; |
|
71 |
72 |
72 var MusicFN: shortstring = ''; |
73 var MusicFN: shortstring = ''; |
73 |
74 |
74 implementation |
75 implementation |
75 |
76 |