upd 0907

updated 200 cards

expansions/script/c114514693.lua

+--急袭猛禽-先锋林鸮
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(m,0))
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetRange(LOCATION_HAND)
+    e1:SetCountLimit(1,m)
+    e1:SetTarget(cm.sptg)
+    e1:SetOperation(cm.spop)
+    c:RegisterEffect(e1)
+    --get effect
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_XMATERIAL)
+    e2:SetCode(EFFECT_UPDATE_ATTACK)
+    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetValue(cm.atkvalue)
+    e2:SetCondition(cm.condition)
+    c:RegisterEffect(e2)
+end
+function cm.tfilter(c)
+    return c:IsFaceup() and c:IsLevelAbove(1)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    local c=e:GetHandler()
+    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.tfilter(chkc) end
+    if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+        and Duel.IsExistingTarget(cm.tfilter,tp,LOCATION_MZONE,0,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+    local g=Duel.SelectTarget(tp,cm.tfilter,tp,LOCATION_MZONE,0,1,1,nil)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+    local tc=Duel.GetFirstTarget()
+    if tc:IsRelateToEffect(e) then
+        local c=e:GetHandler()
+        if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
+            local e1=Effect.CreateEffect(c)
+            e1:SetType(EFFECT_TYPE_SINGLE)
+            e1:SetCode(EFFECT_CHANGE_LEVEL)
+            e1:SetValue(tc:GetLevel())
+            e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+            c:RegisterEffect(e1)
+        end
+    end
+end
+function cm.condition(e)
+    return e:GetHandler():GetOriginalRace()==RACE_WINDBEAST
+end
+function cm.atkvalue(e,c)
+    local a=c:GetOverlayCount()
+    return a*100
+end
\ No newline at end of file

expansions/script/c114514699.lua

+--升阶魔法-袭击之力
+function c114514699.initial_effect(c)
+    -- ① 效果：以暗属性超量怪兽为对象，特殊召唤阶级高1或2阶的同种族超量怪兽
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_ACTIVATE)
+    e1:SetCode(EVENT_FREE_CHAIN)
+    e1:SetTarget(c114514699.target1)
+    e1:SetOperation(c114514699.operation1)
+    c:RegisterEffect(e1)
+
+    -- ② 效果：代替破坏
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EFFECT_DESTROY_REPLACE)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetTarget(c114514699.reptg)
+	e2:SetValue(c114514699.repval)
+	e2:SetOperation(c114514699.repop)
+	c:RegisterEffect(e2)
+end
+
+-- ① 效果：目标设置
+function c114514699.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c114514699.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,tp) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+    local g=Duel.SelectTarget(tp,c114514699.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+
+-- ① 效果：执行操作
+function c114514699.operation1(e,tp,eg,ep,ev,re,r,rp)
+    local tc=Duel.GetFirstTarget()
+    if not tc or not tc:IsRelateToEffect(e) then return end
+
+    -- 如果对象是对方场上的怪兽，先获得控制权
+    if tc:IsControler(1-tp) then
+        Duel.GetControl(tc,tp,PHASE_END,1)
+    end
+
+    local race=tc:GetRace()
+    local rk=tc:GetRank()
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+    local g=Duel.SelectMatchingCard(tp,c114514699.filter2,tp,LOCATION_EXTRA,0,1,1,nil,race,rk)
+    local sc=g:GetFirst()
+    if sc then
+        -- 将对象怪兽作为超量素材
+        local mg=tc:GetOverlayGroup()
+        if mg:GetCount()>0 then
+            Duel.Overlay(sc,mg)
+        end
+        Duel.Overlay(sc,Group.FromCards(tc))
+        -- 特殊召唤
+        Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
+        sc:CompleteProcedure()
+    end
+end
+
+-- ① 效果：过滤函数1（选择暗属性超量怪兽）
+function c114514699.filter1(c,tp)
+    return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_XYZ)
+        and Duel.IsExistingMatchingCard(c114514699.filter2,tp,LOCATION_EXTRA,0,1,nil,c:GetRace(),c:GetRank())
+end
+
+-- ① 效果：过滤函数2（选择阶级高1或2阶的同种族超量怪兽）
+function c114514699.filter2(c,race,rk)
+    return c:IsRace(race) and c:IsType(TYPE_XYZ) and (c:GetRank()==rk+1 or c:GetRank()==rk+2)
+end
+
+
+function c114514699.repfilter(c,tp)
+	return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsLocation(LOCATION_MZONE)
+		and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
+end
+function c114514699.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(c114514699.repfilter,1,nil,tp) end
+	return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
+end
+function c114514699.repval(e,c)
+	return c114514699.repfilter(c,e:GetHandlerPlayer())
+end
+function c114514699.repop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c114514992.lua

+--蓝星界开
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DISABLE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.operation)
+	c:RegisterEffect(e1)
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
+	local types={1057,1056,1063,1073,1074,1076}
+	local alist=Duel.GetFlagEffectLabel(tp,id)
+	if not alist then
+		Duel.SetTargetParam(types[Duel.SelectOption(tp,table.unpack(types))+1])
+	else
+		local options={}
+		for i = 1, 5, 1 do
+			if bit.extract(alist,i)==0 then
+				table.insert(options,types[i])
+			end
+		end
+		Duel.SetTargetParam(options[Duel.SelectOption(tp,table.unpack(options))+1])
+	end
+end
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local opt=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
+	local ct,p=0,0
+	if opt==1057 then ct=TYPE_RITUAL   p=1 end
+	if opt==1056 then ct=TYPE_FUSION   p=2 end
+	if opt==1063 then ct=TYPE_SYNCHRO  p=3 end
+	if opt==1073 then ct=TYPE_XYZ      p=4 end
+	if opt==1074 then ct=TYPE_PENDULUM p=5 end
+    if opt==1076 then ct=TYPE_LINK p=6 end
+	local alist=Duel.GetFlagEffectLabel(tp,id)
+	if not alist then
+		alist=1<<p
+		Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1,alist)
+	else
+		alist=alist|(1<<p)
+		Duel.SetFlagEffectLabel(tp,id,alist)
+	end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetLabel(ct)
+	e1:SetTargetRange(1,1)
+	e1:SetTarget(s.sumlimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_DISABLE)
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e2:SetTarget(s.distg)
+	e2:SetLabel(ct)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+    local e3=Effect.CreateEffect(c)
+    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e3:SetCode(EVENT_CHAIN_SOLVING)
+    e3:SetCondition(s.discon)
+    e3:SetOperation(s.disop)
+    e3:SetLabel(ct)
+    e3:SetReset(RESET_PHASE+PHASE_END)
+    Duel.RegisterEffect(e3,tp)
+end
+function s.sumlimit(e,c,sump,sumtype,sumpos,targetp)
+	return c:GetOriginalType()&e:GetLabel()>0
+end
+function s.distg(e,c)
+	return c:IsType(e:GetLabel())
+end
+function s.discon(e,tp,eg,ep,ev,re,r,rp)
+	return re:GetHandler():IsType(e:GetLabel())
+end
+function s.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateEffect(ev)
+end
\ No newline at end of file

