2019.last

deck/2019-12-15 1st.ydk

-#created by ...
-#main
-11200042
-11200049
-11200086
-11200103
-11200104
-11200106
-11200109
-11200209
-14000395
-26800011
-26800012
-26800013
-26804020
-26804021
-26806060
-26808009
-33310100
-33310101
-33310102
-#extra
-11200030
-11200031
-11200032
-11200033
-11200034
-11200047
-17070000
-26805014
-26806061
-26808010
-!side

deck/2019-12-15 2nd.ydk

-#created by ...
-#main
-65020113
-65020115
-65020117
-65020119
-65020132
-65020133
-65020134
-#extra
-65020121
-65020122
-65020123
-65020124
-65020125
-65020126
-65020127
-65020128
-65020129
-65020130
-65020131
-!side

deck/2019-12-15 3rd.ydk

-#created by ...
-#main
-81003005
-81008007
-81009007
-81010006
-81010034
-81010035
-81011042
-81011043
-81011045
-81011046
-81012069
-81015010
-81021013
-81021014
-81041028
-81041029
-#extra
-81003006
-81011006
-81011041
-81011044
-81011047
-81012070
-81019004
-81041030
-!side

deck/2019-12-29 1st.ydk

+#created by ...
+#main
+17060813
+17060834
+17060835
+17060852
+17060866
+26805005
+26805015
+26806062
+26806063
+26809033
+26809034
+26809035
+33310100
+33310101
+33310102
+33310103
+33310104
+#extra
+10900014
+17060810
+17060811
+17060815
+17060817
+17060863
+17060865
+17060885
+!side

deck/2019-12-29 2nd.ydk

+#created by ...
+#main
+65020154
+65020155
+65020156
+65020157
+65020158
+65020159
+65020160
+65020161
+65020162
+65020168
+65020169
+65020170
+65020171
+65020173
+65020175
+65020177
+65030033
+65030034
+65030035
+65030036
+65030037
+65030038
+65030039
+65030040
+65030041
+#extra
+65020163
+65020164
+65020165
+65020166
+65020167
+!side

deck/2019-12-29 3rd.ydk

+#created by ...
+#main
+81006003
+81006021
+81006028
+81006034
+81006035
+81010022
+81010049
+81012030
+81012035
+81013003
+81014013
+81040036
+#extra
+75646426
+81013021
+81017015
+81018020
+81019021
+!side

deck/2019-12-15 4th.ydk → deck/2019-12-29 4th.ydk

 #created by ...
 #main
-82206004
 82206020
 82206023
 82206024
@@ -13,26 +12,6 @@
 82206035
 82206054
 82206055
-82228540
-82228541
-82228542
-82228543
-82228544
-82228545
-82228546
-82228547
-82228548
-82228562
-82228563
-82228564
-82228565
-82228566
-82228567
-82228569
-82228570
-82228571
-82228572
-82228573
 #extra
 82206021
 82206022
@@ -42,5 +21,4 @@
 82206034
 82206036
 82206048
-82228568
 !side

expansions/lflist.conf

@@ -71,6 +71,7 @@
 10919000 0 --叛逆的魔女 花菱
 10907000 2 --花寄女子寮
 10907001 2 --花寄女子Live
+10900014 0 --无限之天使
 #111
 11113171 2 --小死神
 11115008 1 --魔法之御龙士
@@ -243,6 +244,7 @@
 17060882 1 --多莫维依
 17060890 1 --电波型主持
 17091003 0 --独角兽高达 报丧女妖
+17060885 1 --圣夜型多莫维依
 #180
 18004008 0 --性感手枪拔枪术
 18005010 0 --封锁的拟魂
@@ -336,6 +338,8 @@
 26809026 0 --Precious Sword
 26810010 2 --无限冲击·如月千早
 26805014 0 --哥特风·杜野凛世
+26809034 2 --Nightmare
+26805005 2 --心结·风野灯织
 #300
 30000200 0 --暗魔力的爆发
 #305
@@ -385,6 +389,8 @@
 33330601 1 --相对性理论武装
 33330602 1 --相对性理性缺失
 33330107 1 --造神计划7 赤游鱼
+33310101 1 --恶魔的提线魔术
+33310102 2 --睡美人的小憇
 
 #334
 33400037 1 --D.A.L-时崎狂三-ALTER
@@ -397,20 +403,21 @@
 33400003 1 --时崎狂三 献身者
 33400004 1 --时崎狂三 中二
 33400005 1 --时崎狂三 无言之影
-33400006 1 --时崎狂三-战斗启幕者
+33400006 0 --时崎狂三-战斗启幕者
 33400007 2 --时崎狂三-祈福
 33400014 1 --时崎狂三 奇袭
-33400100 1 --刻刻帝-喰时之城
+33400100 0 --刻刻帝-喰时之城
 33400104 1 --刻刻帝 「四之弹」
 33400106 1 --刻刻帝 「六之弹」
 33400108 1 --刻刻帝 「八之弹」
-33400113 1 --天使-刻刻帝
-33400114 1 --遥不可及的幸福
+33400113 0 --天使-刻刻帝
+33400114 0 --遥不可及的幸福
 33400351 0 --魔王-暴虐公（月面卡待补胜利龙卡密）
 33401201 1 --升阶魔法-灵结晶吸收
 33400403 2 --鸢一折纸 祈福
 33400425 2 --AST 鸢一折纸 过往
 33400011 1 --时崎狂三 婚纱
+33400013 1 --时崎狂三 校服
 #337
 33700036 0 --Protoform 咲夜
 33700040 0 --绝对的妖精 李斯特
@@ -468,6 +475,7 @@
 37564810 2 --3L·WARNING!!
 37564817 2 --3L·随花起舞
 37564818 1 --3L·Time Machine
+37564828 0 --3L·花开艳丽终将凋落
 37564848 2 --3L·不可思议的梦幻
 37564853 1 --3L·Apparition Lover
 37564902 1 --Sayuri-GRAZE
@@ -643,6 +651,7 @@
 65010127 1 --『星光歌剧』台本-约定Revue
 65010022 0 --水晶之歌 凑友希那
 65010056 0 --幻梦迷境王将 普芙蕾
+65020163 2 --幻世绘本-扉页-
 #650-2
 65011001 1 --时终流的溯行者
 65020008 2 --幻念的华瑕
@@ -682,7 +691,7 @@
 69691901 0 --探索安戈洛
 
 #756
-75646404 2 --戏言 鹿乃
+75646404 1 --戏言 鹿乃
 75646414 1 --Sweet Ice Cream 鹿乃
 75646137 2 --幻海的祈灵者
 75646159 0 --崩坏神格 樱华
@@ -701,6 +710,9 @@
 75646061 1 --崩坏第一女主角 琪亚娜
 75646534 0 --神权 安洁利亚
 75646900 1 --变色龙发卡
+75646401 1 --Nowhere 鹿乃
+75646418 2 --Day by Day 鹿乃
+75646423 2 --Hope 鹿乃
 #761
 76121011 0 --记忆森林-艾琳
 
@@ -744,7 +756,7 @@
 81040037 1 --冬日回忆·周子
 81040019 1 --周子·红叶秋风
 81041016 2 --那一片真实的天空
-81041024 1 --国见洸太郎 & 四条凛香
+81041024 2 --国见洸太郎 & 四条凛香
 81014004 2 --康娜卡姆依
 81014011 2 --见习OL 艾露玛
 81011008 2 --薇薇安·伊文捷琳 ω

expansions/script/c10813327.lua

+--やぶ蛇
+function c10813327.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(10813327,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetCondition(c10813327.spcon)
+	e1:SetTarget(c10813327.sptg)
+	e1:SetOperation(c10813327.spop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_REMOVE)
+	c:RegisterEffect(e2)
+end
+function c10813327.spcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsReason(REASON_EFFECT) and rp==1-tp and c:GetPreviousControler()==tp
+		and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEDOWN)
+end
+function c10813327.spfilter(c,e,tp)
+	forced_to_extra[tp]=true
+	local ft=Duel.GetLocationCountFromEx(tp)
+	forced_to_extra[tp]=false
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (not c:IsLocation(LOCATION_EXTRA) or (c:IsFacedown() and c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ)) or ft>0)
+end
+function c10813327.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local loc=0
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_DECK end
+		if Duel.GetLocationCountFromEx(tp)>0 then loc=loc+LOCATION_EXTRA end
+		return loc~=0 and Duel.IsExistingMatchingCard(c10813327.spfilter,tp,loc,0,1,nil,e,tp)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
+end
+function c10813327.spop(e,tp,eg,ep,ev,re,r,rp)
+	local loc=0
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_DECK end
+	if Duel.GetLocationCountFromEx(tp)>0 then loc=loc+LOCATION_EXTRA end
+	if loc==0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c10813327.spfilter,tp,loc,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/c10900014.lua

+--I
+function c10900014.initial_effect(c)
+	 --link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkAttribute,ATTRIBUTE_DARK),2)
+	c:EnableReviveLimit()
+	--atk
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_DISCARD)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c10900014.con)
+	e1:SetOperation(c10900014.op)
+	c:RegisterEffect(e1)
+	--dis
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(10900014,0))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCategory(CATEGORY_HANDES)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e2:SetCountLimit(1,10900014)
+	e2:SetTarget(c10900014.distg)
+	e2:SetOperation(c10900014.disop)
+	c:RegisterEffect(e2)
+end
+function c10900014.filter(c,tp)
+	return c:GetOwner()==tp
+end
+function c10900014.con(e,tp,eg,ep,ev,re,r,rp)
+	return eg:FilterCount(c10900014.filter,nil,tp)>0
+end
+function c10900014.op(e,tp,eg,ep,ev,re,r,rp)
+	if eg:FilterCount(c10900014.filter,nil,tp)>0 then
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SET_ATTACK)
+	e1:SetValue(e:GetHandler():GetAttack()*2)
+	e1:SetReset(RESET_EVENT+0xff0000)
+	e:GetHandler():RegisterEffect(e1) 
+	end
+end
+function c10900014.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_ONFIELD)  and chkc:IsFaceup()  end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
+end
+function c10900014.disop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+	local cg=Duel.SelectMatchingCard(tp,Card.IsDiscardable,tp,LOCATION_HAND,0,1,1,nil)
+	if cg:GetCount()==0 then return end
+	Duel.SendtoGrave(cg,REASON_EFFECT+REASON_DISCARD)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsFaceup() and c:IsFaceup() and tc:IsRelateToEffect(e) and c:IsRelateToEffect(e)  then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetRange(LOCATION_ONFIELD)
+		e1:SetCode(EFFECT_IMMUNE_EFFECT)
+		e1:SetValue(c10900014.efilter)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		local e2=e1:Clone() 
+		c:RegisterEffect(e2)
+	end
+end
+function c10900014.efilter(e,te)
+	return te:GetOwner()~=e:GetOwner()
+end

expansions/script/c1295111.lua

+--転生炎獣の聖域
+function c1295111.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--extra material
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(1295111,0))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetRange(LOCATION_EXTRA)
+	e2:SetCondition(c1295111.linkcon)
+	e2:SetOperation(c1295111.linkop)
+	e2:SetValue(SUMMON_TYPE_LINK)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e3:SetRange(LOCATION_FZONE)
+	e3:SetTargetRange(LOCATION_EXTRA,0)
+	e3:SetTarget(c1295111.mattg)
+	e3:SetLabelObject(e2)
+	c:RegisterEffect(e3)
+	--recover
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(1295111,1))
+	e4:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_RECOVER)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e4:SetRange(LOCATION_FZONE)
+	e4:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
+	e4:SetCountLimit(1,1295111)
+	e4:SetCondition(c1295111.atkcon)
+	e4:SetCost(c1295111.atkcost)
+	e4:SetTarget(c1295111.atktg)
+	e4:SetOperation(c1295111.atkop)
+	c:RegisterEffect(e4)
+end
+function c1295111.lmfilter(c,lc,tp,og,lmat)
+	return c:IsFaceup() and c:IsCanBeLinkMaterial(lc) and c:IsLinkCode(lc:GetCode()) and c:IsLinkType(TYPE_LINK)
+		and Duel.GetLocationCountFromEx(tp,tp,c,lc)>0 and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_LMATERIAL)
+		and (not og or og:IsContains(c)) and (not lmat or lmat==c)
+end
+function c1295111.linkcon(e,c,og,lmat,min,max)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.IsExistingMatchingCard(c1295111.lmfilter,tp,LOCATION_MZONE,0,1,nil,c,tp,og,lmat)
+		and Duel.GetFlagEffect(tp,1295111)==0
+end
+function c1295111.linkop(e,tp,eg,ep,ev,re,r,rp,c,og,lmat,min,max)
+	local mg=Duel.SelectMatchingCard(tp,c1295111.lmfilter,tp,LOCATION_MZONE,0,1,1,nil,c,tp,og,lmat)
+	c:SetMaterial(mg)
+	Duel.SendtoGrave(mg,REASON_MATERIAL+REASON_LINK)
+	Duel.RegisterFlagEffect(tp,1295111,RESET_PHASE+PHASE_END,0,1)
+	forced_to_extra[tp]=true
+end
+function c1295111.mattg(e,c)
+	return c:IsSetCard(0x119) and c:IsType(TYPE_LINK)
+end
+function c1295111.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	local a=Duel.GetAttacker()
+	if a:IsControler(1-tp) then a=Duel.GetAttackTarget() end
+	return a
+end
+function c1295111.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,1000) end
+	Duel.PayLPCost(tp,1000)
+end
+function c1295111.atkfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_LINK) and not c:IsAttack(0)
+end
+function c1295111.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c1295111.atkfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c1295111.atkfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	local g=Duel.SelectTarget(tp,c1295111.atkfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	local rec=g:GetFirst():GetBaseAttack()
+	Duel.SetTargetParam(rec)
+	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,rec)
+end
+function c1295111.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e1:SetValue(0)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+		Duel.Recover(tp,tc:GetBaseAttack(),REASON_EFFECT)
+	end
+end

expansions/script/c17060810.lua

+--圣枪型佣兵亚瑟
+local m=17060810
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c,false)
+	--xyz summon
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WARRIOR),4,2)
+	c:EnableReviveLimit()
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1,17060810)
+	e1:SetCondition(cm.spcon)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetDescription(aux.Stringid(17060810,0))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetCountLimit(1)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCost(cm.thcost)
+	e2:SetTarget(cm.thtg)
+	e2:SetOperation(cm.thop)
+	c:RegisterEffect(e2)
+	--to hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCost(cm.thhcost)
+	e3:SetTarget(cm.thhtg)
+	e3:SetOperation(cm.thhop)
+	c:RegisterEffect(e3)
+end
+cm.pendulum_level=4
+function cm.mfilter(c)
+	return c:IsType(TYPE_PENDULUM) and c:IsCanOverlay()
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+	and Duel.IsExistingMatchingCard(cm.mfilter,tp,LOCATION_MZONE,0,1,nil) and Duel.GetFlagEffect(tp,17060810)==0
+end
+function cm.mfilter1(c)
+	return c:IsSetCard(0x17f0) and c:IsType(TYPE_PENDULUM) and c:IsCanOverlay()
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.RegisterFlagEffect(tp,17060810,RESET_PHASE+PHASE_END,0,1)
+	local g=Duel.GetMatchingGroup(cm.mfilter,tp,LOCATION_MZONE,0,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+	local mg=g:Select(tp,1,1,nil)
+	Duel.Overlay(c,mg)
+	local g1=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.mfilter1),tp,LOCATION_GRAVE,0,nil)
+	if mg:GetFirst():IsSetCard(0x7f0) and g1:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(17060810,2)) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+		local mg1=g1:Select(tp,1,1,nil)
+		Duel.Overlay(c,mg1)
+	end
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
+end
+function cm.thfilter(c)
+	return c:IsSetCard(0x7f0) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function cm.thhcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() end
+	Duel.Release(e:GetHandler(),REASON_COST)
+end
+function cm.thhfilter(c)
+	return c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
+end
+function cm.thhtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsAbleToHand() end
+	if chk==0 then return Duel.IsExistingTarget(cm.thhfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,cm.thhfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function cm.pcfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
+end
+function cm.thhop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+	Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+	if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
+	local g=Duel.GetMatchingGroup(cm.pcfilter,tp,LOCATION_EXTRA,0,nil)
+	if tc:IsSetCard(0x7f0) and g:GetCount()>0 
+		and Duel.SelectYesNo(tp,aux.Stringid(17060810,3)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+		local mg=g:Select(tp,1,1,nil)
+		Duel.BreakEffect()
+		Duel.MoveToField(mg:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+	end
+end
\ No newline at end of file

expansions/script/c17060811.lua

+--圣夜型富豪亚瑟
+local m=17060811
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c,false)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x27f0),aux.FilterBoolFunction(Card.IsFusionType,TYPE_PENDULUM),true)
+	--negate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_CHAIN_SOLVING)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(cm.negcon)
+	e1:SetOperation(cm.negop)
+	c:RegisterEffect(e1)
+	--indes
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	--destroy
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(17060811,0))
+	e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetTarget(cm.destg)
+	e3:SetOperation(cm.desop)
+	c:RegisterEffect(e3)
+	--pendulum
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(17060811,1))
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_DESTROYED)
+	e4:SetProperty(EFFECT_FLAG_DELAY)
+	e4:SetCondition(cm.pencon)
+	e4:SetTarget(cm.pentg)
+	e4:SetOperation(cm.penop)
+	c:RegisterEffect(e4)
+end
+function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
+	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
+	return rp==1-tp and bit.band(loc,LOCATION_SZONE)~=0
+		and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainDisablable(ev) 
+end
+function cm.negop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateEffect(ev)
+end
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsType(TYPE_PENDULUM) end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsType,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler(),TYPE_PENDULUM) end
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,Card.IsType,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler(),TYPE_PENDULUM)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,1,1-tp,g:GetFirst():GetLeftScale()*300)
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local ls=tc:GetLeftScale()
+	if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
+		Duel.Damage(1-tp,ls*300,REASON_EFFECT)
+	end
+end
+function cm.pencon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
+end
+function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
+end
+function cm.penop(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+	end
+end
\ No newline at end of file

expansions/script/c17060813.lua

+--追忆型盗贼亚瑟
+local m=17060813
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	c:EnableReviveLimit()
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--special
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(17060813,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1,17060813)
+	e1:SetCost(cm.spcost)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)
+	--atk up
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(17060811,1))
+	e3:SetCategory(CATEGORY_ATKCHANGE)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetTarget(cm.atktg)
+	e3:SetOperation(cm.atkop)
+	c:RegisterEffect(e3)
+	--destroy
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(17060811,2))
+	e4:SetCategory(CATEGORY_DESTROY)
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCode(EVENT_BECOME_TARGET)
+	e4:SetCondition(cm.descon)
+	e4:SetTarget(cm.destg)
+	e4:SetOperation(cm.desop)
+	c:RegisterEffect(e4)
+end
+function cm.cfilter(c,e,tp)
+	return c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,1-tp,false,false,POS_FACEUP_DEFENSE) and not c:IsPublic()
+end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler(),e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,e:GetHandler(),e,tp)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+	e:SetLabelObject(g:GetFirst())
+end
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(0x47f0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+	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)
+	local tc=e:GetLabelObject()
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	local g=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,nil,e,tp)
+	if g:GetCount()>0 and Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP)~=0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local mg=g:Select(tp,1,1,nil)
+		Duel.SpecialSummon(mg,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,1,0,0)
+end
+function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc and c:IsRelateToEffect(e) and c:IsFaceup() then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(1000)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+	end
+end
+function cm.descon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsContains(e:GetHandler())
+end
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,0,LOCATION_ONFIELD)
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c17060815.lua

 --新春型佣兵亚瑟
-function c17060815.initial_effect(c)
+local m=17060815
+local cm=_G["c"..m]
+function cm.initial_effect(c)
 	--xyz summon
-	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_PENDULUM),7,2)
+	aux.AddXyzProcedure(c,nil,7,2)
 	c:EnableReviveLimit()
 	--pendulum summon
 	aux.EnablePendulumAttribute(c,false)
@@ -12,155 +14,108 @@ function c17060815.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_PZONE)
 	e1:SetCountLimit(1,17060815)
-	e1:SetCondition(c17060815.spcon)
-	e1:SetTarget(c17060815.sptg)
-	e1:SetOperation(c17060815.spop)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
 	c:RegisterEffect(e1)
-	--search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(17060815,1))
-	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetCondition(c17060815.regcon)
-	e2:SetTarget(c17060815.regtg)
-	e2:SetOperation(c17060815.regop)
-	c:RegisterEffect(e2)
-	--destroy
+	--atkup and remove
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(17060815,2))
-	e3:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE)
+	e3:SetDescription(aux.Stringid(17060815,1))
+	e3:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_REMOVE)
 	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetCode(EVENT_FREE_CHAIN)
-	e3:SetCountLimit(1,170608151)
 	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCode(EVENT_FREE_CHAIN)
 	e3:SetRange(LOCATION_MZONE)
-	e3:SetCondition(c17060815.descon)
-	e3:SetCost(c17060815.descost)
-	e3:SetTarget(c17060815.destg)
-	e3:SetOperation(c17060815.desop)
+	e3:SetCountLimit(1)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCost(cm.atkcost)
+	e3:SetTarget(cm.atktg)
+	e3:SetOperation(cm.atkop)
 	c:RegisterEffect(e3)
 	--pendulum
 	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(17060815,3))
+	e4:SetDescription(aux.Stringid(17060815,2))
 	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e4:SetCode(EVENT_DESTROYED)
 	e4:SetProperty(EFFECT_FLAG_DELAY)
-	e4:SetCondition(c17060815.pencon)
-	e4:SetTarget(c17060815.pentg)
-	e4:SetOperation(c17060815.penop)
+	e4:SetCondition(cm.pencon)
+	e4:SetTarget(cm.pentg)
+	e4:SetOperation(cm.penop)
 	c:RegisterEffect(e4)
 end
-c17060815.pendulum_level=7
-c17060815.is_named_with_Mercenary_Arthur=1
-c17060815.is_named_with_Million_Arthur=1
-function c17060815.Mercenary_Arthur(c)
+cm.pendulum_level=7
+cm.is_named_with_Mercenary_Arthur=1
+cm.is_named_with_Million_Arthur=1
+function cm.Mercenary_Arthur(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Mercenary_Arthur
 end
-function c17060815.IsMillion_Arthur(c)
+function cm.IsMillion_Arthur(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Million_Arthur
 end
-function c17060815.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(nil,tp,LOCATION_PZONE,0,1,e:GetHandler())
+function cm.xyzfilter(c,e,tp)
+	return c:IsSetCard(0x17f0) and e:GetHandler():IsCanBeXyzMaterial(c)
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
 end
-function c17060815.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetMZoneCount(tp)>0
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCountFromEx(tp,tp,e:GetHandler())>0
+		and aux.MustMaterialCheck(e:GetHandler(),tp,EFFECT_MUST_BE_XMATERIAL)
+		and Duel.IsExistingMatchingCard(cm.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
 end
-function c17060815.mfilter(c)
-	return c:IsType(TYPE_PENDULUM)
-end
-function c17060815.spop(e,tp,eg,ep,ev,re,r,rp)
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
-		local g=Duel.GetMatchingGroup(c17060815.mfilter,tp,LOCATION_GRAVE,0,e:GetHandler())
-		if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(17060815,4)) then
-			Duel.BreakEffect()
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
-			local mg=g:Select(tp,1,1,nil)
-			if mg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end
-			Duel.Overlay(c,mg)
+	if Duel.GetLocationCountFromEx(tp,tp,c)<=0 or not aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL) then return end
+	if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsControler(1-tp) or c:IsImmuneToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.xyzfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+	local sc=g:GetFirst()
+	if sc then
+		local mg=c:GetOverlayGroup()
+		if mg:GetCount()~=0 then
+			Duel.Overlay(sc,mg)
 		end
+		sc:SetMaterial(Group.FromCards(c))
+		Duel.Overlay(sc,Group.FromCards(c))
+		Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
+		sc:CompleteProcedure()
 	end
 end
-function c17060815.regcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
-end
-function c17060815.regtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_DECK,0,1,nil,TYPE_PENDULUM) end
-end
-function c17060815.regop(e,tp,eg,ep,ev,re,r,rp)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_PHASE+PHASE_END)
-	e1:SetCountLimit(1)
-	e1:SetCondition(c17060815.thcon)
-	e1:SetOperation(c17060815.thop)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function c17060815.thfilter(c)
-	return c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
-end
-function c17060815.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c17060815.thfilter,tp,LOCATION_DECK,0,1,nil)
-end
-function c17060815.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,17060815)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c17060815.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 c17060815.descost(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
 	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
 end
-function c17060815.descon(e,tp,eg,ep,ev,re,r,rp)
-	local ph=Duel.GetCurrentPhase()
-	return (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) and 
-	e:GetHandler():GetOverlayGroup():IsExists(Card.IsType,1,nil,TYPE_PENDULUM) and
-	e:GetHandler():GetOverlayGroup():IsExists(Card.IsType,1,nil,TYPE_XYZ)
-end
-function c17060815.filter(c)
-	return c:IsType(TYPE_MONSTER)
-end
-function c17060815.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) end
-	if chk==0 then return Duel.IsExistingTarget(c17060815.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,c17060815.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end
-function c17060815.desop(e,tp,eg,ep,ev,re,r,rp)
+function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
-	local atk=tc:GetTextAttack()
-	if tc:IsRelateToEffect(e) then
-		if Duel.Destroy(tc,REASON_EFFECT)~=0 and c:IsFaceup() then
-			local e1=Effect.CreateEffect(c)
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
-			e1:SetCode(EFFECT_UPDATE_ATTACK)
-			e1:SetValue(atk)
-			e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END)
-			c:RegisterEffect(e1)
-		end
+	if tc and c:IsRelateToEffect(e) and c:IsFaceup() then
+		local atk=tc:GetAttack()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(atk)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
 	end
+	if e:GetHandler():GetOverlayGroup():IsExists(Card.IsType,1,nil,TYPE_PENDULUM) then
+		Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
+	end 
 end
-function c17060815.pencon(e,tp,eg,ep,ev,re,r,rp)
+function cm.pencon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
 end
-function c17060815.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
 end
-function c17060815.penop(e,tp,eg,ep,ev,re,r,rp)
+function cm.penop(e,tp,eg,ep,ev,re,r,rp)
 	if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
 	local c=e:GetHandler()
 	if c:IsRelateToEffect(e) then

expansions/script/c17060817.lua

 --新春型歌姬亚瑟
-function c17060817.initial_effect(c)
+local m=17060817
+local cm=_G["c"..m]
+function cm.initial_effect(c)
 	--synchro summon
-	aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsType,TYPE_PENDULUM),1)
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
 	c:EnableReviveLimit()
 	--pendulum summon
 	aux.EnablePendulumAttribute(c,false)
-	--recover
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(17060817,1))
-	e2:SetCategory(CATEGORY_RECOVER)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,17060817)
-	e2:SetTarget(c17060817.rectg)
-	e2:SetOperation(c17060817.recop)
+	--double attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_EXTRA_ATTACK)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(cm.atktg)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--atk up
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetValue(800)
 	c:RegisterEffect(e2)
-	--chain attack
+	--double damage
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(17060817,2))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_BATTLE_DESTROYING)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_PRE_BATTLE_DAMAGE)
 	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,17060817)
-	e3:SetCondition(c17060817.cacon)
-	e3:SetTarget(c17060817.catg)
-	e3:SetOperation(c17060817.caop)
+	e3:SetCondition(cm.damcon)
+	e3:SetOperation(cm.damop)
 	c:RegisterEffect(e3)
 	--pendulum
 	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(17060817,3))
+	e4:SetDescription(aux.Stringid(17060817,0))
 	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e4:SetCode(EVENT_DESTROYED)
 	e4:SetProperty(EFFECT_FLAG_DELAY)
-	e4:SetCondition(c17060817.pencon)
-	e4:SetTarget(c17060817.pentg)
-	e4:SetOperation(c17060817.penop)
+	e4:SetCondition(cm.pencon)
+	e4:SetTarget(cm.pentg)
+	e4:SetOperation(cm.penop)
 	c:RegisterEffect(e4)
+	--special summon
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(17060817,1))
+	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e5:SetType(EFFECT_TYPE_IGNITION)
+	e5:SetRange(LOCATION_PZONE)
+	e5:SetCountLimit(1,17060817)
+	e5:SetCost(cm.spcost)
+	e5:SetTarget(cm.sptg)
+	e5:SetOperation(cm.spop)
+	c:RegisterEffect(e5)
 end
-c17060817.is_named_with_Singer_Arthur=1
-c17060817.is_named_with_Million_Arthur=1
-function c17060817.IsSinger_Arthur(c)
+cm.is_named_with_Singer_Arthur=1
+cm.is_named_with_Million_Arthur=1
+function cm.IsSinger_Arthur(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Singer_Arthur
 end
-function c17060817.IsMillion_Arthur(c)
+function cm.IsMillion_Arthur(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Million_Arthur
 end
-function c17060817.filter(c)
-	return c:IsFaceup() and c:GetAttack()>0
+function cm.damcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	return ep~=tp and tc:IsSetCard(0x7f0) and tc~=e:GetHandler()
 end
-function c17060817.rectg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c17060817.filter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c17060817.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	local g=Duel.SelectTarget(tp,c17060817.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,g:GetFirst():GetAttack())
+function cm.damop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.ChangeBattleDamage(ep,ev*2)
 end
-function c17060817.recop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:GetAttack()>0 then
-		Duel.Recover(tp,tc:GetAttack(),REASON_EFFECT)
-	end
+function cm.atktg(e,c)
+	return c:IsSetCard(0x7f0) and c~=e:GetHandler()
 end
-function c17060817.cacon(e,tp,eg,ep,ev,re,r,rp)
+function cm.pencon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local rc=eg:GetFirst()
-	return rc:IsRelateToBattle() and rc:IsStatus(STATUS_OPPO_BATTLE)
-		and rc:IsFaceup() and rc:IsType(TYPE_PENDULUM)  and rc:IsControler(tp)
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
 end
-function c17060817.catg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetMZoneCount(1-tp)>0
-		and Duel.GetAttackTarget():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK,1-tp) end
-	Duel.GetAttackTarget():CreateEffectRelation(e)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,Duel.GetAttackTarget(),1,0,0)
+function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
 end
-function c17060817.caop(e,tp,eg,ep,ev,re,r,rp)
+function cm.penop(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
 	local c=e:GetHandler()
-	local bc=Duel.GetAttackTarget()
-	if not bc:IsRelateToEffect(e) then return end
-	if Duel.SpecialSummonStep(bc,0,tp,1-tp,false,false,POS_FACEUP_ATTACK) then
-		local e1=Effect.CreateEffect(c)
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_DISABLE)
-			e1:SetReset(RESET_EVENT+0x1fe0000)
-			bc:RegisterEffect(e1)
-			local e2=Effect.CreateEffect(c)
-			e2:SetType(EFFECT_TYPE_SINGLE)
-			e2:SetCode(EFFECT_DISABLE_EFFECT)
-			e2:SetReset(RESET_EVENT+0x1fe0000)
-			bc:RegisterEffect(e2)
-		end
-		Duel.SpecialSummonComplete()
-		local tc=Duel.GetAttacker()
-		if tc:IsFaceup() and tc:IsControler(tp) and tc:IsRelateToBattle() then
-			local e1=Effect.CreateEffect(c)
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_UPDATE_ATTACK)
-			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-			e1:SetValue(500)
-			e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END)
-			tc:RegisterEffect(e1)
-			if tc:IsChainAttackable() then
-				Duel.ChainAttack()
-		end
+	if c:IsRelateToEffect(e) then
+		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
 	end
 end
-function c17060817.pencon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
+function cm.cfilter1(c,ft,tp)
+	return (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and c:IsFaceup() and c:IsType(TYPE_TUNER) and c:IsLevelBelow(7)
+		and Duel.IsExistingMatchingCard(cm.cfilter2,tp,LOCATION_MZONE,0,1,c,c:GetLevel())
+end
+function cm.cfilter2(c,lv)
+	return c:IsFaceup() and c:IsSetCard(0x7f0) and not c:IsType(TYPE_TUNER) and c:IsLevel(7-lv)
 end
-function c17060817.penfilter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if chk==0 then return ft>-1 and Duel.CheckReleaseGroup(tp,cfilter1,1,nil,ft,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g1=Duel.SelectReleaseGroup(tp,cm.cfilter1,1,1,nil,ft,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g2=Duel.SelectReleaseGroup(tp,cm.cfilter2,1,1,g1:GetFirst(),g1:GetFirst():GetLevel())
+	g1:Merge(g2)
+	Duel.SendtoGrave(g1,REASON_COST)
 end
-function c17060817.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetMZoneCount(tp)>0
-		and Duel.IsExistingMatchingCard(c17060817.penfilter,tp,LOCATION_PZONE,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_PZONE)
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
 end
-function c17060817.penop(e,tp,eg,ep,ev,re,r,rp)
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) or Duel.GetMZoneCount(tp)<1 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c17060817.penfilter,tp,LOCATION_PZONE,0,1,1,nil,e,tp)
-	if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0 then
-		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-	end
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
 end
\ No newline at end of file

expansions/script/c17060834.lua

 --华恋姬
-function c17060834.initial_effect(c)
+local m=17060834
+local cm=_G["c"..m]
+function cm.initial_effect(c)
 	--pendulum summon
 	aux.EnablePendulumAttribute(c)
-	--tuner
+	--spsummon
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(17060834,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_PZONE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCountLimit(1,17060834)
-	e1:SetTarget(c17060834.target)
-	e1:SetOperation(c17060834.operation)
+	e1:SetCost(cm.spcost)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
 	c:RegisterEffect(e1)
 	--send to grave
 	local e2=Effect.CreateEffect(c)
@@ -19,58 +21,54 @@ function c17060834.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetCountLimit(1,170608340)
-	e2:SetTarget(c17060834.tgtg)
-	e2:SetOperation(c17060834.tgop)
+	e2:SetCountLimit(1,17060834)
+	e2:SetTarget(cm.tgtg)
+	e2:SetOperation(cm.tgop)
 	c:RegisterEffect(e2)
 	local e3=e2:Clone()
 	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
 	c:RegisterEffect(e3)
 end
-c17060834.is_named_with_Singer_Arthur=1
-c17060834.is_named_with_Million_Arthur=1
-function c17060834.IsSinger_Arthur(c)
+cm.is_named_with_Singer_Arthur=1
+cm.is_named_with_Million_Arthur=1
+function cm.IsSinger_Arthur(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Singer_Arthur
 end
-function c17060834.IsMillion_Arthur(c)
+function cm.IsMillion_Arthur(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Million_Arthur
 end
-function c17060834.filter(c)
-	return c:IsFaceup() and c17060834.IsMillion_Arthur(c) and not c:IsType(TYPE_TUNER)
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFlagEffect(tp,17060834)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+	Duel.RegisterFlagEffect(tp,17060834,RESET_PHASE+PHASE_END,0,1)
 end
-function c17060834.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c17060834.filter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c17060834.filter,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,c17060834.filter,tp,LOCATION_MZONE,0,1,1,nil)
-end
-function c17060834.operation(e,tp,eg,ep,ev,re,r,rp)
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if c:IsRelateToEffect(e) and tc:IsFaceup() then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetCode(EFFECT_ADD_TYPE)
-		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		e1:SetValue(TYPE_TUNER)
-		tc:RegisterEffect(e1)
-		Duel.BreakEffect()
-		Duel.Destroy(c,REASON_EFFECT)
-	end
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+end
+function cm.costfilter(c)
+	return c:IsSetCard(0x7f0) and c:IsAbleToDeckAsCost()
+end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SendtoDeck(g,nil,2,REASON_COST)
 end
-function c17060834.tgfilter(c)
-	return c17060834.IsMillion_Arthur(c)and not c:IsCode(17060834) and c:IsAbleToGrave()
+function cm.tgfilter(c)
+	return c:IsSetCard(0x7f0) and not c:IsCode(m) and c:IsAbleToGrave()
 end
-function c17060834.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c17060834.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
 end
-function c17060834.tgop(e,tp,eg,ep,ev,re,r,rp)
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,c17060834.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
 	if g:GetCount()>0 then
 		Duel.SendtoGrave(g,REASON_EFFECT)
 	end

expansions/script/c17060835.lua

 --华恋贼
-function c17060835.initial_effect(c)
+local m=17060835
+local cm=_G["c"..m]
+function cm.initial_effect(c)
 	--pendulum summon
 	aux.EnablePendulumAttribute(c)
 	--FUSION
@@ -9,25 +11,15 @@ function c17060835.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_PZONE)
 	e1:SetCountLimit(1,17060835)
-	e1:SetCondition(c17060835.spcon)
-	e1:SetTarget(c17060835.sptg)
-	e1:SetOperation(c17060835.spop)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
 	c:RegisterEffect(e1)
-	--Destroy
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(17060835,1))
-	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
-	e2:SetCode(EVENT_LEAVE_FIELD)
-	e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-	e2:SetOperation(c17060835.desop)
-	c:RegisterEffect(e2)
 	--cannot be material
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(17060835,2))
 	e3:SetType(EFFECT_TYPE_SINGLE)
 	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
 	e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
-	e3:SetValue(c17060835.splimit)
+	e3:SetValue(cm.splimit)
 	c:RegisterEffect(e3)
 	local e4=e3:Clone()
 	e4:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
@@ -35,73 +27,67 @@ function c17060835.initial_effect(c)
 	local e5=e3:Clone()
 	e5:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
 	c:RegisterEffect(e5)
