anchor.diff:  
   procedure TTaskBuildRoad.Save(SaveStream:TKMemoryStream);
   begin
  -  inherited;
  +  Inherited;
     SaveStream.Write(fLoc);
     SaveStream.Write(BuildID);
     SaveStream.Write(DemandSet);
  
positive.code:         fTerrain.SetField(fLoc,GetOwner,ft_Corn);
          SetActionStay(5,ua_Walk);
          fTerrain.RemMarkup(fLoc);
         end;
      else Result := TaskDone;
    end;
  
negative.code: 
  procedure TTaskBuildWall.Save(SaveStream:TKMemoryStream);
  begin
    Inherited;
    SaveStream.Write(fLoc);
    SaveStream.Write(buildID);
  end;
  