anchor.diff:  end;
   
   
  +//Demolish any exhausted mines, they will be rebuilt if needed
   procedure TKMayor.CheckExhaustedMines;
   var
     I: Integer;
  
positive.code:   //Check if we need to demolish depleted mining houses
    CheckExhaustedMines;
  
    //todo: Check if planned houses are not building
    //(e.g. worker died while digging or elevation changed to impassable)
    CheckHousePlans;
  end;
  
  
negative.code: end;
  
  
  //todo: Check if planned houses are being connected with roads
  //(worker could die while digging a road piece or elevation changed to impassable)
  procedure TKMayor.CheckHousePlans;
  begin
    //
  