hedgewars/uTeams.pas
changeset 13647 7b506f1357e4
parent 13646 67d8f75f048d
child 13648 f606ca8b80fd
equal deleted inserted replaced
13646:67d8f75f048d 13647:7b506f1357e4
   282     if not PlacingHogs then // Reset  various things I mucked with
   282     if not PlacingHogs then // Reset  various things I mucked with
   283         begin
   283         begin
   284         for i:= 0 to ClansCount do
   284         for i:= 0 to ClansCount do
   285             if ClansArray[i] <> nil then
   285             if ClansArray[i] <> nil then
   286                 ClansArray[i]^.TurnNumber:= 0;
   286                 ClansArray[i]^.TurnNumber:= 0;
   287         ResetWeapons;
   287         ResetWeapons
   288         inc(TotalRounds)
       
   289         end
   288         end
   290     end
   289     end
   291 else
   290 else
   292     if TotalRounds <= -1 then
   291     if TotalRounds <= -1 then
   293         TotalRounds:= 0;
   292         TotalRounds:= 0;