hedgewars/uGearsUtils.pas
changeset 13920 f9d135768d17
parent 13915 9954f9b800f5
child 13921 b6248c4c2f23
equal deleted inserted replaced
13919:b95074eb8d57 13920:f9d135768d17
  1052         Gear:= nil
  1052         Gear:= nil
  1053         end
  1053         end
  1054     end
  1054     end
  1055 end;
  1055 end;
  1056 
  1056 
  1057 function CheckGearNearImpl(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt, exclude: PGear): PGear;
  1057 function CheckGearNearImpl(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt; exclude: PGear): PGear;
  1058 begin
  1058 begin
  1059     var t: PGear;
  1059     var t: PGear;
  1060     width, dX, dY: hwFloat;
  1060     width, dX, dY: hwFloat;
  1061     bound: LongInt;
  1061     bound: LongInt;
  1062     isHit: Boolean;
  1062     isHit: Boolean;