hedgewars/uTeams.pas
changeset 10646 0be6442946b1
parent 10643 8d6063af793a
child 10665 b57c328c6794
equal deleted inserted replaced
10645:b8c73bacb31e 10646:0be6442946b1
   851     for i:= 0 to Pred(TeamsCount) do
   851     for i:= 0 to Pred(TeamsCount) do
   852         begin
   852         begin
   853         for h:= 0 to cMaxHHIndex do
   853         for h:= 0 to cMaxHHIndex do
   854             with TeamsArray[i]^.Hedgehogs[h] do
   854             with TeamsArray[i]^.Hedgehogs[h] do
   855                 begin
   855                 begin
   856                 if Gear <> nil then
   856 //                if Gear <> nil then
   857                     DeleteGearStage(Gear, true);
   857 //                    DeleteGearStage(Gear, true);
   858                 if GearHidden <> nil then
   858                 if GearHidden <> nil then
   859                     DeleteGearStage(GearHidden, true);
   859                     Dispose(GearHidden);
       
   860 //                    DeleteGearStage(GearHidden, true);
   860 
   861 
   861                 FreeAndNilTexture(NameTagTex);
   862                 FreeAndNilTexture(NameTagTex);
   862                 FreeAndNilTexture(HealthTagTex);
   863                 FreeAndNilTexture(HealthTagTex);
   863                 FreeAndNilTexture(HatTex)
   864                 FreeAndNilTexture(HatTex)
   864                 end;
   865                 end;