-	--cannot special summon
-	local e6=Effect.CreateEffect(c)
-	e6:SetDescription(aux.Stringid(17060835,3))
-	e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE)
-	e6:SetType(EFFECT_TYPE_SINGLE)
-	e6:SetRange(LOCATION_EXTRA)
-	e6:SetCode(EFFECT_SPSUMMON_CONDITION)
-	e6:SetValue(aux.FALSE)
-	c:RegisterEffect(e6)
 end
-c17060835.is_named_with_Million_Arthur=1
-function c17060835.IsMillion_Arthur(c)
+cm.is_named_with_Million_Arthur=1
+function cm.IsMillion_Arthur(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Million_Arthur
 end
-function c17060835.splimit(e,c)
+function cm.splimit(e,c)
 	if not c then return false end
-	return not c17060835.IsMillion_Arthur(c)
+	return not cm.IsMillion_Arthur(c)
 end
-function c17060835.cfilter(c)
-	return c17060835.IsMillion_Arthur(c)
-end
-function c17060835.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c17060835.cfilter,tp,LOCATION_PZONE,0,1,e:GetHandler())
-end
-function c17060835.filter0(c)
+function cm.filter0(c)
 	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
 end
-function c17060835.filter1(c,e)
-	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave() and not c:IsImmuneToEffect(e)
+function cm.filter1(c,e)
+	return not c:IsImmuneToEffect(e)
 end
-function c17060835.filter2(c,e,tp,m,f,chkf)
-	return c:IsType(TYPE_FUSION) and c17060835.IsMillion_Arthur(c) and (not f or f(c))
+function cm.filter2(c,e,tp,m,f,chkf)
+	return c:IsType(TYPE_FUSION) and c:IsSetCard(0x7f0) and (not f or f(c))
 		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
 end
-
-function c17060835.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.cfilter(c)
+	return c:IsSetCard(0x7f0)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		local chkf=tp
-		local mg1=Duel.GetMatchingGroup(c17060835.filter0,tp,LOCATION_DECK,0,nil)
-		local res=Duel.IsExistingMatchingCard(c17060835.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
+		local mg1=Duel.GetFusionMaterial(tp)
+		if Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_PZONE,0,1,e:GetHandler()) then
+			local mg2=Duel.GetMatchingGroup(cm.filter0,tp,LOCATION_DECK,0,nil)
+			mg1:Merge(mg2)
+		end
+		local res=Duel.IsExistingMatchingCard(cm.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 mg3=fgroup(ce,e,tp)
 				local mf=ce:GetValue()
-				res=Duel.IsExistingMatchingCard(c17060835.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
+				res=Duel.IsExistingMatchingCard(cm.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 c17060835.spop(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	local chkf=tp
-	local mg1=Duel.GetMatchingGroup(c17060835.filter1,tp,LOCATION_DECK,0,nil,e)
-	local sg1=Duel.GetMatchingGroup(c17060835.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
-	local mg2=nil
+	local mg1=Duel.GetFusionMaterial(tp):Filter(cm.filter1,nil,e)
+	if Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_PZONE,0,1,e:GetHandler()) then
+		local mg2=Duel.GetMatchingGroup(cm.filter0,tp,LOCATION_DECK,0,nil)
+		mg1:Merge(mg2)
+	end
+	local sg1=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
+	local mg3=nil
 	local sg2=nil
 	local ce=Duel.GetChainMaterial(tp)
 	if ce~=nil then
 		local fgroup=ce:GetTarget()
-		mg2=fgroup(ce,e,tp)
+		mg3=fgroup(ce,e,tp)
 		local mf=ce:GetValue()
-		sg2=Duel.GetMatchingGroup(c17060835.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
+		sg2=Duel.GetMatchingGroup(cm.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()
@@ -109,15 +95,6 @@ function c17060835.spop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 		local tg=sg:Select(tp,1,1,nil)
 		local tc=tg:GetFirst()
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
-		e1:SetValue(0)
-		e1:SetReset(RESET_EVENT+0xfe0000)
-		tc:RegisterEffect(e1)
-		local e2=e1:Clone()
-		e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
-		tc:RegisterEffect(e2)
 		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)
@@ -125,19 +102,10 @@ function c17060835.spop(e,tp,eg,ep,ev,re,r,rp)
 			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 mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
 			local fop=ce:GetOperation()
 			fop(ce,e,tp,tc,mat2)
 		end
 		tc:CompleteProcedure()
-		e:GetHandler():SetCardTarget(tc)
 	end
 end
-
-
-function c17060835.desop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=e:GetHandler():GetFirstCardTarget()
-	if tc and tc:IsLocation(LOCATION_MZONE) then
-		Duel.Destroy(tc,REASON_EFFECT)
-	end
-end
\ No newline at end of file

expansions/script/c17060852.lua

@@ -2,20 +2,9 @@
 function c17060852.initial_effect(c)
 	--pendulum summon
 	aux.EnablePendulumAttribute(c)
-	--pendulum set
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(17060852,0))
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_PZONE)
-	e1:SetCountLimit(1)
-	e1:SetCondition(c17060852.pencon)
-	e1:SetTarget(c17060852.pentg)
-	e1:SetOperation(c17060852.penop)
-	c:RegisterEffect(e1)
 	--search
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(17060852,1))
+	e2:SetDescription(aux.Stringid(17060852,0))
 	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_SUMMON_SUCCESS)
@@ -29,7 +18,7 @@ function c17060852.initial_effect(c)
 	c:RegisterEffect(e3)
 	--spsummon
 	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(17060852,2))
+	e4:SetDescription(aux.Stringid(17060852,1))
 	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e4:SetType(EFFECT_TYPE_IGNITION)
 	e4:SetRange(LOCATION_GRAVE)
@@ -54,32 +43,6 @@ function c17060852.IsMillion_Arthur(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Million_Arthur
 end
-function c17060852.pencon(e,tp,eg,ep,ev,re,r,rp)
-	local seq=e:GetHandler():GetSequence()
-	local sc=Duel.GetFirstMatchingCard(nil,tp,LOCATION_PZONE,0,e:GetHandler())
-	return sc and (c17060852.IsMillion_Arthur(sc) or sc.named_with_Backwards)
-end
-function c17060852.pcfilter(c)
-	return c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
-end
-function c17060852.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local seq=e:GetHandler():GetSequence()
-	local sc=Duel.GetFirstMatchingCard(nil,tp,LOCATION_PZONE,0,e:GetHandler())
-	if chk==0 then return Duel.IsExistingMatchingCard(c17060852.pcfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.SetTargetCard(sc)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,sc,1,0,0)
-end
-function c17060852.penop(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
-		local g=Duel.SelectMatchingCard(tp,c17060852.pcfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-		if g:GetCount()>0 then
-			Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		end
-	end
-end
 function c17060852.thfilter(c)
 	return c:GetLevel()==1 and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
 end

expansions/script/c17060863.lua

 --搭档型剑城＆菲
-function c17060863.initial_effect(c)
+local m=17060863
+local cm=_G["c"..m]
+function cm.initial_effect(c)
 	--xyz summon
-	aux.AddXyzProcedure(c,c17060863.xyzfilter,5,2)
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WARRIOR),5,2)
 	c:EnableReviveLimit()
 	--pendulum summon
 	aux.EnablePendulumAttribute(c,false)
-	--special summon ＆ pendulum set
+	--pendulum set
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(17060863,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_PZONE)
-	e1:SetCountLimit(1,17060863)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetTarget(c17060863.sptg)
-	e1:SetOperation(c17060863.spop)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCost(cm.pccost)
+	e1:SetTarget(cm.pctg)
+	e1:SetOperation(cm.pcop)
 	c:RegisterEffect(e1)
-	--pendulum set
+	--pendulum
 	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetDescription(aux.Stringid(17060863,1))
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetCondition(c17060863.pencon)
-	e2:SetTarget(c17060863.pentg)
-	e2:SetOperation(c17060863.penop)
+	e2:SetCode(EVENT_DESTROYED)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCondition(cm.pencon)
+	e2:SetTarget(cm.pentg)
+	e2:SetOperation(cm.penop)
 	c:RegisterEffect(e2)
+	--damage
 	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetCode(EFFECT_MATERIAL_CHECK)
-	e3:SetValue(c17060863.valcheck)
-	e3:SetLabelObject(e2)
+	e3:SetCategory(CATEGORY_DAMAGE)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetRange(LOCATION_PZONE)
+	e3:SetCode(EVENT_BATTLE_DAMAGE)
+	e3:SetCondition(cm.damcon1)
+	e3:SetOperation(cm.damop)
 	c:RegisterEffect(e3)
-	--atk
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(17060863,2))
-	e4:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
-	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e4:SetCode(EVENT_BATTLE_CONFIRM)
-	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e4:SetCountLimit(1)
-	e4:SetCondition(c17060863.atkcon)
-	e4:SetCost(c17060863.atkcost)
-	e4:SetOperation(c17060863.atkop)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_DAMAGE)
+	e4:SetCondition(cm.damcon2)
 	c:RegisterEffect(e4)
-	--pendulum
-	local e5=Effect.CreateEffect(c)
-	e5:SetDescription(aux.Stringid(17060863,3))
-	e5:SetType(EFFECT_TYPE_IGNITION)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCountLimit(1,170608631)
-	e5:SetTarget(c17060863.pentg1)
-	e5:SetOperation(c17060863.penop1)
-	c:RegisterEffect(e5)
 end
-c17060863.pendulum_level=5
-c17060863.is_named_with_Partner=1
-c17060863.is_named_with_Fencing=1
-c17060863.is_named_with_Million_Arthur=1
-function c17060863.IsPartner(c)
+cm.pendulum_level=5
+cm.is_named_with_Partner=1
+cm.is_named_with_Fencing=1
+cm.is_named_with_Million_Arthur=1
+function cm.IsPartner(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Partner
 end
-function c17060863.IsFencing(c)
+function cm.IsFencing(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Fencing
 end
-function c17060863.IsMillion_Arthur(c)
+function cm.IsMillion_Arthur(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Million_Arthur
 end
-function c17060863.xyzfilter(c)
-	return c:IsRace(RACE_WARRIOR) and c:IsType(TYPE_PENDULUM)
-end
-function c17060863.pcfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
-end
-function c17060863.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c17060863.pcfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c17060863.pcfilter,tp,LOCATION_MZONE,0,1,nil)
-	and Duel.GetMZoneCount(tp)>0 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
-	local g=Duel.SelectTarget(tp,c17060863.pcfilter,tp,LOCATION_MZONE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c17060863.mfilter(c)
-	return c:IsType(TYPE_PENDULUM)
-end
-function c17060863.spop(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
-	if Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)~=0 then
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		local g=Duel.GetMatchingGroup(c17060863.mfilter,tp,LOCATION_GRAVE,0,e:GetHandler())
-		if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(17060863,4)) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
-			local mg=g:Select(tp,1,1,nil)
-				if mg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end
-				Duel.Overlay(e:GetHandler(),mg)
-			end
-		end
-	end
-end
-function c17060863.pencon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ) and e:GetLabel()==1
-end
-function c17060863.chkfilter(c)
-	return c17060863.IsFencing(c)
-end
-function c17060863.valcheck(e,c)
-	local g=c:GetMaterial()
-	if g:IsExists(c17060863.chkfilter,1,nil) then
-		e:GetLabelObject():SetLabel(1)
-	else
-		e:GetLabelObject():SetLabel(0)
-	end
+function cm.pccost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
 end
-function c17060863.pfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
+function cm.pcfilter(c)
+	return c:IsSetCard(0x7f0) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
 end
-function c17060863.pentg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return true end
+function cm.pctg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
-	and Duel.IsExistingMatchingCard(c17060863.pfilter,tp,LOCATION_EXTRA,0,1,nil) end
+		and Duel.IsExistingMatchingCard(cm.pcfilter,tp,LOCATION_DECK,0,1,nil) end
 end
-function c17060863.penop(e,tp,eg,ep,ev,re,r,rp)
-	local ct=0
-	if Duel.CheckLocation(tp,LOCATION_PZONE,0) then ct=ct+1 end
-	if Duel.CheckLocation(tp,LOCATION_PZONE,1) then ct=ct+1 end
+function cm.pcop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
-	local g=Duel.SelectMatchingCard(tp,c17060863.pfilter,tp,LOCATION_EXTRA,0,1,ct,nil)
-	local pc=g:GetFirst()
-	while pc do
-		Duel.MoveToField(pc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_CANNOT_TRIGGER)
-		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		pc:RegisterEffect(e1)
-		pc=g:GetNext()
+	local g=Duel.SelectMatchingCard(tp,cm.pcfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true)
 	end
 end
-function c17060863.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
-	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
-end
-function c17060863.atkcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local bc=c:GetBattleTarget()
-	return c:IsRelateToBattle() and bc and bc:IsFaceup() and bc:IsRelateToBattle()
-end
-function c17060863.atkop(e,tp,eg,ep,ev,re,r,rp)
+function cm.pencon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and c:IsFaceup() then
-		local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
-		local val=g:GetSum(Card.GetRank)*200
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetValue(val)
-		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		c:RegisterEffect(e1)
-	end
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
 end
-function c17060863.penfilter(c,e,tp)
+function cm.penfilter(c,e,tp)
 	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
-function c17060863.pentg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_PZONE) and chkc:IsControler(tp) and c17060863.penfilter(chkc,e,tp) end
-	if chk==0 then return Duel.GetMZoneCount(tp)>0
-		and Duel.IsExistingTarget(c17060863.penfilter,tp,LOCATION_PZONE,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c17060863.penfilter,tp,LOCATION_PZONE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.penfilter,tp,LOCATION_PZONE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_PZONE)
 end
-function c17060863.penop1(e,tp,eg,ep,ev,re,r,rp)
+function cm.penop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
-	end
-	if c:IsRelateToEffect(e) then
+	if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.penfilter,tp,LOCATION_PZONE,0,1,1,nil,e,tp)
+	if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0 then
 		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
 	end
-end
\ No newline at end of file
+end
+function cm.damcon1(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp and Duel.GetLP(1-tp)>0 and (eg:GetFirst():IsSummonType(SUMMON_TYPE_PENDULUM) or eg:GetFirst():GetSummonLocation()==LOCATION_SZONE)
+end
+function cm.damcon2(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp and Duel.GetLP(1-tp)>0 and bit.band(r,REASON_BATTLE)==0 and re
+		and re:IsActiveType(TYPE_MONSTER) and (re:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM) or re:GetHandler():GetSummonLocation()==LOCATION_SZONE)
+end
+function cm.damop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,17060863)
+	Duel.Damage(1-tp,300,REASON_EFFECT)
+end

expansions/script/c17060865.lua

 --搭档型技瑟＆丽芙
-function c17060865.initial_effect(c)
+local m=17060865
+local cm=_G["c"..m]
+function cm.initial_effect(c)
 	--fusion material
 	c:EnableReviveLimit()
-	aux.AddFusionProcFun2(c,c17060865.ffilter,aux.FilterBoolFunction(Card.IsType,TYPE_PENDULUM),true)
+	aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x47f1),aux.FilterBoolFunction(Card.IsFusionType,TYPE_PENDULUM),true)
 	--pendulum summon
 	aux.EnablePendulumAttribute(c,false)
-	--special summon ＆ pendulum set
+	--atk&def
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(17060865,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
 	e1:SetRange(LOCATION_PZONE)
-	e1:SetCountLimit(1,17060865)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetTarget(c17060865.sptg)
-	e1:SetOperation(c17060865.spop)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetTarget(cm.atktg)
+	e1:SetValue(cm.atkval)
 	c:RegisterEffect(e1)
-	--to deck
+	--remove
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(17060865,1))
-	e2:SetCategory(CATEGORY_TODECK)
+	e2:SetDescription(aux.Stringid(17060865,0))
+	e2:SetCategory(CATEGORY_DAMAGE+CATEGORY_REMOVE)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetCondition(c17060865.tdcon)
-	e2:SetTarget(c17060865.tdtg)
-	e2:SetOperation(c17060865.tdop)
+	e2:SetCondition(cm.remcon)
+	e2:SetTarget(cm.remtg)
+	e2:SetOperation(cm.remop)
 	c:RegisterEffect(e2)
-	--disable
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(17060865,2))
-	e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DISABLE)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetCode(EVENT_CHAINING)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1)
-	e3:SetCondition(c17060865.discon)
-	e3:SetTarget(c17060865.distg)
-	e3:SetOperation(c17060865.disop)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_MATERIAL_CHECK)
+	e3:SetValue(cm.valcheck)
+	e3:SetLabelObject(e2)
 	c:RegisterEffect(e3)
 	--pendulum
 	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(17060865,3))
+	e4:SetDescription(aux.Stringid(17060865,1))
 	e4:SetType(EFFECT_TYPE_IGNITION)
 	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1,170608651)
-	e4:SetTarget(c17060865.pentg)
-	e4:SetOperation(c17060865.penop)
+	e4:SetCountLimit(1,17060865)
+	e4:SetTarget(cm.pentg)
+	e4:SetOperation(cm.penop)
 	c:RegisterEffect(e4)
 end
-c17060865.is_named_with_Partner=1
-c17060865.is_named_with_Skill_Field=1
-c17060865.is_named_with_Million_Arthur=1
-function c17060865.IsPartner(c)
+cm.is_named_with_Partner=1
+cm.is_named_with_Skill_Field=1
+cm.is_named_with_Million_Arthur=1
+function cm.IsMa_Elf(c)
 	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_Partner
+	return m and m.is_named_with_Ma_Elf
 end
-function c17060865.IsSkill_Field(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_Skill_Field
-end
-function c17060865.IsMillion_Arthur(c)
-	local m=_G["c"..c:GetCode()]
-	return m and m.is_named_with_Million_Arthur
+function cm.atkval(e,c)
+	return e:GetHandler():GetLeftScale()*100
 end
-function c17060865.ffilter(c)
-	return c17060865.IsSkill_Field(c)
+function cm.atktg(e,c)
+	return c:IsSummonType(SUMMON_TYPE_PENDULUM) or c:GetSummonLocation()==LOCATION_SZONE
 end
-function c17060865.pcfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
+function cm.cfilter(c)
+	return cm.IsMa_Elf(c) and c:IsType(TYPE_PENDULUM)
 end
-function c17060865.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c17060865.pcfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c17060865.pcfilter,tp,LOCATION_MZONE,0,1,nil)
-	and Duel.GetMZoneCount(tp)>0 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
-	local g=Duel.SelectTarget(tp,c17060865.pcfilter,tp,LOCATION_MZONE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c17060865.spop(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
-	if Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)~=0 then
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-		end
+function cm.valcheck(e,c)
+	local g=c:GetMaterial()
+	if g:IsExists(cm.cfilter,1,nil) then
+		e:GetLabelObject():SetLabel(1)
+	else
+		e:GetLabelObject():SetLabel(0)
 	end
 end
-function c17060865.tdcon(e,tp,eg,ep,ev,re,r,rp)
+function cm.remcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
 end
-function c17060865.tdfilter(c)
-	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck()
+function cm.chkfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and not c:IsAbleToRemove()
 end
-function c17060865.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c17060865.tdfilter,tp,0,LOCATION_ONFIELD,1,nil) end
-	local g=Duel.GetMatchingGroup(c17060865.tdfilter,tp,0,LOCATION_ONFIELD,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
-	Duel.SetChainLimit(c17060865.chainlm)
+function cm.filter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove()
 end
-function c17060865.tdop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c17060865.tdfilter,tp,0,LOCATION_ONFIELD,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+function cm.remtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return Duel.IsExistingMatchingCard(cm.filter,tp,0,LOCATION_SZONE,1,nil) 
+			and not Duel.IsExistingMatchingCard(cm.chkfilter,tp,0,LOCATION_SZONE,1,nil)
+	end
+	local g=Duel.GetMatchingGroup(cm.filter,tp,0,LOCATION_SZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetCount()*300)
+	if e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION) and e:GetLabel()==1 then
+		Duel.SetChainLimit(cm.chainlm)
 	end
 end
-function c17060865.chainlm(e,rp,tp)
+function cm.chainlm(e,rp,tp)
 	return tp==rp
 end
-function c17060865.discon(e,tp,eg,ep,ev,re,r,rp)
-	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and rp==1-tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev)
-end
-function c17060865.distg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
-end
-function c17060865.disop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.NegateEffect(ev)
+function cm.remop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(cm.filter,tp,0,LOCATION_SZONE,nil)
+	local ct=Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+	if ct>0 then
+		Duel.Damage(1-tp,ct*300,REASON_EFFECT)
+	end
 end
-function c17060865.penfilter(c,e,tp)
+function cm.penfilter(c,e,tp)
 	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
-function c17060865.pentg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_PZONE) and chkc:IsControler(tp) and c17060865.penfilter(chkc,e,tp) end
+function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_PZONE) and chkc:IsControler(tp) and cm.penfilter(chkc,e,tp) end
 	if chk==0 then return Duel.GetMZoneCount(tp)>0
-		and Duel.IsExistingTarget(c17060865.penfilter,tp,LOCATION_PZONE,0,1,nil,e,tp) end
+		and Duel.IsExistingTarget(cm.penfilter,tp,LOCATION_PZONE,0,1,nil,e,tp) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c17060865.penfilter,tp,LOCATION_PZONE,0,1,1,nil,e,tp)
+	local g=Duel.SelectTarget(tp,cm.penfilter,tp,LOCATION_PZONE,0,1,1,nil,e,tp)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
 end
-function c17060865.penop(e,tp,eg,ep,ev,re,r,rp)
+function cm.penop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
 	if tc:IsRelateToEffect(e) then

expansions/script/c17060866.lua

 --实在魔瑟
-function c17060866.initial_effect(c)
+local m=17060866
+local cm=_G["c"..m]
+function cm.initial_effect(c)
 	--pendulum summon
 	aux.EnablePendulumAttribute(c)
-	--negate+copy
+	--spsummon
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(17060866,0))
-	e1:SetCategory(CATEGORY_DISABLE)
-	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
 	e1:SetRange(LOCATION_PZONE)
-	e1:SetCountLimit(1)
-	e1:SetCost(c17060866.necost)
-	e1:SetTarget(c17060866.netg)
-	e1:SetOperation(c17060866.neop)
+	e1:SetCondition(cm.spcon)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
 	c:RegisterEffect(e1)
-	--tohand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(17060866,0))
-	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e2:SetCode(EVENT_TO_HAND)
-	e2:SetCountLimit(1,17060866)
-	e2:SetCondition(c17060866.pencon)
-	e2:SetTarget(c17060866.pentg)
-	e2:SetOperation(c17060866.penop)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
 	c:RegisterEffect(e2)
 	--spsummon
 	local e3=Effect.CreateEffect(c)
@@ -31,99 +25,49 @@ function c17060866.initial_effect(c)
 	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetCountLimit(1,17060866+EFFECT_COUNT_CODE_DUEL)
-	e3:SetCondition(c17060866.sptcon)
-	e3:SetTarget(c17060866.spttg)
-	e3:SetOperation(c17060866.sptop)
+	e3:SetCountLimit(1,17060866)
+	e3:SetCondition(cm.sptcon)
+	e3:SetTarget(cm.spttg)
+	e3:SetOperation(cm.sptop)
 	c:RegisterEffect(e3)
 end
-c17060866.is_named_with_Magic_Factions=1
-c17060866.is_named_with_Million_Arthur=1
-function c17060866.IsMagic_Factions(c)
+cm.is_named_with_Magic_Factions=1
+cm.is_named_with_Million_Arthur=1
+function cm.IsMagic_Factions(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Magic_Factions
 end
-function c17060866.IsMillion_Arthur(c)
+function cm.IsMillion_Arthur(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.is_named_with_Million_Arthur
 end
-function c17060866.copyfilter(c)
-	return c:IsFaceup()
-end
-function c17060866.necost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():GetFlagEffect(17060866)==0 end
-	e:GetHandler():RegisterFlagEffect(17060866,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
+function cm.cfilter(c,tp)
+	return c:IsFaceup() and c:IsControler(tp) and c:IsSetCard(0x7f0)
 end
-function c17060866.netg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_PZONE) and c17060866.copyfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c17060866.copyfilter,tp,LOCATION_PZONE,LOCATION_PZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	local g=Duel.SelectTarget(tp,c17060866.copyfilter,tp,LOCATION_PZONE,LOCATION_PZONE,1,1,nil)
-end
-function c17060866.neop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
-		local code=tc:GetOriginalCodeRule()
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetCode(EFFECT_CHANGE_CODE)
-		e1:SetValue(code)
-		e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		c:RegisterEffect(e1)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_DISABLE)
-		e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e2)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_SINGLE)
-		e3:SetCode(EFFECT_DISABLE_EFFECT)
-		e3:SetValue(RESET_TURN_SET)
-		e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e3)
-		local code1=tc:GetOriginalCode()
-		c:CopyEffect(code1,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,1)
-	end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter,1,nil,tp) and Duel.GetFlagEffect(tp,17060866)==0
 end
-
-function c17060866.pencon(e,tp,eg,ep,ev,re,r,rp)
-	return not e:GetHandler():IsReason(REASON_DRAW)
-end
-function c17060866.pcfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
-end
-function c17060866.pentg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c17060866.pcfilter(chkc) end
-	if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
-		and Duel.IsExistingTarget(c17060866.pcfilter,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
-	local g=Duel.SelectTarget(tp,c17060866.pcfilter,tp,LOCATION_MZONE,0,1,1,nil)
-	
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+	Duel.RegisterFlagEffect(tp,17060866,RESET_PHASE+PHASE_END,0,1)
 end
-function c17060866.penop(e,tp,eg,ep,ev,re,r,rp)
-	if not (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
-		or not e:GetHandler():IsRelateToEffect(e) then return end
-	local tc=Duel.GetFirstTarget()
-	if not tc:IsRelateToEffect(e) then return end
-	if Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)~=0 then
-	if e:GetHandler():IsRelateToEffect(e) then
-		Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
-		end
-	end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
 end
-function c17060866.sptcon(e,tp,eg,ep,ev,re,r,rp)
+function cm.sptcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():GetSummonLocation()==LOCATION_SZONE
 end
-function c17060866.spttg(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.spttg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetMZoneCount(tp)>0
 		and Duel.IsPlayerCanSpecialSummonMonster(tp,17060867,0,0x4011,0,0,1,RACE_PSYCHO,ATTRIBUTE_FIRE) end
 	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
 end
-function c17060866.sptop(e,tp,eg,ep,ev,re,r,rp)
+function cm.sptop(e,tp,eg,ep,ev,re,r,rp)
 	if not e:GetHandler():IsRelateToEffect(e)
 		or Duel.GetMZoneCount(tp)<=0
 		or not Duel.IsPlayerCanSpecialSummonMonster(tp,17060867,0,0x4011,0,0,1,RACE_PSYCHO,ATTRIBUTE_FIRE) then return end

expansions/script/c17060885.lua

+--圣夜型多莫维依
+local m=17060885
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,nil,2)
+	c:EnableReviveLimit()
+	--extra link
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetRange(LOCATION_EXTRA)
+	e1:SetTarget(cm.mattg)
+	e1:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
+	e1:SetTargetRange(0,LOCATION_PZONE)
+	e1:SetValue(cm.matval)
+	c:RegisterEffect(e1)
+	--control
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(17060885,0))
+	e2:SetCategory(CATEGORY_CONTROL)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetTarget(cm.cttg)
+	e2:SetOperation(cm.ctop)
+	c:RegisterEffect(e2)
+	--atkup
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(17060885,1))
+	e3:SetCategory(CATEGORY_ATKCHANGE)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1,17060885)
+	e3:SetCost(cm.cost)
+	e3:SetTarget(cm.target)
+	e3:SetOperation(cm.activate)
+	c:RegisterEffect(e3)
+end
+cm.is_named_with_domovo_i=1
+cm.is_named_with_Ma_Elf=1
+function cm.matval(e,c,mg)
+    return c:IsCode(17060885)
+end
+function cm.mattg(e,c)
+    return c:IsType(TYPE_PENDULUM)
+end
+function cm.ctfilter(c)
+	return c:IsType(TYPE_PENDULUM) and c:IsControlerCanBeChanged()
+end
+function cm.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and cm.ctfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(cm.ctfilter,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+	local g=Duel.SelectTarget(tp,cm.ctfilter,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
+end
+function cm.ctop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.GetControl(tc,tp)
+	end
+end
+function cm.cfilter(c)
+	return c:IsType(TYPE_PENDULUM) and c:IsAbleToRemoveAsCost()
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local off=1
+	local ops={aux.Stringid(17060885,2),aux.Stringid(17060885,3)}
+	local op=Duel.SelectOption(tp,table.unpack(ops))
+	e:SetLabel(op)
+	e:SetCategory(CATEGORY_TOHAND)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local sel=e:GetLabel()
+	if sel==0 then
+		--negate
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_CHAIN_SOLVING)
+		e1:SetProperty(EFFECT_FLAG_NO_TURN_RESET)
+		e1:SetCountLimit(1)
+		e1:SetCondition(cm.negcon)
+		e1:SetOperation(cm.negop)
+		Duel.RegisterEffect(e1,tp)
+	elseif sel==1 and Duel.GetFlagEffect(tp,17060885)==0 then
+		--damage reduce
+		local e3=Effect.CreateEffect(e:GetHandler())
+		e3:SetType(EFFECT_TYPE_FIELD)
+		e3:SetCode(EFFECT_CHANGE_DAMAGE)
+		e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e3:SetTargetRange(1,0)
+		e3:SetValue(cm.val)
+		Duel.RegisterEffect(e3,tp)
+		local e4=e3:Clone()
+		e4:SetCode(EFFECT_NO_EFFECT_DAMAGE)
+		e4:SetCondition(cm.damcon)
+		Duel.RegisterEffect(e4,tp)
+		Duel.RegisterFlagEffect(tp,17060885,0,0,0)
+		Duel.RegisterFlagEffect(tp,17060886,0,0,0)
+	else
+		Duel.RegisterFlagEffect(tp,17060886,0,0,0)
+	end
+end
+function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev) 
+end
+function cm.negop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,17060885)
+	Duel.NegateEffect(ev)
+end
+function cm.val(e,re,dam,r,rp,rc)
+	local ct=Duel.GetFlagEffect(1-rp,17060886)
+	if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 and ct>0 then
+		Duel.Hint(HINT_CARD,0,17060885)
+		if ct-1==0 then 
+			Duel.ResetFlagEffect(1-rp,17060886)
+		else Duel.ResetFlagEffect(1-rp,17060886)
+			Duel.RegisterFlagEffect(1-rp,17060886,0,0,ct-1)
+		end
+		return 0
+	else return dam end
+end
+function cm.damcon(e)
+	return Duel.GetFlagEffect(1-rp,17060886)>0
+end

expansions/script/c26805005.lua

---黛冬优子
+--心结·风野灯织
 function c26805005.initial_effect(c)
 	--negate
 	local e1=Effect.CreateEffect(c)

expansions/script/c26805015.lua

+--十二月短篇·杜野凛世
+c26805015.card_code_list={81010004}
+function c26805015.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,26805015)
+	e1:SetCondition(c26805015.spcon)
+	e1:SetCost(c26805015.spcost)
+	e1:SetTarget(c26805015.sptg)
+	e1:SetOperation(c26805015.spop)
+	c:RegisterEffect(e1)
+end
+function c26805015.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsEnvironment(81010004)
+end
+function c26805015.cfilter(c)
+	return c:IsAttribute(ATTRIBUTE_WIND) and c:IsAbleToGraveAsCost()
+end
+function c26805015.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingMatchingCard(c26805015.cfilter,tp,LOCATION_HAND,0,1,c) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c26805015.cfilter,tp,LOCATION_HAND,0,1,1,c)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c26805015.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function c26805015.spop(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.IsEnvironment(81010004) then return end
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

expansions/script/c26806062.lua

+--Racing Game
+function c26806062.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,26806062+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c26806062.condition)
+	e1:SetCost(c26806062.cost)
+	e1:SetTarget(c26806062.target)
+	e1:SetOperation(c26806062.activate)
+	c:RegisterEffect(e1)
+end
+function c26806062.cfilter(c)
+	return c:IsFaceup() and c:IsAttack(3200) and c:IsType(TYPE_LINK)
+end
+function c26806062.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c26806062.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c26806062.costfilter(c)
+	return c:IsAttack(2200) and c:IsDefense(600) and (c:IsFaceup() or not c:IsLocation(LOCATION_MZONE)) and c:IsAbleToGraveAsCost()
+end
+function c26806062.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26806062.costfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c26806062.costfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c26806062.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(2)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
+end
+function c26806062.activate(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/c26806063.lua

+--海浪之舞
+function c26806063.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,26806063+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c26806063.condition)
+	e1:SetTarget(c26806063.target)
+	e1:SetOperation(c26806063.activate)
+	c:RegisterEffect(e1)
+end
+function c26806063.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentPhase()==PHASE_MAIN2 or Duel.GetCurrentPhase()==PHASE_MAIN1
+end
+function c26806063.filter(c,e,tp)
+	return c:IsAttack(2200) and c:IsDefense(600) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c26806063.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local zone=Duel.GetLinkedZone(tp)
+		local ct=Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)
+		return ct>0 and Duel.IsExistingMatchingCard(c26806063.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)
+end
+function c26806063.activate(e,tp,eg,ep,ev,re,r,rp)
+	local zone=Duel.GetLinkedZone(tp)
+	local ct=Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)
+	if ct<=0 then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c26806063.filter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:SelectSubGroup(tp,aux.dncheck,false,1,ct)
+		Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP,zone)
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c26806063.ssplimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c26806063.ssplimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return not ((c:IsAttack(2200) and c:IsDefense(600)) or (c:IsAttack(3200) and c:IsType(TYPE_LINK)))
+end

expansions/script/c26809033.lua

