anchor.diff:  end;
   
   
  -procedure TKMayorBalance.WoodDistribution;
  +procedure TKMayorBalance.DistributeWood;
   var
     TrunkProductionRate: Single;
     WoodProductionRate, WoodConsumptionRate: Single;
  
positive.code:       Weaponry[rt_Shield].Production := Min(TrunkTheory, WoodTheory, WorkshopTheory) / 2;
        Weaponry[rt_Armor].Production := Min(Min(FarmTheory, SwineTheory), Min(TanneryTheory, WorkshopTheory)) / 2;
      end;
  
      //Horse.FarmTheory calculated above
      Horse.StablesTheory := HouseCount(ht_Stables) * ProductionRate[rt_Horse];
      Weaponry[rt_Horse].Production := Min(Horse.FarmTheory, Horse.StablesTheory);
  
negative.code: end;
  
  
  procedure TKMayorBalance.UpdateBalanceLeather;
  begin
    with fDemandWeaponry do
    begin
      with WoodenWeapon do
      begin
        //Trunk
  