250405 wd

expansions/lflist.conf

@@ -41,6 +41,28 @@
 130002004 0
 130002005 0
 #WILD, I say WILD, WAHAHA
+22347001 0
+22347011 0
+22347021 0
+22347041 0
+22347051 0
+22347061 0
+22347071 0
+22347081 0
+22347091 0
+22347101 0
+22347111 0
+22347121 0
+22347131 0
+22347141 0
+22347151 0
+22347161 0
+22347171 0
+22347181 0
+91010018 0
+91010017 0
+91010019 0
+98941001 0
 4058 0
 575513 0
 700021 0

expansions/script/c116968003.lua

@@ -57,16 +57,29 @@ function cm.cfilter(c,fc)
 	return c:IsAbleToGraveAsCost() and (c:IsControler(fc:GetControler()) or c:IsFaceup())
 end
 function cm.negop(e,tp,eg,ep,ev,re,r,rp)
-	local e3=Effect.CreateEffect(e:GetHandler())
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetCode(EFFECT_DISABLE)
-	e3:SetReset(RESET_PHASE+PHASE_END)
-	e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
-	e3:SetTarget(cm.distg)
-	Duel.RegisterEffect(e3,tp)
-end
-function cm.distg(e,c)
-	return c:IsSummonLocation(LOCATION_EXTRA)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(Card.IsSummonLocation,tp,LOCATION_MZONE,LOCATION_MZONE,nil,LOCATION_EXTRA)
+	local tc=g:GetFirst()
+	while tc do
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_DISABLE_EFFECT)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e2)
+		if tc:IsType(TYPE_TRAPMONSTER) then
+			local e3=Effect.CreateEffect(c)
+			e3:SetType(EFFECT_TYPE_SINGLE)
+			e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
+			e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e3)
+		end
+		tc=g:GetNext()
+	end
 end
 function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end

expansions/script/c22347001.lua

+--蕾宗忍法贴
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+--[[
+①：从以下效果选1个适用。
+●自己墓地·除外状态的1张「蕾宗忍法」魔法卡在自己场上盖放。
+●自己场上1张卡回到持有者手卡
+--]]
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+--[[
+②：自己发动的魔法卡的效果的处理时，可以把墓地的这张卡除外。那个场合，那个效果变成「从卡组把1张「蕾宗忍法」魔法卡在自己场上盖放」。
+--]]
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_SOLVING)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCondition(cm.chcon)
+	e2:SetOperation(cm.chop)
+	c:RegisterEffect(e2)
+--[[
+③：这张卡从场上回到手卡的场合，直到回合结束得到以下效果。
+●手卡的这张卡持续公开。
+●这张卡可以在对方回合从手卡发动。
+--]]
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TO_HAND)
+	e3:SetCondition(cm.regcon)
+	e3:SetOperation(cm.regop)
+	c:RegisterEffect(e3)	
+end
+
+
+function cm.filter(c)
+	return c:IsSetCard(0x3705) and c:IsType(TYPE_SPELL) and c:IsSSetable() and c:IsFaceup()
+end
+function cm.spfilter(c,e,tp)
+	return c:IsAbleToHand()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local b1=Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil)
+	local b2=Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_ONFIELD,0,1,nil,e,tp)
+	if chk==0 then return b1 or b2 end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_ONFIELD)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local res=0
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
+	local b1=Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil)
+	local b2=Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_ONFIELD,0,1,nil,e,tp)
+	local op=0
+	if b1 and b2 then
+		op=Duel.SelectOption(tp,aux.Stringid(m,1),aux.Stringid(m,2))+1
+	elseif b1 then
+		op=Duel.SelectOption(tp,aux.Stringid(m,1))+1
+	elseif b2 then
+		op=Duel.SelectOption(tp,aux.Stringid(m,2))+2
+	end
+	if op==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+		local sg=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
+		if sg:GetCount()>0 then
+			res=Duel.SSet(tp,sg)
+		end
+	elseif op==2 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+		local tc=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_ONFIELD,0,1,1,nil,e,tp):GetFirst()
+		res=Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	end
+	local c=e:GetHandler()
+	local exc=nil
+	if c:IsStatus(STATUS_LEAVE_CONFIRMED) then exc=c end
+	local te=Duel.IsPlayerAffectedByEffect(tp,22347011)
+	if c:IsSetCard(0x3705) and c:GetType(TYPE_SPELL) and e:IsHasType(EFFECT_TYPE_ACTIVATE) and te and Duel.SelectYesNo(tp,Auxiliary.Stringid(22347011,1)) and c:IsRelateToEffect(e) and c:IsCanTurnSet()
+	then
+		if res>0 then Duel.BreakEffect() end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		g=Duel.SelectMatchingCard(tp,cm.lllfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+		Duel.Hint(HINT_CARD,0,22347011)
+		Duel.Remove(g,POS_FACEUP,REASON_COST)
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+end
+function cm.lllfilter(c)
+	return c:IsCode(22347011) and c:IsAbleToRemoveAsCost()
+end
+
+
+function cm.chcon(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	local c=e:GetHandler()
+	return ep==tp and re:IsActiveType(TYPE_SPELL) and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) and e:GetHandler():IsAbleToRemoveAsCost()
+end
+function cm.thfilter(c)
+	return c:IsSetCard(0x3705) and c:IsType(TYPE_SPELL) and c:IsSSetable()
+end
+function cm.chop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Group.CreateGroup()
+	if Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) and e:GetHandler():GetLocation()==LOCATION_GRAVE and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
+		Duel.Hint(HINT_CARD,0,m)
+		Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+		Duel.ChangeTargetCard(ev,g)
+		Duel.ChangeChainOperation(ev,cm.repop)
+	end
+end
+function cm.repop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local res=0
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		res=Duel.SSet(tp,g,tp,true)
+	end
+	local c=e:GetHandler()
+	local exc=nil
+	if c:IsStatus(STATUS_LEAVE_CONFIRMED) then exc=c end
+	local te=Duel.IsPlayerAffectedByEffect(tp,22347011)
+	if c:IsSetCard(0x3705) and c:GetType(TYPE_SPELL) and e:IsHasType(EFFECT_TYPE_ACTIVATE) and te and Duel.SelectYesNo(tp,Auxiliary.Stringid(22347011,1)) and c:IsRelateToEffect(e) and c:IsCanTurnSet()
+	then
+		if res>0 then Duel.BreakEffect() end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		g=Duel.SelectMatchingCard(tp,cm.lllfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+		Duel.Hint(HINT_CARD,0,22347011)
+		Duel.Remove(g,POS_FACEUP,REASON_COST)
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+end
+
+
+
+function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	--公开
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,4))
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_PUBLIC)
+	e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	c:RegisterEffect(e1)
+	--手发
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	e2:SetDescription(aux.Stringid(m,0))
+	c:RegisterEffect(e2)
+end
\ No newline at end of file

expansions/script/c22347011.lua

+--蕾宗忍法·握握手
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+--[[
+①：从手卡·卡组把1张「蕾宗忍」卡送去墓地才能发动。选自己场上1张卡回到手卡。
+--]]
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.spcost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+--[[
+②：「蕾宗忍法」通常·速攻魔法卡由自己发动的场合，可以把墓地的这张卡除外，给那个效果加上以下效果。
+●发动后这张卡不送去墓地，直接盖放。
+--]]
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(22347011)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetTargetRange(1,0)
+	e2:SetCondition(cm.chcon)
+	c:RegisterEffect(e2)
+--[[
+③：这张卡从场上回到手卡的场合，直到回合结束得到以下效果。
+●手卡的这张卡持续公开。
+●这张卡可以在对方回合从手卡发动。
+--]]
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TO_HAND)
+	e3:SetCondition(cm.regcon)
+	e3:SetOperation(cm.regop)
+	c:RegisterEffect(e3)	
+end
+
+
+function cm.costfilter(c)
+	return c:IsSetCard(0x705) and c:IsAbleToGraveAsCost()
+end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_DECK,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_ONFIELD)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local res=0
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,0,1,1,nil)
+	if g:GetCount()>0 then
+		res=Duel.SendtoHand(g,nil,REASON_EFFECT)
+	end
+	local c=e:GetHandler()
+	local exc=nil
+	if c:IsStatus(STATUS_LEAVE_CONFIRMED) then exc=c end
+	local te=Duel.IsPlayerAffectedByEffect(tp,22347011)
+	if c:IsSetCard(0x3705) and c:GetType(TYPE_SPELL) and e:IsHasType(EFFECT_TYPE_ACTIVATE) and te and Duel.SelectYesNo(tp,Auxiliary.Stringid(22347011,1)) and c:IsRelateToEffect(e) and c:IsCanTurnSet()
+	then
+		if res>0 then Duel.BreakEffect() end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		g=Duel.SelectMatchingCard(tp,cm.lllfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+		Duel.Hint(HINT_CARD,0,22347011)
+		Duel.Remove(g,POS_FACEUP,REASON_COST)
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+end
+function cm.lllfilter(c)
+	return c:IsCode(22347011) and c:IsAbleToRemoveAsCost()
+end
+
+
+function cm.chcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAbleToRemoveAsCost()
+end
+
+
+
+function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	--公开
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,2))
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_PUBLIC)
+	e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	c:RegisterEffect(e1)
+	--手发
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	e2:SetDescription(aux.Stringid(m,0))
+	c:RegisterEffect(e2)
+end
\ No newline at end of file

