--- a/hedgewars/uLand.pas	Tue Jan 20 20:26:09 2009 +0000
+++ b/hedgewars/uLand.pas	Thu Jan 22 17:53:39 2009 +0000
@@ -22,10 +22,12 @@
 {$include options.inc}
 type TLandArray = packed array[0..1023, 0..2047] of LongWord;
      TPreview = packed array[0..127, 0..31] of byte;
+     TDirtyTag = packed array[0..31, 0..63] of byte;
 
 var  Land: TLandArray;
      LandPixels: TLandArray;
      LandTexture: PTexture = nil;
+     LandDirty: TDirtyTag;
 
 procedure GenMap;
 function  GenPreview: TPreview;