Update c1153607.lua

script/c1153607.lua

@@ -5,6 +5,8 @@ function c1153607.initial_effect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_EQUIP)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
+	e1:SetCost(c1153607.cost1)
 	e1:SetTarget(c1153607.tg1)
 	e1:SetOperation(c1153607.op1)
 	c:RegisterEffect(e1)
@@ -21,75 +23,114 @@ function c1153607.initial_effect(c)
 --
 end
 --
+function c1153607.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local c=e:GetHandler()
+	local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_REMAIN_FIELD)
+	e1:SetProperty(EFFECT_FLAG_OATH)
+	e1:SetReset(RESET_CHAIN)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_DISABLED)
+	e2:SetOperation(c1153607.tgop)
+	e2:SetLabel(cid)
+	e2:SetReset(RESET_CHAIN)
+	Duel.RegisterEffect(e2,tp)
+end
+function c1153607.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
+	if cid~=e:GetLabel() then return end
+	if e:GetOwner():IsRelateToChain(ev) then
+		e:GetOwner():CancelToGrave(false)
+	end
+end
 function c1153607.tfilter1(c)
 	return c:IsSetCard(0x817) and c:IsLinkSummonable(nil)
 end
 function c1153607.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c1153607.tfilter1,tp,LOCATION_EXTRA,0,1,nil) end
+	if chk==0 then return e:IsCostChecked() and Duel.IsExistingMatchingCard(c1153607.tfilter1,tp,LOCATION_EXTRA,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
 end
---
-function c1153607.ofilter1(c)
-	return c:GetFlagEffect(1153607)>0
-end
 function c1153607.op1(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local tg=Duel.SelectMatchingCard(tp,c1153607.tfilter1,tp,LOCATION_EXTRA,0,1,1,nil)
 	local tc=tg:GetFirst()
-	Duel.RegisterFlagEffect(tp,1153607,0,0,0)
 	if tc then
+		if c:IsRelateToEffect(e) and c:IsFaceup() and not c:IsStatus(STATUS_LEAVE_CONFIRMED) then
+			local e1_1=Effect.CreateEffect(c)
+			e1_1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e1_1:SetCode(EVENT_SPSUMMON_SUCCESS)
+			e1_1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1_1:SetOperation(c1153607.op1_1)
+			Duel.RegisterEffect(e1_1,tp)
+		end
+		local muxu_change_LinkSummon=Duel.LinkSummon
+		Duel.LinkSummon=function(pl,c,mg,lc,minc,maxc)
+			c:RegisterFlagEffect(1153607,0,0,0)
+			muxu_change_LinkSummon(pl,c,mg,lc,minc,maxc)
+		end
 		Duel.LinkSummon(tp,tc,nil)
-		local lg=Duel.GetMatchingGroup(c1153607.ofilter1,tp,LOCATION_MZONE,0,nil)
+		Duel.LinkSummon=muxu_change_LinkSummon
+	end
+end
+function c1153607.ofilter1_1(c)
+	return c:GetFlagEffect(1153607)>0
+end
+function c1153607.op1_1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetOwner()
+	if not c:IsType(TYPE_EQUIP) then
+		local lg=Duel.GetMatchingGroup(c1153607.ofilter1_1,tp,LOCATION_MZONE,0,nil)
 		if lg:GetCount()>0 then
 			local lc=lg:GetFirst()
 			lc:ResetFlagEffect(1153607)
-			local checknum=0
-			if c:IsRelateToEffect(e) and c:IsFaceup() then
-				if Duel.Equip(tp,c,lc) then
-					c:CancelToGrave()
-					checknum=1
-					local e1_1=Effect.CreateEffect(c)
-					e1_1:SetType(EFFECT_TYPE_SINGLE)
-					e1_1:SetCode(EFFECT_EQUIP_LIMIT)
-					e1_1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-					e1_1:SetReset(RESET_EVENT+RESETS_STANDARD)
-					e1_1:SetValue(c1153607.val1_1)
-					e1_1:SetLabelObject(lc)
-					c:RegisterEffect(e1_1,true)
-					local e1_2=Effect.CreateEffect(c)
-					e1_2:SetType(EFFECT_TYPE_SINGLE)
-					e1_2:SetCode(EFFECT_CHANGE_TYPE)
-					e1_2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-					e1_2:SetValue(TYPE_EQUIP+TYPE_TRAP)
-					e1_2:SetReset(RESET_EVENT+RESETS_STANDARD)
-					c:RegisterEffect(e1_2,true)
+			if Duel.Equip(tp,c,lc) then
+				local e1_2=Effect.CreateEffect(c)
+				e1_2:SetType(EFFECT_TYPE_SINGLE)
+				e1_2:SetCode(EFFECT_EQUIP_LIMIT)
+				e1_2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+				e1_2:SetReset(RESET_EVENT+RESETS_STANDARD)
+				e1_2:SetValue(c1153607.val1_2)
+				e1_2:SetLabelObject(lc)
+				c:RegisterEffect(e1_2,true)
+				local e1_3=Effect.CreateEffect(c)
+				e1_3:SetType(EFFECT_TYPE_SINGLE)
+				e1_3:SetCode(EFFECT_CHANGE_TYPE)
+				e1_3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+				e1_3:SetValue(TYPE_EQUIP+TYPE_TRAP)
+				e1_3:SetReset(RESET_EVENT+RESETS_STANDARD)
+				c:RegisterEffect(e1_3,true)
+			else
+				c:CancelToGrave(false)
+			end
+			local hg=lc:GetMaterial()
+			if hg:GetCount()>0 then
+				local ag=Group.CreateGroup()
+				local hc=hg:GetFirst()
+				while hc do
+					hc:ResetFlagEffect(1153607)
+					if hc:IsAbleToHand() and hc:IsLocation(LOCATION_GRAVE) then ag:AddCard(hc) end
+					hc=hg:GetNext()
 				end
-				local hg=Duel.GetMatchingGroup(c1153607.ofilter1,tp,LOCATION_GRAVE,0,nil)
-				if hg:GetCount()>0 then
-					local ag=Group.CreateGroup()
-					local hc=hg:GetFirst()
-					while hc do
-						hc:ResetFlagEffect(1153607)
-						if hc:IsAbleToHand() then ag:AddCard(hc) end
-						hc=hg:GetNext()
-					end
-					if ag:GetCount()>0 and checknum==1 then
-						Duel.BreakEffect()
-						Duel.SendtoHand(ag,nil,REASON_EFFECT)
-						Duel.ConfirmCards(1-tp,ag)
-					end
+				if ag:GetCount()>0 then
+					Duel.BreakEffect()
+					Duel.SendtoHand(ag,nil,REASON_EFFECT)
+					Duel.ConfirmCards(1-tp,ag)
 				end
 			end
-		end
-	else
-		if not c:IsStatus(STATUS_LEAVE_CONFIRMED) then
+		else
 			c:CancelToGrave(false)
 		end
+	else
+		c:CancelToGrave(false)
 	end
-	Duel.ResetFlagEffect(tp,1153607)
+	e:Reset()
 end
-function c1153607.val1_1(e,c)
+function c1153607.val1_2(e,c)
 	return e:GetLabelObject()==c
 end
 --