hedgewars/uLand.pas
changeset 7574 b9ec869e624a
parent 7563 09a44c8fbfba
parent 7559 020c93746b0d
child 7613 ce6ead3327b2
equal deleted inserted replaced
7572:4e223b05be7c 7574:b9ec869e624a
   711 var rh, rw, ox, oy, x, y, xx, yy, t, bit, cbit, lh, lw: LongInt;
   711 var rh, rw, ox, oy, x, y, xx, yy, t, bit, cbit, lh, lw: LongInt;
   712 begin
   712 begin
   713     WriteLnToConsole('Generating preview...');
   713     WriteLnToConsole('Generating preview...');
   714     case cMapGen of
   714     case cMapGen of
   715         0: GenBlank(EdgeTemplates[SelectTemplate]);
   715         0: GenBlank(EdgeTemplates[SelectTemplate]);
   716         1: GenMaze;
   716         1: begin ResizeLand(4096,2048); GenMaze; end;
   717         2: GenDrawnMap;
   717         2: GenDrawnMap;
   718     else
   718     else
   719         OutError('Unknown mapgen', true);
   719         OutError('Unknown mapgen', true);
   720     end;
   720     end;
   721 
   721