byd

expansions/lflist.conf

-#[2024.10.DIY]
-!2024.10.DIY
+#[2024.10.DIY.]
+!2024.10.DIY.
 
 #002
 00200001 1 --魔王的剑
@@ -1908,8 +1908,6 @@
 81046030 1 --虚拟YouTuber 大空琴璃
 81046034 0 --虚拟主播 西园千草
 81049013 0 --淡野美妙子·度假
-81057000 0 --水晶艾蕾娜
-81057009 0 --水晶艾蕾娜·无意义
 81066003 1 --万圣狂欢夜 千幽
 81066012 0 --生日快乐 千幽
 81066013 0 --新年 千幽

expansions/script/c18700001.lua

@@ -7,6 +7,7 @@ function cm.initial_effect(c)
 	e1:SetDescription(aux.Stringid(m,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
 	e1:SetCode(EVENT_SUMMON_SUCCESS)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCountLimit(1,18700001)

expansions/script/c18700009.lua

@@ -22,6 +22,7 @@ function cm.initial_effect(c)
 	e2:SetCategory(CATEGORY_REMOVE)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetCountLimit(1,18700010)
 	e2:SetTarget(cm.sptg2)
 	e2:SetOperation(cm.spop2)

expansions/script/c18700036.lua

@@ -40,6 +40,7 @@ function cm.initial_effect(c)
 	e4:SetCategory(CATEGORY_SEARCH)
 	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e4:SetCode(EVENT_SUMMON_SUCCESS)
+	e4:SetProperty(EFFECT_FLAG_DELAY)
 	e4:SetCountLimit(1,18700038)	
 	e4:SetTarget(cm.eqtg)
 	e4:SetOperation(cm.eqop)

expansions/script/c18700046.lua

@@ -53,6 +53,7 @@ function cm.initial_effect(c)
 	e7:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e7:SetCode(EVENT_SUMMON_SUCCESS)
+	e7:SetProperty(EFFECT_FLAG_DELAY)
 	e7:SetCountLimit(1,m+3)
 	e7:SetTarget(cm.thtg)
 	e7:SetOperation(cm.thop)

expansions/script/c18700055.lua

@@ -47,6 +47,7 @@ function cm.initial_effect(c)
 	e7:SetCategory(CATEGORY_REMOVE)
 	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e7:SetCode(EVENT_SUMMON_SUCCESS)
+	e7:SetProperty(EFFECT_FLAG_DELAY)
 	e7:SetCountLimit(1,18700058)
 	e7:SetTarget(cm.thtg)
 	e7:SetOperation(cm.thop)

expansions/script/c65035199.lua

---宫之鼓
-function c65035199.initial_effect(c)
-	--damage
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035199,0))
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCondition(c65035199.damcon2)
-	e2:SetOperation(c65035199.damop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-	--token
-	local e6=Effect.CreateEffect(c)
-	e6:SetDescription(aux.Stringid(65035199,1))
-	e6:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e6:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_ACTIVATE_CONDITION)
-	e6:SetCode(EVENT_CHAINING)
-	e6:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e6:SetCountLimit(1,65035199)
-	e6:SetTarget(c65035199.sptg)
-	e6:SetOperation(c65035199.spop)
-	c:RegisterEffect(e6)
-	if c65035199.counter==nil then
-		c65035199.counter=true
-		c65035199.count=0
-		c65035199.list={}
-		local ge2=Effect.CreateEffect(c)
-		ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		ge2:SetOperation(c65035199.resetcount)
-		Duel.RegisterEffect(ge2,0)
-		local ge3=Effect.CreateEffect(c)
-		ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge3:SetCode(EVENT_BECOME_TARGET)
-		ge3:SetOperation(c65035199.addcount)
-		Duel.RegisterEffect(ge3,0)
-	end
-end
-function c65035199.resetcount(e,tp,eg,ep,ev,re,r,rp)
-	c65035199.count=0
-	c65035199.list={}
-end
-function c65035199.addf(c,re)
-	return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
-end
-function c65035199.addcount(e,tp,eg,ep,ev,re,r,rp)
-	local g=eg:Filter(c65035199.addf,nil,re)
-	if g:GetCount()>0 then
-		local gc=g:GetFirst()
-		while gc do
-			local yes=true
-			if c65035199.count>0 then
-				for i=0,c65035199.count-1 do
-					if gc:GetCode()==c65035199.list[i] then yes=false end
-				end
-			end
-			if yes then
-				c65035199.list[c65035199.count]=gc:GetCode()
-				c65035199.count=c65035199.count+1
-			end
-			gc=g:GetNext()
-		end
-	end
-end
-
-function c65035199.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,65035199)
-	Duel.Damage(1-tp,800,REASON_EFFECT)
-end
-function c65035199.cfilter(c)
-	local yes=false
-	if c65035199.count>0 then
-				for i=0,c65035199.count do
-					if c:GetCode()==c65035199.list[i] then yes=true end
-				end
-			end
-	return yes
-end
-function c65035199.damcon2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c65035199.cfilter,1,nil) and not eg:IsContains(e:GetHandler())
-end
-
-
-function c65035199.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) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsSetCard(0xcdab) and ep==tp end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c65035199.spop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
\ No newline at end of file

expansions/script/c65035200.lua

---商之笛
-function c65035200.initial_effect(c)
-	--damage
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035200,0))
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCondition(c65035200.damcon2)
-	e2:SetOperation(c65035200.damop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-	 --to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(65035200,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetCountLimit(1,65035200)
-	e1:SetTarget(c65035200.thtg)
-	e1:SetOperation(c65035200.thop)
-	c:RegisterEffect(e1)
-	local e10=e1:Clone()
-	e10:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e10)
-	if c65035200.counter==nil then
-		c65035200.counter=true
-		c65035200.count=0
-		c65035200.list={}
-		local ge2=Effect.CreateEffect(c)
-		ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		ge2:SetOperation(c65035200.resetcount)
-		Duel.RegisterEffect(ge2,0)
-		local ge3=Effect.CreateEffect(c)
-		ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge3:SetCode(EVENT_BECOME_TARGET)
-		ge3:SetOperation(c65035200.addcount)
-		Duel.RegisterEffect(ge3,0)
-	end
-end
-function c65035200.resetcount(e,tp,eg,ep,ev,re,r,rp)
-	c65035200.count=0
-	c65035200.list={}
-end
-function c65035200.addf(c,re)
-	return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
-end
-function c65035200.addcount(e,tp,eg,ep,ev,re,r,rp)
-	local g=eg:Filter(c65035200.addf,nil,re)
-	if g:GetCount()>0 then
-		local gc=g:GetFirst()
-		while gc do
-			local yes=true
-			if c65035200.count>0 then
-				for i=0,c65035200.count-1 do
-					if gc:GetCode()==c65035200.list[i] then yes=false end
-				end
-			end
-			if yes then
-				c65035200.list[c65035200.count]=gc:GetCode()
-				c65035200.count=c65035200.count+1
-			end
-			gc=g:GetNext()
-		end
-	end
-end
-
-function c65035200.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,65035200)
-	local g=eg:FilterSelect(1-tp,c65035200.damofil,1,1,nil,e,1-tp)
-	if g:GetCount()>0 then
-		local sg=Duel.SelectMatchingCard(1-tp,c65035200.damspfil,1-tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,1-tp,g:GetFirst():GetCode())
-		Duel.SpecialSummon(sg,0,1-tp,1-tp,false,false,POS_FACEUP)
-	end
-end
-function c65035200.damofil(c,e,tp)
-	return c65035200.cfilter(c) and Duel.IsExistingMatchingCard(c65035200.damspfil,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp,c:GetCode())
-end
-function c65035200.damspfil(c,e,tp,code)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCode(code)
-end
-function c65035200.cfilter(c)
-	local yes=false
-	if c65035200.count>0 then
-				for i=0,c65035200.count do
-					if c:GetCode()==c65035200.list[i] then yes=true end
-				end
-			end
-	return yes
-end
-function c65035200.damcon2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c65035200.cfilter,1,nil) and Duel.GetMZoneCount(1-tp)>0 and not eg:IsContains(e:GetHandler())
-end
-
-function c65035200.thfilter(c)
-	return c:IsSetCard(0xcdab) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
-end
-function c65035200.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035200.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c65035200.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c65035200.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,tp,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end

expansions/script/c65035201.lua

