fix

expansions/script/c75081047.lua

@@ -10,12 +10,13 @@ function c75081047.initial_effect(c)
 	e0:SetValue(POS_FACEUP_ATTACK)
 	c:RegisterEffect(e0)
 	--
+	local custom_code=c75081047.RegisterMergedEvent_ToSingleCard(c,75081047,EVENT_LEAVE_FIELD)
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(75081047,0))
 	e1:SetCategory(CATEGORY_SUMMON+CATEGORY_TOHAND)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_LEAVE_FIELD)
+	e1:SetCode(custom_code)
 	e1:SetRange(LOCATION_GRAVE)
 	e1:SetCountLimit(1,75081047)
 	e1:SetCondition(c75081047.thcon)
@@ -34,6 +35,110 @@ function c75081047.initial_effect(c)
 	e3:SetOperation(c75081047.operation)
 	c:RegisterEffect(e3)  
 end
+
+function c75081047.RegisterMergedEvent_ToSingleCard(c,code,events)
+	local g=Group.CreateGroup()
+	g:KeepAlive()
+	local mt=getmetatable(c)
+	local seed=0
+	if type(events) == "table" then
+		for _, event in ipairs(events) do
+			seed = seed + event
+		end
+	else
+		seed = events
+	end
+	while(mt[seed]==true) do
+		seed = seed + 1
+	end
+	mt[seed]=true
+	local event_code_single = (code ~ (seed << 16)) | EVENT_CUSTOM
+	if type(events) == "table" then
+		for _, event in ipairs(events) do
+			c75081047.RegisterMergedEvent_ToSingleCard_AddOperation(c,g,event,event_code_single)
+		end
+	else
+		c75081047.RegisterMergedEvent_ToSingleCard_AddOperation(c,g,events,event_code_single)
+	end
+	--listened to again
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
+	e3:SetCode(EVENT_MOVE)
+	e3:SetLabelObject(g)
+	e3:SetOperation(c75081047.ThisCardMovedToPublicResetCheck_ToSingleCard)
+	c:RegisterEffect(e3)
+	return event_code_single
+end
+function c75081047.RegisterMergedEvent_ToSingleCard_AddOperation(c,g,event,event_code_single)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(event)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
+	e1:SetRange(0xff)
+	e1:SetLabel(event_code_single)
+	e1:SetLabelObject(g)
+	e1:SetOperation(c75081047.MergedDelayEventCheck1_ToSingleCard)
+	c:RegisterEffect(e1)
+	local ec={
+		EVENT_CHAIN_ACTIVATING,
+		EVENT_CHAINING,
+		EVENT_ATTACK_ANNOUNCE,
+		EVENT_BREAK_EFFECT,
+		EVENT_CHAIN_SOLVING,
+		EVENT_CHAIN_SOLVED,
+		EVENT_CHAIN_END,
+		EVENT_SUMMON,
+		EVENT_SPSUMMON,
+		EVENT_MSET,
+		EVENT_BATTLE_DESTROYED
+	}
+	for _,code in ipairs(ec) do
+		local ce=e1:Clone()
+		ce:SetCode(code)
+		ce:SetOperation(c75081047.MergedDelayEventCheck2_ToSingleCard)
+		c:RegisterEffect(ce)
+	end
+end
+function c75081047.MergedDelayEventCheck1_ToSingleCard(e,tp,eg,ep,ev,re,r,rp)
+	local g=e:GetLabelObject()
+	local c=e:GetOwner()
+	g:Merge(eg)
+	if Duel.CheckEvent(EVENT_MOVE) then
+		local _,meg=Duel.CheckEvent(EVENT_MOVE,true)
+		if meg:IsContains(c) and (c:IsFaceup() or c:IsPublic()) then
+			g:Clear()
+		end
+	end
+	if Duel.GetCurrentChain()==0 and #g>0 and g:IsExists(Card.IsReason,1,nil,REASON_ADJUST|REASON_EFFECT) then
+		local _eg=g:Clone()
+		Duel.RaiseEvent(_eg,e:GetLabel(),re,r,rp,ep,ev)
+		g:Clear()
+	end
+end
+function c75081047.MergedDelayEventCheck2_ToSingleCard(e,tp,eg,ep,ev,re,r,rp)
+	local g=e:GetLabelObject()
+	if Duel.CheckEvent(EVENT_MOVE) then
+		local _,meg=Duel.CheckEvent(EVENT_MOVE,true)
+		local c=e:GetOwner()
+		if meg:IsContains(c) and (c:IsFaceup() or c:IsPublic()) then
+			g:Clear()
+		end
+	end
+	if #g>0 then
+		local _eg=g:Clone()
+		Duel.RaiseEvent(_eg,e:GetLabel(),re,r,rp,ep,ev)
+		g:Clear()
+	end
+end
+function c75081047.ThisCardMovedToPublicResetCheck_ToSingleCard(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetOwner()
+	local g=e:GetLabelObject()
+	if c:IsFaceup() or c:IsPublic() then
+		g:Clear()
+	end
+end
+
 function c75081047.sumtg(e,c)
 	return c:IsType(TYPE_MONSTER) and c~=e:GetHandler() and c:IsSetCard(0xa754) and c:IsPreviousLocation(LOCATION_MZONE)
 end

expansions/script/c9911217.lua

@@ -2,29 +2,20 @@
 function c9911217.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(9911217,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e1:SetCountLimit(1,9911217+EFFECT_COUNT_CODE_OATH)
 	e1:SetCost(c9911217.cost)
-	e1:SetTarget(c9911217.thtg)
-	e1:SetOperation(c9911217.thop)
+	e1:SetTarget(c9911217.target)
+	e1:SetOperation(c9911217.activate)
 	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetDescription(aux.Stringid(9911217,1))
-	e2:SetCategory(0)
-	e2:SetTarget(c9911217.indtg)
-	e2:SetOperation(c9911217.indop)
-	c:RegisterEffect(e2)
 end
 function c9911217.costfilter(c)
 	return c:IsSetCard(0x5958) and c:IsType(TYPE_TRAP) and c:IsAbleToGraveAsCost()
 end
 function c9911217.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c9911217.costfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local g=Duel.SelectMatchingCard(tp,c9911217.costfilter,tp,LOCATION_DECK,0,1,1,nil)
 	Duel.SendtoGrave(g,REASON_COST)
@@ -33,11 +24,24 @@ function c9911217.thfilter(c,tp)
 	return c:IsType(TYPE_TUNER) and c:IsAbleToHand()
 		and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,c:GetCode())
 end
-function c9911217.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c9911217.thfilter,tp,LOCATION_DECK,0,1,nil,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+function c9911217.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local op=0
+	if Duel.IsExistingMatchingCard(c9911217.thfilter,tp,LOCATION_DECK,0,1,e:GetHandler(),tp) then
+		op=Duel.SelectOption(tp,aux.Stringid(9911217,0),aux.Stringid(9911217,1))
+	else
+		op=Duel.SelectOption(tp,aux.Stringid(9911217,1))+1
+	end
+	if op==0 then
+		e:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+		e:SetOperation(c9911217.activate)
+		Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+	else
+		e:SetCategory(0)
+		e:SetOperation(c9911217.activate2)
+	end
 end
-function c9911217.thop(e,tp,eg,ep,ev,re,r,rp)
+function c9911217.activate(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
 	local g=Duel.SelectMatchingCard(tp,c9911217.thfilter,tp,LOCATION_DECK,0,1,1,nil,tp)
 	if g:GetCount()>0 then
@@ -45,10 +49,7 @@ function c9911217.thop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.ConfirmCards(1-tp,g)
 	end
 end
-function c9911217.indtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-end
-function c9911217.indop(e,tp,eg,ep,ev,re,r,rp)
+function c9911217.activate2(e,tp,eg,ep,ev,re,r,rp)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)

expansions/script/c9911221.lua

@@ -2,49 +2,51 @@
 function c9911221.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(9911221,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e1:SetCountLimit(1,9911221+EFFECT_COUNT_CODE_OATH)
 	e1:SetCost(c9911221.cost)
-	e1:SetTarget(c9911221.tktg)
-	e1:SetOperation(c9911221.tkop)
+	e1:SetTarget(c9911221.target)
+	e1:SetOperation(c9911221.activate)
 	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetDescription(aux.Stringid(9911221,1))
-	e2:SetCategory(0)
-	e2:SetTarget(c9911221.eftg)
-	e2:SetOperation(c9911221.efop)
-	c:RegisterEffect(e2)
 end
 function c9911221.costfilter(c)
 	return c:IsSetCard(0x5958) and c:IsType(TYPE_TRAP) and c:IsAbleToGraveAsCost()
 end
 function c9911221.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c9911221.costfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local g=Duel.SelectMatchingCard(tp,c9911221.costfilter,tp,LOCATION_DECK,0,1,1,nil)
 	Duel.SendtoGrave(g,REASON_COST)
 end
-function c9911221.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummonMonster(tp,9911211,0x6958,0x4011,1000,1000,2,RACE_MACHINE,ATTRIBUTE_DARK) end
-	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+function c9911221.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local op=0
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,9911211,0x6958,0x4011,1000,1000,2,RACE_MACHINE,ATTRIBUTE_DARK) then
+		op=Duel.SelectOption(tp,aux.Stringid(9911221,0),aux.Stringid(9911221,1))
+	else
+		op=Duel.SelectOption(tp,aux.Stringid(9911221,1))+1
+	end
+	if op==0 then
+		e:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+		e:SetOperation(c9911221.activate)
+		Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+	else
+		e:SetCategory(0)
+		e:SetOperation(c9911221.activate2)
+	end
 end
-function c9911221.tkop(e,tp,eg,ep,ev,re,r,rp)
+function c9911221.activate(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	if Duel.IsPlayerCanSpecialSummonMonster(tp,9911211,0x6958,0x4011,1000,1000,2,RACE_MACHINE,ATTRIBUTE_DARK) then
 		local token=Duel.CreateToken(tp,9911222)
 		Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
 	end
 end
-function c9911221.eftg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-end
-function c9911221.efop(e,tp,eg,ep,ev,re,r,rp)
+function c9911221.activate2(e,tp,eg,ep,ev,re,r,rp)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_INACTIVATE)

expansions/script/c9911225.lua

@@ -2,29 +2,20 @@
 function c9911225.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(9911225,0))
