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