expansions/script/c22347021.lua

+--蕾宗忍法·阿罗根回手
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+--[[
+①：从自己手卡·墓地把1张「蕾宗忍法」魔法卡盖放才能发动。选自己除外的1张卡回到墓地。
+--]]
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.spcost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+--[[
+②：自己或者对方发动的卡的效果处理时，可以把墓地的这张卡除外。那个场合，选自己场上·墓地的1张「蕾宗忍」卡回到手卡。
+--]]
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_SOLVING)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCondition(cm.chcon)
+	e2:SetOperation(cm.chop)
+	c:RegisterEffect(e2)
+--[[
+③：这张卡从场上回到手卡的场合，直到回合结束得到以下效果。
+●手卡的这张卡持续公开。
+●这张卡可以在对方回合从手卡发动。
+--]]
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TO_HAND)
+	e3:SetCondition(cm.regcon)
+	e3:SetOperation(cm.regop)
+	c:RegisterEffect(e3)	
+end
+
+
+function cm.costfilter(c)
+	return c:IsSetCard(0x3705) and c:IsType(TYPE_SPELL) and c:IsSSetable()
+end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
+	Duel.SSet(tp,g)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_REMOVED)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local res=0
+	local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_REMOVED,0,1,1,nil)
+	if g:GetCount()>0 then
+		res=Duel.SendtoGrave(g,REASON_EFFECT+REASON_RETURN)
+	end
+	local c=e:GetHandler()
+	local exc=nil
+	if c:IsStatus(STATUS_LEAVE_CONFIRMED) then exc=c end
+	local te=Duel.IsPlayerAffectedByEffect(tp,22347011)
+	if c:IsSetCard(0x3705) and c:GetType(TYPE_SPELL) and e:IsHasType(EFFECT_TYPE_ACTIVATE) and te and Duel.SelectYesNo(tp,Auxiliary.Stringid(22347011,1)) and c:IsRelateToEffect(e) and c:IsCanTurnSet()
+	then
+		if res>0 then Duel.BreakEffect() end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		g=Duel.SelectMatchingCard(tp,cm.lllfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+		Duel.Hint(HINT_CARD,0,22347011)
+		Duel.Remove(g,POS_FACEUP,REASON_COST)
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+end
+function cm.lllfilter(c)
+	return c:IsCode(22347011) and c:IsAbleToRemoveAsCost()
+end
+
+
+function cm.chcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAbleToRemoveAsCost() and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,e:GetHandler())
+end
+function cm.thfilter(c)
+	return c:IsSetCard(0x705) and c:IsAbleToHand()
+end
+function cm.chop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():GetLocation()==LOCATION_GRAVE and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+		Duel.Hint(HINT_CARD,0,m)
+		Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOHAND)
+		local tc=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,1,nil):GetFirst()
+		if tc then
+			Duel.ConfirmCards(1-tp,tc)
+			Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		end
+	end
+end
+
+
+
+function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	--公开
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,2))
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_PUBLIC)
+	e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	c:RegisterEffect(e1)
+	--手发
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	e2:SetDescription(aux.Stringid(m,0))
+	c:RegisterEffect(e2)
+end
\ No newline at end of file

expansions/script/c22347041.lua

+--蕾宗忍法导师 大蕾导
+local s,id,o=GetID()
+function c22347041.initial_effect(c)
+	--这张卡不能通常召唤，用卡的效果才能特殊召唤。
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetValue(s.splimit)
+	c:RegisterEffect(e0)
+	--①：自己把「蕾宗忍法」卡发动的场合才能发动。这张卡从手卡·墓地特殊召唤。
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.spcon)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
+	c:RegisterEffect(e1)
+	--②：这张卡特殊召唤成功的场合才能发动。从卡组把「蕾宗忍者导师 大蕾导」以外的1张「蕾宗忍」卡加入手卡。
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,id+1)
+	e2:SetTarget(s.thtg)
+	e2:SetOperation(s.thop)
+	c:RegisterEffect(e2)
+	--③：自己场上的表侧表示的卡回到手卡的场合，以对方场上1张卡为对象才能发动。那张卡回到持有者手卡。
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(id,2))
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCode(EVENT_TO_HAND)
+	e3:SetCondition(s.condition)
+	e3:SetTarget(s.target)
+	e3:SetOperation(s.operation)
+	c:RegisterEffect(e3)
+end
+function s.splimit(e,se,sp,st)
+	return se:IsHasType(EFFECT_TYPE_ACTIONS)
+end
+function s.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return re:GetHandler():IsSetCard(0x3705)
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function s.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function s.thfilter(c)
+	return c:IsSetCard(0x3705) and not c:IsCode(22347041) and c:IsAbleToHand()
+end
+function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function s.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function s.cfilter(c,tp)
+	return  c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousControler(tp)
+end
+function s.condition(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(s.cfilter,1,nil,tp)
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsAbleToHand() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+	e:GetHandler():RegisterFlagEffect(22347041,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+end
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

expansions/script/c22347051.lua

+--蕾宗忍法陪练 紫蕾影
+local s,id,o=GetID()
+function c22347051.initial_effect(c)
+	--①：自己场上有「蕾宗忍者」怪兽存在的场合才能发动。手卡的这张卡解放，从卡组中把1张「蕾宗忍法」魔法·陷阱卡加入手卡。
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_RELEASE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.spcon)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
+	c:RegisterEffect(e1)
+	--②：这张卡在墓地存在的自己主要阶段可以发动。选这张卡以外自己墓地1张「蕾宗忍」卡回到手卡。
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,id+1)
+	e2:SetTarget(s.thtg)
+	e2:SetOperation(s.thop)
+	c:RegisterEffect(e2)
+end
+function s.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x5705)
+end
+function s.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function s.ssfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0x3705) and c:IsAbleToHand()
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.ssfilter,tp,LOCATION_DECK,0,1,nil)
+		and e:GetHandler():IsReleasable(REASON_EFFECT) end
+	Duel.SetOperationInfo(0,CATEGORY_RELEASE,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function s.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.Release(c,REASON_EFFECT)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local tg=Duel.SelectMatchingCard(tp,s.ssfilter,tp,LOCATION_DECK,0,1,1,nil)
+		if #tg>0 then
+			Duel.SendtoHand(tg,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,tg)
+		end
+	end
+end
+function s.thfilter(c)
+	return c:IsSetCard(0x705) and c:IsAbleToHand()
+end
+function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+end
+function s.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local tg=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_GRAVE,0,1,1,aux.ExceptThisCard(e))
+	if #tg>0 then
+		Duel.SendtoHand(tg,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tg)
+	end
+end
\ No newline at end of file

expansions/script/c22347061.lua

