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