expansions/script/c11603001.lua

+--封灵师 虎生
+local s,id=GetID()
+function s.initial_effect(c)
+	--place and special summon
+	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_TO_HAND)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.spcon)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
+	c:RegisterEffect(e1)   
+	local e4=e1:Clone()
+	e4:SetRange(LOCATION_GRAVE)
+	e4:SetCost(s.cost)
+	c:RegisterEffect(e4)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,id+1)
+	e2:SetCondition(aux.NOT(s.effcon))
+	e2:SetTarget(s.thtg)
+	e2:SetOperation(s.thop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetDescription(aux.Stringid(id,1))
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCondition(s.effcon)
+	c:RegisterEffect(e3)
+end
+function s.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return not eg:IsExists(Card.IsReason,1,nil,REASON_DRAW)
+end
+function s.plfilter(c)
+	return c:IsSetCard(0x6224) and c:IsType(TYPE_MONSTER) and not c:IsForbidden()
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.IsExistingMatchingCard(s.plfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,tp,0)
+end
+function s.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+	local tc=Duel.SelectMatchingCard(tp,s.plfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
+	if tc and Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+		--Treated as a Continuous Spell
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_CHANGE_TYPE)
+		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+		e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+		tc:RegisterEffect(e1)
+		if c:IsRelateToEffect(e) then
+			Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+	--Cannot Special Summon Monster, except Illusion Monsters
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,3))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(function(_,c) return not c:IsRace(RACE_ILLUSION) end)
+	e2:SetReset(RESET_PHASE|PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+end
+function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local fg=Group.CreateGroup()
+	for i,pe in ipairs({Duel.IsPlayerAffectedByEffect(tp,11603038)}) do
+		fg:AddCard(pe:GetHandler())
+	end
+	if chk==0 then return #fg>=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(11603037,0))
+	local fc=nil
+	if #fg==1 then
+		fc=fg:GetFirst()
+	else
+		fc=fg:Select(tp,1,1,nil)
+	end
+	Duel.Hint(HINT_CARD,0,fc:GetCode())
+	fc:RegisterFlagEffect(11603038,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+end
+function s.thfilter(c)
+	return c:IsSetCard(0x6224) and  c:IsType(TYPE_SPELL+TYPE_TRAP) 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.effcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAllTypes(TYPE_CONTINUOUS+TYPE_TRAP) and Duel.IsPlayerAffectedByEffect(tp,11603037)
+end
\ No newline at end of file

expansions/script/c11603004.lua

+--封灵师 罗阿
+local s,id=GetID()
+function s.initial_effect(c)
+	--place and special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(11603004,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_MOVE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.spcon)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
+	c:RegisterEffect(e1)   
+	local e4=e1:Clone()
+	e4:SetRange(LOCATION_GRAVE)
+	e4:SetCost(s.cost)
+	c:RegisterEffect(e4)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(11603004,1))
+	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,id+1)
+	e2:SetCondition(aux.NOT(s.effcon))
+	e2:SetTarget(s.thtg)
+	e2:SetOperation(s.thop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCondition(s.effcon)
+	c:RegisterEffect(e3)
+end
+function s.cfilter(c)
+	return c:IsFaceup() and c:GetOriginalType()&TYPE_MONSTER==TYPE_MONSTER and c:IsLocation(LOCATION_SZONE)
+end
+function s.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg and eg:IsExists(s.cfilter,1,nil)
+end
+function s.plfilter(c)
+	return c:IsSetCard(0x6224) and c:IsType(TYPE_MONSTER) and not c:IsForbidden()
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.IsExistingMatchingCard(s.plfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,tp,0)
+end
+function s.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+	local tc=Duel.SelectMatchingCard(tp,s.plfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
+	if tc and Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+		--Treated as a Continuous Spell
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_CHANGE_TYPE)
+		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+		e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+		tc:RegisterEffect(e1)
+		if c:IsRelateToEffect(e) then
+			Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+	--Cannot Special Summon Monster, except Illusion Monsters
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,3))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(function(_,c) return not c:IsRace(RACE_ILLUSION) end)
+	e2:SetReset(RESET_PHASE|PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+end
+function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local fg=Group.CreateGroup()
+	for i,pe in ipairs({Duel.IsPlayerAffectedByEffect(tp,11603038)}) do
+		fg:AddCard(pe:GetHandler())
+	end
+	if chk==0 then return #fg>=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(11603037,0))
+	local fc=nil
+	if #fg==1 then
+		fc=fg:GetFirst()
+	else
+		fc=fg:Select(tp,1,1,nil)
+	end
+	Duel.Hint(HINT_CARD,0,fc:GetCode())
+	fc:RegisterFlagEffect(11603038,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+end
+function s.thfilter(c)
+	return c:IsSetCard(0x6224) and  c:IsType(TYPE_MONSTER) 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.effcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAllTypes(TYPE_CONTINUOUS+TYPE_TRAP) and Duel.IsPlayerAffectedByEffect(tp,11603037)
+end
\ No newline at end of file

expansions/script/c11603007.lua

+--封灵师 希月
+local s,id=GetID()
+function s.initial_effect(c)
+	--place and special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(11603004,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,id)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
+	c:RegisterEffect(e1)
+	local e4=e1:Clone()
+	e4:SetDescription(aux.Stringid(11603004,0))
+	e4:SetRange(LOCATION_GRAVE)
+	e4:SetCost(s.cost)
+	c:RegisterEffect(e4)   
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(11603004,1))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,id+1)
+	e2:SetCondition(aux.NOT(s.effcon))
+	e2:SetTarget(s.thtg)
+	e2:SetOperation(s.thop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetDescription(aux.Stringid(11603004,1))
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCondition(s.effcon)
+	c:RegisterEffect(e3)
+end
+function s.plfilter(c)
+	return c:IsSetCard(0x6224) and c:IsType(TYPE_MONSTER) and not c:IsForbidden()
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.IsExistingMatchingCard(s.plfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,tp,0)
+end
+function s.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+	local tc=Duel.SelectMatchingCard(tp,s.plfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
+	if tc and Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+		--Treated as a Continuous Spell
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_CHANGE_TYPE)
+		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+		e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+		tc:RegisterEffect(e1)
+		if c:IsRelateToEffect(e) then
+			Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+	--Cannot Special Summon Monster, except Illusion Monsters
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,3))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(function(_,c) return not c:IsRace(RACE_ILLUSION) end)
+	e2:SetReset(RESET_PHASE|PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+end
+function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local fg=Group.CreateGroup()
+	for i,pe in ipairs({Duel.IsPlayerAffectedByEffect(tp,11603038)}) do
+		fg:AddCard(pe:GetHandler())
+	end
+	if chk==0 then return #fg>=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(11603037,0))
+	local fc=nil
+	if #fg==1 then
+		fc=fg:GetFirst()
+	else
+		fc=fg:Select(tp,1,1,nil)
+	end
+	Duel.Hint(HINT_CARD,0,fc:GetCode())
+	fc:RegisterFlagEffect(11603038,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+end
+function s.thfilter(c)
+	return c:IsSetCard(0x6224) 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,nil) 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 g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function s.effcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAllTypes(TYPE_CONTINUOUS+TYPE_TRAP) and Duel.IsPlayerAffectedByEffect(tp,11603037)
+end
\ No newline at end of file

expansions/script/c11603010.lua

+--封灵师 楼罗
+local s,id=GetID()
+function s.initial_effect(c)
+	--place and special summon
+	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_TO_GRAVE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.spcon)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
+	c:RegisterEffect(e1)   
+	local e5=e1:Clone()
+	e5:SetRange(LOCATION_GRAVE)
+	e5:SetCost(s.cost)
+	c:RegisterEffect(e5)
+	--Destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_REMOVE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(s.rmcon)
+	e2:SetOperation(s.rmop)
+	c:RegisterEffect(e2)
+	--Destroy 1 card on the field
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(id,2))
+	e3:SetCategory(CATEGORY_DESTROY)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1,id+1)
+	e3:SetCondition(aux.NOT(s.effcon))
+	e3:SetTarget(s.destg)
+	e3:SetOperation(s.desop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCondition(s.effcon)
+	c:RegisterEffect(e4)
+end
+function s.cfilter(c)
+	return c:IsSetCard(0x6224) and c:IsReason(REASON_EFFECT) and c:IsLocation(LOCATION_GRAVE) and c:IsType(TYPE_MONSTER)
+end
+function s.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(s.cfilter,1,nil)
+end
+function s.plfilter(c)
+	return c:IsSetCard(0x6224) and c:IsType(TYPE_MONSTER) and not c:IsForbidden()
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_SZONE)>1 and Duel.IsExistingMatchingCard(s.plfilter,tp,LOCATION_GRAVE,0,2,c) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,tp,0)
+end
+function s.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<2 then return end
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+		local tg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.plfilter),tp,LOCATION_GRAVE,0,2,2,c)
+		if #tg~=2 then return end
+		for tc in aux.Next(tg) do
+			if tc and Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+				--Treated as a Continuous Spell
+				local e1=Effect.CreateEffect(c)
+				e1:SetType(EFFECT_TYPE_SINGLE)
+				e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+				e1:SetCode(EFFECT_CHANGE_TYPE)
+				e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+				e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+				tc:RegisterEffect(e1)
+			end
+		end
+	end
+	--Cannot Special Summon Monster, except Illusion Monsters
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,3))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(function(_,c) return not c:IsRace(RACE_ILLUSION) end)
+	e2:SetReset(RESET_PHASE|PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+end
+function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local fg=Group.CreateGroup()
+	for i,pe in ipairs({Duel.IsPlayerAffectedByEffect(tp,11603038)}) do
+		fg:AddCard(pe:GetHandler())
+	end
+	if chk==0 then return #fg>=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(11603037,0))
+	local fc=nil
+	if #fg==1 then
+		fc=fg:GetFirst()
+	else
+		fc=fg:Select(tp,1,1,nil)
+	end
+	Duel.Hint(HINT_CARD,0,fc:GetCode())
+	fc:RegisterFlagEffect(11603038,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+end
+function s.rfilter(c,re)
+	return c:IsFacedown() and c:IsReason(REASON_COST) and re:IsActivated() 
+end
+function s.rmcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(s.rfilter,1,nil,re) and rp==1-tp
+end
+function s.rmop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetDecktopGroup(1-tp,1):Filter(Card.IsAbleToRemove,nil,POS_FACEDOWN)
+	if #g>0 then
+		Duel.Hint(HINT_CARD,0,id)
+		Duel.DisableShuffleCheck()
+		Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
+	end
+end
+function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() end
+	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function s.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end
+function s.effcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAllTypes(TYPE_CONTINUOUS+TYPE_TRAP) and Duel.IsPlayerAffectedByEffect(tp,11603037)
+end
\ No newline at end of file

expansions/script/c11603013.lua

+--封灵师 九儿
+local s,id=GetID()
+function s.initial_effect(c)
+	--place and special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,id)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
+	c:RegisterEffect(e1)
+	--place
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,id+1)
+	e2:SetCondition(aux.NOT(s.effcon))
+	e2:SetTarget(s.tftg)
+	e2:SetOperation(s.tfop)
+	c:RegisterEffect(e2)
+	--place
+	local e3=e2:Clone()
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCondition(s.effcon)
+	c:RegisterEffect(e3)
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_SZONE)>0 and Duel.GetFieldGroupCount(1-tp,LOCATION_DECK,0)>4  end
+end
+function s.plfilter(c,tp)
+	return c:CheckUniqueOnField(tp,LOCATION_SZONE) and c:IsType(TYPE_MONSTER) and not c:IsForbidden()
+end
+function s.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=Duel.GetLocationCount(tp,LOCATION_SZONE)
+	if Duel.GetFieldGroupCount(1-tp,LOCATION_DECK,0)==0 or ct<=0 then return end
+	local sp=false
+	Duel.ConfirmDecktop(1-tp,5)
+	local g=Duel.GetDecktopGroup(1-tp,5):Filter(s.plfilter,nil,1-tp)
+	if #g==0 then return end
+	ct=math.min(ct,#g,2)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+	local tg=g:Select(tp,1,ct,nil)
+	for tc in aux.Next(tg) do
+		if tc and Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true) then
+			--Treated as a Continuous Spell
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetCode(EFFECT_CHANGE_TYPE)
+			e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+			e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+			tc:RegisterEffect(e1)
+			--Add this card to the deck
+			local e2=Effect.CreateEffect(c)
+			e2:SetDescription(aux.Stringid(id,2))
+			e2:SetCategory(CATEGORY_TODECK)
+			e2:SetType(EFFECT_TYPE_IGNITION)
+			e2:SetRange(LOCATION_SZONE)
+			e2:SetCountLimit(1,id)
+			if tc:IsOriginalSetCard(0x6224) then
+				e2:SetCondition(aux.NOT(s.effcon))
+			end
+			e2:SetCost(s.tdcost)
+			e2:SetTarget(s.tdtg)
+			e2:SetOperation(s.tdop)
+			e2:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+			tc:RegisterEffect(e2)
+			if tc:IsOriginalSetCard(0x6224) then
+				local e3=e2:Clone()
+				e3:SetType(EFFECT_TYPE_QUICK_O)
+				e3:SetCode(EVENT_FREE_CHAIN)
+				e3:SetCondition(s.effcon)
+				c:RegisterEffect(e3)
+			end
+			sp=true
+		end
+	end
+	if c:IsRelateToEffect(e) and sp and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+		--Treated as a Continuous Spell
+		local e4=Effect.CreateEffect(c)
+		e4:SetType(EFFECT_TYPE_SINGLE)
+		e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e4:SetCode(EFFECT_CHANGE_TYPE)
+		e4:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+		e4:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+		c:RegisterEffect(e4)
+	end
+	--Cannot Special Summon Monster, except Illusion Monsters
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,3))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(function(_,c) return not c:IsRace(RACE_ILLUSION) end)
+	e2:SetReset(RESET_PHASE|PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+end
+function s.tdcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_DECK,0,1,1,nil)
+	if #g>0 then
+		Duel.Remove(g,POS_FACEDOWN,REASON_COST)
+	end
+end
+function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToHand() end
+	c:CreateEffectRelation(e)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
+end
+function s.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+	end
+end
+function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local fg=Group.CreateGroup()
+	for i,pe in ipairs({Duel.IsPlayerAffectedByEffect(tp,11603038)}) do
+		fg:AddCard(pe:GetHandler())
+	end
+	if chk==0 then return #fg>=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(11603037,0))
+	local fc=nil
+	if #fg==1 then
+		fc=fg:GetFirst()
+	else
+		fc=fg:Select(tp,1,1,nil)
+	end
+	Duel.Hint(HINT_CARD,0,fc:GetCode())
+	fc:RegisterFlagEffect(11603038,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+end
+function s.plfilter2(c)
+	return c:IsSetCard(0x6224) and c:IsType(TYPE_MONSTER) and not c:IsForbidden()
+end
+function s.tftg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingMatchingCard(s.plfilter2,tp,LOCATION_DECK,0,1,nil) end
+end
+function s.tfop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+	local tc=Duel.SelectMatchingCard(tp,s.plfilter2,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
+	if tc and Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+		--Treated as a Continuous Spell
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_CHANGE_TYPE)
+		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+		e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+		tc:RegisterEffect(e1)
+	end
+end
+function s.effcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAllTypes(TYPE_CONTINUOUS+TYPE_TRAP) and Duel.IsPlayerAffectedByEffect(tp,11603037)
+end
\ No newline at end of file

expansions/script/c11603016.lua

+--降魔封灵师 龙煌
+local s,id=GetID()
+function s.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.AddCodeList(c,11603028)
+	--place
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	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.tftg)
+	e1:SetOperation(s.tfop)
+	c:RegisterEffect(e1)	
+	--Negate the activation of a monster's effect
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,id+1)
+	e2:SetCondition(s.negcon)
+	e2:SetTarget(s.negtg)
+	e2:SetOperation(s.negop)
+	c:RegisterEffect(e2)
+	--atk
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_UPDATE_ATTACK)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetTargetRange(LOCATION_MZONE,0)
+	e4:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x6224))
+	e4:SetValue(s.value)
+	c:RegisterEffect(e4)
+	local e3=e4:Clone()
+	e3:SetCode(EFFECT_UPDATE_DEFENSE)
+	c:RegisterEffect(e3)
+	--cannot be target
+	local e5=e4:Clone()
+	e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e5:SetValue(aux.tgoval)
+	c:RegisterEffect(e5)
+end
+function s.plfilter(c)
+	return c:IsSetCard(0x6224) and c:IsType(TYPE_MONSTER) and not c:IsForbidden()
+end
+function s.spfilter(c,e,tp)
+	return c:IsSetCard(0x6224) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function s.tftg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local b1=Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingMatchingCard(s.plfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil)
+	local b2=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp)
+	if chk==0 then return b1 or b2 end
+	local op=aux.SelectFromOptions(tp,
+		{b1,aux.Stringid(id,3)},
+		{b2,2})
+	e:SetLabel(op)
+	if op==1 then
+		e:SetCategory(0)
+	else
+		e:SetCategory(CATEGORY_SPECIAL_SUMMON)
+		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+	end
+end
+function s.tfop(e,tp,eg,ep,ev,re,r,rp)
+	local op=e:GetLabel()
+	if op==1 then
+		if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+		local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.plfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil):GetFirst()
+		if tc and Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+			--Treated as a Continuous Spell
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetCode(EFFECT_CHANGE_TYPE)
+			e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+			e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+			tc:RegisterEffect(e1)
+		end
+	else
+		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_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
+		if #g>0 then
+			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+function s.negcon(e,tp,eg,ep,ev,re,r,rp)
+	return ep==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) 
+		and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
+end
+function s.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local rc=re:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_SZONE)>0 and rc:CheckUniqueOnField(1-tp,LOCATION_SZONE) end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if rc:IsRelateToEffect(re) and rc:IsLocation(LOCATION_GRAVE) then
+		Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,rc,1,0,0)
+	end
+end
+function s.negop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(1-tp,LOCATION_SZONE)<1 then return end
+	local rc=re:GetHandler()
+	if Duel.NegateActivation(ev) and rc and not rc:IsImmuneToEffect(e) and rc:CheckUniqueOnField(1-tp,LOCATION_SZONE) and Duel.MoveToField(rc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true) then
+		local c=e:GetHandler()
+		--Treated as a Continuous Spell
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_CHANGE_TYPE)
+		e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+		e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+		rc:RegisterEffect(e1)   
+		--Add this card to the deck
+		local e2=Effect.CreateEffect(c)
+		e2:SetDescription(aux.Stringid(id,2))
+		e2:SetCategory(CATEGORY_TODECK)
+		e2:SetType(EFFECT_TYPE_IGNITION)
+		e2:SetRange(LOCATION_SZONE)
+		e2:SetCountLimit(1,id)
+		if rc:IsOriginalSetCard(0x6224) then
+			e2:SetCondition(aux.NOT(s.effcon))
+		end
+		e2:SetCost(s.tdcost)
+		e2:SetTarget(s.tdtg)
+		e2:SetOperation(s.tdop)
+		e2:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+		rc:RegisterEffect(e2)
+		if rc:IsOriginalSetCard(0x6224) then
+			local e3=e2:Clone()
+			e3:SetType(EFFECT_TYPE_QUICK_O)
+			e3:SetCode(EVENT_FREE_CHAIN)
+			e3:SetCondition(s.effcon)
+			rc:RegisterEffect(e3)
+		end 
+	end
+end
+function s.tdcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_DECK,0,2,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_DECK,0,2,2,nil)
+	if #g>0 then
+		Duel.Remove(g,POS_FACEDOWN,REASON_COST)
+	end
+end
+function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToHand() end
+	c:CreateEffectRelation(e)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
+end
+function s.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+	end
+end
+function s.effcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAllTypes(TYPE_CONTINUOUS+TYPE_TRAP) and Duel.IsPlayerAffectedByEffect(tp,11603037)
+end
+function s.cfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function s.value(e,c)
+	return Duel.GetMatchingGroupCount(s.cfilter,c:GetControler(),LOCATION_ONFIELD,0,nil)*300
+end
\ No newline at end of file

