hedgewars/uLandGenMaze.pas
branchqmlfrontend
changeset 10515 7705784902e1
parent 10501 89e8d6d05dfa
child 11051 3996500fd1e5
--- a/hedgewars/uLandGenMaze.pas	Sun Nov 09 23:02:21 2014 +0300
+++ b/hedgewars/uLandGenMaze.pas	Tue Nov 18 23:39:30 2014 +0300
@@ -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);
@@ -311,32 +311,44 @@
 end;
 
 procedure GenMaze;
-var i: LongInt;
+var i: Longword;
 begin
 case cTemplateFilter of
     0: begin
         cellsize := small_cell_size;
         maze_inverted := false;
+        minDistance:= max(cFeatureSize*8,32);
+	dabDiv:= 150;
     end;
     1: begin
         cellsize := medium_cell_size;
+        minDistance:= max(cFeatureSize*6,20);
         maze_inverted := false;
+	dabDiv:= 100;
     end;
     2: begin
         cellsize := large_cell_size;
+        minDistance:= max(cFeatureSize*5,12);
         maze_inverted := false;
+	dabDiv:= 90;
     end;
     3: begin
         cellsize := small_cell_size;
+        minDistance:= max(cFeatureSize*8,32);
         maze_inverted := true;
+	dabDiv:= 130;
     end;
     4: begin
         cellsize := medium_cell_size;
+        minDistance:= max(cFeatureSize*6,20);
         maze_inverted := true;
+	dabDiv:= 100;
     end;
     5: begin
         cellsize := large_cell_size;
+        minDistance:= max(cFeatureSize*5,12);
         maze_inverted := true;
+	dabDiv:= 85;
     end;
 end;