diff -r 96c3154efee5 -r a7c2a61524c2 hedgewars/uMisc.pas --- 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;