hedgewars/uStore.pas
changeset 768 2886dafa5bcf
parent 766 cdc8f75ab7bc
child 769 788efc1d649f
--- a/hedgewars/uStore.pas	Sun Jan 27 18:39:02 2008 +0000
+++ b/hedgewars/uStore.pas	Sun Jan 27 19:29:00 2008 +0000
@@ -249,10 +249,10 @@
     WriteLnToConsole(msgOK);
     val(s, cExplosionBorderColor, c);
     TryDo(c = 0, 'Theme data corrupted', true);
-    cExplosionBorderColor:= SDL_MapRGB(LandSurface^.format,
-                                       cExplosionBorderColor shr 16,
-                                       cExplosionBorderColor shr 8,
-                                       cExplosionBorderColor and $FF);
+    cExplosionBorderColor:= (cExplosionBorderColor shr 16) or
+                            (cExplosionBorderColor and $FF) or
+                            (cExplosionBorderColor shl 16) or
+                            $FF000000
     end;
 
 begin