--- a/hedgewars/uConsts.pas	Sat Jan 27 14:06:29 2007 +0000
+++ b/hedgewars/uConsts.pas	Sat Jan 27 14:18:33 2007 +0000
@@ -66,8 +66,8 @@
 
      THHFont    = record
                   Handle: PTTF_Font;
-                  Height: integer;
-                  style: integer;
+                  Height: LongInt;
+                  style: LongInt;
                   Name: string[15];
                   end;
 
@@ -175,7 +175,7 @@
       posCaseAmmo    = $00000001;
       posCaseHealth  = $00000002;
 
-      NoPointX = Low(Integer);
+      NoPointX = Low(LongInt);
 
       cHHFileName   = 'Hedgehog';
       cCHFileName   = 'Crosshair';
@@ -238,7 +238,7 @@
                      FileName: String[31];
                      Path, AltPath: TPathType;
                      Surface : PSDL_Surface;
-                     Width, Height: integer;
+                     Width, Height: LongInt;
                      hasAlpha: boolean;
                      end = (
                      (FileName: 'BlueWater'; Path: ptGraphics; AltPath: ptNone; Surface: nil;