--- a/hedgewars/uLandGenPerlin.pas	Tue Nov 11 17:00:34 2014 -0500
+++ b/hedgewars/uLandGenPerlin.pas	Tue Nov 11 17:25:47 2014 -0500
@@ -171,8 +171,12 @@
             end;
             }
 
-            if r < rCutoff then Land[y, x]:= 0 else Land[y, x]:= lfObjMask;
-
+            if r < rCutoff then
+                Land[y, x]:= 0
+            else if param1 = 0 then
+                Land[y, x]:= lfObjMask
+            else
+                Land[y, x]:= lfBasic 
         end;
     end;