update 05.16

.gitlab-ci.yml

@@ -4,8 +4,8 @@ stages:
 
 variables:
   GIT_DEPTH: "1"
-  LAST_UPDATE_DATE: "2023.04.02"
-  CURRENT_UPDATE_DATE: "2023.05.02"
+  LAST_UPDATE_DATE: "2023.05.02"
+  CURRENT_UPDATE_DATE: "2023.05.16"
 
 redtext:
   stage: prepare

expansions/script/c10220092.lua

@@ -47,7 +47,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	local lg=tc:GetColumnGroup()
 	local seq=tc:GetSequence()
 	local dg=Group.CreateGroup()
-	if seq<5 then dg=Duel.GetMatchingGroup(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,seq,tc:GetControler()) end
+	if seq<5 then dg=Duel.GetMatchingGroup(cm.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,seq,tc:GetControler()) end
 	dg:AddCard(tc)
 	local ct=dg:GetCount()
 	if ct>0 then Duel.Destroy(dg,REASON_EFFECT) end

expansions/script/c12825615.lua

@@ -77,17 +77,15 @@ function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
 	local g=e:GetLabelObject()
 	local ts=g:GetFirst()
 	if not g then return end
-	local scc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp,ts:GetCode)
+	local scc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp,ts:GetCode())
 	if scc then
 		Duel.SendtoHand(scc,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,scc)
-		if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)<=0 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) and Duel.IsPlayerCanDraw(tp,1) then
-			Duel.BreakEffect()
-			Duel.ShuffleDeck(tp)
-			Duel.Draw(tp,1,REASON_EFFECT)
-		end
+	end
+	if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)<=0 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) and Duel.IsPlayerCanDraw(tp,1) then
+		Duel.BreakEffect()
+		Duel.ShuffleDeck(tp)
+		Duel.Draw(tp,1,REASON_EFFECT)
 	end
 end
 
-
-

expansions/script/c12825616.lua

+--铳影-代号反攻
+local m=12825616
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_GRAVE_ACTION)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetCost(cm.cost)
+	e1:SetCondition(cm.condition)
+	e1:SetTarget(cm.rmtg)
+	e1:SetOperation(cm.rmop)
+	c:RegisterEffect(e1)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e2:SetCode(EVENT_LEAVE_FIELD)
+	e2:SetCountLimit(1)
+	e2:SetTarget(cm.thtg)
+	e2:SetOperation(cm.thop)
+	c:RegisterEffect(e2)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,1000) end
+	Duel.PayLPCost(tp,1000)
+end
+function cm.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x4a76)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetMatchingGroupCount(cm.cfilter,tp,LOCATION_MZONE,0,nil)>0
+end
+function cm.rmfilter(c)
+	return c:IsAbleToRemove() and c:IsFaceup()
+end
+function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.rmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,LOCATION_ONFIELD)
+end
+function cm.cfilter2(c)
+	return c:IsFaceup() and c:IsSetCard(0x4a76) and c:IsType(TYPE_XYZ)
+end
+function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(cm.rmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local sg=g:Select(tp,1,1,nil)
+		local tc=sg:GetFirst()
+		Duel.HintSelection(sg)
+		Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+	end
+	local c=e:GetHandler()
+	if Duel.GetMatchingGroupCount(cm.cfilter2,tp,LOCATION_MZONE,0,nil)>=1 then
+		local c=e:GetHandler()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_DISABLE)
+		e1:SetTargetRange(0xff,0xff)
+		e1:SetTarget(cm.distg)
+		e1:SetLabelObject(tc)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_CHAIN)
+		Duel.RegisterEffect(e1,tp)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCode(EVENT_CHAIN_SOLVING)
+		e2:SetCondition(cm.discon)
+		e2:SetOperation(cm.disop)
+		e2:SetLabelObject(tc)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_CHAIN)
+		Duel.RegisterEffect(e2,tp)
+	end
+	if c:IsRelateToEffect(e) then
+		c:CancelToGrave()
+		Duel.MoveToField(c,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true)
+	end
+end
+function cm.distg(e,c)
+	local tc=e:GetLabelObject()
+	return c:IsOriginalCodeRule(tc:GetOriginalCodeRule())
+end
+function cm.discon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	return re:IsActiveType(TYPE_MONSTER+TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsOriginalCodeRule(tc:GetOriginalCodeRule())
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateEffect(ev)
+end
+function cm.thtgfil(c)
+	return c:IsCode(12825613) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thtgfil,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.SelectMatchingCard(tp,cm.thtgfil,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/c23000400.lua

@@ -3,7 +3,7 @@ if c23000400 then return end
 c23000400=c23000400 or {}
 local m = 23000400
 local bm = _G["c"..m]
-local Version_Number=20220226
+local Version_Number=20230421
 local tcode=0x364
 --Instructions about how to use this
 --[[
@@ -352,9 +352,10 @@ function bm.x.op(loc,filter_func)
 	end
 end
 --SynchroSummon effect function
-function bm.othermatfilter(c)
+function bm.othermatfilter(c,sc)
 	local tp=c:GetControler()
 	local other=Duel.IsPlayerAffectedByEffect(tp,23000420)
+	if sc and sc:IsCode(23000640) then return c:IsHasEffect(23000680) end
 	return other and c:GetEquipTarget() and c:IsControler(tp) and c:IsLocation(sz)
 end
 function bm.CheckGroupRecursive(c,sg,g,f,min,max,ext_params)
@@ -378,7 +379,7 @@ function bm.CheckGroup(g,f,cg,min,max,...)
 end
 function bm.val(c,syncard)
 	local slv=c:GetSynchroLevel(syncard)
-	if bm.othermatfilter(c) then
+	if bm.othermatfilter(c,syncard) then
 		slv=1
 	end
 	return slv
@@ -402,7 +403,7 @@ end
 function bm.matfilter1(c,syncard,tp)
 	if syncard:IsOriginalCodeRule(23000630) and not c:IsCode(23000640) then return false end
 	if c:IsFacedown() and not c:GetEquipTarget() then return false end
-	if bm.othermatfilter(c) then return true end 
+	if bm.othermatfilter(c) and c:IsLocation(sz) then return true end 
 	return (c:IsSetCard(tcode) or syncard:IsOriginalCodeRule(23000640,23000650)) and c:IsSynchroType(TYPE_TUNER) and c:IsCanBeSynchroMaterial(syncard) and (c:IsFaceup() or not c:IsLocation(LOCATION_MZONE))
 end
 function bm.matfilter2(c,syncard)

expansions/script/c23000680.lua

+--统合骑士团之傲
+if not pcall(function() require("expansions/script/c23000400") end) then
+	if not pcall(function() require("script/c23000400") end) then
+		require("c23000400")
+	end
+end
+local m1=23000400
+local bm = _G["c"..m1]
+local tcode=0x364
+
+local cm,m,offset=GetID()
+
+function cm.initial_effect(c)
+	--special summon rule
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(cm.spcon)
+	c:RegisterEffect(e1)
+	--SearchCard
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_BE_MATERIAL)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,m)
+	e2:SetCondition(cm.thcon1)
+	e2:SetTarget(cm.thtg1)
+	e2:SetOperation(cm.thop1)
+	c:RegisterEffect(e2)
+	--
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCountLimit(1,m+1)
+	e3:SetCondition(cm.thcon2)
+	e3:SetTarget(cm.thtg2)
+	e3:SetOperation(cm.thop2)
+	c:RegisterEffect(e3)
+	--synchro level
+	--local e4=Effect.CreateEffect(c)
+	--e4:SetType(EFFECT_TYPE_SINGLE)
+	--e4:SetCode(23000680)
+	--e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	--e4:SetRange(LOCATION_MZONE)
+	--e4:SetValue(aux.TRUE)
+	--c:RegisterEffect(e4)
+	--synchro level
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCode(EFFECT_SYNCHRO_LEVEL)
+	e4:SetValue(cm.slevel)
+	c:RegisterEffect(e4)
+end
+function cm.slevel(e,c)
+	local lv=e:GetHandler():GetLevel()
+	return 1*65536+lv and c:IsCode(23000640)
+end
+function cm.cfilter(c)
+	return bm.c.cpos(c,tcode) and not c:IsType(TYPE_TUNER)
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,mz)>0 and Duel.IsExistingMatchingCard(cm.cfilter,tp,mz,0,1,nil)
+end
+function cm.thcon1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ec=c:GetReasonCard()
+	return bit.band(r,REASON_SYNCHRO)~=0 and ec:IsSetCard(tcode) and c:IsLocation(ga)
+end
+function cm.thfilter1(c)
+	return c:IsSetCard(tcode) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function cm.thtg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter1,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter1,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 cm.thcon2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsReason(REASON_COST) and re:IsActivated() and re:IsActiveType(TYPE_XYZ) and c:GetReasonCard():IsSetCard(tcode)
+		and c:IsPreviousLocation(LOCATION_OVERLAY)
+end
+function cm.thfilter2(c)
+	return c:IsSetCard(tcode) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
+end
+function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter2,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter2,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/c23000685.lua

+--统合骑士团的见习勇者
+if not pcall(function() require("expansions/script/c23000400") end) then
+	if not pcall(function() require("script/c23000400") end) then
+		require("c23000400")
+	end
+end
+local m1=23000400
+local bm = _G["c"..m1]
+local tcode=0x364
+
+local cm,m,offset=GetID()
+
+function cm.initial_effect(c)
+	--spsummon proc
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_SPSUMMON_PROC)
+	e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e0:SetRange(LOCATION_HAND)
+	e0:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e0:SetCondition(cm.spcon)
+	c:RegisterEffect(e0)
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(bm.hint.th)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2) 
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0,nil)==0
+		and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+end
+function cm.thfilter(c)
+	return c:IsSetCard(tcode) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.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/c23000690.lua

+--统合骑士团 统合圣剑
+if not pcall(function() require("expansions/script/c23000400") end) then
+	if not pcall(function() require("script/c23000400") end) then
+		require("c23000400")
+	end
+end
+local m1=23000400
+local bm = _G["c"..m1]
+local tcode=0x364
+
+local cm,m,offset=GetID()
+
+function cm.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,cm.mfilter,1)
+	c:EnableReviveLimit()
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,m)
+	e1:SetCondition(cm.spcon)
+	e1:SetCost(bm.e.sptgcost(nil,cm.spcost))
+	e1:SetTarget(bm.e.sptg(1,dk,cm.spf))
+	e1:SetOperation(bm.e.spop(1,dk,false,cm.spf))
+	c:RegisterEffect(e1)
+	--equip
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_EQUIP)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(ga)
+	e2:SetCountLimit(1,m+1)
+	e2:SetTarget(bm.e.eqtg(mz,cm.f,true))
+	e2:SetOperation(bm.e.eqop(mz,cm.f,true))
+	c:RegisterEffect(e2)
+	--indes
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_EQUIP)
+	e3:SetCode(EFFECT_IMMUNE_EFFECT)
+	e3:SetValue(cm.efilter)
+	c:RegisterEffect(e3)
+	--Atk up
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_EQUIP)
+	e4:SetCode(EFFECT_UPDATE_ATTACK)
+	e4:SetValue(500)
+	c:RegisterEffect(e4)
+end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() end
+	Duel.Release(e:GetHandler(),REASON_COST)
+end
+function cm.mfilter(c)
+	return c:IsLinkSetCard(tcode) and not c:IsCode(m)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function cm.spf(c)
+	return bm.c.cpos(c,tcode) and c:IsLevelBelow(4)
+end
+function cm.f(c)
+	return bm.c.cpos(c,tcode)
+end
+function cm.efilter(e,re)
+	return e:GetHandlerPlayer()~=re:GetOwnerPlayer()
+end