---角之钟
-function c65035201.initial_effect(c)
-	--damage
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035201,0))
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCondition(c65035201.damcon2)
-	e2:SetOperation(c65035201.damop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-	--search
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(65035201,0))
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,65035201)
-	e1:SetCost(c65035201.thcost)
-	e1:SetTarget(c65035201.thtg)
-	e1:SetOperation(c65035201.thop)
-	c:RegisterEffect(e1)
-	if c65035201.counter==nil then
-		c65035201.counter=true
-		c65035201.count=0
-		c65035201.list={}
-		local ge2=Effect.CreateEffect(c)
-		ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		ge2:SetOperation(c65035201.resetcount)
-		Duel.RegisterEffect(ge2,0)
-		local ge3=Effect.CreateEffect(c)
-		ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge3:SetCode(EVENT_BECOME_TARGET)
-		ge3:SetOperation(c65035201.addcount)
-		Duel.RegisterEffect(ge3,0)
-	end
-end
-function c65035201.resetcount(e,tp,eg,ep,ev,re,r,rp)
-	c65035201.count=0
-	c65035201.list={}
-end
-function c65035201.addf(c,re)
-	return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
-end
-function c65035201.addcount(e,tp,eg,ep,ev,re,r,rp)
-	local g=eg:Filter(c65035201.addf,nil,re)
-	if g:GetCount()>0 then
-		local gc=g:GetFirst()
-		while gc do
-			local yes=true
-			if c65035201.count>0 then
-				for i=0,c65035201.count-1 do
-					if gc:GetCode()==c65035201.list[i] then yes=false end
-				end
-			end
-			if yes then
-				c65035201.list[c65035201.count]=gc:GetCode()
-				c65035201.count=c65035201.count+1
-			end
-			gc=g:GetNext()
-		end
-	end
-end
-
-function c65035201.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,65035201)
-	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil)
-	Duel.HintSelection(g)
-	Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
-end
-function c65035201.cfilter(c)
-	local yes=false
-	if c65035201.count>0 then
-				for i=0,c65035201.count do
-					if c:GetCode()==c65035201.list[i] then yes=true end
-				end
-			end
-	return yes
-end
-function c65035201.damcon2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c65035201.cfilter,1,nil) and Duel.GetMatchingGroupCount(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,nil)>0 and not eg:IsContains(e:GetHandler())
-end
-
-function c65035201.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsDiscardable() end
-	Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
-end
-function c65035201.thfilter(c)
-	return c:IsSetCard(0xcdab) and c:IsSSetable()
-end
-function c65035201.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035201.thfilter,tp,LOCATION_DECK,0,1,nil) end
-end
-function c65035201.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.SelectMatchingCard(tp,c65035201.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if tg then
-		Duel.SSet(tp,tg)
-	end
-end

expansions/script/c65035202.lua

---徵之琴
-function c65035202.initial_effect(c)
-	--damage
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035202,0))
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCondition(c65035202.damcon2)
-	e2:SetOperation(c65035202.damop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-	--search
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(65035202,0))
-	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,65035202)
-	e1:SetCost(c65035202.thcost)
-	e1:SetTarget(c65035202.thtg)
-	e1:SetOperation(c65035202.thop)
-	c:RegisterEffect(e1)
-	if c65035202.counter==nil then
-		c65035202.counter=true
-		c65035202.count=0
-		c65035202.list={}
-		local ge2=Effect.CreateEffect(c)
-		ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		ge2:SetOperation(c65035202.resetcount)
-		Duel.RegisterEffect(ge2,0)
-		local ge3=Effect.CreateEffect(c)
-		ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge3:SetCode(EVENT_BECOME_TARGET)
-		ge3:SetOperation(c65035202.addcount)
-		Duel.RegisterEffect(ge3,0)
-	end
-end
-function c65035202.resetcount(e,tp,eg,ep,ev,re,r,rp)
-	c65035202.count=0
-	c65035202.list={}
-end
-function c65035202.addf(c,re)
-	return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
-end
-function c65035202.addcount(e,tp,eg,ep,ev,re,r,rp)
-	local g=eg:Filter(c65035202.addf,nil,re)
-	if g:GetCount()>0 then
-		local gc=g:GetFirst()
-		while gc do
-			local yes=true
-			if c65035202.count>0 then
-				for i=0,c65035202.count-1 do
-					if gc:GetCode()==c65035202.list[i] then yes=false end
-				end
-			end
-			if yes then
-				c65035202.list[c65035202.count]=gc:GetCode()
-				c65035202.count=c65035202.count+1
-			end
-			gc=g:GetNext()
-		end
-	end
-end
-
-function c65035202.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,65035202)
-	Duel.Draw(tp,1,REASON_EFFECT)
-end
-function c65035202.cfilter(c)
-	local yes=false
-	if c65035202.count>0 then
-				for i=0,c65035202.count do
-					if c:GetCode()==c65035202.list[i] then yes=true end
-				end
-			end
-	return yes
-end
-function c65035202.damcon2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c65035202.cfilter,1,nil) and not eg:IsContains(e:GetHandler())
-end
-
-function c65035202.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsReleasable() end
-	Duel.Release(c,REASON_COST)
-end
-function c65035202.thfilter(c)
-	return c:IsSetCard(0xcdab) and c:IsAbleToHand()
-end
-function c65035202.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035202.thfilter,tp,LOCATION_DECK,0,2,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK)
-end
-function c65035202.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.SelectMatchingCard(tp,c65035202.thfilter,tp,LOCATION_DECK,0,2,2,nil)
-	if tg then
-		Duel.SendtoHand(tg,tp,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,tg)
-	end
-end

expansions/script/c65035203.lua

