883             for i:= 0 to Pred(ClansCount) do

   883             for i:= 0 to Pred(ClansCount) do

   884                 if ClansArray[i]^.ClanHealth > 0 then inc(AliveCount);

   884                 if ClansArray[i]^.ClanHealth > 0 then inc(AliveCount);

   885             if (AliveCount <= 1) and ((GameFlags and gfOneClanMode) = 0) then

   885             if (AliveCount <= 1) and ((GameFlags and gfOneClanMode) = 0) then

   886                 begin

   886                 begin

   887                 step:= stChDmg;

   887                 step:= stChDmg;

   889                 TurnTimeLeft:= 0

   888                 TurnTimeLeft:= 0

   890                 end

   889                 end

   891             end

   890             end

   892         end

   891         end

   893     end;

   892     end;