311 end;

   311 end;

   312 

   312 

   313 procedure GenMaze;

   313 procedure GenMaze;

   314 var i: Longword;

   314 var i: Longword;

   315 begin

   315 begin

   317 case cTemplateFilter of

   316 case cTemplateFilter of

   318     0: begin

   317     0: begin

   319         cellsize := small_cell_size;

   318         cellsize := small_cell_size;

   320         maze_inverted := false;

   319         maze_inverted := false;

   321         minDistance:= max(cFeatureSize*8,32);

   320         minDistance:= max(cFeatureSize*8,32);

   322     end;

   322     end;

   323     1: begin

   323     1: begin

   324         cellsize := medium_cell_size;

   324         cellsize := medium_cell_size;

   325         minDistance:= max(cFeatureSize*6,20);

   325         minDistance:= max(cFeatureSize*6,20);

   326         maze_inverted := false;

   326         maze_inverted := false;

   327     end;

   328     end;

   328     2: begin

   329     2: begin

   329         cellsize := large_cell_size;

   330         cellsize := large_cell_size;

   330         minDistance:= max(cFeatureSize*5,12);

   331         minDistance:= max(cFeatureSize*5,12);

   331         maze_inverted := false;

   332         maze_inverted := false;

   332     end;

   334     end;

   333     3: begin

   335     3: begin

   334         cellsize := small_cell_size;

   336         cellsize := small_cell_size;

   335         minDistance:= max(cFeatureSize*8,32);

   337         minDistance:= max(cFeatureSize*8,32);

   336         maze_inverted := true;

   338         maze_inverted := true;

   337     end;

   340     end;

   338     4: begin

   341     4: begin

   339         cellsize := medium_cell_size;

   342         cellsize := medium_cell_size;

   340         minDistance:= max(cFeatureSize*6,20);

   343         minDistance:= max(cFeatureSize*6,20);

   341         maze_inverted := true;

   344         maze_inverted := true;

   342     end;

   346     end;

   343     5: begin

   347     5: begin

   344         cellsize := large_cell_size;

   348         cellsize := large_cell_size;

   345         minDistance:= max(cFeatureSize*5,12);

   349         minDistance:= max(cFeatureSize*5,12);

   346         maze_inverted := true;

   350         maze_inverted := true;

   347     end;

   352     end;

   348 end;

   353 end;

   349 

   354 

   350 num_cells_x := LAND_WIDTH div cellsize;

   355 num_cells_x := LAND_WIDTH div cellsize;

   351 if not odd(num_cells_x) then

   356 if not odd(num_cells_x) then