tuning インフェルノイド・ティエラ

procedure.lua

@@ -4477,14 +4477,30 @@ function Fusion.MultiOperation(tc,patterns)
 			local finishable=sg:GetCount()>=min_req and strict_cond(e,sg,gc,chkf)
 			local addable=Group.CreateGroup()
 
+			-- check fcheck on the *current* sg
+			local prev_ok=true
+			if aux.FCheckAdditional~=nil then
+				prev_ok=aux.FCheckAdditional(tc:GetOwner(),sg,tc)
+			end
+
 			for _,mc in ipairs(eg_arr) do
 				if not sg:IsContains(mc) then
 					sg:AddCard(mc)
-					-- completion test against active patterns
-					for _,pat in ipairs(active_patterns) do
-						if Fusion.CanCompleteFromMappings(e,sg,eg,pat.slots,pat.matfilter,pat.fgoalcheck,tc,gc,chkf) then
-							addable:AddCard(mc)
-							break
+					-- early FCheckAdditional prune: if adding this card would cause fcheck to fail, we can not add it
+					-- check fcheck again
+					local new_ok=true
+					if aux.FCheckAdditional~=nil then
+						new_ok=aux.FCheckAdditional(tc:GetOwner(),sg,tc)
+					end
+
+					-- prune if it was OK before but fails now
+					if not (prev_ok and not new_ok) then
+						-- completion test against active patterns
+						for _,pat in ipairs(active_patterns) do
+							if Fusion.CanCompleteFromMappings(e,sg,eg,pat.slots,pat.matfilter,pat.fgoalcheck,tc,gc,chkf) then
+								addable:AddCard(mc)
+								break
+							end
 						end
 					end
 					sg:RemoveCard(mc)