hedgewars/uGame.pas
changeset 3902 3aac7ca07b0e
parent 3663 8c28abf427f5
child 3904 22e4d74240e5
--- a/hedgewars/uGame.pas	Fri Sep 24 15:14:40 2010 -0400
+++ b/hedgewars/uGame.pas	Sat Sep 25 03:04:22 2010 +0200
@@ -26,7 +26,7 @@
 ////////////////////
    implementation
 ////////////////////
-uses uMisc, uConsts, uKeys, uTeams, uIO, uAI, uGears, uScript;
+uses uMisc, uConsts, uKeys, uTeams, uIO, uAI, uGears, uScript, uSound;
 
 procedure DoGameTick(Lag: LongInt);
 var i: LongInt;
@@ -65,7 +65,9 @@
                         SetBinds(CurrentTeam^.Binds);
                         //CurrentHedgehog^.Gear^.Message:= 0; <- produces bugs with further save restoring and demos
                         isSoundEnabled:= isSEBackup;
-                        GameType:= gmtLocal
+                        if isSoundEnabled then playMusic;
+                        GameType:= gmtLocal;
+                        InitIPC;
                         end;
                end
           else ProcessGears