hedgewars/uTeams.pas
changeset 13452 2d787d122083
parent 13412 236cc4cf2448
child 13476 c265a3e6f6da
equal deleted inserted replaced
13451:7d69c5605a9d 13452: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