+--蕾宗忍法斥候 堤米
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--①：自己主要阶段可以发动。从自己卡组中把1张「蕾宗忍」卡加入手卡。
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,id)
+	e1:SetTarget(s.thtg)
+	e1:SetOperation(s.thop)
+	c:RegisterEffect(e1)  
+	--②：双方回合才能发动。场上的这张卡回到手卡，那之后，可以让自己场上任意数量的卡回到持有者手卡（自己场上没有卡的场合，也能作为代替让对方场上1张卡回到卡组）。
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,id+1)
+	--e2:SetCost(s.cost)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e2:SetTarget(s.tdtg)
+	e2:SetOperation(s.tdop)
+	c:RegisterEffect(e2)
+end
+function s.filter(c)
+	return c:IsSetCard(0x705) and c:IsAbleToHand()
+end
+function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function s.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=5 or Duel.GetFieldGroupCount(1-tp,LOCATION_DECK,0)>=5 end
+end
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	local b1=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=5
+	local b2=Duel.GetFieldGroupCount(1-tp,LOCATION_DECK,0)>=5
+	if not b1 and not b2 then return end
+	local op=nil
+	if b1 and b2 then
+		op=Duel.SelectOption(tp,aux.Stringid(id,0),aux.Stringid(id,1))
+	elseif b1 then
+		op=Duel.SelectOption(tp,aux.Stringid(id,0))
+	else
+		op=Duel.SelectOption(tp,aux.Stringid(id,1))+1
+	end
+	local p=op==0 and tp or 1-tp
+	Duel.SortDecktop(tp,p,5)
+	Duel.BreakEffect()
+	Duel.Draw(tp,1,REASON_EFFECT)
+end
+function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToHandAsCost() end
+	Duel.SendtoHand(e:GetHandler(),nil,REASON_COST)
+end
+function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToHand() end --Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	--local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+end
+function s.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SendtoHand(c,nil,REASON_EFFECT)>0 and c:IsLocation(LOCATION_HAND) and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
+		local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_ONFIELD,0,nil)
+		if #g>0 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+			local tg=g:CancelableSelect(tp,1,#g,nil)
+			if tg and #tg>0 then
+				Duel.HintSelection(tg)
+				Duel.SendtoHand(tg,nil,REASON_EFFECT)
+			end
+		elseif Duel.GetMatchingGroupCount(nil,tp,LOCATION_ONFIELD,0,nil)==0 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+			local tg=g:CancelableSelect(tp,1,1,nil)
+			if tg and #tg>0 then
+				Duel.HintSelection(tg)
+				Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+			end
+		end
+	end
+end
+
+
+
+
+
+
+
+
+
+
+
+
+

expansions/script/c22347071.lua

+--蕾宗忍法·影分身十字斩
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--[[
+①：以自己场上1只「蕾宗忍者」怪兽为对象才能发动。以下效果重复自己手卡持续公开的「蕾宗忍」卡数量+1次。
+●对方场上随机1只怪兽的攻击力下降这张卡攻击力一半的数值。为0的场合破坏。
+	--]]
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(s.atktg)
+	e1:SetOperation(s.atkop)
+	c:RegisterEffect(e1)	
+	--②：卡的效果发动的场合，把墓地的这张卡除外才能发动。自己场上「蕾宗忍者」怪兽的攻击力上升500。
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_ATKCHANGE)
+	e2:SetDescription(aux.Stringid(id,2))
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(s.atktg2)
+	e2:SetOperation(s.atkop2)
+	c:RegisterEffect(e2)	
+	--[[
+③：这张卡从场上回到手卡的场合，直到回合结束得到以下效果。
+●手卡的这张卡持续公开。
+●这张卡可以在对方回合从手卡发动。
+	--]]
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TO_HAND)
+	e3:SetCondition(s.regcon)
+	e3:SetOperation(s.regop)
+	c:RegisterEffect(e3)
+end
+function s.filter(c)
+	return c:IsFaceup() and c:IsSetCard(0x5705)
+end
+function s.pfilter(c)
+	return c:IsPublic() and c:IsSetCard(0x705)
+end
+function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function s.atkop(e,tp)
+	local tc=Duel.GetFirstTarget()
+	local res=0
+	if not (tc:IsRelateToEffect(e) and tc:IsFaceup()) then return end   
+	local count=Duel.GetMatchingGroupCount(s.pfilter,tp,LOCATION_HAND,0,nil)+1
+	local res=count
+	for i=1,count do
+		local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
+		if #g==0 then return end
+		local sg=g:RandomSelect(tp,1)
+		local sc=sg:GetFirst()
+		local atk=math.floor(tc:GetAttack()/2)
+		if atk>0 then
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetValue(-atk)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			sc:RegisterEffect(e1)
+			if sc:GetAttack()==0 then
+				Duel.Destroy(sc,REASON_EFFECT)
+			end
+		else
+			Duel.Destroy(sc,REASON_EFFECT)
+		end
+	end
+	local c=e:GetHandler()
+	local exc=nil
+	if c:IsStatus(STATUS_LEAVE_CONFIRMED) then exc=c end
+	local te=Duel.IsPlayerAffectedByEffect(tp,22347011)
+	if c:IsSetCard(0x3705) and c:GetType(TYPE_SPELL) and e:IsHasType(EFFECT_TYPE_ACTIVATE) and te and Duel.SelectYesNo(tp,Auxiliary.Stringid(22347011,1)) and c:IsRelateToEffect(e) and c:IsCanTurnSet()
+	then
+		if res>0 then Duel.BreakEffect() end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		g=Duel.SelectMatchingCard(tp,s.lllfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+		Duel.Hint(HINT_CARD,0,22347011)
+		Duel.Remove(g,POS_FACEUP,REASON_COST)
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+end
+function s.lllfilter(c)
+	return c:IsCode(22347011) and c:IsAbleToRemoveAsCost()
+end
+
+
+function s.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+end
+function s.atktg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMatchingGroupCount(s.filter,tp,LOCATION_MZONE,0,nil)>0 end
+end
+function s.atkop2(e,tp)
+	local g=Duel.GetMatchingGroup(s.filter,tp,LOCATION_MZONE,0,nil)
+	for tc in aux.Next(g) do
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(500)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+	end
+end
+function s.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function s.regop(e,tp)
+	local c=e:GetHandler()
+	--公开
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,1))
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_PUBLIC)
+	e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	c:RegisterEffect(e1)
+	--手发
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	e2:SetDescription(aux.Stringid(id,0))
+	c:RegisterEffect(e2)
+end

expansions/script/c22347081.lua

+--蕾宗忍法·纳米悠悠球
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--①：选对方场上1只怪兽的攻击力变成一半。自己场上有「蕾宗忍者」怪兽存在的场合，可以再让那只怪兽的效果无效。
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DISABLE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(s.target1)
+	e1:SetOperation(s.operation1)
+	c:RegisterEffect(e1)	
+	--②：卡的效果发动的场合，把墓地的这张卡除外才能发动。从卡组上面把3张卡送去墓地。
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DECKDES)
+	e2:SetDescription(aux.Stringid(id,0))
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(s.ddtg)
+	e2:SetOperation(s.ddop)
+	c:RegisterEffect(e2)
+	--[[
+③：这张卡从场上回到手卡的场合，直到回合结束得到以下效果。
+●手卡的这张卡持续公开。
+●这张卡可以在对方回合从手卡发动。
+	--]]
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TO_HAND)
+	e3:SetCondition(s.regcon)
+	e3:SetOperation(s.regop)
+	c:RegisterEffect(e3)
+end
+function s.filter1(c)
+	return c:IsFaceup() and c:IsAttackAbove(1)
+end
+function s.filter2(c)
+	return c:IsFaceup() and c:IsSetCard(0x5705)
+end
+function s.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and s.filter1(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(s.filter1,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,s.filter1,tp,0,LOCATION_MZONE,1,1,nil)
+end
+function s.operation1(e,tp)
+	local c=e:GetHandler()
+	local res=0
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e1:SetValue(math.floor(tc:GetAttack()/2))
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		res=tc:RegisterEffect(e1)	 
+		if Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_MZONE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_DISABLE)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e2)
+			local e3=Effect.CreateEffect(c)
+			e3:SetType(EFFECT_TYPE_SINGLE)
+			e3:SetCode(EFFECT_DISABLE_EFFECT)
+			e3:SetValue(RESET_TURN_SET)
+			e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e3)
+		end
+	end
+	local c=e:GetHandler()
+	local exc=nil
+	if c:IsStatus(STATUS_LEAVE_CONFIRMED) then exc=c end
+	local te=Duel.IsPlayerAffectedByEffect(tp,22347011)
+	if c:IsSetCard(0x3705) and c:GetType(TYPE_SPELL) and e:IsHasType(EFFECT_TYPE_ACTIVATE) and te and Duel.SelectYesNo(tp,Auxiliary.Stringid(22347011,1)) and c:IsRelateToEffect(e) and c:IsCanTurnSet()
+	then
+		if res>0 then Duel.BreakEffect() end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		g=Duel.SelectMatchingCard(tp,s.lllfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+		Duel.Hint(HINT_CARD,0,22347011)
+		Duel.Remove(g,POS_FACEUP,REASON_COST)
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+end
+function s.lllfilter(c)
+	return c:IsCode(22347011) and c:IsAbleToRemoveAsCost()
+end
+
+
+function s.ddtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,3)
+end
+function s.ddop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.DiscardDeck(tp,3,REASON_EFFECT)
+end
+function s.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function s.regop(e,tp)
+	local c=e:GetHandler()
+	--公开
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,2))
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_PUBLIC)
+	e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	c:RegisterEffect(e1)
+	--手发
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	e2:SetDescription(aux.Stringid(id,1))
+	c:RegisterEffect(e2)
+end