+--假装是圣诞老人
+function c26809033.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_EQUIP)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,26809033)
+	e1:SetCost(c26809033.cost)
+	e1:SetTarget(c26809033.target)
+	e1:SetOperation(c26809033.operation)
+	c:RegisterEffect(e1)
+end
+function c26809033.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local c=e:GetHandler()
+	local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_REMAIN_FIELD)
+	e1:SetProperty(EFFECT_FLAG_OATH)
+	e1:SetReset(RESET_CHAIN)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_DISABLED)
+	e2:SetOperation(c26809033.tgop)
+	e2:SetLabel(cid)
+	e2:SetReset(RESET_CHAIN)
+	Duel.RegisterEffect(e2,tp)
+end
+function c26809033.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
+	if cid~=e:GetLabel() then return end
+	if e:GetOwner():IsRelateToChain(ev) then
+		e:GetOwner():CancelToGrave(false)
+	end
+end
+function c26809033.filter(c)
+	return c:IsFaceup()
+end
+function c26809033.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c26809033.filter(chkc) end
+	if chk==0 then return e:IsHasType(EFFECT_TYPE_ACTIVATE)
+		and Duel.IsExistingTarget(c26809033.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,c26809033.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+end
+function c26809033.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsLocation(LOCATION_SZONE) then return end
+	if not c:IsRelateToEffect(e) or c:IsStatus(STATUS_LEAVE_CONFIRMED) then return end
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Equip(tp,c,tc)
+		--
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_EQUIP_LIMIT)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetValue(1)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
+		--
+		local e2=Effect.CreateEffect(c)
+		e2:SetDescription(aux.Stringid(26809033,0))
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+		e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+		e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
+		e2:SetRange(LOCATION_MZONE)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e2:SetCountLimit(1)
+		e2:SetTarget(c26809033.indtg)
+		e2:SetOperation(c26809033.indop)
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+		e3:SetRange(LOCATION_SZONE)
+		e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+		e3:SetTarget(c26809033.eftg)
+		e3:SetLabelObject(e2)
+		c:RegisterEffect(e3)
+		--
+		local e4=Effect.CreateEffect(c)
+		e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+		e4:SetType(EFFECT_TYPE_QUICK_O)
+		e4:SetRange(LOCATION_SZONE)
+		e4:SetCode(EVENT_FREE_CHAIN)
+		e4:SetCountLimit(1,26809933)
+		e4:SetCondition(c26809033.spcon)
+		e4:SetCost(c26809033.spcost)
+		e4:SetTarget(c26809033.sptg)
+		e4:SetOperation(c26809033.spop)
+		e4:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e4)
+	else
+		c:CancelToGrave(false)
+	end
+end
+function c26809033.eftg(e,c)
+	return e:GetHandler():GetEquipTarget()==c
+end
+function c26809033.nmfilter(c,cd)
+	return c:IsFaceup() and not c:IsCode(cd)
+end
+function c26809033.indtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local cd=e:GetHandler():GetCode()
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c26809033.nmfilter(chkc,cd) end
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c26809033.nmfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,cd)
+end
+function c26809033.indop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc then return end
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_CODE)
+		e1:SetValue(tc:GetCode())
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
+	end
+end
+function c26809033.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetEquipTarget()
+end
+function c26809033.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	e:SetLabelObject(e:GetHandler():GetEquipTarget())
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+function c26809033.filter0(c)
+	return c:IsFaceup() and c:IsCanBeFusionMaterial()
+end
+function c26809033.filter1(c,e)
+	return c:IsFaceup() and c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e)
+end
+function c26809033.filter2(c,e,tp,m,f,chkf)
+	return c:IsType(TYPE_FUSION) and c:IsRace(RACE_PLANT) and c:IsAttribute(ATTRIBUTE_EARTH) and (not f or f(c))
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
+end
+function c26809033.filter3(c,e)
+	return not c:IsImmuneToEffect(e)
+end
+function c26809033.sptg(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(c26809033.filter0,tp,0,LOCATION_MZONE,nil)
+		mg1:Merge(mg2)
+		local res=Duel.IsExistingMatchingCard(c26809033.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(c26809033.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 c26809033.spop(e,tp,eg,ep,ev,re,r,rp)
+	local chkf=tp
+	local mg1=Duel.GetFusionMaterial(tp):Filter(c26809033.filter3,nil,e)
+	local mg2=Duel.GetMatchingGroup(c26809033.filter1,tp,0,LOCATION_MZONE,nil,e)
+	mg1:Merge(mg2)
+	local sg1=Duel.GetMatchingGroup(c26809033.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
+	local mg3=nil
+	local sg2=nil
+	local ce=Duel.GetChainMaterial(tp)
+	if ce~=nil then
+		local fgroup=ce:GetTarget()
+		mg3=fgroup(ce,e,tp)
+		local mf=ce:GetValue()
+		sg2=Duel.GetMatchingGroup(c26809033.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()
+		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/c26809034.lua

+--Nightmare
+function c26809034.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,26809034+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c26809034.target)
+	e1:SetOperation(c26809034.activate)
+	c:RegisterEffect(e1)
+end
+function c26809034.filter(c)
+	return c:IsType(TYPE_RITUAL) and c:IsAbleToHand()
+end
+function c26809034.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c26809034.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c26809034.filter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c26809034.filter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c26809034.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end

expansions/script/c26809035.lua

+--Black Cat Labyrinth
+function c26809035.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,26809035)
+	e1:SetTarget(c26809035.target)
+	e1:SetOperation(c26809035.activate)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCountLimit(1,26809035)
+	e2:SetTarget(c26809035.thtg)
+	e2:SetOperation(c26809035.thop)
+	c:RegisterEffect(e2)
+end
+function c26809035.spfilter(c,e,tp,mc)
+	return c:IsType(TYPE_PENDULUM) and bit.band(c:GetType(),0x81)==0x81 and (not c.mat_filter or c.mat_filter(mc,tp))
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true)
+		and mc:IsCanBeRitualMaterial(c)
+end
+function c26809035.rfilter(c,mc)
+	local mlv=mc:GetRitualLevel(c)
+	if mlv==mc:GetLevel() then return false end
+	local lv=c:GetLevel()
+	return lv==bit.band(mlv,0xffff) or lv==bit.rshift(mlv,16)
+end
+function c26809035.filter(c,e,tp)
+	local sg=Duel.GetMatchingGroup(c26809035.spfilter,tp,LOCATION_HAND,0,c,e,tp,c)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if c:IsLocation(LOCATION_MZONE) then ft=ft+1 end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
+	return sg:IsExists(c26809035.rfilter,1,nil,c) or sg:CheckWithSumEqual(Card.GetLevel,c:GetLevel(),1,ft)
+end
+function c26809035.mfilter(c)
+	return c:GetLevel()>0 and c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsType(TYPE_RITUAL) and c:IsAbleToGrave()
+end
+function c26809035.mzfilter(c,tp)
+	return c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) and c:GetSequence()<5
+end
+function c26809035.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+		if ft<0 then return false end
+		local mg=Duel.GetRitualMaterial(tp)
+		if ft>0 then
+			local mg2=Duel.GetMatchingGroup(c26809035.mfilter,tp,LOCATION_EXTRA,0,nil)
+			mg:Merge(mg2)
+		else
+			mg=mg:Filter(c26809035.mzfilter,nil,tp)
+		end
+		return mg:IsExists(c26809035.filter,1,nil,e,tp)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c26809035.activate(e,tp,eg,ep,ev,re,r,rp)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if ft<0 then return end
+	local mg=Duel.GetRitualMaterial(tp)
+	if ft>0 then
+		local mg2=Duel.GetMatchingGroup(c26809035.mfilter,tp,LOCATION_EXTRA,0,nil)
+		mg:Merge(mg2)
+	else
+		mg=mg:Filter(Card.IsLocation,nil,LOCATION_MZONE)
+	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local mat=mg:FilterSelect(tp,c26809035.filter,1,1,nil,e,tp)
+	local mc=mat:GetFirst()
+	if not mc then return end
+	local sg=Duel.GetMatchingGroup(c26809035.spfilter,tp,LOCATION_HAND,0,mc,e,tp,mc)
+	if mc:IsLocation(LOCATION_MZONE) then ft=ft+1 end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
+	local b1=sg:IsExists(c26809035.rfilter,1,nil,mc)
+	local b2=sg:CheckWithSumEqual(Card.GetLevel,mc:GetLevel(),1,ft)
+	if b1 and (not b2 or Duel.SelectYesNo(tp,aux.Stringid(26809035,0))) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local tg=sg:FilterSelect(tp,c26809035.rfilter,1,1,nil,mc)
+		local tc=tg:GetFirst()
+		tc:SetMaterial(mat)
+		if not mc:IsLocation(LOCATION_EXTRA) then
+			Duel.ReleaseRitualMaterial(mat)
+		else
+			Duel.SendtoGrave(mat,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL)
+		end
+		Duel.BreakEffect()
+		Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		tc:CompleteProcedure()
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local tg=sg:SelectWithSumEqual(tp,Card.GetLevel,mc:GetLevel(),1,ft)
+		local tc=tg:GetFirst()
+		while tc do
+			tc:SetMaterial(mat)
+			tc=tg:GetNext()
+		end
+		if not mc:IsLocation(LOCATION_EXTRA) then
+			Duel.ReleaseRitualMaterial(mat)
+		else
+			Duel.SendtoGrave(mat,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL)
+		end
+		Duel.BreakEffect()
+		tc=tg:GetFirst()
+		while tc do
+			Duel.SpecialSummonStep(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+			tc:CompleteProcedure()
+			tc=tg:GetNext()
+		end
+		Duel.SpecialSummonComplete()
+	end
+end
+function c26809035.thfilter(c)
+	return c:IsFaceup() and bit.band(c:GetType(),0x82)==0x82 and c:IsAbleToHand()
+end
+function c26809035.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED) and c26809035.thfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c26809035.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c26809035.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c26809035.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end

expansions/script/c33310101.lua

@@ -4,7 +4,7 @@ local m,cm=rsof.DefineCard(33310101)
 function cm.initial_effect(c)
 	local e1=rsef.ACT(c)
 	local e2=rsef.QO(c,nil,{m,0},{1,0x1},"tg",nil,LOCATION_SZONE,nil,nil,rsop.target2(cm.fun,cm.copyfilter,"tg",LOCATION_DECK),cm.copyop)
-	local e3=rsef.QO(c,nil,{m,1},{1,0x1},"dis",nil,LOCATION_SZONE,rscon.excard2(Card.IsType,LOCATION_MZONE,0,1,nil,TYPE_RITUAL),nil,rsop.target(aux.disfilter1,"dis",0,LOCATION_ONFIELD),cm.disop)
+	local e3=rsef.QO(c,nil,{m,1},{1,0x1},"dis",nil,LOCATION_SZONE,nil,nil,rsop.target(aux.disfilter1,"dis",0,LOCATION_ONFIELD),cm.disop)
 	local e4=rsef.QO(c,nil,{m,2},{1,0x1},nil,nil,LOCATION_SZONE,cm.skipcon,nil,nil,cm.skipop)
 end
 function cm.copyfilter(c,e,tp)
@@ -25,13 +25,13 @@ function cm.disop(e,tp)
 	local tc=Duel.SelectMatchingCard(tp,aux.disfilter1,tp,0,LOCATION_ONFIELD,1,1,nil):GetFirst()
 	if not tc then return end
 	Duel.HintSelection(rsgf.Mix2(tc))
-	local e1,e2=rsef.SV_LIMIT({c,tc},"dis,dise",nil,nil,rsreset.est_pend)
+	local e1,e2=rsef.SV_LIMIT({c,tc},"dis,dise",nil,nil,rsreset.est)
 	Duel.AdjustInstantly(c)
 	if tc:IsDisabled() and tc:IsType(TYPE_MONSTER) then
-		local e3=rsef.SV_INDESTRUCTABLE({c,tc},"battle",nil,nil,rsreset.est_pend)
+		local e3=rsef.SV_INDESTRUCTABLE({c,tc},"battle",nil,nil,rsreset.est)
 		local e4=Effect.CreateEffect(c)
 		e4:SetType(EFFECT_TYPE_SINGLE)
-		e4:SetReset(rsreset.est_pend)
+		e4:SetReset(rsreset.est)
 		e4:SetCode(EFFECT_MUST_ATTACK)
 		tc:RegisterEffect(e4)
 	end

expansions/script/c33310103.lua

+--可可莉柯特·兽耳布偶
+if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
+local m,cm=rsof.DefineCard(33310103,"Cochrot")
+function cm.initial_effect(c)
+	c:EnableReviveLimit()
+	local e1=rsef.I(c,{m,0},{1,m},"se,th,sp,dish,ga",nil,LOCATION_HAND,nil,nil,rsop.target({aux.FilterBoolFunction(Card.IsDiscardable,REASON_EFFECT),"dish",LOCATION_HAND },{cm.thfilter,"th",LOCATION_DECK }),cm.thop)
+	local e2=rsef.FC(c,EVENT_SPSUMMON_SUCCESS)
+	e2:SetOperation(cm.limitop)
+	local e3=rsef.RegisterClone(c,e2,"code",EVENT_SUMMON_SUCCESS)
+	local e4=rsef.RegisterClone(c,e2,"code",EVENT_FLIP_SUMMON_SUCCESS)
+	local e5=rsef.RegisterClone(c,e2,"code",EVENT_TO_GRAVE,"op",cm.limitop2)
+	local e6=rsef.STO(c,EVENT_REMOVE,{m,1},{1,m+100},"th","de,dsp",nil,nil,rsop.target(cm.thfilter2,"th",LOCATION_GRAVE),cm.thop2)
+end
+function cm.thfilter(c)
+	return c:IsCode(33310102) and c:IsAbleToHand()
+end
+function cm.thop(e,tp)
+	local ct=Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_EFFECT,nil,REASON_EFFECT)
+	if ct==0 then return end
+	rsof.SelectHint(tp,"th")
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if #g<=0 or Duel.SendtoHand(g,nil,REASON_EFFECT)<=0 then return end
+	Duel.ConfirmCards(1-tp,g)
+	local sg=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.spfilter),tp,0,LOCATION_GRAVE,nil,e,tp)
+	if #sg>0 and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
+		Duel.BreakEffect()
+		rsof.SelectHint(tp,"sp")
+		local sc=sg:Select(tp,1,1,nil):GetFirst()
+		if Duel.SpecialSummon(sc,0,tp,1-tp,false,false,POS_FACEUP)>0 then
+			local e1,e2=rsef.SV_LIMIT({e:GetHandler(),sc,true},"dis,dise",nil,nil,rsreset.est)
+		end
+	end
+end
+function cm.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp) and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
+end
+function cm.cfilter(c,tp)
+	return c:GetSummonPlayer()~=tp
+end
+function cm.limitop(e,tp,eg,ep,ev,re,r,rp)
+	if eg:IsExists(cm.cfilter,1,nil,tp) then
+		Duel.SetChainLimitTillChainEnd(cm.chlimit)
+	end
+end
+function cm.cfilter2(c,tp)
+	return c:GetOwner()~=tp
+end
+function cm.limitop2(e,tp,eg,ep,ev,re,r,rp)
+	if eg:IsExists(cm.cfilter2,1,nil,tp) then
+		Duel.SetChainLimitTillChainEnd(cm.chlimit)
+	end
+end
+function cm.chlimit(e,ep,tp)
+	return tp==ep
+end
+function cm.thfilter2(c)
+	return c:IsAbleToHand() and c:GetType()&0x82==0x82
+end
+function cm.thop2(e,tp)
+	rsof.SelectHint(tp,"th")
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter2),tp,LOCATION_GRAVE,0,1,1,nil)
+	rsof.SendtoHand(g)
+end
\ No newline at end of file

expansions/script/c33310104.lua

+--可可莉柯特·地狱尖啸者
+if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
+local m,cm=rsof.DefineCard(33310104,"Cochrot")
+function cm.initial_effect(c)
+	c:EnableReviveLimit()
+	local e1=rsef.QO(c,nil,{m,0},{1,m},"se,th,rm,dish,ga",nil,LOCATION_HAND,nil,nil,rsop.target({aux.FilterBoolFunction(Card.IsDiscardable,REASON_EFFECT),"dish",LOCATION_HAND },{cm.thfilter,"th",LOCATION_DECK }),cm.thop) 
+	--act limit
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e2:SetCondition(cm.con)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(0,1)
+	e2:SetValue(cm.aclimit)
+	c:RegisterEffect(e2)   
+	local e6=rsef.STO(c,EVENT_REMOVE,{m,1},{1,m+100},"td","de,dsp",nil,nil,rsop.target(Card.IsAbleToDeck,"td",LOCATION_GRAVE+LOCATION_REMOVED),cm.tdop)
+end
+function cm.thfilter(c)
+	return c:IsCode(33310101) and c:IsAbleToHand()
+end
+function cm.thop(e,tp)
+	local ct=Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_EFFECT,nil,REASON_EFFECT)
+	if ct==0 then return end
+	rsof.SelectHint(tp,"th")
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if #g<=0 or Duel.SendtoHand(g,nil,REASON_EFFECT)<=0 then return end
+	Duel.ConfirmCards(1-tp,g)
+	local rg=Duel.GetMatchingGroup(aux.NecroValleyFilter(Card.IsAbleToRemove),tp,LOCATION_GRAVE,0,nil)
+	if #rg>0 and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
+		Duel.BreakEffect()
+		rsof.SelectHint(tp,"rm")
+		rg=rg:Select(tp,1,1,nil)
+		rsof.Remove(rg)
+	end
+end
+function cm.con(e)
+	local ph=Duel.GetCurrentPhase()
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+end
+function cm.aclimit(e,re,tp)
+	return not re:GetOwnerPlayer()~=e:GetOwnerPlayer()
+end
+function cm.tdop(e,tp)
+	rsof.SelectHint(tp,"td")
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(Card.IsAbleToDeck),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
+	rsof.SendtoDeck(g)
+end
\ No newline at end of file

expansions/script/c37564765.lua

@@ -996,6 +996,11 @@ function cm.PConditionFilterNanahira(c,e,tp,lscale,rscale,f,tc,eset)
 		and (PENDULUM_CHECKLIST&(0x1<<tp)==0 or aux.PConditionExtraFilter(c,e,tp,lscale,rscale,eset))
 		and not c:IsForbidden() and (not f or f(c,tc))
 end
+function cm.SetForceExtra(tp,res)
+	if forced_to_extra then
+		forced_to_extra[tp]=res
+	end
+end
 function cm.PendConditionNanahira()
 	return  function(e,c,og)
 				if c==nil then return true end
@@ -1010,7 +1015,9 @@ function cm.PendConditionNanahira()
 				local ft=Duel.GetUsableMZoneCount(tp)
 				if ft<=0 then return false end
 				local mft=Duel.GetMZoneCount(tp)
+				cm.SetForceExtra(tp,true)
 				local eft=Duel.GetLocationCountFromEx(tp)
+				cm.SetForceExtra(tp,false)
 				local g=nil
 				if og then
 					g=og:Filter(aux.PConditionFilter,1,nil,e,tp,lscale,rscale,eset)
@@ -1056,7 +1063,9 @@ function cm.PendOperationNanahira()
                                 local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
 				local ft=Duel.GetUsableMZoneCount(tp)
 				local mft=Duel.GetMZoneCount(tp)
+				cm.SetForceExtra(tp,true)
 				local eft=Duel.GetLocationCountFromEx(tp)
+				cm.SetForceExtra(tp,false)
 				if Duel.IsPlayerAffectedByEffect(tp,59822133) then
 					mft=math.min(1,mft)
 					mft=math.min(1,eft)
@@ -1138,6 +1147,7 @@ function cm.PendOperationNanahira()
 				sg:Merge(g)
 				Duel.HintSelection(Group.FromCards(c))
 				Duel.HintSelection(Group.FromCards(rpz))
+				cm.SetForceExtra(tp,true)
 			end
 end
 function cm.NanahiraPCardFilter(c)

expansions/script/c65020154.lua

+--神奇术士 炙炎侍者
+function c65020154.initial_effect(c)
+	--counter
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCost(c65020154.cost)
+	e1:SetTarget(c65020154.tg)
+	e1:SetOperation(c65020154.op)
+	c:RegisterEffect(e1)
+	 --cannot trigger
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CANNOT_TRIGGER)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,LOCATION_ONFIELD)
+	e3:SetTarget(c65020154.target)
+	c:RegisterEffect(e3)
+end
+function c65020154.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x12da)>0 end
+	 Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x12da,1,REASON_COST)
+end
+function c65020154.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,1,nil)
+end
+function c65020154.op(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		tc:AddCounter(0x12da,1)
+	end
+end
+
+function c65020154.target(e,c)
+	return c:GetCounter(0x12da)>0
+end
\ No newline at end of file

expansions/script/c65020155.lua

+--神奇术士 流水少女
+function c65020155.initial_effect(c)
+	--counter
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCost(c65020155.cost)
+	e1:SetTarget(c65020155.tg)
+	e1:SetOperation(c65020155.op)
+	c:RegisterEffect(e1)
+	 --cannot trigger
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_DISABLE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,LOCATION_ONFIELD)
+	e3:SetTarget(c65020155.target)
+	c:RegisterEffect(e3)
+end
+function c65020155.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x12da)>0 end
+	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x12da,1,REASON_COST)
+end
+function c65020155.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,1,nil)
+end
+function c65020155.op(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		tc:AddCounter(0x12da,1)
+	end
+end
+
+function c65020155.target(e,c)
+	return c:GetCounter(0x12da)>0
+end

expansions/script/c65020156.lua

+--神奇术士 星光公主
+function c65020156.initial_effect(c)
+	 --counter
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCost(c65020156.cost)
+	e1:SetTarget(c65020156.tg)
+	e1:SetOperation(c65020156.op)
+	c:RegisterEffect(e1)
+	 --cannot trigger
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_SET_ATTACK)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,LOCATION_MZONE)
+	e3:SetTarget(c65020156.target)
+	e3:SetValue(0)
+	c:RegisterEffect(e3)
+	local e2=e3:Clone()
+	e2:SetCode(EFFECT_SET_DEFENSE)
+	c:RegisterEffect(e2)
+end
+function c65020156.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x12da)>0 end
+	Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x12da,1,REASON_COST)
+end
+function c65020156.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,1,nil)
+end
+function c65020156.op(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		tc:AddCounter(0x12da,1)
+	end
+end
+
+function c65020156.target(e,c)
+	return c:GetCounter(0x12da)>0
+end
+

expansions/script/c65020157.lua

+--神奇术士 漫游法师
+function c65020157.initial_effect(c)
+	--summon with s/t
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
+	e0:SetTargetRange(LOCATION_SZONE,0)
+	e0:SetTarget(c65020157.ettg)
+	e0:SetValue(POS_FACEUP_ATTACK)
+	c:RegisterEffect(e0)
+	--counter
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCost(c65020157.cost)
+	e1:SetTarget(c65020157.tg)
+	e1:SetOperation(c65020157.op)
+	c:RegisterEffect(e1)
+	--Add counter2
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e6:SetCode(EVENT_LEAVE_FIELD_P)
+	e6:SetRange(LOCATION_MZONE)
+	e6:SetCondition(c65020157.addcon)
+	e6:SetOperation(c65020157.addop)
+	c:RegisterEffect(e6)
+end
+function c65020157.ettg(e,c)
+	return c:IsType(TYPE_CONTINUOUS) and c:IsType(TYPE_SPELL)
+end
+function c65020157.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCounter(tp,LOCATION_ONFIELD,0,0x12da)>0 end
+	 Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x12da,1,REASON_COST)
+end
+function c65020157.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) end
+end
+function c65020157.op(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_ONFIELD,nil)
+	local tc=g:GetFirst()
+	while tc do
+		tc:AddCounter(0x12da,1)
+		tc=g:GetNext()
+	end
+end
+
+
+function c65020157.addcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c65020157.addfil,tp,LOCATION_SZONE,0,1,nil) and e:GetHandler():GetFlagEffect(65020157)==0
+end
+function c65020157.addfil(c)
+	return c:IsFaceup() and c:IsType(TYPE_SPELL) and c:IsType(TYPE_CONTINUOUS)
+end
+function c65020157.addop(e,tp,eg,ep,ev,re,r,rp)
+	local count=0
+	local c=eg:GetFirst()
+	while c~=nil do
+		if  c:IsLocation(LOCATION_ONFIELD) then
+			count=count+c:GetCounter(0x12da)
+		end
+		c=eg:GetNext()
+	end
+	if count>0 and Duel.SelectYesNo(tp,aux.Stringid(65020157,0)) then
+		local g=Duel.SelectMatchingCard(tp,c65020157.addfil,tp,LOCATION_SZONE,0,1,1,nil)
+		local tc=g:GetFirst()
+		tc:AddCounter(0x12da,count)
+		e:GetHandler():RegisterFlagEffect(65020157,RESET_PHASE+PHASE_END,0,1)
+	end
+end
\ No newline at end of file

expansions/script/c65020158.lua

+--神奇术士的力量石
+function c65020158.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c65020158.ac)
+	c:RegisterEffect(e1)
+	--Destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1) 
+	e2:SetCode(EVENT_PHASE+PHASE_END)
+	e2:SetCondition(c65020158.con)
+	e2:SetTarget(c65020158.tg)
+	e2:SetOperation(c65020158.op)
+	c:RegisterEffect(e2)
+	--rec X
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetCode(EVENT_REMOVE_COUNTER+0x12da)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetOperation(c65020158.rop2)
+	c:RegisterEffect(e3)
+	--rec X
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(65020158,2))
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_CUSTOM+65020158)
+	--e4:SetCode(EVENT_REMOVE_COUNTER+0x12da)
+	e4:SetCountLimit(1,65020158)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_DELAY)
+	e4:SetTarget(c65020158.rtg)
+	e4:SetOperation(c65020158.rop)
+	c:RegisterEffect(e4)
+end
+function c65020158.ac(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsFaceup() then
+		c:AddCounter(0x12da,2)
+	end
+end
+
+function c65020158.con(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetCounter(0x12da)<=0
+end
+function c65020158.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+end
+function c65020158.op(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+end
+
+function c65020158.rop2(e,tp,eg,ep,ev,re,r,rp)
+	 Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+65020158,e,0,tp,0,0)
+end
+function c65020158.rfil(c)
+	return c:IsSetCard(0xada8) and c:IsType(TYPE_CONTINUOUS) and not c:IsForbidden()
+end
+function c65020158.rtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.IsExistingMatchingCard(c65020158.rfil,tp,LOCATION_DECK,0,1,nil) end
+end
+function c65020158.rop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	local g=Duel.SelectMatchingCard(tp,c65020158.rfil,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		local tc=g:GetFirst()
+		Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+		tc:AddCounter(0x12da,1)
+	end
+end

expansions/script/c65020159.lua

+--神奇术士的支援石
+function c65020159.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c65020159.ac)
+	c:RegisterEffect(e1)
+	--Destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1) 
+	e2:SetCode(EVENT_PHASE+PHASE_END)
+	e2:SetCondition(c65020159.con)
+	e2:SetTarget(c65020159.tg)
+	e2:SetOperation(c65020159.op)
+	c:RegisterEffect(e2)
+	--rec X
+   local e3=Effect.CreateEffect(c)
+   e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+   e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+  e3:SetCode(EVENT_REMOVE_COUNTER+0x12da)
+	e3:SetRange(LOCATION_SZONE)
+  e3:SetOperation(c65020159.rop2)
+  c:RegisterEffect(e3)
+	--rec X
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(65020159,2))
+	e4:SetCategory(CATEGORY_SUMMON+CATEGORY_TOHAND)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_CUSTOM+65020159)
+	--e4:SetCode(EVENT_REMOVE_COUNTER+0x12da)
+	e4:SetCountLimit(1,65020159)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_DELAY)
+	e4:SetTarget(c65020159.rtg)
+	e4:SetOperation(c65020159.rop)
+	c:RegisterEffect(e4)
+end
+function c65020159.ac(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsFaceup() then
+		c:AddCounter(0x12da,2)
+	end
+end
+
+function c65020159.con(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetCounter(0x12da)<=0
+end
+function c65020159.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+end
+function c65020159.op(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+end
+
+function c65020159.rop2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+65020159,e,0,tp,0,0)
+end
+function c65020159.rfil(c)
+	return c:IsSetCard(0xada8) and c:IsSummonable(true,nil)
+end
+function c65020159.rf2(c)
+	return c:IsSetCard(0xada8) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c65020159.rtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c65020159.rfil,tp,LOCATION_HAND,0,1,nil) end
+end
+function c65020159.rop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	if Duel.IsExistingMatchingCard(c65020159.rf2,tp,LOCATION_GRAVE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(65020159,0)) then
+		local sg=Duel.SelectMatchingCard(tp,c65020159.rf2,tp,LOCATION_GRAVE,0,1,1,nil)
+		Duel.HintSelection(sg)
+		Duel.SendtoHand(sg,tp,REASON_EFFECT)
+	end
+	local g=Duel.SelectMatchingCard(tp,c65020159.rfil,tp,LOCATION_HAND,0,1,1,nil)
+	if g:GetCount()>0 then
+		local tc=g:GetFirst()
+		Duel.Summon(tp,tc,true,nil)
+	end
+end
+

expansions/script/c65020160.lua

+--神奇术士的共鸣石
+function c65020160.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c65020160.ac)
+	c:RegisterEffect(e1)
+	--Destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1) 
+	e2:SetCode(EVENT_PHASE+PHASE_END)
+	e2:SetCondition(c65020160.con)
+	e2:SetTarget(c65020160.tg)
+	e2:SetOperation(c65020160.op)
+	c:RegisterEffect(e2)
+	--rec X
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetCode(EVENT_REMOVE_COUNTER+0x12da)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetOperation(c65020160.rop2)
+	c:RegisterEffect(e3)
+	--rec X
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(65020160,2))
+	e4:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_CUSTOM+65020160)
+	--e4:SetCode(EVENT_REMOVE_COUNTER+0x12da)
+	e4:SetCountLimit(1,65020160)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_DELAY)
+	e4:SetTarget(c65020160.rtg)
+	e4:SetOperation(c65020160.rop)
+	c:RegisterEffect(e4)
+end
+function c65020160.ac(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsFaceup() then
+		c:AddCounter(0x12da,2)
+	end
+end
+
+function c65020160.con(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetCounter(0x12da)<=0
+end
+function c65020160.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+end
+function c65020160.op(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+end
+
+function c65020160.rop2(e,tp,eg,ep,ev,re,r,rp)
+	 Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+65020160,e,0,tp,0,0)
+end
+function c65020160.rfil(c)
+	return c:IsSetCard(0xada8) and c:IsAbleToHand()
+end
+function c65020160.rtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65020160.rfil,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c65020160.rop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local g=Duel.SelectMatchingCard(tp,c65020160.rfil,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,0,tp,tp,false,false,POS_FACEUP)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+

expansions/script/c65020161.lua

+--神奇术士的虹彩石
+function c65020161.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c65020161.ac)
+	c:RegisterEffect(e1)
+	--Destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1) 
+	e2:SetCode(EVENT_PHASE+PHASE_END)
+	e2:SetCondition(c65020161.con)
+	e2:SetTarget(c65020161.tg)
+	e2:SetOperation(c65020161.op)
+	c:RegisterEffect(e2)
+	--fukaz!
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCountLimit(1,65020161)
+	e3:SetCondition(c65020161.econ)
+	e3:SetTarget(c65020161.etg)
+	e3:SetOperation(c65020161.eop)
+	c:RegisterEffect(e3)
+end
+function c65020161.ecfil(c)
+	return c:IsSetCard(0xada8) and c:IsType(TYPE_CONTINUOUS) and c:IsPreviousLocation(LOCATION_SZONE)
+end
+function c65020161.econ(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c65020161.ecfil,1,nil) and not eg:IsContains(e:GetHandler())
+end
+function c65020161.etg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and not e:GetHandler():IsForbidden() end
+end
+function c65020161.eop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+		local tc=e:GetHandler()
+		Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+		tc:AddCounter(0x12da,1)
+end
+
+function c65020161.ac(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsFaceup() then
+		c:AddCounter(0x12da,2)
+	end
+end
+
+function c65020161.con(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetCounter(0x12da)<=0
+end
+function c65020161.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+end
+function c65020161.op(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c65020162.lua

+--奇术都市 奇石晶城
+function c65020162.initial_effect(c)
+	 --Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c65020162.cost)
+	e1:SetTarget(c65020162.target)
+	e1:SetOperation(c65020162.activate)
+	c:RegisterEffect(e1)
+	--Activate
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCountLimit(1)
+	e2:SetTarget(c65020162.tg)
+	e2:SetOperation(c65020162.op)
+	c:RegisterEffect(e2)
+end
+function c65020162.costfil(c)
+	return c:IsSetCard(0xada8) and not c:IsPublic() and Duel.IsExistingMatchingCard(c65020162.thfil,tp,LOCATION_DECK,0,1,nil,c:GetCode())
+end
+function c65020162.thfil(c,code)
+	return (c:GetCode()==code+4 or c:GetCode()==code-4) and c:IsSetCard(0xada8) and c:IsAbleToHand()
+end
+function c65020162.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65020162.costfil,tp,LOCATION_HAND,0,1,nil) end
+	local g=Duel.SelectMatchingCard(tp,c65020162.costfil,tp,LOCATION_HAND,0,1,1,nil)
+	local gc=g:GetFirst()
+	Duel.ConfirmCards(1-tp,gc)
+	Duel.ShuffleHand(tp)
+	e:SetLabel(gc:GetCode())
+end
+function c65020162.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c65020162.activate(e,tp,eg,ep,ev,re,r,rp)
+	local code=e:GetLabel()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c65020162.thfil,tp,LOCATION_DECK,0,1,1,nil,code)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+
+
+function c65020162.desfil(c)
+	return c:GetCounter(0x12da)>0
+end
+function c65020162.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65020162.desfil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	local sg=Duel.GetMatchingGroup(c65020162.desfil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
+end
+function c65020162.op(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(c65020162.desfil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
+	Duel.Destroy(sg,REASON_EFFECT)
+end

expansions/script/c65020163.lua

+--幻世绘本-扉页-
+function c65020163.initial_effect(c)
+	--xyz summon
+	c:EnableReviveLimit()
+	aux.AddXyzProcedureLevelFree(c,nil,c65020163.xyzcheck,2,99)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(65020163,1))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c65020163.cost)
+	e1:SetTarget(c65020163.target)
+	e1:SetOperation(c65020163.operation)
+	c:RegisterEffect(e1)
+	--rankup
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_UPDATE_RANK)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetValue(c65020163.rkval)
+	c:RegisterEffect(e2)
+	--books
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(65020163,2))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCondition(c65020163.con)
+	e3:SetTarget(c65020163.target2)
+	e3:SetOperation(c65020163.activate)
+	c:RegisterEffect(e3)
+end
+function c65020163.xyzcheck(g)
+	return g:GetClassCount(Card.GetLevel)==1
+end
+function c65020163.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c65020163.filter(c)
+	return c:IsSetCard(0xcda8) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
+end
+function c65020163.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65020163.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c65020163.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c65020163.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		if Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 then
+			Duel.ConfirmCards(1-tp,g)
+			if e:GetHandler():IsRelateToEffect(e) and e:GetHandler():IsFaceup() and e:GetHandler():IsType(TYPE_XYZ) and Duel.SelectYesNo(tp,aux.Stringid(65020163,0)) then
+				local mg=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_HAND,0,1,1,nil,0xcda8)
+				Duel.Overlay(e:GetHandler(),mg)
+			end
+		end
+	end
+end
+
+function c65020163.con(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
+end
+function c65020163.filter1(c,e,tp)
+	local rk=c:GetRank()
+	return c:IsFaceup() and c:IsType(TYPE_XYZ)
+		and Duel.IsExistingMatchingCard(c65020163.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,rk)
+		and Duel.GetLocationCountFromEx(tp,tp,c)>0
+		and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
+end
+function c65020163.filter2(c,e,tp,mc,rk)
+	return c:IsRank(rk) and c:IsSetCard(0xcda8) and mc:IsCanBeXyzMaterial(c)
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
+end
+function c65020163.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return c65020163.filter1(e:GetHandler(),e,tp) and e:GetHandler():GetFlagEffect(65020163)==0 end
+	e:GetHandler():RegisterFlagEffect(65020163,RESET_CHAIN,0,1)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c65020163.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetHandler()
+	if Duel.GetLocationCountFromEx(tp,tp,tc)<=0 or not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
+	if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c65020163.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank())
+	local sc=g:GetFirst()
+	if sc then
+		local mg=tc:GetOverlayGroup()
+		if mg:GetCount()~=0 then
+			Duel.Overlay(sc,mg)
+		end
+		sc:SetMaterial(Group.FromCards(tc))
+		Duel.Overlay(sc,Group.FromCards(tc))
+		Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
+		sc:CompleteProcedure()
+	end
+end
+
+function c65020163.rkval(e,c)
+	local num=e:GetHandler():GetOverlayCount()
+	return num
+end
\ No newline at end of file

expansions/script/c65020164.lua

+--幻世绘本-默语一页-
+function c65020164.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,3,4)
+	c:EnableReviveLimit()
+	--immune
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_IMMUNE_EFFECT)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c65020164.imcon)
+	e1:SetValue(c65020164.efilter)
+	c:RegisterEffect(e1)
+	--disable attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DRAW)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e2:SetCondition(c65020164.atkcon)
+	e2:SetCost(c65020164.atkcost)
+	e2:SetTarget(c65020164.atktg)
+	e2:SetOperation(c65020164.atkop)
+	c:RegisterEffect(e2)
+	--books
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetTarget(c65020164.target2)
+	e3:SetOperation(c65020164.activate)
+	c:RegisterEffect(e3)
+end
+function c65020164.imcon(e)
+	return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,0)==1
+end
+function c65020164.efilter(e,te)
+	return te:GetOwnerPlayer()~=e:GetOwnerPlayer()
+end
+
+function c65020164.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetAttacker():GetControler()~=tp
+end
+function c65020164.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c65020164.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp) end
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,0,0,tp,1)
+end
+function c65020164.atkop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateAttack() then
+		Duel.Draw(tp,1,REASON_EFFECT)
+	end
+end
+
+function c65020164.filter1(c,e,tp)
+	return c:IsFaceup() and Duel.IsExistingMatchingCard(c65020164.filter2,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil,e,tp,c)
+		and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
+end
+function c65020164.filter2(c,e,tp,mc)
+	return c:IsCode(65020163) and mc:IsCanBeXyzMaterial(c)
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and ((Duel.GetLocationCountFromEx(tp,tp,mc)>0 and c:IsLocation(LOCATION_EXTRA)) or (Duel.GetMZoneCount(tp,mc,tp)>0 and c:IsLocation(LOCATION_GRAVE)))
+end
+function c65020164.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA+LOCATION_GRAVE)
+end
+function c65020164.activate(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():GetOverlayCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(65020164,0)) then
+		e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT)
+	end
+	local tc=e:GetHandler()
+	if Duel.GetLocationCountFromEx(tp,tp,tc)<=0 or not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
+	if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c65020164.filter2,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil,e,tp,tc)
+	local sc=g:GetFirst()
+	if sc then
+		local mg=tc:GetOverlayGroup()
+		if mg:GetCount()~=0 then
+			Duel.Overlay(sc,mg)
+		end
+		sc:SetMaterial(Group.FromCards(tc))
+		Duel.Overlay(sc,Group.FromCards(tc))
+		Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
+		sc:CompleteProcedure()
+	end
+end
\ No newline at end of file

expansions/script/c65020165.lua

+--幻世绘本-自由二页-
+function c65020165.initial_effect(c)
+	 --xyz summon
+	aux.AddXyzProcedure(c,nil,5,5)
+	c:EnableReviveLimit()
+	--negate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c65020165.negcon)
+	e1:SetCost(c65020165.negcost)
+	e1:SetTarget(c65020165.negtg)
+	e1:SetOperation(c65020165.negop)
+	c:RegisterEffect(e1)
+	--cannot trigger
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c65020165.imcon)
+	e2:SetOperation(c65020165.actop)
+	c:RegisterEffect(e2)
+	--books
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetTarget(c65020165.target2)
+	e3:SetOperation(c65020165.activate)
+	c:RegisterEffect(e3)
+end
+function c65020165.negcon(e,tp,eg,ep,ev,re,r,rp)
+	local xg=e:GetHandler():GetOverlayGroup()
+	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
+		and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev) and xg:IsExists(Card.IsSetCard,1,nil,0xcda8) and ep~=tp
+end
+function c65020165.cfilter(c,rtype)
+	return c:IsType(rtype) and c:IsAbleToGraveAsCost()
+end
+function c65020165.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local rtype=bit.band(re:GetActiveType(),0x7)
+	local xg=e:GetHandler():GetOverlayGroup()
+	if chk==0 then return xg:IsExists(c65020165.cfilter,1,nil,rtype) end
+	local g=xg:FilterSelect(tp,c65020165.cfilter,1,1,nil,rtype)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c65020165.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return aux.nbcon(tp,re) end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c65020165.negop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end
+
+
+function c65020165.imcon(e)
+	return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,0)==1
+end
+function c65020165.actop(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	if ep==tp then
+		Duel.SetChainLimit(c65020165.chainlm)
+	end
+end
+function c65020165.chainlm(e,rp,tp)
+	return tp==rp
+end
+
+function c65020165.filter1(c,e,tp)
+	return c:IsFaceup() and Duel.IsExistingMatchingCard(c65020165.filter2,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil,e,tp,c)
+		and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
+end
+function c65020165.filter2(c,e,tp,mc)
+	return c:IsCode(65020163) and mc:IsCanBeXyzMaterial(c)
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and ((Duel.GetLocationCountFromEx(tp,tp,mc)>0 and c:IsLocation(LOCATION_EXTRA)) or (Duel.GetMZoneCount(tp,mc,tp)>0 and c:IsLocation(LOCATION_GRAVE)))
+end
+function c65020165.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA+LOCATION_GRAVE)
+end
+function c65020165.activate(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():GetOverlayCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(65020165,0)) then
+		e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT)
+	end
+	local tc=e:GetHandler()
+	if Duel.GetLocationCountFromEx(tp,tp,tc)<=0 or not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
+	if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c65020165.filter2,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil,e,tp,tc)
+	local sc=g:GetFirst()
+	if sc then
+		local mg=tc:GetOverlayGroup()
+		if mg:GetCount()~=0 then
+			Duel.Overlay(sc,mg)
+		end
+		sc:SetMaterial(Group.FromCards(tc))
+		Duel.Overlay(sc,Group.FromCards(tc))
+		Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
+		sc:CompleteProcedure()
+	end
+end
\ No newline at end of file