---羽之角
-function c65035203.initial_effect(c)
-	--damage
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035203,0))
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCondition(c65035203.damcon2)
-	e2:SetOperation(c65035203.damop)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e3)
-	--search
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(65035203,0))
-	e1:SetCategory(CATEGORY_TOHAND)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_GRAVE)
-	e1:SetCountLimit(1,65035203)
-	e1:SetCost(aux.bfgcost)
-	e1:SetTarget(c65035203.thtg)
-	e1:SetOperation(c65035203.thop)
-	c:RegisterEffect(e1)
-	if c65035203.counter==nil then
-		c65035203.counter=true
-		c65035203.count=0
-		c65035203.list={}
-		local ge2=Effect.CreateEffect(c)
-		ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		ge2:SetOperation(c65035203.resetcount)
-		Duel.RegisterEffect(ge2,0)
-		local ge3=Effect.CreateEffect(c)
-		ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge3:SetCode(EVENT_BECOME_TARGET)
-		ge3:SetOperation(c65035203.addcount)
-		Duel.RegisterEffect(ge3,0)
-	end
-end
-function c65035203.resetcount(e,tp,eg,ep,ev,re,r,rp)
-	c65035203.count=0
-	c65035203.list={}
-end
-function c65035203.addf(c,re)
-	return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
-end
-function c65035203.addcount(e,tp,eg,ep,ev,re,r,rp)
-	local g=eg:Filter(c65035203.addf,nil,re)
-	if g:GetCount()>0 then
-		local gc=g:GetFirst()
-		while gc do
-			local yes=true
-			if c65035203.count>0 then
-				for i=0,c65035203.count-1 do
-					if gc:GetCode()==c65035203.list[i] then yes=false end
-				end
-			end
-			if yes then
-				c65035203.list[c65035203.count]=gc:GetCode()
-				c65035203.count=c65035203.count+1
-			end
-			gc=g:GetNext()
-		end
-	end
-end
-
-function c65035203.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,65035203)
-	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,0,LOCATION_EXTRA,1,1,nil)
-	local sg=g:RandomSelect(tp,1)
-	Duel.HintSelection(sg)
-	Duel.SendtoGrave(sg,REASON_EFFECT)
-end
-function c65035203.cfilter(c)
-	local yes=false
-	if c65035203.count>0 then
-				for i=0,c65035203.count do
-					if c:GetCode()==c65035203.list[i] then yes=true end
-				end
-			end
-	return yes
-end
-function c65035203.damcon2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c65035203.cfilter,1,nil) and Duel.GetMatchingGroupCount(Card.IsAbleToGrave,tp,0,LOCATION_EXTRA,nil)>0 and not eg:IsContains(e:GetHandler())
-end
-
-function c65035203.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsDiscardable() end
-	Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
-end
-function c65035203.fil(c)
-	return c:IsSetCard(0xcdab) and c:IsAbleToHand() 
-end
-function c65035203.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return c65035203.fil(chkc) and chkc:IsLocation(LOCATION_GRAVE) and chkc~=e:GetHandler() and chkc:IsControler(tp) end
-	if chk==0 then return Duel.IsExistingTarget(c65035203.fil,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
-	local g=Duel.SelectTarget(tp,c65035203.fil,tp,LOCATION_GRAVE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
-end
-function c65035203.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SendtoHand(tc,tp,REASON_EFFECT)
-	end
-end

expansions/script/c65035204.lua

---千幻曲之间
-function c65035204.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:SetTarget(c65035204.target)
-	e1:SetOperation(c65035204.activate)
-	c:RegisterEffect(e1)
-	--spsummon
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035204,0))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetRange(LOCATION_FZONE)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetCountLimit(1,65035204)
-	e2:SetTarget(c65035204.thtg)
-	e2:SetOperation(c65035204.thop)
-	c:RegisterEffect(e2)
-	 --immune spell
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetCode(EFFECT_IMMUNE_EFFECT)
-	e3:SetRange(LOCATION_FZONE)
-	e3:SetTargetRange(0xff,0)
-	e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xcdab))
-	e3:SetValue(c65035204.efilter)
-	c:RegisterEffect(e3)
- if c65035204.counter==nil then
-		c65035204.counter=true
-		c65035204.count=0
-		c65035204.list={}
-		local ge2=Effect.CreateEffect(c)
-		ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		ge2:SetOperation(c65035204.resetcount)
-		Duel.RegisterEffect(ge2,0)
-		local ge3=Effect.CreateEffect(c)
-		ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		ge3:SetCode(EVENT_BECOME_TARGET)
-		ge3:SetOperation(c65035204.addcount)
-		Duel.RegisterEffect(ge3,0)
-	end
-end
-function c65035204.cfilter(c)
-	local yes=false
-	if c65035204.count>0 then
-				for i=0,c65035204.count do
-					if c:GetCode()==c65035204.list[i] then yes=true end
-				end
-			end
-	return yes
-end
-function c65035204.efilter(e,te)
-	return c65035204.cfilter(te:GetHandler()) and te:IsActiveType(TYPE_MONSTER)
-end
-function c65035204.resetcount(e,tp,eg,ep,ev,re,r,rp)
-	c65035204.count=0
-	c65035204.list={}
-end
-function c65035204.addf(c,re)
-	return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
-end
-function c65035204.addcount(e,tp,eg,ep,ev,re,r,rp)
-	local g=eg:Filter(c65035204.addf,nil,re)
-	if g:GetCount()>0 then
-		local gc=g:GetFirst()
-		while gc do
-			local yes=true
-			if c65035204.count>0 then
-				for i=0,c65035204.count-1 do
-					if gc:GetCode()==c65035204.list[i] then yes=false end
-				end
-			end
-			if yes then
-				c65035204.list[c65035204.count]=gc:GetCode()
-				c65035204.count=c65035204.count+1
-			end
-			gc=g:GetNext()
-		end
-	end
-end
-function c65035204.thfilter(c)
-	return c:IsSetCard(0xcdab) and c:IsSSetable()
-end
-function c65035204.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035204.thfilter,tp,LOCATION_DECK,0,1,nil) end
-end
-function c65035204.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.SelectMatchingCard(tp,c65035204.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if tg then
-		Duel.SSet(tp,tg)
-	end
-end
-function c65035204.filter(c)
-	return c:IsSetCard(0xcdab) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
-end
-function c65035204.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035204.filter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c65035204.activate(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c65035204.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
-

expansions/script/c65035205.lua

---千幻曲的记谱
-function c65035205.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(c65035205.target)
-	e1:SetOperation(c65035205.activate)
-	c:RegisterEffect(e1)
-	--search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035205,0))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,65035205)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c65035205.thtg)
-	e2:SetOperation(c65035205.thop)
-	c:RegisterEffect(e2)
-end
-function c65035205.thfilter(c)
-	return c:IsSetCard(0xcdab) and c:IsSSetable()
-end
-function c65035205.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035205.thfilter,tp,LOCATION_DECK,0,1,nil) end
-end
-function c65035205.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.SelectMatchingCard(tp,c65035205.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if tg then
-		Duel.SSet(tp,tg)
-	end
-end
-function c65035205.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup()  and chkc:IsControler(1-tp) end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
-end
-function c65035205.activate(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		local code=tc:GetCode()
-		local c=e:GetHandler()
-		local e0=Effect.CreateEffect(c)
-		e0:SetType(EFFECT_TYPE_FIELD)
-		e0:SetCode(EFFECT_CHANGE_CODE)
-		e0:SetValue(code)
-		e0:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
-		e0:SetTarget(c65035205.ooo)
-		e0:SetReset(RESET_PHASE+PHASE_END)
-		Duel.RegisterEffect(e0,tp)
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		e1:SetLabel(code)
-		e1:SetLabelObject(e0)
-		e1:SetOperation(c65035205.disop)
-		Duel.RegisterEffect(e1,tp)
-	end
-end
-function c65035205.ooo(e,c)
-	return c:IsSummonType(SUMMON_TYPE_SPECIAL)
-end
-function c65035205.disop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,65035205)
-	local ec=eg:GetFirst()
-	while ec do
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetCode(EFFECT_CHANGE_CODE)
-		e1:SetValue(e:GetLabel())
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		ec:RegisterEffect(e1)
-		ec=eg:GetNext()
-	end
-	e:Reset()
-	e:GetLabelObject():Reset()
-end
\ No newline at end of file

expansions/script/c65035206.lua

---千幻曲的试奏
-function c65035206.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(c65035206.target)
-	e1:SetOperation(c65035206.activate)
-	c:RegisterEffect(e1)
-	--search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035206,0))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,65035206)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c65035206.thtg)
-	e2:SetOperation(c65035206.thop)
-	c:RegisterEffect(e2)
-end
-function c65035206.thfilter(c)
-	return c:IsSetCard(0xcdab) and c:IsSSetable()
-end
-function c65035206.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035206.thfilter,tp,LOCATION_DECK,0,1,nil) end
-end
-function c65035206.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.SelectMatchingCard(tp,c65035206.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if tg then
-		Duel.SSet(tp,tg)
-	end
-end
-function c65035206.spfil(c,e,tp)
-	return c:IsSetCard(0xcdab) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c65035206.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup()  and chkc:IsControler(1-tp) end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) and Duel.IsExistingMatchingCard(c65035206.spfil,tp,LOCATION_DECK,0,1,nil,e,tp) and Duel.GetMZoneCount(tp)>0 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
-end
-function c65035206.activate(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.GetMZoneCount(tp)>0 then
-		local code=tc:GetCode()
-		local c=e:GetHandler()
-		local g=Duel.SelectMatchingCard(tp,c65035206.spfil,tp,LOCATION_DECK,0,1,1,nil,e,tp)
-		if g:GetCount()>0 then
-			local gc=g:GetFirst()
-			Duel.SpecialSummonStep(gc,0,tp,tp,false,false,POS_FACEUP)
-			local e0=Effect.CreateEffect(c)
-			e0:SetType(EFFECT_TYPE_SINGLE)
-			e0:SetCode(EFFECT_CHANGE_CODE)
-			e0:SetValue(code)
-			e0:SetReset(RESET_EVENT+RESETS_STANDARD)
-			gc:RegisterEffect(e0)
-			Duel.SpecialSummonComplete()
-		end
-		
-	end
-end
\ No newline at end of file

expansions/script/c65035207.lua

---千幻曲的编织
-function c65035207.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(c65035207.target)
-	e1:SetOperation(c65035207.activate)
-	c:RegisterEffect(e1)
-	--search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035207,0))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,65035207)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c65035207.thtg)
-	e2:SetOperation(c65035207.thop)
-	c:RegisterEffect(e2)
-end
-function c65035207.thfilter(c)
-	return c:IsSetCard(0xcdab) and c:IsSSetable()
-end
-function c65035207.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035207.thfilter,tp,LOCATION_DECK,0,1,nil) end
-end
-function c65035207.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.SelectMatchingCard(tp,c65035207.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if tg then
-		Duel.SSet(tp,tg)
-	end
-end
-function c65035207.spfil(c,e,tp,code)
-	return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c65035207.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup()  and chkc:IsControler(1-tp) end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) and Duel.IsPlayerCanSpecialSummon(1-tp) and Duel.GetMZoneCount(1-tp)>0 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,1-tp,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA+LOCATION_GRAVE)
-end
-function c65035207.activate(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.GetMZoneCount(1-tp)>0 then
-		local code=tc:GetCode()
-		local g=Duel.SelectMatchingCard(1-tp,c65035207.spfil,1-tp,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil,e,1-tp,tc:GetCode())
-		if g:GetCount()>0 then
-			Duel.SpecialSummon(g,0,1-tp,1-tp,false,false,POS_FACEUP)
-		end
-	end
-end

expansions/script/c65035208.lua

---灿滥的千幻曲
-function c65035208.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_GRAVE_ACTION)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,65035208)
-	e1:SetTarget(c65035208.target)
-	e1:SetOperation(c65035208.activate)
-	c:RegisterEffect(e1)
-	 --search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035208,0))
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,65035209)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c65035208.thtg)
-	e2:SetOperation(c65035208.thop)
-	c:RegisterEffect(e2)
-end
-function c65035208.thfilter(c)
-	return c:IsSetCard(0xcdab) and c:IsSSetable()
-end
-function c65035208.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035208.thfilter,tp,LOCATION_DECK,0,1,nil) end
-end
-function c65035208.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.SelectMatchingCard(tp,c65035208.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if tg then
-		Duel.SSet(tp,tg)
-	end
-end
-function c65035208.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup()  and chkc:IsControler(1-tp) end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
-end
-function c65035208.activate(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		local code=tc:GetCode()
-		local c=e:GetHandler()
-		local e2=Effect.CreateEffect(c)
-		e2:SetDescription(aux.Stringid(65035208,0))
-		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e2:SetLabel(code)
-		e2:SetReset(RESET_PHASE+PHASE_END)
-		e2:SetCondition(c65035208.damcon2)
-		e2:SetOperation(c65035208.damop)
-		Duel.RegisterEffect(e2,tp)
-	end
-end
-function c65035208.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,65035208)
-	local g=Duel.SelectMatchingCard(1-tp,Card.IsAbleToRemove,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_EXTRA,1,1,nil)
-	Duel.HintSelection(g)
-	Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
-end
-function c65035208.cfilter(c,code)
-	return c:IsFaceup() and c:IsCode(code)
-end
-function c65035208.damcon2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c65035208.cfilter,1,nil,e:GetLabel()) and Duel.GetMatchingGroupCount(Card.IsAbleToRemove,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_EXTRA,nil)>0
-end
\ No newline at end of file

