hedgewars/uLandGenMaze.pas
changeset 10477 b219c5a2317f
parent 10389 2f5941a05656
child 10494 0eb97cf4c78e
--- a/hedgewars/uLandGenMaze.pas	Sun Nov 09 14:33:31 2014 -0500
+++ b/hedgewars/uLandGenMaze.pas	Sun Nov 09 14:58:43 2014 -0500
@@ -8,7 +8,7 @@
 
 implementation
 
-uses uRandom, uLandOutline, uLandTemplates, uVariables, uFloat, uConsts, uLandGenTemplateBased;
+uses uRandom, uLandOutline, uLandTemplates, uVariables, uFloat, uConsts, uLandGenTemplateBased, uUtils;
 
 type direction = record x, y: LongInt; end;
 const DIR_N: direction = (x: 0; y: -1);
@@ -317,25 +317,31 @@
     0: begin
         cellsize := small_cell_size;
         maze_inverted := false;
+        minDistance:= max(cFeatureSize*8,32);
     end;
     1: begin
         cellsize := medium_cell_size;
+        minDistance:= max(cFeatureSize*6,20);
         maze_inverted := false;
     end;
     2: begin
         cellsize := large_cell_size;
+        minDistance:= max(cFeatureSize*5,12);
         maze_inverted := false;
     end;
     3: begin
         cellsize := small_cell_size;
+        minDistance:= max(cFeatureSize*8,32);
         maze_inverted := true;
     end;
     4: begin
         cellsize := medium_cell_size;
+        minDistance:= max(cFeatureSize*6,20);
         maze_inverted := true;
     end;
     5: begin
         cellsize := large_cell_size;
+        minDistance:= max(cFeatureSize*5,12);
         maze_inverted := true;
     end;
 end;