hedgewars/uGears.pas
changeset 1428 0855275d443f
parent 1367 e1aaa1a4901f
child 1433 4af291d5d79c
--- a/hedgewars/uGears.pas	Sun Oct 26 17:39:33 2008 +0000
+++ b/hedgewars/uGears.pas	Sun Oct 26 17:41:03 2008 +0000
@@ -1262,9 +1262,10 @@
     ar: array[0..Pred(cMaxHHs)] of PGear;
     Count: Longword;
 begin
-if (GameFlags and gfForts) <> 0 then
+if (GameFlags and (gfForts or gfDivideTeams)) <> 0 then
 	begin
 	t:= 0;
+	TryDo(ClansCount = 2, 'More or less than 2 clans on map in divided teams mode!', true);
 	for p:= 0 to 1 do
 		begin
 		with ClansArray[p]^ do