# HG changeset patch
# User unc0rr
# Date 1201440237 0
# Node ID 23aaafa40b4e47bc38aa4b36e9232c0e8590b4a0
# Parent  8da05b316d813008fc58839f0b3f34e1587b8e7b
Now land texture renders properly

diff -r 8da05b316d81 -r 23aaafa40b4e hedgewars/uConsts.pas
--- 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;
diff -r 8da05b316d81 -r 23aaafa40b4e hedgewars/uLand.pas
--- 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);
diff -r 8da05b316d81 -r 23aaafa40b4e hedgewars/uWorld.pas
--- 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);