expansions/script/c22347091.lua

+--蕾宗忍法·握双手
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--①：双方各抽1张卡，那之后，双方各选「蕾宗忍法·握双手」以外自身场上1张卡回到手卡。这个回合，双方场上的怪兽不会被破坏，双方受到的伤害变成0。
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DRAW+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(s.tg1)
+	e1:SetOperation(s.op1)
+	c:RegisterEffect(e1)	
+	--②：卡的效果发动的场合，把墓地的这张卡除外才能发动。从手卡把1张魔法·陷阱卡当做永续魔法卡在自己场上放置。那之后选自己场上1张卡回到手卡。
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_ATKCHANGE)
+	e2:SetDescription(aux.Stringid(id,0))
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(s.sstg)
+	e2:SetOperation(s.ssop)
+	c:RegisterEffect(e2)	 
+	--[[
+③：这张卡从场上回到手卡的场合，直到回合结束得到以下效果。
+●手卡的这张卡持续公开。
+●这张卡可以在对方回合从手卡发动。
+	]]
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TO_HAND)
+	e3:SetCondition(s.regcon)
+	e3:SetOperation(s.regop)
+	c:RegisterEffect(e3)
+end
+function s.thfilter(c)
+	return c:IsAbleToHand() and not c:IsCode(id)
+end
+function s.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and Duel.IsPlayerCanDraw(1-tp,1) and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_ONFIELD,0,1,nil) and Duel.IsExistingMatchingCard(s.thfilter,1-tp,LOCATION_ONFIELD,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,PLAYER_ALL,1)
+end
+function s.op1(e,tp)
+	local dr1=Duel.Draw(tp,1,REASON_EFFECT)
+	local dr2=Duel.Draw(1-tp,1,REASON_EFFECT)
+	local res=0
+	if dr1==0 or dr2==0 then return end
+	local g=Group.CreateGroup()
+	for p=0,1 do
+		local sg=Duel.SelectMatchingCard(p,s.thfilter,p,LOCATION_ONFIELD,0,1,1,nil)
+		if #sg>0 then
+			g:Merge(sg)
+		end
+	end
+	res=Duel.SendtoHand(g,nil,REASON_EFFECT)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e1:SetValue(1)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CHANGE_DAMAGE)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,1)
+	e2:SetValue(0)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+	
+	local e3=e2:Clone()
+	e3:SetCode(EFFECT_NO_EFFECT_DAMAGE)
+	Duel.RegisterEffect(e3,tp)
+	
+	local c=e:GetHandler()
+	local exc=nil
+	if c:IsStatus(STATUS_LEAVE_CONFIRMED) then exc=c end
+	local te=Duel.IsPlayerAffectedByEffect(tp,22347011)
+	if c:IsSetCard(0x3705) and c:GetType(TYPE_SPELL) and e:IsHasType(EFFECT_TYPE_ACTIVATE) and te and Duel.SelectYesNo(tp,Auxiliary.Stringid(22347011,1)) and c:IsRelateToEffect(e) and c:IsCanTurnSet()
+	then
+		if res>0 then Duel.BreakEffect() end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		g=Duel.SelectMatchingCard(tp,s.lllfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+		Duel.Hint(HINT_CARD,0,22347011)
+		Duel.Remove(g,POS_FACEUP,REASON_COST)
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+end
+function s.lllfilter(c)
+	return c:IsCode(22347011) and c:IsAbleToRemoveAsCost()
+end
+
+
+function s.sstg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_HAND,0,1,nil,TYPE_SPELL+TYPE_TRAP) end
+end
+function s.ssop(e,tp)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+	local tc=Duel.SelectMatchingCard(tp,Card.IsType,tp,LOCATION_HAND,0,1,1,nil,TYPE_SPELL+TYPE_TRAP):GetFirst()
+	if tc then
+		Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+	end
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,0,1,1,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+	end
+end
+function s.lllfilter(c)
+	return c:IsCode(22347011) and c:IsAbleToRemoveAsCost()
+end
+
+function s.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function s.regop(e,tp)
+	local c=e:GetHandler()
+	--公开
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,2))
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_PUBLIC)
+	e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	c:RegisterEffect(e1)
+	--手发
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	e2:SetDescription(aux.Stringid(id,1))
+	c:RegisterEffect(e2)
+end

expansions/script/c22347101.lua

