--- a/hedgewars/uTeams.pas Tue Oct 29 23:47:57 2013 +0400
+++ b/hedgewars/uTeams.pas Wed Oct 30 00:18:10 2013 +0400
@@ -728,15 +728,17 @@
begin
FreeTexture(NameTagTex);
FreeTexture(GraveTex);
- FreeTexture(HealthTex);
FreeTexture(AIKillsTex);
FreeTexture(FlagTex);
end;
Dispose(TeamsArray[i]);
end;
-for i:= 0 to Pred(ClansCount) do
- Dispose(ClansArray[i]);
+ for i:= 0 to Pred(ClansCount) do
+ begin
+ FreeTexture(ClansArray[i]^.HealthTex);
+ Dispose(ClansArray[i]);
+ end
end;
TeamsCount:= 0;
ClansCount:= 0;