ndyd

.gitlab-ci.yml

@@ -5,7 +5,7 @@ stages:
 variables:
   GIT_DEPTH: "1"
   LAST_UPDATE_DATE: "2021.8.23"
-  CURRENT_UPDATE_DATE: "2021.8.24"
+  CURRENT_UPDATE_DATE: "2021.9.5"
 
 redtext:
   stage: prepare

expansions/lflist.conf

@@ -670,10 +670,10 @@
 26801004 0 --樱木真乃的卡拉OK
 26801005 1 --樱木真乃的读书之秋
 26801009 1 --樱木真乃的小礼物
-26803002 1 --真实的一瞬
-26803023 1 --水之未眠
 26805007 1 --西京夏日约会
 26805014 0 --哥特风·杜野凛世
+26807002 1 --真实的一瞬
+26807023 1 --水之未眠
 26812001 1 --缭花绚烂
 26818008 1 --命运的指引 卡维
 26818011 1 --全力竞速 抚子
@@ -696,7 +696,6 @@
 30005020 1 --心哀想
 30005030 1 --懵懂的暗芽
 30010010 0 --超量唤读器
-30013020 2 --深土看守者 花鸟龙 普拉库利
 #305
 30553001 1 --异械教国 护卫兵械
 30553003 0 --异械教国 运输兵械
@@ -910,7 +909,6 @@
 33502413 0 --青空之羽 伊雷娜
 33502705 0 --灵祟 来自暗处的深情
 33502722 0 --灵祟 凄
-33502906 0 --情感的思索
 #337
 33700028 0 --Proto-Protoform
 33700036 0 --Protoform 咲夜
@@ -1005,7 +1003,6 @@
 37564914 1 --Sayuri & 3L
 #379
 37900017 1 --不明的魔法之元
-37901000 0 --天上人间音何在
 #400
 40006881 0 --JOKER-一人千面
 40008460 0 --时刻兽·秘央龙·机妙

expansions/script/c26800011.lua

