hedgewars/uTeams.pas
changeset 601 78a68cc4d846
parent 576 35a1af355ada
child 602 f7628ebfccde
--- a/hedgewars/uTeams.pas	Tue Sep 18 19:52:46 2007 +0000
+++ b/hedgewars/uTeams.pas	Thu Sep 20 20:00:10 2007 +0000
@@ -106,7 +106,8 @@
        AliveClan:= ClansArray[t]
        end;
 
-if AliveCount >= 2 then exit(false);
+if  (AliveCount > 1) or
+   ((AliveCount = 1) and ((GameFlags and gfOneClanMode) <> 0)) then exit(false);
 CheckForWin:= true;
 
 TurnTimeLeft:= 0;