expansions/script/c23000695.lua

+--统合骑士团 骑士枪盾
+if not pcall(function() require("expansions/script/c23000400") end) then
+	if not pcall(function() require("script/c23000400") end) then
+		require("c23000400")
+	end
+end
+local m1=23000400
+local bm = _G["c"..m1]
+local tcode=0x364
+
+local cm,m,offset=GetID()
+
+function cm.initial_effect(c)
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	--act in hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	e2:SetCondition(cm.handcon)
+	c:RegisterEffect(e2)
+	--todeck
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TODECK+CATEGORY_GRAVE_ACTION)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCost(cm.tdcost)
+	e3:SetTarget(cm.tdtg)
+	e3:SetOperation(cm.tdop)
+	c:RegisterEffect(e3)
+end
+function cm.filter(c)
+	return bm.c.cpos(c,tcode)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local c=e:GetHandler()
+	local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_REMAIN_FIELD)
+	e1:SetProperty(EFFECT_FLAG_OATH+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetReset(RESET_CHAIN)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_DISABLED)
+	e2:SetOperation(cm.tgop)
+	e2:SetLabel(cid)
+	e2:SetReset(RESET_CHAIN)
+	Duel.RegisterEffect(e2,tp)
+end
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
+	if cid~=e:GetLabel() then return end
+	if e:GetOwner():IsRelateToChain(ev) then
+		e:GetOwner():CancelToGrave(false)
+	end
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+		e1:SetRange(LOCATION_MZONE)
+		e1:SetCode(EFFECT_IMMUNE_EFFECT)
+		e1:SetValue(cm.efilter)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		if c:IsRelateToEffect(e) and not c:IsStatus(STATUS_LEAVE_CONFIRMED) then
+			if bm.e.equip(c,tc) then
+				local e2=Effect.CreateEffect(c)
+				e2:SetType(EFFECT_TYPE_EQUIP)
+				e2:SetCode(EFFECT_UPDATE_ATTACK)
+				e2:SetValue(500)
+				e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+				c:RegisterEffect(e2)
+			end
+		end
+	elseif c:IsRelateToEffect(e) and not c:IsStatus(STATUS_LEAVE_CONFIRMED) then
+		c:CancelToGrave(false)
+	end
+end
+function cm.efilter(e,te)
+	return te:GetOwnerPlayer()~=e:GetOwnerPlayer()
+end
+function cm.cfilter(c)
+	return c:IsFaceup() and c:IsCode(23000630) 
+end
+function cm.handcon(e)
+	return Duel.GetMatchingGroupCount(cm.cfilter,e:GetHandler():GetControler(),LOCATION_MZONE,0,nil)>0
+end
+function cm.tdcostfil(c)
+	return c:IsAbleToGraveAsCost() and c:IsFaceup()
+end
+function cm.tdcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tdcostfil,tp,LOCATION_MZONE,0,1,nil) end
+	local g=Duel.SelectMatchingCard(tp,cm.tdcostfil,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToDeck() end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
+end
+function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
+	end
+end

expansions/script/c33331900.lua

@@ -6,8 +6,10 @@ function c33331900.initial_effect(c)
 	aux.AddFusionProcFun2(c,c33331900.mfilter1,c33331900.mfilter2,true) 
 	--remove and damage 
 	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(33331900,0))
 	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_DAMAGE) 
-	e1:SetType(EFFECT_TYPE_IGNITION) 
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetRange(LOCATION_MZONE) 
 	e1:SetCountLimit(1) 
 	e1:SetCost(c33331900.radcost) 
@@ -16,6 +18,7 @@ function c33331900.initial_effect(c)
 	c:RegisterEffect(e1) 
 	--negate
 	local e2=Effect.CreateEffect(c) 
+	e2:SetDescription(aux.Stringid(33331900,1))
 	e2:SetCategory(CATEGORY_DISABLE)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_CHAINING)
@@ -41,7 +44,7 @@ function c33331900.mfilter2(c)
 	return c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_THUNDER) 
 end 
 function c33331900.ctfil(c) 
-	return c:IsAbleToDeckAsCost() and c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK)  
+	return c:IsAbleToDeckOrExtraAsCost() and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) and c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK)  
 end 
 function c33331900.tdgck(g)  
 	return g:FilterCount(Card.IsAttribute,nil,ATTRIBUTE_LIGHT)==1 

expansions/script/c33331901.lua

+--堇霆之兽 噬霆虫
+local m = 33331901
+local cm= _G["c"..m]
+function cm.initial_effect(c)
+	 --special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(cm.spcon)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)
+	--to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m+50)
+	e2:SetCost(aux.bfgcost)
+	e2:SetCondition(cm.tgcon1)
+	e2:SetTarget(cm.tgtg)
+	e2:SetOperation(cm.tgop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCondition(cm.tgcon2)
+	c:RegisterEffect(e3)
+end
+--spsummon
+function cm.filter(c)
+	return c:IsType(TYPE_SPELL) and c:IsSetCard(0x3567) and c:IsAbleToRemoveAsCost()
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+--send to grave
+function cm.tgfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0x3567) and c:IsAbleToGrave()
+end
+function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end
+function cm.tgfilter2(c)
+	return c:IsType(TYPE_FUSION) and c:IsRace(RACE_REPTILE) 
+end
+function cm.tgcon1(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.tgcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_MZONE,0,1,nil)
+end
\ No newline at end of file

expansions/script/c33331902.lua

+--堇霆之兽 掘突虫
+local m = 33331902
+local cm= _G["c"..m]
+function cm.initial_effect(c)
+	 --special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(cm.spcon)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)
+	--to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_ATKCHANGE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m+50)
+	e2:SetCost(aux.bfgcost)
+	e2:SetCondition(cm.tgcon1)
+	e2:SetOperation(cm.tgop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCondition(cm.tgcon2)
+	c:RegisterEffect(e3)
+end
+--spsummon
+function cm.filter(c)
+	return c:IsType(TYPE_SPELL) and c:IsSetCard(0x3567) and c:IsAbleToRemoveAsCost()
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+--gain atk
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
+				local e1=Effect.CreateEffect(e:GetHandler())
+				e1:SetType(EFFECT_TYPE_FIELD)
+				e1:SetCode(EFFECT_UPDATE_ATTACK)
+				e1:SetTargetRange(LOCATION_MZONE,0)
+				e1:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_REPTILE))
+				e1:SetValue(1000)
+				e1:SetReset(RESET_PHASE+PHASE_END)
+				Duel.RegisterEffect(e1,tp)
+end
+function cm.tgfilter2(c)
+	return c:IsType(TYPE_FUSION) and c:IsRace(RACE_REPTILE) 
+end
+function cm.tgcon1(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.tgcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_MZONE,0,1,nil)
+end
\ No newline at end of file

expansions/script/c33331903.lua

+--堇霆之兽 巨铠虫
+local m = 33331903
+local cm= _G["c"..m]
+function cm.initial_effect(c)
+	 --special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(cm.spcon)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)
+	--to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m+50)
+	e2:SetCost(aux.bfgcost)
+	e2:SetCondition(cm.tgcon1)
+	e2:SetOperation(cm.tgop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCondition(cm.tgcon2)
+	c:RegisterEffect(e3)
+end
+--spsummon
+function cm.filter(c)
+	return c:IsType(TYPE_SPELL) and c:IsSetCard(0x3567) and c:IsAbleToRemoveAsCost()
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+--indestroyable
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e1:SetTargetRange(LOCATION_ONFIELD,0)
+	e1:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_REPTILE))
+	e1:SetValue(aux.indoval)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function cm.tgfilter2(c)
+	return c:IsType(TYPE_FUSION) and c:IsRace(RACE_REPTILE) 
+end
+function cm.tgcon1(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.tgcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_MZONE,0,1,nil)
+end

expansions/script/c33331904.lua

+--堇霆之兽 棘伤虫
+local m = 33331904
+local cm= _G["c"..m]
+function cm.initial_effect(c)
+	 --special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(cm.spcon)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)
+	--SearchCard
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_HANDES)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m+50)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(cm.tgtg)
+	e2:SetOperation(cm.tgop)
+	c:RegisterEffect(e2)
+end
+--spsummon
+function cm.filter(c)
+	return c:IsType(TYPE_SPELL) and c:IsSetCard(0x3567) and c:IsAbleToRemoveAsCost()
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+--send to grave
+function cm.thfilter(c)
+	return c:IsSetCard(0x3567) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+		Duel.BreakEffect()
+		--Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT)
+		if Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_MZONE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+			Duel.Draw(tp,1,REASON_EFFECT)
+		end
+	end
+	
+end
+function cm.tgfilter2(c)
+	return c:IsType(TYPE_FUSION) and c:IsRace(RACE_REPTILE) 
+end

expansions/script/c33331905.lua

