--- a/hedgewars/uCollisions.pas	Fri Sep 09 22:04:40 2011 +0400
+++ b/hedgewars/uCollisions.pas	Fri Sep 09 20:17:50 2011 +0200
@@ -44,6 +44,8 @@
 function  TestCollisionXKick(Gear: PGear; Dir: LongInt): boolean;
 function  TestCollisionYKick(Gear: PGear; Dir: LongInt): boolean;
 
+function  CountCollisionsX(Gear: PGear; Dir: LongInt): LongInt;
+
 function  TestCollisionX(Gear: PGear; Dir: LongInt): boolean;
 function  TestCollisionY(Gear: PGear; Dir: LongInt): boolean;
 
@@ -301,6 +303,27 @@
 Gear^.X:= Gear^.X - ShiftX;
 Gear^.Y:= Gear^.Y - int2hwFloat(ShiftY)
 end;
+
+function CountCollisionsX(Gear: PGear; Dir: LongInt): LongInt;
+var x, y, i, cnt: LongInt;
+begin
+cnt:= 0;
+x:= hwRound(Gear^.X);
+if Dir < 0 then x:= x - Gear^.Radius
+           else x:= x + Gear^.Radius;
+if (x and LAND_WIDTH_MASK) = 0 then
+   begin
+   y:= hwRound(Gear^.Y) - Gear^.Radius + 1;
+   i:= y + Gear^.Radius * 2 - 2;
+   repeat
+     if (y and LAND_HEIGHT_MASK) = 0 then
+        if Land[y, x] > 255 then inc(cnt);
+     inc(y)
+   until (y > i);
+   end;
+CountCollisionsX:= cnt
+end;
+
 function TestCollisionX(Gear: PGear; Dir: LongInt): boolean;
 var x, y, i: LongInt;
 begin