anchor.diff:  implementation
   
   const
  -  OBJ_KILL_BY_ROADS : array [Byte] of Byte = (
  +  // We use Byte instead of TKMKillByRoad to have a shorter table
  +  OBJ_KILL_BY_ROAD: array [Byte] of Byte {TKMKillByRoad} = (
       1, 2, 2, 2, 2, 2, 1, 1, 0, 0, 2, 2, 2, 1, 1, 1,
       1, 2, 2, 2, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1,
       1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0,
  
positive.code:   gMapElements[63].Stump := -1;
    gMapElements[63].CanBeRemoved := True;
  
    //Save ti file if we want to have it there. For now hardcoded is ok
    //SaveToFile(FileName);
  end;
  
  
  procedure TKMResMapElements.SaveToFile(const FileName: string);
  var
    S: TMemoryStream;
  begin
    S := TMemoryStream.Create;
    S.Write(gMapElements[0], fCount * SizeOf(TKMMapElement));
    S.SaveToFile(FileName);
    S.Free;
  end;
  
  
  procedure TKMResMapElements.ExportToText(const FileName: string);
  var
    I: Integer;
    ft: TextFile;
    str1, str2, str3, str4, str5, str6, str7: String;
  begin
    AssignFile(ft, ExeDir + 'Trees.txt');
    Rewrite(ft);
    str1 := 'not AllBlocked and Block Build: ';
    str2 := 'AllBlocked and Allow Build: ';
  
negative.code:     property Count: Integer read fCount;
      property CRC: Cardinal read fCRC;
  
      procedure LoadFromFile(const aFileName: string);
      procedure SaveToFile(const aFileName: string);
      procedure ExportToText(const aFileName: string);
    end;
  
  
  