hedgewars/uGears.pas
changeset 11005 71927bdb776a
parent 10866 c1f75780c56f
child 11022 e09a7280b856
equal deleted inserted replaced
11004:bd62cdbea391 11005:71927bdb776a
   721     ar: array[0..Pred(cMaxHHs)] of PHedgehog;
   721     ar: array[0..Pred(cMaxHHs)] of PHedgehog;
   722     Count: Longword;
   722     Count: Longword;
   723 begin
   723 begin
   724 if (GameFlags and gfPlaceHog) <> 0 then
   724 if (GameFlags and gfPlaceHog) <> 0 then
   725     PlacingHogs:= true;
   725     PlacingHogs:= true;
   726 if (GameFlags and gfDivideTeams) <> 0 then
   726 if (ClansCount = 2) and ((GameFlags and gfDivideTeams) <> 0) then
   727     begin
   727     begin
   728     t:= 0;
   728     t:= 0;
   729     TryDo(ClansCount = 2, 'More or less than 2 clans on map in divided teams mode!', true);
   729     TryDo(ClansCount = 2, 'More or less than 2 clans on map in divided teams mode!', true);
   730     for p:= 0 to 1 do
   730     for p:= 0 to 1 do
   731         begin
   731         begin