expansions/script/c11603019.lua

+--月眷封灵师 凤朔
+local s,id=GetID()
+function s.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.AddCodeList(c,11603028)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetCountLimit(1,id)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(s.thtg)
+	e1:SetOperation(s.thop)
+	c:RegisterEffect(e1)
+	--Place a monster in the Spell/Trap Zone as a Continuous Spell
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,id+1)
+	e2:SetTarget(s.pltg)
+	e2:SetOperation(s.plop)
+	c:RegisterEffect(e2)
+	--
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(id,3))
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1,id+2)
+	e3:SetCondition(aux.NOT(s.effcon))
+	e3:SetTarget(s.target)
+	e3:SetOperation(s.operation)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCondition(s.effcon)
+	c:RegisterEffect(e4)
+end
+function s.thfilter(c)
+	return c:IsSetCard(0x6224) and c:IsType(TYPE_SPELL+TYPE_TRAP) 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+LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+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_DECK+LOCATION_GRAVE,0,1,1,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function s.plfilter(c,p)
+	return c:IsFaceup() and c:IsType(TYPE_MONSTER) and Duel.GetLocationCount(p,LOCATION_SZONE)>0
+		and c:CheckUniqueOnField(p,LOCATION_SZONE)
+		and not c:IsForbidden()
+end
+function s.pltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.plfilter(chkc,1-tp) end
+	if chk==0 then return Duel.IsExistingTarget(s.plfilter,tp,0,LOCATION_MZONE,1,nil,1-tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local g=Duel.SelectTarget(tp,s.plfilter,tp,0,LOCATION_MZONE,1,1,nil)
+end
+function s.plop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc or not tc:IsRelateToEffect(e) or tc:IsImmuneToEffect(e) then return end
+	if tc and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) and Duel.GetLocationCount(1-tp,LOCATION_SZONE)>0 then
+		if Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true) then
+			local c=e:GetHandler()
+			--Treated as a Continuous Spell
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetCode(EFFECT_CHANGE_TYPE)
+			e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+			e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+			tc:RegisterEffect(e1)   
+			--Add this card to the deck
+			local e2=Effect.CreateEffect(c)
+			e2:SetDescription(aux.Stringid(id,2))
+			e2:SetCategory(CATEGORY_TODECK)
+			e2:SetType(EFFECT_TYPE_IGNITION)
+			e2:SetRange(LOCATION_SZONE)
+			e2:SetCountLimit(1,id)
+			if tc:IsOriginalSetCard(0x6224) then
+				e2:SetCondition(aux.NOT(s.effcon))
+			end
+			e2:SetCost(s.tdcost)
+			e2:SetTarget(s.tdtg)
+			e2:SetOperation(s.tdop)
+			e2:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+			tc:RegisterEffect(e2)
+			if tc:IsOriginalSetCard(0x6224) then
+				local e3=e2:Clone()
+				e3:SetType(EFFECT_TYPE_QUICK_O)
+				e3:SetCode(EVENT_FREE_CHAIN)
+				e3:SetCondition(s.effcon)
+				tc:RegisterEffect(e3)
+			end  
+		end
+	end
+end
+function s.tdcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_DECK,0,2,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_DECK,0,2,2,nil)
+	if #g>0 then
+		Duel.Remove(g,POS_FACEDOWN,REASON_COST)
+	end
+end
+function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToHand() end
+	c:CreateEffectRelation(e)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
+end
+function s.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+	end
+end
+function s.effcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAllTypes(TYPE_CONTINUOUS+TYPE_TRAP) and Duel.IsPlayerAffectedByEffect(tp,11603037)
+end
+function s.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x6224)
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local ct=Duel.GetMatchingGroupCount(s.cfilter,tp,LOCATION_MZONE,0,nil)
+		if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<ct then return false end
+		local g=Duel.GetDecktopGroup(tp,ct)
+		return g:FilterCount(Card.IsAbleToHand,nil)>0
+	end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
+end
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	local ct=Duel.GetMatchingGroupCount(s.cfilter,tp,LOCATION_MZONE,0,nil)
+	Duel.ConfirmDecktop(tp,ct)
+	local g=Duel.GetDecktopGroup(tp,ct)
+	if #g>0 then
+		Duel.DisableShuffleCheck()
+		if g:IsExists(Card.IsAbleToHand,1,nil) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+			local sg=g:FilterSelect(tp,Card.IsAbleToHand,1,1,nil)
+			if #sg==0 then return end
+			Duel.SendtoHand(sg,nil,REASON_EFFECT)
+		end
+		Duel.ShuffleDeck(tp)
+	end
+end
\ No newline at end of file