expansions/script/c65020166.lua

+--幻世绘本-降临三页-
+function c65020166.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,7,6)
+	c:EnableReviveLimit()
+	--Activate(summon)
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c65020166.con)
+	e1:SetCost(c65020166.cost)
+	e1:SetTarget(c65020166.target)
+	e1:SetOperation(c65020166.activate1)
+	c:RegisterEffect(e1)
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_TOHAND)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetProperty(EFFECT_FLAG_DELAY)
+	e4:SetCondition(c65020166.con)
+	e4:SetCost(c65020166.cost)
+	e4:SetTarget(c65020166.target20)
+	e4:SetOperation(c65020166.activate2)
+	c:RegisterEffect(e4)
+	--activate limit
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(0,1)
+	e2:SetCondition(c65020166.imcon)
+	e2:SetValue(c65020166.actlimit)
+	c:RegisterEffect(e2)
+	--books
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetTarget(c65020166.target2)
+	e3:SetOperation(c65020166.activate)
+	c:RegisterEffect(e3)
+end
+function c65020166.filter1(c,e,tp)
+	return c:IsFaceup() and Duel.IsExistingMatchingCard(c65020166.filter2,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil,e,tp,c)
+		and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
+end
+function c65020166.filter2(c,e,tp,mc)
+	return c:IsCode(65020163) and mc:IsCanBeXyzMaterial(c)
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and ((Duel.GetLocationCountFromEx(tp,tp,mc)>0 and c:IsLocation(LOCATION_EXTRA)) or (Duel.GetMZoneCount(tp,mc,tp)>0 and c:IsLocation(LOCATION_GRAVE)))
+end
+function c65020166.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA+LOCATION_GRAVE)
+end
+function c65020166.activate(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():GetOverlayCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(65020166,0)) then
+		e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT)
+	end
+	local tc=e:GetHandler()
+	if Duel.GetLocationCountFromEx(tp,tp,tc)<=0 or not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
+	if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c65020166.filter2,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil,e,tp,tc)
+	local sc=g:GetFirst()
+	if sc then
+		local mg=tc:GetOverlayGroup()
+		if mg:GetCount()~=0 then
+			Duel.Overlay(sc,mg)
+		end
+		sc:SetMaterial(Group.FromCards(tc))
+		Duel.Overlay(sc,Group.FromCards(tc))
+		Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
+		sc:CompleteProcedure()
+	end
+end
+
+function c65020166.con(e,tp,eg,ep,ev,re,r,rp)
+	local xg=e:GetHandler():GetOverlayGroup()
+	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
+		and xg:IsExists(Card.IsSetCard,1,nil,0xcda8)
+end
+function c65020166.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c65020166.filter(c,tp,ep)
+	return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() 
+		and ep~=tp and c:IsAbleToHand()
+end
+function c65020166.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tc=eg:GetFirst()
+	if chk==0 then return c65020166.filter(tc,tp,ep) end
+	Duel.SetTargetCard(eg)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,tc,1,0,0)
+end
+function c65020166.activate1(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Destroy(tc,REASON_EFFECT,LOCATION_REMOVED)
+	end
+end
+function c65020166.filter20(c,tp)
+	return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:GetSummonPlayer()~=tp
+		and c:IsAbleToHand()
+end
+function c65020166.target20(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return eg:IsExists(c65020166.filter20,1,nil,tp) end
+	local g=eg:Filter(c65020166.filter20,nil,tp)
+	Duel.SetTargetCard(eg)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0)
+end
+function c65020166.filter30(c,e,tp)
+	return c:IsFaceup() and c:GetSummonPlayer()~=tp
+		and c:IsRelateToEffect(e) and c:IsLocation(LOCATION_MZONE)
+end
+function c65020166.activate2(e,tp,eg,ep,ev,re,r,rp)
+	local g=eg:Filter(c65020166.filter30,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+	end
+end
+
+
+function c65020166.imcon(e)
+	return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,0)==1
+end
+function c65020166.actlimit(e,re,tp)
+	return re:GetHandler():IsOnField()
+end
\ No newline at end of file

expansions/script/c65020167.lua

+--幻世绘本-轮回末页-
+function c65020167.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,9,7)
+	c:EnableReviveLimit()
+	--destroy replace
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetCode(EFFECT_DESTROY_REPLACE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c65020167.con)
+	e2:SetTarget(c65020167.reptg)
+	c:RegisterEffect(e2)
+	--disable spsummon
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_FIELD)
+	e6:SetRange(LOCATION_MZONE)
+	e6:SetCode(EFFECT_CANNOT_SUMMON)
+	e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e6:SetTargetRange(0,1)
+	e6:SetCondition(c65020167.imcon)
+	c:RegisterEffect(e6)
+	local e7=e6:Clone()
+	e7:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	c:RegisterEffect(e7)
+	--books
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetTarget(c65020167.target2)
+	e3:SetOperation(c65020167.activate)
+	c:RegisterEffect(e3)
+end
+function c65020167.filter1(c,e,tp)
+	return c:IsFaceup() and Duel.IsExistingMatchingCard(c65020167.filter2,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil,e,tp,c)
+		and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
+end
+function c65020167.filter2(c,e,tp,mc)
+	return c:IsCode(65020163) and mc:IsCanBeXyzMaterial(c)
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and ((Duel.GetLocationCountFromEx(tp,tp,mc)>0 and c:IsLocation(LOCATION_EXTRA)) or (Duel.GetMZoneCount(tp,mc,tp)>0 and c:IsLocation(LOCATION_GRAVE)))
+end
+function c65020167.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA+LOCATION_GRAVE)
+end
+function c65020167.activate(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():GetOverlayCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(65020167,0)) then
+		e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT)
+	end
+	local tc=e:GetHandler()
+	if Duel.GetLocationCountFromEx(tp,tp,tc)<=0 or not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
+	if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c65020167.filter2,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil,e,tp,tc)
+	local sc=g:GetFirst()
+	if sc then
+		local mg=tc:GetOverlayGroup()
+		if mg:GetCount()~=0 then
+			Duel.Overlay(sc,mg)
+		end
+		sc:SetMaterial(Group.FromCards(tc))
+		Duel.Overlay(sc,Group.FromCards(tc))
+		Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
+		sc:CompleteProcedure()
+	end
+end
+
+function c65020167.con(e,tp,eg,ep,ev,re,r,rp)
+	local xg=e:GetHandler():GetOverlayGroup()
+	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
+		and xg:IsExists(Card.IsSetCard,1,nil,0xcda8)
+end
+function c65020167.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT) end
+	if Duel.SelectEffectYesNo(tp,e:GetHandler(),96) then
+		e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT)
+		if Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 and Duel.SelectYesNo(tp,aux.Stringid(65020167,1)) then
+			local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_HAND,1,1,nil)
+			Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD)
+		end
+		return true
+	else return false end
+end
+
+function c65020167.imcon(e)
+	return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,0)==1
+end
\ No newline at end of file

expansions/script/c65020168.lua

+--幻世绘本录-欢笑-
+function c65020168.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,65020168+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c65020168.tg)
+	e1:SetOperation(c65020168.op)
+	c:RegisterEffect(e1)
+	 --gain effect
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_XMATERIAL)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_CANNOT_CHANGE_CONTROL)
+	e2:SetCondition(c65020168.xmcon)
+	e2:SetValue(aux.tgoval)
+	c:RegisterEffect(e2)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_XMATERIAL)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCode(EFFECT_UNRELEASABLE_SUM)
+	e4:SetValue(1)
+	c:RegisterEffect(e4)
+	local e5=e4:Clone()
+	e5:SetCode(EFFECT_UNRELEASABLE_NONSUM)
+	c:RegisterEffect(e5)
+end
+function c65020168.xmcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsSetCard(0xcda8)
+end
+
+function c65020168.filter(c)
+   return c:IsFaceup() and c:IsType(TYPE_XYZ)
+end
+function c65020168.filter1(c)
+   return c:IsSetCard(0xcda8) and c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function c65020168.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c65020168.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c65020168.filter,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(c65020168.filter1,tp,LOCATION_DECK,0,1,nil) and Duel.GetMatchingGroupCount(Card.IsAbleToGrave,tp,LOCATION_HAND,0,nil)>0 end
+	Duel.SelectTarget(tp,c65020168.filter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND)
+end
+function c65020168.op(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		local n1=Duel.GetMatchingGroupCount(c65020168.filter1,tp,LOCATION_DECK,0,nil)
+		local n2=Duel.GetMatchingGroupCount(Card.IsAbleToGrave,tp,LOCATION_HAND,0,nil)
+		if n1>n2 then n1=n2 end
+		local num=Duel.DiscardHand(tp,Card.IsAbleToGrave,1,n1,REASON_EFFECT,nil)
+		if num>0 then
+		local ng=Duel.SelectMatchingCard(tp,c65020168.filter1,tp,LOCATION_DECK,0,num,num,nil)
+		if ng:GetCount()>0 then
+			Duel.Overlay(tc,ng) 
+		end
+		end
+	end
+end
\ No newline at end of file

expansions/script/c65020169.lua

+--幻世绘本录-等候-
+function c65020169.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,65020169+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c65020169.tg)
+	e1:SetOperation(c65020169.op)
+	c:RegisterEffect(e1)
+	--get effect
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_XMATERIAL)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c65020169.xmcon)
+	e2:SetValue(c65020169.atkval)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EFFECT_UPDATE_DEFENSE)
+	c:RegisterEffect(e3)
+end
+function c65020169.xmcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsSetCard(0xcda8)
+end
+function c65020169.atkval(e,c)
+	return c:GetOverlayCount()*200
+end
+
+function c65020169.filter(c)
+   return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsSetCard(0xcda8)
+end
+function c65020169.filter1(c)
+   return c:IsSetCard(0xcda8)  
+end
+function c65020169.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c65020169.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c65020169.filter,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(c65020169.filter1,tp,LOCATION_GRAVE,0,1,nil) and Duel.GetOverlayGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD):GetCount()>0 end
+	Duel.SelectTarget(tp,c65020169.filter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c65020169.op(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		local og=Duel.GetOverlayGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
+		if og:GetCount()>0 then
+			local on=Duel.SendtoGrave(og,REASON_EFFECT)
+			if on~=og:GetCount() then return end
+			local gcn=Duel.GetMatchingGroupCount(c65020169.filter1,tp,LOCATION_GRAVE,0,nil)
+			if on>gcn then on=gcn end
+			local g=Duel.SelectMatchingCard(tp,c65020169.filter1,tp,LOCATION_GRAVE,0,1,on,nil)
+			if g:GetCount()>0 then 
+				Duel.Overlay(tc,g)  
+			end
+		end
+	end
+end
\ No newline at end of file

expansions/script/c65020170.lua

+--幻世绘本录-柔情-
+function c65020170.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,65020170+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c65020170.tg)
+	e1:SetOperation(c65020170.op)
+	c:RegisterEffect(e1)
+	--gain effect
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_XMATERIAL)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e2:SetCondition(c65020170.xmcon)
+	e2:SetValue(aux.tgoval)
+	c:RegisterEffect(e2)
+end
+function c65020170.xmcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsSetCard(0xcda8)
+end
+
+function c65020170.filter(c)
+   return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsSetCard(0xcda8) and c:GetOverlayCount()>0
+end
+function c65020170.filter1(c)
+   return c:IsSetCard(0xcda8)  
+end
+function c65020170.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c65020170.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c65020170.filter,tp,LOCATION_MZONE,0,1,nil) and Duel.IsPlayerCanDraw(tp) end
+	Duel.SelectTarget(tp,c65020170.filter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,0,0,tp,1)
+end
+function c65020170.op(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		local og=Duel.GetOverlayGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
+		if og:GetCount()>0 then
+			local num=og:GetClassCount(Card.GetCode)
+			local g=og:SelectSubGroup(tp,aux.dncheck,false,1,num)
+			local dr=Duel.SendtoGrave(g,REASON_EFFECT)
+			Duel.Draw(tp,dr,REASON_EFFECT)
+			--adjust
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetCode(EVENT_ADJUST)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	e2:SetOperation(c65020170.adjustop)
+	Duel.RegisterEffect(e2,tp)
+		end
+	end
+end
+function c65020170.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 g1=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
+	if g1:GetCount()>1 then
+		Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(65020170,0))
+	   local g=g1:FilterSelect(tp,aux.TRUE,1,1,nil)
+	   g1:RemoveCard(g:GetFirst())
+		if g1:GetCount()>0 then
+		Duel.SendtoGrave(g1,REASON_EFFECT)
+		Duel.Readjust()
+	end
+	end
+
+end
\ No newline at end of file

expansions/script/c65020171.lua

+--幻世绘本页-苏醒-
+function c65020171.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,65020171)
+	e1:SetCondition(c65020171.accon)
+	e1:SetTarget(c65020171.actg)
+	e1:SetOperation(c65020171.acop)
+	c:RegisterEffect(e1)
+	local e3=e1:Clone()
+	e3:SetCode(EVENT_REMOVE)
+	c:RegisterEffect(e3)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,65020172)
+	e2:SetTarget(c65020171.tg)
+	e2:SetOperation(c65020171.op)
+	c:RegisterEffect(e2)
+end
+function c65020171.acfil(c,tp)
+	return c:IsSetCard(0xcda8) and c:IsPreviousLocation(LOCATION_MZONE) and c:GetReasonPlayer()~=tp
+end
+function c65020171.accon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c65020171.acfil,1,nil,tp)
+end
+function c65020171.acsfil(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and c:IsSetCard(65020163)
+end
+function c65020171.actg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65020171.acsfil,tp,LOCATION_EXTRA,0,1,nil,e,tp) and Duel.GetLocationCountFromEx(tp)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c65020171.acop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCountFromEx(tp)<=0 then return end
+	local g=Duel.GetFirstMatchingCard(c65020171.acsfil,tp,LOCATION_EXTRA,0,nil,e,tp)
+	local tc=g:GetFirst()
+	if tc then
+		Duel.SpecialSummon(tc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
+		tc:CompleteProcedure()
+		Duel.BreakEffect()
+		local xg=Duel.GetMatchingGroup(Card.IsSetCard,tp,LOCATION_GRAVE,0,nil,0xcda8)
+		Duel.Overlay(tc,xg)
+	end
+end
+
+
+
+function c65020171.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetPreviousLocation()==LOCATION_OVERLAY and Duel.IsExistingMatchingCard(c65020171.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c65020171.thfilter(c)
+	return c:IsSetCard(0xcda8) and c:IsAbleToHand() and c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function c65020171.op(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.SelectMatchingCard(tp,c65020171.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if tg then
+		Duel.SendtoHand(tg,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tg)
+	end
+end
\ No newline at end of file

expansions/script/c65020173.lua

+--幻世绘本页-惊吓-
+function c65020173.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_CARD_TARGET)
+	e1:SetCountLimit(1,65020173)
+	e1:SetCondition(c65020173.accon)
+	e1:SetCost(c65020173.accost)
+	e1:SetTarget(c65020173.actg)
+	e1:SetOperation(c65020173.acop)
+	c:RegisterEffect(e1)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,65020174)
+	e2:SetTarget(c65020173.tg)
+	e2:SetOperation(c65020173.op)
+	c:RegisterEffect(e2)
+end
+function c65020173.acfil(c)
+	return c:IsSetCard(0xcda8) and c:IsType(TYPE_XYZ) and c:IsFaceup()
+end
+function c65020173.accon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1 and Duel.IsExistingMatchingCard(c65020173.acfil,tp,LOCATION_MZONE,0,1,nil)
+end
+function c65020173.actgfil(c)
+	return c:IsCanBeEffectTarget() and c:IsAbleToDeck()
+end
+function c65020173.accost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tgc=Duel.GetMatchingGroupCount(c65020173.actgfil,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE,nil)
+	local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
+	local gc=g:GetFirst()
+	local rk=gc:GetRank()
+	if tgc>rk then tgc=rk end
+	if chk==0 then return tgc>0 and gc:CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	local num=gc:RemoveOverlayCard(tp,1,tgc,REASON_COST)
+	e:SetLabel(num)
+end
+function c65020173.actg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return true end
+	if chk==0 then return true end
+	local num=e:GetLabel()
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE,num,num,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,num,0,0)
+end
+function c65020173.acop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	if g:GetCount()>0 then
+		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+	end
+end
+
+function c65020173.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetPreviousLocation()==LOCATION_OVERLAY and Duel.IsExistingMatchingCard(c65020173.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+end
+function c65020173.thfilter(c)
+	return c:IsSetCard(0xcda8) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() 
+end
+function c65020173.op(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tg=Duel.SelectMatchingCard(tp,c65020173.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	if tg then
+		Duel.SendtoHand(tg,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tg)
+	end
+end

expansions/script/c65020175.lua

+--幻世绘本页-惊吓-
+function c65020175.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(65020175,0))
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCountLimit(1,65020175)
+	e1:SetCondition(c65020175.condition)
+	e1:SetCost(c65020175.cost)
+	e1:SetTarget(c65020175.target)
+	e1:SetOperation(c65020175.activate)
+	c:RegisterEffect(e1)
+	 --tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,65020176)
+	e2:SetTarget(c65020175.tg)
+	e2:SetOperation(c65020175.op)
+	c:RegisterEffect(e2)
+end
+function c65020175.filter1(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_XYZ) and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL) and Duel.IsExistingMatchingCard(c65020175.filter2,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil,e,tp,c)
+end
+function c65020175.filter2(c,e,tp,mc)
+	return c:IsCode(65020163) and mc:IsCanBeXyzMaterial(c)
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and ((Duel.GetLocationCountFromEx(tp,tp,mc)>0 and c:IsLocation(LOCATION_EXTRA)) or (Duel.GetMZoneCount(tp,mc,tp)>0 and c:IsLocation(LOCATION_GRAVE)))
+end
+function c65020175.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return c65020175.filter1(chkc) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end
+	if chk==0 then return Duel.IsExistingTarget(c65020175.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) and e:GetHandler():GetPreviousLocation()==LOCATION_OVERLAY end
+	local g=Duel.SelectTarget(tp,c65020175.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA+LOCATION_GRAVE)
+end
+function c65020175.op(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if ((Duel.GetLocationCountFromEx(tp,tp,tc)<=0 and c:IsLocation(LOCATION_EXTRA)) or (Duel.GetMZoneCount(tp,tc,tp)<=0 and c:IsLocation(LOCATION_GRAVE))) or not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
+	if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c65020175.filter2,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil,e,tp,tc)
+	local sc=g:GetFirst()
+	if sc then
+		local mg=tc:GetOverlayGroup()
+		if mg:GetCount()~=0 then
+			Duel.Overlay(sc,mg)
+		end
+		sc:SetMaterial(Group.FromCards(tc))
+		Duel.Overlay(sc,Group.FromCards(tc))
+		Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
+		sc:CompleteProcedure()
+	end
+end
+
+function c65020175.acfil(c)
+	return c:IsSetCard(0xcda8) and c:IsType(TYPE_XYZ) and c:IsFaceup()
+end
+function c65020175.condition(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.IsChainNegatable(ev) then return false end
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1 and Duel.IsExistingMatchingCard(c65020175.acfil,tp,LOCATION_MZONE,0,1,nil) and ep~=tp
+end
+function c65020175.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local cc=Duel.GetFieldGroup(tp,LOCATION_MZONE,0):GetFirst()
+	local xgc=cc:GetOverlayCount()
+	if chk==0 then return cc:CheckRemoveOverlayCard(tp,xgc,REASON_COST) end
+	local xg=cc:GetOverlayGroup()
+	local num=Duel.SendtoGrave(xg,REASON_COST)
+	e:SetLabel(num)
+end
+function c65020175.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsAbleToDeck() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,1,0,0)
+		Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE)
+	end
+end
+function c65020175.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SendtoDeck(eg,nil,2,REASON_EFFECT)
+		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_GRAVE,0,1,e:GetLabel(),nil)
+		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+	end
+end

expansions/script/c65020177.lua

+--幻世绘本-原初封页-
+function c65020177.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--Atk
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SET_ATTACK)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetTargetRange(0,LOCATION_MZONE)
+	e2:SetCondition(c65020177.acon)
+	e2:SetTarget(c65020177.atg)
+	e2:SetValue(0)
+	c:RegisterEffect(e2)
+	local e4=e2:Clone()
+	e4:SetCode(EFFECT_SET_DEFENSE)
+	c:RegisterEffect(e4)
+	--Activate
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(65020177,0))
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_XMATERIAL+EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTarget(c65020177.tg)
+	e3:SetOperation(c65020177.op)
+	c:RegisterEffect(e3)
+end
+function c65020177.acfil(c)
+	return c:IsSetCard(0xcda8) and c:IsType(TYPE_XYZ) and c:IsFaceup()
+end
+function c65020177.acon(e,c)
+	local tp=e:GetHandlerPlayer()
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1 and Duel.IsExistingMatchingCard(c65020177.acfil,tp,LOCATION_MZONE,0,1,nil)
+end
+function c65020177.atg(e,c)
+	local tp=e:GetHandlerPlayer()
+	local cc=Duel.GetFieldGroup(tp,LOCATION_MZONE,0):GetFirst()
+	local rk=cc:GetRank()
+	return (c:GetLevel()<=rk and c:GetLevel()>0) or (c:GetRank()<=rk and c:GetRank()>0)
+end
+
+
+
+function c65020177.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_HAND,0,1,nil) and Duel.IsPlayerCanDraw(tp) end
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,0,0,tp,1)
+end
+function c65020177.op(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetHandler()
+	if tc:IsRelateToEffect(e) then
+		local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_HAND,0,1,1,nil)
+		if g:GetCount()>0 then 
+			Duel.Overlay(tc,g)
+			Duel.Draw(tp,1,REASON_EFFECT)	 
+		end
+	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
\ No newline at end of file

expansions/script/c65030033.lua

+--祸摆呼唤者 潘妮
+function c65030033.initial_effect(c)
+	--control
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetOperation(c65030033.pdop)
+	c:RegisterEffect(e1)
+	local e0=e1:Clone()
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e0)
+   --extra material
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(65030033,0))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c65030033.sprcon)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,LOCATION_HAND)
+	e3:SetTarget(c65030033.mattg)
+	e3:SetLabelObject(e2)
+	c:RegisterEffect(e3)
+	--pandolum
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e4:SetCountLimit(1,65030033)
+	e4:SetRange(LOCATION_HAND)  
+	e4:SetCode(EVENT_LEAVE_FIELD)
+	e4:SetCondition(c65030033.con)
+	e4:SetTarget(c65030033.tg)
+	e4:SetOperation(c65030033.op)
+	c:RegisterEffect(e4)
+end
+function c65030033.confil(c)
+	return c:IsSetCard(0x3da9) and c:IsPreviousLocation(LOCATION_MZONE) and (c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) or c:IsPreviousPosition(POS_FACEUP))
+end
+function c65030033.con(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c65030033.confil,1,nil)
+end
+function c65030033.tgfil(c)
+	return c:IsSetCard(0x3da9) and c:IsAbleToHand()
+end
+function c65030033.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65030033.tgfil,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c65030033.op(e,tp,eg,ep,ev,re,r,rp)
+	local og=Duel.GetMatchingGroup(c65030033.tgfil,tp,LOCATION_DECK,0,nil)
+	local num=eg:FilterCount(c65030033.confil,nil)
+	local g=og:SelectSubGroup(tp,aux.dncheck,false,1,num)
+	if g:GetCount()>0 then
+		if Duel.SendtoHand(g,tp,REASON_EFFECT)~=0 then
+			Duel.ConfirmCards(1-tp,g)
+			if Duel.GetMZoneCount(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and e:GetHandler():IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(65030033,1)) then
+			Duel.BreakEffect()
+			Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
+			end
+		end
+	end
+end
+
+function c65030033.pdop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.GetControl(e:GetHandler(),1-tp)
+	Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENSE)
+end
+function c65030033.sprcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+end
+function c65030033.mattg(e,c)
+	return c:IsSetCard(0x3da9) 
+end
\ No newline at end of file

expansions/script/c65030034.lua

+--祸摆统治者 安娜
+function c65030034.initial_effect(c)
+	--control
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetOperation(c65030034.pdop)
+	c:RegisterEffect(e1)
+	local e0=e1:Clone()
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e0)
+   --extra material
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(65030034,0))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c65030034.sprcon)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,LOCATION_HAND)
+	e3:SetTarget(c65030034.mattg)
+	e3:SetLabelObject(e2)
+	c:RegisterEffect(e3)
+	--pandolum
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_CONTROL+CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e4:SetCountLimit(1,65030034)
+	e4:SetRange(LOCATION_HAND)  
+	e4:SetCode(EVENT_LEAVE_FIELD)
+	e4:SetCondition(c65030034.con)
+	e4:SetTarget(c65030034.tg)
+	e4:SetOperation(c65030034.op)
+	c:RegisterEffect(e4)
+end
+function c65030034.confil(c)
+	return c:IsSetCard(0x3da9) and c:IsPreviousLocation(LOCATION_MZONE) and (c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) or c:IsPreviousPosition(POS_FACEUP))
+end
+function c65030034.con(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c65030034.confil,1,nil)
+end
+function c65030034.tgfil(c)
+	return c:IsControlerCanBeChanged()
+end
+function c65030034.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65030034.tgfil,tp,0,LOCATION_MZONE,1,nil) end
+end
+function c65030034.op(e,tp,eg,ep,ev,re,r,rp)
+	local num=eg:FilterCount(c65030034.confil,nil)
+	local ft=Duel.GetMZoneCount(tp)
+	if num>ft then num=ft end
+	local g=Duel.SelectMatchingCard(tp,c65030034.tgfil,tp,0,LOCATION_MZONE,1,num,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		if Duel.GetControl(g,tp,PHASE_END,2) and Duel.GetMZoneCount(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and e:GetHandler():IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(65030034,1)) then
+			Duel.BreakEffect()
+			Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+
+function c65030034.pdop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.GetControl(e:GetHandler(),1-tp)
+	Duel.ChangePosition(e:GetHandler(),POS_FACEUP_ATTACK)
+end
+function c65030034.sprcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+end
+function c65030034.mattg(e,c)
+	return c:IsSetCard(0x3da9) 
+end
\ No newline at end of file

expansions/script/c65030035.lua

+--祸摆导亡者 娜菲
+function c65030035.initial_effect(c)
+	--control
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetOperation(c65030035.pdop)
+	c:RegisterEffect(e1)
+	local e0=e1:Clone()
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e0)
+   --extra material
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(65030035,0))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c65030035.sprcon)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,LOCATION_HAND)
+	e3:SetTarget(c65030035.mattg)
+	e3:SetLabelObject(e2)
+	c:RegisterEffect(e3)
+	--pandolum
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e4:SetCountLimit(1,65030035)
+	e4:SetRange(LOCATION_HAND)  
+	e4:SetCode(EVENT_LEAVE_FIELD)
+	e4:SetCondition(c65030035.con)
+	e4:SetTarget(c65030035.tg)
+	e4:SetOperation(c65030035.op)
+	c:RegisterEffect(e4)
+end
+function c65030035.confil(c)
+	return c:IsSetCard(0x3da9) and c:IsPreviousLocation(LOCATION_MZONE) and (c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) or c:IsPreviousPosition(POS_FACEUP))
+end
+function c65030035.con(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c65030035.confil,1,nil)
+end
+function c65030035.tgfil(c)
+	return c:IsAbleToGrave()
+end
+function c65030035.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65030035.tgfil,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_MZONE)
+end
+function c65030035.op(e,tp,eg,ep,ev,re,r,rp)
+	local num=eg:FilterCount(c65030035.confil,nil)
+	local g=Duel.SelectMatchingCard(tp,c65030035.tgfil,tp,0,LOCATION_MZONE,1,num,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		if Duel.SendtoGrave(g,REASON_EFFECT)~=0 and Duel.GetMZoneCount(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and e:GetHandler():IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(65030035,1)) then
+			Duel.BreakEffect()
+			Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+
+function c65030035.pdop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.GetControl(e:GetHandler(),1-tp)
+	Duel.ChangePosition(e:GetHandler(),POS_FACEUP_ATTACK)
+end
+function c65030035.sprcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+end
+function c65030035.mattg(e,c)
+	return c:IsSetCard(0x3da9) 
+end
\ No newline at end of file

expansions/script/c65030036.lua

+--祸摆交游者 多拉
+function c65030036.initial_effect(c)
+	--control
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetOperation(c65030036.pdop)
+	c:RegisterEffect(e1)
+	local e0=e1:Clone()
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e0)
+   --extra material
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(65030036,0))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c65030036.sprcon)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,LOCATION_HAND)
+	e3:SetTarget(c65030036.mattg)
+	e3:SetLabelObject(e2)
+	c:RegisterEffect(e3)
+	--pandolum
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e4:SetCountLimit(1,65030036)
+	e4:SetRange(LOCATION_HAND)  
+	e4:SetCode(EVENT_LEAVE_FIELD)
+	e4:SetCondition(c65030036.con)
+	e4:SetTarget(c65030036.tg)
+	e4:SetOperation(c65030036.op)
+	c:RegisterEffect(e4)
+end
+function c65030036.confil(c)
+	return c:IsSetCard(0x3da9) and c:IsPreviousLocation(LOCATION_MZONE) and (c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) or c:IsPreviousPosition(POS_FACEUP))
+end
+function c65030036.con(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c65030036.confil,1,nil)
+end
+function c65030036.tgfil(c,e,tp)
+	return c:IsSetCard(0x3da9) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c65030036.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65030036.tgfil,tp,LOCATION_DECK,0,1,nil,e,tp) and Duel.GetMZoneCount(1-tp)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c65030036.op(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetMZoneCount(1-tp)<=0 then return end
+	local og=Duel.GetMatchingGroup(c65030036.tgfil,tp,LOCATION_DECK,0,nil,e,tp)
+	local ft=Duel.GetMZoneCount(1-tp)
+	local num=eg:FilterCount(c65030036.confil,nil)
+		if num>ft then num=ft end
+	local g=og:SelectSubGroup(tp,aux.dncheck,false,1,num)
+	if g:GetCount()>0 then
+		if Duel.SpecialSummon(g,0,tp,1-tp,false,false,POS_FACEUP)~=0 and Duel.GetMZoneCount(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and e:GetHandler():IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(65030036,1)) then
+			Duel.BreakEffect()
+			Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+
+function c65030036.pdop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.GetControl(e:GetHandler(),1-tp)
+	Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENSE)
+end
+function c65030036.sprcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+end
+function c65030036.mattg(e,c)
+	return c:IsSetCard(0x3da9) 
+end
\ No newline at end of file

expansions/script/c65030037.lua

+--祸摆终奏者 奥玛
+function c65030037.initial_effect(c)
+	--control
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetOperation(c65030037.pdop)
+	c:RegisterEffect(e1)
+	local e0=e1:Clone()
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e0)
+   --deck sp
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCost(c65030037.cost)
+	e2:SetTarget(c65030037.target)
+	e2:SetOperation(c65030037.activate)
+	c:RegisterEffect(e2)
+	--pandolum
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e4:SetCountLimit(1,65030037)
+	e4:SetRange(LOCATION_HAND)  
+	e4:SetCode(EVENT_LEAVE_FIELD)
+	e4:SetCondition(c65030037.con)
+	e4:SetTarget(c65030037.tg)
+	e4:SetOperation(c65030037.op)
+	c:RegisterEffect(e4)
+end
+function c65030037.confil(c)
+	return c:IsSetCard(0x3da9) and c:IsPreviousLocation(LOCATION_MZONE) and (c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) or c:IsPreviousPosition(POS_FACEUP))
+end
+function c65030037.con(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c65030037.confil,1,nil)
+end
+function c65030037.tgfil(c)
+	return c:IsAbleToDeck()
+end
+function c65030037.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65030037.tgfil,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,1-tp,LOCATION_ONFIELD+LOCATION_GRAVE)
+end
+function c65030037.op(e,tp,eg,ep,ev,re,r,rp)
+	local num=eg:FilterCount(c65030037.confil,nil)
+	local g=Duel.SelectMatchingCard(tp,c65030037.tgfil,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE,1,num,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		if Duel.SendtoDeck(g,nil,2,REASON_EFFECT)~=0 and Duel.GetMZoneCount(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and e:GetHandler():IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(65030037,1)) then
+			Duel.BreakEffect()
+			Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+
+function c65030037.pdop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.GetControl(e:GetHandler(),1-tp)
+	Duel.ChangePosition(e:GetHandler(),POS_FACEUP_ATTACK)
+end
+
+function c65030037.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsDiscardable() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
+end
+function c65030037.filter(c,e,tp)
+	return c:IsSetCard(0x3da9) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c65030037.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c65030037.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c65030037.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c65030037.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c65030038.lua

+--祸摆沉睡者 勒缇
+function c65030038.initial_effect(c)
+   --control
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetOperation(c65030038.pdop)
+	c:RegisterEffect(e1)
+	local e0=e1:Clone()
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e0)
+   --extra material
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(65030038,0))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c65030038.sprcon)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,LOCATION_HAND)
+	e3:SetTarget(c65030038.mattg)
+	e3:SetLabelObject(e2)
+	c:RegisterEffect(e3)
+	--pandolum
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_DISABLE+CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e4:SetCountLimit(1,65030038)
+	e4:SetRange(LOCATION_HAND)  
+	e4:SetCode(EVENT_LEAVE_FIELD)
+	e4:SetCondition(c65030038.con)
+	e4:SetTarget(c65030038.tg)
+	e4:SetOperation(c65030038.op)
+	c:RegisterEffect(e4)
+end
+function c65030038.confil(c)
+	return c:IsSetCard(0x3da9) and c:IsPreviousLocation(LOCATION_MZONE) and (c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) or c:IsPreviousPosition(POS_FACEUP))
+end
+function c65030038.con(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c65030038.confil,1,nil)
+end
+function c65030038.tgfil(c)
+	return c:IsFaceup()
+end
+function c65030038.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65030038.tgfil,tp,0,LOCATION_ONFIELD,1,nil) end
+end
+function c65030038.op(e,tp,eg,ep,ev,re,r,rp)
+	local num=eg:FilterCount(c65030038.confil,nil)
+	local g=Duel.SelectMatchingCard(tp,c65030038.tgfil,tp,0,LOCATION_ONFIELD,1,num,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		local tc=g:GetFirst()
+		while tc do
+		Duel.NegateRelatedChain(tc,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)
+		tc: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)
+		tc:RegisterEffect(e2)
+		tc=g:GetNext()
+		end
+		if Duel.GetMZoneCount(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and e:GetHandler():IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(65030038,1)) then
+			Duel.BreakEffect()
+			Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+
+function c65030038.pdop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.GetControl(e:GetHandler(),1-tp)
+	Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENSE)
+end
+function c65030038.sprcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+end
+function c65030038.mattg(e,c)
+	return c:IsSetCard(0x3da9) 
+end
\ No newline at end of file

expansions/script/c65030039.lua

