--- a/hedgewars/uLandGenTemplateBased.pas Sun Nov 09 14:33:31 2014 -0500
+++ b/hedgewars/uLandGenTemplateBased.pas Sun Nov 09 14:58:43 2014 -0500
@@ -6,10 +6,11 @@
procedure GenTemplated(var Template: TEdgeTemplate);
procedure DivideEdges(fillPointsCount: LongWord; var pa: TPixAr);
+var minDistance: LongInt; // different details size
+
implementation
uses uVariables, uConsts, uFloat, uLandUtils, uRandom, SDLh, math;
-var minDistance: LongInt; // different details size
procedure SetPoints(var Template: TEdgeTemplate; var pa: TPixAr; fps: PPointArray);
var i: LongInt;
@@ -337,7 +338,7 @@
for x:= 0 to LAND_WIDTH - 1 do
Land[y, x]:= lfBasic;
- minDistance:= max(cFeatureSize,12);
+ minDistance:= max(cFeatureSize*5,12);
MaxHedgehogs:= Template.MaxHedgehogs;
hasGirders:= Template.hasGirders;
playHeight:= Template.TemplateHeight;