+--蕾忍宗
+local s,id,o=GetID()
+function s.initial_effect(c)
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)	
+	--①：主要阶段才能发动。从卡组把1张「蕾宗忍法」卡加入手卡。
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetCountLimit(1,id)
+	e1:SetTarget(s.thtg)
+	e1:SetOperation(s.thop)
+	c:RegisterEffect(e1)	
+	--②：场上的卡回到手卡的场合，自己场上的怪兽攻击力上升300。
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_TO_HAND)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCondition(s.atkcon)
+	e2:SetOperation(s.atkop)
+	c:RegisterEffect(e2)
+end
+function s.thfilter(c)
+	return c:IsSetCard(0x3705) and c:IsAbleToHand()
+end
+function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function s.thop(e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(Card.IsPreviousLocation,1,nil,LOCATION_ONFIELD)
+end
+function s.atkop(e,tp)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
+	for tc in aux.Next(g) do
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(300)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+	end
+end
\ No newline at end of file

expansions/script/c22347111.lua

+--蕾宗忍法·闪光登场
+function c22347111.initial_effect(c)
+	--①：从卡组把1只「蕾宗忍者」怪兽加入手卡。自己场上没有怪兽存在的场合，也能不加入手卡特殊召唤。
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,22347111+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c22347111.target)
+	e1:SetOperation(c22347111.activate)
+	c:RegisterEffect(e1)
+	--②：把这个回合没有送去墓地的这张卡从墓地除外才能发动。从卡组把1张「蕾宗忍法」魔法卡加入手卡。
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCondition(aux.exccon)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c22347111.thtg)
+	e2:SetOperation(c22347111.thop)
+	c:RegisterEffect(e2)
+end
+function c22347111.filter(c,e,tp,check)
+	return c:IsSetCard(0x5705) and c:IsType(TYPE_MONSTER) and (c:IsAbleToHand()
+		or check and c:IsCanBeSpecialSummoned(e,0,tp,false,false))
+end
+function c22347111.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local check=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		return Duel.IsExistingMatchingCard(c22347111.filter,tp,LOCATION_DECK,0,1,nil,e,tp,check)
+	end
+end
+function c22347111.activate(e,tp,eg,ep,ev,re,r,rp)
+	local check=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
+	local res=0
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
+	local g=Duel.SelectMatchingCard(tp,c22347111.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp,check)
+	if g:GetCount()<=0 then return end
+	local tc=g:GetFirst()
+	local b=check and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
+	if tc:IsAbleToHand() and (not b or Duel.SelectOption(tp,1190,1152)==0) then
+		res=Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	else
+		res=Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+	local c=e:GetHandler()
+	local exc=nil
+	if c:IsStatus(STATUS_LEAVE_CONFIRMED) then exc=c end
+	local te=Duel.IsPlayerAffectedByEffect(tp,22347011)
+	if c:IsSetCard(0x3705) and c:GetType(TYPE_SPELL) and e:IsHasType(EFFECT_TYPE_ACTIVATE) and te and Duel.SelectYesNo(tp,Auxiliary.Stringid(22347011,1)) and c:IsRelateToEffect(e) and c:IsCanTurnSet()
+	then
+		if res>0 then Duel.BreakEffect() end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		g=Duel.SelectMatchingCard(tp,c22347111.lllfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+		Duel.Hint(HINT_CARD,0,22347011)
+		Duel.Remove(g,POS_FACEUP,REASON_COST)
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+end
+function c22347111.lllfilter(c)
+	return c:IsCode(22347011) and c:IsAbleToRemoveAsCost()
+end
+
+
+function c22347111.thfilter(c)
+	return c:IsType(TYPE_SPELL) and c:IsAbleToHand() and c:IsSetCard(0x3705) 
+end
+function c22347111.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c22347111.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c22347111.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c22347111.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

expansions/script/c22347121.lua

+--蕾蕾宗忍法·灭杀之拳
+function c22347121.initial_effect(c)
+	--①：让自己场上1只「蕾宗忍者」怪兽回到手卡，以对方场上2张卡为对象才能发动。那些卡破坏。
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22347121,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCost(c22347121.cost)
+	e1:SetTarget(c22347121.target)
+	e1:SetOperation(c22347121.activate)
+	c:RegisterEffect(e1)
+	--②：自己场上有「蕾宗忍者」怪兽存在，对方把怪兽的效果发动时，把墓地的这张卡除外才能发动。那个发动无效并破坏。
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,22347121)
+	e2:SetCondition(c22347121.discon)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c22347121.distg)
+	e2:SetOperation(c22347121.disop)
+	c:RegisterEffect(e2)
+end
+function c22347121.cfilter(c)
+	return c:IsFaceup() and c:IsAbleToHandAsCost() and c:IsType(TYPE_MONSTER) and c:IsSetCard(0x5705)
+end
+function c22347121.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFlagEffect(tp,id)==0 and Duel.IsExistingMatchingCard(c22347121.cfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectMatchingCard(tp,c22347121.cfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SendtoHand(g,nil,REASON_COST)
+end
+function c22347121.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return false end
+	if chk==0 then return Duel.IsExistingTarget(aux.TURE,tp,0,LOCATION_ONFIELD,2,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,aux.TURE,tp,0,LOCATION_ONFIELD,2,2,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0)
+end
+function c22347121.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	Duel.Destroy(tg,REASON_EFFECT)
+end
+function c22347121.filter(c)
+	return c:IsSetCard(0x5705) and c:IsFaceup()
+end
+function c22347121.discon(e,tp,eg,ep,ev,re,r,rp)
+	return rp~=tp and Duel.IsChainDisablable(ev) and re:IsActiveType(TYPE_MONSTER)
+		and Duel.IsExistingMatchingCard(c22347121.filter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c22347121.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c22347121.disop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c22347131.lua

+--蕾宗忍法·欧内死手
+function c22347131.initial_effect(c)
+	--[[
+①：宣言「我夺取心脏」才能发动。从以下效果选1个适用。
+●给与对方为对方手卡数量×350伤害。
+●对方场上1只表侧表示的怪兽破坏，给与对方那个原本攻击力数值的伤害。
+	--]]
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22347131,0))
+	e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,22347131+EFFECT_COUNT_CODE_OATH)
+	e1:SetCost(c22347131.cost)
+	e1:SetTarget(c22347131.target)
+	e1:SetOperation(c22347131.activate)
+	c:RegisterEffect(e1)
+	--[[
+②：这张卡从场上回到手卡的场合，直到回合结束得到以下效果。
+●手卡的这张卡持续公开。
+●这张卡可以在对方回合从手卡发动。
+	--]]
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_TO_HAND)
+	e2:SetCondition(c22347131.regcon)
+	e2:SetOperation(c22347131.regop)
+	c:RegisterEffect(e2)
+end
+function c22347131.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+end
+function c22347131.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local b1=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0
+	local b2=Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil)
+	if chk==0 then return true end
+end
+function c22347131.activate(e,tp,eg,ep,ev,re,r,rp,op)
+	local b1=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0
+	local b2=Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil)
+	local res=0
+	local op=aux.SelectFromOptions(tp,
+		{b1,aux.Stringid(22347131,1)},
+		{b2,aux.Stringid(22347131,2)})
+	if op==1 then
+		res=Duel.Damage(1-tp,Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)*350,REASON_EFFECT)
+	elseif op==2 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local g=Duel.SelectMatchingCard(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
+		if g:GetCount()>0 then
+			local atk=g:GetFirst():GetTextAttack()
+			if atk<0 then atk=0 end
+			Duel.HintSelection(g)
+			res=Duel.Destroy(g,REASON_EFFECT)
+			if res~=0 then
+				Duel.Damage(1-tp,atk,REASON_EFFECT)
+			end
+		end
+	end
+local c=e:GetHandler()
+	local exc=nil
+	if c:IsStatus(STATUS_LEAVE_CONFIRMED) then exc=c end
+	local te=Duel.IsPlayerAffectedByEffect(tp,22347011)
+	if c:IsSetCard(0x3705) and c:GetType(TYPE_SPELL) and e:IsHasType(EFFECT_TYPE_ACTIVATE) and te and Duel.SelectYesNo(tp,Auxiliary.Stringid(22347011,1)) and c:IsRelateToEffect(e) and c:IsCanTurnSet()
+	then
+		if res>0 then Duel.BreakEffect() end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		g=Duel.SelectMatchingCard(tp,c22347131.lllfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+		Duel.Hint(HINT_CARD,0,22347011)
+		Duel.Remove(g,POS_FACEUP,REASON_COST)
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+end
+function c22347131.lllfilter(c)
+	return c:IsCode(22347011) and c:IsAbleToRemoveAsCost()
+end
+
+
+function c22347131.regcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_ONFIELD)
+end
+function c22347131.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	--公开
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22347131,4))
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_PUBLIC)
+	e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	c:RegisterEffect(e1)
+	--手发
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	e2:SetDescription(aux.Stringid(22347131,3))
+	c:RegisterEffect(e2)
+end
\ No newline at end of file

expansions/script/c22347141.lua

+--蕾宗忍法·回来吧！我心爱的手
+function c22347141.initial_effect(c)
+	--①：以自己墓地的至多6张「蕾宗忍法」魔法·陷阱卡为对象才能发动。那些卡回到卡组。那之后，可以让回去的卡每3张最多1张的场上的卡回到手卡。
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22347141,0))
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,22347141+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c22347141.target)
+	e1:SetOperation(c22347141.activate)
+	c:RegisterEffect(e1)
+	--[[
+②：这张卡从场上回到手卡的场合，直到回合结束得到以下效果。
+●手卡的这张卡持续公开。
+●这张卡可以在对方回合从手卡发动。
+	]]
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_TO_HAND)
+	e2:SetCondition(c22347141.regcon)
+	e2:SetOperation(c22347141.regop)
+	c:RegisterEffect(e2)
+end
+function c22347141.tdfilter(c)
+	return c:IsSetCard(0x3705) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck()
+end
+function c22347141.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c22347141.tdfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c22347141.tdfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c22347141.tdfilter,tp,LOCATION_GRAVE,0,1,6,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,#g,0,0)
+end
+function c22347141.activate(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetTargetsRelateToChain()
+	local res=0
+	if #sg==0 then return end
+	res=Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+	local og=Duel.GetOperatedGroup()
+	local ct=math.floor(og:FilterCount(Card.IsLocation,nil,LOCATION_DECK)/3)
+	if ct>0 and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(22347141,0)) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil)
+		Duel.HintSelection(g)
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+	end
+	local c=e:GetHandler()
+	local exc=nil
+	if c:IsStatus(STATUS_LEAVE_CONFIRMED) then exc=c end
+	local te=Duel.IsPlayerAffectedByEffect(tp,22347011)
+	if c:IsSetCard(0x3705) and c:GetType(TYPE_SPELL) and e:IsHasType(EFFECT_TYPE_ACTIVATE) and te and Duel.SelectYesNo(tp,Auxiliary.Stringid(22347011,1)) and c:IsRelateToEffect(e) and c:IsCanTurnSet()
+	then
+		if res>0 then Duel.BreakEffect() end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		g=Duel.SelectMatchingCard(tp,c22347141.lllfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+		Duel.Hint(HINT_CARD,0,22347011)
+		Duel.Remove(g,POS_FACEUP,REASON_COST)
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		end
+	end
+end
+function c22347141.lllfilter(c)
+	return c:IsCode(22347011) and c:IsAbleToRemoveAsCost()
+end
+
+function c22347141.regcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_ONFIELD)
+end
+function c22347141.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	--公开
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22347141,2))
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_PUBLIC)
+	e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	c:RegisterEffect(e1)
+	--手发
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
+	e2:SetDescription(aux.Stringid(22347141,3))
+	c:RegisterEffect(e2)
+end
\ No newline at end of file