+--堇霆之灵 幻闪
+function c33331905.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c) 
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,33331905+EFFECT_COUNT_CODE_OATH)  
+	e1:SetTarget(c33331905.target)
+	e1:SetOperation(c33331905.activate)
+	c:RegisterEffect(e1)  
+	--to hand 
+	local e2=Effect.CreateEffect(c) 
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TODECK) 
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) 
+	e2:SetCode(EVENT_REMOVE) 
+	e2:SetProperty(EFFECT_FLAG_DELAY) 
+	e2:SetCountLimit(1,13331905) 
+	e2:SetTarget(c33331905.thtg) 
+	e2:SetOperation(c33331905.thop) 
+	c:RegisterEffect(e2)  
+end 
+function c33331905.filter0(c)
+	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
+end
+function c33331905.filter1(c,e)
+	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave() and not c:IsImmuneToEffect(e)
+end
+function c33331905.filter2(c,e,tp,m,f,chkf)  
+	e:GetHandler():AddMonsterAttribute(TYPE_NORMAL)
+	return c:IsType(TYPE_FUSION) and (not f or f(c))
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,e:GetHandler(),chkf)
+end
+function c33331905.target(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and
+		Duel.IsPlayerCanSpecialSummonMonster(tp,33331905,0x3567,TYPES_NORMAL_TRAP_MONSTER,500,0,4,RACE_THUNDER,ATTRIBUTE_DARK) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end 
+function c33331905.fcheck(tp,sg,fc)
+	return sg:IsExists(Card.IsRace,1,nil,RACE_REPTILE)
+end
+function c33331905.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
+		or not Duel.IsPlayerCanSpecialSummonMonster(tp,33331905,0x3567,TYPES_NORMAL_TRAP_MONSTER,500,0,4,RACE_THUNDER,ATTRIBUTE_DARK) then return end
+		c:AddMonsterAttribute(TYPE_NORMAL)
+		if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then  
+			local chkf=tp
+			local mg=Duel.GetMatchingGroup(c33331905.filter1,tp,LOCATION_MZONE+LOCATION_HAND,0,nil,e)
+			aux.FCheckAdditional=c33331905.fcheck
+			local sg1=Duel.GetMatchingGroup(c33331905.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,nil,chkf)
+			local mg3=nil
+			local sg2=nil
+			local ce=Duel.GetChainMaterial(tp)
+			if ce~=nil then
+				local fgroup=ce:GetTarget()
+				mg3=fgroup(ce,e,tp)
+				local mf=ce:GetValue()
+				sg2=Duel.GetMatchingGroup(c33331905.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf)
+			end
+			 if (sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0)) and Duel.SelectYesNo(tp,aux.Stringid(33331905,0)) then
+				Duel.BreakEffect()  
+				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
+				local mat=Duel.SelectFusionMaterial(tp,tc,mg,e:GetHandler(),chkf)
+				tc:SetMaterial(mat)
+				if mat:IsExists(Card.IsFacedown,1,nil) then
+					local cg=mat:Filter(Card.IsFacedown,nil)
+					Duel.ConfirmCards(1-tp,cg)
+				end
+				Duel.SendtoGrave(mat,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,mg3,nil,chkf)
+				local fop=ce:GetOperation()
+				fop(ce,e,tp,tc,mat2)
+			end 
+			tc:CompleteProcedure() 
+		end  
+	aux.FCheckAdditional=nil
+	end 
+end 
+function c33331905.thfil(c) 
+	return c:IsAbleToHand() and c:IsType(TYPE_SPELL) and c:IsSetCard(0x3567) and not c:IsCode(33331905) 
+end 
+function c33331905.thtg(e,tp,eg,ep,ev,re,r,rp,chk) 
+	if chk==0 then return Duel.IsExistingMatchingCard(c33331905.thfil,tp,LOCATION_DECK,0,1,nil) and e:GetHandler():IsAbleToHand() end 
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) 
+end 
+function c33331905.thop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(c33331905.thfil,tp,LOCATION_DECK,0,nil) 
+	if g:GetCount()>0 then 
+		local sg=g:Select(tp,1,1,nil) 
+		Duel.SendtoHand(sg,tp,REASON_EFFECT) 
+		Duel.ConfirmCards(1-tp,sg)   
+		if c:IsRelateToEffect(e) then 
+			Duel.SendtoDeck(c,nil,2,REASON_EFFECT)   
+		end   
+	end 
+end 
+
+
+
+
+
+

expansions/script/c33331906.lua

+--堇霆之灵 赤闪
+function c33331906.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c) 
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,33331906)	 
+	e1:SetTarget(c33331906.target)
+	e1:SetOperation(c33331906.activate)
+	c:RegisterEffect(e1)  
+	--to hand 
+	local e2=Effect.CreateEffect(c) 
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TODECK) 
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) 
+	e2:SetCode(EVENT_REMOVE) 
+	e2:SetProperty(EFFECT_FLAG_DELAY) 
+	e2:SetCountLimit(1,13331906) 
+	e2:SetTarget(c33331906.thtg) 
+	e2:SetOperation(c33331906.thop) 
+	c:RegisterEffect(e2) 
+end 
+function c33331906.filter0(c)
+	return (c:IsLocation(LOCATION_MZONE) or c:IsFaceup()) and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
+end
+function c33331906.filter1(c,e)
+	return (c:IsLocation(LOCATION_MZONE) or c:IsFaceup()) and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave() and not c:IsImmuneToEffect(e)
+end
+function c33331906.filter2(c,e,tp,m,f,chkf)  
+	e:GetHandler():AddMonsterAttribute(TYPE_NORMAL)
+	return c:IsType(TYPE_FUSION) and (not f or f(c))
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,e:GetHandler(),chkf)
+end
+function c33331906.target(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and
+		Duel.IsPlayerCanSpecialSummonMonster(tp,33331906,0x3567,TYPES_NORMAL_TRAP_MONSTER,500,0,4,RACE_THUNDER,ATTRIBUTE_DARK) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end 
+function c33331906.fcheck(tp,sg,fc)
+	return sg:IsExists(Card.IsRace,1,nil,RACE_REPTILE)
+end
+function c33331906.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
+		or not Duel.IsPlayerCanSpecialSummonMonster(tp,33331906,0x3567,TYPES_NORMAL_TRAP_MONSTER,500,0,4,RACE_THUNDER,ATTRIBUTE_DARK) then return end
+		c:AddMonsterAttribute(TYPE_NORMAL)
+		if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then 
+			local chkf=tp
+			local mg=Duel.GetMatchingGroup(c33331906.filter1,tp,LOCATION_MZONE+LOCATION_REMOVED,0,nil,e)
+			aux.FCheckAdditional=c33331906.fcheck
+			local sg1=Duel.GetMatchingGroup(c33331906.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,nil,chkf)
+			local mg3=nil
+			local sg2=nil
+			local ce=Duel.GetChainMaterial(tp)
+			if ce~=nil then
+				local fgroup=ce:GetTarget()
+				mg3=fgroup(ce,e,tp)
+				local mf=ce:GetValue()
+				sg2=Duel.GetMatchingGroup(c33331906.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf)
+			end
+			if (sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0)) and Duel.SelectYesNo(tp,aux.Stringid(33331906,0)) then
+				Duel.BreakEffect()  
+				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
+				local mat=Duel.SelectFusionMaterial(tp,tc,mg,e:GetHandler(),chkf)
+				tc:SetMaterial(mat)
+				if mat:IsExists(Card.IsFacedown,1,nil) then
+					local cg=mat:Filter(Card.IsFacedown,nil)
+					Duel.ConfirmCards(1-tp,cg)
+				end
+				Duel.SendtoGrave(mat,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,mg3,nil,chkf)
+				local fop=ce:GetOperation()
+				fop(ce,e,tp,tc,mat2)
+			end 
+			tc:CompleteProcedure() 
+		end  
+	aux.FCheckAdditional=nil
+	end 
+end 
+function c33331906.thfil(c) 
+	return c:IsAbleToHand() and c:IsType(TYPE_SPELL) and c:IsSetCard(0x3567) and not c:IsCode(33331906) 
+end 
+function c33331906.thtg(e,tp,eg,ep,ev,re,r,rp,chk) 
+	if chk==0 then return Duel.IsExistingMatchingCard(c33331906.thfil,tp,LOCATION_DECK,0,1,nil) and e:GetHandler():IsAbleToHand() end 
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) 
+end 
+function c33331906.thop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(c33331906.thfil,tp,LOCATION_DECK,0,nil) 
+	if g:GetCount()>0 then 
+		local sg=g:Select(tp,1,1,nil) 
+		Duel.SendtoHand(sg,tp,REASON_EFFECT) 
+		Duel.ConfirmCards(1-tp,sg)   
+		if c:IsRelateToEffect(e) then 
+			Duel.SendtoDeck(c,nil,2,REASON_EFFECT)   
+		end   
+	end 
+end 
+
+

expansions/script/c33331907.lua

+--堇霆之兽 紫胧
+local m = 33331907
+local cm= _G["c"..m]
+function cm.initial_effect(c)
+	aux.EnablePendulumAttribute(c,false)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcFun2(c,cm.mfilter1,cm.mfilter2,true) 
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.settg)
+	e1:SetOperation(cm.setop)
+	c:RegisterEffect(e1)
+	--destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_POSITION)
+	e2:SetCountLimit(1,m+50)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(cm.destg)
+	e2:SetOperation(cm.desop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCondition(cm.tgcon2)
+	c:RegisterEffect(e3)
+end
+function cm.mfilter1(c) 
+	return c:IsRace(RACE_REPTILE)
+end 
+function cm.mfilter2(c) 
+	return c:IsRace(RACE_THUNDER) 
+end 
+--set magic and trap
+function cm.filter(c)
+	return c:IsSetCard(0x3567) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
+end
+function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
+end
+function cm.setop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
+	local tc=g:GetFirst()
+	if tc and Duel.SSet(tp,tc)~=0 then
+		Duel.SSet(tp,tc)
+	end
+end
+--turn 
+function cm.sfilter(c) 
+	return (c:IsCanChangePosition() or c:IsSSetable()) and c:IsPosition(POS_FACEUP) and not (c:IsStatus(STATUS_DESTROY_CONFIRMED) or c:IsStatus(STATUS_LEAVE_CONFIRMED))
+end 
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.sfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	local g=Duel.GetMatchingGroup(cm.sfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g=Duel.SelectMatchingCard(tp,cm.sfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		local tc=g:GetFirst()
+		Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
+	end
+end
+function cm.tgfilter2(c)
+	return c:IsType(TYPE_FUSION) and c:IsSetCard(0x3567)
+end
+function cm.tgcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_MZONE,0,1,nil)
+end
\ No newline at end of file

expansions/script/c33331908.lua

+--堇霆之赐
+local m = 33331908
+local cm= _G["c"..m]
+function c33331908.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	--set
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCost(cm.setcost)
+	e2:SetTarget(cm.settg)
+	e2:SetOperation(cm.setop)
+	c:RegisterEffect(e2)
+end
+function cm.tgfilter2(c)
+	return c:IsType(TYPE_FUSION) and c:IsSetCard(0x3567)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+	   if Duel.Destroy(tc,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_MZONE,0,1,nil) and tc:IsType(TYPE_MONSTER) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+			if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then 
+				local e1=Effect.CreateEffect(e:GetHandler())
+				e1:SetType(EFFECT_TYPE_SINGLE)
+				e1:SetCode(EFFECT_CHANGE_RACE)
+				e1:SetValue(RACE_THUNDER)
+				e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+				tc:RegisterEffect(e1)
+			end 
+	   end
+	end
+end
+
+function cm.cfilter1(c,tp)
+	return c:IsSetCard(0x3567) and (c:IsControler(tp) or c:IsFaceup())
+end
+function cm.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,cm.cfilter1,1,nil,tp) end
+	local sg=Duel.SelectReleaseGroup(tp,cm.cfilter1,1,1,nil,tp)
+	Duel.Release(sg,REASON_COST)
+end
+function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsSSetable() end
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
+end
+function cm.setop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SSet(tp,c)~=0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+		e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
+		e1:SetValue(LOCATION_REMOVED)
+		c:RegisterEffect(e1)
+	end
+end

expansions/script/c33331909.lua

+--堇霆之地 雷鸣陵
+local m = 33331909
+local cm= _G["c"..m]
+function c33331909.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DECKDES)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	--Draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_DRAW)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCode(EVENT_REMOVE)
+	e2:SetCountLimit(1,m)
+	e2:SetCondition(cm.sscon)
+	e2:SetTarget(cm.sstg)
+	e2:SetOperation(cm.ssop)
+	c:RegisterEffect(e2)
+end
+function cm.filter(c)
+	return c:IsSetCard(0x3567) and c:IsAbleToGrave()
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_DECK,0,nil)
+	if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SendtoGrave(sg,REASON_EFFECT)
+	end
+end
+
+function cm.cfilter(c,tp)
+	return  c:IsPreviousControler(tp) and c:IsSetCard(0x3567)
+end
+function cm.sscon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter,1,nil,tp)
+end
+function cm.sstg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function cm.atkfilter(c)
+	return c:IsFaceup() and (c:IsRace(RACE_REPTILE) or c:IsRace(RACE_THUNDER))
+end
+function cm.ssop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Draw(p,d,REASON_EFFECT)
+	local g=Duel.GetMatchingGroup(cm.atkfilter,tp,LOCATION_MZONE,0,nil)
+	local tc=g:GetFirst()
+	while tc do
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(500)
+		tc:RegisterEffect(e1)
+		tc=g:GetNext()
+	end
+end
\ No newline at end of file

