Fix 二重融合

script/c100200262.lua

@@ -23,8 +23,7 @@ function s.filter2(c,e,tp,m,f,chkf)
 	return c:IsType(TYPE_FUSION) and (not f or f(c))
 		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
 end
-function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then
+function s.fcon(e,tp)
 	local chkf=tp
 	local mg1=Duel.GetFusionMaterial(tp)
 	local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
@@ -38,10 +37,12 @@ function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 		end
 	end
 	return res
-	end
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return s.fcon(e,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
 end
-function s.activate(e,tp,eg,ep,ev,re,r,rp)
+function s.fop(e,tp,eg,ep,ev,re,r,rp)
 	local chkf=tp
 	local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
 	local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
@@ -72,15 +73,13 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
 			fop(ce,e,tp,tc,mat2)
 		end
 		tc:CompleteProcedure()
-		local mg2=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
-		if Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,nil,chkf)
-			and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
-			local tc2=Duel.SelectMatchingCard(tp,s.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,mg2,nil,chkf):GetFirst()
-			local mat2=Duel.SelectFusionMaterial(tp,tc2,mg2,nil,chkf)
-			tc2:SetMaterial(mat2)
-			Duel.SendtoGrave(mat2,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
-			Duel.BreakEffect()
-			Duel.SpecialSummon(tc2,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+		return 1
 	end
+	return 0
+end
+function s.activate(e,tp,eg,ep,ev,re,r,rp)
+	if s.fop(e,tp,eg,ep,ev,re,r,rp)>0 and s.fcon(e,tp) and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
+		Duel.BreakEffect()
+		s.fop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end