hedgewars/uTeams.pas
changeset 13457 2d787d122083
parent 13417 236cc4cf2448
child 13481 c265a3e6f6da
equal deleted inserted replaced
13456:7d69c5605a9d 13457:2d787d122083
   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