expansions/script/c65035210.lua

---至理的千幻曲
-function c65035210.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,65035210)
-	e1:SetTarget(c65035210.target)
-	e1:SetOperation(c65035210.activate)
-	c:RegisterEffect(e1)
-	 --search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035210,0))
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,65035211)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c65035210.thtg)
-	e2:SetOperation(c65035210.thop)
-	c:RegisterEffect(e2)
-end
-function c65035210.thfilter(c)
-	return c:IsSetCard(0xcdab) and c:IsSSetable()
-end
-function c65035210.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035210.thfilter,tp,LOCATION_DECK,0,1,nil) end
-end
-function c65035210.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.SelectMatchingCard(tp,c65035210.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if tg then
-		Duel.SSet(tp,tg)
-	end
-end
-function c65035210.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup()  and chkc:IsControler(1-tp) end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
-end
-function c65035210.activate(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		local code=tc:GetCode()
-		local c=e:GetHandler()
-		local e2=Effect.CreateEffect(c)
-		e2:SetDescription(aux.Stringid(65035210,0))
-		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e2:SetLabel(code)
-		e2:SetReset(RESET_PHASE+PHASE_END)
-		e2:SetCondition(c65035210.damcon2)
-		e2:SetOperation(c65035210.damop)
-		Duel.RegisterEffect(e2,tp)
-	end
-end
-function c65035210.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,65035210)
-	local g=Duel.SelectMatchingCard(tp,c65035210.tdfil,tp,LOCATION_REMOVED,0,3,3,nil)
-	Duel.HintSelection(g)
-	Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
-	Duel.ShuffleDeck(tp)
-	Duel.Draw(tp,1,REASON_EFFECT)
-end
-function c65035210.cfilter(c,code)
-	return c:IsFaceup() and c:IsCode(code)
-end
-function c65035210.tdfil(c)
-	return c:IsFaceup() and c:IsSetCard(0xcdab) and c:IsAbleToDeck()
-end
-function c65035210.damcon2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c65035210.cfilter,1,nil,e:GetLabel()) and Duel.GetMatchingGroupCount(c65035210.tdfil,tp,LOCATION_REMOVED,0,nil)>=3
-end

expansions/script/c65035212.lua

---入魂的千幻曲
-function c65035212.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,65035212)
-	e1:SetTarget(c65035212.target)
-	e1:SetOperation(c65035212.activate)
-	c:RegisterEffect(e1)
-	 --search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035212,0))
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,65035213)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c65035212.thtg)
-	e2:SetOperation(c65035212.thop)
-	c:RegisterEffect(e2)
-end
-function c65035212.thfilter(c)
-	return c:IsSetCard(0xcdab) and c:IsSSetable()
-end
-function c65035212.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035212.thfilter,tp,LOCATION_DECK,0,1,nil) end
-end
-function c65035212.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.SelectMatchingCard(tp,c65035212.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if tg then
-		Duel.SSet(tp,tg)
-	end
-end
-function c65035212.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup()  and chkc:IsControler(1-tp) end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
-end
-function c65035212.activate(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		local code=tc:GetCode()
-		local c=e:GetHandler()
-		local e2=Effect.CreateEffect(c)
-		e2:SetDescription(aux.Stringid(65035212,0))
-		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e2:SetLabel(code)
-		e2:SetReset(RESET_PHASE+PHASE_END)
-		e2:SetCondition(c65035212.damcon2)
-		e2:SetOperation(c65035212.damop)
-		Duel.RegisterEffect(e2,tp)
-	end
-end
-function c65035212.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,65035212)
-	local g=Duel.GetMatchingGroup(c65035212.tdfil,tp,LOCATION_MZONE,0,nil)
-	local gc=g:GetFirst()
-	while gc do
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
-		e1:SetValue(800)
-		gc:RegisterEffect(e1)
-		local e2=e1:Clone()
-		e2:SetCode(EFFECT_UPDATE_DEFENSE)
-		gc:RegisterEffect(e2)
-		gc=g:GetNext()
-	end
-end
-function c65035212.cfilter(c,code)
-	return c:IsFaceup() and c:IsCode(code)
-end
-function c65035212.tdfil(c)
-	return c:IsFaceup()  
-end
-function c65035212.damcon2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c65035212.cfilter,1,nil,e:GetLabel()) and Duel.GetMatchingGroupCount(c65035212.tdfil,tp,LOCATION_MZONE,0,nil)>0
-end

expansions/script/c65035214.lua