---bloom into a beauty
-function c26800011.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,26800011+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(c26800011.cost)
-	e1:SetTarget(c26800011.target)
-	e1:SetOperation(c26800011.activate)
-	c:RegisterEffect(e1)
-	Duel.AddCustomActivityCounter(26800011,ACTIVITY_SUMMON,c26800011.counterfilter)
-	Duel.AddCustomActivityCounter(26800011,ACTIVITY_SPSUMMON,c26800011.counterfilter)
-	Duel.AddCustomActivityCounter(26800011,ACTIVITY_FLIPSUMMON,c26800011.counterfilter)
-	Duel.AddCustomActivityCounter(26800011,ACTIVITY_CHAIN,c26800011.chainfilter)
-end
-function c26800011.chainfilter(re,tp,cid)
-	return not re:IsActiveType(TYPE_MONSTER)
-end
-function c26800011.counterfilter(c)
-	return not c:IsType(TYPE_EFFECT)
-end
-function c26800011.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetCustomActivityCount(26800011,tp,ACTIVITY_SUMMON)==0
-		and Duel.GetCustomActivityCount(26800011,tp,ACTIVITY_SPSUMMON)==0 
-		and Duel.GetCustomActivityCount(26800011,tp,ACTIVITY_FLIPSUMMON)==0 and Duel.GetCustomActivityCount(26800011,tp,ACTIVITY_CHAIN)==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(c26800011.sumlimit)
-	Duel.RegisterEffect(e1,tp)
-	local e2=e1:Clone()
-	e2:SetCode(EFFECT_CANNOT_SUMMON)
-	Duel.RegisterEffect(e2,tp)
-	local e3=e1:Clone()
-	e3:SetCode(EFFECT_CANNOT_FLIP_SUMMON)
-	Duel.RegisterEffect(e3,tp)
-	local e4=Effect.CreateEffect(e:GetHandler())
-	e4:SetType(EFFECT_TYPE_FIELD)
-	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
-	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e4:SetTargetRange(1,0)
-	e4:SetValue(c26800011.aclimit)
-	e4:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e4,tp)
-end
-function c26800011.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
-	return c:IsType(TYPE_EFFECT)
-end
-function c26800011.aclimit(e,re,tp)
-	return re:IsActiveType(TYPE_MONSTER)
-end
-function c26800011.filter0(c)
-	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove()
-end
-function c26800011.filter1(c,e)
-	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
-end
-function c26800011.filter2(c,e,tp,m,f,chkf)
-	return c:IsType(TYPE_FUSION) and not c:IsType(TYPE_EFFECT) and (not f or f(c))
-		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
-end
-function c26800011.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then
-		local chkf=tp
-		local mg1=Duel.GetMatchingGroup(c26800011.filter0,tp,LOCATION_GRAVE+LOCATION_HAND,0,nil)
-		local res=Duel.IsExistingMatchingCard(c26800011.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
-		if not res then
-			local ce=Duel.GetChainMaterial(tp)
-			if ce~=nil then
-				local fgroup=ce:GetTarget()
-				local mg2=fgroup(ce,e,tp)
-				local mf=ce:GetValue()
-				res=Duel.IsExistingMatchingCard(c26800011.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
-			end
-		end
-		return res
-	end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND)
-end
-function c26800011.activate(e,tp,eg,ep,ev,re,r,rp)
-	local chkf=tp
-	local mg1=Duel.GetMatchingGroup(c26800011.filter1,tp,LOCATION_GRAVE+LOCATION_HAND,0,nil,e)
-	local sg1=Duel.GetMatchingGroup(c26800011.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
-	local mg2=nil
-	local sg2=nil
-	local ce=Duel.GetChainMaterial(tp)
-	if ce~=nil then
-		local fgroup=ce:GetTarget()
-		mg2=fgroup(ce,e,tp)
-		local mf=ce:GetValue()
-		sg2=Duel.GetMatchingGroup(c26800011.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
-	end
-	if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
-		local sg=sg1:Clone()
-		if sg2 then sg:Merge(sg2) end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local tg=sg:Select(tp,1,1,nil)
-		local tc=tg:GetFirst()
-		if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
-			local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
-			tc:SetMaterial(mat1)
-			Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
-			Duel.BreakEffect()
-			Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
-		else
-			local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
-			local fop=ce:GetOperation()
-			fop(ce,e,tp,tc,mat2)
-		end
-		tc:CompleteProcedure()
-		local c=e:GetHandler()
-		local e0=Effect.CreateEffect(c)
-		e0:SetType(EFFECT_TYPE_SINGLE)
-		e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-		e0:SetRange(LOCATION_MZONE)
-		e0:SetCode(EFFECT_IMMUNE_EFFECT)
-		e0:SetValue(c26800011.efilter)
-		e0:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e0)
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_FIELD)
-		e1:SetCode(EFFECT_CANNOT_ACTIVATE)
-		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-		e1:SetRange(LOCATION_MZONE)
-		e1:SetTargetRange(1,0)
-		e1:SetValue(c26800011.sactlimit)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e1,true)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_FIELD)
-		e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-		e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-		e2:SetRange(LOCATION_MZONE)
-		e2:SetAbsoluteRange(tp,1,0)
-		e2:SetTarget(c26800011.ssplimit)
-		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e2,true)
-	end
-end
-function c26800011.efilter(e,te)
-	return te:GetOwner()~=e:GetOwner()
-end
-function c26800011.ssplimit(e,c)
-	return c:IsType(TYPE_EFFECT)
-end
-function c26800011.sactlimit(e,re,rp)
-	local rc=re:GetHandler()
-	return re:IsActiveType(TYPE_MONSTER)
-end

expansions/script/c26800017.lua