expansions/script/c22347151.lua

+--蕾宗忍者·対蕾忍 阿莎姬
+function c22347151.initial_effect(c)
+	c:SetSPSummonOnce(22347151)
+	--link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0x5705),1,1)
+	--①：这张卡特殊召唤的场合，以自己的场上·墓地1张「蕾宗忍」卡为对象才能发动。那张卡加入手卡。
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22347151,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(c22347151.thtg)
+	e1:SetOperation(c22347151.thop)
+	c:RegisterEffect(e1)
+	--[[
+②：以自己墓地的1只「忍者」怪兽为对象才能发动。那只怪兽当作装备魔法卡使用给这张卡装备（只有1只可以装备）。
+③：这张卡的攻击力上升这张卡的效果装备的怪兽的原本攻击力的数值。
+	]]
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(22347151,0))
+	e2:SetCategory(CATEGORY_EQUIP)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,22347151)
+	e2:SetCondition(c22347151.eqcon)
+	e2:SetTarget(c22347151.eqtg)
+	e2:SetOperation(c22347151.eqop)
+	c:RegisterEffect(e2)
+end
+function c22347151.thfilter(c)
+	return c:IsSetCard(0x705) and c:IsFaceupEx() and c:IsAbleToHand()
+end
+function c22347151.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_ONFIELD+LOCATION_GRAVE) and chkc:IsControler(tp) and c22347151.thfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c22347151.thfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local sg=Duel.SelectTarget(tp,c22347151.thfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,1,0,0)
+end
+function c22347151.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end
+function c22347151.eqcon(e,tp,eg,ep,ev,re,r,rp)
+	return c22347151.can_equip_monster(e:GetHandler())
+end
+function c22347151.eqfilter(c)
+	return c:GetFlagEffect(22347151)~=0
+end
+function c22347151.can_equip_monster(c)
+	local g=c:GetEquipGroup():Filter(c22347151.eqfilter,nil)
+	return g:GetCount()==0
+end
+function c22347151.eqfilter(c)
+	return (c:IsSetCard(0x705) and c:IsSetCard(0x2b)) and c:IsFaceup() and not c:IsForbidden()
+end
+function c22347151.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c22347151.eqfilter(chkc) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingTarget(c22347151.eqfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	local g=Duel.SelectTarget(tp,c22347151.eqfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
+end
+function c22347151.eqlimit(e,c)
+	return e:GetOwner()==c
+end
+function c22347151.equip_monster(c,tp,tc)
+	if not Duel.Equip(tp,tc,c,false) then return end
+	--Add Equip limit
+	tc:RegisterFlagEffect(22347151,RESET_EVENT+RESETS_STANDARD,0,0)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_EQUIP_LIMIT)
+	e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	e1:SetValue(c22347151.eqlimit)
+	tc:RegisterEffect(e1)
+	local atk=tc:GetTextAttack()
+	if atk<0 then atk=0 end
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_EQUIP)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+	e2:SetValue(atk)
+	tc:RegisterEffect(e2)
+end
+function c22347151.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		c22347151.equip_monster(c,tp,tc)
+	end
+end

expansions/script/c22347161.lua