---希声的千幻曲
-function c65035214.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,65035214)
-	e1:SetTarget(c65035214.target)
-	e1:SetOperation(c65035214.activate)
-	c:RegisterEffect(e1)
-	 --search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65035214,0))
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,65035215)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c65035214.thtg)
-	e2:SetOperation(c65035214.thop)
-	c:RegisterEffect(e2)
-end
-function c65035214.thfilter(c)
-	return c:IsSetCard(0xcdab) and c:IsSSetable()
-end
-function c65035214.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65035214.thfilter,tp,LOCATION_DECK,0,1,nil) end
-end
-function c65035214.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.SelectMatchingCard(tp,c65035214.thfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if tg then
-		Duel.SSet(tp,tg)
-	end
-end
-function c65035214.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup()  and chkc:IsControler(1-tp) end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
-end
-function c65035214.activate(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		local code=tc:GetCode()
-		local c=e:GetHandler()
-		local e2=Effect.CreateEffect(c)
-		e2:SetDescription(aux.Stringid(65035214,0))
-		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e2:SetLabel(code)
-		e2:SetReset(RESET_PHASE+PHASE_END)
-		e2:SetCondition(c65035214.damcon2)
-		e2:SetOperation(c65035214.damop)
-		Duel.RegisterEffect(e2,tp)
-	end
-end
-function c65035214.damop(e,tp,eg,ep,ev,re,r,rp)
-	if not Duel.SelectYesNo(tp,aux.Stringid(65035214,0)) then return end
-	Duel.Hint(HINT_CARD,0,65035214)
-	local g=Duel.SelectMatchingCard(tp,c65035214.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
-	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-end
-function c65035214.cfilter(c,code)
-	return c:IsFaceup() and c:IsCode(code)
-end
-function c65035214.spfilter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0xcdab)
-end
-function c65035214.damcon2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c65035214.cfilter,1,nil,e:GetLabel()) and Duel.GetMZoneCount(tp)>0 and Duel.IsExistingMatchingCard(c65035214.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)
-end

expansions/script/c65830000.lua

---植物娘·向日葵
-function c65830000.initial_effect(c)
-	aux.AddLinkProcedure(c,c65830000.mat,1,1)
-	c:EnableReviveLimit()
-	--连接召唤效果
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetCountLimit(1,65830000)
-	e1:SetCondition(c65830000.scon)
-	e1:SetTarget(c65830000.target1)
-	e1:SetOperation(c65830000.activate1)
-	c:RegisterEffect(e1)
-	--加通召
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetCondition(c65830000.scon)
-	e2:SetOperation(c65830000.sumop)
-	c:RegisterEffect(e2)
-end
-
-
-
-function c65830000.mat(c)
-	return c:IsLinkSetCard(0xa33) and c:IsType(TYPE_MONSTER) and not c:IsLinkType(TYPE_LINK)
-end
-
-
-function c65830000.scon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
-end
-
-
-function c65830000.filter(c)
-	return c:IsSetCard(0xa33) and c:IsAbleToHand()
-end
-function c65830000.target1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c65830000.filter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c65830000.activate1(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c65830000.filter,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end
-
-
-function c65830000.sumop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetFlagEffect(tp,65830000)~=0 then return end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetDescription(aux.Stringid(65830000,0))
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0)
-	e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
-	e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xa33))
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-	Duel.RegisterFlagEffect(tp,65830000,RESET_PHASE+PHASE_END,0,1)
-end
\ No newline at end of file

expansions/script/c65830005.lua

---植物娘·睡莲
-function c65830005.initial_effect(c)
-	--墓地跳
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(65830005,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetRange(LOCATION_GRAVE)
-	e1:SetCountLimit(1,65830005)
-	e1:SetLabelObject(e0)
-	e1:SetCondition(c65830005.spcon)
-	e1:SetTarget(c65830005.sptg)
-	e1:SetOperation(c65830005.spop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	--特招
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_EQUIP)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,65830006)
-	e3:SetTarget(c65830005.target)
-	e3:SetOperation(c65830005.operation)
-	c:RegisterEffect(e3)
-end
-
-
-function c65830005.cfilter(c,tp,se)
-	return c:IsFaceup() and c:IsSummonPlayer(tp) and c:IsSetCard(0xa33)
-end
-function c65830005.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c65830005.cfilter,1,nil,tp)
-end
-function c65830005.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
-		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c65830005.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-end
-
-
-function c65830005.filter(c,e,tp)
-	return c:IsSetCard(0xa33) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c65830005.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
-		and Duel.IsExistingMatchingCard(c65830005.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
-end
-function c65830005.operation(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g = Duel.SelectMatchingCard(tp,c65830005.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
-	if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) and c:IsRelateToEffect(e) then 
-	local tc=g:GetFirst()
-	Duel.BreakEffect()
-	Duel.Equip(tp,c,tc)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e1:SetCode(EFFECT_EQUIP_LIMIT)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-	e1:SetLabelObject(tc)
-	e1:SetValue(c65830005.eqlimit)
-	c:RegisterEffect(e1)
-	end
-end
-function c65830005.eqlimit(e,c)
-	return c==e:GetLabelObject()
-end
-

expansions/script/c65830010.lua

---植物娘·香蒲
-function c65830010.initial_effect(c)
-	c:SetSPSummonOnce(65830010)
-	--特招手续
-	c:EnableReviveLimit()
-	aux.AddFusionProcFunRep(c,c65830010.ffilter,1,false)
-	aux.AddContactFusionProcedure(c,Card.IsAbleToGraveAsCost,LOCATION_ONFIELD,0,Duel.SendtoGrave,REASON_COST)
-	--不能融合
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
-	c:RegisterEffect(e1)
-	--炸场上
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(65830010,0))
-	e2:SetCategory(CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,65830010)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetTarget(c65830010.destg)
-	e2:SetOperation(c65830010.desop)
-	c:RegisterEffect(e2)
-	--炸连锁
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(65830010,1))
-	e3:SetCategory(CATEGORY_DESTROY)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetCode(EVENT_CHAINING)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,65830010)
-	e3:SetCondition(c65830010.condition)
-	e3:SetTarget(c65830010.target)
-	e3:SetOperation(c65830010.operation)
-	c:RegisterEffect(e3)
-end
-
-
-
-function c65830010.ffilter(c,fc,sub,mg,sg)
-	return c:IsCode(65830005)
-end
-
-
-function c65830010.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() end
-	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
-end
-function c65830010.desop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then Duel.Destroy(tc,REASON_EFFECT) end
-end
-
-
-function c65830010.condition(e,tp,eg,ep,ev,re,r,rp)
-	local tc=re:GetHandler()
-	return tc:IsControler(1-tp) and tc:IsRelateToEffect(re)
-end
-function c65830010.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return re:GetHandler():IsDestructable() end
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
-end
-function c65830010.operation(e,tp,eg,ep,ev,re,r,rp)
-	if re:GetHandler():IsRelateToEffect(re) then
-		Duel.Destroy(eg,REASON_EFFECT)
-	end
-end
-
-

expansions/script/c65830015.lua

---植物娘·玉米投手
-function c65830015.initial_effect(c)
-	--特招
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,65830015+EFFECT_COUNT_CODE_OATH)
-	e1:SetCondition(c65830015.spcon)
-	c:RegisterEffect(e1)
-	--无效
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_DISABLE)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_CHAINING)
-	e2:SetCountLimit(1,65830016)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCondition(c65830015.discon)
-	e2:SetCost(c65830015.discost)
-	e2:SetTarget(c65830015.distg)
-	e2:SetOperation(c65830015.disop)
-	c:RegisterEffect(e2)
-end
-
-
-
-function c65830015.filter(c)
-	return c:IsSetCard(0xa33) and c:IsFaceup()
-end
-function c65830015.spcon(e,c)
-	if c==nil then return true end
-	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c65830015.filter,c:GetControler(),LOCATION_MZONE,0,1,nil)
-end
-
-
-function c65830015.discon(e,tp,eg,ep,ev,re,r,rp)
-	return ep~=tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev)
-end
-function c65830015.discost(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 c65830015.distg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
-end
-function c65830015.disop(e,tp,eg,ep,ev,re,r,rp)
-	local rc=re:GetHandler()
-	Duel.NegateEffect(ev)
-end

expansions/script/c65830020.lua

---植物娘·火爆辣椒
-function c65830020.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:SetCondition(c65830020.setcon)
-	e1:SetTarget(c65830020.target)
-	e1:SetOperation(c65830020.activate)
-	c:RegisterEffect(e1)
-end
-
-
-
-function c65830020.filter(c,e,tp)
-	return c:IsSetCard(0xa33) and c:IsFaceup()
-end
-function c65830020.setcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c65830020.filter,tp,LOCATION_MZONE,0,1,nil)
-end
-function c65830020.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,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELECT)
-	local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
-end
-function c65830020.filter1(c,e,tp)
-	return c:IsControler(1-tp)
-end
-function c65830020.activate(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	local g=tc:GetColumnGroup():Filter(Card.IsControler,nil,1-tp)
-	if tc:IsRelateToEffect(e) then
-		if tc:IsControler(1-tp) then
-		Duel.Destroy(tc,REASON_EFFECT)
-		end
-		if g:GetCount()>0 then
-			Duel.Destroy(g,REASON_EFFECT)
-		end
-	end
-end
\ No newline at end of file

expansions/script/c65830025.lua

---植物娘·双发射手
-function c65830025.initial_effect(c)
-	--activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,65830025)
-	e1:SetTarget(c65830025.target)
-	e1:SetOperation(c65830025.activate)
-	c:RegisterEffect(e1)
-	--extra attack
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE)
-	e4:SetCode(EFFECT_EXTRA_ATTACK)
-	e4:SetValue(1)
-	c:RegisterEffect(e4)
-end
-
-
-
-function c65830025.filter(c,e,tp)
-	return c:IsSetCard(0xa33) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND+LOCATION_GRAVE)
-end
-function c65830025.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c65830025.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
-end
-function c65830025.activate(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c65830025.filter),tp,LOCATION_HAND+LOCATION_GRAVE,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/c65830030.lua

