hedgewars/uGearsList.pas
changeset 14027 105793e575d6
parent 14009 c28a4f76d37d
child 14217 ab5e710d353d
equal deleted inserted replaced
14026:31bdb759d98b 14027: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