+--祸摆线奏者 乌儿
+function c65030039.initial_effect(c)
+   --control
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetOperation(c65030039.pdop)
+	c:RegisterEffect(e1)
+	local e0=e1:Clone()
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e0)
+   --extra material
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(65030039,0))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c65030039.sprcon)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,LOCATION_HAND)
+	e3:SetTarget(c65030039.mattg)
+	e3:SetLabelObject(e2)
+	c:RegisterEffect(e3)
+	--pandolum
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e4:SetCountLimit(1,65030039)
+	e4:SetRange(LOCATION_HAND)  
+	e4:SetCode(EVENT_LEAVE_FIELD)
+	e4:SetCondition(c65030039.con)
+	e4:SetTarget(c65030039.tg)
+	e4:SetOperation(c65030039.op)
+	c:RegisterEffect(e4)
+end
+function c65030039.confil(c)
+	return c:IsSetCard(0x3da9) and c:IsPreviousLocation(LOCATION_MZONE) and (c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) or c:IsPreviousPosition(POS_FACEUP))
+end
+function c65030039.con(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c65030039.confil,1,nil)
+end
+function c65030039.tgfil(c)
+	return c:IsAbleToDeck() and Duel.IsPlayerCanDraw(c:GetControler())
+end
+function c65030039.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65030039.tgfil,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,0,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,0,0,0,1)
+end
+function c65030039.op(e,tp,eg,ep,ev,re,r,rp)
+	local num=eg:FilterCount(c65030039.confil,nil)
+	local g=Duel.SelectMatchingCard(tp,c65030039.tgfil,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,num,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		if Duel.SendtoDeck(g,nil,2,REASON_EFFECT)~=0 then
+			Duel.ShuffleDeck(tp)
+			Duel.ShuffleDeck(1-tp)
+			local xg=Duel.GetOperatedGroup()
+			if xg:IsExists(Card.IsControler,1,nil,tp) then 
+				Duel.ShuffleDeck(tp)
+				Duel.Draw(tp,1,REASON_EFFECT) 
+			end
+			if xg:IsExists(Card.IsControler,1,nil,1-tp) then 
+				Duel.ShuffleDeck(1-tp)
+				Duel.Draw(1-tp,1,REASON_EFFECT) 
+			end
+			if Duel.GetMZoneCount(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and e:GetHandler():IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(65030039,1)) then
+				Duel.BreakEffect()
+				Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
+			end
+		end
+	end
+end
+
+function c65030039.pdop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.GetControl(e:GetHandler(),1-tp)
+	Duel.ChangePosition(e:GetHandler(),POS_FACEUP_ATTACK)
+end
+function c65030039.sprcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+end
+function c65030039.mattg(e,c)
+	return c:IsSetCard(0x3da9) 
+end
\ No newline at end of file

expansions/script/c65030040.lua

+--祸摆启生者 玛丽
+function c65030040.initial_effect(c)
+	--control
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetOperation(c65030040.pdop)
+	c:RegisterEffect(e1)
+	local e0=e1:Clone()
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e0)
+   --deck sp
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCost(c65030040.cost)
+	e2:SetTarget(c65030040.target)
+	e2:SetOperation(c65030040.activate)
+	c:RegisterEffect(e2)
+	--pandolum
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e4:SetCountLimit(1,65030040)
+	e4:SetRange(LOCATION_HAND)  
+	e4:SetCode(EVENT_LEAVE_FIELD)
+	e4:SetCondition(c65030040.con)
+	e4:SetTarget(c65030040.tg)
+	e4:SetOperation(c65030040.op)
+	c:RegisterEffect(e4)
+end
+function c65030040.confil(c)
+	return c:IsSetCard(0x3da9) and c:IsPreviousLocation(LOCATION_MZONE) and (c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) or c:IsPreviousPosition(POS_FACEUP))
+end
+function c65030040.con(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c65030040.confil,1,nil)
+end
+function c65030040.spf1(c)
+	return c:IsSetCard(0x3da9) and c:IsType(TYPE_MONSTER)
+end
+function c65030040.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local spg=Duel.GetMatchingGroup(c65030040.spf1,tp,LOCATION_GRAVE,0,nil)
+	local spg2=Duel.GetMatchingGroup(Card.IsType,tp,0,LOCATION_GRAVE,nil,TYPE_MONSTER)
+	spg:Merge(spg2)
+	if chk==0 then return spg:IsExists(Card.IsCanBeSpecialSummoned,1,nil,e,0,tp,false,false) and Duel.GetMZoneCount(tp)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function c65030040.op(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetMZoneCount(tp)<=0 then return end
+	local spg=Duel.GetMatchingGroup(c65030040.spf1,tp,LOCATION_GRAVE,0,nil)
+	local spg2=Duel.GetMatchingGroup(Card.IsType,tp,0,LOCATION_GRAVE,nil,TYPE_MONSTER)
+	spg:Merge(spg2)
+	local ft=Duel.GetMZoneCount(tp)
+	local num=eg:FilterCount(c65030040.confil,nil)
+	if num>ft then num=ft end
+	local g=spg:FilterSelect(tp,Card.IsCanBeSpecialSummoned,1,num,nil,e,0,tp,false,false)
+	if g:GetCount()>0 then
+		if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 and Duel.GetMZoneCount(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and e:GetHandler():IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(65030040,1)) then
+			Duel.BreakEffect()
+			Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
+
+function c65030040.pdop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.GetControl(e:GetHandler(),1-tp)
+	Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENSE)
+end
+
+function c65030040.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsDiscardable() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
+end
+function c65030040.filter(c,e,tp)
+	return c:IsSetCard(0x3da9) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c65030040.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c65030040.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c65030040.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c65030040.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c65030041.lua

+--祸摆起动
+function c65030041.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,65030041+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c65030041.target)
+	e1:SetOperation(c65030041.activate)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCondition(aux.exccon)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c65030041.thtg)
+	e2:SetOperation(c65030041.thop)
+	c:RegisterEffect(e2)
+end
+function c65030041.filter(c)
+	return c:IsLevelBelow(4) and c:IsSetCard(0x3da9) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER)
+end
+function c65030041.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c65030041.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c65030041.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c65030041.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c65030041.filter2(c)
+	local at=c:GetAttribute()
+	local lv=c:GetLevel()
+	if c:IsType(TYPE_XYZ) then lv=c:GetRank() end
+	return Duel.IsExistingMatchingCard(c65030041.spfilter,tp,LOCATION_DECK,0,1,nil,at,lv)
+end
+
+function c65030041.spfilter(c,at,lv)
+	return c:GetAttribute()==at and c:GetLevel()==lv and c:IsSetCard(0x3da9) and c:IsAbleToHand()
+end
+
+function c65030041.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:GetLocation()==LOCATION_MZONE and chkc:GetControler()~=tp and c65030041.filter2(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c65030041.filter2,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+	local g=Duel.SelectTarget(tp,c65030041.filter2,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
+end
+
+function c65030041.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		local at=tc:GetAttribute()
+		local lv=tc:GetLevel()
+		if tc:IsType(TYPE_XYZ) then lv=tc:GetRank() end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local g=Duel.SelectMatchingCard(tp,c65030041.spfilter,tp,LOCATION_DECK,0,1,1,nil,at,lv)
+		if g:GetCount()>0 then
+			Duel.SendtoHand(g,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,g)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c75646426.lua

+--告白气球 鹿乃
+function c75646426.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,c75646426.matfilter,1,1)
+	c:EnableReviveLimit()
+	--indes
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75646426,0))
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,75646426)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c75646426.indcost)
+	e1:SetTarget(c75646426.indtg)
+	e1:SetOperation(c75646426.indop)
+	c:RegisterEffect(e1)
+	--recover
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCondition(c75646426.reccon)
+	e3:SetOperation(c75646426.recop)
+	c:RegisterEffect(e3)
+end
+function c75646426.matfilter(c)
+	return c:IsLinkSetCard(0x32c4) and not c:IsLinkType(TYPE_LINK)
+end
+function c75646426.indcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetDecktopGroup(tp,1)
+	if chk==0 then return g:FilterCount(Card.IsAbleToGraveAsCost,nil)==1 end
+	Duel.DisableShuffleCheck()
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c75646426.indfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x32c4)
+end
+function c75646426.indtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c75646426.indfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c75646426.indfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c75646426.indfilter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c75646426.indop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCountLimit(1)
+		e1:SetValue(c75646426.valcon)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+	end
+end
+function c75646426.valcon(e,re,r,rp)
+	return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
+end
+function c75646426.cfilter(c)
+	return c:IsReason(REASON_COST)
+end
+function c75646426.reccon(e,tp,eg,ep,ev,re,r,rp)
+	return re and re:IsHasType(0x7f0) and eg:IsExists(c75646426.cfilter,1,nil) and re:GetHandler():IsSetCard(0x32c4)
+end
+function c75646426.recop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Recover(tp,100,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c81006003.lua

---虚拟主播 电波酱 Insane
+--Insane
 function c81006003.initial_effect(c)
-	--Pendulum Summon
-	aux.EnablePendulumAttribute(c)	
+	--summon with no tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(81006003,0))
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SUMMON_PROC)
+	e1:SetCondition(c81006003.ntcon)
+	e1:SetOperation(c81006003.ntop)
+	c:RegisterEffect(e1)
+	--summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(81006003,1))
+	e2:SetCategory(CATEGORY_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetTarget(c81006003.sumtg)
+	e2:SetOperation(c81006003.sumop)
+	c:RegisterEffect(e2)
+	--special summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(81006003,2))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_SUMMON_SUCCESS)
+	e3:SetCountLimit(1,81006003)
+	e3:SetCondition(c81006003.spcon)
+	e3:SetCost(c81006003.spcost)
+	e3:SetTarget(c81006003.sptg)
+	e3:SetOperation(c81006003.spop)
+	c:RegisterEffect(e3)
+end
+function c81006003.ntcon(e,c,minc)
+	if c==nil then return true end
+	return minc==0 and c:IsLevelAbove(5) and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+end
+function c81006003.ntop(e,tp,eg,ep,ev,re,r,rp,c)
+	local atk=c:GetAttack()
+	local def=c:GetDefense()
+	--change base attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetReset(RESET_EVENT+0xff0000)
+	e1:SetCode(EFFECT_SET_ATTACK)
+	e1:SetValue(atk/2)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetReset(RESET_EVENT+0xff0000)
+	e2:SetCode(EFFECT_SET_DEFENSE)
+	e2:SetValue(def/2)
+	c:RegisterEffect(e2)
+end
+function c81006003.filter(c)
+	return c:IsLevel(6) and c:IsSummonable(true,nil)
+end
+function c81006003.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81006003.filter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
+end
+function c81006003.sumop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
+	local g=Duel.SelectMatchingCard(tp,c81006003.filter,tp,LOCATION_HAND,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.Summon(tp,g:GetFirst(),true,nil)
+	end
+end
+function c81006003.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
+end
+function c81006003.costfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGraveAsCost()
+end
+function c81006003.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81006003.costfilter,tp,LOCATION_ONFIELD,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c81006003.costfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c81006003.spfilter(c,e,tp)
+	return c:IsLevel(6) and not c:IsCode(81006003) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c81006003.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c81006003.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c81006003.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,c81006003.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
 end

expansions/script/c81006021.lua

---空鸽女友
+--虚拟主播 菫妃奈
 function c81006021.initial_effect(c)
-	--link summon
-	aux.AddLinkProcedure(c,nil,2)
-	c:EnableReviveLimit()	
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,81006021)
+	e1:SetCondition(c81006021.spcon)
+	c:RegisterEffect(e1)
+	--double attack
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TODECK)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_RELEASE)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e3:SetCountLimit(1,81006921)
+	e3:SetTarget(c81006021.target)
+	e3:SetOperation(c81006021.operation)
+	c:RegisterEffect(e3)
+end
+function c81006021.cfilter(c)
+	return c:IsFaceup() and c:IsLevelAbove(5)
+end
+function c81006021.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c81006021.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c81006021.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsAbleToDeck() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+end
+function c81006021.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
+	end
 end

expansions/script/c81006028.lua

---虚拟主播 白音小雪
+--虚拟主播 莉泽·赫露艾斯塔
 function c81006028.initial_effect(c)
-	aux.EnablePendulumAttribute(c)
-	--splimit
+	c:EnableReviveLimit()
+	--special summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetRange(LOCATION_PZONE)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-	e1:SetTargetRange(1,0)
-	e1:SetTarget(c81006028.splimit)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(c81006028.sprcon)
 	c:RegisterEffect(e1)
-	--cannot be target
+	--immune
 	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
-	e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e2:SetRange(LOCATION_MZONE)
-	e2:SetTargetRange(LOCATION_MZONE,0)
-	e2:SetTarget(c81006028.target)
-	e2:SetValue(aux.tgoval)
+	e2:SetCode(EFFECT_IMMUNE_EFFECT)
+	e2:SetValue(c81006028.efilter)
 	c:RegisterEffect(e2)
-	--Special Summon
+	--indes
 	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetCountLimit(1,81006028)
-	e3:SetCondition(c81006028.spcon)
-	e3:SetTarget(c81006028.sptg)
-	e3:SetOperation(c81006028.spop)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e3:SetValue(c81006028.indval)
 	c:RegisterEffect(e3)
+	--control
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_CONTROL)
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1)
+	e4:SetTarget(c81006028.cttg)
+	e4:SetOperation(c81006028.ctop)
+	c:RegisterEffect(e4)
 end
-function c81006028.splimit(e,c,sump,sumtype,sumpos,targetp)
-	return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
+function c81006028.cfilter(c)
+	return c:GetSequence()>=5
 end
-function c81006028.target(e,c)
-	return c:IsSetCard(0x344c) and c:IsStatus(STATUS_SPSUMMON_TURN)
+function c81006028.sprcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c81006028.cfilter,tp,0,LOCATION_MZONE,0,1,nil)
+		and not Duel.IsExistingMatchingCard(c81006028.cfilter,tp,LOCATION_MZONE,0,1,nil)
 end
-function c81006028.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
+function c81006028.efilter(e,te)
+	return te:IsActiveType(TYPE_MONSTER) and te:GetOwner():GetSequence()>=5
 end
-function c81006028.spfilter(c,e,tp)
-	return c:IsSetCard(0x344c) and c:IsLevelAbove(5) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+function c81006028.indval(e,c)
+	return c:GetSequence()>=5
 end
-function c81006028.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c81006028.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
+function c81006028.ctfilter(c)
+	return c:GetSequence()>=5 and c:IsControlerCanBeChanged()
 end
-function c81006028.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,c81006028.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+function c81006028.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c81006028.ctfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c81006028.ctfilter,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+	local g=Duel.SelectTarget(tp,c81006028.ctfilter,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
+end
+function c81006028.ctop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.GetControl(tc,tp)
 	end
 end

expansions/script/c81006034.lua

---虚拟主播 音音继Nene
+--近来安好
 function c81006034.initial_effect(c)
-	--destroy
+	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(81006034,0))
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,81006034)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
-	e1:SetCondition(c81006034.descon)
-	e1:SetTarget(c81006034.destg)
-	e1:SetOperation(c81006034.desop)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,81006034+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c81006034.target)
+	e1:SetOperation(c81006034.activate)
 	c:RegisterEffect(e1)
-	--atk up
+	--search
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(81006034,1))
-	e2:SetCategory(CATEGORY_ATKCHANGE)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetRange(LOCATION_MZONE)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
 	e2:SetCountLimit(1,81006934)
-	e2:SetCondition(c81006034.tatkcon)
-	e2:SetOperation(c81006034.tatkop)
+	e2:SetCondition(c81006034.condition)
+	e2:SetCost(c81006034.thcost)
+	e2:SetTarget(c81006034.thtg)
+	e2:SetOperation(c81006034.thop)
 	c:RegisterEffect(e2)
-	--draw
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(81006034,2))
-	e3:SetCategory(CATEGORY_DRAW)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_BE_MATERIAL)
-	e3:SetCountLimit(1,81006928)
-	e3:SetCondition(c81006034.drcon)
-	e3:SetTarget(c81006034.drtg)
-	e3:SetOperation(c81006034.drop)
-	c:RegisterEffect(e3)
+	Duel.AddCustomActivityCounter(81006034,ACTIVITY_SUMMON,c81006034.counterfilter)
+	Duel.AddCustomActivityCounter(81006034,ACTIVITY_SPSUMMON,c81006034.counterfilter)
+	Duel.AddCustomActivityCounter(81006034,ACTIVITY_CHAIN,c81006034.chainfilter)
 end
-function c81006034.cfilter(c,tp)
-	return c:IsFaceup() and c:IsSetCard(0x445) and c:IsControler(tp)
+function c81006034.chainfilter(re,tp,cid)
+	return not re:IsActiveType(TYPE_MONSTER)
 end
-function c81006034.descon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c81006034.cfilter,1,nil,tp)
+function c81006034.counterfilter(c)
+	return not c:IsType(TYPE_EFFECT)
 end
-function c81006034.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() end
-	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+function c81006034.filter(c)
+	return c:IsLevel(8) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_NORMAL) and c:IsAbleToHand()
 end
-function c81006034.desop(e,tp,eg,ep,ev,re,r,rp)
+function c81006034.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81006034.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c81006034.activate(e,tp,eg,ep,ev,re,r,rp)
 	if not e:GetHandler():IsRelateToEffect(e) then return end
-	local tc=Duel.GetFirstTarget()
-	if tc and tc:IsRelateToEffect(e) then
-		Duel.Destroy(tc,REASON_EFFECT)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c81006034.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
 	end
 end
-function c81006034.tcfilter(c,tp)
-	return c:IsFaceup() and c:IsSetCard(0x344c) and c:IsControler(tp) and not c:IsCode(81006034)
+function c81006034.cfilter(c)
+	return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WIND) and not c:IsType(TYPE_EFFECT)
 end
-function c81006034.tatkcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c81006034.tcfilter,1,nil,tp)
+function c81006034.condition(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
+	return g:GetCount()>0 and g:FilterCount(c81006034.cfilter,nil)==g:GetCount()
 end
-function c81006034.tatkop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and c:IsFaceup() then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetValue(500)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-		c:RegisterEffect(e1)
-	end
+function c81006034.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) 
+		and Duel.GetCustomActivityCount(81006034,tp,ACTIVITY_SUMMON)==0
+		and Duel.GetCustomActivityCount(81006034,tp,ACTIVITY_SPSUMMON)==0 
+		and Duel.GetCustomActivityCount(81006034,tp,ACTIVITY_CHAIN)==0 end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+	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(c81006034.sumlimit)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_SUMMON)
+	Duel.RegisterEffect(e2,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(c81006034.aclimit)
+	e4:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e4,tp)
+end
+function c81006034.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return c:IsType(TYPE_EFFECT)
 end
-function c81006034.drcon(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_FUSION+REASON_SYNCHRO+REASON_LINK+REASON_XYZ)~=0
+function c81006034.aclimit(e,re,tp)
+	return re:IsActiveType(TYPE_MONSTER)
 end
-function c81006034.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)
+function c81006034.thfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
 end
-function c81006034.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)
+function c81006034.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81006034.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c81006034.thop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c81006034.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
 end

expansions/script/c81006035.lua

---虚拟主播 千草Hana
+--Ascension to Heaven
 function c81006035.initial_effect(c)
-	c:EnableReviveLimit()
-	aux.EnablePendulumAttribute(c)
-	--atk
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e0:SetRange(LOCATION_MZONE)
-	e0:SetCode(EFFECT_UPDATE_ATTACK)
-	e0:SetCondition(c81006035.atkcon)
-	e0:SetValue(c81006035.atkval)
-	c:RegisterEffect(e0)
-	--splimit
+	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetRange(LOCATION_PZONE)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-	e1:SetTargetRange(1,0)
-	e1:SetCondition(c81006035.splimcon)
-	e1:SetTarget(c81006035.splimit)
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCountLimit(1,81006035+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c81006035.condition)
+	e1:SetTarget(c81006035.target)
+	e1:SetOperation(c81006035.activate)
 	c:RegisterEffect(e1)
-	--special summon
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,81006035)
-	e2:SetTarget(c81006035.target)
-	e2:SetOperation(c81006035.operation)
-	c:RegisterEffect(e2)
-	--damage
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCondition(c81006035.damcon)
-	e3:SetOperation(c81006035.damop)
-	c:RegisterEffect(e3)
-	local e4=e3:Clone()
-	e4:SetCode(EVENT_SUMMON_SUCCESS)
-	c:RegisterEffect(e4)
 end
-function c81006035.atkcon(e)
-	local ph=Duel.GetCurrentPhase()
-	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+function c81006035.cfilter(c)
+	return c:IsFaceup() and c:GetBaseAttack()==0
 end
-function c81006035.atkval(e,c)
-	return c:GetLevel()*300
+function c81006035.condition(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp or not Duel.IsExistingMatchingCard(c81006035.cfilter,tp,LOCATION_MZONE,0,1,nil) then return false end
+	return Duel.IsChainNegatable(ev) and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE))
 end
-function c81006035.spcfilter(c)
-	return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and c:IsFaceup()
-end
-function c81006035.splimcon(e)
-	return not Duel.IsExistingMatchingCard(c81006035.spcfilter,tp,LOCATION_MZONE,0,1,nil)
-end
-function c81006035.splimit(e,c,sump,sumtype,sumpos,targetp)
-	return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
-end
-function c81006035.cfilter(c,tp)
-	return c:GetSummonPlayer()==tp
-end
-function c81006035.damcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c81006035.cfilter,1,nil,1-tp)
-end
-function c81006035.damop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
-	e1:SetCode(EFFECT_UPDATE_LEVEL)
-	e1:SetValue(1)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-	c:RegisterEffect(e1)
-end
-function c81006035.filter(c,e,tp)
-	return c:IsAttack(1550) and c:IsDefense(1050) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c81006035.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c81006035.filter(chkc,e,tp) end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingTarget(c81006035.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) and e:GetHandler():IsLevelAbove(4) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c81006035.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+function c81006035.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
 end
-function c81006035.operation(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsLevelBelow(3) then return end
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_UPDATE_LEVEL)
-	e0:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-	e0:SetValue(-3)
-	c:RegisterEffect(e0)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+function c81006035.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
 	end
 end

expansions/script/c81010022.lua

@@ -8,7 +8,7 @@ function c81010022.initial_effect(c)
 	c:RegisterEffect(e1)
 	--
 	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_TODECK)
+	e2:SetCategory(CATEGORY_TOHAND)
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e2:SetRange(LOCATION_SZONE)
@@ -28,16 +28,16 @@ function c81010022.filter(c,tp)
 end
 function c81010022.operation(e,tp,eg,ep,ev,re,r,rp)
 	if not e:GetHandler():IsRelateToEffect(e) then return end
-	if eg:IsExists(c81010022.filter,1,nil,tp) and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,1-tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) and Duel.SelectYesNo(1-tp,aux.Stringid(81010022,1)) then
-		local g=Duel.SelectMatchingCard(1-tp,Card.IsAbleToDeck,1-tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
+	if eg:IsExists(c81010022.filter,1,nil,tp) and Duel.IsExistingMatchingCard(Card.IsAbleToHand,1-tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) and Duel.SelectYesNo(1-tp,aux.Stringid(81010022,1)) then
+		local g=Duel.SelectMatchingCard(1-tp,Card.IsAbleToHand,1-tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
 		if g:GetCount()>0 then
-			Duel.SendtoDeck(g,nil,1,REASON_EFFECT)
+			Duel.SendtoHand(g,nil,REASON_EFFECT)
 		end
 	end
-	if eg:IsExists(c81010022.filter,1,nil,1-tp) and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(81010022,1)) then
-		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
+	if eg:IsExists(c81010022.filter,1,nil,1-tp) and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(81010022,1)) then
+		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
 		if g:GetCount()>0 then
-			Duel.SendtoDeck(g,nil,1,REASON_EFFECT)
+			Duel.SendtoHand(g,nil,REASON_EFFECT)
 		end
 	end
 end

expansions/script/c81010049.lua

---鱼突猛进
+--似是似非的现实
 function c81010049.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(TIMING_END_PHASE)
+	e1:SetCountLimit(1,81010049+EFFECT_COUNT_CODE_OATH)
 	e1:SetCondition(c81010049.condition)
 	e1:SetTarget(c81010049.target)
 	e1:SetOperation(c81010049.activate)
-	c:RegisterEffect(e1)	
+	c:RegisterEffect(e1)
+	if not c81010049.global_check then
+		c81010049.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_DAMAGE)
+		ge1:SetOperation(c81010049.checkop)
+		Duel.RegisterEffect(ge1,0)
+	end
+end
+function c81010049.checkop(e,tp,eg,ep,ev,re,r,rp)
+	if (bit.band(r,REASON_EFFECT)~=0 and rp==1-ep) or bit.band(r,REASON_BATTLE)~=0 then
+		Duel.RegisterFlagEffect(ep,81010049,RESET_PHASE+PHASE_END,0,1)
+	end
 end
 function c81010049.condition(e,tp,eg,ep,ev,re,r,rp)
-	local a=Duel.GetAttacker()
-	return a:IsControler(1-tp)
+	return Duel.GetFlagEffect(tp,81010049)~=0
 end
-function c81010049.filter(c,e,tp)
-	return c:IsRace(RACE_FAIRY) and c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+function c81010049.spfilter(c,e,tp)
+	return c:IsAttack(1550) and c:IsDefense(1050) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c81010049.ctfilter(c)
+	return c:IsSummonType(SUMMON_TYPE_SPECIAL)
 end
 function c81010049.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c81010049.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+		and Duel.IsExistingMatchingCard(c81010049.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp)
+		and Duel.IsExistingMatchingCard(c81010049.ctfilter,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
 end
 function c81010049.activate(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if ft<=0 then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c81010049.spfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,nil,e,tp)
+	local ct=Duel.GetMatchingGroupCount(c81010049.ctfilter,tp,0,LOCATION_MZONE,nil)
+	if g:GetCount()==0 or ct==0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c81010049.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
-	local tc=g:GetFirst()
-	if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then
-		local at=Duel.GetAttacker()
-		if at:IsAttackable() and not at:IsImmuneToEffect(e) then
-			Duel.CalculateDamage(at,tc)
-		end
-	end
+	local sg=g:SelectSubGroup(tp,aux.dncheck,false,1,math.min(ft,ct))
+	Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+	local e3=Effect.CreateEffect(e:GetHandler())
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e3:SetTargetRange(1,0)
+	e3:SetTarget(c81010049.splimit)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e3,tp)
+end
+function c81010049.splimit(e,c)
+	return not ((c:IsAttack(1550) and c:IsDefense(1050)) or (c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM)))
 end

expansions/script/c81012030.lua

---Color of Sollow
+--Cristierra
 function c81012030.initial_effect(c)
-	--activate
+	--Activate
 	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY+CATEGORY_TOHAND)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCountLimit(1,81012030+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c81012030.condition)
+	e1:SetCost(c81012030.cost)
+	e1:SetTarget(c81012030.target)
+	e1:SetOperation(c81012030.activate)
 	c:RegisterEffect(e1)
-	--spsummon limit
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetRange(LOCATION_SZONE)
-	e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e3:SetTargetRange(1,1)
-	e3:SetTarget(c81012030.sumlimit)
-	c:RegisterEffect(e3)
-	--discard & salvage
-	local e5=Effect.CreateEffect(c)
-	e5:SetCategory(CATEGORY_HANDES+CATEGORY_TOHAND)
-	e5:SetType(EFFECT_TYPE_QUICK_O)
-	e5:SetCode(EVENT_FREE_CHAIN)
-	e5:SetHintTiming(0,TIMING_END_PHASE)
-	e5:SetRange(LOCATION_SZONE)
-	e5:SetCountLimit(1,81012030)
-	e5:SetCondition(c81012030.thcon)
-	e5:SetCost(c81012030.thcost)
-	e5:SetTarget(c81012030.thtg)
-	e5:SetOperation(c81012030.thop)
-	c:RegisterEffect(e5)
 end
-function c81012030.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
-	local sc=se:GetHandler()
-	return not (sc:IsType(TYPE_RITUAL) and sc:IsType(TYPE_SPELL)) 
-		and c:IsSummonType(SUMMON_TYPE_RITUAL)
+function c81012030.condition(e,tp,eg,ep,ev,re,r,rp)
+	return (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev)
 end
-function c81012030.cfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsType(TYPE_RITUAL)
+function c81012030.costfilter(c)
+	return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and (c:IsControler(tp) or c:IsFaceup())
 end
-function c81012030.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c81012030.cfilter,tp,LOCATION_MZONE,0,1,nil)
-end
-function c81012030.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
-	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+function c81012030.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,c81012030.costfilter,1,nil) end
+	local sg=Duel.SelectReleaseGroup(tp,c81012030.costfilter,1,1,nil)
+	Duel.Release(sg,REASON_COST)
 end
 function c81012030.thfilter(c)
-	return c:IsType(TYPE_RITUAL) and (c:IsType(TYPE_SPELL) or c:IsType(TYPE_PENDULUM)) and c:IsAbleToHand()
-end
-function c81012030.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local hg=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
-	local ct=hg:GetCount()
-	if chk==0 then return ct>0 and Duel.IsExistingMatchingCard(c81012030.thfilter,tp,LOCATION_GRAVE,0,ct,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_HANDES,hg,ct,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,ct,tp,LOCATION_GRAVE)
+	return c:IsRace(RACE_PYRO) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
+end
+function c81012030.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81012030.thfilter,tp,LOCATION_DECK,0,1,nil,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+		Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+	end
 end
-function c81012030.thop(e,tp,eg,ep,ev,re,r,rp)
-	local hg=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
-	local ct=Duel.SendtoGrave(hg,REASON_EFFECT+REASON_DISCARD)
-	if ct<=0 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c81012030.thfilter,tp,LOCATION_GRAVE,0,ct,ct,nil)
-	if g:GetCount()>0 then
-		Duel.BreakEffect()
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
+function c81012030.activate(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.NegateActivation(ev) then return end
+	if re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)~=0 then
+		local sg=Duel.GetMatchingGroup(c81012030.thfilter,tp,LOCATION_DECK,0,nil)
+		if sg:GetCount()>0 then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+			local tg=sg:Select(tp,1,1,nil)
+			Duel.SendtoHand(tg,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,tg)
+		end
 	end
 end

expansions/script/c81012035.lua

---游戏时光·爱米莉
+--圣诞快乐·爱米莉
 function c81012035.initial_effect(c)
-	--search
+	c:EnableReviveLimit()
+	--spsummon limit
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,81012035)
-	e1:SetCost(c81012035.thcost)
-	e1:SetTarget(c81012035.thtg)
-	e1:SetOperation(c81012035.thop)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,1)
+	e1:SetTarget(c81012035.sumlimit)
 	c:RegisterEffect(e1)
 	--effect gain
 	local e2=Effect.CreateEffect(c)
@@ -25,24 +25,10 @@ function c81012035.initial_effect(c)
 	e3:SetOperation(c81012035.effop2)
 	c:RegisterEffect(e3)
 end
-function c81012035.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsDiscardable() end
-	Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
-end
-function c81012035.thfilter(c)
-	return c:IsCode(81012034) and c:IsAbleToHand()
-end
-function c81012035.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c81012035.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c81012035.thop(e,tp,eg,ep,ev,re,r,rp,chk)
-	local tg=Duel.GetFirstMatchingCard(c81012035.thfilter,tp,LOCATION_DECK,0,nil)
-	if tg then
-		Duel.SendtoHand(tg,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,tg)
-	end
+function c81012035.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
+	local sc=se:GetHandler()
+	return not (sc:IsType(TYPE_RITUAL) and sc:IsType(TYPE_SPELL)) 
+		and c:IsSummonType(SUMMON_TYPE_RITUAL)
 end
 function c81012035.effcon(e,tp,eg,ep,ev,re,r,rp)
 	return (r==REASON_RITUAL) and e:GetHandler():GetReasonCard():IsType(TYPE_PENDULUM)

expansions/script/c81013003.lua

---光之战士·七尾百合子
+--砂冢明音·回溯
 function c81013003.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WARRIOR),5,3,c81013003.ovfilter,aux.Stringid(81013003,0),99,c81013003.xyzop)
 	c:EnableReviveLimit()
-	--immune
+	--special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_SPSUMMON_PROC)
+	e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e0:SetRange(LOCATION_HAND)
+	e0:SetCondition(c81013003.spcon)
+	e0:SetOperation(c81013003.spop)
+	c:RegisterEffect(e0)
+	--code
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_IMMUNE_EFFECT)
 	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(c81013003.immval)
+	e1:SetCode(EFFECT_CHANGE_CODE)
+	e1:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
+	e1:SetValue(81011027)
 	c:RegisterEffect(e1)
-	--lv up
+	--tohand
 	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e2:SetCode(EVENT_CHAINING)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_DECKDES)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1,81013003)
 	e2:SetRange(LOCATION_MZONE)
-	e2:SetOperation(aux.chainreg)
+	e2:SetTarget(c81013003.thtg)
+	e2:SetOperation(c81013003.thop)
 	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_LVCHANGE)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
-	e3:SetCode(EVENT_CHAIN_SOLVING)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCondition(c81013003.lvcon)
-	e3:SetOperation(c81013003.lvop)
-	c:RegisterEffect(e3)
-	--negate
-	local e5=Effect.CreateEffect(c)
-	e5:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
-	e5:SetType(EFFECT_TYPE_QUICK_O)
-	e5:SetCode(EVENT_CHAINING)
-	e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
-	e5:SetCountLimit(1,81013003)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCondition(c81013003.negcon)
-	e5:SetCost(c81013003.negcost)
-	e5:SetTarget(c81013003.negtg)
-	e5:SetOperation(c81013003.negop)
-	c:RegisterEffect(e5)
 end
-function c81013003.ovfilter(c)
-	return c:IsFaceup() and c:IsCode(81013001)
+function c81013003.spfilter(c)
+	return (bit.band(c:GetOriginalType(),TYPE_SPELL)~=0 or bit.band(c:GetOriginalType(),TYPE_TRAP)~=0) and c:IsAbleToGraveAsCost()
 end
-function c81013003.xyzop(e,tp,chk)
-	if chk==0 then return Duel.GetFlagEffect(tp,81013003)==0 end
-	Duel.RegisterFlagEffect(tp,81013003,RESET_PHASE+PHASE_END,0,1)
-end
-function c81013003.immval(e,te)
-	if te:GetOwnerPlayer()~=e:GetHandlerPlayer() and te:IsActiveType(TYPE_MONSTER) and te:IsActivated() then
-		local lv=e:GetHandler():GetRank()
-		local tc=te:GetHandler()
-		if tc:GetRank()>0 then
-			return tc:GetOriginalRank()<lv
-		elseif tc:GetLevel()>0 then
-			return tc:GetOriginalLevel()<lv
-		else return false end
-	else return false end
-end
-function c81013003.lvcon(e,tp,eg,ep,ev,re,r,rp)
-	return re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsRace(RACE_WARRIOR) and e:GetHandler():GetFlagEffect(1)>0 and re:GetHandler()~=e:GetHandler()
+function c81013003.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if ft<-1 then return false end
+	if ft<=0 then
+		local ct=-ft+1
+		return Duel.IsExistingMatchingCard(c81013003.spfilter,tp,LOCATION_MZONE,0,ct,nil)
+			and Duel.IsExistingMatchingCard(c81013003.spfilter,tp,LOCATION_ONFIELD,0,2,nil)
+	else
+		return Duel.IsExistingMatchingCard(c81013003.spfilter,tp,LOCATION_ONFIELD,0,2,nil)
+	end
 end
-function c81013003.lvop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and c:IsFaceup() then
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_SINGLE)
-		e4:SetCode(EFFECT_UPDATE_RANK)
-		e4:SetValue(1)
-		e4:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-		c:RegisterEffect(e4)
+function c81013003.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if ft<=0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local sg=Duel.GetMatchingGroup(c81013003.spfilter,tp,LOCATION_ONFIELD,0,nil)
+		local ct=-ft+1
+		local g1=sg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE)
+		if ct<2 then
+			sg:Sub(g1)
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+			local g2=sg:Select(tp,2-ct,2-ct,nil)
+			g1:Merge(g2)
+		end
+		Duel.SendtoGrave(g1,REASON_COST)
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=Duel.SelectMatchingCard(tp,c81013003.spfilter,tp,LOCATION_ONFIELD,0,2,2,nil)
+		Duel.SendtoGrave(g,REASON_COST)
 	end
 end
-function c81013003.negcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if ep==tp or c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end
-	return Duel.IsChainNegatable(ev)
+function c81013003.thfilter(c)
+	return (bit.band(c:GetOriginalType(),TYPE_SPELL)~=0 or bit.band(c:GetOriginalType(),TYPE_TRAP)~=0) and c:IsAbleToHand()
 end
-function c81013003.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsRankAbove(4) end
-	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
-	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
-		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
-	end
+function c81013003.tgfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGrave()
 end
-function c81013003.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
-	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+function c81013003.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_ONFIELD+LOCATION_GRAVE) and c81013003.thfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c81013003.thfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil)
+		and Duel.IsExistingMatchingCard(c81013003.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,c81013003.thfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
 end
-function c81013003.negop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) or c:IsRankBelow(5) then return end
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_UPDATE_RANK)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-	e1:SetValue(-5)
-	c:RegisterEffect(e1)
-	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
-		Duel.Destroy(eg,REASON_EFFECT)
+function c81013003.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then
+		local sg=Duel.GetMatchingGroup(c81013003.tgfilter,tp,LOCATION_DECK,0,nil)
+		if sg:GetCount()>0 then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+			local tg=sg:Select(tp,1,1,nil)
+			Duel.SendtoGrave(tg,REASON_EFFECT)
+		end
 	end
 end

expansions/script/c81013021.lua

---Cristierra
+--薇薇安·伊文捷琳 σ
 function c81013021.initial_effect(c)
