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

   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 

   778     RegisterVariable('landcheck', @chLandCheck, false);

   778     RegisterVariable('landcheck', @chLandCheck, false);

   779     RegisterVariable('sendlanddigest', @chSendLandDigest, false);

   779     RegisterVariable('sendlanddigest', @chSendLandDigest, false);

   780 

   780 

   781     LandBackSurface:= nil;

   781     LandBackSurface:= nil;

   782     digest:= '';

   782     digest:= '';

   784     if (cReducedQuality and rqBlurryLand) = 0 then

   786     if (cReducedQuality and rqBlurryLand) = 0 then

   785         SetLength(LandPixels, LAND_HEIGHT, LAND_WIDTH)

   787         SetLength(LandPixels, LAND_HEIGHT, LAND_WIDTH)

   786     else

   788     else

   787         SetLength(LandPixels, LAND_HEIGHT div 2, LAND_WIDTH div 2);

   789         SetLength(LandPixels, LAND_HEIGHT div 2, LAND_WIDTH div 2);

   788 

   790 

   789     SetLength(Land, LAND_HEIGHT, LAND_WIDTH);

   791     SetLength(Land, LAND_HEIGHT, LAND_WIDTH);

   790     SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));

   792     SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));

   791 end;

   794 end;

   792 

   795 

   793 procedure freeModule;

   796 procedure freeModule;

   794 begin

   797 begin

   795     SetLength(Land, 0, 0);

   798     SetLength(Land, 0, 0);