expansions/script/c11603022.lua

+--全解放封灵师 虎生
+local s,id=GetID()
+function s.initial_effect(c)
+	c:EnableReviveLimit()
+	--place and special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,id)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
+	c:RegisterEffect(e1)   
+	local e2=e1:Clone()
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCost(s.cost)
+	c:RegisterEffect(e2)  
+	--attack all
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_ATTACK_ALL)
+	e3:SetValue(1)
+	c:RegisterEffect(e3)  
+	--atkup
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e4:SetCode(EFFECT_UPDATE_ATTACK)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetValue(s.val)
+	c:RegisterEffect(e4)
+	--Banish cards from the opponent's deck
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(id,1))
+	e5:SetCategory(CATEGORY_REMOVE)
+	e5:SetType(EFFECT_TYPE_IGNITION)
+	e5:SetRange(LOCATION_SZONE)
+	e5:SetCountLimit(1,id+1)
+	e5:SetCondition(aux.NOT(s.effcon))
+	e5:SetTarget(s.dktg)
+	e5:SetOperation(s.dkop)
+	c:RegisterEffect(e5)
+	local e6=e5:Clone()
+	e6:SetType(EFFECT_TYPE_QUICK_O)
+	e6:SetCode(EVENT_FREE_CHAIN)
+	e6:SetCondition(s.effcon)
+	c:RegisterEffect(e6)
+end
+function s.plfilter(c)
+	return (c:IsFaceup() or c:IsLocation(LOCATION_HAND)) and c:IsSetCard(0x6224) and c:IsType(TYPE_MONSTER) and not c:IsForbidden()
+end
+function s.spselect(g,tp)
+	return Duel.GetMZoneCount(tp,g)>0
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(s.plfilter,tp,0x16,0,c)
+	if chk==0 then return c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,true) and Duel.GetLocationCount(tp,LOCATION_SZONE)>1 and g:CheckSubGroup(s.spselect,2,2,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,tp,0)
+end
+function s.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<2 then return end
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(s.plfilter,tp,0x16,0,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+	local tg=g:SelectSubGroup(tp,s.spselect,false,2,2,tp)
+	if not tg or #tg~=2 then return end
+	local sp=false
+	for tc in aux.Next(tg) do
+		if tc and Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+			--Treated as a Continuous Spell
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetCode(EFFECT_CHANGE_TYPE)
+			e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+			e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+			tc:RegisterEffect(e1)
+			sp=true
+		end
+	end
+	if c:IsRelateToEffect(e) and sp then
+		Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,true,true,POS_FACEUP)
+	end
+end
+function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local fg=Group.CreateGroup()
+	for i,pe in ipairs({Duel.IsPlayerAffectedByEffect(tp,11603038)}) do
+		fg:AddCard(pe:GetHandler())
+	end
+	if chk==0 then return #fg>=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(11603037,0))
+	local fc=nil
+	if #fg==1 then
+		fc=fg:GetFirst()
+	else
+		fc=fg:Select(tp,1,1,nil)
+	end
+	Duel.Hint(HINT_CARD,0,fc:GetCode())
+	fc:RegisterFlagEffect(11603038,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+end
+function s.effcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAllTypes(TYPE_CONTINUOUS+TYPE_TRAP) and Duel.IsPlayerAffectedByEffect(tp,11603037)
+end
+function s.atkfilter(c)
+	return c:IsFaceup() and c:GetOriginalType()&TYPE_MONSTER==TYPE_MONSTER 
+end
+function s.val(e,c)
+	local g=Duel.GetMatchingGroup(s.atkfilter,0,LOCATION_SZONE,LOCATION_SZONE,nil)
+	return g:GetSum(Card.GetAttack)/2
+end
+function s.dktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_DECK,2,nil)  end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,2,1-tp,LOCATION_DECK)
+end
+function s.dkop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(1-tp,Card.IsAbleToRemove,1-tp,LOCATION_DECK,0,2,2,nil)
+	if #g>0 then
+		Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c11603025.lua

