anchor.diff:  
   
   procedure TKMTerrain.GetHouseMarks(const aLoc: TKMPoint; aHouseType: TKMHouseType; aList: TKMPointTagList);
  +
     procedure MarkPoint(aPoint: TKMPoint; aID: Integer);
  -  var I: Integer;
  +  var
  +    I: Integer;
     begin
       for I := 0 to aList.Count - 1 do //Skip wires from comparison
         if (aList.Tag[I] <> TC_OUTLINE) and KMSamePoint(aList[I], aPoint) then
  
positive.code: 
  
  procedure TKMTerrain.RemoveObjectsKilledByRoad(const Loc: TKMPoint);
    procedure RemoveIfWest(Loc: TKMPoint);
    begin
      if gMapElements[Land[Loc.Y,Loc.X].Obj].KillByRoad = kbrWest then
  
negative.code: procedure TKMTerrain.SetField(const Loc: TKMPoint; aOwner: TKMHandID; aFieldType: TKMFieldType; aStage: Byte = 0;
                                aRandomAge: Boolean = False; aKeepOldObject: Boolean = False; aRemoveOverlay: Boolean = True;
                                aDoUpdate: Boolean = True);
  
    procedure SetLand(aFieldAge: Byte; aTerrain: Byte; aObj: Integer = -1);
    begin
      Land[Loc.Y, Loc.X].FieldAge := aFieldAge;
  