fix

expansions/script/c91300039.lua

@@ -18,7 +18,6 @@ function s.initial_effect(c)
 	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e3:SetCode(EVENT_CHAIN_SOLVING)
 	e3:SetRange(LOCATION_HAND)
-	e3:SetCountLimit(1)
 	e3:SetCondition(s.discon)
 	e3:SetOperation(s.disop)
 	c:RegisterEffect(e3)
@@ -54,22 +53,23 @@ function s.discon(e,tp,eg,ep,ev,re,r,rp)
 	return c:IsPublic() and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_MZONE and Duel.IsChainNegatable(ev) and not Duel.IsChainDisabled(ev) and re:IsActiveType(TYPE_MONSTER) and not rc:IsStatus(STATUS_SUMMON_TURN+STATUS_FLIP_SUMMON_TURN+STATUS_SPSUMMON_TURN)
 end
 function s.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(id,2)) then
+	local c=e:GetHandler()
+	if c:GetFlagEffect(id)==0 and Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(id,2)) then
+		c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
 		Duel.Hint(HINT_CARD,0,id)
 		local rc=re:GetHandler()
 		if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then
 			Duel.Destroy(rc,REASON_EFFECT)
 		end
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+		e1:SetProperty(EFFECT_FLAG_DELAY)
+		e1:SetCountLimit(1)
+		e1:SetOperation(s.desop2)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,tp)
 	end
-	Duel.BreakEffect()
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCountLimit(1)
-	e1:SetOperation(s.desop2)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
 end
 function s.desfilter(c)
 	return c:IsLocation(LOCATION_MZONE)