upd 231119

expansions/lflist.conf

@@ -3045,7 +3045,6 @@
 25000404 0
 33701420 0
 33701505 1
-40009386 0
 60000014 0
 60000015 0
 #220710
@@ -8986,7 +8985,6 @@
 40009322 1
 40009340 1
 40009385 0
-40009386 0
 40009389 0
 40009391 1
 40009398 0

expansions/script/c11451485.lua

@@ -170,7 +170,7 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 		local sg=g:SelectSubGroup(tp,aux.dncheck,false,2,2)
 		Duel.ConfirmCards(1-tp,sg)
 		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND)
-		local tg=sg:Select(1-tp,1,1,nil)
+		local tg=sg:RandomSelect(1-tp,1,1,nil)
 		sg:Sub(tg)
 		Duel.SendtoHand(tg,nil,REASON_EFFECT)
 		if e:GetHandler():IsRelateToEffect(e) then Duel.Overlay(e:GetHandler(),sg) end

expansions/script/c11451908.lua

@@ -163,7 +163,7 @@ function cm.scop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.RegisterEffect(e3,tp)
 end
 function cm.cfilter(c,tp)
-	return (c:IsType(TYPE_FIELD) or (c:GetType()&0x20004==0x20004 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0)) and not c:IsForbidden() and c:CheckUniqueOnField(tp)
+	return (c:IsType(TYPE_FIELD) or ((c:IsType(TYPE_CONTINUOUS) or c:IsHasEffect(EFFECT_REMAIN_FIELD)) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0)) and not c:IsForbidden() and c:CheckUniqueOnField(tp)
 end
 function cm.costcon(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetTurnCount()==e:GetLabel()+1

expansions/script/c11451910.lua

+--“由一瞬所积聚的一生”
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--sp
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetOperation(cm.reop)
+	c:RegisterEffect(e2)
+	if not cm.global_check then
+		cm.global_check=true
+		for i=0,6 do
+			cm[1<<i]=0
+		end
+		local ge0=Effect.CreateEffect(c)
+		ge0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge0:SetCode(EVENT_LEAVE_DECK)
+		ge0:SetOperation(cm.regop)
+		Duel.RegisterEffect(ge0,0)
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_PHASE_START+PHASE_DRAW)
+		ge1:SetOperation(cm.clear)
+		Duel.RegisterEffect(ge1,0)
+	end
+end
+function cm.filter(c)
+	local re=c:GetReasonEffect()
+	if not (c:IsType(TYPE_MONSTER) and not c:IsStatus(STATUS_TO_HAND_WITHOUT_CONFIRM) and re) then return false end
+	local rc=re:GetOwner()
+	return rc:IsOriginalSetCard(0xc976) and rc:GetOriginalType()&0x1>0
+end
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+	local g=eg:Filter(cm.filter,nil)
+	if not Duel.GetFlagEffectLabel(0,m) then Duel.RegisterFlagEffect(0,m,RESET_PHASE+PHASE_END,0,1) end
+	for tc in aux.Next(g) do
+		Duel.SetFlagEffectLabel(0,m,Duel.GetFlagEffectLabel(0,m)|tc:GetAttribute())
+	end
+end
+function cm.clear(e,tp,eg,ep,ev,re,r,rp)
+	for i=0,6 do
+		cm[1<<i]=0
+	end
+end
+function cm.mfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x44f)
+end
+function cm.afilter(c,e,tp,attr)
+	return c:GetAttribute()~=attr and c:IsSetCard(0xc976) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.reop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not re:IsActiveType(TYPE_MONSTER) then return end
+	local mg=Duel.GetMatchingGroup(cm.mfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
+	local _,ct=mg:GetMaxGroup(Card.GetTurnCounter)
+	local ct=ct or 0
+	local rc=re:GetHandler()
+	local attr=rc:GetAttribute()
+	local b2=false
+	for i=0,6 do
+		if attr&(1<<i)>0 and cm[1<<i]>ct then return end
+		if attr&(1<<i)>0 and Duel.GetFlagEffectLabel(0,m) and Duel.GetFlagEffectLabel(0,m)&(1<<i)>0 then b2=Duel.IsChainDisablable(ev) end
+	end
+	local g=Duel.GetMatchingGroup(cm.afilter,tp,LOCATION_DECK,0,nil,e,tp,attr)
+	if #g==0 and not b2 then return end
+	local off=1
+	local ops={}
+	local opval={}
+	if #g>0 then
+		ops[off]=aux.Stringid(m,0)
+		opval[off-1]=1
+		off=off+1
+	end
+	if b2 then
+		ops[off]=aux.Stringid(m,1)
+		opval[off-1]=2
+		off=off+1
+	end
+	ops[off]=aux.Stringid(m,2)
+	opval[off-1]=3
+	Duel.HintSelection(Group.FromCards(c))
+	local op=Duel.SelectOption(tp,table.unpack(ops))
+	if opval[op]<=2 then
+		for i=0,6 do
+			if attr&(1<<i)>0 then
+				cm[1<<i]=cm[1<<i]+1
+				c:RegisterFlagEffect(0,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,i+3))
+			end
+		end
+	end
+	if opval[op]==1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		g=g:Select(tp,1,1,nil)
+		if #g>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0 then
+			g:GetFirst():RegisterFlagEffect(m,RESET_CHAIN,0,1)
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_CANNOT_TRIGGER)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetCondition(function() return ev==Duel.GetCurrentChain() end)
+			e1:SetValue(function(e,te) return te:GetCode()==EVENT_CHAINING and te:IsHasType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_QUICK_F) end)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_CHAIN)
+			g:GetFirst():RegisterEffect(e1)
+			local e6=Effect.CreateEffect(c)
+			e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e6:SetCode(EVENT_CHAIN_SOLVED)
+			e6:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+			e6:SetLabelObject(g:GetFirst())
+			e6:SetCondition(cm.descon)
+			e6:SetOperation(cm.desop)
+			e6:SetReset(RESET_CHAIN)
+			Duel.RegisterEffect(e6,tp)
+			local e7=e6:Clone()
+			e7:SetCode(EVENT_CHAIN_NEGATED)
+			Duel.RegisterEffect(e7,tp)
+		end
+	elseif opval[op]==2 then
+		Duel.NegateEffect(ev)
+	end
+end
+function cm.descon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffect(m)~=0 then
+		return Duel.GetCurrentChain()==1
+	else
+		e:Reset()
+		return false
+	end
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c11610000.lua