---Summer for Us
-local m=26800017
-local cm=_G["c"..m]
-Duel.LoadScript("c81000000.lua")
-function cm.initial_effect(c)
-	aux.AddCodeList(c,81000000)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCondition(cm.spcon)
-	e1:SetTarget(cm.sptg)
-	e1:SetOperation(cm.spop)
-	c:RegisterEffect(e1)
-	--Activate
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_ACTIVATE)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetCondition(cm.sscon)
-	e2:SetTarget(cm.sstg)
-	e2:SetOperation(cm.ssop)
-	c:RegisterEffect(e2)
-end
-function cm.spcfilter(c)
-	return c:IsFaceup() and c:IsCode(81011000)
-end
-function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(cm.spcfilter,tp,LOCATION_ONFIELD,0,1,nil)
-end
-function cm.spfilter(c,e,tp)
-	return c:IsCode(81000000) 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_DECK+LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+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.spfilter,tp,LOCATION_DECK+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
-function cm.sscfilter(c)
-	return c:IsFaceup() and c:IsCode(81000000)
-end
-function cm.sscon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(cm.sscfilter,tp,LOCATION_ONFIELD,0,1,nil)
-end
-function cm.ssfilter(c,e,tp)
-	return c:IsCode(81011000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.sstg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(cm.ssfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
-end
-function cm.ssop(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.ssfilter,tp,LOCATION_DECK+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

expansions/script/c26802000.lua

---苍之回响
-local m=26802000
-local cm=_G["c"..m]
-Duel.LoadScript("c26800000.lua")
-function cm.initial_effect(c)
-	aux.AddRitualProcGreater2(c,cm.ritual_filter)
-end
-function cm.ritual_filter(c)
-	return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_MONSTER)
-end
\ No newline at end of file

expansions/script/c26802003.lua

---夏花女仆
-local m=26802003
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	aux.AddCodeList(c,81010004)
-	--link summon
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkAttribute,ATTRIBUTE_WIND),2,2)
-	c:EnableReviveLimit()
-	--tohand
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,m)
-	e1:SetCost(cm.thcost)
-	e1:SetTarget(cm.thtg)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	--special summon
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,m+900)
-	e2:SetCost(cm.cost)
-	e2:SetTarget(cm.sptg)
-	e2:SetOperation(cm.spop)
-	c:RegisterEffect(e2)
-	Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
-end
-function cm.counterfilter(c)
-	return c:IsAttribute(ATTRIBUTE_WIND)
-end
-function cm.cost(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:SetLabelObject(e)
-	e1:SetTarget(cm.splimit)
-	Duel.RegisterEffect(e1,tp)
-end
-function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
-	return not c:IsAttribute(ATTRIBUTE_WIND)
-end
-function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) and cm.cost(e,tp,eg,ep,ev,re,r,rp,0) end
-	cm.cost(e,tp,eg,ep,ev,re,r,rp,1)
-	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
-end
-function cm.thfilter(c,thchk)
-	return (c:IsCode(81010004) or aux.IsCodeListed(c,81010004) or (thchk and c:IsAttribute(ATTRIBUTE_WIND))) and c:IsAbleToHand()
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local thchk=Duel.IsEnvironment(81010004)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil,thchk) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	local thchk=Duel.IsEnvironment(81010004)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,thchk)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end
-function cm.chfilter(c,tp)
-	return c:IsFaceup() and c:IsCode(81010004) and c:IsAbleToHand() and Duel.GetMZoneCount(tp,c)>0
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and cm.chfilter(chkc,tp) end
-	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
-		and Duel.IsExistingTarget(cm.chfilter,tp,LOCATION_ONFIELD,0,1,nil,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
-	local g=Duel.SelectTarget(tp,cm.chfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
-	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()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) and c:IsRelateToEffect(e) then 
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end

expansions/script/c26802013.lua

---死亡前兆
-function c26802013.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCondition(c26802013.condition)
-	c:RegisterEffect(e1)
-	--disable
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetRange(LOCATION_SZONE)
-	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
-	e2:SetTarget(c26802013.disable)
-	e2:SetCode(EFFECT_DISABLE)
-	c:RegisterEffect(e2)
-end
-function c26802013.disable(e,c)
-	return c:IsSummonType(SUMMON_TYPE_NORMAL)
-end
-function c26802013.cfilter(c)
-	return c:IsFacedown() and c:GetSequence()<5
-end
-function c26802013.condition(e,tp,eg,ep,ev,re,r,rp)
-	return not Duel.IsExistingMatchingCard(c26802013.cfilter,tp,LOCATION_SZONE,0,1,e:GetHandler())
-end
\ No newline at end of file

expansions/script/c26802020.lua

---云之未眠
-local m=26802020
-local cm=_G["c"..m]
-function cm.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:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL+EFFECT_COUNT_CODE_OATH)
-	e1:SetCondition(cm.condition)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-end
-function cm.condition(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetCurrentPhase()==PHASE_MAIN1 and not Duel.CheckPhaseActivity()
-		and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
-		and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0
-end
-function cm.spfilter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local og=Duel.GetOverlayGroup(tp,0,1)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and og:IsExists(cm.spfilter,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_OVERLAY)
-	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
-		Duel.SetChainLimit(aux.FALSE)
-	end
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	local og=Duel.GetOverlayGroup(tp,0,1)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	local g=og:Filter(cm.spfilter,nil,e,tp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local tc=g:Select(tp,1,1,nil):GetFirst()
-	if tc then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
-		if tc:GetOwner()==tp and Duel.GetOverlayCount(tp,0,1)~=0 then
-			local og=Duel.GetOverlayGroup(tp,0,1)
-			Duel.SendtoGrave(og,REASON_EFFECT)
-		end
-	end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	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)
-	e1:SetTarget(cm.sumlimit)
-	Duel.RegisterEffect(e1,tp)
-	local e2=e1:Clone()
-	e2:SetCode(EFFECT_CANNOT_SUMMON)
-	Duel.RegisterEffect(e2,tp)
-	local e3=Effect.CreateEffect(e:GetHandler())
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e3:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e3:SetTargetRange(1,0)
-	e3:SetValue(cm.aclimit)
-	e3:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e3,tp)
-end
-function cm.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
-	return c:IsType(TYPE_XYZ)
-end
-function cm.aclimit(e,re,tp)
-	return re:IsActiveType(TYPE_XYZ)
-end