expansions/script/c33331910.lua

+--堇霆之兽 源息
+local m = 33331910
+local cm= _G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_REPTILE+RACE_THUNDER),2,2)
+	--recycle
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--remove
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m+50)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(cm.rmtg1)
+	e2:SetCondition(cm.tgcon1)
+	e2:SetOperation(cm.tgop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetTarget(cm.rmtg2)
+	e3:SetCondition(cm.tgcon2)
+	c:RegisterEffect(e3)
+end
+function cm.filter(c)
+	return c:IsFaceup() and c:IsSetCard(0x3567) and c:IsAbleToHand()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.filter),tp,LOCATION_REMOVED,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+--remove
+function cm.filter1(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
+end
+function cm.rmtg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and cm.filter1(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,1-tp,LOCATION_GRAVE)
+end
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	if #tg>0 then
+		Duel.Remove(tg,POS_FACEUP,REASON_EFFECT)
+	end
+end
+function cm.rmtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and cm.filter1(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_GRAVE,LOCATION_GRAVE,2,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,2,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,1-tp,LOCATION_GRAVE)
+end
+function cm.tgfilter2(c)
+	return c:IsType(TYPE_FUSION) and c:IsSetCard(0x3567)
+end
+function cm.tgcon1(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.tgcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(cm.tgfilter2,tp,LOCATION_MZONE,0,1,nil)
+end

expansions/script/c33503350.lua

+--嫩竹的辉夜姬
+local m=33503350
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--direct attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_DIRECT_ATTACK)
+	e1:SetCondition(cm.dircon)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(33503350)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(1,0)
+	e2:SetCondition(cm.dircon)
+	c:RegisterEffect(e2)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetCountLimit(1)
+	e2:SetTarget(cm.target)
+	e2:SetOperation(cm.operation)
+	c:RegisterEffect(e2)
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e5:SetValue(1)
+	c:RegisterEffect(e5)
+end
+function cm.fivefilter(c)
+	return aux.IsCodeListed(c,33503351) and c:IsType(TYPE_SPELL) and c:IsFaceup()
+end
+function cm.dircon(e)
+	local g=Duel.GetFieldGroup(e:GetHandlerPlayer(),LOCATION_SZONE,0)
+	return g:Filter(cm.fivefilter,nil):GetCount()>4 and aux.dncheck(g)
+end
+
+function cm.filter(c,e,tp,chk)
+	return c:IsCode(33503351)
+		and c:IsAbleToHand()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,0,tp,LOCATION_DECK)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tc=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
+	if tc then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	end
+end
\ No newline at end of file

expansions/script/c33503351.lua

+--五道难题
+local m=33503351
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--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,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m)
+	e2:SetCost(cm.costdeck)
+	e2:SetTarget(cm.target2)
+	e2:SetOperation(cm.activate2)
+	c:RegisterEffect(e2)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e2:SetCondition(cm.dircon)
+	c:RegisterEffect(e2)
+end
+function cm.dircon(e)
+	local g=Duel.GetFieldGroup(e:GetHandlerPlayer(),LOCATION_MZONE,0)
+	return g:Filter(Card.IsCode,nil,33503350):GetCount()>0 
+end
+
+function cm.filter(c,res)
+	return aux.IsCodeListed(c,33503351) and c:IsType(TYPE_SPELL) and (c:IsAbleToHand() or res)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local res=Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil,res) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		if g:GetFirst():IsAbleToHand() then
+			if Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+				Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+			else
+				Duel.SendtoHand(g,nil,REASON_EFFECT)
+				Duel.ConfirmCards(1-tp,g)
+			end
+		else
+			Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+		end
+	end
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(LOCATION_SZONE,0)
+	e2:SetValue(1)
+	e2:SetTarget(cm.atkfilter)
+	e2:SetReset(RESET_PHASE+PHASE_END,2)
+	Duel.RegisterEffect(e2,tp)
+end
+function cm.atkfilter(e,c)
+	return c:IsFaceup() and c:IsType(TYPE_SPELL)
+end
+
+function cm.costdeck(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToDeckAsCost() and Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,e:GetHandler()) end
+	Duel.ConfirmCards(1-tp,c)
+	Duel.SendtoDeck(c,nil,2,REASON_COST)
+end
+function cm.tdfilter(c)
+	return aux.IsCodeListed(c,33503351) and c:IsAbleToDeck() 
+end
+function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,e:GetHandler()) end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,nil,tp,LOCATION_GRAVE+LOCATION_REMOVED)
+end
+function cm.activate2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsLocation(LOCATION_DECK) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local g1=Duel.SelectMatchingCard(tp,cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,3,e:GetHandler())
+		local tg=Duel.SendtoDeck(g1,nil,2,REASON_EFFECT)
+		Duel.ShuffleDeck(tp)
+	end
+end
\ No newline at end of file

expansions/script/c33503352.lua

+--燕子安贝
+local m=33503352
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	aux.AddCodeList(c,33503351)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--remain field
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,0))
+	e3:SetCategory(CATEGORY_RECOVER)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1)
+	e3:SetOperation(cm.setop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCondition(cm.fcon)
+	c:RegisterEffect(e4)
+end
+function cm.fcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsPlayerAffectedByEffect(tp,33503350)
+end
+function cm.filter(c)
+	return aux.IsCodeListed(c,33503351) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
+end
+function cm.setop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,m)
+	Duel.Recover(tp,Duel.GetLP(e:GetHandlerPlayer())/2,REASON_EFFECT)
+	local g=Duel.GetFieldGroup(e:GetHandlerPlayer(),LOCATION_MZONE,0)
+	if g:Filter(Card.IsCode,nil,33503350):GetCount()>0 and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local tg=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
+		Duel.SendtoHand(tg,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tg)
+	end
+end
\ No newline at end of file

expansions/script/c33503353.lua

+--佛前石钵
+local m=33503353
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	aux.AddCodeList(c,33503351)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--remain field
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,0))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1)
+	e3:SetOperation(cm.setop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCondition(cm.fcon)
+	c:RegisterEffect(e4)
+end
+function cm.fcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsPlayerAffectedByEffect(tp,33503350)
+end
+function cm.filter(c)
+	return aux.IsCodeListed(c,33503351) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
+end
+function cm.setop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,m)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE,tp)>0
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,m+10,0,TYPES_TOKEN_MONSTER,0,3000,9,RACE_ROCK,ATTRIBUTE_LIGHT,POS_FACEUP,tp) then
+		local token=Duel.CreateToken(tp,m+10)
+		Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+	end
+	local g=Duel.GetFieldGroup(e:GetHandlerPlayer(),LOCATION_MZONE,0)
+	if g:Filter(Card.IsCode,nil,33503350):GetCount()>0 then
+		local tg=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_MZONE,0,nil,m+10)
+		local g2=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
+		if g2:GetCount()<=0 then return end
+		local atkm=g2:GetMaxGroup(Card.GetAttack):GetFirst():GetAttack()
+		if atkm<1 then return end
+		local sc=tg:GetFirst()
+		while sc do
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			e1:SetValue(atkm)
+			sc:RegisterEffect(e1)
+			sc=tg:GetNext()
+		end
+	end
+end
\ No newline at end of file

expansions/script/c33503354.lua

+--火鼠裘
+local m=33503354
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	aux.AddCodeList(c,33503351)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--remain field
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,0))
+	e3:SetCategory(CATEGORY_DAMAGE)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_BATTLE_CONFIRM)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetOperation(cm.setop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCondition(cm.fcon)
+	c:RegisterEffect(e4)
+end
+function cm.fcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsPlayerAffectedByEffect(tp,33503350)
+end
+function cm.setop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_CARD,0,m)
+	Duel.Damage(e:GetHandlerPlayer(),1000,REASON_EFFECT)
+	local g=Duel.GetFieldGroup(e:GetHandlerPlayer(),LOCATION_MZONE,0)
+	if g:Filter(Card.IsCode,nil,33503350):GetCount()>0 then
+		local tc=Duel.GetAttacker()
+		local bc=Duel.GetAttackTarget()
+		if tc:IsControler(1-e:GetHandlerPlayer()) then tc,bc=bc,tc end
+		if tc:IsRelateToBattle() and tc:IsFaceup() and bc:IsRelateToBattle() and bc:IsFaceup() then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			e1:SetValue(bc:GetAttack())
+			tc:RegisterEffect(e1)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c33503355.lua

+--龙首之玉
+local m=33503355
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	aux.AddCodeList(c,33503351)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--remain field
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,0))
+	e3:SetCategory(CATEGORY_DESTROY)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1)
+	e3:SetOperation(cm.setop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCondition(cm.fcon)
+	c:RegisterEffect(e4)
+end
+function cm.fcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsPlayerAffectedByEffect(tp,33503350)
+end
+function cm.filter(c)
+	return aux.IsCodeListed(c,33503351) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
+end
+function cm.setop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,m)
+	if Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local sg=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_MZONE,1,1,nil)
+		if sg:GetCount()>0 then
+			Duel.HintSelection(sg)
+			Duel.Destroy(sg,REASON_EFFECT)
+		end
+	end
+	local g=Duel.GetFieldGroup(e:GetHandlerPlayer(),LOCATION_MZONE,0)
+	if g:Filter(Card.IsCode,nil,33503350):GetCount()>0 then
+		if Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)==0 then return end
+		local rg=Duel.GetDecktopGroup(1-tp,5)
+		Duel.DisableShuffleCheck()
+		Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c33503356.lua