+local m=22347161
+local cm=_G["c"..m]
+cm.name="蕾宗忍者杀手·小蓟"
+function cm.initial_effect(c)
+	--link summon
+	local e11=aux.AddLinkProcedure(c,cm.lmatfilter,3,3,cm.lcheck)
+	e11:SetProperty(e11:GetProperty()|EFFECT_FLAG_SET_AVAILABLE)
+	c:EnableReviveLimit()
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(22347161)
+	e0:SetRange(0xff)
+	e0:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE)
+	c:RegisterEffect(e0)
+	--Equip Link
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_SET_AVAILABLE)
+	e1:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetValue(cm.matval)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e2:SetRange(LOCATION_EXTRA)
+	e2:SetTargetRange(LOCATION_SZONE,0)
+	e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e2:SetTarget(cm.mattg)
+	e2:SetLabelObject(e1)
+	c:RegisterEffect(e2)
+	--macro cosmos
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetRange(0xff)
+	e3:SetCode(EFFECT_SEND_REPLACE)
+	e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e3:SetTarget(cm.reptg)
+	e3:SetValue(cm.repval)
+	e3:SetLabelObject(e11)
+	c:RegisterEffect(e3)
+	--atkup
+	local e4=Effect.CreateEffect(c)
+	e4:SetCode(EFFECT_UPDATE_ATTACK)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetValue(cm.atkval)
+	c:RegisterEffect(e4)
+	--immune
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetValue(1)
+	c:RegisterEffect(e5)
+	--special summon
+	local e6=Effect.CreateEffect(c)
+	e6:SetCategory(CATEGORY_TOEXTRA+CATEGORY_SPECIAL_SUMMON)
+	e6:SetType(EFFECT_TYPE_QUICK_O)
+	e6:SetCode(EVENT_FREE_CHAIN)
+	e6:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e6:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e6:SetRange(LOCATION_MZONE)
+	e6:SetCountLimit(1,m)
+	e6:SetTarget(cm.tetg)
+	e6:SetOperation(cm.teop)
+	c:RegisterEffect(e6)
+	--workaround
+	if not cm.mat_hack_check then
+		cm.mat_hack_check=true
+		_lzr_GetLinkMaterials=Auxiliary.GetLinkMaterials
+		function Auxiliary.GetLinkMaterials(tp,f,lc,e)
+			local mg=_lzr_GetLinkMaterials(tp,f,lc,e)
+			local mg3=Duel.GetMatchingGroup(c22347161.lzrlinkfilter,tp,LOCATION_SZONE,0,nil,f,lc,e)
+			if mg3:GetCount()>0 then mg:Merge(mg3) end
+			return mg
+		end
+	end
+end
+c22347161.lzrlinkfilter=function(c,f,lc,e)
+	return c:IsFacedown()
+		and c:IsCanBeLinkMaterial(lc) and c:IsSetCard(0x3705) and lc:IsHasEffect(22347161)
+end
+function cm.lmatfilter(c)
+	return c:IsLocation(LOCATION_MZONE) and c:IsLinkType(TYPE_EFFECT) and c:IsFaceup()
+end
+function cm.lcheck(g,lc)
+	local b1=(g:IsExists(Card.IsLinkSetCard,1,nil,0x5705) and (not g:IsExists(cm.fdmatfilter,1,nil)))
+	local b2=((not g:IsExists(Card.IsLocation,1,nil,LOCATION_SZONE)) and (not g:IsExists(cm.fdmatfilter,1,nil)))
+	return b1 or b2
+end
+function cm.fdmatfilter(c)
+	return c:IsLocation(LOCATION_MZONE) and c:IsFacedown()
+end
+function cm.mattg(e,c)
+	return c:IsFacedown() and c:IsSetCard(0x3705) and c:IsAbleToHand()
+end
+function cm.mfilter(c,sc)
+	return c:IsLocation(LOCATION_MZONE) and c:IsLinkSetCard(0x5705)
+end
+function cm.exmfilter(c,sc)
+	return c:IsLocation(LOCATION_SZONE) and c==sc
+end
+function cm.matval(e,lc,mg,c,tp)
+	if not lc:IsHasEffect(22347161) then return false,nil end
+	return true,not mg or mg:IsExists(cm.mfilter,1,nil,c) and not mg:IsExists(cm.exmfilter,1,nil,c)
+end
+
+function cm.repfilter(c,tp,le)
+	return c:IsControler(tp) and c:IsLocation(LOCATION_SZONE) and c:IsReason(REASON_LINK) and c:GetReasonCard():IsHasEffect(22347161)
+		and c:IsAbleToHand() and c:GetReasonEffect()==le
+end
+function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local le=e:GetLabelObject()
+	if chk==0 then return bit.band(r,REASON_LINK)~=0
+		and eg:IsExists(cm.repfilter,1,nil,tp,le) end
+	if bit.band(r,REASON_LINK)~=0
+		and eg:IsExists(cm.repfilter,1,nil,tp,le) then
+		local g=eg:Filter(cm.repfilter,nil,tp,le)
+		local tc=g:GetFirst()
+		while tc do
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetValue(LOCATION_HAND)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e1)
+			tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,0,1)
+			tc=g:GetNext()
+		end
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+		e1:SetCode(EVENT_TO_HAND)
+		e1:SetCountLimit(1)
+		e1:SetCondition(cm.thcon)
+		e1:SetOperation(cm.thop)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,tp)
+		return true
+	else return false end
+end
+function cm.repval(e,c)
+	return false
+end
+function cm.thfilter(c)
+	return c:GetFlagEffect(m)~=0
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.thfilter,1,nil)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local g=eg:Filter(cm.thfilter,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+	local tc=g:GetFirst()
+	while tc do
+		tc:ResetFlagEffect(m)
+		tc=g:GetNext()
+	end
+end
+function cm.atkval(e,c)
+	return Duel.GetMatchingGroupCount(Card.IsPublic,c:GetControler(),LOCATION_HAND,0,nil)*1000
+end
+function cm.setfilter(c,tp)
+	return (c:IsType(TYPE_QUICKPLAY) or c:GetType()==TYPE_SPELL) and c:IsSSetable(true) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:IsFaceupEx() and c:IsSetCard(0x3705)
+end
+function cm.tetg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and cm.setfilter(chkc,tp) end
+	if chk==0 then return Duel.IsExistingTarget(cm.setfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,tp) and e:GetHandler():IsAbleToExtra() end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g=Duel.SelectTarget(tp,cm.setfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,tp)
+	if g and g:GetFirst():IsLocation(LOCATION_GRAVE) then
+		Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)
+end
+function cm.lfilter(c)
+	return c:IsLinkSummonable(nil) and c:IsSetCard(0x5705)
+end
+function cm.teop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.SSet(tp,tc)~=0 then
+		if Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0 and e:GetHandler():IsLocation(LOCATION_EXTRA) and Duel.IsExistingMatchingCard(cm.lfilter,tp,LOCATION_EXTRA,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local tc=Duel.SelectMatchingCard(tp,cm.lfilter,tp,LOCATION_EXTRA,0,1,1,nil):GetFirst()
+			if tc then Duel.LinkSummon(tp,tc,nil) end
+		end
+	end
+end
\ No newline at end of file

expansions/script/c22347171.lua

+local m=22347171
+local cm=_G["c"..m]
+cm.name="蕾宗忍者上忍·介毒"
+function cm.initial_effect(c)
+	c:SetSPSummonOnce(22347171)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e1:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
+	e1:SetCondition(cm.spcon)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)
+	--set
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_MOVE)
+	e0:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e0:SetCondition(cm.tfcon)
+	e0:SetOperation(cm.tfop)
+	c:RegisterEffect(e0)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,3))
+	e2:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_SPSUMMON)
+	e2:SetCountLimit(1)
+	e2:SetCondition(cm.discon)
+	e2:SetCost(cm.cost)
+	e2:SetTarget(cm.distg)
+	e2:SetOperation(cm.disop)
+	c:RegisterEffect(e2)
+	--
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,4))
+	e3:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCode(EVENT_SUMMON)
+	e3:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
+	e3:SetCondition(cm.condition)
+	e3:SetCost(cm.cost)
+	e3:SetTarget(cm.target)
+	e3:SetOperation(cm.operation)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_FLIP_SUMMON)
+	c:RegisterEffect(e4)
+	if not cm.global_check then
+		cm.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_CHAIN_SOLVED)
+		ge1:SetOperation(cm.checkop)
+		Duel.RegisterEffect(ge1,0)
+	end
+end
+function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	if not rc:IsRelateToEffect(re) or not (re:IsActiveType(TYPE_QUICKPLAY) and re:IsHasType(EFFECT_TYPE_ACTIVATE)) then return end
+	if rc:IsSetCard(0x3705) then
+		local p=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CONTROLER)
+		Duel.RegisterFlagEffect(p,m,RESET_PHASE+PHASE_END,0,1)
+	end
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFlagEffect(tp,m)>0
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function cm.tfcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsLocation(LOCATION_MZONE)
+end
+function cm.tfop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsSummonType(SUMMON_TYPE_NORMAL) then
+		c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET-RESET_TEMP_REMOVE,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
+	end
+	if c:IsSummonType(SUMMON_TYPE_SPECIAL) then
+		c:RegisterFlagEffect(m+1,RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET-RESET_TEMP_REMOVE,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
+	end
+end
+function cm.costfilter(c)
+	return c:IsType(TYPE_SPELL) and c:IsDiscardable()
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	Duel.DiscardHand(tp,cm.costfilter,1,1,REASON_COST+REASON_DISCARD)
+end
+function cm.discon(e,tp,eg,ep,ev,re,r,rp)
+	return tp~=ep and Duel.GetCurrentChain()==0 and e:GetHandler():GetFlagEffect(m)>0
+end
+function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0)
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateSummon(eg)
+	Duel.Destroy(eg,REASON_EFFECT)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return tp~=ep and Duel.GetCurrentChain()==0 and e:GetHandler():GetFlagEffect(m+1)>0
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateSummon(eg)
+	Duel.Destroy(eg,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c22347181.lua

+--蕾宗忍者古神 哈姆
+function c22347181.initial_effect(c)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x5705),3,true)
+	--spsummon condition
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetRange(LOCATION_EXTRA)
+	e0:SetValue(aux.fuslimit)
+	c:RegisterEffect(e0)
+	--spsummon
+	local pe0=Effect.CreateEffect(c)
+	pe0:SetType(EFFECT_TYPE_FIELD)
+	pe0:SetCode(EFFECT_SPSUMMON_PROC)
+	pe0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	pe0:SetRange(LOCATION_EXTRA)
+	pe0:SetCondition(c22347181.sprcon)
+	pe0:SetTarget(c22347181.sprtg)
+	pe0:SetOperation(c22347181.sprop)
+	c:RegisterEffect(pe0)
+	--position
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_POSITION+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetTarget(c22347181.postg)
+	e1:SetOperation(c22347181.posop)
+	c:RegisterEffect(e1)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_FLIP)
+	--e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetOperation(c22347181.regop)
+	c:RegisterEffect(e2)
+	--act limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCondition(c22347181.actcon)
+	e3:SetOperation(c22347181.chainop)
+	c:RegisterEffect(e3)
+end
+function c22347181.matfilter(c)
+	return c:IsDiscardable() and c:IsSetCard(0x3705) and c:IsType(TYPE_SPELL) and c:IsPublic()
+end
+function c22347181.sprcon(e,c)
+	if c==nil then return true end
+	local mg=Duel.GetMatchingGroup(c22347181.matfilter,c:GetOwner(),LOCATION_HAND,0,nil)
+	return mg:GetCount()>=2
+end
+function c22347181.selectcheck(mg)
+	return true
+end
+function c22347181.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
+	local mg=Duel.GetMatchingGroup(c22347181.matfilter,tp,LOCATION_HAND,0,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+	local sg=mg:SelectSubGroup(tp,c22347181.selectcheck,true,2,2)
+	if sg then
+		sg:KeepAlive()
+		e:SetLabelObject(sg)
+		return true
+	else return false end
+end
+function c22347181.sprop(e,tp,eg,ep,ev,re,r,rp,c)
+	local mg=e:GetLabelObject()
+	c:SetMaterial(mg)
+	Duel.SendtoGrave(mg,REASON_DISCARD)
+	mg:DeleteGroup()
+end
+function c22347181.postg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,e:GetHandler(),1,0,0)
+end
+function c22347181.posop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsFaceup() and Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE)~=0 and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(22347181,0)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,0,1,2,nil)
+		if #g>0 then
+			Duel.BreakEffect()
+			Duel.HintSelection(g)
+			Duel.SendtoHand(g,nil,REASON_EFFECT)
+		end
+	end
+end
+function c22347181.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	c:RegisterFlagEffect(22347181,RESET_EVENT+RESETS_STANDARD,0,1)
+	local g=Duel.GetMatchingGroup(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c)
+	for tc in aux.Next(g) do
+		Duel.NegateRelatedChain(tc,RESET_TURN_SET)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DISABLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_DISABLE_EFFECT)
+		tc:RegisterEffect(e2)
+	end
+end
+function c22347181.actcon(e)
+	return e:GetHandler():GetFlagEffect(22347181)~=0
+end
+function c22347181.chainop(e,tp,eg,ep,ev,re,r,rp)
+	if re:GetHandler():IsSetCard(0x3705) and ep==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) then
+		Duel.SetChainLimit(c22347181.chainlm)
+	end
+end
+function c22347181.chainlm(e,rp,tp)
+	return tp==rp
+end