+fpjdiy={}
+zhc_lhq_xw='统御群星的至高至上之神||于星云辉灿之处割裂昏晓，以无匹的伟力制裁邪恶！||群星的君王！龙辉巧-仙王流星=CEP！光临！！'
+zhc_lhq_xw_1='暗淡的星，再次开始闪烁'
+zhc_lhq_xw_2='无数的光辉合而为一，现在，我们可吞噬万物'
+zhc_lhq_tx='隐匿于星辰晦暗之处，且以光明为饵||行绝命之构陷藏于，螯针之中的猛毒！||龙仪巧-天蝎流星=SCO！光临！！'
+zhc_lhq_lh='以猎弓射落煌煌大日，栖身于星云璀璨之地||以流星击坠来犯之敌！||龙仪巧-猎户流星=QRI！光临！'
+zhc_lhq_by='着无暇之毫庇护良善||以星之荣光救赎灾厄，化作永恒闪耀的新星！||龙仪巧-白羊流星=ARI！光临！！'
+zhc_lhq_mj='足踏暗夜的仁君||以光明之锋芒划破黑暗，将希望播撒至宇宙的尽头！||龙仪巧-摩羯流星=CAP！光临！！'
+zhc_lhq_ss='承群星之荣冕者||以智慧之光染尽黑暗，将永恒的深邃化作璀璨的星光！||龙仪巧-射手流星=SAG！光临！！'
+zhc_lhq_cn='幽深黑暗中潜形的冥后||待回归广袤星空之时，此处必然群星闪耀！||龙仪巧-处女流星=AIR！光临！！'
+zhc_lhq_tc='端居于星辰正位之处||将群星的正义贯彻执行，以光明制衡黑暗！||龙仪巧-天秤流星=LIB！光临！！'
+zhc_lhq_tq='于希望聚集的天穹之上奏响正义的凯歌||琴音所至邪恶无所遁形，以圣乐击破所有污秽！||龙仪巧-天琴流星=LYR！光临！！'
+zhc_lhq_sp='宇宙中如梦似幻的伟岸身姿||于黑暗之中散发希望之光！||龙仪巧-水瓶流星=AOU！光临！！'
+zhc_lhq_zs='霸揽星图的无双霸者||以无穷的伟力击退邪恶，应群星的誓约战至黑暗散却！||龙仪巧-狮子流星=LEO！光临！！'
+zhc_lhq_sz='星空中身形飘渺的双子星||为迷途之人指明前路！||龙仪巧-双子流星=GEM！光临！！'
+zhc_lhq_xy='执掌星图的无上存在||以雄姿威慑邪恶，此刻正是群星闪耀之时！||龙仪巧-仙英流星=PER！光临！！'
+zhc_lhq_jn='追随光明之后的使者||为世界带来新生的黎明，为邪恶送上终结的丧钟！||龙仪巧-金牛流星=TAU！光临！！'
+zhc_lhq_jx='以巨螯牵制混沌，以伟躯散播光明||光明与希望的支配者在此显现！||龙仪巧-巨蟹流星=CAN！光临！！'
+zhc_lhq_sy='于无尽的星图间穿梭跳跃，群星的观测者||以全知全视之眼洞悉黑暗所在，以光影斑斓之翼引导光明！||龙仪巧-双鱼流星=PIS！光临！！'
+zhc_lhq_xx='跨越千年时光的两道光芒于此交辉||以永恒闪耀的极北之光制裁邪恶！||龙仪巧-小熊流星=URS——光临！！'
+zhc_lhq_fh='自堙灭之处降诞的流星||割断星空的明晦，将无尽星图浇作烈火吧！||龙仪巧-凤凰流星=PHO——光临！！'
+zhc_lhq_cw='拨动星迹的远航之帆||开赴广袤宇宙之外的无限混沌，将光明染尽黑暗吧！||龙仪巧-船尾流星=PUP——光临！！'
+zhc_lhq_ql='如利刃般以光芒闪爆黑暗||栖身于群星闪耀之所的至仁，让光明洒遍大地！||龙仪巧-麒麟流星=MON——光临！！'
+zhc_lhq_dp='持星辉之力守护此方||屹立于星图之上的至古存在，不朽无败，||龙仪巧-盾牌流星=SCU——光临！！'
+zhc_lhq_fm='于常暗崩灭处诞临||以光翼制裁黑暗，将星辉遍洒银河！||龙仪巧-飞马流星=PEG——光临！！'
+zhc_lhq_jy='统御极天与邃渊的巨兽||其息仿若星云，其辉仿若恒星！||龙仪巧-鲸鱼流星=CET——光临！！'
+zhc_lhq_wx='以力制胜，征服诸天的无上霸者||以星辰崩摧之伟力摇撼宇宙！||龙仪巧-武仙流星=HER——光临！！'
+zhc_lhq_wx_2='「这恐怕是乳海」'
+zhc_lhq_wy='恒星之主的使徒||散布欺瞒一切都谎言，为万物染上悲剧的色彩吧！||龙仪巧-乌鸦流星=COR——光临！！'
+
+--
+--召唤词函数，传入card和文本，用 | 换行
+function fpjdiy.Zhc(c,text)
+	local e99=Effect.CreateEffect(c)
+	e99:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e99:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e99:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e99:SetCondition(fpjdiy.skipcon)
+	e99:SetOperation(fpjdiy.skipop(text))
+	c:RegisterEffect(e99)
+	return e99
+end
+function fpjdiy.skipcon(e,tp,eg,ep,ev,re,r,rp)
+	return fpjdiy.isNormalSpecialSummoned(e:GetHandler())
+end
+function fpjdiy.skipop(text)
+	return function(e,tp,eg,ep,ev,re,r,rp)
+			return fpjdiy.printLines(text)
+		--if not c:IsRelateToEffect(e) then return end
+		--if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then func(e,tp) end
+	end
+end
+--检测是否为正规特招出场
+function fpjdiy.isNormalSpecialSummoned(card)
+	local summonType = card:GetSummonType()
+	local cardType = card:GetType()
+	if summonType == SUMMON_TYPE_NORMAL and bit.band(cardType, TYPE_MONSTER) ~= 0 then
+		return true
+	elseif summonType == SUMMON_TYPE_RITUAL and bit.band(cardType, TYPE_RITUAL) ~= 0 then
+		return true
+	elseif summonType == SUMMON_TYPE_FUSION and bit.band(cardType, TYPE_FUSION) ~= 0 then
+		return true
+	elseif summonType == SUMMON_TYPE_SYNCHRO and bit.band(cardType, TYPE_SYNCHRO) ~= 0 then
+		return true
+	elseif summonType == SUMMON_TYPE_XYZ and bit.band(cardType, TYPE_XYZ) ~= 0 then
+		return true
+	elseif summonType == SUMMON_TYPE_LINK and bit.band(cardType, TYPE_LINK) ~= 0 then
+		return true
+	elseif card:IsCode(11612634) then
+		return true
+	else
+		return false
+	end
+end
+--检测是否为正规特招出场
+function fpjdiy.splitString(inputString, separator)
+	local result = {}
+	local i = 1
+	for str in string.gmatch(inputString, "([^" .. separator .. "]+)") do
+		result[i] = str
+		i = i + 1
+	end
+	return result
+end
+
+function fpjdiy.printLines(inputString)
+	local lines = fpjdiy.splitString(inputString, "||")
+	for i, line in ipairs(lines) do
+		Debug.Message(line)
+	end
+end
+

expansions/script/c11612639.lua

@@ -38,7 +38,7 @@ function c11612639.initial_effect(c)
 	e2:SetTargetRange(0,1)
 	c:RegisterEffect(e2)
 --sucai
-	local e3=Effect.CreateEffect(c)
+	--[[local e3=Effect.CreateEffect(c)
 	e3:SetDescription(aux.Stringid(11612639,1))
 	e3:SetType(EFFECT_TYPE_QUICK_O)
 	e3:SetCode(EVENT_FREE_CHAIN)
@@ -49,7 +49,7 @@ function c11612639.initial_effect(c)
 	e3:SetCondition(c11612639.xyzcon)
 	e3:SetTarget(c11612639.xyztg)
 	e3:SetOperation(c11612639.xyzop)
-	c:RegisterEffect(e3)
+	c:RegisterEffect(e3)--]]
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
 	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
@@ -57,6 +57,17 @@ function c11612639.initial_effect(c)
 	e3:SetCondition(c11612639.matcon)
 	e3:SetOperation(c11612639.matop)
 	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCode(EFFECT_SEND_REPLACE)
+	e4:SetCondition(c11612639.xyzcon)
+	e4:SetTarget(c11612639.reptg)
+	e4:SetValue(c11612639.repval)
+	c:RegisterEffect(e4)
+	local g=Group.CreateGroup()
+	g:KeepAlive()
+	e4:SetLabelObject(g)
 	e0:SetLabelObject(e3)
 --Activate
 	local e1=Effect.CreateEffect(c)
@@ -70,6 +81,72 @@ function c11612639.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 
+function c11612639.repfilter(c,tp)
+	return c:GetOwner()==1-tp and c:GetDestination()==LOCATION_GRAVE and c:GetLeaveFieldDest()==0 and c:IsReason(REASON_DESTROY)
+end
+function c11612639.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return eg:IsExists(c11612639.repfilter,1,nil,tp) end
+	if 1==1 then
+		local container=e:GetLabelObject()
+		container:Clear()
+		local g=eg:Filter(c11612639.repfilter,nil,tp)
+		local tc=g:GetFirst()
+		while tc do
+			tc:RegisterFlagEffect(11612639,RESET_EVENT+0x1fe0000-RESET_TOHAND-RESET_TODECK-RESET_LEAVE+RESET_PHASE+PHASE_END,0,1)
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_ADD_SETCODE)
+			e1:SetValue(0x154)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOHAND-RESET_TODECK-RESET_LEAVE)
+			tc:RegisterEffect(e1)
+			tc=g:GetNext()
+		end
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+		e1:SetCode(EVENT_TO_HAND)
+		e1:SetCountLimit(1)
+		e1:SetCondition(c11612639.thcon2)
+		e1:SetOperation(c11612639.thop2)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,tp)
+		Duel.SendtoHand(g,tp,REASON_EFFECT)
+		container:Merge(g)
+		return true
+	else return false end
+end
+function c11612639.repval(e,c)
+	return e:GetLabelObject():IsContains(c)
+end
+function c11612639.thfilter2(c)
+	return c:GetFlagEffect(11612639)~=0
+end
+function c11612639.thcon2(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c11612639.thfilter2,1,nil)
+end
+function c11612639.thop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=eg:Filter(c11612639.thfilter2,nil)
+	Duel.ConfirmCards(1-tp,g)
+	g=g:Filter(Card.IsType,nil,TYPE_MONSTER)
+	local tc=g:GetFirst()
+	while tc do
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_LEVEL)
+		e1:SetValue(1)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_CHANGE_RACE)
+		e2:SetValue(RACE_MACHINE)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e2)
+		tc=g:GetNext()
+	end
+	Duel.ShuffleHand(tp)
+end
 function c11612639.rmlimit(e,c,p)
 	return c:IsControler(tp)
 end

expansions/script/c11612644.lua

@@ -38,12 +38,12 @@ function c11612644.initial_effect(c)
 	local e3=Effect.CreateEffect(c)
 	e3:SetDescription(aux.Stringid(11612644,1))
 	e3:SetCategory(CATEGORY_ATKCHANGE)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
 	e3:SetCode(EVENT_BATTLE_DESTROYING)
 	e3:SetCondition(c11612644.indcon)
 	e3:SetOperation(c11612644.atkop)
 	c:RegisterEffect(e3)