+--蓬莱玉枝
+local m=33503356
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	aux.AddCodeList(c,33503351)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--remain field
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,1))
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1)
+	e3:SetOperation(cm.setop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCondition(cm.fcon)
+	c:RegisterEffect(e4)
+end
+function cm.fcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsPlayerAffectedByEffect(tp,33503350)
+end
+function cm.filter(c)
+	return aux.IsCodeListed(c,33503351) and c:IsType(TYPE_SPELL) 
+end
+function cm.setop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,m)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+		local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil)
+		Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+	end
+	local g=Duel.GetFieldGroup(e:GetHandlerPlayer(),LOCATION_MZONE,0)
+	if g:Filter(Card.IsCode,nil,33503350):GetCount()>0 and Duel.IsPlayerCanDraw(tp,1) then
+		Duel.Draw(tp,1,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c33503357.lua

+--竹取物语-辉夜姬
+local m=33503357
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--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,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+end
+function cm.filter(c)
+	return c:IsCode(33503350) and c:IsAbleToHand()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.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
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetValue(1)
+	e2:SetTarget(cm.atkfilter)
+	e2:SetReset(RESET_PHASE+PHASE_END,2)
+	Duel.RegisterEffect(e2,tp)
+end
+function cm.atkfilter(e,c)
+	return c:IsFaceup() and c:IsRace(RACE_SPELLCASTER)
+end
\ No newline at end of file

expansions/script/c33503363.lua

+--石钵衍生物
+local m=33503363
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	
+end

expansions/script/c35800513.lua

+--决斗者☆的龙启 沐乐丝
+local m=35800513
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	aux.AddCodeList(c,35800521)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--Cannot p
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetRange(LOCATION_PZONE)
+	e4:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetTargetRange(1,0)
+	e4:SetTarget(cm.splimit)
+	c:RegisterEffect(e4)
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_PZONE)
+	e2:SetCondition(cm.thcon)
+	e2:SetTarget(cm.thtg)
+	e2:SetOperation(cm.thop)
+	c:RegisterEffect(e2)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(cm.scon)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1) 
+	local e11=Effect.CreateEffect(c)
+	e11:SetDescription(aux.Stringid(m,2))
+	e11:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e11:SetCode(EVENT_LEAVE_FIELD)
+	e11:SetProperty(EFFECT_FLAG_DELAY)
+	e11:SetCondition(cm.pencon)
+	e11:SetTarget(cm.pentg)
+	e11:SetOperation(cm.penop)
+	c:RegisterEffect(e11)
+end
+function cm.splimit(e,c,tp,sumtp,sumpos)
+	return not c:IsSetCard(0xb83) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
+end
+
+function cm.cfilter(c)
+	return c:IsCode(35800521) and c:IsFaceup()
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetCard(e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
+		local sg=Duel.SelectMatchingCard(tp,cm.filter,tp,0,LOCATION_MZONE,1,1,nil)
+		local tc=sg:GetFirst()
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetValue(0)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+	end
+end
+function cm.filter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsFaceup()
+end
+
+function cm.filter1(c)
+	return c:IsFaceup() and c:IsSetCard(0xb83)
+end
+function cm.scon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and
+		Duel.IsExistingMatchingCard(cm.filter1,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+--
+function cm.operation(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.pencon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE)
+end
+function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_PZONE,0)<2 end
+end
+function cm.penop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFieldGroupCount(tp,LOCATION_PZONE,0)<2 and e:GetHandler():IsRelateToEffect(e) then
+		Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+	end
+end
\ No newline at end of file

expansions/script/c35800515.lua

+--决斗者☆ 辉煌之森
+local m=35800515
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,m)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetCategory(CATEGORY_ATKCHANGE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,m+1)
+	e2:SetCondition(cm.reccon)
+	e2:SetTarget(cm.rectg)
+	e2:SetOperation(cm.recop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+end
+function cm.filter(c,tp)
+	return c:IsSetCard(0xb83) and c:IsType(TYPE_PENDULUM)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_DECK,0,nil,tp)
+	if g:GetCount()>0 and Duel.GetFieldGroupCount(tp,LOCATION_PZONE,0)<2 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.MoveToField(sg:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+	end
+end
+
+function cm.cfilter(c,tp)
+	return c:IsFaceup() and c:GetSummonPlayer()==tp and c:IsSetCard(0xb83)
+end
+function cm.reccon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter,1,nil,tp)
+end
+function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+end
+function cm.recop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local tg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
+	local atk=tg:FilterCount(Card.IsSetCard,nil,0xb83)
+	if #tg>0 then
+		local sc=tg:GetFirst()
+		while sc do
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			e1:SetValue(atk*100)
+			sc:RegisterEffect(e1)
+			sc=tg:GetNext()
+		end
+	end
+end
\ No newline at end of file

expansions/script/c35800521.lua

+--决斗者☆的激愤 暮雨
+local m=35800521
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--Cannot p
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetRange(LOCATION_PZONE)
+	e4:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetTargetRange(1,0)
+	e4:SetTarget(cm.splimit)
+	c:RegisterEffect(e4)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,0))
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_LEAVE_FIELD)
+	e3:SetRange(LOCATION_PZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(cm.spcon)
+	e3:SetTarget(cm.rmtg)
+	e3:SetOperation(cm.rmop)
+	c:RegisterEffect(e3)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetCountLimit(1,m)
+	e2:SetTarget(cm.atktg1)
+	e2:SetOperation(cm.atkop1)
+	c:RegisterEffect(e2)
+	local e6=e2:Clone()
+	e6:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e6)
+end
+function cm.splimit(e,c,tp,sumtp,sumpos)
+	return not c:IsSetCard(0xb83) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
+end
+
+function cm.cfilter(c,tp,rp)
+	return c:IsReason(REASON_EFFECT) and rp==1-tp and c:GetPreviousControler()==tp
+		and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousSetCard(0xb83) and c:IsAbleToHand()
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter,1,nil,tp,rp)
+end
+function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return eg:IsExists(cm.cfilter,1,nil,tp,rp) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=eg:FilterSelect(tp,cm.cfilter,1,1,nil,tp,rp)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+		Duel.ShuffleHand(tp)
+	end
+end
+
+function cm.filter(c)
+	return aux.IsCodeListed(c,35800521)  and c:IsAbleToHand() 
+end
+function cm.atktg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.atkop1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.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
\ No newline at end of file

expansions/script/c35811000.lua

+--撅斗者的随从 冬华
+local m=35811000
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	aux.EnablePendulumAttribute(c)
+	c:SetSPSummonOnce(35811000)
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetCode(EFFECT_CHANGE_LSCALE)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCondition(cm.sccon)
+	e1:SetValue(0)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CHANGE_RSCALE)
+	c:RegisterEffect(e2)
+	--
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,0))
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_SUMMON_SUCCESS)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1)
+	e3:SetTarget(cm.thtg)
+	e3:SetOperation(cm.thop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+	--
+	local e5=Effect.CreateEffect(c)
+	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e5:SetType(EFFECT_TYPE_IGNITION)
+	e5:SetRange(LOCATION_GRAVE)
+	e5:SetCountLimit(1,m)
+	e5:SetCondition(cm.condition)
+	e5:SetCost(cm.spcost)
+	e5:SetTarget(cm.sptg)
+	e5:SetOperation(cm.spop)
+	c:RegisterEffect(e5)
+end
+function cm.sccon(e)
+	return Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandlerPlayer(),LOCATION_PZONE,0,1,e:GetHandler(),35811002)
+end
+function cm.thfilter(c)
+	return c:IsSetCard(0xb83) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.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
+function cm.cfilter(c)
+	return c:IsFaceup() and c:IsCode(35811002) and c:IsType(TYPE_MONSTER)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.spcost(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 cm.filter(c,e,tp)
+	return c:IsSetCard(0xb83) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+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 Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function cm.spop(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,cm.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c35811002.lua

+--交界的决斗者 寒山客   
+local m=35811002
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	aux.EnablePendulumAttribute(c)
+	--destroy & search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1,m)
+	e1:SetCondition(cm.thcon)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
+	c:RegisterEffect(e1)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(cm.spcon)
+	c:RegisterEffect(e2)
+	--
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_ATKCHANGE)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_SUMMON_SUCCESS)
+	e3:SetCountLimit(1)
+	e3:SetTarget(cm.tdtg)
+	e3:SetOperation(cm.tdop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(nil,tp,LOCATION_PZONE,0,1,e:GetHandler())
+end
+function cm.thfilter(c)
+	return (c:IsCode(35811002,35811000) and not aux.IsCodeListed(c,35811002,35811000))
+		and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsDestructable() and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,c,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)~=0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+		if g:GetCount()>0 then
+			Duel.SendtoHand(g,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,g)
+			Duel.Hint(HINT_MUSIC,0,aux.Stringid(m,1))
+		end
+	end
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+		and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0
+end
+function cm.tdfilter(c)
+	return c:IsSummonType(SUMMON_TYPE_SPECIAL) and c:IsType(TYPE_MONSTER)
+end
+function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	local g=Duel.GetMatchingGroup(cm.tdfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
+end
+function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local sg=Duel.SelectMatchingCard(tp,cm.tdfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	if sg:GetCount()>0 then
+		Duel.HintSelection(sg)
+		Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c45745901.lua

@@ -39,28 +39,20 @@ function c45745901.initial_effect(c)
 end
 
 --e1e2
-function c45745901.setfilter(c)
-	return c:IsSetCard(0x881) and (c:IsType(TYPE_TRAP) or c:IsType(TYPE_SPELL)) and c:IsSSetable()
+function c45745901.filter(c,chk)
+	return c:IsSetCard(0x881) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable(chk)
+end
+function c45745901.filter2(c)
+	return c45745901.filter(c,false) and c:IsType(TYPE_FIELD)
 end
 function c45745901.settg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c45745901.setfilter,tp,LOCATION_DECK,0,1,nil) end
+	if chk==0 then return Duel.IsExistingMatchingCard(c45745901.filter,tp,LOCATION_DECK,0,1,nil,true) end
 end
 function c45745901.setop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
-	local g=Duel.SelectMatchingCard(tp,c45745901.setfilter,tp,LOCATION_DECK,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.SSet(tp,tc)
-		Duel.ConfirmCards(1-tp,tc)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
-		e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e1)
-		local e2=e1:Clone()
-		e2:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
-		tc:RegisterEffect(e2)
+	local g=Duel.SelectMatchingCard(tp,c45745901.filter,tp,LOCATION_DECK,0,1,1,nil,false)
+	if g:GetCount()>0 then
+		Duel.SSet(tp,g:GetFirst())
 	end
 end
 --e3

expansions/script/c45745921.lua

@@ -31,18 +31,18 @@ function c45745921.initial_effect(c)
 	c:RegisterEffect(e3)  
 	--spsummon
 
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(45745921,1))
-	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e4:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e4:SetRange(LOCATION_FZONE)
-	e4:SetCountLimit(1)
-	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e4:SetProperty(EFFECT_FLAG_DELAY)
-	e4:SetCondition(c45745921.spcon1)
-	e4:SetTarget(c45745921.sctg1)
-	e4:SetOperation(c45745921.scop1)
-	c:RegisterEffect(e4)
+  --  local e4=Effect.CreateEffect(c)
+  --  e4:SetDescription(aux.Stringid(45745921,1))
+  --  e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+  --  e4:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+  --  e4:SetRange(LOCATION_FZONE)
+ --   e4:SetCountLimit(1)
+   -- e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+ --   e4:SetProperty(EFFECT_FLAG_DELAY)
+ --  e4:SetCondition(c45745921.spcon1)
+   -- e4:SetTarget(c45745921.sctg1)
+ --   e4:SetOperation(c45745921.scop1)
+ --   c:RegisterEffect(e4)
 
 	local e5=Effect.CreateEffect(c)
 	e5:SetType(EFFECT_TYPE_FIELD)
@@ -74,26 +74,25 @@ function c45745921.scop(e,tp,eg,ep,ev,re,r,rp)
 	end  
 end
 --E4