+--封灵请求
+local s,id=GetID()
+function s.initial_effect(c)
+	aux.AddCodeList(c,id)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,id)
+	e1:SetCost(s.cost)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.activate)
+	e1:SetLabel(0)
+	c:RegisterEffect(e1)
+end
+function s.plfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x6224) and not c:IsForbidden()
+end
+function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	e:SetLabel(100)
+	if chk==0 then return true end
+end
+function s.thfilter(c)
+	return c:IsSetCard(0x6224) and not c:IsCode(id) and c:IsAbleToHand()
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
+	if c:IsLocation(LOCATION_HAND) then ft=ft-1 end
+	local pl=Duel.IsExistingMatchingCard(s.plfilter,tp,LOCATION_HAND,0,1,nil) and ft>0
+	local loc=LOCATION_DECK
+	if pl then loc=loc|LOCATION_GRAVE end
+
+	if chk==0 then
+		if e:GetLabel()~=100 then return false end
+		e:SetLabel(0)
+		return Duel.IsExistingMatchingCard(s.thfilter,tp,loc,0,1,nil)
+	end
+	if not Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) or (pl and Duel.SelectYesNo(tp,aux.Stringid(id,0))) then
+		local tc=Duel.SelectMatchingCard(tp,s.plfilter,tp,LOCATION_HAND,0,1,1,nil):GetFirst()
+		if tc and Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+			--Treated as a Continuous Spell
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetCode(EFFECT_CHANGE_TYPE)
+			e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+			e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+			tc:RegisterEffect(e1)
+		end
+		e:SetLabel(1)
+	else
+		e:SetLabel(0)
+	end
+	if e:GetLabel()==1 then
+		Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK|LOCATION_GRAVE)
+	else
+		Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+	end
+end
+function s.activate(e,tp,eg,ep,ev,re,r,rp)
+	local op=e:GetLabel()
+	local loc=op==1 and LOCATION_DECK|LOCATION_GRAVE or LOCATION_DECK
+	local ct=op==1 and 2 or 1
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,loc,0,1,ct,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
\ No newline at end of file