-	local e1=Effect.CreateEffect(c)
+	 --[[local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(11612644,2))
 	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_TODECK)
 	e1:SetType(EFFECT_TYPE_QUICK_O)
@@ -54,7 +54,7 @@ function c11612644.initial_effect(c)
 	e1:SetCondition(c11612644.thcon)
 	e1:SetTarget(c11612644.thtg)
 	e1:SetOperation(c11612644.thop)
-	c:RegisterEffect(e1)
+	c:RegisterEffect(e1)--]]
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
 	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
@@ -63,6 +63,47 @@ function c11612644.initial_effect(c)
 	e3:SetOperation(c11612644.matop)
 	c:RegisterEffect(e3)
 	e0:SetLabelObject(e3)
+	
+	--add counter
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetCondition(c11612644.thcon)
+	e3:SetOperation(c11612644.regop)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EVENT_CHAIN_SOLVED)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCondition(c11612644.damcon)
+	e4:SetOperation(c11612644.damop)
+	c:RegisterEffect(e4)
+	if not c11612644.chkkkkk then
+		c11612644.chkkkkk=true
+		local e5=Effect.CreateEffect(c)
+		e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e5:SetCode(EVENT_LEAVE_FIELD_P)
+		--e5:SetRange(LOCATION_MZONE)
+		e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e5:SetOperation(c11612644.regop2)
+		Duel.RegisterEffect(e5,0)
+		local e51=e5:Clone()
+		Duel.RegisterEffect(e51,1)
+		local e6=Effect.CreateEffect(c)
+		e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e6:SetCode(EVENT_TO_GRAVE)
+		e6:SetProperty(EFFECT_FLAG_DELAY)
+		--e6:SetRange(LOCATION_MZONE)
+		e6:SetCondition(c11612644.thcon2)
+		e6:SetOperation(c11612644.thop2)
+		e6:SetLabelObject(e5)
+		Duel.RegisterEffect(e6,0)
+		local e61=e6:Clone()
+		e61:SetLabelObject(e51)
+		Duel.RegisterEffect(e61,1)
+	end
  --token
 	local e5=Effect.CreateEffect(c)
 	e5:SetDescription(aux.Stringid(11612644,3))
@@ -76,6 +117,56 @@ function c11612644.initial_effect(c)
 	e5:SetOperation(c11612644.spop)
 	c:RegisterEffect(e5)
 end
+function c11612644.regop2(e,tp,eg,ep,ev,re,r,rp)
+	local sum=0
+	for c in aux.Next(eg) do
+		if c:GetDestination()==LOCATION_GRAVE and c:GetLeaveFieldDest()==0 or c:GetLeaveFieldDest()==LOCATION_GRAVE then
+			local ct=c:GetCounter(0x1162)
+			sum=sum+ct
+			if ct>0 then c:RegisterFlagEffect(116126440,RESET_EVENT+RESETS_STANDARD-RESET_LEAVE-RESET_TOGRAVE,0,1) end
+		end
+	end
+	e:SetLabel(sum)
+end
+function c11612644.chcc(c,tp)
+	return c:GetFlagEffect(116126440)>0 and c:IsPreviousControler(1-tp)
+end
+function c11612644.thcon2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=e:GetLabelObject():GetLabel()
+	return ct>0 and eg:IsExists(c11612644.chcc,1,nil,tp)
+end
+function c11612644.thfilter1(c)
+	return c:GetType()==TYPE_SPELL and c:IsAbleToHand()
+end
+function c11612644.thop2(e,tp,eg,ep,ev,re,r,rp)
+	for c in aux.Next(eg) do
+		c:ResetFlagEffect(116126440)
+	end
+	local c=e:GetHandler()
+	local ct=e:GetLabelObject():GetLabel()
+	if ct>=3 then Duel.DiscardDeck(1-tp,ct//3,REASON_EFFECT) end
+	if ct>=6 then local g=Duel.GetMatchingGroup(Card.IsType,tp,0,LOCATION_ONFIELD,nil,TYPE_SPELL+TYPE_TRAP) if #g>0 then g=g:RandomSelect(tp,math.min(#g,ct//6)) Duel.Destroy(g,REASON_EFFECT) end end
+	if ct==Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) then Duel.Draw(tp,1,REASON_EFFECT) end
+end
+function c11612644.regop(e,tp,eg,ep,ev,re,r,rp)
+	if rp==1-tp then
+		e:GetHandler():RegisterFlagEffect(11612644,RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_CHAIN,0,1)
+	end
+end
+function c11612644.damcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return ep~=tp and c:GetFlagEffect(11612644)~=0
+end
+function c11612644.damop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,11612644)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_ONFIELD,nil)
+	local tc=g:GetFirst()
+	while tc do
+		tc:AddCounter(0x1162,1)
+		tc=g:GetNext()
+	end
+end
 function c11612644.lvfilter(c,rc)
 	return c:GetRitualLevel(rc)>0
 end

expansions/script/c11612646.lua

@@ -44,7 +44,7 @@ function c11612646.initial_effect(c)
 	e6:SetDescription(aux.Stringid(11612646,1))
 	e6:SetCategory(CATEGORY_DECKDES)
 	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e6:SetCode(EVENT_BATTLED)
+	e6:SetCode(EVENT_DAMAGE_STEP_END)
 	e6:SetRange(LOCATION_MZONE)
 	--e6:SetCountLimit(1,11612648)
 	e6:SetTarget(c11612646.detg)
@@ -120,17 +120,12 @@ function c11612646.detg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local g=c:GetBattledGroup()
 	local tc=g:GetFirst()
 	local p=tc:GetControler()
-	if chk==0 then return Duel.IsPlayerCanDiscardDeck(p,6) and Duel.GetAttackTarget()~=nil  end
-	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,p,6)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(1-tp,4) end
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,4)
 end
 function c11612646.deop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local g=c:GetBattledGroup()
-	local tc=g:GetFirst()
-	while tc do
-		if tc==c then tc=g:GetNext() end
-		local p=tc:GetControler()
-		Duel.DiscardDeck(p,6,REASON_EFFECT)
+	Duel.DiscardDeck(1-tp,4,REASON_EFFECT)
 	local og=Duel.GetOperatedGroup()
 	for oc in aux.Next(og) do
 		local e3=Effect.CreateEffect(c)
@@ -139,8 +134,6 @@ function c11612646.deop(e,tp,eg,ep,ev,re,r,rp)
 		e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 		oc:RegisterEffect(e3)
 	end
-		tc=g:GetNext()
-	end  
 end
 function c11612646.damval(e,re,val,r,rp,rc)
 	local val=Duel.GetBattleDamage(1)

expansions/script/c14000657.lua

@@ -9,6 +9,7 @@ function cm.initial_effect(c)
 	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
 	e1:SetCode(EVENT_DESTROYED)
 	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e1:SetCountLimit(1,m)
 	e1:SetCondition(cm.sscon)
 	e1:SetTarget(cm.sstg)
 	e1:SetOperation(cm.ssop)

expansions/script/c14001521.lua

@@ -16,7 +16,7 @@ function cm.initial_effect(c)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetRange(LOCATION_FZONE)
 	e2:SetCode(EVENT_MSET)
-	e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
+	e2:SetCountLimit(1,m)
 	e2:SetCondition(cm.con)
 	e2:SetTarget(cm.tg)
 	e2:SetOperation(cm.op)
@@ -37,6 +37,7 @@ function cm.initial_effect(c)
 	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e6:SetCode(EVENT_DESTROYED)
 	e6:SetProperty(EFFECT_FLAG_DELAY)
+	e6:SetCountLimit(1,m)
 	e6:SetTarget(cm.fltg)
 	e6:SetOperation(cm.flop)
 	c:RegisterEffect(e6)

expansions/script/c14001523.lua

@@ -16,6 +16,7 @@ function cm.initial_effect(c)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetRange(LOCATION_SZONE)
 	e1:SetCountLimit(1,m)
+	e1:SetCost(cm.setcost)
 	e1:SetTarget(cm.settg)
 	e1:SetOperation(cm.setop)
 	c:RegisterEffect(e1)
@@ -48,6 +49,13 @@ function cm.EoS(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.named_with_EoS
 end
+function cm.costfilter(c)
+	return cm.EoS(c) and c:IsType(TYPE_MONSTER) and c:IsDiscardable()
+end
+function cm.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,cm.costfilter,1,1,REASON_COST+REASON_DISCARD,nil)
+end
 function cm.filter(c)
 	return c:IsFaceup() and c:IsCanTurnSet() and not c:IsLocation(LOCATION_PZONE)
 end

expansions/script/c14001524.lua

@@ -16,7 +16,7 @@ function cm.initial_effect(c)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetRange(LOCATION_FZONE)
 	e2:SetCode(EVENT_DESTROYED)
-	e2:SetCountLimit(1)
+	e2:SetCountLimit(1,m)
 	e2:SetCondition(cm.con)
 	e2:SetTarget(cm.tg)
 	e2:SetOperation(cm.op)