---植物娘·胆小菇
-function c65830030.initial_effect(c)
-	--自己特招
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,65830030+EFFECT_COUNT_CODE_OATH)
-	e1:SetCondition(c65830030.spcon)
-	c:RegisterEffect(e1)
-	--手卡特招
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetCode(EVENT_FREE_CHAIN)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,65830031)
-	e3:SetCost(c65830030.cost3)
-	e3:SetTarget(c65830030.target3)
-	e3:SetOperation(c65830030.activate3)
-	c:RegisterEffect(e3)
-end
-
-
-
-function c65830030.filter(c)
-	return c:IsSetCard(0xa33) and c:IsFaceup()
-end
-function c65830030.spcon(e,c)
-	if c==nil then return true end
-	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
-		and (Duel.IsExistingMatchingCard(c65830030.filter,c:GetControler(),LOCATION_MZONE,0,1,nil) or Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0)
-end
-
-
-function c65830030.cost3(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToHandAsCost() 
-	end
-	Duel.SendtoHand(e:GetHandler(),tp,REASON_COST)
-end
-function c65830030.spfilter(c,e,tp)
-	return c:IsSetCard(0xa33) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c65830030.target3(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
-		and Duel.IsExistingMatchingCard(c65830030.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
-end
-function c65830030.activate3(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,c65830030.spfilter,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/c65830035.lua

---植物娘·大嘴花
-function c65830035.initial_effect(c)
-	--装备
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_REMOVE)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,65830035)
-	e1:SetTarget(c65830035.Target1)
-	e1:SetOperation(c65830035.activate1)
-	c:RegisterEffect(e1)
-end
-
-
-function c65830035.nbfilter(c)
-	return c:IsAbleToRemove(tp,POS_FACEDOWN,REASON_EFFECT) and c:IsType(TYPE_MONSTER) 
-end
-function c65830035.Target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local c=e:GetHandler()
-	if chkc then return chkc:IsOnField() and c65830035.nbfilter(chkc) and c~=chkc end
-	if chk==0 then return Duel.IsExistingTarget(c65830035.nbfilter,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE,1,c) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectTarget(tp,c65830035.nbfilter,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE,1,1,c)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
-end
-function c65830035.activate1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and c:IsType(TYPE_MONSTER) then
-		Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
-	end
-end
\ No newline at end of file

expansions/script/c65830040.lua

---植物娘·大蒜
-function c65830040.initial_effect(c)
-	--destroy
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(65830040,0))
-	e1:SetCategory(CATEGORY_TODECK)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e1:SetCode(EVENT_BATTLE_START)
-	e1:SetTarget(c65830040.destg)
-	e1:SetOperation(c65830040.desop)
-	c:RegisterEffect(e1)
-	--atk limit
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetTargetRange(0,LOCATION_MZONE)
-	e2:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
-	e2:SetValue(c65830040.atlimit)
-	c:RegisterEffect(e2)
-end
-
-
-function c65830040.destg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local tc=Duel.GetAttacker()
-	if tc==c then tc=Duel.GetAttackTarget() end
-	if chk==0 then return tc end
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,tc,1,0,0)
-end
-function c65830040.desop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetAttacker()
-	if tc==c then tc=Duel.GetAttackTarget() end
-	if tc:IsRelateToBattle() then Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT) end
-end
-
-
-function c65830040.atlimit(e,c)
-	return c~=e:GetHandler()
-end
\ No newline at end of file

expansions/script/c65830045.lua

---种子雨
-function c65830045.initial_effect(c)
-	--检索
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(65830045,0))
-	e1:SetCategory(CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCountLimit(1,65830045+EFFECT_COUNT_CODE_OATH)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetOperation(c65830045.activate)
-	c:RegisterEffect(e1)
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_HANDES+CATEGORY_SEARCH)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_SZONE)
-	e3:SetCountLimit(1)
-	e3:SetTarget(c65830045.drawtg)
-	e3:SetOperation(c65830045.drawop)
-	c:RegisterEffect(e3)
-end
-
-
-
-function c65830045.thfilter(c)
-	return c:IsSetCard(0xa33) and c:IsAbleToHand()
-end
-function c65830045.activate(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c65830045.thfilter,tp,LOCATION_DECK,0,nil)
-	if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(65830045,0)) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		local sg=g:Select(tp,1,1,nil)
-		Duel.SendtoHand(sg,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,sg)
-	end
-end
-
-
-function c65830045.filter2(e,c)
-	return c:IsSetCard(0xa33) and c:IsAbleToHand()
-end
-function c65830045.filter1(c)
-	return c:IsDiscardable(REASON_EFFECT)
-end
-function c65830045.drawtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return Duel.IsExistingMatchingCard(c65830045.filter2,tp,LOCATION_DECK,0,1,nil,c) and Duel.IsExistingMatchingCard(c65830045.filter1,tp,LOCATION_HAND,0,1,nil,c) end
-	Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,1,tp,LOCATION_HAND)
-	Duel.SetOperationInfo(0,CATEGORY_SEARCH,nil,1,tp,LOCATION_DECK)
-end
-function c65830045.drawop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c65830045.thfilter,tp,LOCATION_DECK,0,1,1,nil,c)
-	if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_HAND) then
-		Duel.ConfirmCards(1-tp,g)
-		Duel.ShuffleHand(tp)
-		Duel.BreakEffect()
-		Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD,nil,c)
-	end
-end
\ No newline at end of file

expansions/script/c65830050.lua

---植物娘·咖啡豆
-function c65830050.initial_effect(c)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_DECKDES+CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetCountLimit(1,65830050)
-	e2:SetCost(c65830050.cost2)
-	e2:SetTarget(c65830050.target2)
-	e2:SetOperation(c65830050.activate2)
-	c:RegisterEffect(e2)
-end
-
-
-
-function c65830050.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
-	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
-end
-function c65830050.spfilter(c,e,tp)
-	return c:IsSetCard(0xa33) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c65830050.target2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c65830050.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
-end
-function c65830050.activate2(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,c65830050.spfilter,tp,LOCATION_HAND+LOCATION_DECK,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/c65830055.lua

---超乎寻常的压力
-function c65830055.initial_effect(c)
-	c:SetUniqueOnField(1,0,65830055)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	c:RegisterEffect(e1)
-	--negate
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_CHAIN_SOLVING)
-	e2:SetRange(LOCATION_SZONE)
-	e2:SetCountLimit(1)
-	e2:SetCondition(c65830055.negcon)
-	e2:SetOperation(c65830055.negop)
-	c:RegisterEffect(e2)
-end
-function c65830055.cfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0xa33) and c:IsType(TYPE_MONSTER)
-end
-function c65830055.negcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c65830055.cfilter,tp,LOCATION_MZONE,0,1,nil)
-		and rp==1-tp and (re:IsActiveType(TYPE_TRAP) or re:IsActiveType(TYPE_SPELL))
-end
-function c65830055.negop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,65830055)
-	local rc=re:GetHandler()
-	if Duel.NegateEffect(ev,true) and rc:IsRelateToEffect(re) then
-		Duel.Destroy(rc,REASON_EFFECT)
-	end
-end
\ No newline at end of file

expansions/script/c71400020.lua

@@ -7,7 +7,7 @@ function c71400020.initial_effect(c)
 	e1:SetDescription(aux.Stringid(71400020,0))
 	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 	e1:SetCondition(c71400020.con1)
 	e1:SetTarget(c71400020.tg1)
 	e1:SetOperation(c71400020.op1)

expansions/script/c81057000.lua

