--- a/hedgewars/uConsts.pas Sat Jan 26 10:55:34 2008 +0000
+++ b/hedgewars/uConsts.pas Sun Jan 27 13:23:57 2008 +0000
@@ -111,7 +111,7 @@
MAXNAMELEN = 32;
- COLOR_LAND = $FFFFFFF;
+ COLOR_LAND = $00FFFFFF;
cifRandomize = $00000001;
cifTheme = $00000002;
--- a/hedgewars/uLand.pas Sat Jan 26 10:55:34 2008 +0000
+++ b/hedgewars/uLand.pas Sun Jan 27 13:23:57 2008 +0000
@@ -313,9 +313,10 @@
end;
SDL_FreeSurface(tmpsurf);
+
tmpsurf:= SDL_CreateRGBSurfaceFrom(@Land, 2048, 1024, 32, 2048*4, RMask, GMask, BMask, 0);
SDLTry(tmpsurf <> nil, true);
-//SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, SDL_MapRGB(tmpsurf^.format, $FF, $FF, $FF));
+SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, SDL_MapRGB(tmpsurf^.format, $FF, $FF, $FF));
SDL_UpperBlit(tmpsurf, nil, Surface, nil);
SDL_FreeSurface(tmpsurf)
end;
@@ -527,7 +528,6 @@
TryDo(LandSurface <> nil, 'Error creating land surface', true);
SDL_FillRect(LandSurface, nil, 0);
AddProgress;
-
SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, 0);
AddObjects(tmpsurf, LandSurface);
SDL_FreeSurface(tmpsurf);
--- a/hedgewars/uWorld.pas Sat Jan 26 10:55:34 2008 +0000
+++ b/hedgewars/uWorld.pas Sun Jan 27 13:23:57 2008 +0000
@@ -375,7 +375,6 @@
r.h:= fpsTexture^.h;
DrawFromRect(cScreenWidth - 50, 10, @r, fpsTexture, Surface);
end
-// SDL_UpperBlit(fpsSurface, nil, Surface, @r)
end;
inc(SoundTimerTicks, Lag);