--- a/hedgewars/uConsts.pas Sat Jul 21 15:45:41 2007 +0000
+++ b/hedgewars/uConsts.pas Sat Jul 21 16:35:12 2007 +0000
@@ -330,6 +330,7 @@
(FileName: 'Switch'; Path: ptGraphics; AltPath: ptNone; Surface: nil;
Width: 32; Height: 32; hasAlpha: false) // sprSwitch
);
+
Soundz: array[TSound] of record
FileName: String[31];
Path : TPathType;
--- a/hedgewars/uLand.pas Sat Jul 21 15:45:41 2007 +0000
+++ b/hedgewars/uLand.pas Sat Jul 21 16:35:12 2007 +0000
@@ -298,7 +298,7 @@
var tmpsurf: PSDL_Surface;
r: TSDL_Rect;
begin
-tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/LandTex', false, true, true);
+tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/LandTex', false, true, false);
r.y:= 0;
while r.y < 1024 do
begin
--- a/hedgewars/uStore.pas Sat Jul 21 15:45:41 2007 +0000
+++ b/hedgewars/uStore.pas Sat Jul 21 16:35:12 2007 +0000
@@ -302,10 +302,8 @@
GetSkyColor;
AddProgress;
-tmpsurf:= LoadImage(Pathz[ptGraphics] + '/' + cHHFileName, false, true, true);
-TryDo(SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true);
-HHSurface:= SDL_DisplayFormat(tmpsurf);
-SDL_FreeSurface(tmpsurf);
+
+HHSurface:= LoadImage(Pathz[ptGraphics] + '/' + cHHFileName, true, true, true);
InitHealth;