hedgewars/uLand.pas
changeset 8011 ffd5eba8f7c2
parent 8010 195677b0d06b
child 8025 07862ab415c8
child 8026 4a4f21070479
--- a/hedgewars/uLand.pas	Wed Nov 07 21:47:00 2012 -0500
+++ b/hedgewars/uLand.pas	Wed Nov 07 23:04:29 2012 -0500
@@ -582,8 +582,10 @@
 procedure GenMap;
 var x, y, w, c: Longword;
     usermap, usermask, map, mask: shortstring;
+    maskOnly: boolean;
 begin
     hasBorder:= false;
+    maskOnly:= false;
 
     LoadThemeConfig;
 
@@ -601,6 +603,7 @@
             if (not(FileExists(usermap)) and FileExists(usermask)) or
                (not(FileExists(map)) and FileExists(mask)) then
                 begin
+                maskOnly:= true;
                 LoadMask;
                 GenLandSurface
                 end
@@ -693,7 +696,7 @@
 if (GameFlags and gfDisableGirders) <> 0 then
     hasGirders:= false;
 
-if ((GameFlags and gfForts) = 0) and (Pathz[ptMapCurrent] = '') then
+if (GameFlags and gfForts = 0) and (maskOnly or (Pathz[ptMapCurrent] = '')) then
     AddObjects
     
 else