---水晶艾蕾娜
-local m=81057000
-local cm=_G["c"..m]
-Duel.LoadScript("c81000000.lua")
-function cm.initial_effect(c)
-	c:EnableReviveLimit()
-	--link summon
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsSummonType,SUMMON_TYPE_ADVANCE),1,1)
-	--cannot be link material
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
-	e0:SetValue(1)
-	c:RegisterEffect(e0)
-	--search
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCode(EVENT_RELEASE)
-	e2:SetCountLimit(1,m)
-	e2:SetCondition(cm.thcon)
-	e2:SetTarget(cm.thtg)
-	e2:SetOperation(cm.thop)
-	c:RegisterEffect(e2)
-end
-function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsReason(REASON_SUMMON)
-end
-function cm.filter(c)
-	return c:IsLevelAbove(5) and c:IsAbleToHand()
-end
-function cm.thtg(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.thop(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:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e2:SetReset(RESET_PHASE+PHASE_END)
-	e2:SetTargetRange(1,0)
-	Duel.RegisterEffect(e2,tp)
-end

expansions/script/c81057001.lua

---水晶艾蕾娜·换衣
-local m=81057001
-local cm=_G["c"..m]
-Duel.LoadScript("c81000000.lua")
-function cm.initial_effect(c)
-	c:EnableReviveLimit()
-	--link summon
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsSummonType,SUMMON_TYPE_NORMAL),1,1)
-	--cannot be link material
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
-	e0:SetValue(1)
-	c:RegisterEffect(e0)
-	--double tribute
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_DOUBLE_TRIBUTE)
-	e0:SetValue(1)
-	c:RegisterEffect(e0)
-	--return
-	local e1=Effect.CreateEffect(c)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SUMMON)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_GRAVE)
-	e1:SetCountLimit(1,m)
-	e1:SetCondition(cm.condition)
-	e1:SetCost(aux.bfgcost)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.operation)
-	c:RegisterEffect(e1)
-end
-function cm.condition(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
-end
-function cm.filter(c)
-	return c:IsFaceup() and c:IsSummonType(SUMMON_TYPE_NORMAL) and c:IsLevelAbove(5) and c:IsAbleToHand()
-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_RTOHAND)
-	local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
-end
-function cm.sumfilter(c)
-	return c:IsLevelAbove(7) and c:IsSummonable(true,nil)
-end
-function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) then
-		if Duel.IsExistingMatchingCard(cm.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil)
-			and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
-			Duel.BreakEffect()
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
-			local g=Duel.SelectMatchingCard(tp,cm.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
-			Duel.Summon(tp,g:GetFirst(),true,nil)
-		end
-	end
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e2:SetReset(RESET_PHASE+PHASE_END)
-	e2:SetTargetRange(1,0)
-	Duel.RegisterEffect(e2,tp)
-end

expansions/script/c81057002.lua

---水晶艾蕾娜·旧约
-local m=81057002
-local cm=_G["c"..m]
-Duel.LoadScript("c81000000.lua")
-function cm.initial_effect(c)
-	--fusion material
-	c:EnableReviveLimit()
-	aux.AddFusionProcFunRep(c,cm.ffilter,2,false)
-	--todeck
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TODECK)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_BATTLE_START)
-	e1:SetCountLimit(1)
-	e1:SetCondition(cm.tdcon)
-	e1:SetTarget(cm.tdtg)
-	e1:SetOperation(cm.tdop)
-	c:RegisterEffect(e1)
-	--search
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCode(EVENT_DESTROYED)
-	e2:SetCountLimit(1,m)
-	e2:SetCondition(cm.srcon)
-	e2:SetCost(cm.srcost)
-	e2:SetTarget(cm.srtg)
-	e2:SetOperation(cm.srop)
-	c:RegisterEffect(e2)
-	--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)
-	Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
-end
-function cm.counterfilter(c)
-	return (c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_DARK)) or c:IsSummonableCard()
-end
-function cm.ffilter(c)
-	return c:IsFusionType(TYPE_EFFECT) and c:IsSummonType(SUMMON_TYPE_NORMAL) and c:IsOnField()
-end
-function cm.tdcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local bc=c:GetBattleTarget()
-	return bc and bc:IsSummonType(SUMMON_TYPE_SPECIAL)
-end
-function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local bc=c:GetBattleTarget()
-	if chk==0 then return bc and bc:IsRelateToBattle() and bc:IsAbleToDeck() end
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,bc,1,0,0)
-end
-function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local bc=c:GetBattleTarget()
-	if not bc:IsRelateToBattle() then return false end
-	Duel.SendtoDeck(bc,nil,2,REASON_EFFECT)
-end
-function cm.repfilter(c,tp)
-	return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsType(TYPE_MONSTER) and c:IsSummonType(SUMMON_TYPE_NORMAL)
-		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
-function cm.srcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsReason(REASON_BATTLE+REASON_EFFECT)
-end
-function cm.srcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	e1:SetTargetRange(1,0)
-	e1:SetTarget(cm.splimit)
-	Duel.RegisterEffect(e1,tp)
-end
-function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
-	return not ((c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_DARK)) or c:IsSummonableCard())
-end
-function cm.srfilter(c)
-	return c:IsType(TYPE_MONSTER) and c:IsSummonableCard() and c:IsAbleToHand()
-end
-function cm.srtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.srfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function cm.srop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,cm.srfilter,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/c81057003.lua

---水晶艾蕾娜·烟花
-local m=81057003
-local cm=_G["c"..m]
-Duel.LoadScript("c81000000.lua")
-function cm.initial_effect(c)
-	--summon proc
-	local e0=Effect.CreateEffect(c)
-	e0:SetDescription(aux.Stringid(m,0))
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SUMMON_PROC)
-	e0:SetCondition(cm.sumcon)
-	e0:SetOperation(cm.sumop)
-	e0:SetValue(SUMMON_TYPE_ADVANCE)
-	c:RegisterEffect(e0)
-	--disable effect
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_SOLVING)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetOperation(cm.disop)
-	c:RegisterEffect(e1)
-	--destroy
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,m)
-	e2:SetCondition(cm.descon)
-	e2:SetTarget(cm.destg)
-	e2:SetOperation(cm.desop)
-	c:RegisterEffect(e2)
-end
-function cm.refil(c)
-	return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_LINK)
-end
-function cm.sumcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return   Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
-end
-function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
-	local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function cm.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_REMOVED and re:IsActiveType(TYPE_MONSTER) then
-		Duel.NegateEffect(ev)
-	end
-end
-function cm.descon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
-end
-function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetFieldGroup(tp,0,LOCATION_MZONE)
-	if chk==0 then return #g>0 end
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0)
-end
-function cm.desop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local tc=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_MZONE,1,1,nil):GetFirst()
-	if tc and Duel.Destroy(tc,REASON_EFFECT)~=0 then
-		Duel.Damage(1-tp,tc:GetBaseAttack(),REASON_EFFECT)
-	end
-end

expansions/script/c81057004.lua

---水晶艾蕾娜·沉浮
-local m=81057004
-local cm=_G["c"..m]
-Duel.LoadScript("c81000000.lua")
-function cm.initial_effect(c)
-	--summon proc
-	local e0=Effect.CreateEffect(c)
-	e0:SetDescription(aux.Stringid(m,0))
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SUMMON_PROC)
-	e0:SetCondition(cm.sumcon)
-	e0:SetOperation(cm.sumop)
-	e0:SetValue(SUMMON_TYPE_ADVANCE)
-	c:RegisterEffect(e0)
-	--disable effect
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_SOLVING)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetOperation(cm.disop)
-	c:RegisterEffect(e1)
-	--destroy
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,m)
-	e2:SetCondition(cm.thcon)
-	e2:SetTarget(cm.thtg)
-	e2:SetOperation(cm.thop)
-	c:RegisterEffect(e2)
-end
-function cm.refil(c)
-	return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_PENDULUM)
-end
-function cm.sumcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return   Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
-end
-function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
-	local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function cm.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_REMOVED and re:IsActiveType(TYPE_MONSTER) then
-		Duel.NegateEffect(ev)
-	end
-end
-function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
-end
-function cm.thfilter(c)
-	return c:GetType()==TYPE_TRAP and c:IsAbleToHand()
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then
-		local dg=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)
-		return dg:GetClassCount(Card.GetCode)>=3
-	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.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)
-	if g:GetClassCount(Card.GetCode)>=3 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
-		local sg1=g:SelectSubGroup(tp,aux.dncheck,false,3,3)
-		Duel.ConfirmCards(1-tp,sg1)
-		local cg=sg1:RandomSelect(1-tp,1)
-		local tc=cg:GetFirst()
-		tc:SetStatus(STATUS_TO_HAND_WITHOUT_CONFIRM,true)
-		Duel.SendtoHand(tc,nil,REASON_EFFECT)
-		Duel.ShuffleDeck(tp)
-	end
-end
\ No newline at end of file

expansions/script/c81057005.lua

