More tolerance to pas2c
authorunc0rr
Fri, 11 May 2012 23:22:01 +0400
changeset 7061 4e0fc59ab1ce
parent 7060 861d6897917f
child 7062 7efe16575779
More tolerance to pas2c
hedgewars/GSHandlers.inc
hedgewars/uGame.pas
hedgewars/uGears.pas
hedgewars/uSound.pas
--- a/hedgewars/GSHandlers.inc	Fri May 11 23:03:28 2012 +0400
+++ b/hedgewars/GSHandlers.inc	Fri May 11 23:22:01 2012 +0400
@@ -1156,8 +1156,8 @@
             end;
         if Gear^.Timer = 0 then
             begin
-            SendIPC('N');
-            SendIPC('q');
+            SendIPCc('N');
+            SendIPCc('q');
             GameState := gsExit
             end
     end;
--- a/hedgewars/uGame.pas	Fri May 11 23:03:28 2012 +0400
+++ b/hedgewars/uGame.pas	Fri May 11 23:22:01 2012 +0400
@@ -79,7 +79,7 @@
                         RestoreTeamsFromSave;
                         SetBinds(CurrentTeam^.Binds);
                         //CurrentHedgehog^.Gear^.Message:= 0; <- produces bugs with further save restoring and demos
-                        SetSound;   // restore previous sound state
+                        ResetSound;   // restore previous sound state
                         PlayMusic;
                         GameType:= gmtLocal;
                         AddVisualGear(0, 0, vgtTeamHealthSorter);
--- a/hedgewars/uGears.pas	Fri May 11 23:03:28 2012 +0400
+++ b/hedgewars/uGears.pas	Fri May 11 23:22:01 2012 +0400
@@ -446,7 +446,7 @@
     begin
     if (not CurrentTeam^.ExtDriven) then
         begin
-        SendIPC('#');
+        SendIPCc('#');
         AddFileLog('hiTicks increment message sent')
         end;
 
@@ -1161,7 +1161,7 @@
 begin
 s:= s; // avoid compiler hint
 if not CurrentTeam^.ExtDriven then
-    SendIPC(',');
+    SendIPCc(',');
 uStats.Skipped;
 skipFlag:= true
 end;
--- a/hedgewars/uSound.pas	Fri May 11 23:03:28 2012 +0400
+++ b/hedgewars/uSound.pas	Fri May 11 23:22:01 2012 +0400
@@ -40,7 +40,7 @@
 
 procedure InitSound;                            // Initiates sound-system if isSoundEnabled.
 procedure ReleaseSound(complete: boolean);      // Releases sound-system and used resources.
-procedure SetSound;                             // Reset sound state to the previous state.
+procedure ResetSound;                           // Reset sound state to the previous state.
 procedure SetSound(enabled: boolean);           // Enable/disable sound-system and backup status.
 
 // MUSIC
@@ -183,7 +183,7 @@
     ChangeVolume(cInitVolume);
 end;
 
-procedure SetSound;
+procedure ResetSound;
 begin
     isSoundEnabled:= isSEBackup;
 end;