-	e1:SetCategory(CATEGORY_TOHAND)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e1:SetCountLimit(1,9911225+EFFECT_COUNT_CODE_OATH)
 	e1:SetCost(c9911225.cost)
-	e1:SetTarget(c9911225.thtg)
-	e1:SetOperation(c9911225.thop)
+	e1:SetTarget(c9911225.target)
+	e1:SetOperation(c9911225.activate)
 	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetDescription(aux.Stringid(9911225,1))
-	e2:SetCategory(0)
-	e2:SetTarget(c9911225.acttg)
-	e2:SetOperation(c9911225.actop)
-	c:RegisterEffect(e2)
 end
 function c9911225.costfilter(c)
 	return c:IsSetCard(0x5958) and c:IsType(TYPE_TRAP) and c:IsAbleToGraveAsCost()
 end
 function c9911225.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c9911225.costfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local g=Duel.SelectMatchingCard(tp,c9911225.costfilter,tp,LOCATION_DECK,0,1,1,nil)
 	Duel.SendtoGrave(g,REASON_COST)
@@ -32,11 +23,24 @@ end
 function c9911225.thfilter(c,tp)
 	return c:IsFaceup() and c:IsType(TYPE_TRAP) and c:IsAbleToHand(tp)
 end
-function c9911225.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c9911225.thfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+function c9911225.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local op=0
+	if Duel.IsExistingMatchingCard(c9911225.thfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil,tp) then
+		op=Duel.SelectOption(tp,aux.Stringid(9911225,0),aux.Stringid(9911225,1))
+	else
+		op=Duel.SelectOption(tp,aux.Stringid(9911225,1))+1
+	end
+	if op==0 then
+		e:SetCategory(CATEGORY_TOHAND)
+		e:SetOperation(c9911225.activate)
+		Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_REMOVED)
+	else
+		e:SetCategory(0)
+		e:SetOperation(c9911225.activate2)
+	end
 end
