ybb

expansions/script/c81000006.lua

@@ -7,6 +7,7 @@ function cm.initial_effect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
 	e1:SetCost(cm.cost)
 	e1:SetTarget(cm.target)
 	e1:SetOperation(cm.activate)
@@ -47,16 +48,16 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
 	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
 	if ft<=0 then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
 	local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_DECK,0,nil,e,tp)
 	if g:GetCount()==0 then return end
-	repeat
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local sg=g:Select(tp,1,1,nil)
-		local tc=sg:GetFirst()
-		Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
-		local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg=g:SelectSubGroup(tp,aux.dncheck,false,1,ft)
+	for tc in aux.Next(sg) do
+		Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetCode(EFFECT_CANNOT_ACTIVATE)
@@ -66,23 +67,22 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetValue(cm.sactlimit)
 		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
 		tc:RegisterEffect(e1,true)
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_FIELD)
-		e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-		e4:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-		e4:SetRange(LOCATION_MZONE)
-		e4:SetAbsoluteRange(tp,1,0)
-		e4:SetTarget(cm.ssplimit)
-		e4:SetReset(RESET_EVENT+RESETS_STANDARD)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD)
+		e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+		e2:SetRange(LOCATION_MZONE)
+		e2:SetAbsoluteRange(tp,1,0)
+		e2:SetTarget(cm.ssplimit)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e2,true)
+		local e3=e2:Clone()
+		e3:SetCode(EFFECT_CANNOT_SUMMON)
+		tc:RegisterEffect(e3,true)
+		local e4=e2:Clone()
+		e4:SetCode(EFFECT_CANNOT_FLIP_SUMMON)
 		tc:RegisterEffect(e4,true)
-		local e5=e4:Clone()
-		e5:SetCode(EFFECT_CANNOT_SUMMON)
-		tc:RegisterEffect(e5,true)
-		local e6=e4:Clone()
-		e6:SetCode(EFFECT_CANNOT_FLIP_SUMMON)
-		tc:RegisterEffect(e6,true)
-		ft=ft-1
-	until ft<=0 or g:GetCount()==0 or not Duel.SelectYesNo(tp,aux.Stringid(m,0))
+	end
 	Duel.SpecialSummonComplete()
 end
 function cm.ssplimit(e,c)