--- 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;