hedgewars/uGame.pas
branchexperimental3D
changeset 4343 19cbea33e4d2
parent 4075 f7412772f85d
child 4357 a1fcfc341a52
--- a/hedgewars/uGame.pas	Wed Oct 27 14:23:47 2010 +0200
+++ b/hedgewars/uGame.pas	Mon Nov 15 12:37:39 2010 +0100
@@ -26,7 +26,7 @@
 ////////////////////
    implementation
 ////////////////////
-uses uMisc, uConsts, uKeys, uTeams, uIO, uAI, uGears, uScript, uSound, uMobile;
+uses uMisc, uConsts, uKeys, uTeams, uIO, uAI, uGears, uScript, uSound, uMobile, uVisualGears;
 
 procedure DoGameTick(Lag: LongInt);
 var i: LongInt;
@@ -55,7 +55,11 @@
        NetGetNextCmd;
        if isInLag then
           case GameType of
-                gmtNet: break;
+                gmtNet: begin
+                        // just update the health bars
+                        AddVisualGear(0, 0, vgtTeamHealthSorter);
+                        break;
+                        end;
                gmtDemo: begin
                         GameState:= gsExit;
                         exit
@@ -67,7 +71,8 @@
                         isSoundEnabled:= isSEBackup;
                         if isSoundEnabled then playMusic;
                         GameType:= gmtLocal;
-                        InitIPC;
+                        AddVisualGear(0, 0, vgtTeamHealthSorter);
+                        {$IFDEF IPHONEOS}InitIPC;{$ENDIF}
                         perfExt_SaveFinishedSynching();
                         end;
                end