hedgewars/uMisc.pas
changeset 188 a7c2a61524c2
parent 183 57c2ef19f719
child 196 993cf173218b
--- a/hedgewars/uMisc.pas	Thu Oct 05 18:44:14 2006 +0000
+++ b/hedgewars/uMisc.pas	Thu Oct 05 19:40:11 2006 +0000
@@ -37,7 +37,7 @@
     cCloudsNumber    : integer = 9;
     cConsoleHeight   : integer = 320;
     cConsoleYAdd     : integer = 0; 
-    cTimerInterval   : Cardinal = 5;
+    cTimerInterval   : Longword = 5;
     cScreenWidth     : integer = 1024;
     cScreenHeight    : integer = 768;
     cBits            : integer = 16;
@@ -50,11 +50,11 @@
 
     GameTicks     : LongWord = 0;
 
-    cSkyColor     : Cardinal = 0;
-    cWaterColor   : Cardinal = $005ACE;
-    cWhiteColor   : Cardinal = $FFFFFF;
-    cConsoleSplitterColor : Cardinal = $FF0000;
-    cColorNearBlack       : Cardinal = 16;
+    cSkyColor     : Longword = 0;
+    cWaterColor   : Longword = $005ACE;
+    cWhiteColor   : Longword = $FFFFFF;
+    cConsoleSplitterColor : Longword = $FF0000;
+    cColorNearBlack       : Longword = 16;
     cExplosionBorderColor : LongWord = $808080;
 
     cDrownSpeed   : Double = 0.06;
@@ -148,7 +148,7 @@
 if not Assert then OutError(SDL_GetError, isFatal)
 end;
 
-procedure AdjustColor(var Color: Cardinal);
+procedure AdjustColor(var Color: Longword);
 begin
 Color:= SDL_MapRGB(PixelFormat, (Color shr 16) and $FF, (Color shr 8) and $FF, Color and $FF)
 end;