@@ -26,6 +26,7 @@ function cm.initial_effect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e3:SetCode(EVENT_DESTROYED)
 	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1,m)
 	e3:SetTarget(cm.fltg)
 	e3:SetOperation(cm.flop)
 	c:RegisterEffect(e3)

expansions/script/c15000320.lua

@@ -30,25 +30,24 @@ function cm.initial_effect(c)
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)  
 	local tp=e:GetHandler():GetControler()
-	return e:GetHandler():IsReason(REASON_COST) and re:IsActivated() and re:GetHandler():IsSetCard(0xf39) and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
+	return e:GetHandler():IsReason(REASON_COST) and (re:GetHandler():IsSetCard(0xf39) or (re:GetHandler():IsRace(RACE_FIEND) and re:GetHandler():IsAttribute(ATTRIBUTE_DARK) and re:GetHandler():IsType(TYPE_MONSTER)))
 end  
 function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
 	local tp=e:GetHandler():GetControler()  
-	return (e:GetHandler():IsReason(REASON_BATTLE) or e:GetHandler():IsReason(REASON_EFFECT)) and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.IsPlayerAffectedByEffect(tp,15000330)  
+	return (e:GetHandler():IsReason(REASON_BATTLE) or e:GetHandler():IsReason(REASON_EFFECT)) and Duel.IsPlayerAffectedByEffect(tp,15000330)  
 end
 function cm.spfilter(c,e,tp)  
 	return c:IsSetCard(0xf39) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)  
 end  
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local tp=e:GetHandler():GetControler()
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.spfilter(chkc,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end  
-	if chk==0 then return true end  
+	if chk==0 then return 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) 
 	local tp=e:GetHandler():GetControler() 
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end 
-	local tc=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp):GetFirst()
+	local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp):GetFirst()
 	if tc and tc:IsLocation(LOCATION_GRAVE) then  
 		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)  
 	end  

expansions/script/c15000321.lua

@@ -30,11 +30,11 @@ function cm.initial_effect(c)
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)  
 	local tp=e:GetHandler():GetControler()
-	return e:GetHandler():IsReason(REASON_COST) and re:IsActivated() and re:GetHandler():IsSetCard(0xf39) and Duel.IsExistingMatchingCard(cm.spfilter,tp,0,LOCATION_ONFIELD,1,nil,e,tp)
+	return e:GetHandler():IsReason(REASON_COST) and (re:GetHandler():IsSetCard(0xf39) or (re:GetHandler():IsRace(RACE_FIEND) and re:GetHandler():IsAttribute(ATTRIBUTE_DARK) and re:GetHandler():IsType(TYPE_MONSTER)))
 end  
 function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
 	local tp=e:GetHandler():GetControler()  
-	return (e:GetHandler():IsReason(REASON_BATTLE) or e:GetHandler():IsReason(REASON_EFFECT)) and Duel.IsExistingMatchingCard(cm.spfilter,tp,0,LOCATION_ONFIELD,1,nil,e,tp) and Duel.IsPlayerAffectedByEffect(tp,15000330)  
+	return (e:GetHandler():IsReason(REASON_BATTLE) or e:GetHandler():IsReason(REASON_EFFECT)) and Duel.IsPlayerAffectedByEffect(tp,15000330)  
 end
 function cm.spfilter(c)  
 	return c:IsAbleToGrave()
@@ -42,7 +42,7 @@ end
 function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	local tp=e:GetHandler():GetControler()  
 	if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(1-tp) and cm.spfilter(chkc,e,tp) end  
-	if chk==0 then return true end  
+	if chk==0 then return Duel.IsExistingTarget(cm.spfilter,tp,0,LOCATION_ONFIELD,1,nil,e,tp) end  
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)  
 	local g=Duel.SelectTarget(tp,cm.spfilter,tp,0,LOCATION_ONFIELD,1,1,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,1-tp,LOCATION_ONFIELD)  

expansions/script/c15000323.lua

@@ -30,7 +30,7 @@ function cm.initial_effect(c)
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)  
 	local tp=e:GetHandler():GetControler()
-	return e:GetHandler():IsReason(REASON_COST) and re:IsActivated() and re:GetHandler():IsSetCard(0xf39)
+	return e:GetHandler():IsReason(REASON_COST) and (re:GetHandler():IsSetCard(0xf39) or (re:GetHandler():IsRace(RACE_FIEND) and re:GetHandler():IsAttribute(ATTRIBUTE_DARK) and re:GetHandler():IsType(TYPE_MONSTER)))
 end  
 function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
 	local tp=e:GetHandler():GetControler()  

expansions/script/c15000324.lua

@@ -49,11 +49,11 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 end  
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)  
 	local tp=e:GetHandler():GetControler()
-	return e:GetHandler():IsReason(REASON_COST) and re:IsActivated() and re:GetHandler():IsSetCard(0xf39) and Duel.IsPlayerCanDraw(tp,1)
+	return e:GetHandler():IsReason(REASON_COST) and (re:GetHandler():IsSetCard(0xf39) or (re:GetHandler():IsRace(RACE_FIEND) and re:GetHandler():IsAttribute(ATTRIBUTE_DARK) and re:GetHandler():IsType(TYPE_MONSTER)))
 end  
 function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
 	local tp=e:GetHandler():GetControler()  
-	return (e:GetHandler():IsReason(REASON_BATTLE) or e:GetHandler():IsReason(REASON_EFFECT)) and Duel.IsPlayerCanDraw(tp,1) and Duel.IsPlayerAffectedByEffect(tp,15000330)  
+	return (e:GetHandler():IsReason(REASON_BATTLE) or e:GetHandler():IsReason(REASON_EFFECT)) and Duel.IsPlayerAffectedByEffect(tp,15000330)  
 end
 function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local tp=e:GetHandler():GetControler()  

expansions/script/c15000331.lua

@@ -12,11 +12,13 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 	--atk up
 	local e2=Effect.CreateEffect(c)   
-	e2:SetCategory(CATEGORY_ATKCHANGE)  
+	e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DISABLE)  
 	e2:SetType(EFFECT_TYPE_QUICK_O)  
 	e2:SetRange(LOCATION_GRAVE)
 	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	--e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCountLimit(1,15000331)  
+	e2:SetCondition(aux.exccon)
 	e2:SetCost(cm.atkcost)
 	e2:SetOperation(cm.atkop)
 	c:RegisterEffect(e2)
@@ -48,35 +50,33 @@ function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.atkop(e,tp,eg,ep,ev,re,r,rp) 
 	local tp=e:GetHandler():GetControler()
-	--setatk 
-	local e1=Effect.CreateEffect(e:GetHandler())  
-	e1:SetType(EFFECT_TYPE_FIELD)  
-	e1:SetCode(EFFECT_SET_ATTACK)
-	e1:SetTargetRange(0,LOCATION_MZONE) 
-	e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) 
-	e1:SetTarget(aux.TargetBoolFunction(cm.atkfilter))  
-	e1:SetValue(cm.atkval)  
-	Duel.RegisterEffect(e1,tp)
-	local e2=Effect.CreateEffect(e:GetHandler())  
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)  
-	e2:SetCode(EVENT_CHAIN_SOLVING)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-	e2:SetCondition(cm.dis2con)  
-	e2:SetOperation(cm.dis2op)  
-	Duel.RegisterEffect(e2,tp)
-end
-function cm.atkfilter(c,e,tp)  
-	return c:IsFaceup() and c:IsType(TYPE_MONSTER)
+	local c=e:GetHandler()
+	local dg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
+	local dc=dg:GetFirst()
+	while dc do
+		if aux.NegateEffectMonsterFilter(dc) then
+			Duel.NegateRelatedChain(dc,RESET_TURN_SET)
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			dc:RegisterEffect(e1)
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_DISABLE_EFFECT)
+			e2:SetValue(RESET_TURN_SET)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			dc:RegisterEffect(e2)
+		end
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e3:SetValue(cm.atkval)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
+		dc:RegisterEffect(e3)
+		dc=dg:GetNext()
+	end
 end
 function cm.atkval(e,c)
 	return c:GetBaseAttack()*2
 end
\ No newline at end of file
-function cm.dis2con(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local p,loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CONTROLER,CHAININFO_TRIGGERING_LOCATION)
-	return re:IsActiveType(TYPE_MONSTER) and loc==LOCATION_MZONE and p~=tp
-end 
-function cm.dis2op(e,tp,eg,ep,ev,re,r,rp)  
-	Duel.NegateEffect(ev)  
-end
\ No newline at end of file

expansions/script/c15000339.lua

@@ -113,20 +113,21 @@ end
 function cm.ov2tg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	local tp=c:GetControler()   
