anchor.diff:      StoneNeed: Single; //How much building materials do we need for city development
       WoodNeed: Single; //How much building materials do we need for city development
       constructor Create(aPlayer: TPlayerIndex);
  -    destructor Destroy; override;
   
       procedure OwnerUpdate(aPlayer: TPlayerIndex);
       procedure Refresh;
  
positive.code:     procedure AppendWeaponry;
  
      procedure Append(aHouse: THouseType);
  
      procedure DistributeCorn;
      procedure DistributeCoal;
  
negative.code: end;
  
  
  //How many houses of certain type we have (assume all wip houses will be finished)
  function TKMayorBalance.HouseCount(aHouse: THouseType): Integer;
  begin
    Result := fPlayers[fOwner].Stats.GetHouseTotal(aHouse);
  end;
  
  
  