306 

   306 

   307     if not PlacingHogs then // Reset  various things I mucked with

   307     if not PlacingHogs then // Reset  various things I mucked with

   308         begin

   308         begin

   309         for i:= 0 to ClansCount do

   309         for i:= 0 to ClansCount do

   310             if ClansArray[i] <> nil then

   310             if ClansArray[i] <> nil then

   311                 ClansArray[i]^.TurnNumber:= 0;

   312                 ClansArray[i]^.TurnNumber:= 0;

   312         ResetWeapons

   315         ResetWeapons

   313         end;

   316         end;

   314 

   317 

   315     end;

   318     end;

   316 

   319 

   469     with team^.Clan^ do

   472     with team^.Clan^ do

   470         begin

   473         begin

   471         ClanIndex:= Pred(ClansCount);

   474         ClanIndex:= Pred(ClansCount);

   472         Color:= TeamColor;

   475         Color:= TeamColor;

   473         TagTeamIndex:= 0;

   476         TagTeamIndex:= 0;

   475         end

   480         end

   476     end

   481     end

   477 else

   482 else

   478     begin

   483     begin

   479     team^.Clan:= ClansArray[c];

   484     team^.Clan:= ClansArray[c];