hedgewars/uTeams.pas
changeset 6982 8d41d22a291d
parent 6963 0c181b88daff
child 6990 40e5af28d026
--- a/hedgewars/uTeams.pas	Tue May 01 20:54:30 2012 +0400
+++ b/hedgewars/uTeams.pas	Tue May 01 19:56:55 2012 +0200
@@ -39,7 +39,7 @@
 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug, uScript,
     uGearsUtils, uGearsList{$IFDEF SDL13}, uTouch{$ENDIF};
 
-const MaxTeamHealth: LongInt = 0;
+var MaxTeamHealth: LongInt;
 
 function CheckForWin: boolean;
 var AliveClan: PClan;
@@ -624,6 +624,7 @@
 LocalAmmo:= -1;
 GameOver:= false;
 NextClan:= true;
+MaxTeamHealth:= 0;
 end;
 
 procedure freeModule;