hedgewars/uTeams.pas
changeset 6990 40e5af28d026
parent 6982 8d41d22a291d
child 6992 b8f3d8991e92
--- a/hedgewars/uTeams.pas	Wed May 02 11:28:38 2012 +0200
+++ b/hedgewars/uTeams.pas	Wed May 02 10:53:13 2012 +0100
@@ -46,6 +46,7 @@
     s: shortstring;
     t, AliveCount, i, j: LongInt;
 begin
+CheckForWin:= false;
 AliveCount:= 0;
 for t:= 0 to Pred(ClansCount) do
     if ClansArray[t]^.ClanHealth > 0 then
@@ -54,9 +55,8 @@
         AliveClan:= ClansArray[t]
         end;
 
-if (AliveCount > 1)
-or ((AliveCount = 1) and ((GameFlags and gfOneClanMode) <> 0)) then
-    exit(false);
+if (AliveCount > 1) or ((AliveCount = 1) and ((GameFlags and gfOneClanMode) <> 0)) then
+    exit;
 CheckForWin:= true;
 
 TurnTimeLeft:= 0;