Replace c11451906.lua

expansions/script/c11451906.lua

@@ -7,7 +7,7 @@ function cm.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetProperty(EFFECT_FLAG_DELAY)
 	e1:SetCode(EVENT_TO_HAND)
-	--e1:SetCondition(cm.condition)
+	e1:SetCondition(cm.condition)
 	e1:SetTarget(cm.target)
 	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
@@ -44,7 +44,7 @@ function cm.initial_effect(c)
 							Duel.RegisterEffect(ge2,0)
 						end
 					end)
-	Duel.RegisterEffect(e6,0)
+	--Duel.RegisterEffect(e6,0)
 	e2:SetLabelObject(e6)
 	e5:SetLabelObject(e6)
 	local e4=Effect.CreateEffect(c)
@@ -129,19 +129,27 @@ function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 		return (Duel.GetFlagEffect(0,11451901)>0 or Duel.CheckEvent(EVENT_CUSTOM+11451902)) and ft>0 and Duel.GetFlagEffect(tp,11451902)>0
 	end
 	Duel.ResetFlagEffect(tp,11451902)
-	if Duel.GetFlagEffect(1,11451901)==0 then
-		--change code
-		local e3=Effect.CreateEffect(e:GetHandler())
-		e3:SetType(EFFECT_TYPE_FIELD)
-		e3:SetCode(EFFECT_CHANGE_CODE)
-		e3:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_REPEAT+EFFECT_FLAG_DELAY+EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_OATH)
-		e3:SetTargetRange(0xff,0xff)
-		e3:SetTarget(function(e,c) return Duel.IsExistingMatchingCard(Card.IsOriginalCodeRule,0,LOCATION_GRAVE,LOCATION_GRAVE,1,c,table.unpack({c:GetOriginalCodeRule()})) end)
-		e3:SetValue(function(e,c) return c:GetOriginalCode()+0x527+c:GetFieldID() end)
-		e3:SetReset(RESET_PHASE+PHASE_END)
-		Duel.RegisterEffect(e3,tp)
-	end
-	Duel.RegisterFlagEffect(1,11451901,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_CHAIN_SOLVED)
+	e1:SetOperation(function(e)
+						if Duel.GetFlagEffect(1,11451901)==0 and Duel.GetCurrentChain()==e:GetLabel() then
+							--change code
+							local e3=Effect.CreateEffect(e:GetHandler())
+							e3:SetType(EFFECT_TYPE_FIELD)
+							e3:SetCode(EFFECT_CHANGE_CODE)
+							e3:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_REPEAT+EFFECT_FLAG_DELAY+EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_OATH)
+							e3:SetTargetRange(0xff,0xff)
+							e3:SetTarget(function(e,c) return Duel.IsExistingMatchingCard(Card.IsOriginalCodeRule,0,LOCATION_GRAVE,LOCATION_GRAVE,1,c,table.unpack({c:GetOriginalCodeRule()})) end)
+							e3:SetValue(function(e,c) return c:GetOriginalCode()+0x527+c:GetFieldID() end)
+							e3:SetReset(RESET_PHASE+PHASE_END)
+							Duel.RegisterEffect(e3,tp)
+						end
+						Duel.RegisterFlagEffect(1,11451901,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
+					end)
+	e1:SetReset(RESET_CHAIN)
+	e1:SetLabel(Duel.GetCurrentChain())
+	Duel.RegisterEffect(e1,tp)
 end
 function cm.nmfilter(c)
 	return c:GetFlagEffect(11451908)==0 and Duel.IsExistingMatchingCard(Card.IsOriginalCodeRule,0,LOCATION_GRAVE,LOCATION_GRAVE,1,c,table.unpack({c:GetOriginalCodeRule()}))
@@ -242,6 +250,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
 	if #g>0 then
 		Duel.BreakEffect()
+		local sg=g:Clone()
 		for tc in aux.Next(g) do
 			if tc:IsCanBeDisabledByEffect(e) then
 				local e1=Effect.CreateEffect(e:GetHandler())
@@ -252,10 +261,10 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 				Duel.AdjustInstantly()
 				Duel.NegateRelatedChain(tc,RESET_TURN_SET)
 			else
-				g:RemoveCard(tc)
+				sg:RemoveCard(tc)
 			end
 		end
-		Duel.Destroy(g,REASON_EFFECT)
+		Duel.Destroy(sg,REASON_EFFECT)
 	end
 end
 function cm.spcfilter(c,e,tp)
@@ -263,6 +272,7 @@ function cm.spcfilter(c,e,tp)
 end
 function cm.spcon(e,c)
 	if c==nil then return true end
+	local tp=c:GetControler()
 	local bg=Duel.GetMatchingGroup(cm.spcfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0,c,e,tp)
 	return #bg>0 and c:IsAbleToRemoveAsCost()
 end
@@ -271,9 +281,9 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
 	local tp=c:GetControler()
 	local bg=Duel.GetMatchingGroup(cm.spcfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0,c,e,tp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local bc=bg:Select(tp,0,1,nil):GetFirst()
-	if bc then
-		sg:AddCard(bc)
+	local bcg=bg:CancelableSelect(tp,1,1,nil)
+	if bcg then
+		sg:Merge(bcg)
 		Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
 	end
 end
\ No newline at end of file