expansions/script/c91010017.lua

+-- 珠泪补强
+local s, id = GetID()
+
+function s.initial_effect(c)
+	-- ① Main Phase effect (send 1 monster to GY, SS 1 Tearlaments from GY)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.spcon)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
+	c:RegisterEffect(e1)
+	
+	-- ② Add to hand when sent to GY by effect
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE+CATEGORY_GRAVE_SPSUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCountLimit(1,id+100)
+	e2:SetCondition(s.thcon)
+	e2:SetTarget(s.thtg)
+	e2:SetOperation(s.thop)
+	c:RegisterEffect(e2)
+end
+
+-- ① Condition - Main Phase
+function s.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
+end
+function s.fit11(c)
+	return c:IsAbleToGrave() and c:IsType(TYPE_MONSTER)
+end
+-- ① Target selection
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.fit11,tp,LOCATION_HAND+LOCATION_MZONE,0,1,e:GetHandler())
+		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_MZONE)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+
+function s.spfilter(c,e,tp)
+	return c:IsSetCard(0x181) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
+end
+
+-- ① Operation
+function s.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,s.fit11,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,c)
+	local tc=g:GetFirst()
+	if tc and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+		if #sg>0 then
+			Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+
+-- ② Condition - sent to GY by effect
+function s.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsReason(REASON_EFFECT) 
+end
+
+-- ② Target
+function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsPlayerCanDiscardDeck(tp,1) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+
+-- ② Operation
+function s.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if e:GetHandler():IsRelateToEffect(e) and Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)>0 then
+		Duel.ConfirmCards(1-tp,c)
+		Duel.BreakEffect()
+		Duel.DiscardDeck(tp,1,REASON_EFFECT)
+	end
+end

expansions/script/c91010018.lua

+local s,id,o=GetID()
+---@param c Card
+function s.initial_effect(c)
+	aux.EnableChangeCode(c,56099748)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,id)
+	e1:SetCost(s.thcost)
+	e1:SetTarget(s.thtg)
+	e1:SetOperation(s.thop)
+	c:RegisterEffect(e1)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(id,1))
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_TOGRAVE)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCountLimit(1,id+100)
+	e3:SetCondition(s.thcon)
+	e3:SetTarget(s.thtg2)
+	e3:SetOperation(s.thop2)
+	c:RegisterEffect(e3)
+end
+function s.thfilter(c)
+	return (aux.IsCodeListed(c,56099748) or c:IsSetCard(0x181)) and c:IsAbleToHand() and c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
+end
+function s.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function s.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsReason(REASON_EFFECT) 
+end
+
+-- ② Target
+function s.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToHand() and Duel.IsPlayerCanDiscardDeck(tp,2) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+
+-- ② Operation
+function s.thop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SendtoHand(c,nil,REASON_EFFECT)~=0 then
+		Duel.ConfirmCards(1-tp,c)
+		Duel.BreakEffect()
+		Duel.DiscardDeck(tp,2,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c91010019.lua

+local s,id,o=GetID()
+---@param c Card
+function s.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,id)
+	e1:SetTarget(s.thtg)
+	e1:SetOperation(s.thop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,id+100)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.activate)
+	c:RegisterEffect(e1)
+end
+s.fusion_effect=true
+function s.exconfilter(c)
+	return c:IsType(TYPE_FUSION) and c:IsFaceup()
+end
+function s.excon(tp)
+	return not Duel.IsExistingMatchingCard(s.exconfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function s.filter1(c,e)
+	return not c:IsImmuneToEffect(e)
+end
+function s.filter2(c,e,tp,m,f,chkf)
+	return  c:IsRace(RACE_AQUA) and c:IsType(TYPE_FUSION) and (not f or f(c))
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
+end
+function s.fexfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
+end
+function s.frcheck(tp,sg,fc)
+	return sg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)<=1
+end
+function s.gcheck(sg)
+	return sg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)<=1
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local chkf=tp
+		local mg1=Duel.GetFusionMaterial(tp)
+		if s.excon(tp) then
+			local mg2=Duel.GetMatchingGroup(s.fexfilter,tp,LOCATION_EXTRA,0,nil)
+			if mg2:GetCount()>0 then
+				mg1:Merge(mg2)
+				aux.FCheckAdditional=s.frcheck
+				aux.GCheckAdditional=s.gcheck
+			end
+		end
+		local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
+		aux.FCheckAdditional=nil
+		aux.GCheckAdditional=nil
+		if not res then
+			local ce=Duel.GetChainMaterial(tp)
+			if ce~=nil then
+				local fgroup=ce:GetTarget()
+				local mg2=fgroup(ce,e,tp)
+				local mf=ce:GetValue()
+				res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
+			end
+		end
+		return res
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function s.activate(e,tp,eg,ep,ev,re,r,rp)
+	local chkf=tp
+	local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
+	local exmat=false
+	if s.excon(tp) then
+		local mg2=Duel.GetMatchingGroup(s.fexfilter,tp,LOCATION_EXTRA,0,nil)
+		if mg2:GetCount()>0 then
+			mg1:Merge(mg2)
+			exmat=true
+		end
+	end
+	if exmat then
+		aux.FCheckAdditional=s.frcheck
+		aux.GCheckAdditional=s.gcheck
+	end
+	local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
+	aux.FCheckAdditional=nil
+	aux.GCheckAdditional=nil
+	local mg2=nil
+	local sg2=nil
+	local ce=Duel.GetChainMaterial(tp)
+	if ce~=nil then
+		local fgroup=ce:GetTarget()
+		mg2=fgroup(ce,e,tp)
+		local mf=ce:GetValue()
+		sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
+	end
+	if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
+		local sg=sg1:Clone()
+		if sg2 then sg:Merge(sg2) end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local tg=sg:Select(tp,1,1,nil)
+		local tc=tg:GetFirst()
+		if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
+			if exmat then
+				aux.FCheckAdditional=s.frcheck
+				aux.GCheckAdditional=s.gcheck
+			end
+			local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
+			aux.FCheckAdditional=nil
+			aux.GCheckAdditional=nil
+			tc:SetMaterial(mat1)
+			Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
+			Duel.BreakEffect()
+			Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+		else
+			local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
+			local fop=ce:GetOperation()
+			fop(ce,e,tp,tc,mat2)
+		end
+		tc:CompleteProcedure()
+	end
+end
+function s.thfilter(c)
+	return ( c:IsSetCard(0x181)) and c:IsAbleToHand() and c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function s.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
\ No newline at end of file

expansions/script/c98941001.lua

+--マジェスペクター・ウィンド
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
+	e1:SetLabel(0)
+	e1:SetCost(s.cost)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.activate)
+	c:RegisterEffect(e1)
+end
+function s.cfilter(c,tp)
+	return c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_SPELLCASTER) and Duel.GetMZoneCount(tp,c)>0
+end
+function s.spfilter(c,e,tp)
+	return c:IsSetCard(0xd0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	e:SetLabel(0)
+	local res=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp)
+	if Duel.CheckReleaseGroup(tp,s.cfilter,1,nil,tp)
+		and (not res or Duel.SelectYesNo(tp,aux.Stringid(id,1))) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+		local g=Duel.SelectReleaseGroup(tp,s.cfilter,1,1,nil,tp)
+		Duel.Release(g,REASON_COST)
+		e:SetLabel(LOCATION_DECK)
+	end
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return (Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and (Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) or Duel.IsPlayerAffectedByEffect(e:GetHandlerPlayer(),98941057))
+		or e:IsCostChecked() and e:IsHasType(EFFECT_TYPE_ACTIVATE) and (Duel.CheckReleaseGroup(tp,s.cfilter,1,nil,tp) or Duel.IsPlayerAffectedByEffect(e:GetHandlerPlayer(),98941057))
+			and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)) end
+	if not e:IsCostChecked() and not Duel.IsPlayerAffectedByEffect(e:GetHandlerPlayer(),98941057) then e:SetLabel(0) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND+e:GetLabel())
+end
+function s.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE+LOCATION_HAND+e:GetLabel(),0,1,1,nil,e,tp)
+	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+end