anchor.diff:  begin
     P := fPlayers[fOwner];
   
  -  with fDemandFood do
  +  with fFood do
     begin
       //Bread
       //Calculate how much bread each link could possibly produce
  
positive.code: 
  procedure TKMayorBalance.UpdateBalanceIron;
  begin
    with fDemandWeaponry do
    begin
      //Weapon
      //Calculate how much Weapon each link could possibly produce
  
negative.code:     Consumption: Single; //How much food do we use
      Balance: Single; //Resulting balance
    end;
    TKMWareBalanceWarfare = record
      SteelWeapon: record
        CoalTheory, IronTheory, SteelTheory, SmithyTheory: Single;
      end;
      SteelArmor: record
        CoalTheory, IronTheory, SteelTheory, SmithyTheory: Single;
      end;
      WoodWeapon: record
        TrunkTheory, WoodTheory, WorkshopTheory: Single;
      end;
      LeatherArmor: record
        TrunkTheory, WoodTheory: Single; //Shields
        FarmTheory, SwineTheory, TanneryTheory: Single; //Armor
        WorkshopTheory: Single;
      end;
      Horse: record
        FarmTheory, StablesTheory: Single;
      end;
  
      Warfare: array [WARFARE_MIN..WARFARE_MAX] of record
        Production, Demand, Balance: Single;
      end;
  
  