-function c9911225.thop(e,tp,eg,ep,ev,re,r,rp)
+function c9911225.activate(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
 	local g=Duel.SelectMatchingCard(tp,c9911225.thfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil)
 	if g:GetCount()>0 then
@@ -44,10 +48,7 @@ function c9911225.thop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.ConfirmCards(1-tp,g)
 	end
 end
-function c9911225.acttg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-end
-function c9911225.actop(e,tp,eg,ep,ev,re,r,rp)
+function c9911225.activate2(e,tp,eg,ep,ev,re,r,rp)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)

expansions/script/c9911230.lua

@@ -2,31 +2,20 @@
 function c9911230.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(9911230,0))
-	e1:SetCategory(CATEGORY_TOHAND)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e1:SetCountLimit(1,9911230+EFFECT_COUNT_CODE_OATH)
 	e1:SetCost(c9911230.cost)
-	e1:SetTarget(c9911230.thtg)
-	e1:SetOperation(c9911230.thop)
+	e1:SetTarget(c9911230.target)
+	e1:SetOperation(c9911230.activate)
 	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetDescription(aux.Stringid(9911230,1))
-	e2:SetCategory(0)
-	e1:SetProperty(0)
-	e2:SetTarget(c9911230.eftg)
-	e2:SetOperation(c9911230.efop)
-	c:RegisterEffect(e2)
 end
 function c9911230.costfilter(c)
 	return c:IsSetCard(0x5958) and c:IsType(TYPE_TRAP) and c:IsAbleToGraveAsCost()
 end
 function c9911230.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c9911230.costfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local g=Duel.SelectMatchingCard(tp,c9911230.costfilter,tp,LOCATION_DECK,0,1,1,nil)
 	Duel.SendtoGrave(g,REASON_COST)
