hedgewars/uCollisions.pas
changeset 74 42257fee61ae
parent 70 82d93eeecebe
child 107 b08ce0293a51
--- a/hedgewars/uCollisions.pas	Mon Jul 03 17:46:58 2006 +0000
+++ b/hedgewars/uCollisions.pas	Sat Jul 08 21:40:03 2006 +0000
@@ -49,7 +49,7 @@
 function TestCollisionXwithGear(Gear: PGear; Dir: integer): boolean;
 function TestCollisionYwithGear(Gear: PGear; Dir: integer): boolean;
 function TestCollisionY(Gear: PGear; Dir: integer): boolean;
-function TestCollisionXwithXYShift(Gear: PGear; ShiftX, ShiftY: integer; Dir: integer): boolean;
+function TestCollisionXwithXYShift(Gear: PGear; ShiftX, ShiftY: real; Dir: integer): boolean;
 function TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: integer; Dir: integer): boolean;
 
 implementation
@@ -131,7 +131,7 @@
    end
 end;
 
-function TestCollisionXwithXYShift(Gear: PGear; ShiftX, ShiftY: integer; Dir: integer): boolean;
+function TestCollisionXwithXYShift(Gear: PGear; ShiftX, ShiftY: real; Dir: integer): boolean;
 begin
 Gear.X:= Gear.X + ShiftX;
 Gear.Y:= Gear.Y + ShiftY;