anchor.diff:                        begin
                           ResourcePlan(wt_Pig,1,wt_None,0,wt_Sausages);
                           SubActAdd(ha_Work1,1);
  -                        for i:=1 to 6 do begin
  +                        for I := 0 to 5 do
  +                        begin
                             SubActAdd(ha_Work2,1);
                             SubActAdd(ha_Work4,1);
                             SubActAdd(ha_Work3,1);
  
positive.code:                       begin
                          ResourcePlan(wt_Wood,2,wt_None,0,wt_Axe);
                          SubActAdd(ha_Work1,1);
                          for i:=1 to 3 do begin
                            SubActAdd(ha_Work2,1);
                            SubActAdd(ha_Work3,1);
                            SubActAdd(ha_Work4,1);
  
negative.code:     ut_Smith:         if (aHome = ht_ArmorSmithy) and (aProduct = wt_MetalArmor) then
                        begin
                          ResourcePlan(wt_Steel,1,wt_Coal,1,wt_MetalArmor);
                          for I := 0 to 3 do
                          begin
                            SubActAdd(ha_Work2,1);
                            SubActAdd(ha_Work3,1);
                            SubActAdd(ha_Work4,1);
  