hedgewars/uTeams.pas
changeset 4514 c62e6e522849
parent 4480 fcada5d38b3d
child 4881 35e6269227b6
--- a/hedgewars/uTeams.pas	Mon Dec 13 01:24:06 2010 +0100
+++ b/hedgewars/uTeams.pas	Sun Dec 12 20:17:00 2010 -0500
@@ -379,7 +379,7 @@
         begin
         MaxTeamHealth:= NewTeamHealthBarWidth;
         RecountAllTeamsHealth;
-        end else NewTeamHealthBarWidth:= (NewTeamHealthBarWidth * cTeamHealthWidth) div MaxTeamHealth
+        end else if NewTeamHealthBarWidth > 0 then NewTeamHealthBarWidth:= (NewTeamHealthBarWidth * cTeamHealthWidth) div MaxTeamHealth
     end;
 
 RecountClanHealth(team^.Clan);