--- a/hedgewars/uWorld.pas	Thu Aug 10 22:19:35 2006 +0000
+++ b/hedgewars/uWorld.pas	Fri Aug 11 16:17:50 2006 +0000
@@ -82,7 +82,7 @@
 var i, t: integer;
     r: TSDL_Rect;
     team: PTeam;
-    tdx, tdy: real;
+    tdx, tdy: Double;
 
     procedure DrawRepeated(spr: TSprite; Shift: integer);
     var i, w: integer;