hedgewars/uLand.pas
changeset 7559 020c93746b0d
parent 7549 f6145d12bb17
child 7567 da2aa8355d91
child 7574 b9ec869e624a
equal deleted inserted replaced
7557:5a28d3cfbf62 7559:020c93746b0d
   709 var rh, rw, ox, oy, x, y, xx, yy, t, bit, cbit, lh, lw: LongInt;
   709 var rh, rw, ox, oy, x, y, xx, yy, t, bit, cbit, lh, lw: LongInt;
   710 begin
   710 begin
   711     WriteLnToConsole('Generating preview...');
   711     WriteLnToConsole('Generating preview...');
   712     case cMapGen of
   712     case cMapGen of
   713         0: GenBlank(EdgeTemplates[SelectTemplate]);
   713         0: GenBlank(EdgeTemplates[SelectTemplate]);
   714         1: GenMaze;
   714         1: begin ResizeLand(4096,2048); GenMaze; end;
   715         2: GenDrawnMap;
   715         2: GenDrawnMap;
   716     else
   716     else
   717         OutError('Unknown mapgen', true);
   717         OutError('Unknown mapgen', true);
   718     end;
   718     end;
   719 
   719