expansions/script/c11603028.lua

+--圣神封灵镜
+local s,id=GetID()
+function s.initial_effect(c)
+	aux.AddCodeList(c,11603016,11603019)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.operation)
+	c:RegisterEffect(e1)
+
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,0))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_MOVE)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,id)
+	e2:SetCondition(s.thcon)
+	e2:SetTarget(s.thtg)
+	e2:SetOperation(s.thop)
+	c:RegisterEffect(e2)   
+end
+function s.exfilter0(c)
+	return c:IsFaceup() and c:GetOriginalType()&TYPE_MONSTER==TYPE_MONSTER and c:IsAbleToGrave()
+end
+function s.filter(c,e,tp)
+	return c:IsSetCard(0x6224) and c:GetOriginalType()&0x81==0x81
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local mg=Duel.GetRitualMaterial(tp):Filter(Card.IsSetCard,nil,0x6224)
+		local sg=Duel.GetMatchingGroup(s.exfilter0,tp,LOCATION_SZONE,LOCATION_SZONE,nil)
+		return Duel.IsExistingMatchingCard(s.RitualUltimateFilter,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_SZONE,0,1,nil,s.filter,e,tp,mg,sg,Card.GetLevel,"Greater")
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
+end
+function s.operation(e,tp,eg,ep,ev,re,r,rp)
+	::cancel::
+	local mg=Duel.GetRitualMaterial(tp):Filter(Card.IsSetCard,nil,0x6224)
+	local sg=Duel.GetMatchingGroup(s.exfilter0,tp,LOCATION_SZONE,LOCATION_SZONE,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local tg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.RitualUltimateFilter),tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_SZONE,0,1,1,nil,s.filter,e,tp,mg,sg,Card.GetLevel,"Greater")
+	local tc=tg:GetFirst()
+	if tc then
+		mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc)
+		if sg then
+			mg:Merge(sg)
+		end
+		if tc.mat_filter then
+			mg=mg:Filter(tc.mat_filter,tc,tp)
+		else
+			mg:RemoveCard(tc)
+		end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+		aux.GCheckAdditional=aux.RitualCheckAdditional(tc,tc:GetLevel(),"Greater")
+		local mat=mg:SelectSubGroup(tp,aux.RitualCheck,true,1,tc:GetLevel(),tp,tc,tc:GetLevel(),"Greater")
+		aux.GCheckAdditional=nil
+		if not mat then goto cancel end
+		tc:SetMaterial(mat)
+		local mat2=mat:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
+		mat:Sub(mat2)
+		Duel.ReleaseRitualMaterial(mat)
+		Duel.SendtoGrave(mat2,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL)
+		Duel.BreakEffect()
+		Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		tc:CompleteProcedure()
+	end
+end
+function s.cfilter(c)
+	return c:IsFaceup() and c:GetOriginalType()&TYPE_MONSTER==TYPE_MONSTER and c:IsLocation(LOCATION_SZONE)
+end
+function s.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg and eg:IsExists(s.cfilter,1,nil)
+end
+function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToHand() end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+end
+function s.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoHand(c,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,c)
+	end
+end
+
+function s.RitualUltimateFilter(c,filter,e,tp,m1,m2,level_function,greater_or_equal,chk)
+	if bit.band(c:GetOriginalType(),0x81)~=0x81 or (filter and not filter(c,e,tp,chk)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end
+	local mg=m1:Filter(Card.IsCanBeRitualMaterial,c,c)
+	if m2 then
+		mg:Merge(m2)
+	end
+	if c.mat_filter then
+		mg=mg:Filter(c.mat_filter,c,tp)
+	else
+		mg:RemoveCard(c)
+	end
+	local lv=level_function(c)
+	Auxiliary.GCheckAdditional=Auxiliary.RitualCheckAdditional(c,lv,greater_or_equal)
+	local res=mg:CheckSubGroup(Auxiliary.RitualCheck,1,lv,tp,c,lv,greater_or_equal)
+	Auxiliary.GCheckAdditional=nil
+	return res
+end
\ No newline at end of file

expansions/script/c11603031.lua

+--封灵爆裂破
+local s,id=GetID()
+function s.initial_effect(c)
+	aux.AddCodeList(c,11603016)
+	 --Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCondition(function(e,tp) return Duel.IsTurnPlayer(tp) end)
+	e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.activate)
+	c:RegisterEffect(e1)
+end
+function s.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x6224) and c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ct=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD,0,nil):GetClassCount(Card.GetCode)
+	if chk==0 then return ct>0 and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function s.plfilter(c,tp)
+	return c:CheckUniqueOnField(tp,LOCATION_SZONE) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() and c:IsLocation(LOCATION_GRAVE) and c:IsControler(tp)
+end
+function s.filter(c)
+	return c:IsFaceup() and c:IsCode(11603016)
+end
+function s.activate(e,tp,eg,ep,ev,re,r,rp)
+	local ct=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD,0,e:GetHandler()):GetClassCount(Card.GetCode)
+	if ct==0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,e:GetHandler())
+	if #g>0 then
+		Duel.HintSelection(g)
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+	local ft=Duel.GetLocationCount(1-tp,LOCATION_SZONE)
+	local sg=Duel.GetOperatedGroup():Filter(aux.NecroValleyFilter(s.plfilter),nil,1-tp)
+	if #sg>0 and ft>0 and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_ONFIELD,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(id,0)) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+		local tg=sg:Select(tp,1,ft,nil)
+		for tc in aux.Next(tg) do
+			if tc and Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true) then
+				--Treated as a Continuous Spell
+				local e1=Effect.CreateEffect(c)
+				e1:SetType(EFFECT_TYPE_SINGLE)
+				e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+				e1:SetCode(EFFECT_CHANGE_TYPE)
+				e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+				e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+				tc:RegisterEffect(e1)
+				--Add this card to the deck
+				local e2=Effect.CreateEffect(c)
+				e2:SetDescription(aux.Stringid(id,2))
+				e2:SetCategory(CATEGORY_TODECK)
+				e2:SetType(EFFECT_TYPE_IGNITION)
+				e2:SetRange(LOCATION_SZONE)
+				e2:SetCountLimit(1,id)
+				if tc:IsOriginalSetCard(0x6224) then
+					e2:SetCondition(aux.NOT(s.effcon))
+				end
+				e2:SetCost(s.tdcost)
+				e2:SetTarget(s.tdtg)
+				e2:SetOperation(s.tdop)
+				e2:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+				tc:RegisterEffect(e2)
+				if tc:IsOriginalSetCard(0x6224) then
+					local e3=e2:Clone()
+					e3:SetType(EFFECT_TYPE_QUICK_O)
+					e3:SetCode(EVENT_FREE_CHAIN)
+					e3:SetCondition(s.effcon)
+					c:RegisterEffect(e3)
+				end
+			end
+		end
+	end
+end
+function s.tdcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_DECK,0,1,1,nil)
+	if #g>0 then
+		Duel.Remove(g,POS_FACEDOWN,REASON_COST)
+	end
+end
+function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToHand() end
+	c:CreateEffectRelation(e)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
+end
+function s.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+	end
+end
+function s.effcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAllTypes(TYPE_CONTINUOUS+TYPE_TRAP) and Duel.IsPlayerAffectedByEffect(tp,11603037)
+end
\ No newline at end of file

