hedgewars/uTeams.pas
changeset 9656 18422d205080
parent 9655 e154ccca4dad
child 9685 7d925e82e572
equal deleted inserted replaced
9655:e154ccca4dad 9656:18422d205080
   726 
   726 
   727         with TeamsArray[i]^ do
   727         with TeamsArray[i]^ do
   728             begin
   728             begin
   729             FreeTexture(NameTagTex);
   729             FreeTexture(NameTagTex);
   730             FreeTexture(GraveTex);
   730             FreeTexture(GraveTex);
   731             FreeTexture(HealthTex);
       
   732             FreeTexture(AIKillsTex);
   731             FreeTexture(AIKillsTex);
   733             FreeTexture(FlagTex);
   732             FreeTexture(FlagTex);
   734             end;
   733             end;
   735 
   734 
   736         Dispose(TeamsArray[i]);
   735         Dispose(TeamsArray[i]);
   737     end;
   736     end;
   738 for i:= 0 to Pred(ClansCount) do
   737     for i:= 0 to Pred(ClansCount) do
   739     Dispose(ClansArray[i]);
   738         begin
       
   739         FreeTexture(ClansArray[i]^.HealthTex);
       
   740         Dispose(ClansArray[i]);
       
   741         end
   740     end;
   742     end;
   741 TeamsCount:= 0;
   743 TeamsCount:= 0;
   742 ClansCount:= 0;
   744 ClansCount:= 0;
   743 end;
   745 end;
   744 
   746