-function c45745921.cfilter1(c)
-	return c:IsFaceup() and c:IsSetCard(0x881)
-end
-function c45745921.spcon1(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c45745921.cfilter1,1,nil)
-end
-function c45745921.sctg1(e,tp,eg,ep,ev,re,r,rp,chk)  
-	if chk==0 then  
-		local mg=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,0,nil)  
-		return Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil,mg)  
-	end  
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) 
-end  
-function c45745921.scop1(e,tp,eg,ep,ev,re,r,rp)  
-	if not e:GetHandler():IsRelateToEffect(e) then return end  
-	local mg=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,0,nil)  
-	local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,nil,mg)  
-	if g:GetCount()>0 then  
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)  
-		local sg=g:Select(tp,1,1,nil)  
-		Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg)  
-	end  
-end
\ No newline at end of file
+--function c45745921.cfilter1(c)
+  --  return c:IsFaceup() and c:IsSetCard(0x881)
+--end
+--function c45745921.spcon1(e,tp,eg,ep,ev,re,r,rp)
+  --  return eg:IsExists(c45745921.cfilter1,1,nil)
+--end
+--function c45745921.sctg1(e,tp,eg,ep,ev,re,r,rp,chk)  
+  --  if chk==0 then  
+	--	local mg=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,0,nil)  
+	  --  return Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil,mg)  
+--	end  
+ --   Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) 
+--end  
+--function c45745921.scop1(e,tp,eg,ep,ev,re,r,rp)  
+ --   if not e:GetHandler():IsRelateToEffect(e) then return end  
+ --   local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,nil,mg)  
+  --  if g:GetCount()>0 then  
+  --	  Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)  
+ --	   local sg=g:Select(tp,1,1,nil)  
+   --	 Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg)  
+ --   end  
+--end
\ No newline at end of file

expansions/script/c45745924.lua

@@ -44,7 +44,7 @@ function c45745924.initial_effect(c)
 end
 --e1
 function c45745924.filter(c)
-	return c:IsRace(RACE_WINDBEAST) and c:IsFaceup()
+	return c:IsSetCard(0x881) and c:IsType(TYPE_MONSTER) and c:IsFaceup()
 end
 function c45745924.condition(e,tp,eg,ep,ev,re,r,rp)
 	return (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev)
@@ -72,7 +72,7 @@ function c45745924.activate(e,tp,eg,ep,ev,re,r,rp)
 end
 --e2
 function c45745924.filter1(c)
-	return c:IsFaceup() and c:IsSetCard(0x881)
+	return c:IsFaceup() and c:IsSetCard(0x881) and (c:IsType(TYPE_XYZ) or c:IsType(TYPE_SYNCHRO))
 end
 function c45745924.handcon(e)
 	return Duel.IsExistingMatchingCard(c45745924.filter1,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)

expansions/script/c45746832.lua

@@ -16,17 +16,17 @@ function c45746832.initial_effect(c)
 	e1:SetOperation(c45746832.thop)
 	c:RegisterEffect(e1)
 
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(45746832,1))
-	e2:SetCategory(CATEGORY_TODECK)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_BE_MATERIAL)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,45746887)
-	e2:SetCondition(c45746832.tdcon)
-	e2:SetTarget(c45746832.tdtg)
-	e2:SetOperation(c45746832.tdop)
-	c:RegisterEffect(e2)
+ --   local e2=Effect.CreateEffect(c)
+   -- e2:SetDescription(aux.Stringid(45746832,1))
+  --  e2:SetCategory(CATEGORY_TODECK)
+  --  e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+  --  e2:SetCode(EVENT_BE_MATERIAL)
+  --  e2:SetProperty(EFFECT_FLAG_DELAY)
+  --  e2:SetCountLimit(1,45746887)
+  --  e2:SetCondition(c45746832.tdcon)
+  --  e2:SetTarget(c45746832.tdtg)
+   -- e2:SetOperation(c45746832.tdop)
+  --  c:RegisterEffect(e2)
 end
 	--link summon
 function c45746832.lcheck(g)
@@ -52,25 +52,25 @@ function c45746832.thop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 --e2
-function c45746832.tdcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	e:SetLabel(0)
-	if c:IsLocation(LOCATION_GRAVE) and c:IsPreviousLocation(LOCATION_ONFIELD) and r==REASON_LINK and c:GetReasonCard():IsSetCard(0x88e) then
-		return true
-	else
-		return false
-	end
-end
-function c45746832.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
-end
-function c45746832.tdop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.HintSelection(g)
-		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
-	end
-end
\ No newline at end of file
+--function c45746832.tdcon(e,tp,eg,ep,ev,re,r,rp)
+ --   local c=e:GetHandler()
+  --  e:SetLabel(0)
+  --  if c:IsLocation(LOCATION_GRAVE) and c:IsPreviousLocation(LOCATION_ONFIELD) and r==REASON_LINK and c:GetReasonCard():IsSetCard(0x88e) then
+ --	   return true
+ --   else
+   --	 return false
+  --  end
+--end
+--function c45746832.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+  --  if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+  --  local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+  --  Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+--end
+--function c45746832.tdop(e,tp,eg,ep,ev,re,r,rp)
+  --  Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+  --  local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+ --   if g:GetCount()>0 then
+  --	  Duel.HintSelection(g)
+  --	  Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+  --  end
+--end
\ No newline at end of file

expansions/script/c47390000.lua

+Starfrost_angle=Starfrost_angle or {}
+Sf_a = Starfrost_angle
+
+function Starfrost_angle.filtercheck(c)
+	return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_WATER)
+end
+function Starfrost_angle.spfilter(c,e,tp)
+	return c:IsAttribute(ATTRIBUTE_WATER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function Starfrost_angle.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return not c:IsPublic() end
+    Duel.ConfirmCards(1-tp,c)
+end
+function Starfrost_angle.target_filter(c)
+    return (c:IsSetCard(0x43d) or (c:IsType(TYPE_MONSTER) and c:IsRace(RACE_FAIRY))) and c:IsFaceup() and c:IsAbleToDeck()
+end
+function Starfrost_angle.operation_filter(c,e,tp)
+	return Starfrost_angle.filtercheck(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function Starfrost_angle.target(id,filter)
+	return function(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+		if chkc then return chkc:IsOnField() and chkc:IsControler(tp) end
+		if chk==0 then
+			local check = Duel.IsExistingTarget(Starfrost_angle.target_filter,tp,LOCATION_ONFIELD,0,1,nil)
+			if id==47390001 or id==47390002 then
+				return Duel.IsExistingMatchingCard(filter,tp,LOCATION_DECK,0,1,nil) and check
+			elseif id==47390003 then
+				return Duel.IsPlayerCanDraw(tp,1) and check
+			elseif id==47390004 then
+				return Duel.IsExistingMatchingCard(filter,tp,LOCATION_GRAVE,0,1,nil) and check
+			end
+		end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local g = Duel.SelectTarget(tp,Starfrost_angle.target_filter,tp,LOCATION_ONFIELD,0,1,1,nil)
+		Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,tp,LOCATION_ONFIELD)
+		if id==47390001 or id==47390002 then
+			Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+		elseif id==47390003 then
+			Duel.SetTargetPlayer(tp)
+			Duel.SetTargetParam(1)
+			Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+		elseif id==47390004 then
+			Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+		end
+	end
+end
+function Starfrost_angle.operation(op,filter)
+	return function(e,tp,eg,ep,ev,re,r,rp)
+		local tc = Duel.GetFirstTarget()
+		if tc:IsRelateToEffect(e) then
+			Duel.SendtoGrave(tc,nil,REASON_EFFECT)
+			if op(filter,tp) then
+				local sg=Duel.GetMatchingGroup(Starfrost_angle.spfilter,tp,LOCATION_HAND,0,nil,e,tp)
+				if Duel.SelectYesNo(tp,aux.Stringid(47390006,1)) then
+					Duel.BreakEffect()
+					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+					local sc=sg:Select(tp,1,1,nil)
+					Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
+				end
+			end
+		end
+		Starfrost_angle.limit(e,tp)
+	end
+end
+function Starfrost_angle.aclimit(e,re,tp)
+	return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsRace(RACE_FAIRY)
+end
+function Starfrost_angle.limit(e,tp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetTargetRange(1,0)
+	e1:SetValue(Starfrost_angle.aclimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function Starfrost_angle.rdcon(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(tp) and c:IsPreviousPosition(POS_FACEUP) and not c:IsReason(REASON_DESTROY)
+end
+function Starfrost_angle.rdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
+end
+function Starfrost_angle.rdop(e,tp,eg,ep,ev,re,r,rp)
+    local c = e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		if Duel.SendtoDeck(c,nil,1,REASON_EFFECT)>0 then
+			Duel.ResetFlagEffect(tp,47390006)
+		end
+	end
+end
+function Starfrost_angle.effect(c,id,op,filter,category)
+    local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(category)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+    e1:SetCountLimit(1,id)
+	e1:SetCost(Starfrost_angle.cost)
+	e1:SetTarget(Starfrost_angle.target(id,filter))
+	e1:SetOperation(Starfrost_angle.operation(op,filter))
+	c:RegisterEffect(e1)
+end
+function Starfrost_angle.effect2(c,id)
+    local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,1))
+	e1:SetCategory(CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_LEAVE_FIELD)
+    e1:SetCountLimit(1,id-1000)
+	e1:SetCondition(Starfrost_angle.rdcon)
+	e1:SetTarget(Starfrost_angle.rdtg)
+	e1:SetOperation(Starfrost_angle.rdop)
+	c:RegisterEffect(e1)
+end
+function Starfrost_angle.link_effect2(c)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetValue(LOCATION_DECK)
+	c:RegisterEffect(e2)
+end
+function Starfrost_angle.register_spc(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+end
+function Starfrost_angle.spell_eff2con(e,tp,eg,ep,ev,re,r,rp)
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return end
+	local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	return g and g:IsContains(e:GetHandler()) and re:IsActiveType(TYPE_MONSTER)
+end
+function Starfrost_angle.spell_effect2(c,id)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(Starfrost_angle.spell_eff2con)
+	return e1
+end
+function Starfrost_angle.setfilter(c,tp)
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(tp) and c:IsPreviousPosition(POS_FACEUP) and Starfrost_angle.filtercheck(c)
+end
+function Starfrost_angle.setcon(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+	return eg:IsExists(Starfrost_angle.setfilter,1,nil)
+end
+function Starfrost_angle.settg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsSSetable() end
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
+end
+function Starfrost_angle.setop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SSet(tp,c)~=0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(LOCATION_DECKBOT)
+		c:RegisterEffect(e1)
+	end
+end
+function Starfrost_angle.trap_effect2(c,id)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,1))
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_TO_DECK)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+    e1:SetCountLimit(1,id)
+	e1:SetCondition(Starfrost_angle.setcon)
+	e1:SetTarget(Starfrost_angle.settg)
+	e1:SetOperation(Starfrost_angle.setop)
+	c:RegisterEffect(e1)
+end
+function Starfrost_angle.flage2seq(flag,tp)
+	local ttp=0
+	local loc=0
+	local seq=0
+	if flag>0x80000 then
+		ttp=tp
+		flag=flag>>16
+	else
+		ttp=1-tp
+	end
+	if flag>0x80 then
+		loc=LOCATION_SZONE
+		flag=flag>>8
+	else
+		loc=LOCATION_MZONE
+	end
+	seq = math.log(flag,2)
+	return ttp,loc,seq
+end
\ No newline at end of file

expansions/script/c64800200.lua

+--渺远之迦陵频伽
+local m=64800200
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsRace,RACE_WINDBEAST+RACE_BEAST+RACE_BEASTWARRIOR),1)
+	c:EnableReviveLimit()
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,m)
+	e1:SetCondition(cm.spcon)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,m+10000)
+	e2:SetCondition(cm.con)
+	e2:SetTarget(cm.postg)
+	e2:SetOperation(cm.posop)
+	c:RegisterEffect(e2)
+end
+
+--e1
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function cm.spfilter(c,e,tp)
+	return c:IsLevelBelow(7) and c:IsRace(RACE_WINDBEAST+RACE_BEAST+RACE_BEASTWARRIOR) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
+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 Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.spop(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,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
+	Duel.ConfirmCards(1-tp,g:GetFirst())
+end
+
+--e2
+function cm.posfilter(c)
+	return c:IsDefensePos() or c:IsFacedown()
+end
+function cm.thfilter(c)
+	return c:IsFaceup() and c:IsAbleToHand()
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()~=tp and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2)
+end
+function cm.postg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+end
+function cm.posop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(cm.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	if g:GetCount()==0 then return end
+	Duel.ChangePosition(g,POS_FACEUP_ATTACK)
+	if Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
+		Duel.BreakEffect()
+		local thg=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,3,nil)
+		Duel.SendtoHand(thg,nil,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c64800201.lua

+--嗔怨之耆婆耆婆迦
+local m=64800201
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--fusion material
+--	c:EnableReviveLimit()
+--	aux.AddFusionProcFun2(c,cm.matfilter1,cm.matfilter2,true)
+	--negate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e1:SetCountLimit(1,m)
+	e1:SetCondition(cm.negcon)
+	e1:SetTarget(aux.nbtg)
+	e1:SetOperation(cm.negop)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DAMAGE)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_LEAVE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e2:SetCondition(cm.con1)
+	e2:SetTarget(cm.tg)
+	e2:SetOperation(cm.op)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TODECK)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_BATTLE_DESTROYED)
+	e3:SetCondition(cm.con2)
+	e3:SetTarget(cm.atktg)
+	e3:SetOperation(cm.atkop)
+	c:RegisterEffect(e3)
+end
+
+cm.material_type=TYPE_FUSION
+function cm.matfilter1(c)
+	return c:IsRace(RACE_WINDBEAST) and c:IsType(TYPE_FUSION)
+end
+function cm.matfilter2(c)
+	return c:IsRace(RACE_WINDBEAST+RACE_BEAST+RACE_BEASTWARRIOR)
+end
+
+--e1
+function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) 
+		and e:GetHandler():GetFlagEffect(m)==0
+end
+function cm.negop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Group.CreateGroup()
+	local c=e:GetHandler()
+	Duel.ChangeTargetCard(ev,g)
+	Duel.ChangeChainOperation(ev,cm.repop)
+	if c:IsRelateToEffect(e) then
+		c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,2)
+	end
+end
+function cm.repop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsRelateToEffect(e) then
+		if e:GetHandler():IsOnField() then e:GetHandler():CancelToGrave() end
+		Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_EFFECT)
+	end
+end
+
+--e2
+function cm.con1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:GetReasonPlayer()==1-tp and c:IsReason(REASON_EFFECT) and not re:GetHandler():IsLocation(LOCATION_DECK)  and c:IsPreviousPosition(POS_FACEUP)
+end
+function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,nil)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local tc=re:GetHandler()
+	if not tc:IsLocation(LOCATION_DECK) then
+		Duel.SendtoDeck(tc,nil,2,REASON_RULE)
+	end
+end
+
+function cm.con2(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsReason(REASON_BATTLE)
+		and e:GetHandler():GetReasonCard():IsRelateToBattle()
+end
+function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local rc=e:GetHandler():GetReasonCard()
+	rc:CreateEffectRelation(e)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,rc,1,0,0)
+end
+function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local rc=e:GetHandler():GetReasonCard()
+	if rc:IsRelateToEffect(e) and not rc:IsLocation(LOCATION_DECK) then
+		Duel.SendtoDeck(rc,nil,2,REASON_RULE)
+	end
+end
\ No newline at end of file