expansions/script/c26802021.lua

---晓之未眠
-local m=26802021
-local cm=_G["c"..m]
-Duel.LoadScript("c81000000.lua")
-function cm.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL+EFFECT_COUNT_CODE_OATH)
-	e1:SetCondition(cm.condition)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-end
-function cm.condition(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetCurrentPhase()==PHASE_MAIN1 and not Duel.CheckPhaseActivity()
-		and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
-		and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0
-end
-function cm.filter(c)
-	return c:GetCounter(0)~=0
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
-		Duel.SetChainLimit(aux.FALSE)
-	end
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	local sg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
-	local tc=sg:GetFirst()
-	local count=0
-	while tc do
-		count=count+tc:GetCounter(0x100e)
-		tc:RemoveCounter(tp,0,0,0)
-		tc=sg:GetNext()
-	end
-	if count>0 then
-		Duel.RaiseEvent(e:GetHandler(),EVENT_REMOVE_COUNTER+0x100e,e,REASON_EFFECT,tp,tp,count)
-	end
-	if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then return end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CANNOT_PLACE_COUNTER)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
-	e1:SetReset(RESET_SELF_TURN+RESET_PHASE+PHASE_END,3)
-	e1:SetTargetRange(1,1)
-	Duel.RegisterEffect(e1,tp)
-end

expansions/script/c26802022.lua

---花之未眠
-local m=26802022
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL+EFFECT_COUNT_CODE_OATH)
-	e1:SetCondition(cm.condition)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-end
-function cm.condition(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetCurrentPhase()==PHASE_MAIN1 and not Duel.CheckPhaseActivity()
-		and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
-		and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)
-	if chk==0 then return ct>0 and Duel.IsPlayerCanDraw(tp,ct) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct)
-	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
-		Duel.SetChainLimit(aux.FALSE)
-	end
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
-	local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)
-	Duel.Draw(p,ct,REASON_EFFECT)
-	if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then return end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CANNOT_DRAW)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetTargetRange(1,0)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end