--- a/hedgewars/uTeams.pas Tue Oct 29 23:08:10 2013 +0400
+++ b/hedgewars/uTeams.pas Tue Oct 29 23:47:57 2013 +0400
@@ -718,22 +718,21 @@
begin
if GearHidden <> nil then
Dispose(GearHidden);
-
+
FreeTexture(NameTagTex);
FreeTexture(HealthTagTex);
FreeTexture(HatTex);
end;
-
+
with TeamsArray[i]^ do
begin
FreeTexture(NameTagTex);
- FreeTexture(CrosshairTex);
FreeTexture(GraveTex);
FreeTexture(HealthTex);
FreeTexture(AIKillsTex);
FreeTexture(FlagTex);
end;
-
+
Dispose(TeamsArray[i]);
end;
for i:= 0 to Pred(ClansCount) do