anchor.diff:  var
     GoldCnt, IronCnt, FieldCnt, BuildCnt: Integer;
   begin
  -  // DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG
  -  //SetKaMSeed(666);
     if SP_DEFAULT_ADVANCED_AI then
     begin
  -    gGame.GameOptions.Peacetime := SP_DEFAULT_PEACETIME;
  +    //SetKaMSeed(666);
  +    gGame.GameOptions.Peacetime := 75;//SP_DEFAULT_PEACETIME;
       fSetup.ApplyAgressiveBuilderSetup(True);
     end;
  -  // DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG DELETE DEBUG
   
     // Change distribution
     SetWareDistribution();
  
positive.code: 
    // Calculate mean fraction of iron weapons and distribute steal
    WeaponFraction := 0;
    ArmorFraction := 0;
    for WT in IRON_WEAPONS do
      WeaponFraction := WeaponFraction + fRequiredWeapons[WT].Fraction;
    for WT in IRON_ARMORS do
      ArmorFraction := ArmorFraction + fRequiredWeapons[WT].Fraction;
    WeaponFraction := WeaponFraction / 3.0;
    ArmorFraction := ArmorFraction / 2.0;
    // Ware distribution = fraction / sum of fractions * 5
    gHands[fOwner].Stats.WareDistribution[wt_Steel, htWeaponSmithy] := Max(  1, Min(5, Round( ArmorFraction / (WeaponFraction + ArmorFraction) * 5) )  );
    gHands[fOwner].Stats.WareDistribution[wt_Steel, htArmorSmithy] := Max(  1, Min(5, Round( WeaponFraction / (WeaponFraction + ArmorFraction) * 5) )  );
  end;
  
  
  
negative.code:   IRON_ARMORS: set of TKMWareType = [wt_MetalArmor, wt_MetalShield];
  var
    I, SmithyCnt, WorkshopCnt, ArmorCnt: Integer;
    IronRatio, WeaponFraction, ArmorFraction, IronShare: Single;
    WT: TKMWareType;
    GT: TKMGroupType;
    UT: TKMUnitType;
  