hedgewars/uSound.pas
branchwebgl
changeset 8833 c13ebed437cb
parent 8444 75db7bb8dce8
parent 8678 fb62d23c70f8
child 9127 e350500c4edb
--- a/hedgewars/uSound.pas	Wed Feb 20 02:21:58 2013 +0100
+++ b/hedgewars/uSound.pas	Tue Apr 02 21:00:57 2013 +0200
@@ -105,12 +105,13 @@
 function  AskForVoicepack(name: shortstring): Pointer;
 
 
+var Volume: LongInt;
+    SoundTimerTicks: Longword;
 implementation
 uses uVariables, uConsole, uCommands, uDebug, uPhysFSLayer;
 
 const chanTPU = 32;
-var Volume: LongInt;
-    cInitVolume: LongInt;
+var cInitVolume: LongInt;
     previousVolume: LongInt; // cached volume value
     lastChan: array [TSound] of LongInt;
     voicepacks: array[0..cMaxTeams] of TVoicepack;
@@ -262,14 +263,14 @@
         begin
         locName:= name+'_'+cLocale;
         path:= cPathz[ptVoices] + '/' + locName;
-        if DirectoryExists(path) then
+        if pfsExists(path) then
             name:= locName
         else
             if Length(cLocale) > 3 then
                 begin
                 locName:= name+'_'+Copy(cLocale,1,2);
                 path:= cPathz[ptVoices] + '/' + locName;
-                if DirectoryExists(path) then
+                if pfsExists(path) then
                     name:= locName
                 end
         end;
@@ -712,6 +713,7 @@
     isAudioMuted:= false;
     isSEBackup:= isSoundEnabled;
     Volume:= 0;
+    SoundTimerTicks:= 0;
     defVoicepack:= AskForVoicepack('Default');
 
     for i:= Low(TSound) to High(TSound) do