hedgewars/uTeams.pas
changeset 13482 c265a3e6f6da
parent 13454 2d787d122083
child 13504 c41b16ac2e05
equal deleted inserted replaced
13481:2a0df4705849 13482:c265a3e6f6da
   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         inc(TotalRounds)
   292         end
   292         end
   293     end;
   293     end
       
   294 else
       
   295     if TotalRounds <= -1 then
       
   296         TotalRounds:= 0;
   294 
   297 
   295 inc(CurrentTeam^.Clan^.TurnNumber);
   298 inc(CurrentTeam^.Clan^.TurnNumber);
   296 with CurrentTeam^.Clan^ do
   299 with CurrentTeam^.Clan^ do
   297     for t:= 0 to Pred(TeamsNumber) do
   300     for t:= 0 to Pred(TeamsNumber) do
   298         with Teams[t]^ do
   301         with Teams[t]^ do