equal
deleted
inserted
replaced
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 DeleteGear(Gear); |
857 DeleteGearStage(Gear, true); |
858 if GearHidden <> nil then |
858 if GearHidden <> nil then |
859 DeleteGear(GearHidden); |
859 DeleteGearStage(GearHidden, true); |
860 |
860 |
861 FreeAndNilTexture(NameTagTex); |
861 FreeAndNilTexture(NameTagTex); |
862 FreeAndNilTexture(HealthTagTex); |
862 FreeAndNilTexture(HealthTagTex); |
863 FreeAndNilTexture(HatTex) |
863 FreeAndNilTexture(HatTex) |
864 end; |
864 end; |