-	if chk==0 then return Duel.IsExistingMatchingCard(aux.NecroValleyFilter(Card.IsCanOverlay),tp,LOCATION_GRAVE+LOCATION_EXTRA,LOCATION_EXTRA,1,nil) end
-	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(Card.IsCanOverlay),tp,LOCATION_GRAVE+LOCATION_EXTRA,LOCATION_EXTRA,nil)
-	if g:IsExists(Card.IsControler,1,nil,tp) and g:IsExists(Card.IsControler,1,nil,1-tp) then c:RegisterFlagEffect(15000339,RESET_CHAIN,0,1) end
-	if g:IsExists(Card.IsControler,1,nil,tp) and not g:IsExists(Card.IsControler,1,nil,1-tp) then c:RegisterFlagEffect(15010339,RESET_CHAIN,0,1) end
-	if g:IsExists(Card.IsControler,1,nil,1-tp) and not g:IsExists(Card.IsControler,1,nil,tp) then c:RegisterFlagEffect(15020339,RESET_CHAIN,0,1) end
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsCanOverlay,tp,LOCATION_GRAVE+LOCATION_EXTRA,LOCATION_EXTRA,1,nil) end
+	local g=Duel.GetMatchingGroup(Card.IsCanOverlay,tp,LOCATION_GRAVE+LOCATION_EXTRA,LOCATION_EXTRA,nil)
+	if g:IsExists(Card.IsControler,1,nil,tp) and g:IsExists(Card.IsControler,1,nil,1-tp) then e:SetLabel(1) end
+	if g:IsExists(Card.IsControler,1,nil,tp) and not g:IsExists(Card.IsControler,1,nil,1-tp) then e:SetLabel(2) end
+	if g:IsExists(Card.IsControler,1,nil,1-tp) and not g:IsExists(Card.IsControler,1,nil,tp) then e:SetLabel(3) end
 end
 function cm.ov2op(e,tp,eg,ep,ev,re,r,rp)  
 	local c=e:GetHandler()  
 	local tp=c:GetControler() 
 	if not c:IsFaceup() then return end
+	if not (c:IsRelateToChain() and c:IsType(TYPE_XYZ)) then return end
 	local x=0
-	if c:GetFlagEffect(15000339)~=0 then x=1 end
-	if c:GetFlagEffect(15010339)~=0 then x=2 end
-	if c:GetFlagEffect(15020339)~=0 then x=3 end
+	if e:GetLabel()==1 then x=1 end
+	if e:GetLabel()==2 then x=2 end
+	if e:GetLabel()==3 then x=3 end
 	local p=tp
 	if x==1 then
 		local y=Duel.SelectOption(tp,aux.Stringid(m,3),aux.Stringid(m,4))
@@ -137,7 +138,7 @@ function cm.ov2op(e,tp,eg,ep,ev,re,r,rp)
 	if x==3 then p=1-tp end
 	if p==tp then
 		local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(Card.IsCanOverlay),tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,1,nil):GetFirst()
-		if c:IsFaceup() and not tc:IsImmuneToEffect(e) then  
+		if tc and not tc:IsImmuneToEffect(e) then  
 			local og=tc:GetOverlayGroup()  
 			if og:GetCount()>0 then  
 				Duel.SendtoGrave(og,REASON_RULE)  
@@ -146,8 +147,8 @@ function cm.ov2op(e,tp,eg,ep,ev,re,r,rp)
 		end
 	end
 	if p==1-tp then
-		local tc=Duel.GetMatchingGroup(aux.NecroValleyFilter(Card.IsCanOverlay),tp,0,LOCATION_EXTRA,nil):RandomSelect(tp,1):GetFirst()
-		if c:IsFaceup() then  
+		local tc=Duel.GetMatchingGroup(Card.IsCanOverlay,tp,0,LOCATION_EXTRA,nil):RandomSelect(tp,1):GetFirst()
+		if tc then
 			Duel.Overlay(c,Group.FromCards(tc))  
 			tc:CancelToGrave()
 		end

expansions/script/c15000340.lua

@@ -61,19 +61,20 @@ function cm.tnop(e,tp,eg,ep,ev,re,r,rp)
 		c:RegisterEffect(e1)  
 		c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,0))  
 	end  
-	Debug.Message("被虚构的神啊！从深渊之暗中穿梭前来，逆转寂灭的虚饰吧！")
-	Debug.Message("超量召唤，如浮冰般纯净的内核，阶级1！内核主 欧翡拉·模因！")
+	--Debug.Message("被虚构的神啊！从深渊之暗中穿梭前来，逆转寂灭的虚饰吧！")
+	--Debug.Message("超量召唤，如浮冰般纯净的内核，阶级1！内核主 欧翡拉·模因！")
 end
 function cm.ovcost(e,tp,eg,ep,ev,re,r,rp,chk)  
-	if chk==0 then return Duel.IsExistingTarget(Card.IsCanOverlay,tp,LOCATION_MZONE+LOCATION_SZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_SZONE+LOCATION_GRAVE,1,c) and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end  
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end  
 	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
 end
-function cm.ovtg(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.ovtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	local c=e:GetHandler()
 	local tp=c:GetControler() 
-	if chk==0 then return Duel.IsExistingTarget(Card.IsCanOverlay,tp,LOCATION_MZONE+LOCATION_SZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_SZONE+LOCATION_GRAVE,1,c) end
+	if chkc then return chkc:IsLocation(LOCATION_ONFIELD+LOCATION_GRAVE) end	
+	if chk==0 then return Duel.IsExistingTarget(Card.IsCanOverlay,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,1,c) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
-	local g=Duel.SelectTarget(tp,Card.IsCanOverlay,tp,LOCATION_MZONE+LOCATION_SZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_SZONE+LOCATION_GRAVE,1,1,c)  
+	local g=Duel.SelectTarget(tp,Card.IsCanOverlay,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,1,1,c)  
 	if g:GetFirst():IsLocation(LOCATION_GRAVE) then
 		Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) 
 	end

expansions/script/c15000341.lua

@@ -60,14 +60,15 @@ function cm.tnop(e,tp,eg,ep,ev,re,r,rp)
 		e3:SetCost(cm.discost)  
 		e3:SetTarget(cm.distg)  
 		e3:SetOperation(cm.disop) 
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD) 
 		c:RegisterEffect(e3) 
 		c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,0))  
 	end  
-	Debug.Message("异界的龙啊！挣碎罪业掀起的无尽虚空，从收容的裂缝中飞出吧！")
-	Debug.Message("超量召唤，如灵魂般纯白的内核，阶级1！内核龙 卡欧斯·情景！")
+	--Debug.Message("异界的龙啊！挣碎罪业掀起的无尽虚空，从收容的裂缝中飞出吧！")
+	--Debug.Message("超量召唤，如灵魂般纯白的内核，阶级1！内核龙 卡欧斯·情景！")
 end
 function cm.discon(e,tp,eg,ep,ev,re,r,rp)  
-	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainDisablable(ev)  
+	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) 
 end  
 function cm.discost(e,tp,eg,ep,ev,re,r,rp,chk)  
 	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end  
@@ -75,13 +76,14 @@ function cm.discost(e,tp,eg,ep,ev,re,r,rp,chk)
 end  
 function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)  
 	if chk==0 then return true end  
-	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)  
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)  
 	if re:GetHandler():IsAbleToGrave() and re:GetHandler():IsRelateToEffect(re) then  
 		Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,eg,1,0,0)  
 	end  
 end  
 function cm.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) then  
-		Duel.SendtoGrave(eg,REASON_EFFECT)  
+	local ec=re:GetHandler()  
+	if Duel.NegateActivation(ev) and ec:IsRelateToEffect(re) then  
+		Duel.SendtoGrave(ec,REASON_EFFECT)  
 	end  
 end
\ No newline at end of file

expansions/script/c15100001.lua

