anchor.diff:  procedure TKMayorBalance.SetArmyDemand(ShieldNeed, ArmorNeed, AxeNeed, PikeNeed, BowNeed, HorseNeed: Single);
   begin
     //Convert army request into how many weapons are needed
  -  with fDemandWeaponry do
  -  begin
  -    Weaponry[wt_Shield].Demand := ShieldNeed;
  -    Weaponry[wt_MetalShield].Demand := ShieldNeed;
  -    Weaponry[wt_Armor].Demand := ArmorNeed;
  -    Weaponry[wt_MetalArmor].Demand := ArmorNeed;
  -    Weaponry[wt_Axe].Demand := AxeNeed;
  -    Weaponry[wt_Sword].Demand := AxeNeed;
  -    Weaponry[wt_Pike].Demand := PikeNeed;
  -    Weaponry[wt_Hallebard].Demand := PikeNeed;
  -    Weaponry[wt_Bow].Demand := BowNeed;
  -    Weaponry[wt_Arbalet].Demand := BowNeed;
  -    Weaponry[wt_Horse].Demand := HorseNeed;
  +  with fWarfare do
  +  begin
  +    Warfare[wt_Shield].Demand := ShieldNeed;
  +    Warfare[wt_MetalShield].Demand := ShieldNeed;
  +    Warfare[wt_Armor].Demand := ArmorNeed;
  +    Warfare[wt_MetalArmor].Demand := ArmorNeed;
  +    Warfare[wt_Axe].Demand := AxeNeed;
  +    Warfare[wt_Sword].Demand := AxeNeed;
  +    Warfare[wt_Pike].Demand := PikeNeed;
  +    Warfare[wt_Hallebard].Demand := PikeNeed;
  +    Warfare[wt_Bow].Demand := BowNeed;
  +    Warfare[wt_Arbalet].Demand := BowNeed;
  +    Warfare[wt_Horse].Demand := HorseNeed;
     end;
   end;
   
   
   function TKMayorBalance.BalanceText: string;
   begin
  -  Result := fDemandCoreText + '|' +
  -            fDemandMaterialsText + '|' +
  -            fDemandGoldText + '|' +
  -            fDemandFoodText + '|' +
  -            fDemandWeaponryText + '|' +
  +  Result := fCoreText + '|' +
  +            fMaterialsText + '|' +
  +            fGoldText + '|' +
  +            fFoodText + '|' +
  +            fWarfareText + '|' +
               fAdviceText;
   end;
   
  
positive.code: procedure TKMayorBalance.AppendFood;
  begin
    //Pick smallest production and increase it
    with fDemandFood do
    if Balance < 0 then
    case PickMin([BreadProduction, SausagesProduction, WineProduction]) of
      0:  with Bread do
  
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;
  
  