expansions/script/c96013001.lua

+--百花香 采茶女
+local m=96013001
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)  
+	--to hand
+	local e5=Effect.CreateEffect(c)
+	e5:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DESTROY)
+	e5:SetType(EFFECT_TYPE_IGNITION)
+	e5:SetRange(LOCATION_PZONE)
+	e5:SetCountLimit(1,m)
+	e5:SetTarget(cm.thtg)
+	e5:SetOperation(cm.thop)
+	c:RegisterEffect(e5)  
+	--special summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,1))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCountLimit(1,m+1)
+	e3:SetCost(cm.spcost)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+	--release
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetCategory(CATEGORY_RELEASE)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e2:SetCountLimit(1)
+	e2:SetTarget(cm.rltg)
+	e2:SetOperation(cm.rlop)
+	c:RegisterEffect(e2)
+end
+--tohand 
+function cm.thfilter(c)
+	return c:IsType(TYPE_SPELL) and c:IsSetCard(0x6284) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil)
+		and e:GetHandler():IsDestructable() end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then
+		Duel.ConfirmCards(1-tp,g)
+		Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+	end
+end
+--SpecialSummon
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_ONFIELD,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGraveAsCost,tp,LOCATION_ONFIELD,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+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
+--summon 
+function cm.rfilter(c)
+	return c:IsRace(RACE_PLANT) and c:IsFaceup() and c:IsReleasableByEffect()
+end
+function cm.rltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and cm.rfilter(chkc) and chkc:IsControler(tp) end
+	if chk==0 then return Duel.IsExistingTarget(cm.rfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local g=Duel.SelectTarget(tp,cm.rfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_RELEASE,g,1,0,0)
+end
+function cm.rlop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.Release(tc,REASON_EFFECT)>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
+		local sg=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_HAND,0,nil,e,tp)
+		if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			sg=sg:Select(tp,1,1,nil)
+			Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(0x6284) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+
+

expansions/script/c96013011.lua

+--百花香 夏洛特
+local m=96013011
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	aux.EnablePendulumAttribute(c)
+	--change scale
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(m,0))
+	e0:SetCategory(CATEGORY_TOEXTRA)
+	e0:SetType(EFFECT_TYPE_IGNITION)
+	e0:SetRange(LOCATION_PZONE)
+	e0:SetCountLimit(1,m)
+	e0:SetTarget(cm.sctg)
+	e0:SetOperation(cm.scop)
+	c:RegisterEffect(e0)
+	--tograve 
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,m+1)
+	e1:SetTarget(cm.lvtg)
+	e1:SetOperation(cm.lvop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	--tohand
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_TODECK)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_SUMMON_SUCCESS)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCondition(cm.spcon)
+	e3:SetCost(aux.bfgcost)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+end
+--change 
+function cm.scfilter(c,pc)
+	return c:IsType(TYPE_PENDULUM) and c:IsSetCard(0x6284)
+		and c:GetLeftScale()~=pc:GetLeftScale()
+end
+function cm.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.scfilter,tp,LOCATION_DECK,0,1,nil,e:GetHandler()) end
+	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,nil,1,tp,LOCATION_DECK)
+end
+function cm.scop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(29432356,1))
+	local g=Duel.SelectMatchingCard(tp,cm.scfilter,tp,LOCATION_DECK,0,1,1,nil,c)
+	local tc=g:GetFirst()
+	if tc and Duel.SendtoExtraP(tc,nil,REASON_EFFECT)>0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_LSCALE)
+		e1:SetValue(tc:GetLeftScale())
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_CHANGE_RSCALE)
+		e2:SetValue(tc:GetRightScale())
+		c:RegisterEffect(e2)
+	end
+end
+--tograve
+function cm.lvfilter(c)
+	return c:IsSetCard(0x6284) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
+end
+function cm.lvtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.lvfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
+end
+function cm.lvop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.lvfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_EFFECT)
+end
+--tohand
+function cm.cfilter(c,tp)
+	return c:IsFaceup() and c:IsSetCard(0x6284) and c:IsControler(tp)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter,1,nil,tp)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
+	local g=Group.__sub(Duel.GetDecktopGroup(tp,ct),Duel.GetDecktopGroup(tp,ct-1))
+	Duel.DisableShuffleCheck()
+	if Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local dg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,1,nil)
+		if dg:GetCount()>0 then
+			Duel.BreakEffect()
+			Duel.SendtoDeck(dg,nil,SEQ_DECKTOP,REASON_EFFECT)
+		end
+	end
+end

expansions/script/c96013021.lua

+--百花香 蝴蝶兰
+local m=96013021
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)  
+	--atk 
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_PZONE)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCountLimit(1,m)
+	e2:SetTarget(cm.atktg)
+	e2:SetOperation(cm.atkop)
+	c:RegisterEffect(e2)  
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,m+1)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1) 
+	--destroy replace
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EFFECT_DESTROY_REPLACE)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetTarget(cm.reptg)
+	e3:SetValue(cm.repval)
+	e3:SetOperation(cm.repop)
+	c:RegisterEffect(e3) 
+end
+function cm.cfilter1(c)
+	return c:IsFaceup() and c:IsSetCard(0x6284) and c:IsType(TYPE_PENDULUM)
+end
+function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter1,tp,LOCATION_EXTRA,0,1,nil) 
+		and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end
+end
+function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local ct=Duel.GetMatchingGroupCount(cm.cfilter1,tp,LOCATION_EXTRA,0,nil)
+	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:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(ct*100)
+		tc:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_UPDATE_DEFENSE)
+		tc:RegisterEffect(e2)
+	end
+end
+--SpecialSummon
+function cm.cfilter2(c)
+	return c:IsRace(RACE_PLANT) and c:IsFaceup()
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and cm.cfilter2(chkc) end
+	local c=e:GetHandler()
+	if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(cm.cfilter2,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local g=Duel.SelectTarget(tp,cm.cfilter2,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 c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0
+		and c:IsFaceup() and not c:IsLevel(1) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+		Duel.BreakEffect()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_LEVEL)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(1)
+		c:RegisterEffect(e1)
+	end
+end
+--rep
+function cm.repfilter(c,tp)
+	return c:IsFaceup() and c:IsSetCard(0x6284)
+		and c:IsOnField() and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
+end
+function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(cm.repfilter,1,nil,tp) end
+	return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
+end
+function cm.repval(e,c)
+	return cm.repfilter(c,e:GetHandlerPlayer())
+end
+function cm.repop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end
+
+
+
+
+

expansions/script/c96013031.lua

+--百花香 种植的时间
+local m=96013031
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+   --deck
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DECKDES)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)	
+	--salvage
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m)
+	e2:SetCost(cm.thcost)
+	e2:SetTarget(cm.thtg)
+	e2:SetOperation(cm.thop)
+	c:RegisterEffect(e2)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) end
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.IsPlayerCanDiscardDeck(tp,1) then return end
+	local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
+	if ct==0 then return end
+	if ct>5 then ct=5 end
+	local t={}
+	for i=1,ct do t[i]=i end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,0))
+	local ac=Duel.AnnounceNumber(tp,table.unpack(t))
+	Duel.ConfirmDecktop(tp,ac)
+	local g=Duel.GetDecktopGroup(tp,ac)
+	local sg=g:Filter(cm.tgfilter,nil)
+	if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+		Duel.DisableShuffleCheck()
+		Duel.SendtoGrave(sg,REASON_EFFECT+REASON_REVEAL)
+	end
+	ac=ac-sg:GetCount()
+	if ac>0 then
+		Duel.SortDecktop(tp,tp,ac)
+		for i=1,ac do
+			local mg=Duel.GetDecktopGroup(tp,1)
+			Duel.MoveSequence(mg:GetFirst(),SEQ_DECKBOTTOM)
+		end
+	end
+end
+function cm.tgfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x6284)
+end
+--tohand
+function cm.thfilter(c)
+	return c:IsSetCard(0x6284) and c:IsType(TYPE_PENDULUM) and c:IsFaceup() and c:IsAbleToGraveAsCost()
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_EXTRA,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function cm.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 cm.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
+
+
+
+
+

