anchor.diff:  
   
   procedure TKMTerrain.RemoveObjectsKilledByRoad(const Loc: TKMPoint);
  +
     procedure RemoveIfWest(Loc: TKMPoint);
     begin
       if gMapElements[Land[Loc.Y,Loc.X].Obj].KillByRoad = kbrWest then
  
positive.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;
  
negative.code: 
  
  procedure TKMTerrain.GetHouseMarks(const aLoc: TKMPoint; aHouseType: TKMHouseType; aList: TKMPointTagList);
  
    procedure MarkPoint(aPoint: TKMPoint; aID: 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
  