-	--Activate
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,99,c81013021.lcheck)
+	c:EnableReviveLimit()
+	--spirit may not return
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_SPIRIT_MAYNOT_RETURN)
+	e0:SetRange(LOCATION_MZONE)
+	e0:SetTargetRange(LOCATION_MZONE,0)
+	c:RegisterEffect(e0)
+	--to hand
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY+CATEGORY_TOHAND)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetCondition(c81013021.condition)
-	e1:SetCost(c81013021.cost)
-	e1:SetTarget(c81013021.target)
-	e1:SetOperation(c81013021.activate)
+	e1:SetDescription(aux.Stringid(81013021,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,81013021)
+	e1:SetTarget(c81013021.mhtg)
+	e1:SetOperation(c81013021.mhop)
 	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(81013021,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,81013921)
+	e2:SetCondition(c81013021.thcon)
+	e2:SetCost(c81013021.thcost)
+	e2:SetTarget(c81013021.thtg)
+	e2:SetOperation(c81013021.thop)
+	c:RegisterEffect(e2)
 end
-function c81013021.condition(e,tp,eg,ep,ev,re,r,rp)
-	return (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev)
+function c81013021.lcheck(g,lc)
+	return g:IsExists(Card.IsLinkType,1,nil,TYPE_SPIRIT)
+end
+function c81013021.mhfilter(c)
+	return c:IsType(TYPE_SPIRIT) and c:IsAbleToHand()
+end
+function c81013021.mhtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c81013021.mhfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c81013021.mhfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,nil) end
+	local b1=Duel.IsExistingTarget(c81013021.mhfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
+	local b2=Duel.IsExistingTarget(c81013021.mhfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil)
+	local op=0
+	if b1 and b2 then
+		op=Duel.SelectOption(tp,aux.Stringid(81013021,2),aux.Stringid(81013021,3))
+	else
+		op=2
+	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=nil
+	if op==0 then
+		g=Duel.SelectTarget(tp,c81013021.mhfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	elseif op==1 then
+		g=Duel.SelectTarget(tp,c81013021.mhfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
+	else
+		g=Duel.SelectTarget(tp,c81013021.mhfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,1,nil)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c81013021.mhop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end
+function c81013021.thcfilter(c,ec)
+	if c:IsLocation(LOCATION_MZONE) then
+		return ec:GetLinkedGroup():IsContains(c)
+	else
+		return bit.extract(ec:GetLinkedZone(c:GetPreviousControler()),c:GetPreviousSequence())~=0
+	end
+end
+function c81013021.thcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return not eg:IsContains(c) and eg:IsExists(c81013021.thcfilter,1,nil,c)
 end
 function c81013021.costfilter(c)
-	return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and (c:IsControler(tp) or c:IsFaceup()) and c:IsSummonType(SUMMON_TYPE_RITUAL)
+	return c:IsType(TYPE_SPIRIT) and c:IsAbleToDeckAsCost()
 end
-function c81013021.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,c81013021.costfilter,1,nil) end
-	local sg=Duel.SelectReleaseGroup(tp,c81013021.costfilter,1,1,nil)
-	Duel.Release(sg,REASON_COST)
+function c81013021.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81013021.costfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c81013021.costfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SendtoDeck(g,nil,2,REASON_COST)
 end
 function c81013021.thfilter(c)
-	return c:IsRace(RACE_PYRO) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
-end
-function c81013021.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c81013021.thfilter,tp,LOCATION_DECK,0,1,nil,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
-	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
-		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
-		Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-	end
+	return c:GetType()==0x82 and c:IsAbleToHand()
+end
+function c81013021.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81013021.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
-function c81013021.activate(e,tp,eg,ep,ev,re,r,rp)
-	if not Duel.NegateActivation(ev) then return end
-	if re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)~=0 then
-		local sg=Duel.GetMatchingGroup(c81013021.thfilter,tp,LOCATION_DECK,0,nil)
-		if sg:GetCount()>0 then
-			Duel.BreakEffect()
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-			local tg=sg:Select(tp,1,1,nil)
-			Duel.SendtoHand(tg,nil,REASON_EFFECT)
-			Duel.ConfirmCards(1-tp,tg)
-		end
+function c81013021.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c81013021.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
 	end
 end

expansions/script/c81014013.lua

---SuperSonic
+--白雪安娜·花约
 function c81014013.initial_effect(c)
-	--synchro summon
-	aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),aux.NonTuner(Card.IsAttribute,ATTRIBUTE_DARK),1)
 	c:EnableReviveLimit()
-	--spsummon bgm
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e0:SetCondition(c81014013.sumcon)
-	e0:SetOperation(c81014013.sumsuc)
-	c:RegisterEffect(e0)
-	--Trap activate in set turn
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
-	e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetTargetRange(LOCATION_SZONE,0)
-	e2:SetCountLimit(1,81014913)
+	--tohand
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_RELEASE)
+	e1:SetCountLimit(1,81014013)
+	e1:SetCondition(c81014013.thcon)
+	e1:SetCost(c81014013.thcost)
+	e1:SetTarget(c81014013.thtg)
+	e1:SetOperation(c81014013.thop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_REMOVE)
 	c:RegisterEffect(e2)
-	--set
+	--draw
 	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_DRAW)
 	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,81014013)
-	e3:SetTarget(c81014013.settg)
-	e3:SetOperation(c81014013.setop)
+	e3:SetCountLimit(1,81014913)
+	e3:SetCost(c81014013.drcost)
+	e3:SetTarget(c81014013.drtg)
+	e3:SetOperation(c81014013.drop)
 	c:RegisterEffect(e3)
+	Duel.AddCustomActivityCounter(81014013,ACTIVITY_ATTACK,c81014013.counterfilter)
 end
-function c81014013.sumcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
-end
-function c81014013.sumsuc(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_MUSIC,0,aux.Stringid(81014013,0))
-end
-function c81014013.setfilter(c)
-	return c:GetType()==TYPE_TRAP and c:IsSSetable()
-end
-function c81014013.settg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c81014013.setfilter(chkc) end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
-		and Duel.IsExistingTarget(c81014013.setfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
-	local g=Duel.SelectTarget(tp,c81014013.setfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
-end
-function c81014013.setop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and tc:IsSSetable() then
-		Duel.SSet(tp,tc)
-		Duel.ConfirmCards(1-tp,tc)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_CANNOT_TRIGGER)
-		e1:SetReset(RESET_EVENT+0x17a0000+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
+function c81014013.counterfilter(c)
+	return bit.band(c:GetType(),0x81)==0x81
+end
+function c81014013.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsReason(REASON_RITUAL)
+end
+function c81014013.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(81014013,tp,ACTIVITY_ATTACK)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OATH)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetTarget(c81014013.atktg)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c81014013.atktg(e,c)
+	return bit.band(c:GetType(),0x81)~=0x81
+end
+function c81014013.thfilter(c,tp)
+	return bit.band(c:GetType(),0x81)==0x81 and c:IsAbleToHand()
+		and not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_ONFIELD,0,1,nil,c:GetCode())
+end
+function c81014013.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81014013.thfilter,tp,LOCATION_DECK,0,1,nil,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c81014013.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c81014013.thfilter,tp,LOCATION_DECK,0,1,1,nil,tp)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
 	end
 end
+function c81014013.cfilter(c)
+	return c:IsType(TYPE_RITUAL) and c:IsAbleToDeckAsCost()
+end
+function c81014013.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81014013.cfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c81014013.cfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,3,nil)
+	Duel.SendtoDeck(g,nil,2,REASON_COST)
+end
+function c81014013.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 c81014013.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/c81017015.lua

@@ -3,77 +3,79 @@ function c81017015.initial_effect(c)
 	--xyz summon
 	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WARRIOR),4,2)
 	c:EnableReviveLimit()
-	--destroy all
+	--atk
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(81017015,1))
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetTarget(c81017015.destg)
-	e1:SetOperation(c81017015.desop)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,81017015)
+	e1:SetCost(c81017015.cost)
+	e1:SetTarget(c81017015.target)
+	e1:SetOperation(c81017015.operation)
 	c:RegisterEffect(e1)
-	--draw
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(81017015,0))
-	e4:SetCategory(CATEGORY_DRAW)
-	e4:SetType(EFFECT_TYPE_IGNITION)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1,81017015)
-	e4:SetCondition(c81017015.drcon)
-	e4:SetCost(c81017015.cost)
-	e4:SetTarget(c81017015.drtg)
-	e4:SetOperation(c81017015.drop)
-	c:RegisterEffect(e4)
-	Duel.AddCustomActivityCounter(81017015,ACTIVITY_SPSUMMON,c81017015.counterfilter)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCountLimit(1,81017915)
+	e2:SetCondition(c81017015.spcon)
+	e2:SetTarget(c81017015.sptg)
+	e2:SetOperation(c81017015.spop)
+	c:RegisterEffect(e2)
 end
-function c81017015.counterfilter(c)
-	return c:IsSetCard(0x819)
+function c81017015.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
 end
-function c81017015.desfilter(c)
-	return c:IsFacedown() or not c:IsSetCard(0x819)
+function c81017015.filter(c)
+	return c:IsFaceup() and c:GetAttack()>0
+		and c:IsRace(RACE_FAIRY)
 end
-function c81017015.destg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	local g=Duel.GetMatchingGroup(c81017015.desfilter,tp,LOCATION_ONFIELD,0,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+function c81017015.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c81017015.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c81017015.filter,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c81017015.filter,tp,0,LOCATION_MZONE,1,1,nil)
 end
-function c81017015.desop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c81017015.desfilter,tp,LOCATION_ONFIELD,0,nil)
-	if g:GetCount()>0 then
-		Duel.Destroy(g,REASON_EFFECT)
+function c81017015.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() and c:IsRelateToEffect(e) and c:IsFaceup() then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(tc:GetAttack())
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+		c:RegisterEffect(e1)
 	end
 end
-function c81017015.exfilter(c)
-	return c:IsFacedown() or not c:IsSetCard(0x819)
-end
-function c81017015.drcon(e,tp,eg,ep,ev,re,r,rp)
+function c81017015.spcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return not Duel.IsExistingMatchingCard(c81017015.exfilter,tp,LOCATION_MZONE,0,1,nil)
-end
-function c81017015.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) and Duel.GetCustomActivityCount(81017015,tp,ACTIVITY_SPSUMMON)==0 end
-	e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
-	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(c81017015.splimit)
-	Duel.RegisterEffect(e1,tp)
-end
-function c81017015.splimit(e,c,sump,sumtype,sumpos,targetp,se)
-	return not c:IsSetCard(0x819)
+	return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT)
 end
-function c81017015.drfilter(c)
-	return c:IsFaceup() and c:IsRace(RACE_FAIRY)
+function c81017015.spfilter(c,e,tp)
+	return c:IsSetCard(0x819) and c:IsRank(4) and not c:IsCode(81017015) and c:IsType(TYPE_XYZ) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
 end
-function c81017015.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local ct=Duel.GetMatchingGroupCount(c81017015.drfilter,tp,0,LOCATION_MZONE,nil)
-	if chk==0 then return ct>0 and Duel.IsPlayerCanDraw(tp,ct) end
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct)
+function c81017015.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCountFromEx(tp)>0
+		and aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_XMATERIAL)
+		and Duel.IsExistingMatchingCard(c81017015.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp)
+		and e:GetHandler():IsCanOverlay() end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
 end
-function c81017015.drop(e,tp,eg,ep,ev,re,r,rp)
-	local ct=Duel.GetMatchingGroupCount(c81017015.drfilter,tp,0,LOCATION_MZONE,nil)
-	Duel.Draw(tp,ct,REASON_EFFECT)
+function c81017015.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCountFromEx(tp)<=0 or not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_XMATERIAL) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c81017015.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	if tc and Duel.SpecialSummon(tc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)~=0 then
+		tc:CompleteProcedure()
+		if c:IsRelateToEffect(e) then
+			Duel.Overlay(tc,Group.FromCards(c))
+		end
+	end
 end

expansions/script/c81018020.lua

@@ -5,6 +5,27 @@ function c81018020.initial_effect(c)
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0x81b),2)
 	c:EnableReviveLimit()
 	Tenka.Shizuka(c)
+	--zone limit
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_MUST_USE_MZONE)
+	e0:SetRange(LOCATION_MZONE)
+	e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetTargetRange(1,0)
+	e0:SetValue(c81018020.zonelimit)
+	c:RegisterEffect(e0)
+	--atkup
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,81018020)
+	e1:SetCondition(c81018020.atkcon)
+	e1:SetCost(c81018020.cost)
+	e1:SetTarget(c81018020.atktg)
+	e1:SetOperation(c81018020.atkop)
+	c:RegisterEffect(e1)
 	--atk
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE)
@@ -13,58 +34,46 @@ function c81018020.initial_effect(c)
 	e2:SetRange(LOCATION_MZONE)
 	e2:SetValue(c81018020.atkval)
 	c:RegisterEffect(e2)
-	--todeck
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(81018020,0))
-	e3:SetCategory(CATEGORY_TODECK+CATEGORY_ATKCHANGE)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,81018020)
-	e3:SetTarget(c81018020.tdtg)
-	e3:SetOperation(c81018020.tdop)
-	c:RegisterEffect(e3)
+end
+function c81018020.zonelimit(e)
+	return 0x7f007f & ~e:GetHandler():GetLinkedZone()
 end
 function c81018020.atkval(e,c)
-	return c:GetLinkedGroupCount()*-700
+	return c:GetLinkedGroupCount()*-1000
+end
+function c81018020.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)
+		and (Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated())
 end
-function c81018020.tdfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0x81b) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
+function c81018020.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CANNOT_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	e:GetHandler():RegisterEffect(e1)
 end
-function c81018020.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c81018020.tdfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c81018020.tdfilter,tp,LOCATION_GRAVE,0,3,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectTarget(tp,c81018020.tdfilter,tp,LOCATION_GRAVE,0,3,3,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,3,0,0)
+function c81018020.atkfilter(c,lg)
+	return c:IsFaceup() and lg and lg:IsContains(c)
 end
-function c81018020.atkfilter(c)
-	return c:IsPosition(POS_FACEUP_ATTACK) and c:IsFaceup()
+function c81018020.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local lg=e:GetHandler():GetLinkedGroup()
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c81018020.atkfilter(chkc,lg) end
+	if chk==0 then return Duel.IsExistingTarget(c81018020.atkfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,lg) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c81018020.atkfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,lg)
 end
-function c81018020.tdop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-	if tg:GetCount()>0 and Duel.SendtoDeck(tg,nil,2,REASON_EFFECT)~=0 and tg:IsExists(Card.IsLocation,1,nil,LOCATION_DECK+LOCATION_EXTRA) then
-		local g=Duel.GetMatchingGroup(c81018020.atkfilter,tp,0,LOCATION_MZONE,nil)
-		local c=e:GetHandler()
-		local tc=g:GetFirst()
-		while tc do
-			local e1=Effect.CreateEffect(c)
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_UPDATE_ATTACK)
-			e1:SetValue(1500)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			tc:RegisterEffect(e1)
-			local e2=Effect.CreateEffect(c)
-			e2:SetType(EFFECT_TYPE_SINGLE)
-			e2:SetCode(EFFECT_DISABLE)
-			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
-			tc:RegisterEffect(e2)
-			local e3=Effect.CreateEffect(c)
-			e3:SetType(EFFECT_TYPE_SINGLE)
-			e3:SetCode(EFFECT_DISABLE_EFFECT)
-			e3:SetReset(RESET_EVENT+RESETS_STANDARD)
-			tc:RegisterEffect(e3)
-			tc=g:GetNext()
-		end
-	end
+function c81018020.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end
+	local atk=tc:GetBaseAttack()
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetValue(atk)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	tc:RegisterEffect(e1)
 end

expansions/script/c81019021.lua

---宫水静香·沉沦
+--凛冽之冬·椎名咪玉
 function c81019021.initial_effect(c)
-	--pendulum summon
-	aux.EnablePendulumAttribute(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,99,c81019021.lcheck)
 	c:EnableReviveLimit()
+	--extra summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(81019021,0))
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
+	e0:SetRange(LOCATION_MZONE)
+	e0:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0)
+	e0:SetTarget(aux.TargetBoolFunction(Card.IsLevel,4))
+	c:RegisterEffect(e0)
+	--xyz
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,81019021)
+	e1:SetCost(aux.bfgcost)
+	e1:SetTarget(c81019021.target)
+	e1:SetOperation(c81019021.operation)
+	c:RegisterEffect(e1)
+end
+function c81019021.lcheck(g)
+	return g:IsExists(Card.IsLevel,1,nil,4)
+end
+function c81019021.filter(c,e,tp)
+	return c:IsLevel(4) and c:IsCanBeEffectTarget(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c81019021.xyzfilter(c,mg,ct)
+	return c:IsXyzSummonable(mg,2,ct)
+end
+function c81019021.fgoal(sg,exg)
+	return aux.dncheck(sg) and exg:IsExists(Card.IsXyzSummonable,1,nil,sg,#sg,#sg)
+end
+function c81019021.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return false end
+	local mg=Duel.GetMatchingGroup(c81019021.filter,tp,LOCATION_GRAVE,0,nil,e,tp)
+	local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	local exg=Duel.GetMatchingGroup(c81019021.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg,ct)
+	if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2)
+		and not Duel.IsPlayerAffectedByEffect(tp,59822133)
+		and ct>1 and mg:CheckSubGroup(c81019021.fgoal,2,ct,exg) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg1=mg:SelectSubGroup(tp,c81019021.fgoal,false,2,ct,exg)
+	Duel.SetTargetCard(sg1)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg1,sg1:GetCount(),0,0)
+end
+function c81019021.filter2(c,e,tp)
+	return c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c81019021.spfilter(c,mg,ct)
+	return c:IsXyzSummonable(mg,ct,ct)
+end
+function c81019021.operation(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c81019021.filter2,nil,e,tp)
+	local ct=Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	local xyzg=Duel.GetMatchingGroup(c81019021.spfilter,tp,LOCATION_EXTRA,0,nil,g,ct)
+	if ct>=2 and xyzg:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
+		Duel.XyzSummon(tp,xyz,g)
+	end
 end

expansions/script/c81040003.lua

@@ -8,6 +8,7 @@ function c81040003.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_QUICK_O)
 	e1:SetCode(EVENT_CHAINING)
 	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,81040003)
 	e1:SetCondition(c81040003.discon)
 	e1:SetCost(c81040003.discost)
 	e1:SetTarget(c81040003.distg)
@@ -19,7 +20,7 @@ function c81040003.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_REMOVE)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,81040003)
+	e2:SetCountLimit(1,81040903)
 	e2:SetCondition(c81040003.poscon)
 	e2:SetTarget(c81040003.postg)
 	e2:SetOperation(c81040003.posop)

expansions/script/c81040036.lua

---虚拟主播 白音大雪
+--天真烂漫·白上吹雪
 function c81040036.initial_effect(c)
-	aux.EnablePendulumAttribute(c)
-	--splimit
+	c:EnableReviveLimit()
+	--spsummon bgm
 	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_FIELD)
-	e0:SetRange(LOCATION_PZONE)
-	e0:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-	e0:SetTargetRange(1,0)
-	e0:SetTarget(c81040036.splimit)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e0:SetCondition(c81040036.sumcon)
+	e0:SetOperation(c81040036.sumsuc)
 	c:RegisterEffect(e0)
-	--spsummon
+	--search
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCode(EVENT_RELEASE)
 	e1:SetCountLimit(1,81040036)
-	e1:SetTarget(c81040036.sptg)
-	e1:SetOperation(c81040036.spop)
+	e1:SetTarget(c81040036.destg)
+	e1:SetOperation(c81040036.desop)
 	c:RegisterEffect(e1)
-	--cannot be target
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCondition(c81040036.tgcon)
-	e2:SetValue(aux.imval1)
-	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
-	e3:SetValue(aux.tgoval)
+	--activate limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_REMOVE)
+	e3:SetCountLimit(1,81040936)
+	e3:SetCondition(c81040036.aetcon)
+	e3:SetOperation(c81040036.actop)
 	c:RegisterEffect(e3)
-	--atk up
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_FIELD)
-	e4:SetRange(LOCATION_PZONE)
-	e4:SetCode(EFFECT_UPDATE_ATTACK)
-	e4:SetTargetRange(LOCATION_MZONE,0)
-	e4:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x445))
-	e4:SetValue(500)
-	c:RegisterEffect(e4)
 end
-function c81040036.splimit(e,c,sump,sumtype,sumpos,targetp)
-	return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
+function c81040036.sumcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL)
 end
-function c81040036.spfilter(c,e,tp)
-	return c:IsSetCard(0x344c) and c:IsLevelAbove(7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+function c81040036.sumsuc(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_MUSIC,0,aux.Stringid(81040036,0))
 end
-function c81040036.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c81040036.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+function c81040036.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() end
+	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end
-function c81040036.spop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c81040036.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+function c81040036.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
 	end
 end
-function c81040036.pfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0x445)
+function c81040036.aetcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_GRAVE)
 end