expansions/script/c96013041.lua

+--百花香 绽放的时间
+local m=96013041
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--tohand
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_SUMMON_SUCCESS)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e3:SetRange(LOCATION_FZONE)
+	e3:SetCondition(cm.spcon)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+	--salvage
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m)
+	e2:SetCost(cm.thcost)
+	e2:SetTarget(cm.thtg)
+	e2:SetOperation(cm.thop)
+	c:RegisterEffect(e2)
+end
+--SpecialSummon
+function cm.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x6284)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter,1,nil)
+end
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(0x6284) and c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.setfilter(c)
+	return c:IsSetCard(0x6284) and c:IsFaceup() and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local a1=Duel.GetFlagEffect(tp,m)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) 
+	local a2=Duel.GetFlagEffect(tp,m+1)==0 and (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) 
+	if chk==0 then return a1 or a2 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local a1=Duel.GetFlagEffect(tp,m)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) 
+	local a2=Duel.GetFlagEffect(tp,m+1)==0 and (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) 
+	--
+	if a1 and (not a2 or Duel.SelectOption(tp,aux.Stringid(m,0),aux.Stringid(m,1))==0) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp)
+		if g:GetCount()>0 then
+			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		end
+		Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+	else
+		local g=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_REMOVED,0,1,1,nil)
+		if g:GetCount()>0 then
+			Duel.BreakEffect()
+			Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+		end
+		Duel.RegisterFlagEffect(tp,m+1,RESET_PHASE+PHASE_END,0,1)
+	end
+end
+--tohand
+function cm.cfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x6284)
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroupEx(tp,cm.cfilter,1,nil) end
+	local g=Duel.SelectReleaseGroupEx(tp,cm.cfilter,1,1,nil)
+	Duel.Release(g,REASON_COST)
+end
+function cm.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 cm.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
+
+
+
+
+
+
+

expansions/script/c96013051.lua

+--百花香 百花争
+local m=96013051
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	--salvage
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_REMOVE)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m)
+	e2:SetTarget(cm.thtg)
+	e2:SetOperation(cm.thop)
+	c:RegisterEffect(e2)
+end
+function cm.cfilter(c)
+	return c:IsFaceup() and c:GetMutualLinkedGroupCount()>0
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp then return false end
+	return re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function cm.costfilter(c,tp)
+	return c:IsSetCard(0x6284) and c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_EXTRA,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 true end
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	if re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)>0 then
+		if Duel.IsChainNegatable(ev) and  Duel.SelectOption(tp,aux.Stringid(m,0),aux.Stringid(m,1))==0 then
+			Duel.NegateActivation(ev)
+		else
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_FIELD)
+			e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+			e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+			e1:SetTargetRange(0,1)
+			e1:SetTarget(cm.sumlimit)
+			e1:SetLabel(rc:GetCode())
+			e1:SetValue(cm.aclimit)
+			e1:SetReset(RESET_PHASE+PHASE_END)
+			Duel.RegisterEffect(e1,tp)
+		end
+	end
+end
+function cm.sumlimit(e,c)
+	return c:IsCode(e:GetLabel())
+end
+function cm.aclimit(e,re,tp)
+	return re:GetHandler():IsCode(e:GetLabel()) and re:IsActiveType(TYPE_MONSTER)
+end
+--tohand
+function cm.thfilter(c)
+	return c:IsSetCard(0x6284) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToHand() and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,3,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,3,tp,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,3,3,nil)
+	if Duel.Remove(g,POS_FACEUP,REASON_EFFECT)>0 and c:IsRelateToEffect(e) then
+		Duel.SendtoHand(c,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,c)
+	end
+end
+
+
+

expansions/script/c96013061.lua

+--百花香 百花凋
+local m=96013061
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkAttribute,ATTRIBUTE_EARTH),2,2)
+	--send to grave
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.tgtg)
+	e1:SetOperation(cm.tgop)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(16719140,1))
+	e2:SetCategory(CATEGORY_HANDES)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,m+1)
+	e2:SetCost(cm.setcost)
+	e2:SetTarget(cm.settg)
+	e2:SetOperation(cm.setop)
+	c:RegisterEffect(e2)
+end
+function cm.tgfilter(c)
+	return c:IsSetCard(0x6284) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGrave()
+end
+function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+		--act limit
+		local e4=Effect.CreateEffect(e:GetHandler())
+		e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e4:SetCode(EVENT_CHAINING)
+		e4:SetOperation(cm.chainop)
+		e4:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e4,tp)
+	end
+end
+function cm.chainop(e,tp,eg,ep,ev,re,r,rp)
+	if re:GetHandler():IsSetCard(0x6284) and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) then
+		Duel.SetChainLimit(cm.chainlm)
+	end
+end
+function cm.chainlm(e,rp,tp)
+	return tp==rp
+end
+--set
+function cm.costfilter(c,tp)
+	return c:IsSetCard(0x6284) and c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+end
+function cm.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_EXTRA,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
+end
+function cm.setfilter(c,tp)
+	return c:IsSetCard(0x6284) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
+end
+function cm.setop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.DiscardHand(tp,aux.TRUE,1,1,REASON_EFFECT+REASON_DISCARD)
+	local g=Duel.GetOperatedGroup()
+	local sg=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.setfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
+	if g:GetFirst():IsSetCard(0x6284) and #sg>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+		sg=sg:Select(tp,1,1,nil)
+		Duel.SSet(tp,sg:GetFirst())
+	end
+end
+
+
+
+
+
+
+
+

expansions/script/c96013071.lua

+--百花香 百合花
+local m=96013071
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,cm.mfilter,1,1)
+	c:EnableReviveLimit()   
+	--tohand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,0))
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1,m)
+	e3:SetTarget(cm.thtg)
+	e3:SetOperation(cm.thop)
+	c:RegisterEffect(e3)
+	--tohand1
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,m)
+	e1:SetCondition(cm.thcon1)
+	e1:SetCost(cm.thcost1)
+	e1:SetTarget(cm.thtg1)
+	e1:SetOperation(cm.thop1)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+end
+function cm.mfilter(c)
+	return c:IsLevelBelow(4) and c:IsLinkSetCard(0x6284)
+end
+--tohand
+function cm.thfilter(c)
+	return c:IsSetCard(0x6284) and c:IsType(TYPE_MONSTER) and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+	end
+end
+--tohand1
+function cm.cfilter(c,ec)
+	if not c:IsRace(RACE_PLANT) then return false end
+	if c:IsLocation(LOCATION_MZONE) then
+		return ec:GetLinkedGroup():IsContains(c)
+	else
+		return bit.band(ec:GetLinkedZone(c:GetPreviousControler()),bit.lshift(0x1,c:GetPreviousSequence()))~=0
+	end
+end
+function cm.thcon1(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter,1,nil,e:GetHandler())
+end
+function cm.thcost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function cm.thfilter1(c)
+	return c:IsSetCard(0x6284) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function cm.thtg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter1,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter1,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/c96013081.lua

+--百花香 花开花
+local m=96013081
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_PLANT),2,2)  
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCountLimit(1,m)
+	e3:SetCost(cm.spcost)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+	--Release 
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_RELEASE)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,m+1)
+	e1:SetCondition(cm.relcon)
+	e1:SetCost(cm.relcost)
+	e1:SetTarget(cm.reltg)
+	e1:SetOperation(cm.relop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+end
+--SpecialSummon
+function cm.cfilter1(c,ft,tp)
+	return c:IsRace(RACE_PLANT)
+		and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
+end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if chk==0 then return ft>-1 and Duel.CheckReleaseGroup(tp,cm.cfilter1,1,nil,ft,tp) end
+	local g=Duel.SelectReleaseGroup(tp,cm.cfilter1,1,1,nil,ft,tp)
+	Duel.Release(g,REASON_COST)
+end
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(0x6284) and c:IsType(TYPE_PENDULUM) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+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 Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
+end
+function cm.spop(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(cm.spfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+--Release 
+function cm.cfilter2(c,ec)
+	if not c:IsRace(RACE_PLANT) then return false end
+	if c:IsLocation(LOCATION_MZONE) then
+		return ec:GetLinkedGroup():IsContains(c)
+	else
+		return bit.band(ec:GetLinkedZone(c:GetPreviousControler()),bit.lshift(0x1,c:GetPreviousSequence()))~=0
+	end
+end
+function cm.relcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter2,1,nil,e:GetHandler())
+end
+function cm.costfilter(c)
+	return c:IsSetCard(0x6284) and c:IsType(TYPE_PENDULUM) and c:IsFaceup() and c:IsAbleToGraveAsCost()
+end
+function cm.relcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_EXTRA,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function cm.reltg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsReleasableByEffect,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_RELEASE,nil,1,tp,LOCATLOCATION_ONFIELDION_DECK)
+end
+function cm.relop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsReleasableByEffect,tp,0,LOCATION_ONFIELD,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.Release(g,REASON_EFFECT)
+	end
+end
+

expansions/script/c96013091.lua

+--百花香 曼陀罗
+local m=96013091
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_PLANT),2)
+	c:EnableReviveLimit()  
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,m)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCost(cm.thcost)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
+	c:RegisterEffect(e1) 
+	--recover 
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_RECOVER+CATEGORY_TOEXTRA+CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m+1)
+	e2:SetTarget(cm.tg)
+	e2:SetOperation(cm.op)
+	c:RegisterEffect(e2) 
+end
+--Destroy 
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,nil,RACE_PLANT) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local g=Duel.SelectReleaseGroup(tp,Card.IsRace,1,99,nil,RACE_PLANT)
+	local ct=Duel.Release(g,REASON_COST)
+	e:SetLabel(ct)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil) end
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local ct=e:GetLabel()
+	if ct<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_ONFIELD,1,ct,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end
+--recover
+function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToExtra() end
+	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,PLAYER_ALL,1800)
+	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)
+end
+function cm.tdfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsFaceup() and c:IsSetCard(0x6284) and c:IsAbleToDeck()
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.Recover(tp,1800,REASON_EFFECT)>0 and Duel.Recover(1-tp,1800,REASON_EFFECT)>0
+		and Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_EXTRA)
+		and Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_REMOVED,0,1,nil)
+		and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,cm.tdfilter,tp,LOCATION_REMOVED,0,1,3,nil)
+		if g:GetCount()>0 then
+			Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+		end
+	end
+end
+
+
+
+
+
+
+
+
+