--- a/hedgewars/uCollisions.pas	Mon May 03 23:56:18 2010 +0000
+++ b/hedgewars/uCollisions.pas	Tue May 04 00:44:32 2010 +0000
@@ -49,7 +49,7 @@
 function  TestCollisionXwithXYShift(Gear: PGear; ShiftX: hwFloat; ShiftY: LongInt; Dir: LongInt): boolean;
 function  TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: LongInt; Dir: LongInt): boolean;
 
-function  calcSlopeTangent(Gear: PGear; collisionX, collisionY: LongInt; var deltaX, deltaY: LongInt; TestWord: LongWord): Boolean;
+function  calcSlopeTangent(Gear: PGear; collisionX, collisionY: LongInt; var outDeltaX, outDeltaY: LongInt; TestWord: LongWord): Boolean;
 
 implementation
 uses uMisc, uConsts, uLand, uLandGraphics;
@@ -315,7 +315,7 @@
 end;
 
 
-function calcSlopeTangent(Gear: PGear; collisionX, collisionY: LongInt; var deltaX, deltaY: LongInt; TestWord: LongWord): boolean;
+function calcSlopeTangent(Gear: PGear; collisionX, collisionY: LongInt; var outDeltaX, outDeltaY: LongInt; TestWord: LongWord): boolean;
 var ldx, ldy, rdx, rdy: LongInt;
     i, j, mx, my, li, ri, jfr, jto, tmpo : ShortInt;
     tmpx, tmpy: LongWord;
@@ -416,8 +416,8 @@
 
     if ((ldx = 0) and (ldy = 0)) then EXIT(false);
 
-deltaX:= ldx;
-deltaY:= ldy;
+outDeltaX:= ldx;
+outDeltaY:= ldy;
 exit(true);
 end;