+--转生王女-艾妮斯菲亚
+function c15100001.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:SetCondition(c15100001.spcon)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(15100001,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,15100001)
+	e2:SetTarget(c15100001.thtg)
+	e2:SetOperation(c15100001.thop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(15100001,2))
+	e4:SetCategory(CATEGORY_TOHAND)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetCode(EVENT_BE_MATERIAL)
+	e4:SetCountLimit(1,15200001)
+	e4:SetCondition(c15100001.ctcon)
+	e4:SetCost(aux.bfgcost)
+	e4:SetTarget(c15100001.cttg)
+	e4:SetOperation(c15100001.ctop)
+	c:RegisterEffect(e4)
+end
+function c15100001.spcon(e,c)
+	if c==nil then return true end
+	return Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0
+		and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+end
+function c15100001.thfilter(c)
+	return c:IsSetCard(0x510) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
+end
+function c15100001.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c15100001.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+end
+function c15100001.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c15100001.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c15100001.ctcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsLocation(LOCATION_GRAVE) and r==REASON_FUSION and e:GetHandler():IsPreviousLocation(LOCATION_HAND+LOCATION_ONFIELD)
+end
+function c15100001.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_GRAVE+LOCATION_REMOVED,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_GRAVE+LOCATION_REMOVED,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c15100001.ctop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and (tc:IsLocation(LOCATION_GRAVE) or tc:IsFaceup()) and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.SelectYesNo(tp,aux.Stringid(15100001,3)) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	else
+		Duel.SendtoHand(tc,tp,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c15100002.lua

+--转生王女-尤菲莉亚
+function c15100002.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(15100002,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,15100002)
+	e1:SetTarget(c15100002.thtg)
+	e1:SetOperation(c15100002.thop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(15100002,1))
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCode(EVENT_BE_MATERIAL)
+	e3:SetCountLimit(1,15200002)
+	e3:SetCondition(c15100002.ctcon)
+	e3:SetCost(aux.bfgcost)
+	e3:SetTarget(c15100002.cttg)
+	e3:SetOperation(c15100002.ctop)
+	c:RegisterEffect(e3)
+end
+function c15100002.thfilter(c)
+	return c:IsSetCard(0x510) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c15100002.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c15100002.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c15100002.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c15100002.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c15100002.ctcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsLocation(LOCATION_GRAVE) and r==REASON_FUSION and e:GetHandler():IsPreviousLocation(LOCATION_HAND+LOCATION_ONFIELD)
+end
+function c15100002.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_GRAVE+LOCATION_REMOVED,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_GRAVE+LOCATION_REMOVED,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c15100002.ctop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and (tc:IsLocation(LOCATION_GRAVE) or tc:IsFaceup()) and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.SelectYesNo(tp,aux.Stringid(15100002,2)) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	else
+		Duel.SendtoHand(tc,tp,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c15100003.lua

+--转生王女-亚尔加德
+function c15100003.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(15100003,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,15100003)
+	e1:SetTarget(c15100003.target)
+	e1:SetOperation(c15100003.operation)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(15100003,1))
+	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,15200003)
+	e2:SetTarget(c15100003.sptg)
+	e2:SetOperation(c15100003.spop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(15100003,2))
+	e4:SetCategory(CATEGORY_TOHAND)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetCode(EVENT_BE_MATERIAL)
+	e4:SetCountLimit(1,15300003)
+	e4:SetCondition(c15100003.ctcon)
+	e4:SetCost(aux.bfgcost)
+	e4:SetTarget(c15100003.cttg)
+	e4:SetOperation(c15100003.ctop)
+	c:RegisterEffect(e4)
+end
+function c15100003.filter(c)
+	return c:IsFaceup() and c:IsAbleToGrave()
+end
+function c15100003.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c15100003.filter(chkc) end
+	local c=e:GetHandler()
+	if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c15100003.filter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,c15100003.filter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function c15100003.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
+		local tc=Duel.GetFirstTarget()
+		if tc:IsRelateToEffect(e) then
+			Duel.SendtoGrave(tc,REASON_EFFECT)
+		end
+	end
+end
+function c15100003.filter2(c,e,tp)
+	return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c15100003.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c15100003.filter2,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function c15100003.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c15100003.filter2),tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c15100003.ctcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsLocation(LOCATION_GRAVE) and r==REASON_FUSION and e:GetHandler():IsPreviousLocation(LOCATION_HAND+LOCATION_ONFIELD)
+end
+function c15100003.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_GRAVE+LOCATION_REMOVED,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_GRAVE+LOCATION_REMOVED,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c15100003.ctop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and (tc:IsLocation(LOCATION_GRAVE) or tc:IsFaceup()) and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.SelectYesNo(tp,aux.Stringid(15100003,3)) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	else
+		Duel.SendtoHand(tc,tp,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c15100004.lua

+--融合连携
+function c15100004.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c15100004.target)
+	e1:SetOperation(c15100004.activate)
+	c:RegisterEffect(e1)
+end
+function c15100004.filter1(c,e)
+	return c:IsType(TYPE_MONSTER) and not c:IsImmuneToEffect(e)
+end
+function c15100004.filter2(c,e,tp,m,f,chkf)
+	if not (c:IsType(TYPE_FUSION) and (not f or f(c))
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false)) then return false end
+	aux.FCheckAdditional=c.red_eyes_fusion_check or c15100004.fcheck
+	local res=c:CheckFusionMaterial(m,nil,chkf)
+	aux.FCheckAdditional=nil
+	return res
+end
+function c15100004.fcheck(tp,sg,fc)
+	return (sg:Filter(Card.IsLocation,1,nil,LOCATION_DECK):GetCount()<=1 and Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_MZONE,1,nil) or not Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_MZONE,1,nil) and sg:Filter(Card.IsLocation,1,nil,LOCATION_DECK):GetCount()==0) and sg:Filter(Card.IsSetCard,1,nil,0x510):GetCount()~=0
+end
+function c15100004.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local chkf=tp
+		local mg1=Duel.GetFusionMaterial(tp)
+		local mg2=Duel.GetMatchingGroup(c15100004.filter1,tp,LOCATION_DECK,0,nil,e)
+		mg1:Merge(mg2)
+		local res=Duel.IsExistingMatchingCard(c15100004.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 mg3=fgroup(ce,e,tp)
+				local mf=ce:GetValue()
+				res=Duel.IsExistingMatchingCard(c15100004.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf)
+			end
+		end
+		return res
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c15100004.activate(e,tp,eg,ep,ev,re,r,rp)
+	local chkf=tp
+	local mg1=Duel.GetFusionMaterial(tp):Filter(c15100004.filter1,nil,e)
+	local mg2=Duel.GetMatchingGroup(c15100004.filter1,tp,LOCATION_DECK,0,nil,e)
+	mg1:Merge(mg2)
+	local sg1=Duel.GetMatchingGroup(c15100004.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
+	local sg2=nil
+	local mg3=nil
+	local ce=Duel.GetChainMaterial(tp)
+	if ce~=nil then
+		local fgroup=ce:GetTarget()
+		mg3=fgroup(ce,e,tp)
+		local mf=ce:GetValue()
+		sg2=Duel.GetMatchingGroup(c15100004.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,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()
+		aux.FCheckAdditional=tc.red_eyes_fusion_check or c15100004.fcheck
+		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.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
+			Duel.BreakEffect()
+			Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+		else
+			local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
+			local fop=ce:GetOperation()
+			fop(ce,e,tp,tc,mat2)
+		end
+		tc:CompleteProcedure()
+	end
+end

expansions/script/c15100005.lua

+--转生王女之祈愿
+function c15100005.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,15100005)
+	e1:SetOperation(c15100005.activate)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(15100005,1))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,15200005)
+	e2:SetCondition(c15100005.thcon)
+	e2:SetTarget(c15100005.thtg)
+	e2:SetOperation(c15100005.thop)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetOperation(c15100005.chainop)
+	c:RegisterEffect(e3)
+end
+function c15100005.thfilter1(c)
+	return c:IsSetCard(0x510) and c:IsType(TYPE_MONSTER) and (c:IsAbleToHand() or c:IsAbleToGrave())
+end
+function c15100005.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c15100005.thfilter1,tp,LOCATION_DECK,0,nil)
+	if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(15100005,0)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
+		local tg=Duel.SelectMatchingCard(tp,c15100005.thfilter1,tp,LOCATION_DECK,0,1,1,nil)
+		if tg:GetCount()<=0 then return end
+		local tc=tg:GetFirst()
+		if tc:IsAbleToHand() and (not tc:IsAbleToGrave() or Duel.SelectOption(tp,1190,1191)==0) then
+			Duel.SendtoHand(tc,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,tc)
+		else
+			Duel.SendtoGrave(tc,REASON_EFFECT)
+		end
+	end
+end
+function c15100005.cfilter(c,tp)
+	return c:IsControler(tp) and c:IsType(TYPE_FUSION)
+		and c:IsSummonType(SUMMON_TYPE_FUSION)
+end
+function c15100005.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c15100005.cfilter,1,nil,tp)
+end
+function c15100005.thfilter(c,eg)
+	local tc=eg:GetFirst()
+	local tg=nil
+	while tc do
+		if tc:IsSummonType(SUMMON_TYPE_FUSION) and c:GetReasonCard()==tc then
+			tg=tc
+		end
+		tc=eg:GetNext()
+	end
+	return tg and c:IsAbleToHand() and c:GetReason()&(REASON_FUSION+REASON_MATERIAL)==(REASON_FUSION+REASON_MATERIAL) and c:IsLocation(LOCATION_GRAVE)
+end
+function c15100005.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return eg and Duel.IsExistingMatchingCard(c15100005.thfilter,tp,LOCATION_GRAVE,0,1,nil,eg) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+end
+function c15100005.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c15100005.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,eg)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c15100005.chainop(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp and re:IsHasCategory(CATEGORY_FUSION_SUMMON) then
+		Duel.SetChainLimit(c15100005.chainlm)
+	end
+end
+function c15100005.chainlm(e,rp,tp)
+	return tp==rp
+end
\ No newline at end of file

expansions/script/c15100008.lua

+--转生王女「友情羁绊」
+function c15100008.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x510),aux.FilterBoolFunction(Card.IsFusionAttribute,ATTRIBUTE_LIGHT),true)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(15100008,0))
+	e1:SetCategory(CATEGORY_TOEXTRA)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCondition(c15100008.tdcon)
+	e1:SetTarget(c15100008.tdtg)
+	e1:SetOperation(c15100008.tdop)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(15100008,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e2:SetCode(EVENT_DESTROYED)
+	e2:SetCountLimit(1,15100008)
+	e2:SetCondition(c15100008.spcon)
+	e2:SetTarget(c15100008.sptg)
+	e2:SetOperation(c15100008.spop)
+	c:RegisterEffect(e2)
+end
+function c15100008.tdcon(e)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
+end
+function c15100008.filter(c)
+	return c:IsFaceup() and c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK) and c:IsAbleToExtra()
+end
+function c15100008.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c15100008.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c15100008.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c15100008.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,g,1,0,0)
+end
+function c15100008.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoDeck(tc,nil,SEQ_DECKTOP,REASON_EFFECT)
+	end
+end
+function c15100008.spcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE) and bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
+end
+function c15100008.spfilter(c,e,tp)
+	return c:IsSetCard(0x510) and c:IsFaceup() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c15100008.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c15100008.spfilter(chkc,e,tp) and chkc~=e:GetHandler() end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c15100008.spfilter,tp,LOCATION_REMOVED,0,1,e:GetHandler(),e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c15100008.spfilter,tp,LOCATION_REMOVED,0,1,1,e:GetHandler(),e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c15100008.spop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c22348195.lua

