anchor.diff:  begin
     Inherited;
     LoadStream.Read(fHouse, 4);
  -  LoadStream.Read(TaskID);
  +  LoadStream.Read(buildID);
     LoadStream.Read(Step);
     for i:=1 to length(ListOfCells) do
  -  LoadStream.Read(ListOfCells[i], 4);
  +  LoadStream.Read(ListOfCells[i]);
   end;
   
   
  
positive.code: procedure TTaskBuildWine.Save(SaveStream:TKMemoryStream);
  begin
    inherited;
    SaveStream.Write(fLoc,4);
    SaveStream.Write(ID,4);
  end;
  
  
  
negative.code:   1: begin
        fTerrain.SetMarkup(fLoc,mu_UnderConstruction);
        fTerrain.ResetDigState(fLoc); //Remove any dig over that might have been there (e.g. destroyed house)
        fPlayers.Player[byte(fOwner)].BuildList.CloseRoad(buildID); //Close the job now because it can no longer be cancelled
        SetActionLockedStay(0,ua_Walk);
       end;
    2: begin
  