hop

expansions/script/c17243499.lua

@@ -58,6 +58,7 @@ function cm.initial_effect(c)
 end
 
 cm.SetCard_SCP=true 
+cm.fusion_effect=true
 
 function cm.ctcfilter1(c,tp)
 	return c:IsFaceup() and c.SetCard_SCP and c:IsControler(tp)
@@ -137,7 +138,8 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=g:GetFirst()
 	if tc then
 		tc:SetMaterial(nil)
-		Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+		if Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)~=0 then
 			tc:CompleteProcedure()
 		end
+	end
 end
\ No newline at end of file

expansions/script/c17243553.lua

@@ -125,12 +125,12 @@ function cm.gytg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return #sg>0 end
 	Duel.SetTargetCard(sg)
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,sg,sg:GetCount(),0,0)
-	Duel.SetChainLimit(cm.limit(sg))
+	local fg=sg:Filter(Card.IsControler,nil,1-tp)
+	Duel.SetChainLimit(cm.limit(fg))
 end
 function cm.limit(g)
 	return  function (e,ep,tp)
-				local sg=g:Filter(Card.IsControler,nil,1-tp)
-				return not sg:IsContains(e:GetHandler())
+				return not g:IsContains(e:GetHandler())
 			end
 end
 function cm.gyop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c17243573.lua

@@ -42,6 +42,8 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 		local sc=g:GetFirst()
 		if not sc then return end
 		sc:SetMaterial(nil)
-		Duel.SpecialSummon(sc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+		if Duel.SpecialSummon(sc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)~=0 then
+			sc:CompleteProcedure()
+		end
 	end
 end
\ No newline at end of file

expansions/script/c17243577.lua

@@ -90,6 +90,8 @@ function cm.fsop(e,tp,eg,ep,ev,re,r,rp)
 		local sc=g:GetFirst()
 		if not sc then return end
 		sc:SetMaterial(nil)
-		Duel.SpecialSummon(sc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+		if Duel.SpecialSummon(sc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)~=0 then
+			sc:CompleteProcedure()
+		end
 	end
 end
\ No newline at end of file

expansions/script/c17243625.lua

@@ -78,8 +78,11 @@ function cm.fsop(e,tp,eg,ep,ev,re,r,rp)
 		local sc=sg2:GetFirst()
 		while sc do
 			sc:SetMaterial(nil)
+			if Duel.SpecialSummonStep(sc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) then
+				sc:CompleteProcedure()
+			end
 			sc=sg2:GetNext()
 		end
-		Duel.SpecialSummon(sg2,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+		Duel.SpecialSummonComplete()
 	end
 end
\ No newline at end of file