@@ -2,14 +2,6 @@
 local m=22348195
 local cm=_G["c"..m]
 function cm.initial_effect(c)
-	--attribute
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_SET_AVAILABLE)
-	e1:SetCode(EFFECT_ADD_RACE)
-	e1:SetRange(0xff)
-	e1:SetValue(RACE_FAIRY)
-	c:RegisterEffect(e1)
 	--special summon
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(22348195,1))
@@ -30,6 +22,7 @@ function cm.initial_effect(c)
 	e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
 	e3:SetCode(EVENT_SUMMON_SUCCESS)
 	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1,22349195)
 	e3:SetTarget(c22348195.tg)
 	e3:SetOperation(c22348195.op)
 	c:RegisterEffect(e3)
@@ -52,7 +45,15 @@ end
 function c22348195.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)
+		if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
+			e1:SetValue(LOCATION_DECKBOT)
+			c:RegisterEffect(e1)
+		end
 	end
 end
 function c22348195.tgfilter(c)

expansions/script/c22348224.lua

@@ -14,14 +14,22 @@ function cm.initial_effect(c)
 	e0:SetValue(POS_FACEUP_ATTACK)
 	c:RegisterEffect(e0)
 	--disable
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
-	e1:SetCode(EFFECT_DISABLE)
-	e1:SetCondition(c22348224.dacon)
-	e1:SetTarget(c22348224.datg)
-	c:RegisterEffect(e1)
+--	local e1=Effect.CreateEffect(c)
+--	e1:SetType(EFFECT_TYPE_FIELD)
+--	e1:SetRange(LOCATION_MZONE)
+--	e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+--	e1:SetCode(EFFECT_DISABLE)
+--	e1:SetCondition(c22348224.dacon)
+--	e1:SetTarget(c22348224.datg)
+--	c:RegisterEffect(e1)
+	--disable
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e5:SetCode(EVENT_CHAIN_SOLVING)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetCondition(c22348224.discon)
+	e5:SetOperation(c22348224.disop)
+	c:RegisterEffect(e5)
 	--spsm
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(22348224,0))
@@ -50,6 +58,19 @@ function c22348224.datg(e,c)
 	return c:IsSummonType(SUMMON_TYPE_SPECIAL) and c:IsFaceup() and not c:IsAttack(c:GetBaseAttack())
 end
 
+function c22348224.discon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local rc=re:GetHandler()
+	return c:IsSummonType(SUMMON_TYPE_ADVANCE)
+		and rc:IsSummonType(SUMMON_TYPE_SPECIAL) and rc:IsFaceup() and not rc:IsAttack(rc:GetBaseAttack())
+end
+function c22348224.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateEffect(ev)
+end
+
+
+
+
 function c22348224.filter(c,e,tp)
 	return c:IsSetCard(0x708) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end

expansions/script/c22348235.lua

@@ -18,7 +18,7 @@ function cm.initial_effect(c)
 	--draw
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(22348235,2))
-	e2:SetCategory(CATEGORY_DRAW+CATEGORY_RECOVER)
+	e2:SetCategory(CATEGORY_RECOVER)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetCode(EVENT_SUMMON_SUCCESS)
@@ -62,7 +62,6 @@ end
 function c22348235.recon(e,tp,eg,ep,ev,re,r,rp)
 	return (e:GetHandler():GetFlagEffect(m)>0 or e:GetCode()~=EVENT_CHAIN_NEGATED)
 end 
--- Duel.GetCurrentChain()==1 and 
 function c22348235.reop(e,tp,eg,ep,ev,re,r,rp)
 	local ng=Group.CreateGroup()
 	for i=1,ev do
@@ -80,10 +79,10 @@ function c22348235.filter(c)
 	return c:IsFaceup() and c:IsType(TYPE_EFFECT)
 end
 function c22348235.eftg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and c22348235.filter(chkc) and chkc~=e:GetHandler() end
-	if chk==0 then return Duel.IsExistingTarget(c22348235.filter,tp,0,LOCATION_MZONE,1,nil) end
+	if chkc then return chkc:IsOnField() and c22348235.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c22348235.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	local g=Duel.SelectTarget(tp,c22348235.filter,tp,0,LOCATION_MZONE,1,1,nil)
+	local g=Duel.SelectTarget(tp,c22348235.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
 end
 function c22348235.efop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
@@ -121,14 +120,10 @@ function c22348235.distg(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c22348235.disop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local rec=c:GetBaseAttack()/2
+	local rec=c:GetAttack()/2
 	if rec>0 and Duel.Recover(1-tp,rec,REASON_EFFECT)>0 then
-		local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,0,nil)
-		if g:GetCount()==0 then return end
 		Duel.BreakEffect()
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-		local sg=g:Select(tp,1,1,nil)
-		Duel.Destroy(sg,REASON_EFFECT)
+		Duel.Destroy(c,REASON_EFFECT)
 	end
 end
 function c22348235.costfilter(c)
@@ -144,10 +139,8 @@ function c22348235.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
 	Duel.SetTargetPlayer(tp)
 	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,500)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
 end
 function c22348235.drop(e,tp,eg,ep,ev,re,r,rp)
 	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
-	Duel.Draw(p,1,REASON_EFFECT)
 	Duel.Recover(p,500,REASON_EFFECT)
 end

expansions/script/c22348236.lua

@@ -75,10 +75,10 @@ function c22348236.filter(c)
 	return c:IsFaceup() and c:IsType(TYPE_EFFECT)
 end
 function c22348236.eftg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and c22348236.filter(chkc) and chkc~=e:GetHandler() end
-	if chk==0 then return Duel.IsExistingTarget(c22348236.filter,tp,0,LOCATION_MZONE,1,nil) end
+	if chkc then return chkc:IsOnField() and c22348236.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c22348236.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	local g=Duel.SelectTarget(tp,c22348236.filter,tp,0,LOCATION_MZONE,1,1,nil)
+	local g=Duel.SelectTarget(tp,c22348236.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
 end
 function c22348236.efop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
@@ -113,33 +113,31 @@ function c22348236.distg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
 	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,1-tp,0)
 	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,1)
-	Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,1-tp,1)
 end
 function c22348236.disop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local rec=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)*200
 	if rec>0 and Duel.Recover(1-tp,rec,REASON_EFFECT)>0 then
 		Duel.BreakEffect()
-	if Duel.Draw(1-tp,1,REASON_EFFECT)==1 then
-		Duel.ShuffleHand(1-tp)
-		Duel.DiscardHand(1-tp,nil,1,1,REASON_EFFECT+REASON_DISCARD)
-	end
+	Duel.Draw(1-tp,1,REASON_EFFECT)
 	end
 end
 function c22348236.thfilter(c)
-	return c:IsSetCard(0x709) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and not c:IsCode(22348236)
+	return c:IsSetCard(0x709) and c:IsAbleToHand() and not c:IsCode(22348236)
 end
 function c22348236.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c22348236.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED)
+	if chk==0 then return Duel.IsExistingMatchingCard(c22348236.thfilter,tp,LOCATION_REMOVED+LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED+LOCATION_GRAVE)
 	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,500)
 end
 function c22348236.thop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c22348236.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c22348236.thfilter),tp,LOCATION_REMOVED+LOCATION_GRAVE,0,1,1,nil)
 	if g:GetCount()>0 then
 		Duel.SendtoHand(g,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,g)
 	end
 	Duel.Recover(tp,500,REASON_EFFECT)
 end
+
+

expansions/script/c22348237.lua

@@ -23,7 +23,7 @@ function cm.initial_effect(c)
 	e2:SetRange(LOCATION_GRAVE)
 	e2:SetCountLimit(1,22349237)
 	e2:SetCost(aux.bfgcost)
-	e2:SetCondition(c22348237.reccon)
+--	e2:SetCondition(c22348237.reccon)
 	e2:SetTarget(c22348237.rectg)
 	e2:SetOperation(c22348237.recop)
 	c:RegisterEffect(e2)
@@ -88,10 +88,10 @@ function c22348237.filter(c)
 	return c:IsFaceup() and c:IsType(TYPE_EFFECT)
 end
 function c22348237.eftg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and c22348237.filter(chkc) and chkc~=e:GetHandler() end
