--- a/hedgewars/uLand.pas	Fri Feb 27 21:40:13 2009 +0000
+++ b/hedgewars/uLand.pas	Sun Mar 01 17:24:25 2009 +0000
@@ -642,7 +642,12 @@
     for y:= 0 to Pred(tmpsurf^.h) do
         begin
         for x:= 0 to Pred(tmpsurf^.w) do
-            Land[cpY + y, cpX + x]:= p^[x];
+            begin
+            if (($FF000000 and p^[x]) = 0) then  // Tiy was having trouble generating transparent black
+                Land[cpY + y, cpX + x]:= 0
+            else    
+                Land[cpY + y, cpX + x]:= p^[x];
+            end;
         p:= @(p^[tmpsurf^.pitch div 4]);
         end;