---水晶艾蕾娜·夜蝶
-local m=81057005
-local cm=_G["c"..m]
-Duel.LoadScript("c81000000.lua")
-function cm.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,m)
-	e1:SetTarget(cm.sptg)
-	e1:SetOperation(cm.spop)
-	c:RegisterEffect(e1)
-	--summon
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_SUMMON)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,m)
-	e3:SetCost(cm.cost)
-	e3:SetTarget(cm.target)
-	e3:SetOperation(cm.operation)
-	c:RegisterEffect(e3)
-end
-function cm.spfilter(c)
-	return c:IsFaceup() and c:IsSummonType(SUMMON_TYPE_ADVANCE)
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.spfilter(chkc) end
-	local c=e:GetHandler()
-	if chk==0 then return Duel.IsExistingTarget(cm.spfilter,tp,LOCATION_MZONE,0,1,nil)
-		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,1))
-	Duel.SelectTarget(tp,cm.spfilter,tp,LOCATION_MZONE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsImmuneToEffect(e) then return end
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		e1:SetValue(1)
-		tc:RegisterEffect(e1)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-		e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		e2:SetValue(1)
-		tc:RegisterEffect(e2)
-	end
-end
-function cm.cfilter(c)
-	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemoveAsCost()
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function cm.filter(c)
-	return c:IsLevelAbove(5) and c:IsSummonable(true,nil)
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
-end
-function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
-	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.Summon(tp,tc,true,nil)
-	end
-end

expansions/script/c81057006.lua

---水晶艾蕾娜·断罪
-local m=81057006
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_RELEASE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
-	e1:SetCondition(cm.spcon)
-	e1:SetTarget(cm.sptg)
-	e1:SetOperation(cm.spop)
-	c:RegisterEffect(e1)
-	--tribute summon
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_SUMMON)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetHintTiming(0,TIMING_BATTLE_START+TIMING_BATTLE_END)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,m)
-	e2:SetCondition(cm.sumcon)
-	e2:SetTarget(cm.sumtg)
-	e2:SetOperation(cm.sumop)
-	c:RegisterEffect(e2)
-	--
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_RELEASE)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_RELEASE)
-	e3:SetCountLimit(1,m+900)
-	e3:SetCondition(cm.con)
-	e3:SetTarget(cm.tg)
-	e3:SetOperation(cm.op)
-	c:RegisterEffect(e3)
-end
-function cm.spcfilter(c,tp)
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp and c:IsReason(REASON_SUMMON)
-end
-function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return not eg:IsContains(e:GetHandler()) and eg:IsExists(cm.spcfilter,1,nil,tp)
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	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 c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-		Duel.Hint(HINT_MUSIC,0,aux.Stringid(81019004,0))
-	end
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	e1:SetTargetRange(1,0)
-	Duel.RegisterEffect(e1,tp)
-end
-function cm.sumcon(e,tp,eg,ep,ev,re,r,rp)
-	return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)
-end
-function cm.sumfilter(c)
-	return c:IsSummonable(true,nil,1)
-end
-function cm.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.sumfilter,tp,LOCATION_HAND,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
-end
-function cm.sumop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
-	local g=Duel.SelectMatchingCard(tp,cm.sumfilter,tp,LOCATION_HAND,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.Summon(tp,tc,true,nil,1)
-	end
-end
-function cm.con(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsReason(REASON_SUMMON)
-end
-function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsReleasable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	local g=Duel.GetMatchingGroup(Card.IsReleasable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
-	Duel.SetOperationInfo(0,CATEGORY_RELEASE,g,1,0,0)
-end
-function cm.op(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=Duel.SelectMatchingCard(tp,Card.IsReleasable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoGrave(g,REASON_EFFECT+REASON_RELEASE)
-	end
-end

expansions/script/c81057007.lua

---水晶艾蕾娜·纸飞机
-local m=81057007
-local cm=_G["c"..m]
-Duel.LoadScript("c81000000.lua")
-function cm.initial_effect(c)
-	--summon proc
-	local e0=Effect.CreateEffect(c)
-	e0:SetDescription(aux.Stringid(m,0))
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SUMMON_PROC)
-	e0:SetCondition(cm.sumcon)
-	e0:SetOperation(cm.sumop)
-	e0:SetValue(SUMMON_TYPE_ADVANCE)
-	c:RegisterEffect(e0)
-	--disable effect
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_SOLVING)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetOperation(cm.disop)
-	c:RegisterEffect(e1)
-	--destroy
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,m)
-	e2:SetCondition(cm.descon)
-	e2:SetTarget(cm.destg)
-	e2:SetOperation(cm.desop)
-	c:RegisterEffect(e2)
-end
-function cm.refil(c)
-	return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_FUSION)
-end
-function cm.sumcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return   Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
-end
-function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
-	local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function cm.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_REMOVED and re:IsActiveType(TYPE_MONSTER) then
-		Duel.NegateEffect(ev)
-	end
-end
-function cm.descon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
-end
-function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetMatchingGroup(Card.IsType,tp,0,LOCATION_ONFIELD,nil,TYPE_SPELL+TYPE_TRAP)
-	if chk==0 then return #g>0 end
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
-end
-function cm.desop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectMatchingCard(tp,Card.IsType,tp,0,LOCATION_ONFIELD,1,2,nil,TYPE_SPELL+TYPE_TRAP)
-	if g:GetCount()>0 then
-		Duel.HintSelection(g)
-		Duel.Destroy(g,REASON_EFFECT)
-	end
-end

expansions/script/c81057008.lua

---水晶艾蕾娜·青梅
-local m=81057008
-local cm=_G["c"..m]
-Duel.LoadScript("c81000000.lua")
-function cm.initial_effect(c)
-	--summon proc
-	local e0=Effect.CreateEffect(c)
-	e0:SetDescription(aux.Stringid(m,0))
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SUMMON_PROC)
-	e0:SetCondition(cm.sumcon)
-	e0:SetOperation(cm.sumop)
-	e0:SetValue(SUMMON_TYPE_ADVANCE)
-	c:RegisterEffect(e0)
-	--disable effect
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_SOLVING)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetOperation(cm.disop)
-	c:RegisterEffect(e1)
-	--destroy
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,m)
-	e2:SetCondition(cm.spcon)
-	e2:SetTarget(cm.sptg)
-	e2:SetOperation(cm.spop)
-	c:RegisterEffect(e2)
-end
-function cm.refil(c)
-	return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_SYNCHRO)
-end
-function cm.sumcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return   Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
-end
-function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
-	local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function cm.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_REMOVED and re:IsActiveType(TYPE_MONSTER) then
-		Duel.NegateEffect(ev)
-	end
-end
-function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
-end
-function cm.spfilter(c,e,tp)
-	return c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_DARK) 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,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)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
-end

expansions/script/c81057009.lua

---水晶艾蕾娜·无意义
-local m=81057009
-local cm=_G["c"..m]
-Duel.LoadScript("c81000000.lua")
-function cm.initial_effect(c)
-	--summon proc
-	local e0=Effect.CreateEffect(c)
-	e0:SetDescription(aux.Stringid(m,0))
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SUMMON_PROC)
-	e0:SetCondition(cm.sumcon)
-	e0:SetOperation(cm.sumop)
-	e0:SetValue(SUMMON_TYPE_ADVANCE)
-	c:RegisterEffect(e0)
-	--disable effect
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_SOLVING)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetOperation(cm.disop)
-	c:RegisterEffect(e1)
-	--destroy
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,m)
-	e2:SetCondition(cm.thcon)
-	e2:SetTarget(cm.thtg)
-	e2:SetOperation(cm.thop)
-	c:RegisterEffect(e2)
-end
-function cm.refil(c)
-	return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_XYZ)
-end
-function cm.sumcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return   Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
-end
-function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
-	local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function cm.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_REMOVED and re:IsActiveType(TYPE_MONSTER) then
-		Duel.NegateEffect(ev)
-	end
-end
-function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
-end
-function cm.thfilter(c)
-	return c:IsLevelAbove(5) and c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_DARK) 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/strings.conf

@@ -1184,7 +1184,6 @@
 !setname 0x5dab 大械鬼
 !setname 0x6dab 晶生花
 !setname 0x9dab 拘灵警差
-!setname 0xcdab 千幻曲
 !setname 0x6dac 神魔
 !setname 0x9dac 仙石守护灵
 !setname 0x3dad 灾兽
@@ -1208,9 +1207,9 @@
 #AddCodeList(c,65710000) 万象笔记卡名记述
 
 #乳主份子 858329915 658 0xa30-0xa3f
+#【2025年6月30日前禁止投稿】
 !setname 0xa31 盛夏回忆
 !setname 0xa32 工坊武器
-!setname 0xa33 植物娘
 
 #今晚有宵夜吗 3080579137 666 0x660-0x66f
 !setname 0x5660 百鬼夜行