-	if chk==0 then return Duel.IsExistingTarget(c22348237.filter,tp,0,LOCATION_MZONE,1,nil) end
+	if chkc then return chkc:IsOnField() and c22348237.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c22348237.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	local g=Duel.SelectTarget(tp,c22348237.filter,tp,0,LOCATION_MZONE,1,1,nil)
+	local g=Duel.SelectTarget(tp,c22348237.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
 end
 function c22348237.efop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
@@ -156,7 +156,7 @@ function c22348237.recop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Recover(p,d,REASON_EFFECT)
 end
 function c22348237.sppcon(e,tp,eg,ep,ev,re,r,rp)
-	return ep==tp
+	return ep==tp and Duel.IsExistingMatchingCard(c22348237.reccfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
 end
 function c22348237.spptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()

expansions/script/c22348238.lua

@@ -79,10 +79,10 @@ function c22348238.filter(c)
 	return c:IsFaceup() and c:IsType(TYPE_EFFECT)
 end
 function c22348238.eftg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and c22348238.filter(chkc) and chkc~=e:GetHandler() end
-	if chk==0 then return Duel.IsExistingTarget(c22348238.filter,tp,0,LOCATION_MZONE,1,nil) end
+	if chkc then return chkc:IsOnField() and c22348238.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c22348238.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	local g=Duel.SelectTarget(tp,c22348238.filter,tp,0,LOCATION_MZONE,1,1,nil)
+	local g=Duel.SelectTarget(tp,c22348238.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
 end
 function c22348238.efop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()

expansions/script/c22348239.lua

@@ -76,10 +76,10 @@ function c22348239.effilter(c)
 	return c:IsFaceup() and c:IsType(TYPE_EFFECT)
 end
 function c22348239.eftg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and c22348239.effilter(chkc) and chkc~=e:GetHandler() end
-	if chk==0 then return Duel.IsExistingTarget(c22348239.effilter,tp,0,LOCATION_MZONE,1,nil) end
+	if chkc then return chkc:IsOnField() and c22348239.effilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c22348239.effilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	local g=Duel.SelectTarget(tp,c22348239.effilter,tp,0,LOCATION_MZONE,1,1,nil)
+	local g=Duel.SelectTarget(tp,c22348239.effilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
 end
 function c22348239.efop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()

expansions/script/c22348326.lua

@@ -43,8 +43,30 @@ function cm.initial_effect(c)
 	e4:SetTarget(c22348326.thctg)
 	e4:SetOperation(c22348326.thcop)
 	c:RegisterEffect(e4)
+	--count
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE)
+	e5:SetCode(EVENT_ADJUST)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetOperation(c22348326.adjustop)
+	c:RegisterEffect(e5)
 	
 end
+function c22348326.adjustop(e,tp,eg,ep,ev,re,r,rp)
+	local phase=Duel.GetCurrentPhase()
+	if (phase==PHASE_DAMAGE and not Duel.IsDamageCalculated()) or phase==PHASE_DAMAGE_CAL then return end
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(c22348326.thhfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil,Duel.GetTurnCount())
+	local tc=g:GetFirst()
+	while tc do
+	Card.ResetFlagEffect(tc,22348326)
+	local ex=Effect.CreateEffect(tc)
+	ex:SetType(EFFECT_TYPE_SINGLE)
+	tc:RegisterFlagEffect(22348326,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(22348326,1))
+		tc=g:GetNext()
+	end
+end
 function c22348326.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
 	local g=e:GetHandler():GetOverlayGroup()
@@ -99,9 +121,6 @@ end
 function c22348326.spsfilter(c,e,tp)
 	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) and c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED)
 end
-function c22348326.xyzfilter(c,mg)
-	return c:IsXyzSummonable(mg,1,99)
-end
 function c22348326.spsop(e,tp,eg,ep,ev,re,r,rp)
 	if e:GetLabelObject():GetLabel()~=0 then return end
 	local g=e:GetHandler():GetCardTarget()
@@ -110,13 +129,6 @@ function c22348326.spsop(e,tp,eg,ep,ev,re,r,rp)
 	if tgc>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<tgc then return end
 	Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
-	Duel.AdjustAll()
-	local xyzg=Duel.GetMatchingGroup(c22348326.xyzfilter,tp,LOCATION_EXTRA,0,nil,g)
-	if xyzg:GetCount()>0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
-		Duel.XyzSummon(tp,xyz,tg)
-	end
 end
 
 

expansions/script/c22348332.lua

+--叮 噹 天 使
+local m=22348332
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,nil,2)
+	c:EnableReviveLimit()
+	--change damage
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetOperation(c22348332.regop)
+	c:RegisterEffect(e1)
+	--Draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_LEAVE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCondition(c22348332.drcon)
+	e2:SetTarget(c22348332.drtg)
+	e2:SetOperation(c22348332.drop)
+	c:RegisterEffect(e2)
+end
+function c22348332.regop(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CHANGE_DAMAGE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetValue(0)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_NO_EFFECT_DAMAGE)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)0
+end0
+function c22348332.drcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_ONFIELD)
+		and c:IsPreviousControler(tp) and c:GetReasonPlayer()==1-tp
+end
+function c22348332.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function c22348332.drop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Draw(p,d,REASON_EFFECT)
+end

expansions/script/c22348333.lua

+--白 之 兔  诺 登
+local m=22348333
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--Synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--remove
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22348333,0))
+	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c22348333.rmcost)
+	e1:SetTarget(c22348333.rmtg)
+	e1:SetOperation(c22348333.rmop)
+	c:RegisterEffect(e1)
+	--td
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(22348333,1))
+	e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCost(c22348333.tdcost)
+	e2:SetTarget(c22348333.tdtg)
+	e2:SetOperation(c22348333.tdop)
+	c:RegisterEffect(e2)
+	
+end
+function c22348333.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,2500) end
+	Duel.PayLPCost(tp,2500)
+end
+function c22348333.tdcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,5000) end
+	Duel.PayLPCost(tp,5000)
+end
+function c22348333.rmfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
+end
+
+
+function c22348333.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	if chk==0 then return g:GetCount()>0 end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
+end
+function c22348333.rmop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	local c=e:GetHandler()
+	local tc=g:GetFirst()
+	local fid=c:GetFieldID()
+	if tc and Duel.Remove(tc,0,REASON_EFFECT+REASON_TEMPORARY)~=0 then
+		tc:RegisterFlagEffect(22348333,RESET_EVENT+RESETS_STANDARD,0,1,fid)
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_CHAIN_SOLVED)
+		e1:SetLabel(fid)
+		e1:SetLabelObject(tc)
+		e1:SetCondition(c22348333.retcon)
+		e1:SetOperation(c22348333.retop)
+		Duel.RegisterEffect(e1,tp)
+		local e2=e1:Clone()
+		e2:SetCode(EVENT_CHAIN_NEGATED)
+		Duel.RegisterEffect(e2,tp)
+	end
+end
+function c22348333.retcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffectLabel(22348333)==e:GetLabel() then
+		return Duel.GetCurrentChain()==1
+	else
+		e:Reset()
+		return false
+	end
+end
+function c22348333.retop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	Duel.ReturnToField(tc)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetTargetRange(1,1)
+		e1:SetValue(c22348333.aclimit)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,tp)
+	e:Reset()
+end
+function c22348333.aclimit(e,re,tp)
+	return re:GetHandler():IsOnField() and re:IsHasType(EFFECT_TYPE_SINGLE) and re:GetCode()==EVENT_REMOVE
+end
+function c22348333.tdfilter(c)
+	return (c:IsLocation(0x3e) or (c:IsFaceup() and c:IsType(TYPE_PENDULUM))) and c:IsAbleToDeck()
+end
+function c22348333.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp) and Duel.IsPlayerCanDraw(1-tp) end
+	local g=Duel.GetMatchingGroup(c22348333.tdfilter,tp,0x7e,0x7e,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0x7e)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,0,10)
+	Duel.SetChainLimit(aux.FALSE)
+end
+function c22348333.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(c22348333.tdfilter,tp,0x7e,0x7e,nil)
+	if not aux.NecroValleyNegateCheck(g) then Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT) end
+	local ht1=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
+	local ht2=Duel.GetFieldGroupCount(1-tp,LOCATION_HAND,0)
+	if ht1<5 or ht2<5 then
+		Duel.Draw(tp,5-ht1,REASON_EFFECT)
+		Duel.Draw(1-tp,5-ht2,REASON_EFFECT)
+	end
+	Duel.SkipPhase(tp,PHASE_MAIN1,RESET_PHASE+PHASE_END,1)
+	Duel.SkipPhase(tp,PHASE_BATTLE,RESET_PHASE+PHASE_END,1,1)
+	Duel.SkipPhase(tp,PHASE_MAIN2,RESET_PHASE+PHASE_END,1)
+	Duel.SkipPhase(tp,PHASE_END,RESET_PHASE+PHASE_END,1)
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_BP)
+	e1:SetTargetRange(1,0)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(c)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_EP)
+	e2:SetTargetRange(1,0)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+
+end