expansions/script/c11603034.lua

+--封灵月转轮
+local s,id=GetID()
+function s.initial_effect(c)
+	aux.AddCodeList(c,11603019)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(s.target)
+	e1:SetOperation(s.activate)
+	c:RegisterEffect(e1)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCost(s.tdcost2)
+	e2:SetTarget(s.tdtg2)
+	e2:SetOperation(s.tdop2)
+	c:RegisterEffect(e2)
+end
+function s.spfilter(c,e,tp)
+	return c:IsFaceup() and c:IsSetCard(0x6224) and c:GetOriginalType()&TYPE_MONSTER==TYPE_MONSTER and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+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_SZONE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE|LOCATION_SZONE)
+end
+function s.filter(c)
+	return c:IsFaceup() and c:IsCode(11603019)
+end
+function s.plfilter(c,tp)
+	return c:CheckUniqueOnField(tp,LOCATION_SZONE) and c:IsType(TYPE_MONSTER)
+end
+function s.seqfilter(c,dis)
+	return 1<<c:GetSequence()==dis
+end
+function s.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE|LOCATION_SZONE,0,1,1,nil,e,tp):GetFirst()
+	if sc then
+		Duel.HintSelection(Group.FromCards(sc))
+		Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
+	end
+	if not sc:IsLocation(LOCATION_MZONE) then return end
+	if Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_ONFIELD,0,1,nil) and Duel.IsExistingMatchingCard(s.plfilter,tp,0,LOCATION_MZONE,1,nil,1-tp) and Duel.SelectYesNo(tp,aux.Stringid(id,0)) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+		local tc=Duel.SelectMatchingCard(tp,s.plfilter,tp,0,LOCATION_MZONE,1,1,nil,1-tp):GetFirst()
+		if tc then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
+			local dis=Duel.SelectField(tp,1,0,LOCATION_SZONE,0x20002000)
+			dis=((dis&0xffff)<<24)|((dis>>24)&0xffff)
+			local dg=Duel.GetMatchingGroup(s.seqfilter,tp,0,LOCATION_SZONE,nil,dis)
+			if #dg>0 then
+				Duel.Destroy(dg,REASON_RULE)
+			end
+			if Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true,dis) then
+				--Treated as a Continuous Spell
+				local c=e:GetHandler()
+				local e1=Effect.CreateEffect(c)
+				e1:SetType(EFFECT_TYPE_SINGLE)
+				e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+				e1:SetCode(EFFECT_CHANGE_TYPE)
+				e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+				e1:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+				tc:RegisterEffect(e1)
+				--Add this card to the deck
+				local e2=Effect.CreateEffect(c)
+				e2:SetDescription(aux.Stringid(id,2))
+				e2:SetCategory(CATEGORY_TODECK)
+				e2:SetType(EFFECT_TYPE_IGNITION)
+				e2:SetRange(LOCATION_SZONE)
+				e2:SetCountLimit(1,id)
+				if tc:IsOriginalSetCard(0x6224) then
+					e2:SetCondition(aux.NOT(s.effcon))
+				end
+				e2:SetCost(s.tdcost)
+				e2:SetTarget(s.tdtg)
+				e2:SetOperation(s.tdop)
+				e2:SetReset(RESET_EVENT|RESETS_STANDARD&~RESET_TURN_SET)
+				tc:RegisterEffect(e2)
+				if tc:IsOriginalSetCard(0x6224) then
+					local e3=e2:Clone()
+					e3:SetType(EFFECT_TYPE_QUICK_O)
+					e3:SetCode(EVENT_FREE_CHAIN)
+					e3:SetCondition(s.effcon)
+					c:RegisterEffect(e3)
+				end
+			end
+		end
+	end
+end
+function s.tdcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(1-tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_DECK,0,1,1,nil)
+	if #g>0 then
+		Duel.Remove(g,POS_FACEDOWN,REASON_COST)
+	end
+end
+function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToHand() end
+	c:CreateEffectRelation(e)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
+end
+function s.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+	end
+end
+function s.effcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsAllTypes(TYPE_CONTINUOUS+TYPE_TRAP) and Duel.IsPlayerAffectedByEffect(tp,11603037)
+end
+function s.tdcost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+	Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_COST)
+end
+function s.tdfilter2(c)
+	return c:IsFaceup() and c:IsSetCard(0x6224) and c:IsAbleToDeck()
+end
+function s.tdtg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.tdfilter2,tp,LOCATION_GRAVE|LOCATION_SZONE,0,1,e:GetHandler()) end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,2,tp,LOCATION_GRAVE|LOCATION_SZONE)
+end
+function s.tdop2(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.tdfilter2),tp,LOCATION_GRAVE|LOCATION_SZONE,0,nil)
+	if #g>=1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local sg=g:Select(tp,1,4,nil)
+		Duel.HintSelection(sg)
+		if Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)==4 then
+			Duel.Draw(tp,1,REASON_EFFECT)
+		end
+	end
+end
\ No newline at end of file