anchor.diff:      fRoadBelowStore: Boolean;
       fWooden: Boolean;
   
  -    fDemandCore: Single;
  +    fDemandCore: TKMCoreBalance;
       fDemandGold: TKMWareBalanceGold;
       fDemandFood: TKMWareBalanceFood;
       fDemandWeaponry: TKMWareBalanceWeaponry;
  
positive.code:     6:  TryBuildHouse(ht_Barracks);
    end;
  end;
  
  
  
  //Increase Gold production
  
negative.code:   KM_AISetup;
  
  type
    TKMCoreBalance = record
      StoreBalance, SchoolBalance, InnBalance,
      QuaryBalance, WoodBalance, SawmillBalance,
      BarracksBalance: Single;
      Balance: Single; //Resulting balance
      Text: string;
    end;
    TKMWareBalanceGold = record
      CoalTheory, GoldOreTheory, GoldTheory: Single;
      Production: Single; //How much do we produce
  