hedgewars/uTeams.pas
changeset 601 78a68cc4d846
parent 576 35a1af355ada
child 602 f7628ebfccde
equal deleted inserted replaced
600:f6e5f4e122db 601:78a68cc4d846
   104        begin
   104        begin
   105        inc(AliveCount);
   105        inc(AliveCount);
   106        AliveClan:= ClansArray[t]
   106        AliveClan:= ClansArray[t]
   107        end;
   107        end;
   108 
   108 
   109 if AliveCount >= 2 then exit(false);
   109 if  (AliveCount > 1) or
       
   110    ((AliveCount = 1) and ((GameFlags and gfOneClanMode) <> 0)) then exit(false);
   110 CheckForWin:= true;
   111 CheckForWin:= true;
   111 
   112 
   112 TurnTimeLeft:= 0;
   113 TurnTimeLeft:= 0;
   113 if AliveCount = 0 then
   114 if AliveCount = 0 then
   114    begin // draw
   115    begin // draw