hedgewars/uTeams.pas
changeset 13459 38f9097b6bbc
parent 13454 2d787d122083
child 13482 c265a3e6f6da
equal deleted inserted replaced
13450:d79795acaa73 13459:38f9097b6bbc
   285     if not PlacingHogs then // Reset  various things I mucked with
   285     if not PlacingHogs then // Reset  various things I mucked with
   286         begin
   286         begin
   287         for i:= 0 to ClansCount do
   287         for i:= 0 to ClansCount do
   288             if ClansArray[i] <> nil then
   288             if ClansArray[i] <> nil then
   289                 ClansArray[i]^.TurnNumber:= 0;
   289                 ClansArray[i]^.TurnNumber:= 0;
   290         ResetWeapons
   290         ResetWeapons;
       
   291         inc(TotalRounds)
   291         end
   292         end
   292     end;
   293     end;
   293 
   294 
   294 inc(CurrentTeam^.Clan^.TurnNumber);
   295 inc(CurrentTeam^.Clan^.TurnNumber);
   295 with CurrentTeam^.Clan^ do
   296 with CurrentTeam^.Clan^ do