--- a/hedgewars/uAIAmmoTests.pas	Tue Jun 17 18:45:21 2008 +0000
+++ b/hedgewars/uAIAmmoTests.pas	Tue Jun 17 19:22:54 2008 +0000
@@ -192,7 +192,7 @@
 
 function TestMortar(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 const tDelta = 24;
-var Vx, Vy, r: hwFloat;
+var Vx, Vy: hwFloat;
     Score, EX, EY, Result: LongInt;
     TestTime: Longword;
 

--- 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;

--- a/hedgewars/uChat.pas	Tue Jun 17 18:45:21 2008 +0000
+++ b/hedgewars/uChat.pas	Tue Jun 17 19:22:54 2008 +0000
@@ -120,7 +120,7 @@
 procedure KeyPressChat(Key: Longword);
 const firstByteMark: array[1..4] of byte = (0, $C0, $E0, $F0);
 var i, btw: integer;
-    utf8, s: shortstring;
+    utf8: shortstring;
 begin
 if Key <> 0 then
 	case Key of