--- a/hedgewars/uAIMisc.pas	Tue Jun 17 18:45:21 2008 +0000
+++ b/hedgewars/uAIMisc.pas	Tue Jun 17 19:22:54 2008 +0000
@@ -54,7 +54,7 @@
 uses uTeams, uMisc, uLand, uCollisions;
 const KillScore = 200;
       MAXBONUS = 1024;
-      friendlyfactor: Longword = 300;
+      friendlyfactor: LongInt = 300;
 
 type TBonus = record
               X, Y: LongInt;