-function c81040036.tgcon(e)
-	return Duel.IsExistingMatchingCard(c81040036.pfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
+function c81040036.actop(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e1:SetTargetRange(0,1)
+	e1:SetCondition(c81040036.actcon)
+	e1:SetValue(1)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c81040036.actcon(e)
+	local tc=Duel.GetAttacker()
+	local tp=e:GetHandlerPlayer()
+	return tc and tc:IsControler(tp) and tc:IsSetCard(0x81c)
 end

expansions/script/special.lua

+forced_to_extra={
+	[0]=false,
+	[1]=false
+}
+function tomain_condition(tp)
+	return function(e)
+		return not forced_to_extra[tp]
+	end
+end
+function Auxiliary.PreloadUds()
+	for tp=0,1 do
+		local e1=Effect.GlobalEffect()
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetTargetRange(1,0)
+		e1:SetCode(EFFECT_EXTRA_TOMAIN_KOISHI)
+		e1:SetCondition(tomain_condition(tp))
+		e1:SetValue(1)
+		Duel.RegisterEffect(e1,tp)
+	end
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_ADJUST)
+	e1:SetOperation(function()
+		--Debug.Message(ctf)
+		forced_to_extra[0]=false
+		forced_to_extra[1]=false
+	end)
+	Duel.RegisterEffect(e1,0)
+end
+local old_fromex=Duel.GetLocationCountFromEx
+function Duel.GetLocationCountFromEx(tp,...)
+	local c=select(3,...)
+    if not c or c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ) and c:IsFacedown() then
+		return old_fromex(tp,...)
+	end
+	forced_to_extra[tp]=true
+	local res1,res2=old_fromex(tp,...)
+	--Debug.Message(forced_to_extra[tp] and 1 or 0)
+	forced_to_extra[tp]=false
+	return res1,res2
+end
+function Auxiliary.LinkOperation(f,minc,maxc,gf)
+	return	function(e,tp,eg,ep,ev,re,r,rp,c,og,lmat,min,max)
+				local g=e:GetLabelObject()
+				c:SetMaterial(g)
+				Auxiliary.LExtraMaterialCount(g,c,tp)
+				Duel.SendtoGrave(g,REASON_MATERIAL+REASON_LINK)
+				g:DeleteGroup()
+				forced_to_extra[tp]=true
+			end
+end
+function Auxiliary.PendCondition()
+	return	function(e,c,og)
+				if c==nil then return true end
+				local tp=c:GetControler()
+				local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+				if Auxiliary.PendulumChecklist&(0x1<<tp)~=0 and #eset==0 then return false end
+				local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+				if rpz==nil or c==rpz then return false end
+				local lscale=c:GetLeftScale()
+				local rscale=rpz:GetRightScale()
+				if lscale>rscale then lscale,rscale=rscale,lscale end
+				local loc=0
+				if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND end
+				forced_to_extra[tp]=true
+				if Duel.GetLocationCountFromEx(tp)>0 then loc=loc+LOCATION_EXTRA end
+				forced_to_extra[tp]=false
+				if loc==0 then return false end
+				local g=nil
+				if og then
+					g=og:Filter(Card.IsLocation,nil,loc)
+				else
+					g=Duel.GetFieldGroup(tp,loc,0)
+				end
+				return g:IsExists(Auxiliary.PConditionFilter,1,nil,e,tp,lscale,rscale,eset)
+			end
+end
+function Auxiliary.PendOperation()
+	return	function(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
+				local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+				local lscale=c:GetLeftScale()
+				local rscale=rpz:GetRightScale()
+				if lscale>rscale then lscale,rscale=rscale,lscale end
+				local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+				local tg=nil
+				local loc=0
+				local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
+				forced_to_extra[tp]=true
+				local ft2=Duel.GetLocationCountFromEx(tp)
+				forced_to_extra[tp]=false
+				local ft=Duel.GetUsableMZoneCount(tp)
+				local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
+				if ect and ect<ft2 then ft2=ect end
+				if Duel.IsPlayerAffectedByEffect(tp,59822133) then
+					if ft1>0 then ft1=1 end
+					if ft2>0 then ft2=1 end
+					ft=1
+				end
+				if ft1>0 then loc=loc|LOCATION_HAND end
+				if ft2>0 then loc=loc|LOCATION_EXTRA end
+				if og then
+					tg=og:Filter(Card.IsLocation,nil,loc):Filter(Auxiliary.PConditionFilter,nil,e,tp,lscale,rscale,eset)
+				else
+					tg=Duel.GetMatchingGroup(Auxiliary.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale,eset)
+				end
+				local ce=nil
+				local b1=Auxiliary.PendulumChecklist&(0x1<<tp)==0
+				local b2=#eset>0
+				if b1 and b2 then
+					local options={1163}
+					for _,te in ipairs(eset) do
+						table.insert(options,te:GetDescription())
+					end
+					local op=Duel.SelectOption(tp,table.unpack(options))
+					if op>0 then
+						ce=eset[op]
+					end
+				elseif b2 and not b1 then
+					local options={}
+					for _,te in ipairs(eset) do
+						table.insert(options,te:GetDescription())
+					end
+					local op=Duel.SelectOption(tp,table.unpack(options))
+					ce=eset[op+1]
+				end
+				if ce then
+					tg=tg:Filter(Auxiliary.PConditionExtraFilterSpecific,nil,e,tp,lscale,rscale,ce)
+				end
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+				Auxiliary.GCheckAdditional=Auxiliary.PendOperationCheck(ft1,ft2,ft)
+				local g=tg:SelectSubGroup(tp,aux.TRUE,true,1,math.min(#tg,ft))
+				Auxiliary.GCheckAdditional=nil
+				if not g then return end
+				if ce then
+					Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())
+					ce:Reset()
+				else
+					Auxiliary.PendulumChecklist=Auxiliary.PendulumChecklist|(0x1<<tp)
+				end
+				sg:Merge(g)
+				Duel.HintSelection(Group.FromCards(c))
+				Duel.HintSelection(Group.FromCards(rpz))
+				forced_to_extra[tp]=true
+			end
+end
+local old_spsummon_step=Duel.SpecialSummonStep
+local old_spsummon=Duel.SpecialSummon
+function Duel.SpecialSummonStep(c,...)
+	local tp=select(3,...)
+    if c:IsLocation(LOCATION_EXTRA) and (c:IsType(TYPE_PENDULUM) and c:IsFaceup() or c:IsType(TYPE_LINK)) then
+		forced_to_extra[tp]=true
+	end
+	local res=old_spsummon_step(c,...)
+	forced_to_extra[tp]=false
+	return res
+end
+function Duel.SpecialSummon(g,...)
+	local res=0
+    local tg=nil
+	if Auxiliary.GetValueType(g)=="Card" then
+		tg=Group.FromCards(g)
+    else
+        tg=g:Clone()
+	end
+	local groups={}
+	 groups[1]=tg:Filter(function(c)
+         return c:IsLocation(LOCATION_EXTRA) and (c:IsType(TYPE_PENDULUM) and c:IsFaceup() or c:IsType(TYPE_LINK))
+	end,nil)
+	tg:Sub(groups[1])
+	groups[2]=tg:Filter(function(c)
+		return not c:IsLocation(LOCATION_EXTRA)
+	end,nil)
+	tg:Sub(groups[2])
+	groups[3]=tg
+	for i=1,3 do
+		for tc in Auxiliary.Next(groups[i]) do
+			if Duel.SpecialSummonStep(tc,...) then res=res+1 end
+		end
+	end
+	Duel.SpecialSummonComplete()
+	return res
+end

expansions/strings.conf

@@ -11,7 +11,6 @@
 #葱喵 ? 9 0xbb0-0xbbf
 !setname 0xbb1 葱喵
 !setname 0x1bb1 投影魔术
-!setname 0x2bb1 投影魔术
 
 #娜娜 119724848 10 0x200-0x20f
 !setname 0xa200 绀珠传
@@ -209,6 +208,7 @@
 !setname 0xf7f2 玛纳历亚
 !setname 0x17f3 交响型
 !setname 0x27f3 暗堕型
+#is_named_with_domovo_i 多莫维依
 #is_named_with_Dark_Degenerate 暗堕型
 #is_named_with_Gran 古兰
 #is_named_with_Ma_Elf 妖精
@@ -452,6 +452,7 @@ named_with_Zero 泽洛
 #零儿&灰蓝 1164477469&2455659904 650 0xda0-0xdaf
 !counter 0x1da0 逆卡巴拉指示物
 !counter 0x1da1 外身指示物
+!counter 0x1da2 奇术指示物
 !setname 0x5da0 瓶之骑士
 !setname 0x6da0 幻梦迷境
 !setname 0x9da0 星光歌剧
@@ -493,6 +494,9 @@ named_with_Zero 泽洛
 !setname 0x5da8 闪耀侍者
 !setname 0x6da8 蜜食彩虹
 !setname 0x9da8 奇妙仙灵
+!setname 0xada8 神奇术士	
+!setname 0xcda8 幻世绘本	
+!setname 0x3da9 祸摆	
 #set_without_id 02
 #set-without-id 眩耀奇景
 #set-without-id 走马幻景
@@ -533,7 +537,6 @@ named_with_Zero 泽洛
 !setname 0xea4 赫里奥波里斯
 
 #彩神 ?????????? 766 0x760-0x76f
-!setname 0x766 死神
 
 #雪花 598403759 777 0x9c0-0x9cf
 !setcounter 0x9c0 露西菲尼亚指示物

update/filelist.txt

-ygopro.exe	690c6c8ddd7ace10eb3a9bfec233a607
-deck/2019-12-15 1st.ydk	50484781b2eaabc1d0d73bdbaa462f69
-deck/2019-12-15 2nd.ydk	ecbd0d11c6545ba56f0d47d5cf2a128c
-deck/2019-12-15 3rd.ydk	c6573fb7d0a2ca4a197210f102e886ee
-deck/2019-12-15 4th.ydk	d00e79a24d6f81a21292e9973069ac5c
-expansions/222DIY.cdb	bc8cb9a51444f71ed14e03680aea94c8
-expansions/lflist.conf	7b0b535ac735e997f8b452b5fbbee61b
-expansions/strings.conf	b3b77a6be23c36f928859f8208a0086c
+ygopro.exe	953dfada9023ab5cad5350a093a48f6b
+deck/2019-12-29 1st.ydk	4893c3accfda9aaa0cba68df24f8f8fd
+deck/2019-12-29 2nd.ydk	ff9426c3723b58ca02577ffe08d733d0
+deck/2019-12-29 3rd.ydk	6fe328179de1292bcc857efcd248ad4a
+deck/2019-12-29 4th.ydk	98b6bd3268129c8bacd0124320ede166
+expansions/222DIY.cdb	bd9bda41e1e08ecc207ecd45baff46a7
+expansions/lflist.conf	ab20e25d46c1551f49d09e327f28d4e0
+expansions/strings.conf	08a34a1106323280ecbf15ab566ef3fe
 expansions/pics/08209710.jpg	ed0e60085631bfa641ffeebd6abbd910
 expansions/pics/1000360.jpg	d1aa6f44fcd413402141a6bf4b886c2a
 expansions/pics/1000361.jpg	9af65865cad673d2ec0c09abac741873
@@ -224,6 +224,7 @@ expansions/pics/107898517.jpg	37da537b49f7b5c3b61b38f1d1c9c7a7
 expansions/pics/107898601.jpg	0e8e1ba81262789f647784a5162c8f1a
 expansions/pics/107898602.jpg	4ded65d20c09ae935b899a59c482b092
 expansions/pics/107898603.jpg	b09515a5b072fc9f2ac103ccad6e75d6
+expansions/pics/10900014.jpg	c1adee6b85d6e2fb0e76dd8693fa538e
 expansions/pics/10901000.jpg	a086f81788f031f538d5a3dd1433c8bd
 expansions/pics/10901001.jpg	e52516bef7c8420a5179a62c532774ee
 expansions/pics/10901002.jpg	168f40e479355ecba37103826ca66efa
@@ -1782,6 +1783,9 @@ expansions/pics/17060804.jpg	0004592518617c9ebb48e9bc56048275
 expansions/pics/17060805.jpg	57aebadfc8c4f38f034067bd7e7313cf
 expansions/pics/17060806.jpg	97df4ca499efb4040ff27e751f2f82cd
 expansions/pics/17060807.jpg	3e922da3b061a2f4e9f067bf861455dd
+expansions/pics/17060810.jpg	2814b452f6974178126ae18b9f58edab
+expansions/pics/17060811.jpg	a4eb6cbe9c088000bd549afc534a4455
+expansions/pics/17060813.jpg	c484587cc34b4c94ab47bab61445365f
 expansions/pics/17060814.jpg	141309f51c2d9015a7431d2bd96622b5
 expansions/pics/17060815.jpg	f3e3368eb5548851e8ec52fe5eca99ae
 expansions/pics/17060816.jpg	52f7286bec1b965d29c35ecdddc23a1a
@@ -1838,6 +1842,7 @@ expansions/pics/17060877.jpg	48fe93cbdcd1e9b9e7f4a1adebea4434
 expansions/pics/17060882.jpg	0b5d89e035dd1410ba90a802dffece68
 expansions/pics/17060883.jpg	e0760b923af3a5d1bc267706538cd556
 expansions/pics/17060884.jpg	0c9368236b93c90845b81d39a53373b8
+expansions/pics/17060885.jpg	97e613de4ad1ed9d74224c7afb55f1bf
 expansions/pics/17060890.jpg	44359780b176e13ea51c669d595c180a
 expansions/pics/17060891.jpg	d6d9c513b9b797d6a1555dc095b5955c
 expansions/pics/17060892.jpg	58f2621856fd98d3ddab388ee7264e98
@@ -2531,7 +2536,7 @@ expansions/pics/26805001.jpg	0e1e8605ab04873a08c6e6fcd22692d8
 expansions/pics/26805002.jpg	766aaae743c387f6264e414e88963f0c
 expansions/pics/26805003.jpg	5ca4bcbaa6cd9e5115368ee258266599
 expansions/pics/26805004.jpg	a9345f9650b031d6aa534b1227a17222
-expansions/pics/26805005.jpg	06bb1d7b4079a5aa992c2af7faab326b
+expansions/pics/26805005.jpg	aee4d0d9f5a76ed92904b7fe80f58783
 expansions/pics/26805006.jpg	2fd971dd2f0a0cdb9712b70231e998d6
 expansions/pics/26805007.jpg	5705919ba046744bc73967a4d2d3f320
 expansions/pics/26805008.jpg	c1c6c74baa5c70ded8be4c27930da5c5
@@ -2541,6 +2546,7 @@ expansions/pics/26805011.jpg	3678e633ca5c2c5b5c94f433a5a21636
 expansions/pics/26805012.jpg	6adaa4afc2c0cc703cc31c0edbca444d
 expansions/pics/26805013.jpg	7c0b8672f0a0109d4fe7a95828a0718f
 expansions/pics/26805014.jpg	9882dd865904d80a56497af110551562
+expansions/pics/26805015.jpg	81a4db600a44c511da4aa5f696c5f2b2
 expansions/pics/26806000.jpg	3889ce4e9e63696d59e649327b1c6b6d
 expansions/pics/26806001.jpg	07c66e7f95d2a6b28a18893f625ee882
 expansions/pics/26806002.jpg	7dd96a2482f0f03cf9ae331ee04bd1ed
@@ -2603,6 +2609,8 @@ expansions/pics/26806058.jpg	01ec248fbf33781f0a25d1899fae0b69
 expansions/pics/26806059.jpg	b707b35781be3cbe22ee1bfbe79a053b
 expansions/pics/26806060.jpg	2b995d31164cd0c32c8e4df2698c6570
 expansions/pics/26806061.jpg	62d14358323e7da5964af133cc00cc95
+expansions/pics/26806062.jpg	7a09ea9312f8c920a6eb3787ce5726c3
+expansions/pics/26806063.jpg	607a219efe67cdc3039feb7e2075781f
 expansions/pics/26806069.jpg	024d18ab0a5213301c8419419c2db01e
 expansions/pics/26807000.jpg	8d79f16dfcb0adfd6416ef01e08feab7
 expansions/pics/26807001.jpg	41ea9f7e4ad55bd499e9173e6870a4d3
@@ -2709,6 +2717,9 @@ expansions/pics/26809029.jpg	898ef13b1bfdbd768c53848fdff3eac8
 expansions/pics/26809030.jpg	056aa0a044a24129b4778968d5a82bda
 expansions/pics/26809031.jpg	a7d6b01c15551f91b6dbd53584b8354b
 expansions/pics/26809032.jpg	15725c717b2d602b5908d988849af6e5
+expansions/pics/26809033.jpg	32d5b752530a3ebf33c77a1ac106d332
+expansions/pics/26809034.jpg	2da93564ba30f0b9795a75df66f4e911
+expansions/pics/26809035.jpg	a21544ac4884915ebd769a5ad5a95a43
 expansions/pics/26810000.jpg	5962379e527dd4d5094e23f41f16232a
 expansions/pics/26810001.jpg	d5bf52be704bed547ab3d3d8091338db
 expansions/pics/26810002.jpg	5c58c206627a5f3a43af3daa6c1e2b38
@@ -2807,6 +2818,8 @@ expansions/pics/33310031.jpg	6b890a19bc99aa626aa20041fe0ecfe9
 expansions/pics/33310100.jpg	52ee8dbedeee4c24da6dc13f859b1425
 expansions/pics/33310101.jpg	07df912640be9d587b03c72a0f519787
 expansions/pics/33310102.jpg	a3940026b37fc0bb91630a52bbb32de8
+expansions/pics/33310103.jpg	82b8624123edbad7c47f3b5e87a86971
+expansions/pics/33310104.jpg	a9a2943886a9161fd4f6fbef8e67fd83
 expansions/pics/33330001.jpg	1d2d1eaced7ccb6aa9432f544725dc75
 expansions/pics/33330002.jpg	97f2ee449b701cd2c4f0a25cc6fcd785
 expansions/pics/33330003.jpg	22fe71e5203a2c7075a5887b494c9acb
@@ -5404,6 +5417,27 @@ expansions/pics/65020150.jpg	3d140a287ff5994e6791f7ab84ead955
 expansions/pics/65020151.jpg	46f2f5a5b213e9a43348efd6dc26c895
 expansions/pics/65020152.jpg	e18f2850b73f8fd5e783215ea479e99c
 expansions/pics/65020153.jpg	1296c4b477ddedfa5a4c3175d92372fb
+expansions/pics/65020154.jpg	28e4577a9f12a332397cc0a54881a85f
+expansions/pics/65020155.jpg	8156a05f269dc2ea791b008de1f526fb
+expansions/pics/65020156.jpg	6e1fc0d7a28580fbe79d85ac7c5cd022
+expansions/pics/65020157.jpg	f2bb28dec6a82aa2ed264322a2291267
+expansions/pics/65020158.jpg	5f3653113c2b2afc68b62b53b71318c6
+expansions/pics/65020159.jpg	dcb3d5517b9d85c53cdbc58b1be1aec5
+expansions/pics/65020160.jpg	522ea2369907bfe9985b831266cd1adc
+expansions/pics/65020161.jpg	225302764a0bfbe6c0f0e0d8cc575117
+expansions/pics/65020162.jpg	48dc4fca8cd500a942c5621bd01ae9cc
+expansions/pics/65020163.jpg	795bd0578e5263bae28d386c221435c4
+expansions/pics/65020164.jpg	7fd1a1fad70c8fe8c976ac10074d4f44
+expansions/pics/65020165.jpg	39b1c14376c0b9ee989eea24083b3643
+expansions/pics/65020166.jpg	b458bfd2b724e9f0580db1d0228ce3e3
+expansions/pics/65020167.jpg	b3372dd07c77f9f1348e1b7df22d8b94
+expansions/pics/65020168.jpg	b64bcb09460bcad2c2ec21e431d5833d
+expansions/pics/65020169.jpg	e42740691e76a20d53988b738a45f9e6
+expansions/pics/65020170.jpg	6cffa939bc971476673963ea96dac1b5
+expansions/pics/65020171.jpg	7b7594119cfabb2ccd4657c92c832334
+expansions/pics/65020173.jpg	1eb1da976cb51ebfa39d338b2cc15a43
+expansions/pics/65020175.jpg	f4a3da1eb203c992648ddcf0c17e8f21
+expansions/pics/65020177.jpg	6dc3493b5a26a00b41ddf9afb0fc1e0a
 expansions/pics/65030001.jpg	a8590dca62df47b225f4d4ea2f964781
 expansions/pics/65030002.jpg	1c2fa1dd9c3967553713ac1f096051ef
 expansions/pics/65030003.jpg	1288200e462cb4f446009bf272576d5b
@@ -5433,6 +5467,15 @@ expansions/pics/65030026.jpg	14378179a3d4ff96b393f8f1d1809094
 expansions/pics/65030027.jpg	a70d9e9a7f6433e40ccf7ad4b3d54650
 expansions/pics/65030028.jpg	b5ace580463a33fcdf303cc93c7b3008
 expansions/pics/65030029.jpg	2cf79b706f4821a91c720e1a7de54194
+expansions/pics/65030033.jpg	cda90cdc2f2f507cab295ca5a93964e7
+expansions/pics/65030034.jpg	f114bed184e19e58b875c158b437c975
+expansions/pics/65030035.jpg	79a0d96ad55a868a172da649d3d5fb84
+expansions/pics/65030036.jpg	a3ff46247c598c45c3e3aefec016eb1b
+expansions/pics/65030037.jpg	a3b1ce33d5245b5f7c6846dbc8beb31c
+expansions/pics/65030038.jpg	3171edc2e6cef4cedb7f5eacf9816f02
+expansions/pics/65030039.jpg	54622b430069b369e356f250f494ab2c
+expansions/pics/65030040.jpg	9f0b6f2c04575b3e1e29bbce9a72af2e
+expansions/pics/65030041.jpg	ac1894c32bbb2a5cb5571dbd8b2d390a
 expansions/pics/65030042.jpg	3a3bfa8fb49a74c2b85b3b8152445dad
 expansions/pics/65030043.jpg	e7e0271366c612431262f56db15f82a8
 expansions/pics/65030044.jpg	f12ed14103cdbb9eb45289924f0ad423
@@ -6213,6 +6256,7 @@ expansions/pics/75646422.jpg	569aae5b59adeebd896c10651d2b325a
 expansions/pics/75646423.jpg	75ef513558e8bead6ce8f0ba5aaa5330
 expansions/pics/75646424.jpg	5908a79c80b4d7edb0eba5835c25d8a7
 expansions/pics/75646425.jpg	fae643d5ea844e4d8d2ec5f106f1fea0
+expansions/pics/75646426.jpg	c3d6ae1d9004dba94a91f8f0659afe8e
 expansions/pics/75646500.jpg	102e7cf32a688e3663a1e8ae457fefbb
 expansions/pics/75646502.jpg	e4701d473a967f846a7b001879cdacb0
 expansions/pics/75646505.jpg	49ec5cd6f04ee468070b3c9c57be2e19
@@ -6491,7 +6535,7 @@ expansions/pics/81005004.jpg	9082814dad772c341d7188828e89e46c
 expansions/pics/81005005.jpg	70c05cf80f38b61e947c25c945e672c5
 expansions/pics/81006001.jpg	6da8939ff2e51963389d085137e8da87
 expansions/pics/81006002.jpg	7aa2cca3af8474cb88cd6c8d32c7c4b9
-expansions/pics/81006003.jpg	b4fa87cc24ae89817416cf04fe7ecbb6
+expansions/pics/81006003.jpg	6f83afcb1ed488e8a923665609d6dc93
 expansions/pics/81006004.jpg	f48ad7529ffb94caa6577694adbe64bf
 expansions/pics/81006005.jpg	3a0de8c054e33b0f0b72e2dfdf2a3736
 expansions/pics/81006006.jpg	2127b531684e9f9884db931b3ea2369f
@@ -6509,21 +6553,21 @@ expansions/pics/81006017.jpg	815d985d4c1f380c11426d2ee0f8bed8
 expansions/pics/81006018.jpg	13b9c215e7f40600adf807662a317910
 expansions/pics/81006019.jpg	3f6c9ce924b73efb8fb83c7c4bfbc2a1
 expansions/pics/81006020.jpg	0c4b9243eb902810aab968354c6c5bbc
-expansions/pics/81006021.jpg	d485f5728ba064530252f7bf07771548
+expansions/pics/81006021.jpg	002cbd35467823a8c26f49439ff46143
 expansions/pics/81006022.jpg	a78c739bba4264de7dd2a34ee48414f2
 expansions/pics/81006023.jpg	8acbee1d21c5674a2ed4e0e4bc099cc5
 expansions/pics/81006024.jpg	508cf63775f26e42d860129e4f77e5fe
 expansions/pics/81006025.jpg	097a2fd978288006b7aba3e76c3a4155
 expansions/pics/81006026.jpg	2952b7b5df0686d5ecf0d56115817eb7
 expansions/pics/81006027.jpg	13e87796e08282cead5eaa8b6954710b
-expansions/pics/81006028.jpg	07bea6e930ad34d5fec01eef7c3c670e
+expansions/pics/81006028.jpg	f9e56d385c4acfae7b991ba10e69457c
 expansions/pics/81006029.jpg	51b0380e5b485e06f9caa9ecbf12f855
 expansions/pics/81006030.jpg	16e2effa2046cc6fd7c9b733c67308a7
 expansions/pics/81006031.jpg	70baa432ef3ba05301828f2fd6b66598
 expansions/pics/81006032.jpg	afb904c41dd949562c8028f1b6a1dcb4
 expansions/pics/81006033.jpg	1f7f1555cc897fc49b6e0e0d4a1fdb8a
-expansions/pics/81006034.jpg	81d15960cac0e91d8dc06b973a0522e1
-expansions/pics/81006035.jpg	08a371e20b957ae4091292a85c54b6f9
+expansions/pics/81006034.jpg	bde9295ce8af2b8b7542507689ddf1d5
+expansions/pics/81006035.jpg	98e7cbf503ff3cc2a7a87e51059a55a5
 expansions/pics/81006036.jpg	fc102190b16b8642bfc14b4f8f80290c
 expansions/pics/81006100.jpg	1faf7f218b044086a085b8d7a8f3c80c
 expansions/pics/81007001.jpg	3a39e7a61608cdb5b2dc60d30d45e80f
@@ -6635,7 +6679,7 @@ expansions/pics/81010018.jpg	e786dcdd2fcb776dd2f86ac3efb8707c
 expansions/pics/81010019.jpg	5acb7de24a5dd97d8a026b9780253164
 expansions/pics/81010020.jpg	e49503ac992add1fa345e9389e791ea6
 expansions/pics/81010021.jpg	8d782c63b0162a97d1aa9a0ab65003c1
-expansions/pics/81010022.jpg	80fbf671db1f3d46b7b1229053e3c010
+expansions/pics/81010022.jpg	6fd25745c44dbcd7cb4a97407e6248e7
 expansions/pics/81010023.jpg	10b52a334be147d57152b7742fb56e11
 expansions/pics/81010024.jpg	6b5308b3b2aeb8aa3f14bb2408d6da62
 expansions/pics/81010025.jpg	a3effcd787432835b52b684b800a1d3f
@@ -6660,7 +6704,7 @@ expansions/pics/81010045.jpg	b25c3ab00261815f98534657ed5aaa00
 expansions/pics/81010046.jpg	0e6d6691fbea2904561fdbf6a07a1e4b
 expansions/pics/81010047.jpg	0be9ca111399725ca2054d82bc4a8aeb
 expansions/pics/81010048.jpg	0b4ce43c3b862647822b0053b515a279
-expansions/pics/81010049.jpg	33d6ab3edece5bac8999bf4abfa84b85
+expansions/pics/81010049.jpg	48470c377d17437626de034e66210a60
 expansions/pics/81010050.jpg	5837d26179c3394a72e92704f31c37f1
 expansions/pics/81010051.jpg	559a151f87cc85d5de024f6a80ca5d46
 expansions/pics/81010052.jpg	6c643ae80c851bdd5241c72ca7dd86c8
@@ -6786,12 +6830,12 @@ expansions/pics/81012026.jpg	f1c78597cae79bb2549845d6eec52e04
 expansions/pics/81012027.jpg	b9bb7565906018abdbb577d53eb22860
 expansions/pics/81012028.jpg	fa45c0614ea3ebf7f7a1c549d8a175cf
 expansions/pics/81012029.jpg	60813b7ae1b179412c789ab9a32130f8
-expansions/pics/81012030.jpg	25d01e7b03ec3353de723e731b723635
+expansions/pics/81012030.jpg	e4c65a1fc376b052e9b962a132eed96e
 expansions/pics/81012031.jpg	4748cd25fe62a6b930740e9cc3257250
 expansions/pics/81012032.jpg	76244242c7ece80fab14f45fc182bcab
 expansions/pics/81012033.jpg	a1d96296f1ff6fb0e6330d8fb44c65a4
 expansions/pics/81012034.jpg	45f4beb8d42b64203b765bd8a0cde241
-expansions/pics/81012035.jpg	2f0d62d082c809cf360644dfc09cd965
+expansions/pics/81012035.jpg	6fe247ca8b3ef1abf0e1014ad6634c53
 expansions/pics/81012036.jpg	cce7f6f0a6e73de6574028d3922df9d8
 expansions/pics/81012037.jpg	ab2577b6a9838fb1dda838914c5758f0
 expansions/pics/81012038.jpg	daed24a3707e103e895442aa2357b9c3
@@ -6826,7 +6870,7 @@ expansions/pics/81012070.jpg	4bd4db6226bed0d84bc732553d63495a
 expansions/pics/81012999.jpg	56b37867b1e6f4fa1560ffee82975574
 expansions/pics/81013001.jpg	5634657cb4fcf8515c6dc1281dbeb089
 expansions/pics/81013002.jpg	e5b5261dcc8ce00419687545b30b3dd9
-expansions/pics/81013003.jpg	a553c550098e630b79a2153b27a4eeca
+expansions/pics/81013003.jpg	91d7c4e75b2ab31f9fcaf44a77e9a00f
 expansions/pics/81013004.jpg	8bda84e4a4df392e4dabfed7b4dcbb79
 expansions/pics/81013005.jpg	5c469d860ed4a2c7de46ac61c4fff54f
 expansions/pics/81013006.jpg	fe348b7c4f6821ccfd4b3fab16307706
@@ -6841,7 +6885,7 @@ expansions/pics/81013017.jpg	354695f288bb29ef37ab8b90ec84e140
 expansions/pics/81013018.jpg	e9779becc8f7a4fc3c9713e4f0d0516b
 expansions/pics/81013019.jpg	19e42e4ba819686f861496b397b6a5af
 expansions/pics/81013020.jpg	e20541349150602a1cde1b70b521a6c5
-expansions/pics/81013021.jpg	09fa4863e824dd2f246b8a8e053385b7
+expansions/pics/81013021.jpg	e1dc7677766e5a9fbbd52dcb82e62551
 expansions/pics/81013022.jpg	9ea0f8bf1509b8f393acd8ed28f09db6
 expansions/pics/81013023.jpg	66c70c97e465eb3f45941ba87dc9ccfa
 expansions/pics/81013024.jpg	e0a6683ded32adedab01f2d8c95b21e6
@@ -6857,7 +6901,7 @@ expansions/pics/81014009.jpg	fd1e1f7c3cbe16ed39c905a0c8d76433
 expansions/pics/81014010.jpg	5afbcf98f36ced1462d321caaa9d64e2
 expansions/pics/81014011.jpg	e9c3f04bac67f164da37fa0bdfb222e5
 expansions/pics/81014012.jpg	0d0a83ed891ee83dfa0d2493a1446c55
-expansions/pics/81014013.jpg	41a4e1552e9dad78afae760f8a030d83
+expansions/pics/81014013.jpg	a069db40076bef461ca8e054d0247b47
 expansions/pics/81014014.jpg	b62d5c10700c39a58e634445bccb34ea
 expansions/pics/81014015.jpg	66a7288dc4354ba0fa591b12142e50c9
 expansions/pics/81014016.jpg	eef3ec22d8b5d1e0e32e38279b4da6a0
@@ -6968,7 +7012,7 @@ expansions/pics/81017011.jpg	537e97a1be795a411aa45de60f3d7744
 expansions/pics/81017012.jpg	5027ad437ce46921e246475080b3ea13
 expansions/pics/81017013.jpg	099d049a964afe55c8a2fa3e343d5e09
 expansions/pics/81017014.jpg	65474b1e7c3776df48f9217b334dfd93
-expansions/pics/81017015.jpg	997a97ca159fab39899eb630d76c3ace
+expansions/pics/81017015.jpg	35c1a6b815715433359029d1d74a559f
 expansions/pics/81017016.jpg	a9f58aa22ba95bf8906c40881bf424bf
 expansions/pics/81017017.jpg	4c0febe00b6b6509e739037979c270f5
 expansions/pics/81017018.jpg	547882716213fc37a015720fa7c3849c
@@ -6995,7 +7039,7 @@ expansions/pics/81018016.jpg	f67450915c4fe3f4ae5d03bd7e908a45
 expansions/pics/81018017.jpg	08b16d632681517d7dcabd34a0e02bfc
 expansions/pics/81018018.jpg	5d4c40fb700255ef69e6cdd87e989560
 expansions/pics/81018019.jpg	44692b068a86bed45164cb026b057ae6
-expansions/pics/81018020.jpg	df4b8032784f1ed94171f4e230d5955b
+expansions/pics/81018020.jpg	cfa46c1e0a6e537b1be668bbf54d89f4
 expansions/pics/81018021.jpg	307fdb535a0bce756f10337c9b65ab88
 expansions/pics/81018022.jpg	f1ab1dcfa5f966b4c7b0dbebf8489dc4
 expansions/pics/81018023.jpg	9e2d89a6806d6aedb58e791fa9c0dbcb
@@ -7043,7 +7087,7 @@ expansions/pics/81019016.jpg	a1a822414b4d27c4de29e8b8e0d5bbe4
 expansions/pics/81019018.jpg	031b23282bc00eb956f31443a8184393
 expansions/pics/81019019.jpg	8846dc5f4feb800aa0e2d396f3ebc09f
 expansions/pics/81019020.jpg	b3791437df1602278453299454b90338
-expansions/pics/81019021.jpg	5a8e801bd62334bbf84e949666164f14
+expansions/pics/81019021.jpg	f682546e37a4a4bf5edcd2c03c6f2b2a
 expansions/pics/81019022.jpg	9374928b5bfaf68a4b205949668c0979
 expansions/pics/81019023.jpg	007b7721f301e6d715cdc79bee2ebe88
 expansions/pics/81019024.jpg	c84089f31ecd7f7c564d414bf7e9d990
@@ -7116,7 +7160,7 @@ expansions/pics/81040032.jpg	233a37c20c7195c9aab47d32f2f37b58
 expansions/pics/81040033.jpg	37d814aa123d508171f1c0555d86b3af
 expansions/pics/81040034.jpg	9b3c193ce688abb4f9806a87a11b7803
 expansions/pics/81040035.jpg	2a1d38145fc19dd06985f4a63b5bbf63
-expansions/pics/81040036.jpg	0c03b3c23f42d5a44bb8cc26ef28a58a
+expansions/pics/81040036.jpg	3cc67d6287ea6372a2ecfd6ab7aa82cb
 expansions/pics/81040037.jpg	341afbdc15d099a5848f054f6271bad7
 expansions/pics/81040038.jpg	82a32bd2cd54361d4aa54c2f17e8d48a
 expansions/pics/81040039.jpg	662f0bc550634cdd1a9a00e2abbd9e8c
@@ -7886,6 +7930,8 @@ expansions/script/c107898517.lua	b29abbcc783fdd839cdbea622f2cba4f
 expansions/script/c107898601.lua	acfd7023188f3362a3dfc866c517e284
 expansions/script/c107898602.lua	43e87cbd9b80193d3ca33675923b0c5b
 expansions/script/c107898603.lua	3a15bb781e78245877af862bd3df0e1d
+expansions/script/c10813327.lua	2d07777ad183b91c4e8a65420b8356e6
+expansions/script/c10900014.lua	30e8574f3b7befca26fd963073581915
 expansions/script/c10901000.lua	bc02daeb3273cefc80b5871000191f07
 expansions/script/c10901001.lua	cff27010329eb9bea734bb582988ecc2
 expansions/script/c10901002.lua	f0222e090e5d5a14819e45e7f6fff48c
@@ -8205,7 +8251,7 @@ expansions/script/c1131051.lua	1a38d0228b87389ce7c91c5fec709aff
 expansions/script/c1131201.lua	f02d157b627536cbb94f830511f65506
 expansions/script/c1131202.lua	f41ec623333e6173fb60059852f236ed
 expansions/script/c1131301.lua	58af047f154b29f8f9aae5c3ff421af5
-expansions/script/c1140001.lua	e80fef9eb241dc4241cbcc45211af607
+expansions/script/c1140001.lua	2b1b1cca8f18f867133c91f96cbe9049
 expansions/script/c114000582.lua	d010049da3256682dff3b502653536d0
 expansions/script/c1140011.lua	35fdaf833d57de49a51664874cb55081
 expansions/script/c1140101.lua	dd71c46c20ff83c1fbe2da6f560fd1ec
@@ -8648,6 +8694,7 @@ expansions/script/c121029293.lua	bc936871b705eadddd5e6ea25561dff0
 expansions/script/c121053292.lua	356314775c4b9579efabbbde109c5250
 expansions/script/c12110009.lua	dd2fc1e92da98cf2c5eb63960a87e4ce
 expansions/script/c1223301.lua	753ad99ddf8d620f433f544fa1725d8d
+expansions/script/c1295111.lua	91c55867be2ad4f29a6ca5ddeab693b3
 expansions/script/c14000000.lua	ed495103f5f87a5bea2f74def9fcc3a9
 expansions/script/c14000001.lua	feab7e434befb42c3e46074e8c2fd42d
 expansions/script/c14000002.lua	66467fe629a11fd448945738475a32bb
@@ -9413,10 +9460,13 @@ expansions/script/c17060804.lua	743cb3831aa586a62eb71c7a3f6a0317
 expansions/script/c17060805.lua	908028cb70c6e2acb36b5ff5fc041736
 expansions/script/c17060806.lua	3845564759247b8516b13724343393d0
 expansions/script/c17060807.lua	0331ac7d79668dd38fcba3d813f2ae93
+expansions/script/c17060810.lua	4b4770feaa954d03ed988c2a7ffa1bf1
+expansions/script/c17060811.lua	219ba8b2ceda665116c98d8f02289edf
+expansions/script/c17060813.lua	fdeca779ad07ad8326cd70c374b1d93f
 expansions/script/c17060814.lua	73c64fd338b4ee5bbdc923fae1eeb6f8
-expansions/script/c17060815.lua	711f4ebee0f0397d74b5ffb95f160014
+expansions/script/c17060815.lua	9f3f77b4b8d0193c95f59b5868d59887
 expansions/script/c17060816.lua	1b875e15e7bb40fc7bb52ed133b73944
-expansions/script/c17060817.lua	018c8f95c11b2095d3865f419f2fd418
+expansions/script/c17060817.lua	144a40846db590ba4e8837441983d3ae
 expansions/script/c17060818.lua	4ef7ed6a2b9cf2ed1e6e1f718e963b3a
 expansions/script/c17060819.lua	b6277bfc6067f7f6660c0dcc2065991e
 expansions/script/c17060820.lua	527c036f690d523dca122f43f037c384
@@ -9433,8 +9483,8 @@ expansions/script/c17060830.lua	b86f7f91507086432c6cff656a06ba80
 expansions/script/c17060831.lua	2ed52ed2f4bfd80fdee149fc684486bb
 expansions/script/c17060832.lua	bc7d848c34334530cd00681a40ee0c86
 expansions/script/c17060833.lua	fc67eaaa0f6b786cdd417120a97eaf17
-expansions/script/c17060834.lua	4b3b9d124303ad2a0e4e4e40805319c6
-expansions/script/c17060835.lua	3703fcf955883b348780219c668b95ba
+expansions/script/c17060834.lua	76127cefa103a3801799e8208122bdaa
+expansions/script/c17060835.lua	864e66084f315be3f6ec9d45b77f323e
 expansions/script/c17060836.lua	3bd58f6743d14f29c1e5c18c2cb890be
 expansions/script/c17060838.lua	c8a9e880ea2087d5c84be773ac20b462
 expansions/script/c17060839.lua	c7135248d2ca2e09b61d305469bb1884
@@ -9445,7 +9495,7 @@ expansions/script/c17060846.lua	5370d8fddf0c0e366ab04899ed527d25
 expansions/script/c17060849.lua	6e7cb2156e6047bde3bc1b238faa9dfa
 expansions/script/c17060850.lua	d8d6fae09a9eaffede2890f5c32f9aac
 expansions/script/c17060851.lua	87c7e7198a2fea162ec633c7553b1e88
-expansions/script/c17060852.lua	87a6c91babd2200792e927222f1594f1
+expansions/script/c17060852.lua	1c415df8bb4577a195c8a4fb0c9c66a0
 expansions/script/c17060853.lua	7141202e4a283b5d381dee987a077c55
 expansions/script/c17060854.lua	06cbba458405d9c6c6ed779a4d6a2793
 expansions/script/c17060855.lua	727a2ce28dd099909a29a43b341aaf85
@@ -9455,10 +9505,10 @@ expansions/script/c17060859.lua	4d77d0c62abb75541b254937a9d1340e
 expansions/script/c17060860.lua	85f77674f7824cd62325a8d708f0e3fd
 expansions/script/c17060861.lua	f6e100a00e31c46fb12ae85b1a51f46c
 expansions/script/c17060862.lua	0697d84432ed9b6d0f8a794843b2f6ba
-expansions/script/c17060863.lua	323313873b2b9496338596c0da9406f7
+expansions/script/c17060863.lua	5d8f3312122a04eade58650f59714fbf
 expansions/script/c17060864.lua	0e88481c062105605a50bfc531970f80
-expansions/script/c17060865.lua	ba27c65969c237b15ac762387ca99d73
-expansions/script/c17060866.lua	3ac68ecd32872dc9026f495ccd0d74d9
+expansions/script/c17060865.lua	e8df6077c416c9f08bd633d62c46e9ae
+expansions/script/c17060866.lua	60ba186f0e247ea303f4547b4442adaf
 expansions/script/c17060868.lua	f2dbbff148ac46fbcc8d626b2de0ef0b
 expansions/script/c17060870.lua	2e7d83b25573fb2cea68de2a28dd6dfb
 expansions/script/c17060871.lua	9980d5b2877b95d56791c2bf3a38fdf3
@@ -9468,6 +9518,7 @@ expansions/script/c17060877.lua	d449c5a7841b0bee2225298d8d33b314
 expansions/script/c17060882.lua	a20d78fb4e11aa596055f57a35419cd1
 expansions/script/c17060883.lua	b779516b7557fe69c7c54a020c73a7d1
 expansions/script/c17060884.lua	f8cce283c159e6a75a1eb9c00be992f7
+expansions/script/c17060885.lua	f12ea2bf6476dfc318bd239b6336e3f6
 expansions/script/c17060890.lua	5d27ce50a06b638fd654d5a85f2a35c1
 expansions/script/c17060891.lua	6542dfd034ef136fa363cd0702186d8a
 expansions/script/c17060892.lua	397ba1e8f9dfa997b1f9ad170f1a6a70
@@ -10074,7 +10125,7 @@ expansions/script/c26800009.lua	59c7e098b964fab5ea6412ddcccf847e
 expansions/script/c26800010.lua	73c90493ea0626f8d0e3a078c20d7163
 expansions/script/c26800011.lua	72df17251b6cabc4c4b0d94948e0f529
 expansions/script/c26800012.lua	8bff2fd9d1ee02cc45d1070978e6846c
-expansions/script/c26800013.lua	20513bba69eca1c810e4c0ec0b4de9ca
+expansions/script/c26800013.lua	01b2080453e3fd4cb56bd7ca47698d6d
 expansions/script/c26801000.lua	1b934f6526a8acdfa18597e6ba31c5dd
 expansions/script/c26801001.lua	216f1669ba307755a59f728b45b5353c
 expansions/script/c26801002.lua	a9b005098cc2b9bb8740c026898e03db
@@ -10097,7 +10148,7 @@ expansions/script/c26803002.lua	fdb3b98c107c93c3f8a8e849768f5737
 expansions/script/c26803003.lua	0f11db029a6cc6ad8ab5a2bef202fc29
 expansions/script/c26803004.lua	25f502bf1a7ddc581c7be1bf2e8dcc07
 expansions/script/c26803005.lua	e9595afc5c70f7517b3a594479033344
-expansions/script/c26803006.lua	9dae3ddf3d5756bf559d7fb831b70a37
+expansions/script/c26803006.lua	d887514c7ede1b74eb820d8f28b2fac3
 expansions/script/c26803007.lua	75dbd97d7b6ed99e6d4f0c4eb9f70905
 expansions/script/c26803008.lua	03c27c892774c9ed0fb56eb22e87ff11
 expansions/script/c26803101.lua	670adce065d3209198843464ef7ecef7
@@ -10129,20 +10180,21 @@ expansions/script/c26804018.lua	f145ca790ab81da98f4d717aa754297a
 expansions/script/c26804019.lua	b6c8a0121e40496f01af826aaf5d5a9c
 expansions/script/c26804020.lua	2a6312c43642ab61a70706d584822ec6
 expansions/script/c26804021.lua	d04e89226bfb2a098913705ed2fc335f
-expansions/script/c26805001.lua	39bfad287f5a162a14917f9d83892b49
-expansions/script/c26805002.lua	7d2352cc29b6587c478bf5c4c50f0527
-expansions/script/c26805003.lua	57dae8262c8937a65c941fdfadae0e83
-expansions/script/c26805004.lua	23213ec5bee45a923771e444eb6f1a38
-expansions/script/c26805005.lua	8f66a3c5a07b129eff2ff849bd2936cb
-expansions/script/c26805006.lua	9341a91a294f31fc0b2bbda9646e5ebf
+expansions/script/c26805001.lua	b1622bfa2644902fc97be9d454113c6f
+expansions/script/c26805002.lua	e3b813a33805fd68b143ca93eb2ddcea
+expansions/script/c26805003.lua	0e1e8cf6d7c42322c11c4820d59fecab
+expansions/script/c26805004.lua	f9dacfbc7206d8a7eb72b0c1cafec89e
+expansions/script/c26805005.lua	66544eef2a81f3626de049dea55998e4
+expansions/script/c26805006.lua	c6182e5b9bd4a4bc769c499adfab6fdb
 expansions/script/c26805007.lua	f4629c4369e57bd44de82de554e9d80d
 expansions/script/c26805008.lua	bbd75e6ad4e0e4da50a2f4e63b70e8e1
 expansions/script/c26805009.lua	34e5a6b99e64f26418311568aacf0715
-expansions/script/c26805010.lua	5794c6c73a4c0264701ec130aee84957
+expansions/script/c26805010.lua	a534e48ec8f8dfb6078f633305037faf
 expansions/script/c26805011.lua	d03a77314bee7b3aebe1a4f61764adb5
 expansions/script/c26805012.lua	756deeeac1dfb00617dc40becc10fd2d
 expansions/script/c26805013.lua	c24e8496a34a2e100f40cc24de3214e7
-expansions/script/c26805014.lua	3132ed77e6e14c0fd6016d6da880dc89
+expansions/script/c26805014.lua	53547caadbb83adb67010c7b4b547965
+expansions/script/c26805015.lua	c0933a7b51e6f6c683aee9cf9e805d12
 expansions/script/c26806000.lua	fd905b47f911b273cd45f2788b86d3b8
 expansions/script/c26806001.lua	fc4da881aafb48062cf271f9718350e4
 expansions/script/c26806002.lua	4f9efc8fe6e03afb6c958bf82eef29a3
@@ -10205,9 +10257,11 @@ expansions/script/c26806058.lua	d57ba1ccbe8a0637a5021b03bce6e281
 expansions/script/c26806059.lua	808ce20401f4cf5056ff7bd478730644
 expansions/script/c26806060.lua	8a170e3b6a955088ae79a2d2372896f0
 expansions/script/c26806061.lua	d181ea9d738406975459e459592a365c
+expansions/script/c26806062.lua	1d0ce3d26664c486f4fc452a92afcec5
+expansions/script/c26806063.lua	d72a8ee43307581823523f264b276688
 expansions/script/c26807001.lua	e62807a9b0d05d1c50bd9a976bc3c215
-expansions/script/c26807002.lua	2f0a1ed63eb97e6eceb2a07a9c05ed85
-expansions/script/c26807003.lua	7e316dc2df6be42c8ac0c904743ec693
+expansions/script/c26807002.lua	092d55280db8c30c355bfe96b6940ad0
+expansions/script/c26807003.lua	a6cf7ecc23f74808fd100769c3e415dd
 expansions/script/c26807004.lua	06fc840de74878c0f40ab5b79afcd482
 expansions/script/c26807005.lua	f3366474a8a22d202126ff7004aef06a
 expansions/script/c26807006.lua	a05a09379b4715343a8e75fc0b8b7739
@@ -10218,21 +10272,21 @@ expansions/script/c26807010.lua	fdef22dcc4a7f92f4e77b1338fecd80d
 expansions/script/c26807011.lua	fa297f795ad2d559cea70c601dbb8d0b
 expansions/script/c26807012.lua	0c399c908ed1fea73a10374a6fcd5700
 expansions/script/c26807013.lua	d478b60f16bc084a3a2e3971911deecf
-expansions/script/c26807014.lua	19965f44b8de871fd2dca11f4475f01c
+expansions/script/c26807014.lua	ad9871f27e6a8080957301e30e2ae036
 expansions/script/c26807015.lua	40185605431d3ca72c063323cdb9742a
-expansions/script/c26807016.lua	36d0330b4fe3b3626517df0b08dc1f29
+expansions/script/c26807016.lua	4e6c2ca9925a1b8eddffac475f56b2c6
 expansions/script/c26807017.lua	0c22e2efca74c1a987724fcdd2c3bae7
-expansions/script/c26807018.lua	0b3b7a5572688800046749ca96bfa75a
+expansions/script/c26807018.lua	7a7b66575fca5f27b83a6162ebdfe500
 expansions/script/c26807019.lua	bc4fa140f9476a756360ba1f8a1c223d
 expansions/script/c26807020.lua	ee90fb7f4a110805b7b64a22157bbeaa
 expansions/script/c26807021.lua	25b2a644b95c6f63cf2f8900332eb065
 expansions/script/c26807022.lua	f8ef9e37b6eb5e0d8aad774ffd949450
 expansions/script/c26807023.lua	44e1bb3fc960f37435ee44e905726641
-expansions/script/c26807024.lua	cb5e17a81203030adda6493e8d25f422
-expansions/script/c26807025.lua	c85e54e66f98d5d1358362a508e430cb
-expansions/script/c26807026.lua	1ad61c378fcf7dded22834608f59d5b6
-expansions/script/c26807027.lua	32ea346f671539e6cb5541247e16fd15
-expansions/script/c26807028.lua	c545ca5ee6573a1a145022ef77ee36c3
+expansions/script/c26807024.lua	c78ca610656d6ccc9e6da65c9f57fc3b
+expansions/script/c26807025.lua	d5068e5ec2ab0664f2f1ed9ae670b1d3
+expansions/script/c26807026.lua	9b4f90034aca31e47e65ee84f00e1f60
+expansions/script/c26807027.lua	0d8af51d41c4ff8262adde90ca573bc4
+expansions/script/c26807028.lua	72eea81ccca6109405ce6c45f7149122
 expansions/script/c26807029.lua	a0f82a799e7bb70fd33dcb04e9b8e836
 expansions/script/c26807030.lua	eea98f835f5d3500ac5c889e93384773
 expansions/script/c26807031.lua	ed13073278b5962c9c330e15ddd8b39d
@@ -10242,7 +10296,7 @@ expansions/script/c26807035.lua	fdaefefc6ac7de03453a4155fbf7e21b
 expansions/script/c26807036.lua	9d5fd09c3cd98195a78cf3ce9898c405
 expansions/script/c26807037.lua	74399816746cb2fe9f8329ab4028d7ab
 expansions/script/c26807038.lua	e98b5a2f406e9294e1c8519bb5dd9e9d
-expansions/script/c26807039.lua	cbc3364d994da17420c99ac2111e1fb4
+expansions/script/c26807039.lua	334183a5657fc37e84b3c8642874a663
 expansions/script/c26807040.lua	109df5e2559564f3226487dea419d118
 expansions/script/c26807041.lua	8b32fba8335eb53e12bd1f5ab185d140
 expansions/script/c26807042.lua	df7012219eefcb43950d1b3b621da666
@@ -10284,15 +10338,15 @@ expansions/script/c26809005.lua	86d4dac989de8947642c6172f41a4d63
 expansions/script/c26809006.lua	4e41f1534f05a0db66a546113ccca1c5
 expansions/script/c26809007.lua	a5466e957a8da2c689cef3c532bc69ae
 expansions/script/c26809008.lua	776645922fb0ba01f56d2a2ebd5ba773
-expansions/script/c26809009.lua	a0927dbbfdc13746e8eeb29dd9b9ab3b
+expansions/script/c26809009.lua	0db2d7a07854431fcb9e0e5df71e34e6
 expansions/script/c26809010.lua	9e0dcd5a622b7007738ddcd745258268
 expansions/script/c26809011.lua	aa5f3b7e30c58c40b30654e6feaa3294
 expansions/script/c26809012.lua	19c3c4e8da4068c00d6367e135fc4a7d
 expansions/script/c26809013.lua	c1d7e8de52531188ce8d46910a03787e
-expansions/script/c26809014.lua	1d62ab1ed8f89dac04a9562072bcddd7
+expansions/script/c26809014.lua	2b52eb67fa83231c72d3db1909c7e683
 expansions/script/c26809016.lua	696a0fc739b1e6761dc0901a46f58ed7
 expansions/script/c26809017.lua	fd1cd3c7c1ef6909b9e49b5f4da682c0
-expansions/script/c26809018.lua	f6243e9b1b9922d47690e78520f526d1
+expansions/script/c26809018.lua	a493821136a56f06118f7dc83e7adbfe
 expansions/script/c26809019.lua	951254d37d1aed2348b6f1258417f892
 expansions/script/c26809020.lua	920c804e2a55845a64d00460c7209619
 expansions/script/c26809022.lua	78083d20aa4f78c861f1caffaccc2a31
@@ -10302,10 +10356,13 @@ expansions/script/c26809025.lua	032f790122124356f28fdff4e596835c
 expansions/script/c26809026.lua	41f458b4d40ff27396f1bb0f848bb579
 expansions/script/c26809027.lua	9984bb925049064bdb6225730cf436b9
 expansions/script/c26809028.lua	fd12254d4ff473be0362b896000cc18b
-expansions/script/c26809029.lua	758e55b97bea366a3d4f241192c336d0
+expansions/script/c26809029.lua	829873fc7666fee6b0cb358d26a641fd
 expansions/script/c26809030.lua	e73286e12647b3a699297e0067eb3226
 expansions/script/c26809031.lua	9afa73418deacc44e5e6389e88c51b98
 expansions/script/c26809032.lua	2d021c07b78dc1366cf5acbd049900f3
+expansions/script/c26809033.lua	e27dff9fc9dcfbbd557300640b7d5398
+expansions/script/c26809034.lua	455282ffb0eb4eebaacee9d7f93c5cc3
+expansions/script/c26809035.lua	ab72900f90d3763c4e74d3ce5e3bd073
 expansions/script/c26810000.lua	1a7a615b2f6306368e90382cf21e5a0c
 expansions/script/c26810001.lua	1824e883b4bce30a1b1508c191f42d06
 expansions/script/c26810002.lua	76203cca49a448c9c895f94902b4d6cb
@@ -10405,6 +10462,8 @@ expansions/script/c33310031.lua	7153c3eba84a67f660e1b3d2d74dac2c
 expansions/script/c33310100.lua	ac8708cf4671c0468e26f1c2759949b9
 expansions/script/c33310101.lua	9964966498597532c82215d6934526c9
 expansions/script/c33310102.lua	0bceeb942f9c73ae34db01ce621a9708
+expansions/script/c33310103.lua	900dd0b01addad17f15c966a41540b5e
+expansions/script/c33310104.lua	e2aad625f0fb337e66fcd1f6e10cabca
 expansions/script/c33330001.lua	12f7a36f38bf9bbe70328040083f59f5
 expansions/script/c33330002.lua	9f6548ef9c93e0a7d5e7b4d4794c94b3
 expansions/script/c33330003.lua	ff1eb21eb44d631472499db51e81ddda
@@ -10413,7 +10472,7 @@ expansions/script/c33330005.lua	037f12a08cf2ddef083c4fc5ce27260f
 expansions/script/c33330006.lua	76b53ae0a1af7900ee64ceb26cc108f2
 expansions/script/c33330007.lua	31ed3ddff83f35a8a5af78ba254366a1
 expansions/script/c33330008.lua	ff938638b9d0bcec6aa6fe0d6cd022d0
-expansions/script/c33330009.lua	438b4cb334f15992a608bf9b47c10ac9
+expansions/script/c33330009.lua	d67db01973c539b3a6a98fc551e38c05
 expansions/script/c33330010.lua	7627c1c6b77b61c2ab7531eae0993d40
 expansions/script/c33330011.lua	522637422b5aa80f79cb69d6efdad561
 expansions/script/c33330012.lua	34b70496c9740e63558521bd0a47ae23
@@ -10474,7 +10533,7 @@ expansions/script/c33330306.lua	faf01e0f363e09b14c7ab1e2d5b5b483
 expansions/script/c33330319.lua	f1c368ccfb5c3e3bfbe1b1b9dcbe596b
 expansions/script/c33330320.lua	e3a78be74a2cce7633fb72f9920cee23
 expansions/script/c33330323.lua	0dafda1bdb5bdef9d8d5831b49b8c312
-expansions/script/c33330400.lua	b1aeeaeb8c8674a623d7e809a51ffb83
+expansions/script/c33330400.lua	9b3a50430c13a69d5361355bd2be599d
 expansions/script/c33330401.lua	89ee083e6f090061c94d9137eff541a2
 expansions/script/c33330402.lua	9d6603210db45fce6f692fa7781cb312
 expansions/script/c33330403.lua	d85a2378dfc8b7f08b74bcb8735011aa
@@ -10628,13 +10687,13 @@ expansions/script/c33400301.lua	9f9881483622ec65081a46acd40e5619
 expansions/script/c33400302.lua	36c71d0e5e7541d5c32c3f2bcc31791c
 expansions/script/c33400303.lua	40e3e2207e6ffdd568924e5c17fa2659
 expansions/script/c33400304.lua	edabae4d5fb8a65454e0b25894c8ce47
-expansions/script/c33400305.lua	c95675f965a0b3be99eb86ac5a681d1f
+expansions/script/c33400305.lua	56791bb8a51f3bc5cda6121f08c2cafb
 expansions/script/c33400306.lua	de68dbdafcba0748ecd240b95442ca69
 expansions/script/c33400310.lua	83886c7073bab1588069360b63712337
 expansions/script/c33400311.lua	559742be08ebecce164a974ce35ae93f
 expansions/script/c33400312.lua	f9ee41f1d405e1009fd794adea989118
 expansions/script/c33400313.lua	425972f3418a2e911b65f8dc840986bb
-expansions/script/c33400314.lua	212749d12f4476ab852269c8f9f335ca
+expansions/script/c33400314.lua	b1f9e5d3aa30a87755185319aed56ba6
 expansions/script/c33400320.lua	9186d15fd7332cde7dfe7cea20603487
 expansions/script/c33400350.lua	91f802f826a36d430693a979052105ae
 expansions/script/c33400351.lua	e8d97c1b7d014a808315a100c911b3ba
@@ -10646,9 +10705,9 @@ expansions/script/c33400360.lua	1277ea49288207c4e887c3053944c686
 expansions/script/c33400361.lua	5267facbe4ed23f006f3ee242f46a00a
 expansions/script/c33400362.lua	41283dc65edd192dfafd3771ce8d906c
 expansions/script/c33400401.lua	82fe35e28f16d61fc5dd7de4d8f5f769
-expansions/script/c33400402.lua	ee577ecd92a49181506ee66422bc1f6e
+expansions/script/c33400402.lua	ac11336183e3345922e05d89bf24aa1d
 expansions/script/c33400403.lua	515981980bd69c71d93a2b75ad177f9d
-expansions/script/c33400404.lua	c5714a1e8a2ad1e2ebce313230622600
+expansions/script/c33400404.lua	0093691c862ddfb09cc55d573f54216f
 expansions/script/c33400405.lua	d211655f7242ca0347cab7399533aa46
 expansions/script/c33400406.lua	c62cabd33c54d9e46f5d447a8ed5b322
 expansions/script/c33400407.lua	097b79209d64860d1473b4eee7eac281
@@ -10999,7 +11058,7 @@ expansions/script/c33700424.lua	6287e2c4502a1afeaeaf155d67d7baa9
 expansions/script/c33700425.lua	6cf8e6543b6b789c0bd9116be61ffe5b
 expansions/script/c33700426.lua	46611cd7741aa414daa8e7a371383aa9
 expansions/script/c33700427.lua	48240095461fd2079678c2f5f61646a7
-expansions/script/c33700428.lua	ec3b4560b7b3f09a5633df933c77f520
+expansions/script/c33700428.lua	d5b1d584f3cdb15cd5d2c1d26ff88b9a
 expansions/script/c33700501.lua	4db662a4a72af6a4912a89b9107d76d6
 expansions/script/c33700502.lua	ded594d088e0ec61f7ab3989091b089a
 expansions/script/c33700503.lua	01b8c4b9e7ba1c565b2c380d1c4614e4
@@ -12061,7 +12120,7 @@ expansions/script/c47591299.lua	5d60541145e44fbf44306849c6ad9225
 expansions/script/c47591392.lua	d0e77a914012494cded3ef51b093d042
 expansions/script/c47591477.lua	046ab0d5f14f89351be8b74d2e37250b
 expansions/script/c47591533.lua	f7213bca3f32ceb2bc18649ab7e51e01
-expansions/script/c47591666.lua	d3a23f0a37a0acfe2e81634bfbbcea79
+expansions/script/c47591666.lua	b70a0e251305fd41ac8bff8ecef77b3c
 expansions/script/c47591788.lua	9e98aacc25a37721b992febffb50264b
 expansions/script/c47591822.lua	09675ccf46867f6a6706e65db31e7369
 expansions/script/c47591855.lua	2745821dd04c4576b18b8ac329229b58
@@ -12928,6 +12987,27 @@ expansions/script/c65020150.lua	6082ca25177829db008e31d5d7d39c35
 expansions/script/c65020151.lua	b68e1e5cee8ff2d85d982b82cc8ad4b4
 expansions/script/c65020152.lua	9061b93934ce13cc804593edd9fa79f0
 expansions/script/c65020153.lua	1c02413653518491615160c12f0afe76
+expansions/script/c65020154.lua	76340f74aa554d375e498210153eabf5
+expansions/script/c65020155.lua	4b096f31c939cc44c6a215865a9f4e3e
+expansions/script/c65020156.lua	0dc4b7b2c91c149bf0a5374b92fc9ed2
+expansions/script/c65020157.lua	e424841dbd2081c83ac6915d9d6be171
+expansions/script/c65020158.lua	913e142ce4981adf9431543b1e92bdf6
+expansions/script/c65020159.lua	daae5228e5f49c672c047bda814a906a
+expansions/script/c65020160.lua	0f3c45056c42140a05200df309533dcb
+expansions/script/c65020161.lua	8f0934fe60721c27c66e4ca2825a422a
+expansions/script/c65020162.lua	d07aebcc3b85c35c0fa80098e70d8759
+expansions/script/c65020163.lua	438e1b924438904751375713e64cd039
+expansions/script/c65020164.lua	966c3746186e877233f1d39b3f701f9a
+expansions/script/c65020165.lua	13b81a5c352678e79695c37806ce86a3
+expansions/script/c65020166.lua	e723f2f28859908f9971a196aa4bed07
+expansions/script/c65020167.lua	b9e13d5e34cb96e9a0889cdd5ffd12c1
+expansions/script/c65020168.lua	8cdf2a111504f79be7b681128591ba6d
+expansions/script/c65020169.lua	d9b8afafc034d5a645c74382eee7630d
+expansions/script/c65020170.lua	e16bfac31491c66e55be756a75974b62
+expansions/script/c65020171.lua	978bb59b7bbe583b321906fa982f33bc
+expansions/script/c65020173.lua	a34565c2d4effcbce02b99c02007dd04
+expansions/script/c65020175.lua	2afdc238dd88d21f70615cc4670bbab4
+expansions/script/c65020177.lua	f4a4c0585db75e6656cd0e9f0d1f12dd
 expansions/script/c65030001.lua	d0ff6209b2d72ae4eb5ee0ca7863608f
 expansions/script/c65030002.lua	bd97ea48531256acedcb3d5546c5dee4
 expansions/script/c65030003.lua	47518b9ffc7652227a151bd0c82bdbc3
@@ -12957,6 +13037,15 @@ expansions/script/c65030026.lua	9675f40dc196bd1d4c88814b9eca576c
 expansions/script/c65030027.lua	73166212e57661e2bb7b8004528542ff
 expansions/script/c65030028.lua	9f14d05d79134518288fada4667f3b92
 expansions/script/c65030029.lua	a57032a71915df58265d438605c3b52c
+expansions/script/c65030033.lua	7c71907c461bd1c1c49af04460105180
+expansions/script/c65030034.lua	1f8e88528d8407e7bf7d762c1a70462c
+expansions/script/c65030035.lua	9623d1e34b1b9212c56e00e0daca3f5e
+expansions/script/c65030036.lua	072841ea1396964ebb9e69c523cd9640
+expansions/script/c65030037.lua	0abacf2f03e50f4b1ff0ff4a12d90105
+expansions/script/c65030038.lua	59fcb824e01ff43101ac322195abfb61
+expansions/script/c65030039.lua	77191e88bda617314e77e0273573fd11
+expansions/script/c65030040.lua	6694ef6edfe79384ff700828dc0cc946
+expansions/script/c65030041.lua	b12d7ceaddb63569fde8ac6aadc97601
 expansions/script/c65030042.lua	f27e374c783d08a9c950ed1067a0eee7
 expansions/script/c65030043.lua	7488ccac9ffe9d6dd67850a36a7abd9a
 expansions/script/c65030044.lua	b6e889bf74ee3f7f56729dedd8830dd3
@@ -13104,7 +13193,7 @@ expansions/script/c65050061.lua	fb36f035d8ec4ff9fc9787d1d00787b8
 expansions/script/c65050062.lua	810541f87fbf71626a984b2a018dccee
 expansions/script/c65050063.lua	93827b487942932075d60f038b1d2ca6
 expansions/script/c65050064.lua	50d83aa3826272caecf674585467114a
-expansions/script/c65050065.lua	8c111e7ab79ff2c93516314c72e0a03d
+expansions/script/c65050065.lua	2ee97b57093c9d44c09ddb3b653d724d
 expansions/script/c65050067.lua	fd6db6530e0de05e2e7fc5d05fbb5e79
 expansions/script/c65050068.lua	d9e9b985984fc539a8011f63c5926726
 expansions/script/c65050069.lua	607a48a1f7d484af0c5cb8f63fe0453f
@@ -13157,7 +13246,7 @@ expansions/script/c65050138.lua	f1865dff2127da54352a15b0bbcd714f
 expansions/script/c65050139.lua	95f72ee077eeeaa3d152c72a14e5a69d
 expansions/script/c65050141.lua	addfa6026a317a13cd9d8c1ec9a611eb
 expansions/script/c65050142.lua	509bf9af34b3fcd5c349f46cdf4359ef
-expansions/script/c65050143.lua	77efa381ce409cf32d9b55f1a2e0fc95
+expansions/script/c65050143.lua	8056af3535e223dbbb78b0dc0f514c84
 expansions/script/c65050144.lua	74678f185e3f6e5c962f927dfe26cac3
 expansions/script/c65050145.lua	5ef9fc55e08fc807ee49c5e912026da8
 expansions/script/c65050146.lua	9ef04ab69d482c42eef691c776f82408
@@ -13717,6 +13806,7 @@ expansions/script/c75646422.lua	9337965733b452dec7c223166354a291
 expansions/script/c75646423.lua	13149aaaf3b9e4a8a19597bb8da468bf
 expansions/script/c75646424.lua	af3312d7ba4dd87c9cc8b480ac5ca874
 expansions/script/c75646425.lua	c1c8210bf39b97e23f4482e6f79c7456
+expansions/script/c75646426.lua	0b17ed5aee3905d9af180e00cb7c037e
 expansions/script/c75646500.lua	4984aa6cc4b2b48cda0235cc36d21fc7
 expansions/script/c75646502.lua	2dd3460a09efc49b92e39018f506f616
 expansions/script/c75646506.lua	c6bc5b7815580467e42c21ae2d6d0879
@@ -13980,9 +14070,9 @@ expansions/script/c81005004.lua	683a0b120d8691797fd32de0888b5373
 expansions/script/c81005005.lua	45b75584bf874c9058398335c10d4e51
 expansions/script/c81006001.lua	09844b87c6376abadb0babb7d0ce3c14
 expansions/script/c81006002.lua	811778857cee3e1932ef0a44f5c72e95
-expansions/script/c81006003.lua	c6b2917e56b35aa9f447bba4732378ee
+expansions/script/c81006003.lua	0d134d2b07ad783a71c7cb5c1e3ab1c2
 expansions/script/c81006004.lua	016af31293a49b4ba77f214fa757fadf
-expansions/script/c81006005.lua	b1f8aa0aa880e3d07f3905fcb9c02e13
+expansions/script/c81006005.lua	dd14af1fc38415d326647dc6c5108e2c
 expansions/script/c81006006.lua	c17ac90e8ae4ccb30969a55adf26b3c2
 expansions/script/c81006007.lua	b698058cdee68041295172d378f508ed
 expansions/script/c81006008.lua	4dc45155a84c76fe99a2ef4ba1eef703
@@ -13998,21 +14088,21 @@ expansions/script/c81006017.lua	334660f466ea74ec36af48a4dcca773b
 expansions/script/c81006018.lua	32f1e7935ef1eebed130a43d7d91243e
 expansions/script/c81006019.lua	b9a3c79c27f473d533f234e70e1d341b
 expansions/script/c81006020.lua	9733c4a5b62ad4fca707b71eb7995fa1
-expansions/script/c81006021.lua	fcebe84fd24bbff533c13c3a78abcc4c
+expansions/script/c81006021.lua	9616fcad4df9ed063d6571bd4c42b4f3
 expansions/script/c81006022.lua	7b4a2dcbb939c8bf1b7ddb08ee71a7bf
 expansions/script/c81006023.lua	cbca602f3fa361b03441443e7d1fe377
 expansions/script/c81006024.lua	57dec5100534ab620dfb39f276e9df33
 expansions/script/c81006025.lua	2fd198352f77b4bc85126760847c00dc
 expansions/script/c81006026.lua	84621c8f583f2f1faed0aa0d30371614
 expansions/script/c81006027.lua	138d9a7b8ebe882e2960ca41742f515f
-expansions/script/c81006028.lua	66cc2e0d280c68904ea31804e1eed80b
+expansions/script/c81006028.lua	31c6f3541ef1cb0570ccad4b6634e773
 expansions/script/c81006029.lua	f4bd7542894f6a2eb257b2c54a955350
 expansions/script/c81006030.lua	fc23af0ca7e25ee56cf148787100110d
 expansions/script/c81006031.lua	789eea385d4fc71ecf43124efc71c00e
-expansions/script/c81006032.lua	eb8eb429764cca39d54cfec8ef141bfb
+expansions/script/c81006032.lua	b23b96d8afc75fa3a4191b2a064fb448
 expansions/script/c81006033.lua	64ef763a02cc05970ba625279e2d7338
-expansions/script/c81006034.lua	5bdc63c8592af3cf0ff52709b80ddbe2
-expansions/script/c81006035.lua	0101bc968fca6c99c3f0fd7a734fbe89
+expansions/script/c81006034.lua	da477b95bcbf7efdfa70c76339cef27c
+expansions/script/c81006035.lua	b314d633b5081d3927f2514e9416d70d
 expansions/script/c81006036.lua	0134da5d1bd4799ac336bfeb4710d2d7
 expansions/script/c81006100.lua	f20b757e7082ba7c03f6e08d966b649c
 expansions/script/c81007001.lua	6f04fc4fa4a4f1883f9d8c3cd3d7e088
@@ -14049,13 +14139,13 @@ expansions/script/c81008002.lua	44340015f1d664ac480ed9c4c1027ef0
 expansions/script/c81008003.lua	fb4c947968b31d157ed5bfad2970124b
 expansions/script/c81008004.lua	d4d0546b2c8644d8c6b6c292b35a4cd8
 expansions/script/c81008005.lua	6548fb3e718b814c3f86bd4de94b482d
-expansions/script/c81008006.lua	25279d5b74e45c0ece3c1651c6250cc2
-expansions/script/c81008007.lua	4306e62b8ad036330232a65accd154e6
-expansions/script/c81008008.lua	54dc5fc487ca3a77c1590a4dae8a7879
+expansions/script/c81008006.lua	436476efec85529fcc4fe60016c95214
+expansions/script/c81008007.lua	73a73c64a9a6c4f30db2bcae3a0fc4f4
+expansions/script/c81008008.lua	28e1b902f976eb5949a1f09646aa8f1a
 expansions/script/c81008009.lua	68e797603bc05b1d375c44b2c99b3f5d
 expansions/script/c81008010.lua	a7e583050d117582cfc97f06db83e103
 expansions/script/c81008011.lua	8aea7223b5725f0b4559b7ea9c45ca73
-expansions/script/c81008012.lua	a532aa48eb2b1a3386304a1c83f335a7
+expansions/script/c81008012.lua	9d4e8b93c6a2c553552fd9662633f9c5
 expansions/script/c81008013.lua	60d168551cfc1503f3fb4b7f6ad0a552
 expansions/script/c81008016.lua	c08b5fe63c1566684a365b56d186213e
 expansions/script/c81008018.lua	d00054f6d9cc213bb30c59d827a3753e
@@ -14068,12 +14158,12 @@ expansions/script/c81008024.lua	e2850cf7892e9f507d419b1bd38ed24e
 expansions/script/c81008025.lua	f540853507c0b01ff64c644ee46106c7
 expansions/script/c81008027.lua	75f2f4a69e784dc16f9ed5189a9567d0
 expansions/script/c81008028.lua	c38849cfe627a10c6f2ec84666532de3
-expansions/script/c81008029.lua	ef66a2bb3107c6f08b9cdcf511444b06
+expansions/script/c81008029.lua	8903e2a7424e662b259909887f0ea515
 expansions/script/c81008030.lua	feac7f2d86ca79132b5f23b0ade8afc9
 expansions/script/c81008031.lua	65f1b3611db7ee28564b79cd0d910db6
-expansions/script/c81008032.lua	a93b1ab16a094d15c822aa505ac87a3a
+expansions/script/c81008032.lua	61245ab5bb8e9f60ad608a8d9b3ef4b8
 expansions/script/c81008033.lua	b6df2a5f9b80ce97624f7a07444b0545
-expansions/script/c81008034.lua	1ee3a397ead2dfda7ddce414c044cea5
+expansions/script/c81008034.lua	6cf27bc811394bd0b1ff451331082f81
 expansions/script/c81009001.lua	c26f73c907b7c3744de11984404b90c5
 expansions/script/c81009003.lua	3098ab2b46bcce83b685ec2cf71caadd
 expansions/script/c81009004.lua	c6879c75696e5999995ea69e3f7ca5f6
@@ -14103,7 +14193,7 @@ expansions/script/c81010000.lua	9f94fcc0be6a379dbb14f9e5a61fb928
 expansions/script/c81010001.lua	c8331555c119025dc3d8dac7d38d44fe
 expansions/script/c81010002.lua	96fdd2955c99f6a1a811bc30433b5eb5
 expansions/script/c81010003.lua	176a5f71e1b24696cae4bf914fbd9abd
-expansions/script/c81010004.lua	8aa5280aa61c3f6eabd46d9b0a6a0bda
+expansions/script/c81010004.lua	818eb5f2bbf4ee96b0813bbdfd0f7c62
 expansions/script/c81010006.lua	1b057344d9b2de4c205caa49a9099c7a
 expansions/script/c81010007.lua	76b3b892cc5bc0ca819a704688db961e
 expansions/script/c81010008.lua	e7aa2ba62a95d7b8b6e9c70857a92dad
@@ -14120,7 +14210,7 @@ expansions/script/c81010018.lua	882026e8a120dec953da41596352a883
 expansions/script/c81010019.lua	5982b4afc56206086e771e8b79a7f2fa
 expansions/script/c81010020.lua	ae6c1aad68ab550bc8cf6155e68d0109
 expansions/script/c81010021.lua	254db1e86ba4b21645d249be415550ae
-expansions/script/c81010022.lua	0f0dd7576b32616c028d19f943aa17f9
+expansions/script/c81010022.lua	3398727417737b7370a49f15cccf933f
 expansions/script/c81010023.lua	36adcea743e2bdc5140b2a211e477278
 expansions/script/c81010024.lua	5ddc352c1be3f4d728e84670084759d5
 expansions/script/c81010025.lua	a14a9d45fd3668b6296837d8055ceb34
@@ -14139,12 +14229,12 @@ expansions/script/c81010037.lua	ec52fba76bdb1a93175dccd451ae835f
 expansions/script/c81010038.lua	74c102f2efaf5eb96f75df9d93e1672a
 expansions/script/c81010039.lua	1ea951db184cf385297b709b6a2f85f9
 expansions/script/c81010041.lua	8bcb8b259ce5ff62d595ba9a030a667e
-expansions/script/c81010042.lua	4150db7bddcba70cc3e5e47eb552d355
+expansions/script/c81010042.lua	126b357cd66c4f901b5fee1419b36e07
 expansions/script/c81010045.lua	ee8c613305e030f16917ef121d19cd6e
 expansions/script/c81010046.lua	5a0ae7bfa604b3c30d140faa40ce668c
-expansions/script/c81010047.lua	fe489e0eca7dc5833cfec495c004ccc2
+expansions/script/c81010047.lua	359f1b434fbe6da5c7ca33b1cce6addc
 expansions/script/c81010048.lua	c59901e9bcf5e9f48fe01ab1ccb02180
-expansions/script/c81010049.lua	0138b91bd48780150e17be5a1dad547a
+expansions/script/c81010049.lua	86e87a155029a42a79310b43ebb95274
 expansions/script/c81010050.lua	41b3e07a8ebccd76550f1257fa96cafa
 expansions/script/c81010051.lua	046ed8e2d0d57869c1070572cb16abd8
 expansions/script/c81010052.lua	02b39035e7219efe4b5ae456a8f66390
@@ -14153,7 +14243,7 @@ expansions/script/c81010054.lua	8cced57ae64a5e202dcb30da2a5c8b10
 expansions/script/c81010055.lua	958135fd57d825d9b3982fb8b8fb995b
 expansions/script/c81010056.lua	c04de5be6f5b2ecb59124850b027ab87
 expansions/script/c81010057.lua	aee3844698f1f94b190ed6acba2cb049
-expansions/script/c81010058.lua	f9815cf5234c853a8cc5b276b8966d61
+expansions/script/c81010058.lua	b5d61fae4fd04a6fe6dab4bd35d939fb
 expansions/script/c81010059.lua	2b69ef627bed789ba93cd818d3a23ab3
 expansions/script/c81011001.lua	d00deb42f53c98f449d1ffa02e25b326
 expansions/script/c81011002.lua	14612789981fe0c26d0cd4fd029af1e9
@@ -14266,12 +14356,12 @@ expansions/script/c81012026.lua	971f0c30a0e442ea4569a846f10e58f3
 expansions/script/c81012027.lua	1f300f878e6580e0d56d51e3976eeb57
 expansions/script/c81012028.lua	590a419636dacb40eacaeeb8d1111107
 expansions/script/c81012029.lua	7018da9f2a9d8b5af8a7dd65e0e5b119
-expansions/script/c81012030.lua	be99da6c195be9eec37eb513ddbfca6f
+expansions/script/c81012030.lua	2fb82189dfbcf380a3b410bffed40d98
 expansions/script/c81012031.lua	990f6e066b66e6b72a1a627e3d829640
 expansions/script/c81012032.lua	12514c773c10c747e49cb81530baeca3
 expansions/script/c81012033.lua	27d35fe90961b8372833d7917de177e3
 expansions/script/c81012034.lua	1180f3f9a7f6972659ec496a2617a0be
-expansions/script/c81012035.lua	9e0cbe9d469aad1be9f132f6cbdf7b8d
+expansions/script/c81012035.lua	214c853206920894307189249a33849b
 expansions/script/c81012036.lua	338999b289aeef002e72c6a2fb66b3c0
 expansions/script/c81012037.lua	208f2bf52b2cb7bcd7cdabb06662195a
 expansions/script/c81012038.lua	e171639a304aa279059bd45f334d33fd
@@ -14305,7 +14395,7 @@ expansions/script/c81012069.lua	779881abf97a8d16e8bb1c6e16add122
 expansions/script/c81012070.lua	51610b0134578ea364e0b46b62fdad24
 expansions/script/c81013001.lua	83c6c0fb62a1f36c587ad6cb21d1f3f8
 expansions/script/c81013002.lua	5cd6748c79702ffa010eafea45ad538c
-expansions/script/c81013003.lua	969eb286c940ea3666ad60a97ec95b02
+expansions/script/c81013003.lua	ea288e9eac1f8a765df767be867bdcac
 expansions/script/c81013004.lua	7586ea3d8eaa23fbd940f7b44ba9cfde
 expansions/script/c81013005.lua	e0f232435bcf00fca2545fa294863429
 expansions/script/c81013007.lua	8c842209d2e9379336448057af2132f4
@@ -14319,7 +14409,7 @@ expansions/script/c81013017.lua	5c31aeb8a324d07ccffcc3d89a3ece2f
 expansions/script/c81013018.lua	3af6b4bd7f90a01107b37e44ebc1953d
 expansions/script/c81013019.lua	0cad0d8abc32652a82b1453290aadba1
 expansions/script/c81013020.lua	b934204ec7a244d69874ad6ff51d9773
-expansions/script/c81013021.lua	67f9ad8ffcbaca9c1a89c6a7d2aa0223
+expansions/script/c81013021.lua	521bb918b6e5fa56ac7240715f0cb3e4
 expansions/script/c81013022.lua	0ca273e3adae17a47110a6c86a09d028
 expansions/script/c81013024.lua	9d483bfb72318cc7e5ac7a7d6b4b4c20
 expansions/script/c81014001.lua	064ca555af332b3d27223fa259d76527
@@ -14334,7 +14424,7 @@ expansions/script/c81014009.lua	851ca893a0022438cdac385d5ea96d56
 expansions/script/c81014010.lua	d2b51bf98de1a62f8fc531b5a23191db
 expansions/script/c81014011.lua	74ad8bf2fcce5499253300af166196ce
 expansions/script/c81014012.lua	b1a884f7d6eb5df92ec8aef0f3d36d9e
-expansions/script/c81014013.lua	fb0b3715bb5e5299a5b358de3dd9d23f
+expansions/script/c81014013.lua	bb0ada7e8c5557c86c434ff595128785
 expansions/script/c81014014.lua	4cb6db3f3fd26ea399a7eee4948fd42d
 expansions/script/c81014015.lua	23a003301621cb556f65b313b5bff9cc
 expansions/script/c81014016.lua	7d86d6ace036617d0511549f9677d3d7
@@ -14442,7 +14532,7 @@ expansions/script/c81017011.lua	49cf9d3d95b84b27c3ad26b1610eb67c
 expansions/script/c81017012.lua	6d61fcab5f393ce26490bb431cb0a0d1
 expansions/script/c81017013.lua	a9734fcf95147a24ca680a0f0e6c4987
 expansions/script/c81017014.lua	3049820b5ff017accefdb3ab772ebd90
-expansions/script/c81017015.lua	f1260707ce7c096ce8926c66bf8e432b
+expansions/script/c81017015.lua	b7f2c06bfb6e04c7fcbc7f3b3e9d9946
 expansions/script/c81017016.lua	cb428432826a51ed9be542bdce885afd
 expansions/script/c81017017.lua	689d0390f12a58a45a1a88ae0b0402be
 expansions/script/c81017018.lua	01b126b375afb7a2f7935b7a649cb0e8
@@ -14469,7 +14559,7 @@ expansions/script/c81018016.lua	440887d9153830f46abc5973e5102321
 expansions/script/c81018017.lua	89937b1c8615c1e3351026e281e29dc8
 expansions/script/c81018018.lua	35c2e780a93de52757d719357c38af81
 expansions/script/c81018019.lua	69a90112eeb35641cb3a3f2934f59cfc
-expansions/script/c81018020.lua	c527bf6405c421827c7d712ab1d82377
+expansions/script/c81018020.lua	67e5e8ea125b40f1b0134ceb8bf4554f
 expansions/script/c81018021.lua	68cfe7387cf8ff0aeb8467164421b83b
 expansions/script/c81018022.lua	c107b7341a6b95c6b004fe7e04f10dda
 expansions/script/c81018023.lua	780e1c87528e0f2f3c9790dfcb27b850
@@ -14516,7 +14606,7 @@ expansions/script/c81019016.lua	ac5e9fe67eb5569818c0d72fa49f4a40
 expansions/script/c81019018.lua	28e00e2f9da6ed80b22fb4b93d8fc838
 expansions/script/c81019019.lua	4f716c1cd23d6fc1d0342eaa08ea5a38
 expansions/script/c81019020.lua	8d1c58945b223ad57e38931b9f6679e8
-expansions/script/c81019021.lua	4f97c42c9c51ff2f3623be80629a8262
+expansions/script/c81019021.lua	267d5298d769b459152f9a5bfd5cf0f6
 expansions/script/c81019022.lua	b0f8d2bb0771e965db922ff78eee491d
 expansions/script/c81019023.lua	f30d57540e557a09d9943299f1141c51
 expansions/script/c81019024.lua	3fbc438b65c5bde7cab2872aed6d9e15
@@ -14556,14 +14646,14 @@ expansions/script/c81022012.lua	48a461d8bc8dd308dc3d8f4ac252e2bc
 expansions/script/c81040000.lua	c79dbbf59b9ca3f597bd2d49f1751dfb
 expansions/script/c81040001.lua	656774c90db0d3eb1469ca7a13c67874
 expansions/script/c81040002.lua	0fb165f414dbf9f7846492910fc88517
-expansions/script/c81040003.lua	f8b4439a8e1a9132ee5a9ba7f826ba07
+expansions/script/c81040003.lua	c90fea4465e9110d2296ed64d20bf9fd
 expansions/script/c81040004.lua	8f0f0db9b96a622ff1ca18d01206755b
 expansions/script/c81040005.lua	c7e467373290422141cf7f24ea3439b1
 expansions/script/c81040006.lua	5cbce27593540a3ae68f7317292d793f
 expansions/script/c81040007.lua	d256428606d4069b7f8dd518dd2b1d6a
 expansions/script/c81040008.lua	39f9f347f9be59fcb85645df9adda09b
-expansions/script/c81040009.lua	8805827e0f51fcbc791cbcbbc273888f
-expansions/script/c81040010.lua	40c351c051d025b9aa820e4c3c1d4b08
+expansions/script/c81040009.lua	16e001493ded8f0768ac3e8243ca4288
+expansions/script/c81040010.lua	a0b9c656c5ff4d5216939d8c6cd0058f
 expansions/script/c81040011.lua	518377d0e0dbd5555e57cca49e5d4bfd
 expansions/script/c81040012.lua	8fa4f50848a7997db428d60bed8fc26e
 expansions/script/c81040013.lua	ec938c2968e34ec0641d59f025dcfdbc
@@ -14571,26 +14661,26 @@ expansions/script/c81040014.lua	db266860c841c534d437f7e3b534229b
 expansions/script/c81040015.lua	052f588ea8a654ed2004c59e6183de9f
 expansions/script/c81040016.lua	f40015e42078583239a9fb7f4011e0bd
 expansions/script/c81040017.lua	c88e3eb09596dc54cc2bd537d131e32d
-expansions/script/c81040018.lua	25a16caf5decdb107967b4c931937656
+expansions/script/c81040018.lua	fbccb8af0508c558d17d97febb1925ab
 expansions/script/c81040019.lua	2a6ebb13ab00b4761dae60c59c896485
 expansions/script/c81040020.lua	6165fd453bbb91b5516a8d2198d0d398
 expansions/script/c81040021.lua	7776808d6183d8a05cf4b1476f42ee9f
-expansions/script/c81040022.lua	5d815fca7be4e9b11325bc0f73a11a10
+expansions/script/c81040022.lua	0e1e442c5e911e109a7f6a3ae1872e93
 expansions/script/c81040023.lua	82954942c3f52a33122bab787bc7350d
 expansions/script/c81040024.lua	108fe5494a352493a168bced1ed2af88
 expansions/script/c81040025.lua	086767e2127777fb0a732189d701ee4e
 expansions/script/c81040026.lua	7b7ede47a544d265d7207cd5628282e6
 expansions/script/c81040027.lua	6713e40d2a6d2b6144c622c2d4a0bad7
-expansions/script/c81040028.lua	beb7800c93ff734fb53a95d927e8658f
+expansions/script/c81040028.lua	dd8bfb9382a4959a3c5194de7ec90c18
 expansions/script/c81040029.lua	b5aded0be03aa2141dbcda828c3872e4
 expansions/script/c81040030.lua	ac12b8781ca608fb7802f2c2d3f69b6a
 expansions/script/c81040031.lua	73cd2fd726d5bd93ab3993808d21de07
 expansions/script/c81040032.lua	6bff6280868ebf7e306dc241c5f667ca
 expansions/script/c81040033.lua	9b1afa042425cdf4271fa506f27a9a87
-expansions/script/c81040034.lua	9ab5652f5a47bc92fab55907333908d6
+expansions/script/c81040034.lua	80b928a879176b2d02cf5810525b2712
 expansions/script/c81040035.lua	17edbdd9d5620ec45fb13bb0c0da082a
-expansions/script/c81040036.lua	bf0df8fc43137bc83b32c48d2f051543
-expansions/script/c81040037.lua	9144b830688ee8d7e7900223628c1645
+expansions/script/c81040036.lua	e8c5361c8536d247134d0e33513b3a53
+expansions/script/c81040037.lua	73044a250d5f8e766cda6e6edd55f143
 expansions/script/c81040038.lua	7665dc8a696ec675059cbf0a4b6e4bd7
 expansions/script/c81040039.lua	5e77eeb03ac3efcf420dd6c86551cd7c
 expansions/script/c81040040.lua	fbae70c67b1536e558b756a4aeda8c3c
@@ -14598,8 +14688,8 @@ expansions/script/c81040041.lua	72691005c40451ef3dcc96396a1211a1
 expansions/script/c81040042.lua	30658a8792732cb211a6320055e4cbff
 expansions/script/c81040043.lua	3e014d3ec1e7cb937995531d7b2aedc7
 expansions/script/c81040044.lua	12fe47495ce6b409a8a58b2e22e882ac
-expansions/script/c81040045.lua	a57c644170bce81f19bb3df443b459aa
-expansions/script/c81040046.lua	28d2e9ae5bb569e1a6f5e13c70879b2c
+expansions/script/c81040045.lua	05d80c26e35c84db9b9856edb7738c17
+expansions/script/c81040046.lua	d0d0d04c1f391dee69dd78cc682e162a
 expansions/script/c81040047.lua	b118a71552c992259594f29286ec73d3
 expansions/script/c81041000.lua	6ef8f585a18eb9d6c4ae473f83fed631
 expansions/script/c81041001.lua	67c7cc11225bb08002897dd9e8d8cc07
@@ -14916,6 +15006,7 @@ expansions/script/c9990300.lua	abd457851ba275481c7aa0fdcd1a9995
 expansions/script/c99998931.lua	1e92eb96752eaa1877afe9d273846fa7
 expansions/script/json.lua	a4b0e052decd4e8d574bd8639901bbfa
 expansions/script/lap.lua	1da9daee0b87d8dd8fb0e7cda6e7045f
+expansions/script/special.lua	d272f3c375838b380370db35723701c5
 sound/activate.wav	ddb25ba52e523b0ebc94d538a43d9bf9
 sound/addcounter.wav	6f9e1ad242ec8694a5c0c014dd4be00a
 sound/attack.wav	40e3a24a95429503df06352fb0dd1b92
@@ -15474,10 +15565,10 @@ sound/custom/yata_effe01.wav	edf949c75a32c7b91f6029a6e6640ea6
 sound/custom/yata_summon.wav	17b569892284748d19f441e6972d6cce
 sound/custom/出场.wav	3f039c09531dfb96d3e637bfc1ed49ed
 update/delete.txt	bcae307f6039207f11b4daa83f17c0ec
-update/filelist.txt	7db4374251c3d73ad51db773130d2394
+update/filelist.txt	878ad5bdb341166818368906961911b0
 update/rename.txt	c4625b442bf8f5c2e7ce4deb512d4671
 update/update-push.bat	686b01a51bba916202d61d951cd7fe3e
 update/update-push.sh	d018a223f65feef3467b22e252468f53
 update/update-server.sh	6f1cdc3e06ec58b37b14b5d9d167263c
 update/update-without-sound.bat	1c2cfda2a0501642c8bceae026a73d5b
-update/version.txt	7eae04790f47779fff980f1c1bbcd03d
+update/version.txt	eefd8c9c185c4303db6f1a7e36a3dfb2

update/version.txt

-2019/12/16 18:33:20
\ No newline at end of file
+2019/12/30 12:19:23
\ No newline at end of file