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

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

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

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

   782 

   782 

   783     LandBackSurface:= nil;

   783     LandBackSurface:= nil;

   784     digest:= '';

   784     digest:= '';

   786     if (cReducedQuality and rqBlurryLand) = 0 then

   788     if (cReducedQuality and rqBlurryLand) = 0 then

   787         SetLength(LandPixels, LAND_HEIGHT, LAND_WIDTH)

   789         SetLength(LandPixels, LAND_HEIGHT, LAND_WIDTH)

   788     else

   790     else

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

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

   790 

   792 

   791     SetLength(Land, LAND_HEIGHT, LAND_WIDTH);

   793     SetLength(Land, LAND_HEIGHT, LAND_WIDTH);

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

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

   793 end;

   796 end;

   794 

   797 

   795 procedure freeModule;

   798 procedure freeModule;

   796 begin

   799 begin

   797     SetLength(Land, 0, 0);

   800     SetLength(Land, 0, 0);