hedgewars/uGearsList.pas
changeset 14006 105793e575d6
parent 13988 c28a4f76d37d
child 14196 ab5e710d353d
equal deleted inserted replaced
14005:31bdb759d98b 14006:105793e575d6
   789 begin
   789 begin
   790 
   790 
   791 ScriptCall('onGearDelete', gear^.uid);
   791 ScriptCall('onGearDelete', gear^.uid);
   792 
   792 
   793 DeleteCI(Gear);
   793 DeleteCI(Gear);
       
   794 RemoveFromProximityCache(Gear);
   794 
   795 
   795 FreeAndNilTexture(Gear^.Tex);
   796 FreeAndNilTexture(Gear^.Tex);
   796 
   797 
   797 // remove potential links to this gear
   798 // remove potential links to this gear
   798 // currently relevant to: gears linked by hammer
   799 // currently relevant to: gears linked by hammer