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: integer) : boolean; cdecl; external OpenALBridge; |
68 function openal_fadeout (index: LongInt; quantity: SmallInt) : boolean; cdecl; external OpenALBridge; |
69 function openal_fadein (index: LongInt; quantity: integer) : boolean; cdecl; external OpenALBridge; |
69 function openal_fadein (index: LongInt; quantity: SmallInt) : boolean; cdecl; external OpenALBridge; |
70 function openal_fade (index: LongInt; quantity: integer; direction: boolean) : boolean; cdecl; external OpenALBridge; |
70 function openal_fade (index: LongInt; quantity: SmallInt; direction: boolean) : boolean; cdecl; external OpenALBridge; |
71 function openal_playsound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
71 function openal_playsound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
72 function openal_pausesound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
72 function openal_pausesound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
73 function openal_stopsound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
73 function openal_stopsound (index: LongInt) : boolean; cdecl; external OpenALBridge; |
74 |
74 |
75 var MusicFN: shortstring = ''; |
75 var MusicFN: shortstring = ''; |
83 lastChan: array [TSound] of LongInt; |
83 lastChan: array [TSound] of LongInt; |
84 voicepacks: array[0..cMaxTeams] of TVoicepack; |
84 voicepacks: array[0..cMaxTeams] of TVoicepack; |
85 defVoicepack: PVoicepack; |
85 defVoicepack: PVoicepack; |
86 Mus: LongInt = 0; |
86 Mus: LongInt = 0; |
87 |
87 |
88 function AskForVoicepack(name: shortstring): Pointer; |
88 function AskForVoicepack(name: shortstring): PVoicepack; |
89 var i: Longword; |
89 var i: Longword; |
90 begin |
90 begin |
91 i:= 0; |
91 i:= 0; |
92 while (voicepacks[i].name <> name) and (voicepacks[i].name <> '') do |
92 while (voicepacks[i].name <> name) and (voicepacks[i].name <> '') do |
93 begin |
93 begin |