if (HouseCount(ht_Woodcutters) < 5) and (fPlayers[fOwner].Stats.Ratio.rt_Wood<50) then //второе условие, это пытался проверку ресурса досок осуществить:))
          TryBuildHouse(ht_Woodcutters);
      end;

if (Trunc(HouseCount(ht_Mill)/2)+HouseCount(ht_Swine))>HouseCount(ht_Farm) then   //На каждые 2 Мельницы или 1 свинарник строим Ферму
TryBuildHouse(ht_Farm);

if (fPlayers[fOwner].Stats.HouseReleased[ht_Butchers]) and ((HouseCount(ht_Butchers) = 0)
      or (Trunc(HouseCount(ht_Swine)/3)>HouseCount(ht_Butchers))) then
        Begin
        TryBuildHouse(ht_Butchers);  //На каждые 3 свинофермы строится Мясной цех
        TryBuildHouse(ht_Tannery);   //На каждые 3 свинофермы строится Дубильня
        End;