diff -r 0e4e0db79e2a -r b9ca1bfca24f hedgewars/uCollisions.pas
--- a/hedgewars/uCollisions.pas	Tue Jan 26 04:13:37 2010 +0000
+++ b/hedgewars/uCollisions.pas	Tue Jan 26 21:55:51 2010 +0000
@@ -30,21 +30,24 @@
 			Count: Longword
 			end;
 
+procedure init_uCollisions;
+procedure free_uCollisions;
+
 procedure AddGearCI(Gear: PGear);
 procedure DeleteCI(Gear: PGear);
 
-function CheckGearsCollision(Gear: PGear): PGearArray;
+function  CheckGearsCollision(Gear: PGear): PGearArray;
 
-function TestCollisionXwithGear(Gear: PGear; Dir: LongInt): boolean;
-function TestCollisionYwithGear(Gear: PGear; Dir: LongInt): boolean;
+function  TestCollisionXwithGear(Gear: PGear; Dir: LongInt): boolean;
+function  TestCollisionYwithGear(Gear: PGear; Dir: LongInt): boolean;
 
-function TestCollisionXKick(Gear: PGear; Dir: LongInt): boolean;
-function TestCollisionYKick(Gear: PGear; Dir: LongInt): boolean;
+function  TestCollisionXKick(Gear: PGear; Dir: LongInt): boolean;
+function  TestCollisionYKick(Gear: PGear; Dir: LongInt): boolean;
 
-function TestCollisionY(Gear: PGear; Dir: LongInt): boolean;
+function  TestCollisionY(Gear: PGear; Dir: LongInt): boolean;
 
-function TestCollisionXwithXYShift(Gear: PGear; ShiftX: hwFloat; ShiftY: LongInt; Dir: LongInt): boolean;
-function TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: LongInt; Dir: LongInt): boolean;
+function  TestCollisionXwithXYShift(Gear: PGear; ShiftX: hwFloat; ShiftY: LongInt; Dir: LongInt): boolean;
+function  TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: LongInt; Dir: LongInt): boolean;
 
 implementation
 uses uMisc, uConsts, uLand, uLandGraphics, uConsole;
@@ -55,9 +58,9 @@
 			end;
 
 const MAXRECTSINDEX = 511;
-var Count: Longword = 0;
-	cinfos: array[0..MAXRECTSINDEX] of TCollisionEntry;
-	ga: TGearArray;
+var Count: Longword;
+    cinfos: array[0..MAXRECTSINDEX] of TCollisionEntry;
+    ga: TGearArray;
 
 procedure AddGearCI(Gear: PGear);
 begin
@@ -309,4 +312,14 @@
 Gear^.Y:= Gear^.Y - int2hwFloat(ShiftY)
 end;
 
+procedure init_uCollisions;
+begin
+	Count:= 0;
+end;
+
+procedure free_uCollisions;
+begin
+
+end;
+
 end.