--- a/hedgewars/uAIMisc.pas	Thu Jan 18 20:29:28 2007 +0000
+++ b/hedgewars/uAIMisc.pas	Sun Jan 21 19:51:02 2007 +0000
@@ -18,9 +18,9 @@
 
 unit uAIMisc;
 interface
-uses SDLh, uConsts, uGears;
+uses SDLh, uConsts, uGears, uFloat;
 {$INCLUDE options.inc}
-
+ {
 type TTarget = record
                Point: TPoint;
                Score: integer;
@@ -48,9 +48,9 @@
 
 var ThinkingHH: PGear;
     Targets: TTargets;
-
+                       }
 implementation
-uses uTeams, uMisc, uLand, uCollisions;
+{uses uTeams, uMisc, uLand, uCollisions;
 const KillScore = 200;
       MAXBONUS = 1024;
       
@@ -389,6 +389,6 @@
 begin
 if random(2) = 0 then Result:=   num
                  else Result:= - num
-end;
+end;  }
 
 end.