@@ -34,24 +23,36 @@ end
 function c9911230.ckfilter(c)
 	return c:IsFaceup() and c:IsType(TYPE_NORMAL)
 end
-function c9911230.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local ct=Duel.GetMatchingGroupCount(c9911230.ckfilter,tp,LOCATION_MZONE,0,nil)
+function c9911230.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsOnField() and chkc:IsAbleToHand() and chkc~=e:GetHandler() end
-	if chk==0 then return ct>0 and Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
-	local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,e:GetHandler())
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,#g,0,0)
+	if chk==0 then return true end
+	local ct=Duel.GetMatchingGroupCount(c9911230.ckfilter,tp,LOCATION_MZONE,0,nil)
+	local op=0
+	if ct>0 and Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) then
+		op=Duel.SelectOption(tp,aux.Stringid(9911230,0),aux.Stringid(9911230,1))
+	else
+		op=Duel.SelectOption(tp,aux.Stringid(9911230,1))+1
+	end
+	if op==0 then
+		e:SetCategory(CATEGORY_TOHAND)
+		e:SetProperty(EFFECT_FLAG_CARD_TARGET)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+		local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,e:GetHandler())
+		e:SetOperation(c9911230.activate)
+		Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,#g,0,0)
+	else
+		e:SetCategory(0)
+		e:SetProperty(0)
+		e:SetOperation(c9911230.activate2)
+	end
 end
-function c9911230.thop(e,tp,eg,ep,ev,re,r,rp)
+function c9911230.activate(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
 	if g:GetCount()>0 then
 		Duel.SendtoHand(g,nil,REASON_EFFECT)
 	end
 end
-function c9911230.eftg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-end
-function c9911230.efop(e,tp,eg,ep,ev,re,r,rp)
+function c9911230.activate2(e,tp,eg,ep,ev,re,r,rp)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_ADD_TYPE)

expansions/script/c9911233.lua

@@ -2,38 +2,42 @@
 function c9911233.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(9911233,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e1:SetCountLimit(1,9911233+EFFECT_COUNT_CODE_OATH)
 	e1:SetCost(c9911233.cost)
-	e1:SetTarget(c9911233.sctg)
-	e1:SetOperation(c9911233.scop)
+	e1:SetTarget(c9911233.target)
+	e1:SetOperation(c9911233.activate)
 	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetDescription(aux.Stringid(9911233,1))
-	e2:SetCategory(0)
-	e2:SetTarget(c9911233.reptg)
-	e2:SetOperation(c9911233.repop)
-	c:RegisterEffect(e2)
 end
 function c9911233.costfilter(c)
 	return c:IsSetCard(0x5958) and c:IsType(TYPE_TRAP) and c:IsAbleToGraveAsCost()
 end
 function c9911233.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c9911233.costfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local g=Duel.SelectMatchingCard(tp,c9911233.costfilter,tp,LOCATION_DECK,0,1,1,nil)
 	Duel.SendtoGrave(g,REASON_COST)
 end
-function c9911233.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+function c9911233.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local op=0
+	if Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil) then
+		op=Duel.SelectOption(tp,aux.Stringid(9911233,0),aux.Stringid(9911233,1))
+	else
+		op=Duel.SelectOption(tp,aux.Stringid(9911233,1))+1
+	end
+	if op==0 then
+		e:SetCategory(CATEGORY_SPECIAL_SUMMON)
+		e:SetOperation(c9911233.activate)
+		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+	else
+		e:SetCategory(0)
+		e:SetOperation(c9911233.activate2)
+	end
 end
-function c9911233.scop(e,tp,eg,ep,ev,re,r,rp)
+function c9911233.activate(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,nil)
 	if g:GetCount()>0 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
@@ -41,10 +45,7 @@ function c9911233.scop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SynchroSummon(tp,sg:GetFirst(),nil)
 	end
 end
-function c9911233.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-end
-function c9911233.repop(e,tp,eg,ep,ev,re,r,rp)
+function c9911233.activate2(e,tp,eg,ep,ev,re,r,rp)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)