anchor.diff:    //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)
  +  //Verify all plans are being connected with roads
     CheckHousePlans;
   end;
   
  
positive.code: end;
  
  
  procedure TKMayor.CheckHousePlans;
  begin
    //
  
negative.code: end;
  
  
  //Demolish any exhausted mines, they will be rebuilt if needed
  procedure TKMayor.CheckExhaustedMines;
  var
    I: Integer;
  