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

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

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

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

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

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

   887                 begin

   887                 begin

   888                 step:= stChDmg;

   888                 step:= stChDmg;

   889                 TurnTimeLeft:= 0

   890                 TurnTimeLeft:= 0

   890                 end

   891                 end

   891             end

   892             end

   892         end

   893         end

   893     end;

   894     end;

   913                     dec(TurnTimeLeft)

   914                     dec(TurnTimeLeft)

   914                 end;

   915                 end;

   915 

   916 

   916 if skipFlag then

   917 if skipFlag then

   917     begin

   918     begin

   918     TurnTimeLeft:= 0;

   920     TurnTimeLeft:= 0;

   919     skipFlag:= false;

   921     skipFlag:= false;

   920     inc(CurrentHedgehog^.Team^.stats.TurnSkips);

   922     inc(CurrentHedgehog^.Team^.stats.TurnSkips);

   921     end;

   923     end;

   922 

   924