procedure TKMayor.CheckVitalCount;
begin
    if HouseCount(ht_Store) = 0 then
      TryBuildHouse(ht_Store);

    if HouseCount(ht_School) = 0 then
      TryBuildHouse(ht_School);

    if HouseCount(ht_Inn) = 0 then
      TryBuildHouse(ht_Inn);
end;

procedure TKMayor.CheckMiningCount;
begin
    if (fPlayers[fOwner].Stats.HouseReleased[ht_Quary]) then
    begin
      if (HouseCount(ht_Quary) = 0) then
        TryBuildHouse(ht_Quary);

      if (HouseCount(ht_Sawmill) > 1) and (HouseCount(ht_Quary) < 2) then
        TryBuildHouse(ht_Quary);
    end;

    if (fPlayers[fOwner].Stats.HouseReleased[ht_Woodcutters]) then
    begin
      if (HouseCount(ht_Woodcutters) = 0) then
        TryBuildHouse(ht_Woodcutters);

      if (HouseCount(ht_Sawmill) > 1) and (HouseCount(ht_Woodcutters) < 2) then
        TryBuildHouse(ht_Woodcutters);
    end;

    if (fPlayers[fOwner].Stats.HouseReleased[ht_Sawmill]) and (HouseCount(ht_Sawmill) = 0) then
      TryBuildHouse(ht_Sawmill);
end;

procedure TKMayor.CheckFoodCount;
begin
    if (fPlayers[fOwner].Stats.HouseReleased[ht_Farm]) and (HouseCount(ht_Farm) < 2) then
      TryBuildHouse(ht_Farm);

    if (fPlayers[fOwner].Stats.HouseReleased[ht_Mill]) and (HouseCount(ht_Mill) = 0) then
      TryBuildHouse(ht_Mill);

    if (fPlayers[fOwner].Stats.HouseReleased[ht_Bakery]) and (HouseCount(ht_Bakery) = 0) then
      TryBuildHouse(ht_Bakery);

    if (fPlayers[fOwner].Stats.HouseReleased[ht_Swine]) and (HouseCount(ht_Swine) < 1) then
      TryBuildHouse(ht_Swine);

    if (fPlayers[fOwner].Stats.HouseReleased[ht_Butchers]) and (HouseCount(ht_Butchers) = 0) then
      TryBuildHouse(ht_Butchers);

    if (fPlayers[fOwner].Stats.HouseReleased[ht_Wineyard]) and (HouseCount(ht_Wineyard) < 2) then
      TryBuildHouse(ht_Wineyard);
end;

  THouseType = ( ht_None, ht_Any, //Эти два "волшебные"
      ht_ArmorSmithy,     ht_ArmorWorkshop,   ht_Bakery,        ht_Barracks,      ht_Butchers,
      ht_CoalMine,        ht_Farm,            ht_FisherHut,     ht_GoldMine,      ht_Inn,
      ht_IronMine,        ht_IronSmithy,      ht_Marketplace,   ht_Metallurgists, ht_Mill,
      ht_Quary,           ht_Sawmill,         ht_School,        ht_SiegeWorkshop, ht_Stables,
      ht_Store,           ht_Swine,           ht_Tannery,       ht_TownHall,      ht_WatchTower,
      ht_WeaponSmithy,    ht_WeaponWorkshop,  ht_Wineyard,      ht_Woodcutters    );

  TResourceType = (
      rt_None,  //Special resource types
      rt_Trunk, rt_Stone, rt_Wood, rt_IronOre, rt_GoldOre,
      rt_Coal, rt_Steel, rt_Gold, rt_Wine, rt_Corn,
      rt_Bread, rt_Flour, rt_Leather, rt_Sausages, rt_Pig,
      rt_Skin, rt_Shield, rt_MetalShield, rt_Armor, rt_MetalArmor,
      rt_Axe, rt_Sword, rt_Pike, rt_Hallebard, rt_Bow,
      rt_Arbalet, rt_Horse, rt_Fish,
      rt_All, rt_Warfare, rt_Food); //Тоже волшебные

    property HouseReleased[aType: THouseType]: boolean read GetHouseReleased write SetHouseReleased;
      property Ratio[aRes: TResourceType; aHouse: THouseType]: Byte read GetRatio write SetRatio;

      //Output
      function GetHouseQty(aType: THouseType): Integer;
      function GetHouseWip(aType: THouseType): Integer;
      function GetUnitQty(aType: TUnitType): Integer;
      function GetArmyCount:Integer;
      function GetCanBuild(aType: THouseType):boolean;

      function GetCitizensTrained:cardinal;
      function GetCitizensLost:cardinal;
      function GetCitizensKilled:cardinal;
      function GetHousesBuilt:cardinal;
      function GetHousesLost:cardinal;
      function GetHousesDestroyed:cardinal;
      function GetWarriorsTrained:cardinal;
      function GetWarriorsKilled:cardinal;
      function GetWarriorsLost:cardinal;
      function GetGoodsProduced:cardinal;
      function GetWeaponsProduced:cardinal;