hop

expansions/script/c65050009.lua

@@ -19,6 +19,9 @@ function c65050009.filter2(c,e,tp,rc)
 		or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end
 	return rc:IsCanBeRitualMaterial(c) and c:IsSetCard(0x3da1) and c:GetLevel()==rc:GetLevel()
 end
+function c65050009.filter1(c,e,tp)
+	return bit.band(c:GetType(),0x81)==0x81 and c:IsSetCard(0x3da1) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true)
+end
 function c65050009.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c65050009.filter0,tp,LOCATION_MZONE,0,1,nil,e,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)
@@ -26,24 +29,26 @@ end
 function c65050009.activate(e,tp,eg,ep,ev,re,r,rp)
 	local m=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_MZONE,0,1,nil,65050012)
 	local mg1=m:Filter(c65050009.filter0,nil,e,tp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local mg2=mg1:Select(tp,1,mg1:GetCount(),nil)
-		local mc=mg2:GetFirst()
-		local ritg=Group.CreateGroup()
-		while mc do
-			local tg=Duel.SelectMatchingCard(tp,c65050009.filter2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp,mc)
-			local tc=tg:GetFirst()
-			local mcg=Group.FromCards(mc)
-			tc:SetMaterial(mcg)
-			ritg:AddCard(tc)
-			mc=mg2:GetNext()
-		end
-		if ritg:GetCount()>0 and Duel.Release(mg2,REASON_EFFECT+REASON_RITUAL)==mg2:GetCount() then
+	local ttg=Duel.GetMatchingGroup(c65050009.filter1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,nil,e,tp)
+	local ritg=Group.CreateGroup()
+	while Duel.IsExistingMatchingCard(c65050009.filter0,tp,LOCATION_MZONE,0,1,nil,e,tp) do
+		local mg=m:FilterSelect(tp,c65050009.filter0,1,1,nil,e,tp)
+		local mc=mg:GetFirst()
+		local tg=ttg:FilterSelect(tp,c65050009.filter2,1,1,nil,e,tp,mc)
+		ttg:Sub(tg)
+		local tc=tg:GetFirst()
+		tc:SetMaterial(mg)
+		Duel.Release(mg,REASON_EFFECT)
+		ritg:AddCard(tc)
+		if Duel.IsExistingMatchingCard(c65050009.filter0,tp,LOCATION_MZONE,0,1,nil,e,tp) and not Duel.SelectYesNo(tp,aux.Stringid(65050009,0)) then break end 
+	end
+		if ritg:GetCount()>0 then
 			local rit=ritg:GetFirst()
 			while rit do
-				Duel.SpecialSummon(rit,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+				Duel.SpecialSummonStep(rit,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
 				rit:CompleteProcedure()
 				rit=ritg:GetNext()
 			end
+			Duel.SpecialSummonComplete()
 		end
 end
\ No newline at end of file

expansions/script/c65050010.lua

@@ -60,7 +60,7 @@ function c65050010.target(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c65050010.activate(e,tp,eg,ep,ev,re,r,rp)
 	local ec=re:GetHandler()
-	if Duel.NegateActivation(ev) and ec:IsRelateToEffect(re) and e:GetLabel()==1 then
+	if Duel.NegateActivation(ev) and ec:IsRelateToEffect(re) and e:GetLabel()==1 and Duel.SelectYesNo(tp,aux.Stringid(65050010,0)) then
 		ec:CancelToGrave()
 		Duel.SendtoDeck(ec,nil,2,REASON_EFFECT)
 	end