8.5

deck/2019.8.4_new_card1.ydk

+#created by ... 
+#main 
+1141005
+1141702
+10199990
+10199991
+17050938
+17090009
+18010001
+18010002
+18010003
+18010004
+18010007
+26800004
+26805006
+26805007
+26806025
+26806026
+26806027
+26807057
+26807058
+26807059
+26807060
+81006028
+81040035
+81041010
+81041011
+81041012
+81041013
+81041014
+81041016
+81041017
+81041999
+#extra 
+17050937
+17051037
+18010005
+18010006
+26802004
+26802005
+26806028
+26806029
+26806030

deck/2019.8.4_new_card2.ydk

+#created by ... 
+#main 
+#extra 
+26807041
+81006027
+81008035
+81011003
+81011029
+81040037
+81041009
+81041015

deck/7.21_new_card1.ydk

-#created by ... 
-#main 
-9980129
-9980200
-9980201
-9980202
-9980205
-9980206
-9980207
-9980208
-9980209
-9980210
-9980211
-9980213
-9980225
-9980226
-9980227
-9980250
-9980251
-9980252
-9980253
-9980254
-9980255
-9980256
-9980262
-9980263
-9980264
-9980265
-9980266
-9980270
-9980496
-9980525
-9980526
-9980527
-9980528
-9980529
-9980530
-9980531
-9980532
-9980533
-9980549
-9980550
-9980552
-9980553
-9980555
-9980556
-9980557
-9980558
-9980559
-9980560
-9980561
-9980562
-9980563
-9980564
-9980565
-9980573
-9980574
-9980575
-#extra 
-1146016
-1146018
-9980203
-9980204
-9980212
-9980228
-9980229
-9980257
-9980258
-9980259
-9980260
-9980261
-9980534

deck/7.21_new_card2.ydk

-#created by ... 
-#main 
-9980576
-9980577
-9980578
-9980579
-9980580
-9980581
-9980583
-10199990
-10199991
-12033000
-12033001
-12033002
-12033006
-12033008
-12033010
-12033011
-12033012
-12033013
-14000055
-14000056
-14000057
-14000058
-14000059
-14000531
-14000532
-14000533
-14000534
-14000535
-14000536
-14000537
-14000556
-14000557
-14000558
-14000559
-14000560
-14000561
-14000562
-14000563
-14000601
-14000602
-14000604
-14000605
-14000607
-14010046
-14010058
-14010106
-14010108
-14010110
-14010120
-14010145
-14010210
-17050935
-26807044
-26807045
-26807046
-#extra 
-9980535
-9980546
-9980547
-9980548
-9980551
-9980554
-9980566
-9980567
-9980568
-9980569
-9980570
-9980571
-9980572

deck/7.21_new_card3.ydk

-#created by ... 
-#main 
-26807047
-26807049
-26807050
-26807051
-26807052
-26807053
-26807054
-26807055
-26807056
-33330400
-33330401
-33330402
-33330403
-33330404
-33330405
-33330406
-33330407
-33330408
-33330409
-33330411
-33330412
-75646000
-75646009
-75646900
-75646901
-75646902
-75646903
-75646905
-75646906
-75646907
-75646910
-81006022
-81006023
-81006024
-81006025
-81007035
-81007036
-81007037
-81009038
-81010006
-81011025
-81011027
-81011028
-81011100
-81011116
-81040032
-81040033
-81040034
-81041005
-81041008
-88946420
-88946425
-88946426
-88946427
-88946428
-#extra 
-9980582
-12033003
-12033004
-12033005
-14000060
-14000538
-14000539
-14000555
-14000564
-14000603
-14000606
-14000608
-14010047

deck/7.21_new_card4.ydk

-#created by ... 
-#main 
-#extra 
-14010048
-14010049
-14010115
-17050936
-17050937
-26804005
-26807048
-33330410
-33330413
-75646050
-75646054
-75646057
-75646061

deck/7.21_new_card5.ydk

-#created by ... 
-#main 
-#extra 
-75646534
-75646904
-75646908
-75646909
-75646911
-81005005
-81006026
-81008100
-81008101
-81008102
-81008103
-81008104
-81008105

deck/7.21_new_card6.ydk

-#created by ... 
-#main 
-#extra 
-81009011
-81011005
-81011026
-81011117
-81011305
-81015047
-81018040
-81040037
-87600001
-87600002
-88946421
-88946422
-88946423

expansions/lflist.conf

@@ -119,6 +119,7 @@
 12013007 1 --紫阳花的火枪手 伊瓦尔
 12010016 0 --LA SG Wrath 艾拉斯
 12033001 0 --舞台 momoko
+12033012 1 --忧物 momoko
 
 #140
 14000509 2 --异态魔女·过去式
@@ -159,7 +160,7 @@
 17060917 2 --未来型菲迪露玛
 17082107 0 --枪神·古兰
 17090008 0 --开辟的预言者
-17090009 0 --冰狱之王·撒旦
+17090009 1 --冰狱之王·撒旦
 17082113 0 --黑暗剑士·古兰
 17010302 2 --带来光明者 路西欧
 17011108 0 --风之军神·格尼姆尔
@@ -221,6 +222,7 @@
 26805005 1 --黛冬优子
 26807033 1 --小巷探秘
 26807046 0 --被雨淋湿不知所措
+26805007 0 --西京夏日约会
 #328
 32828002 1 --风卷浪
 #333
@@ -307,79 +309,81 @@
 40008651 0 --智天兵龙 乌利提斯
 
 #475
-#47510239 1 --神魔之钥 阿米拉
-#47510229 1 --漆黑的解放者 阿萨谢尔
-#47590005 1 --地之天使
-#47500001 2 --炼金术师 姬塔
-#47500003 0 --枪神 姬塔
-#47500007 2 --暗杀者 姬塔
-#47500025 2 --苍之命运
-#47501004 0 --神盾 布罗迪亚
-#47510001 1 --守护的星晶兽 雅典娜
-#47510007 1 --苍之少女 露莉雅
-#47510044 1 --魔王 布伦希尔德
-#47510054 0 --史诗星晶兽 普罗米迪乌斯
-#47510057 0 --史诗星晶兽 拜乌卡
-#47510060 0 --史诗星晶兽 吉尔伽美什
-#47510063 0 --史诗星晶兽 卡·昂
-#47510066 0 --史诗星晶兽 赫克托耳
-#47510069 0 --史诗星晶兽 阿努比斯
-#47510122 0 --暗夜的星晶兽 纳哈特
-#47510129 0 --魅惑的星晶兽 萨提洛斯
-#47511101 1 --星晶融合
-#47511102 0 --原初兽封印之地 万魔殿
-#47591822 0 --觉醒十天众 索恩
-#47578901 0 --天司的创造者 路西法
-#47578905 0 --黑暗天司 奥利维尔
-#47578930 0 --天司圣域—迦南
-#47578903 1 --天司的反抗者 圣德芬
-#47578912 0 --天司长的继承
-#47578915 1 --天司的裁决
-#47578922 1 --天司长的化身 路西欧
-#47578926 2 --堕天司 阿萨谢尔
-#47590006 0 --风之天司 拉斐尔
-#47512001 1 --真龙 斯卡哈
-#47591002 0 --二王的反抗
-#47591822 0 --觉醒十天众 索恩
-#47509999 0 --第三之目，开眼
-#47510250 0 --铃铛天使 叮咚
-#47510300 0 --星龙 迪斯卡特里波卡
-#47551111 0 --盛装的决斗者 特蕾兹
-#47514966 0 --红莲的战女神 雅典娜
-#47530031 1 --可能性之兽
-#47570500 0 --修瓦利耶·马格纳
-#47598773 0 --堕落的圣少女 贞德
-#47530096 0 --拜亚兰
-#47550007 0 --人偶的少女 奥尔琪斯
-#47552431 1 --露☆娜☆酱
-#47578934 0 --守护天使 武器幻影
-#47578935 0 --守护天使 炽天摇篮
-#47510402 1 --魔法少女 美杜莎
-#47511551 0 --zai？出来丢人
-#47570100 0 --利维亚桑·马格纳
-#47571269 1 --异空龙 异界巴哈姆特
-#47577900 0 --堕天司的诡计
-#47578932 0 --天司长副官 贝利亚
-#47577902 1 --堕天司的假死
-#47577906 2 --堕天司的救世主
-#47577914 1 --堕天司的主炮 基路伯
-#47578932 0 --天司长副官 贝利亚
-#47578936 1 --堕天司 奥利维尔
-#47510252 0 --维拉=修瓦利耶
-#47510303 0 --纯白的灵蝶 希尔芙
-#47511003 0 --紫电的黎明 麒麟
-#47517001 0 --天司原核
-#47530006 0 --高机动型杰钢
-#47554352 0 --斑☆比☆酱
-#47578999 0 --路西法的遗产 化身
-#47550003 0 --苍天的守护骑士 卡塔丽娜
-#47500001 1 --炼金术师 姬塔
-#47500007 1 --暗杀者 姬塔
-#47530019 0 --全装甲高达·雷霆宙域
-#47530020 0 --精神感应扎古
-#47530050 0 --兹达
-#47530052 0 --Hi-v高达
-#47591004 0 --四天的叹息
+47510239 1 --神魔之钥 阿米拉
+47510229 1 --漆黑的解放者 阿萨谢尔
+47590005 1 --地之天使
+47500001 2 --炼金术师 姬塔
+47500003 0 --枪神 姬塔
+47500007 2 --暗杀者 姬塔
+47500025 2 --苍之命运
+47501004 0 --神盾 布罗迪亚
+47510001 1 --守护的星晶兽 雅典娜
+47510007 1 --苍之少女 露莉雅
+47510044 1 --魔王 布伦希尔德
+47510054 0 --史诗星晶兽 普罗米迪乌斯
+47510057 0 --史诗星晶兽 拜乌卡
+47510060 0 --史诗星晶兽 吉尔伽美什
+47510063 0 --史诗星晶兽 卡·昂
+47510066 0 --史诗星晶兽 赫克托耳
+47510069 0 --史诗星晶兽 阿努比斯
+47510122 0 --暗夜的星晶兽 纳哈特
+47510129 0 --魅惑的星晶兽 萨提洛斯
+47511101 1 --星晶融合
+47511102 0 --原初兽封印之地 万魔殿
+47591822 0 --觉醒十天众 索恩
+47578901 0 --天司的创造者 路西法
+47578905 0 --黑暗天司 奥利维尔
+47578930 0 --天司圣域—迦南
+47578903 1 --天司的反抗者 圣德芬
+47578912 0 --天司长的继承
+47578915 1 --天司的裁决
+47578922 1 --天司长的化身 路西欧
+47578926 2 --堕天司 阿萨谢尔
+47590006 0 --风之天司 拉斐尔
+47512001 1 --真龙 斯卡哈
+47591002 0 --二王的反抗
+47591822 0 --觉醒十天众 索恩
+47509999 0 --第三之目，开眼
+47510250 0 --铃铛天使 叮咚
+47510300 0 --星龙 迪斯卡特里波卡
+47551111 0 --盛装的决斗者 特蕾兹
+47514966 0 --红莲的战女神 雅典娜
+47530031 1 --可能性之兽
+47570500 0 --修瓦利耶·马格纳
+47598773 0 --堕落的圣少女 贞德
+47530096 0 --拜亚兰
+47550007 0 --人偶的少女 奥尔琪斯
+47552431 1 --露☆娜☆酱
+47578934 0 --守护天使 武器幻影
+47578935 0 --守护天使 炽天摇篮
+47510402 1 --魔法少女 美杜莎
+47511551 0 --zai？出来丢人
+47570100 0 --利维亚桑·马格纳
+47571269 1 --异空龙 异界巴哈姆特
+47577900 0 --堕天司的诡计
+47578932 0 --天司长副官 贝利亚
+47577902 1 --堕天司的假死
+47577906 2 --堕天司的救世主
+47577914 1 --堕天司的主炮 基路伯
+47578932 0 --天司长副官 贝利亚
+47578936 1 --堕天司 奥利维尔
+47510252 0 --维拉=修瓦利耶
+47510303 0 --纯白的灵蝶 希尔芙
+47511003 0 --紫电的黎明 麒麟
+47517001 0 --天司原核
+47530006 0 --高机动型杰钢
+47554352 0 --斑☆比☆酱
+47578999 0 --路西法的遗产 化身
+47550003 0 --苍天的守护骑士 卡塔丽娜
+47500001 1 --炼金术师 姬塔
+47500007 1 --暗杀者 姬塔
+47530019 0 --全装甲高达·雷霆宙域
+47530020 0 --精神感应扎古
+47530050 0 --兹达
+47530052 0 --Hi-v高达
+47591004 0 --四天的叹息
+47577910 0 --刑死的堕天司 沙利叶
+47510402 0 --魔法少女 美杜莎
 #写的禁卡比鸟卡还多更恶心，又没人管，是时候放出来恶心一下两次周赛了
 
 #500
@@ -429,7 +433,7 @@
 60150624 0 --千夜 天堂武装
 
 #610
-61000010 1 --神赐之门的巡礼
+#61000010 1 --神赐之门的巡礼
 
 #622
 62200000 0 --从那里开始的一切
@@ -571,11 +575,24 @@
 81015012 2 --思想者·北上丽花
 81015016 1 --上课小动作·北上丽花
 81011305 0 --灰姑娘女孩·本田未央
+81009003 0 --梦见的妖精·橘爱丽丝
+81011203 0 --选择困难症侯群 艾露玛
+81012012 1 --浅绿时间·爱米莉
+81016004 1 --望月杏奈Festival
+81018017 0 --动物朋友·最上静香
+81040004 0 --周子·重游古道
+81040016 1 --警戒地带·周子
+81040022 0 --每日锻炼·周子
+81040033 0 --散花世界·小雅
+81040037 1 --冬日回忆·周子
 #888
 88800000 0 --迅刃机 冲阵者
 #889
 88946403 1 --生死轮舞 塞娜蕾菈·约束
 88946411 1 --生死轮舞 虚化的安魂绘卷
+88946426 0 --折幸 智语
+88946425 0 --折幸 压制
+88946427 2 --折幸 斩截
 #952
 95280011 0 --机动·争锋对决
 #983

expansions/script/c10199990.lua

@@ -935,16 +935,29 @@ end
 rsef.QO_OPPONENT_TURN=rsef.RegisterOPTurn
 --Effect: Register Condition, Cost, Target and Operation 
 function rsef.RegisterSolve(e,con,cost,tg,op)
+	local code=e:GetOwner():GetCode()
 	if con then
+		if type(con)~="function" then
+			Debug.Message(code .. " RegisterSolve con must be function")
+		end
 		e:SetCondition(con)
 	end
 	if cost then
+		if type(cost)~="function" then
+			Debug.Message(code .. " RegisterSolve cost must be function")
+		end
 		e:SetCost(cost)
 	end
 	if tg then
+		if type(tg)~="function" then
+			Debug.Message(code .. " RegisterSolve tg must be function")
+		end
 		e:SetTarget(tg)
 	end
 	if op then
+		if type(op)~="function" then
+			Debug.Message(code .. " RegisterSolve op must be function")
+		end
 		e:SetOperation(op)
 	end
 end
@@ -1975,7 +1988,7 @@ function rscost.lpcost2(lp,max,islabel)
 		if chk==0 then return Duel.CheckLPCost(tp,lp) end
 		local costmaxlp=math.floor(maxlp/lp)
 		local t={}
-		for i=1,m do
+		for i=1,costmaxlp do
 			t[i]=i*lp
 		end
 		local cost=Duel.AnnounceNumber(tp,table.unpack(t))
@@ -2450,10 +2463,17 @@ function rscf.SetSpecialSummonProduce(cardtbl,range,con,op,desctbl,ctlimittbl,re
 	local tc1,tc2,ignore=rsef.GetRegisterCard(cardtbl)
 	if not desctbl then desctbl=rshint.spproc end
 	local flag=not tc2:IsSummonableCard() and "uc,cd" or "uc" 
-	local e1=rsef.Register(cardtbl,EFFECT_TYPE_FIELD,EFFECT_SPSUMMON_PROC,desctbl,ctlimittbl,nil,flag,range,con,nil,nil,op,nil,nil,nil,resettbl)
+	local e1=rsef.Register(cardtbl,EFFECT_TYPE_FIELD,EFFECT_SPSUMMON_PROC,desctbl,ctlimittbl,nil,flag,range,rscf.SetSpecialSummonProduce_con(con),nil,nil,op,nil,nil,nil,resettbl)
 	return e1
 end
 rssf.SetSpecialSummonProduce=rscf.SetSpecialSummonProduce
+function rscf.SetSpecialSummonProduce_con(con)
+	return function(e,c)
+		if c==nil then return true end
+		local tp=c:GetControler()
+		return con(e,c,tp)
+	end
+end
 --Card/Summon effect: Is monster can normal or special summon
 function rscf.SetSummonCondition(cardtbl,isnsable,sumvalue,iseffectspsum,resettbl)
 	local tc1,tc2,ignore=rsef.GetRegisterCard(cardtbl)
@@ -2809,6 +2829,7 @@ function rsef.ChangeFunction_Synchro()
 end
 function rscf.SynMixCheckGoal2(tp,sg,minc,ct,syncard,sg1,smat,gc)
 	local g=rsgf.Mix2(sg,sg1)
+	if syncard.rssyncheckfun and not syncard.rssyncheckfun(g,syncard,tp) then return false end
 	local f=Card.GetLevel
 	local f2=Card.GetSynchroLevel
 	local darktunerg=g:Filter(Card.IsType,nil,TYPE_TUNER)
@@ -2883,6 +2904,15 @@ function rscf.AddSynchroMixProcedure_ChangeTunerLevel(c,f1,lv,f2,f3,f4,minc,maxc
 	return e1
 end
 rssf.AddSynchroMixProcedure_ChangeTunerLevel=rscf.AddSynchroMixProcedure_ChangeTunerLevel
+function rscf.AddSynchroMixProcedure_CheckMaterial(c,f1,f2,f3,f4,minc,maxc,extrafilter)
+	if c:IsStatus(STATUS_COPYING_EFFECT) then return end
+	local mt=getmetatable(c)
+	mt.rssyncheckfun=extrafilter
+	rsef.ChangeFunction_Synchro()
+	local e1=rscf.AddSynchroMixProcedure(c,f1,f2,f3,f4,minc,maxc)
+	return e1
+end
+rssf.AddSynchroMixProcedure_CheckMaterial=rscf.AddSynchroMixProcedure_CheckMaterial
 --Card effect: Set field info
 function rscf.SetFieldInfo(c)
 	local seq=c:IsOnField() and c:GetSequence() or c:GetPreviousSequence()
@@ -3193,6 +3223,8 @@ function cm.initial_effect(c)
 		"rsan"  =   "Arknights"
 		"rsnm"  =   "Nightmare"
 		"rsdt"  =   "DarkTale"
+		"rseee" =   "EEE"
+		"rshr"  =   "HarmonicRhythm"
 				}--]]   
 end
 end
\ No newline at end of file

expansions/script/c1141005.lua

+--夜间游荡的唐伞妖怪
+function c1141005.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
+	e1:SetCost(c1141005.cost1)
+	e1:SetTarget(c1141005.tg1)
+	e1:SetOperation(c1141005.op1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(1141005,0))
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e2:SetCode(EVENT_FLIP)
+	e2:SetTarget(c1141005.tg2)
+	e2:SetOperation(c1141005.op2)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	e3:SetOperation(c1141005.op3)
+	c:RegisterEffect(e3)
+--
+end
+--
+c1141005.muxu_ih_KTatara=1
+--
+function c1141005.cost1(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(),REASON_COST) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+	local sg=Duel.SelectMatchingCard(tp,Card.IsDiscardable,tp,LOCATION_HAND,0,1,1,e:GetHandler(),REASON_COST)
+	Duel.SendtoGrave(sg,REASON_COST+REASON_DISCARD)
+end
+--
+function c1141005.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return not c:IsStatus(STATUS_CHAINING)
+		and Duel.GetMZoneCount(tp)>0
+		and (c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) or c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+--
+function c1141005.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local pos1=c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) and POS_FACEUP_ATTACK or 0
+	local pos2=c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and POS_FACEDOWN_DEFENSE or 0
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,0,tp,tp,false,false,pos1+pos2)
+	if c:IsFacedown() then Duel.ConfirmCards(1-tp,c) end
+end
+--
+function c1141005.tfilter2(c)
+	return c.muxu_ih_KTatara and c:IsType(TYPE_TRAP) and c:IsSSetable()
+end
+function c1141005.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local b1=Duel.IsExistingMatchingCard(c1141005.tfilter2,tp,LOCATION_HAND,0,1,nil)
+	local c=e:GetHandler()
+	if chk==0 then
+		local b1=Duel.IsExistingMatchingCard(c1141005.tfilter2,tp,LOCATION_HAND,0,1,nil)
+		local b2=Duel.IsExistingMatchingCard(c1141005.tfilter2,tp,LOCATION_DECK,0,1,nil) and c:GetFlagEffect(1141005)>0 
+		return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and (b1 or b2)
+	end
+	if e:GetHandler():GetFlagEffect(1141005)~=0 then
+		e:SetLabel(1)
+		e:GetHandler():ResetFlagEffect(1141005)
+	else
+		e:SetLabel(0)
+	end
+end
+--
+function c1141005.op2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local loc=LOCATION_HAND 
+	if e:GetLabel()==1 then loc=LOCATION_DECK+LOCATION_HAND end
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local sg=Duel.SelectMatchingCard(tp,c1141005.tfilter2,tp,loc,0,1,1,nil)
+	if sg:GetCount()>0 then
+		Duel.SSet(tp,sg)
+		Duel.ConfirmCards(1-tp,sg)
+		local e2_1=Effect.CreateEffect(c)
+		e2_1:SetType(EFFECT_TYPE_SINGLE)
+		e2_1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+		e2_1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+		e2_1:SetReset(RESET_EVENT+0x1fe0000)
+		sg:GetFirst():RegisterEffect(e2_1,true)
+	end
+end
+--
+function c1141005.op3(e,tp,eg,ep,ev,re,r,rp)
+	e:GetHandler():RegisterFlagEffect(1141005,0,0,0)
+end
\ No newline at end of file

expansions/script/c1141702.lua

+--光晕『唐伞惊吓闪光』
+function c1141702.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_NEGATE+CATEGORY_POSITION)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(c1141702.con1)
+	e1:SetTarget(c1141702.tg1)
+	e1:SetOperation(c1141702.op1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCost(c1141702.cost2)
+	e2:SetCondition(c1141702.con2)
+	e2:SetOperation(c1141702.op2)
+	c:RegisterEffect(e2)
+--
+end
+--
+c1141702.muxu_ih_KTatara=1
+--
+function c1141702.con1(e,tp,eg,ep,ev,re,r,rp)
+	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
+	return loc==LOCATION_MZONE and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
+end
+--
+function c1141702.tfilter1(c,e,tp)
+	local b1=c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK)
+	local b2=c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
+	return b1 or b2
+end
+function c1141702.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c1141702.tfilter1(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c1141702.tfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) and re:GetHandler():IsCanTurnSet() end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c1141702.tfilter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+	if re:GetHandler():IsCanTurnSet() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_POSITION,eg,1,0,0)
+	end
+end
+--
+function c1141702.op1(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc:IsRelateToEffect(e) then return end
+	local Pos1=tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) and POS_FACEUP_ATTACK or 0
+	local Pos2=tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and POS_FACEDOWN_DEFENSE or 0
+	if Duel.SpecialSummon(c,0,tp,tp,false,false,Pos1+Pos2)>0 then
+		Duel.NegateActivation(ev)
+		if not re:GetHandler():IsRelateToEffect(re) then return end
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end
+--
+function c1141702.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+end
+--
+function c1141702.tfilter2(c,tp)
+	return c:GetSummonPlayer()==tp and muxu.check_set_Tatara(c) and c:GetPreviousLocation()==LOCATION_EXTRA 
+end
+function c1141702.con2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_MAIN1 and eg:IsExists(c1141702.tfilter2,1,nil,tp)
+end
+--
+function c1141702.op2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SkipPhase(1-tp,PHASE_MAIN1,RESET_PHASE+PHASE_MAIN1,1)
+end
+--

expansions/script/c17050937.lua

@@ -5,9 +5,16 @@ function cm.initial_effect(c)
 	--link summon
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),3)
 	c:EnableReviveLimit()
+	--cannot link material
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	e0:SetValue(1)
+	c:RegisterEffect(e0)
 	--to grave
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetDescription(aux.Stringid(17050937,5))
 	e1:SetCategory(CATEGORY_TOGRAVE)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
@@ -31,7 +38,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e3)
 	--special summon
 	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(m,1))
+	e4:SetDescription(aux.Stringid(17050937,6))
 	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e4:SetType(EFFECT_TYPE_IGNITION)
 	e4:SetRange(LOCATION_GRAVE)
@@ -39,6 +46,34 @@ function cm.initial_effect(c)
 	e4:SetTarget(cm.sptg)
 	e4:SetOperation(cm.spop)
 	c:RegisterEffect(e4)
+	--spsummon voice
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e5:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e5:SetOperation(cm.sumsuc)
+	c:RegisterEffect(e5)
+	--atk voice
+	local e6=Effect.CreateEffect(c)
+	e6:SetCategory(CATEGORY_ATKCHANGE)
+	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e6:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e6:SetOperation(cm.atksuc)
+	c:RegisterEffect(e6)
+	--destroy voice
+	local e7=Effect.CreateEffect(c)
+	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e7:SetCode(EVENT_DESTROYED)
+	e7:SetProperty(EFFECT_FLAG_DELAY)
+	e7:SetCondition(cm.descon)
+	e7:SetOperation(cm.dessuc)
+	c:RegisterEffect(e7)
+	--attk voice
+	local e8=Effect.CreateEffect(c)
+	e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e8:SetCode(EVENT_BATTLE_DAMAGE)
+	e8:SetCondition(cm.attkcon)
+	e8:SetOperation(cm.attksuc)
+	c:RegisterEffect(e8)
 end
 function cm.tgcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
@@ -74,4 +109,28 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	if c:IsRelateToEffect(e) then
 		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
 	end
+end
+function cm.descon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE+LOCATION_SZONE) and c:IsFaceup()
+end
+function cm.attkcon(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp and Duel.GetAttackTarget()==nil
+end
+function cm.sumsuc(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:GetSummonLocation()==LOCATION_GRAVE then
+		Duel.Hint(HINT_SOUND,0,aux.Stringid(17050937,4))
+	else
+		Duel.Hint(HINT_SOUND,0,aux.Stringid(17050937,0))
+	end
+end	
+function cm.atksuc(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SOUND,0,aux.Stringid(17050937,1))
+end
+function cm.attksuc(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SOUND,0,aux.Stringid(17050937,2))
+end
+function cm.dessuc(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SOUND,0,aux.Stringid(17050937,3))
 end
\ No newline at end of file

expansions/script/c17050938.lua

+--培冬
+local m=17050938
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--summon with 3 tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e1:SetCondition(cm.ttcon)
+	e1:SetOperation(cm.ttop)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_LIMIT_SET_PROC)
+	c:RegisterEffect(e2)
+	--remove
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_REMOVE)
+	e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
+	e3:SetCode(EVENT_SUMMON_SUCCESS)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetTarget(cm.target)
+	e3:SetOperation(cm.activate)
+	c:RegisterEffect(e3)
+end
+function cm.ttcon(e,c,minc)
+	if c==nil then return true end
+	return minc<=3 and Duel.CheckTribute(c,3)
+end
+function cm.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectTribute(tp,c,3,3)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
+end
+function cm.filter(c)
+	return c:IsLevelBelow(7) and c:IsAbleToRemove() 
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetFieldGroup(tp,LOCATION_DECK,0)
+	if g:GetCount()<1 then return end
+	Duel.ConfirmCards(tp,g)
+	local sg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_DECK,0,nil)
+	Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+	Duel.ShuffleDeck(tp)
+end
\ No newline at end of file

expansions/script/c17051037.lua

+--冥守的顶点·艾夏
+local m=17051037
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),3)
+	c:EnableReviveLimit()
+	--cannot link material
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	e0:SetValue(1)
+	c:RegisterEffect(e0)
+	--to grave
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(17051037,5))
+	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCondition(cm.tgcon)
+	e1:SetTarget(cm.tgtg)
+	e1:SetOperation(cm.tgop)
+	c:RegisterEffect(e1)
+	--extra attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_EXTRA_ATTACK)
+	e2:SetCondition(cm.acon)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	--direct attack
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_DIRECT_ATTACK)
+	e3:SetCondition(cm.acon)
+	c:RegisterEffect(e3)
+	--special summon
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(17051037,6))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetRange(LOCATION_GRAVE)
+	e4:SetCost(cm.spcost)
+	e4:SetTarget(cm.sptg)
+	e4:SetOperation(cm.spop)
+	c:RegisterEffect(e4)
+	--spsummon voice
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e5:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e5:SetOperation(cm.sumsuc)
+	c:RegisterEffect(e5)
+	--atk voice
+	local e6=Effect.CreateEffect(c)
+	e6:SetCategory(CATEGORY_ATKCHANGE)
+	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e6:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e6:SetOperation(cm.atksuc)
+	c:RegisterEffect(e6)
+	--destroy voice
+	local e7=Effect.CreateEffect(c)
+	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e7:SetCode(EVENT_DESTROYED)
+	e7:SetProperty(EFFECT_FLAG_DELAY)
+	e7:SetCondition(cm.descon)
+	e7:SetOperation(cm.dessuc)
+	c:RegisterEffect(e7)
+	--attk voice
+	local e8=Effect.CreateEffect(c)
+	e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e8:SetCode(EVENT_BATTLE_DAMAGE)
+	e8:SetCondition(cm.attkcon)
+	e8:SetOperation(cm.attksuc)
+	c:RegisterEffect(e8)
+end
+function cm.tgcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) end
+	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
+end
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoGrave(tc,REASON_EFFECT)
+	end
+end
+function cm.acon(e)
+	return e:GetHandler():GetSummonLocation()==LOCATION_GRAVE
+end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_GRAVE,LOCATION_GRAVE,8,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_GRAVE,LOCATION_GRAVE,8,8,e:GetHandler())
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function cm.descon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE+LOCATION_SZONE) and c:IsFaceup()
+end
+function cm.attkcon(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp and Duel.GetAttackTarget()==nil
+end
+function cm.sumsuc(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:GetSummonLocation()==LOCATION_GRAVE then
+		Duel.Hint(HINT_SOUND,0,aux.Stringid(17051037,4))
+	else
+		Duel.Hint(HINT_SOUND,0,aux.Stringid(17051037,0))
+	end
+end	
+function cm.atksuc(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SOUND,0,aux.Stringid(17051037,1))
+end
+function cm.attksuc(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SOUND,0,aux.Stringid(17051037,2))
+end
+function cm.dessuc(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SOUND,0,aux.Stringid(17051037,3))
+end
\ No newline at end of file

expansions/script/c17090009.lua

@@ -2,46 +2,34 @@
 local m=17090009
 local cm=_G["c"..m]
 function cm.initial_effect(c)
-    c:EnableReviveLimit()
-    --pendulum summon
-    aux.EnablePendulumAttribute(c)
-    --to deck
-    local e0=Effect.CreateEffect(c)
-    e0:SetDescription(aux.Stringid(m,0))
-    e0:SetCategory(CATEGORY_DESTROY+CATEGORY_TODECK)
-    e0:SetType(EFFECT_TYPE_IGNITION)
-    e0:SetProperty(EFFECT_FLAG_CARD_TARGET)
-    e0:SetRange(LOCATION_PZONE)
-    e0:SetTarget(cm.tdtg)
-    e0:SetOperation(cm.tdop)
-    c:RegisterEffect(e0)
-    --special summon condition
-    local e1=Effect.CreateEffect(c)
-    e1:SetType(EFFECT_TYPE_SINGLE)
-    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
-    c:RegisterEffect(e1)
-    --special summon
-    local e2=Effect.CreateEffect(c)
-    e2:SetType(EFFECT_TYPE_FIELD)
-    e2:SetCode(EFFECT_SPSUMMON_PROC)
-    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-    e2:SetRange(LOCATION_EXTRA+LOCATION_HAND)
-    e2:SetCondition(cm.spcon)
-    e2:SetOperation(cm.spop)
-    c:RegisterEffect(e2)
-    --summon success
-    local e3=Effect.CreateEffect(c)
-    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-    e3:SetOperation(cm.sumsuc)
-    c:RegisterEffect(e3)
+	c:EnableReviveLimit()
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--to deck
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(17090009,0))
+	e0:SetCategory(CATEGORY_DESTROY+CATEGORY_TODECK)
+	e0:SetType(EFFECT_TYPE_IGNITION)
+	e0:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e0:SetRange(LOCATION_PZONE)
+	e0:SetTarget(cm.tdtg)
+	e0:SetOperation(cm.tdop)
+	c:RegisterEffect(e0)
+	--deck remove
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetTarget(cm.target)
+	e2:SetOperation(cm.activate)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
 end
 function cm.tdfilter(c)
-    return c:IsAbleToDeck()
+	return c:IsAbleToDeck()
 end
 function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-    if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and cm.tdfilter(chkc) end
+	if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and cm.tdfilter(chkc) end
     if chk==0 then return Duel.IsExistingTarget(cm.tdfilter,tp,LOCATION_REMOVED,0,3,nil) end
     Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
     local g=Duel.SelectTarget(tp,cm.tdfilter,tp,LOCATION_REMOVED,0,3,3,nil)
@@ -54,73 +42,13 @@ function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
         Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
     end
 end
-function cm.spcon(e,c)
-    if c==nil then return true end
-    local tp=c:GetControler()
-    return ((c:IsLocation(LOCATION_HAND) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0) or
-        (c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp)>0))
-        and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,1,e:GetHandler())
+function cm.rmfilter(c)
+	return not c:IsSetCard(0x701)
 end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
-    local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,e:GetHandler())
-    Duel.Remove(g,POS_FACEDOWN,REASON_COST)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.rmfilter,tp,LOCATION_DECK,0,1,nil) end
 end
 function cm.sumsuc(e,tp,eg,ep,ev,re,r,rp)
-    local c=e:GetHandler()
-    local g=Duel.GetFieldGroup(tp,LOCATION_DECK,0)
-    if g:GetCount()<1 then return end
-    Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
-    --to deck
-    local e_1=Effect.CreateEffect(e:GetHandler())
-    e_1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-    e_1:SetCategory(CATEGORY_TODECK)
-    e_1:SetCode(EVENT_PHASE+PHASE_END)
-    e_1:SetCountLimit(1)
-    e_1:SetCondition(cm.epcon)
-    e_1:SetOperation(cm.activate)
-    Duel.RegisterEffect(e_1,tp)
-    --discard
-    local e_2=Effect.CreateEffect(e:GetHandler())
-    e_2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-    e_2:SetCategory(CATEGORY_HANDES)
-    e_2:SetCode(EVENT_SUMMON_SUCCESS)
-    e_2:SetCountLimit(1)
-    e_2:SetCondition(cm.condition)
-    e_2:SetOperation(cm.operation)
-    Duel.RegisterEffect(e_2,tp)
-    --remove
-    local e_3=Effect.CreateEffect(e:GetHandler())
-    e_3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-    e_3:SetCategory(CATEGORY_REMOVE)
-    e_3:SetCode(EVENT_CHAIN_SOLVING)
-    e_3:SetCountLimit(1)
-    e_3:SetCondition(cm.rmon)
-    e_3:SetOperation(cm.rmop)
-    Duel.RegisterEffect(e_3,tp)
-end
-function cm.epcon(e,tp,eg,ep,ev,re,r,rp)
-    return tp~=Duel.GetTurnPlayer()
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-    local g2=Duel.GetFieldGroup(tp,LOCATION_REMOVED,0):RandomSelect(tp,3)
-    Duel.SendtoDeck(g2,nil,2,REASON_EFFECT)
-end
-function cm.cfilter(c,tp)
-    return c:GetSummonPlayer()==tp
+	local g=Duel.GetMatchingGroup(cm.rmfilter,tp,LOCATION_DECK,0,nil)
+	Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
 end
-function cm.condition(e,tp,eg,ep,ev,re,r,rp)
-    return not eg:IsContains(e:GetHandler()) and eg:IsExists(cm.cfilter,1,nil,tp)
-end
-function cm.operation(e,tp,eg,ep,ev,re,r,rp)
-    Duel.DiscardHand(1-tp,nil,1,1,REASON_EFFECT+REASON_DISCARD)
-end
-function cm.rmon(e,tp,eg,ep,ev,re,r,rp)
-    return rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL)
-end
-function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
-    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-    local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,2,nil)
-    if g:GetCount()>0 then
-        Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
-    end
-end
\ No newline at end of file

expansions/script/c18010001.lua

+--谐律 轻盈电音
+if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
+local m=18010001
+local cm=_G["c"..m]
+if not rsv.HarmonicRhythm then
+	rsv.HarmonicRhythm={}
+	rshr=rsv.HarmonicRhythm
+function rshr.Set(c)
+	if not c:IsStatus(STATUS_COPYING_EFFECT) then
+		local mt=getmetatable(c)
+		mt.rssetcode="HarmonicRhythm"
+	end
+end
+function rshr.IsSet(c)
+	return c:CheckSetCard("HarmonicRhythm")
+end
+function rshr.DiscardFun(c,code,cate,tg,op)
+	local e1=rsef.I(c,{m,0},{1,code},cate,nil,LOCATION_HAND,nil,rscost.cost({Card.IsDiscardable,nil},{rshr.cfilter,{"dish",rshr.disfun},LOCATION_HAND,0,1,1,c}),tg,op)
+	return e1
+end
+function rshr.disfun(g,e,tp)
+	g:AddCard(e:GetHandler())
+	Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
+end
+function rshr.cfilter(c)
+	return c:IsDiscardable() and c:IsType(TYPE_TUNER)
+end
+function rshr.GraveFun(c,code,cate,extraop)
+	local e1=rsef.FTO(c,EVENT_TO_GRAVE,{m,1},{1,code},{cate,"sp"},"de",LOCATION_GRAVE,rshr.spcon,nil,rsop.target(rshr.spfilter,"sp"),rshr.spop(extraop))
+	return e1
+end
+function rshr.spcon(e,tp,eg)
+	local c=e:GetHandler()
+	return not eg:IsContains(c) and eg:IsExists(Card.IsType,1,nil,TYPE_TUNER)
+end
+function rshr.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+end
+function rshr.spop(extraop)
+	return function(e,tp)
+		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(rshr.splimit)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,tp)
+		local c=rscf.GetRelationThisCard(e)
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not c or rssf.SpecialSummon(c)<=0 then return end
+		if extraop then
+			extraop(e,tp)
+		end
+	end
+end
+function rshr.splimit(e,c)
+	return not c:IsType(TYPE_TUNER)
+end
+---------------
+end
+---------------
+if cm then
+function cm.initial_effect(c)
+	rshr.Set(c)
+	rshr.DiscardFun(c,m,"th",rsop.target(cm.thfilter,"th",LOCATION_DECK),cm.thop)
+	rshr.GraveFun(c,m,nil,cm.op)
+end
+function cm.thfilter(c)
+	return c:IsAbleToHand() and rshr.IsSet(c)
+end
+function cm.thop(e,tp)
+	rsof.SelectHint(tp,"th")	
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function cm.op(e,tp)
+	local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_MZONE,0,nil,TYPE_TUNER)
+	if #g>0 and Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil,g) and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
+		Duel.BreakEffect()
+		rsof.SelectHint(tp,"sp")
+		local sc=Duel.SelectMatchingCard(tp,Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,1,nil,nil,g):GetFirst()
+		Duel.SynchroSummon(tp,sc,nil,g)
+	end
+end
+---------------
+end

expansions/script/c18010002.lua

+--谐律 热烈打击
+if not pcall(function() require("expansions/script/c18010001") end) then require("script/c18010001") end
+local m=18010002
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	rshr.Set(c)
+	rshr.DiscardFun(c,m,"sp",rsop.target(cm.spfilter,"sp",LOCATION_DECK),cm.spop)
+	rshr.GraveFun(c,m,"th",cm.op)
+end
+function cm.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and rshr.IsSet(c)
+end
+function cm.spop(e,tp)
+	rsof.SelectHint(tp,"sp")	
+	local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	if #g>0 then
+		rssf.SpecialSummon(g)
+	end
+end
+function cm.thfilter(c)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
+	local att=0
+	for tc in aux.Next(g) do
+		local att2=tc:GetAttribute()
+		if att2 then
+			att=att|att2
+		end
+	end
+	return c:IsType(TYPE_TUNER) and c:IsAbleToHand() and c:IsAttribute(att)
+end
+function cm.op(e,tp)
+	if Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+		Duel.BreakEffect()
+		rsof.SelectHint(tp,"th")
+		local tg=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+		if #tg>0 then
+			Duel.SendtoHand(tg,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,tg)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c18010003.lua

+--谐律 柔情弦乐
+if not pcall(function() require("expansions/script/c18010001") end) then require("script/c18010001") end
+local m=18010003
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	rshr.Set(c)
+	rshr.DiscardFun(c,m,"th",rsop.target(cm.thfilter,"th",LOCATION_GRAVE),cm.thop)
+	rshr.GraveFun(c,m,"th",cm.op)
+end
+function cm.thfilter(c)
+	return c:IsAbleToHand() and c:IsType(TYPE_TUNER)
+end
+function cm.thop(e,tp)
+	rsof.SelectHint(tp,"th")	
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil)
+	if #g>0 then
+		Duel.HintSelection(g)
+		Duel.SendtoHand(g,tp,REASON_EFFECT)
+	end
+end
+function cm.op(e,tp)
+	if Duel.IsExistingMatchingCard(aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+		Duel.BreakEffect()
+		rsof.SelectHint(tp,"th")
+		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
+		if #g>0 then
+			Duel.HintSelection(g)
+			Duel.SendtoHand(g,tp,REASON_EFFECT)
+		end 
+	end
+end
\ No newline at end of file

expansions/script/c18010004.lua

+--谐律 稳重吹管
+if not pcall(function() require("expansions/script/c18010001") end) then require("script/c18010001") end
+local m=18010004
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	rshr.Set(c)
+	rshr.DiscardFun(c,m,"sp",rsop.target(cm.spfilter,"sp",LOCATION_GRAVE),cm.spop)
+	rshr.GraveFun(c,m,nil,cm.op)
+end
+function cm.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and rshr.IsSet(c)
+end
+function cm.spop(e,tp)
+	rsof.SelectHint(tp,"sp")	
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	if #g>0 then
+		rssf.SpecialSummon(g)
+	end
+end
+function cm.op(e,tp)
+	if Duel.IsExistingMatchingCard(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+		Duel.BreakEffect()
+		rsof.SelectHint(tp,"sp")
+		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
+		if #g>0 then
+			rssf.SpecialSummon(g)
+		end 
+	end
+end
\ No newline at end of file

expansions/script/c18010005.lua

+--谐律调 崇高奏鸣
+if not pcall(function() require("expansions/script/c18010001") end) then require("script/c18010001") end
+local m=18010005
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	rshr.Set(c)
+	rscf.AddSynchroMixProcedure_CheckMaterial(c,aux.Tuner(nil),nil,nil,aux.Tuner(nil),1,99,cm.checkfun)
+	local e1=rsef.STO(c,EVENT_SPSUMMON_SUCCESS,{m,0},nil,"td","de,dsp",rscon.sumtype("syn"),nil,cm.tg,cm.op)
+	local e2=rsef.FTO(c,EVENT_TO_GRAVE,{m,1},1,"td","de",LOCATION_MZONE,cm.tdcon,nil,rsop.target(Card.IsAbleToDeck,"td",LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE),cm.tdop)
+	--local e3=rsef.STO(c,EVENT_LEAVE_FIELD,{m,3},nil,"th","de,dsp",rscon.sumtype("syn"),nil,cm.tg2,cm.op2)
+	--splimit
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e4:SetValue(cm.splimit)
+	c:RegisterEffect(e4)
+	--summon success
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e5:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e5:SetCondition(cm.sumcon)
+	e5:SetOperation(cm.sumsuc)
+	c:RegisterEffect(e5)
+end
+function cm.sumcon(e,tp)
+	local c=e:GetHandler()
+	return c:IsSummonType(SUMMON_TYPE_SYNCHRO) and Duel.GetTurnPlayer()~=tp
+end
+function cm.sumsuc(e,tp)
+	local c=e:GetHandler()
+	local e1=rsef.SV_IMMUNE_EFFECT(c,rsval.imoe,nil,rsreset.est)
+end
+function cm.splimit(e,se,sp,st)
+	if st&SUMMON_TYPE_SYNCHRO ~=0 then return not se or not se:IsHasType(EFFECT_TYPE_ACTIONS)
+	else
+		return true
+	end
+end
+function cm.checkfun(mg)
+	return mg:IsExists(Card.IsLevel,2,nil,3) and mg:GetClassCount(Card.GetAttribute)==#mg
+end
+function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=3 and Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>=3 and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+end
+function cm.op(e,tp)
+	local plist={tp,1-tp}
+	local tct=0
+	for i=1,2 do 
+		local p=plist[i]
+		Duel.ConfirmDecktop(p,3)	  
+		local g=Duel.GetDecktopGroup(p,3)
+		local ct=g:FilterCount(Card.IsType,nil,TYPE_TUNER)
+		tct=tct+ct
+		Duel.ShuffleDeck(p)
+	end
+	if tct==0 then return end
+	rsof.SelectHint(tp,"td")
+	local tg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(Card.IsAbleToDeck),tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,1,tct,nil)
+	if #tg>0 then
+		Duel.HintSelection(tg)
+		Duel.SendtoDeck(tg,nil,2,REASON_EFFECT)
+	end
+end
+function cm.tdcon(e,tp,eg)
+	return eg:IsExists(Card.IsType,1,nil,TYPE_TUNER)
+end
+function cm.tdop(e,tp)
+	rsof.SelectHint(tp,"td")
+	local tg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(Card.IsAbleToDeck),tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,1,1,nil)
+	if #tg>0 then
+		Duel.HintSelection(tg)
+		Duel.SendtoDeck(tg,nil,2,REASON_EFFECT)
+	end
+end
+function cm.thfilter(c)
+	return c:IsAbleToHand() and c:IsType(TYPE_TUNER)
+end
+function cm.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil)
+	if chk==0 then return g:GetClassCount(Card.GetCode)>=4 end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,4,PLAYER_ALL,LOCATION_GRAVE)
+end
+function cm.op2(e,tp)
+	local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil)
+	if g:GetClassCount(Card.GetCode)<=3 then return end
+	rsof.SelectHint(tp,"th")
+	local tg=g:SelectSubGroup(tp,aux.dncheck,false,4,4)
+	if #tg>0 then
+		Duel.HintSelection(tg)
+		Duel.SendtoHand(tg,tp,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c18010006.lua

+--谐律调 优美和声
+if not pcall(function() require("expansions/script/c18010001") end) then require("script/c18010001") end
+local m=18010006
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	rshr.Set(c)
+	c:EnableReviveLimit()
+	rscf.AddSynchroMixProcedure(c,aux.Tuner(Card.IsLevel,3),nil,nil,aux.Tuner(Card.IsLevel,3),1,1)
+	local e1=rsef.STO(c,EVENT_SPSUMMON_SUCCESS,{m,0},nil,"th","de,dsp",rscon.sumtype("syn"),nil,rsop.target({cm.thfilter,"th",LOCATION_GRAVE },{cm.thfilter,"th",0,LOCATION_GRAVE }),cm.op) 
+	local e2=rsef.FTO(c,EVENT_TO_GRAVE,{m,1},1,"se,th","de",LOCATION_MZONE,cm.thcon,nil,rsop.target(cm.thfilter2,"th",LOCATION_DECK),cm.thop)
+	local e3=rsef.QO(c,nil,{m,2},1,"sp",nil,LOCATION_MZONE,cm.syncon,nil,rsop.target(cm.synfilter,"sp",LOCATION_EXTRA),cm.synop)
+end
+function cm.thfilter(c)
+	return c:IsType(TYPE_TUNER) and c:IsAbleToHand()
+end
+function cm.op(e,tp)
+	local g1=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,nil)
+	local g2=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.thfilter),tp,0,LOCATION_GRAVE,nil)
+	if #g1<=0 or #g2<=0 then return end
+	rsof.SelectHint(tp,"th")
+	local tg1=g1:Select(tp,1,1,nil)
+	rsof.SelectHint(tp,"th")
+	local tg2=g2:Select(tp,1,1,nil)   
+	tg1:Merge(tg2)
+	Duel.HintSelection(tg1)
+	Duel.SendtoHand(tg1,tp,REASON_EFFECT)
+end
+function cm.tdcon(e,tp,eg)
+	return eg:IsExists(Card.IsType,1,nil,TYPE_TUNER)
+end
+function cm.cfilter(c,lv)
+	return c:IsType(TYPE_TUNER) and c:IsLevel(lv)
+end
+function cm.thfilter(c,e,tp,eg)
+	return c:IsAbleToHand() and c:IsType(TYPE_TUNER) and eg and eg:IsExists(cm.cfilter,1,nil,c:GetLevel())
+end
+function cm.thop(e,tp,eg)
+	rsof.SelectHint(tp,"th")
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,eg)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function cm.syncon(e,tp)
+	return Duel.GetTurnPlayer()~=tp
+end
+function cm.synfilter(c,e,tp)
+	local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_MZONE,0,nil,TYPE_TUNER)
+	return #g>0 and c:IsSynchroSummonable(nil,g)
+end
+function cm.synop(e,tp)
+	local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_MZONE,0,nil,TYPE_TUNER)
+	rsof.SelectHint(tp,"sp")
+	local sc=Duel.SelectMatchingCard(tp,Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,1,nil,nil,g):GetFirst()
+	if sc then
+		Duel.SynchroSummon(tp,sc,nil,g)
+	end
+end
\ No newline at end of file

expansions/script/c18010007.lua

+--调谐律法
+if not pcall(function() require("expansions/script/c18010001") end) then require("script/c18010001") end
+local m=18010007
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	rshr.Set(c)
+	local e1=rsef.ACT(c,nil,nil,{1,m,1})
+	--local e2=rsef.I(c,{m,0},1,"se,th",nil,LOCATION_FZONE,nil,rscost.cost(cm.cfilter,"dish",LOCATION_HAND),cm.thtg,cm.thop)
+	local e2=rsef.I(c,{m,0},1,"se,th,ga",nil,LOCATION_FZONE,nil,rscost.cost(cm.cfilter,"dish",LOCATION_HAND),rsop.target(cm.thfilter,"th",LOCATION_GRAVE),cm.thop2)
+	local e3=rsef.FTO(c,EVENT_SPSUMMON_SUCCESS,{m,1},nil,"dr,td","de",LOCATION_FZONE,nil,nil,cm.drtg,cm.drop)
+end
+function cm.cfilter(c)
+	return c:IsDiscardable() and c:IsType(TYPE_TUNER)
+end
+function cm.thfilter(c)
+	return c:IsAbleToHand() and rshr.IsSet(c) and c:IsType(TYPE_MONSTER)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)
+	if chk==0 then return g:GetClassCount(Card.GetCode)>=2 end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp)
+	local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)
+	if g:GetClassCount(Card.GetCode)<=1 then return end
+	rsof.SelectHint(tp,"th")
+	local tg=g:SelectSubGroup(tp,aux.dncheck,false,2,2)
+	if #tg>0 then
+		Duel.SendtoHand(tg,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tg)
+	end
+end
+function cm.thfilter2(c,tc)
+	return c:IsType(TYPE_TUNER) and c:IsAbleToHand() and c:IsAttack(tc:GetAttack()) and c:IsDefense(tc:GetDefense()) and c:IsAttribute(tc:GetAttribute()) and c:IsLevel(tc:GetLevel())
+end
+function cm.thop2(e,tp)
+	rsof.SelectHint(tp,"th")
+	local tc=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
+	if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then
+		Duel.ConfirmCards(1-tp,tc)
+		local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.thfilter2),tp,LOCATION_GRAVE,0,nil,tc)
+		if #g>0 and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
+			Duel.BreakEffect()
+			rsof.SelectHint(tp,"th")
+			local tg=g:Select(tp,1,1,nil)
+			Duel.HintSelection(tg)
+			Duel.SendtoHand(tg,nil,REASON_EFFECT)
+		end
+	end
+end
+function cm.cfilter2(c)
+	local mat=c:GetMaterial()
+	return c:IsSummonType(SUMMON_TYPE_SYNCHRO) and #mat>0 and mat:IsExists(Card.IsType,1,nil,TYPE_TUNER)
+end
+function cm.matcheck(eg)
+	local dct=0
+	for tc in aux.Next(eg) do
+		local mat=tc:GetMaterial()
+		if tc:IsSummonType(SUMMON_TYPE_SYNCHRO) and #mat>0 then 
+			local tct=mat:FilterCount(Card.IsType,nil,TYPE_TUNER)
+			dct=dct+tct
+		end
+	end
+	return dct
+end
+function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local dct=cm.matcheck(eg)
+	if chk==0 then return dct>0 and Duel.IsPlayerCanDraw(tp,dct) and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_HAND,0,2,nil) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(dct)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,dct)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,2,tp,LOCATION_HAND)
+end
+function cm.drop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	if Duel.Draw(p,d,REASON_EFFECT)>0 then
+		rsof.SelectHint(tp,"td")
+		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_HAND,0,2,2,nil)
+		if #g==2 and Duel.SendtoDeck(g,nil,0,REASON_EFFECT)==2 then 
+			Duel.SortDecktop(tp,tp,2)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c26802004.lua

+--柳暗花明·和久井留美
+function c26802004.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,nil,2)
+	c:EnableReviveLimit()
+	--shuffle and draw
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(26802004,0))
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetCountLimit(1,26802004+EFFECT_COUNT_CODE_SINGLE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c26802004.condition)
+	e1:SetTarget(c26802004.tdtg)
+	e1:SetOperation(c26802004.tdop)
+	c:RegisterEffect(e1)
+	--todeck
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(26802004,1))
+	e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetCountLimit(1,26802004+EFFECT_COUNT_CODE_SINGLE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c26802004.condition)
+	e2:SetTarget(c26802004.sdtg)
+	e2:SetOperation(c26802004.sdop)
+	c:RegisterEffect(e2)
+end
+function c26802004.condition(e)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function c26802004.tdfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck()
+end
+function c26802004.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c26802004.tdfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c26802004.tdfilter,tp,LOCATION_GRAVE,0,1,nil)
+		and Duel.IsPlayerCanDraw(tp,1) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c26802004.tdfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function c26802004.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc:IsRelateToEffect(e) then return end
+	Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)
+	if tc:IsLocation(LOCATION_DECK) then Duel.ShuffleDeck(tp) end
+	if tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then
+		Duel.BreakEffect()
+		Duel.Draw(tp,1,REASON_EFFECT)
+	end
+end
+function c26802004.sdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
+		and Duel.IsExistingMatchingCard(c26802004.tdfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function c26802004.sdop(e,tp,eg,ep,ev,re,r,rp)
+	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
+	local g=Duel.GetMatchingGroup(c26802004.tdfilter,p,LOCATION_HAND,0,nil)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK)
+		local sg=g:Select(p,1,1,nil)
+		Duel.ConfirmCards(1-p,sg)
+		Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)
+		Duel.ShuffleDeck(p)
+		Duel.BreakEffect()
+		Duel.Draw(p,1,REASON_EFFECT)
+	end
+end

expansions/script/c26802005.lua

+--月夜祈福·鹰富士茄子
+function c26802005.initial_effect(c)
+	--fusion summon
+	c:EnableReviveLimit()
+	aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionType,TYPE_LINK),3,true)
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.fuslimit)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetRange(LOCATION_EXTRA)
+	e2:SetCondition(c26802005.hspcon)
+	e2:SetOperation(c26802005.hspop)
+	c:RegisterEffect(e2)
+	--atk up
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_ATKCHANGE)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1,26802005)
+	e3:SetCost(c26802005.atkcost)
+	e3:SetOperation(c26802005.atkop)
+	c:RegisterEffect(e3)
+	--damage
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_DAMAGE+CATEGORY_TODECK)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_PHASE+PHASE_BATTLE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e4:SetCountLimit(1,26802905)
+	e4:SetCondition(c26802005.damcon)
+	e4:SetTarget(c26802005.damtg)
+	e4:SetOperation(c26802005.damop)
+	c:RegisterEffect(e4)
+end
+function c26802005.hspfilter(c,tp,sc)
+	return c:IsType(TYPE_LINK) and c:IsLink(5) and c:IsControler(tp) and Duel.GetLocationCountFromEx(tp,tp,sc,c)>0
+end
+function c26802005.hspcon(e,c)
+	if c==nil then return true end
+	return Duel.CheckReleaseGroup(c:GetControler(),c26802005.hspfilter,1,nil,c:GetControler(),c)
+end
+function c26802005.hspop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectReleaseGroup(tp,c26802005.hspfilter,1,1,nil,tp,c)
+	Duel.Release(g,REASON_COST)
+end
+function c26802005.cfilter(c)
+	return c:GetAttack()>0 and c:IsAbleToRemoveAsCost()
+end
+function c26802005.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26802005.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c26802005.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+	e:SetLabel(g:GetFirst():GetAttack())
+end
+function c26802005.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(e:GetLabel())
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1)
+	end
+end
+function c26802005.damcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:GetBattledGroupCount()>0
+end
+function c26802005.filter(c)
+	return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
+end
+function c26802005.damtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c26802005.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c26802005.filter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local g=Duel.SelectTarget(tp,c26802005.filter,tp,LOCATION_REMOVED,0,1,1,nil)
+	local ask=g:GetFirst():GetBaseAttack()
+	local atk=ask/2
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+end
+function c26802005.damop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local bmw=tc:GetBaseAttack()
+	local bs=bmw/2
+	if tc:IsRelateToEffect(e) and Duel.Damage(1-tp,bs,REASON_EFFECT)~=0 then
+		Duel.BreakEffect()
+		Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
+	end
+end

expansions/script/c26805006.lua

+--月刊CLIMAX
+function c26805006.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c26805006.activate)
+	c:RegisterEffect(e1)
+	--draw
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1,26805006)
+	e3:SetCondition(c26805006.drcon)
+	e3:SetCost(c26805006.drcost)
+	e3:SetTarget(c26805006.drtg)
+	e3:SetOperation(c26805006.drop)
+	c:RegisterEffect(e3)
+end
+function c26805006.filter(c,tp)
+	return c:IsCode(81010004) and c:GetActivateEffect() and c:GetActivateEffect():IsActivatable(tp,true,true)
+end
+function c26805006.activate(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c26805006.filter),tp,LOCATION_HAND+LOCATION_GRAVE,0,nil,tp)
+	if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(26805006,0)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+		local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c26805006.filter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,tp):GetFirst()
+		if tc then
+			local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
+			if fc then
+				Duel.SendtoGrave(fc,REASON_RULE)
+				Duel.BreakEffect()
+			end
+			Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+			local te=tc:GetActivateEffect()
+			te:UseCountLimit(tp,1,true)
+			local tep=tc:GetControler()
+			local cost=te:GetCost()
+			if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
+			Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
+		end
+	end
+end
+function c26805006.cfilter(c)
+	return c:IsCode(81010005) and c:IsFaceup()
+end
+function c26805006.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c26805006.cfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c26805006.drfilter(c)
+	return c:IsAttribute(ATTRIBUTE_WIND) and c:IsDiscardable()
+end
+function c26805006.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26805006.drfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,c26805006.drfilter,1,1,REASON_COST+REASON_DISCARD)
+end
+function c26805006.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 c26805006.drop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Draw(p,d,REASON_EFFECT)
+end

expansions/script/c26805007.lua

+--西京夏日约会
+function c26805007.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,26805007+EFFECT_COUNT_CODE_OATH)
+	e1:SetCost(c26805007.cost)
+	e1:SetTarget(c26805007.target)
+	e1:SetOperation(c26805007.activate)
+	c:RegisterEffect(e1)
+end
+function c26805007.filter(c)
+	return c:IsFaceup() and bit.band(c:GetType(),0x20002)==0x20002 and c:IsAbleToGraveAsCost()
+end
+function c26805007.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26805007.filter,tp,LOCATION_ONFIELD,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c26805007.filter,tp,LOCATION_ONFIELD,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c26805007.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 c26805007.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/c26806025.lua

+--七月炎夏·诗岸
+function c26806025.initial_effect(c)
+	--xyz effect
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(26806025,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetHintTiming(0,TIMING_END_PHASE+TIMINGS_CHECK_MONSTER)
+	e1:SetCountLimit(1,26806025)
+	e1:SetCost(aux.bfgcost)
+	e1:SetTarget(c26806025.xyztg)
+	e1:SetOperation(c26806025.xyzop)
+	c:RegisterEffect(e1)
+	--synchro effect
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(26806025,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetHintTiming(0,TIMING_END_PHASE+TIMINGS_CHECK_MONSTER)
+	e2:SetCountLimit(1,26806925)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c26806025.sctg)
+	e2:SetOperation(c26806025.scop)
+	c:RegisterEffect(e2)
+end
+function c26806025.xyzfilter(c)
+	return c:IsAttack(2200) and c:IsDefense(600) and c:IsXyzSummonable(nil)
+end
+function c26806025.xyztg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26806025.xyzfilter,tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c26806025.xyzop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c26806025.xyzfilter,tp,LOCATION_EXTRA,0,nil)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local tg=g:Select(tp,1,1,nil)
+		Duel.XyzSummon(tp,tg:GetFirst(),nil)
+	end
+end
+function c26806025.scfilter(c)
+	return c:IsAttack(3200) and c:IsLinkSummonable(nil)
+end
+function c26806025.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26806025.scfilter,tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c26806025.scop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c26806025.scfilter,tp,LOCATION_EXTRA,0,1,1,nil)
+	local tc=g:GetFirst()
+	if tc then
+		Duel.LinkSummon(tp,tc,nil)
+	end
+end

expansions/script/c81008031.lua → expansions/script/c26806026.lua

---月夜回想·盐见周子
-function c81008031.initial_effect(c)
+--水晶玉座·海伊
+function c26806026.initial_effect(c)
+	c:EnableReviveLimit()
 	--search
 	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(26806026,1))
 	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,81008031)
-	e1:SetCost(c81008031.thcost)
-	e1:SetTarget(c81008031.thtg)
-	e1:SetOperation(c81008031.thop)
+	e1:SetCountLimit(1,26806026)
+	e1:SetCost(c26806026.cost)
+	e1:SetTarget(c26806026.target)
+	e1:SetOperation(c26806026.operation)
 	c:RegisterEffect(e1)	
 end
-function c81008031.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+function c26806026.cost(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 c81008031.thfilter(c)
-	return c:IsCode(81008031) and c:IsAbleToHand()
+function c26806026.filter(c)
+	return c:IsAttack(2200) and c:IsDefense(600) and c:IsAbleToHand()
 end
-function c81008031.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c81008031.thfilter,tp,LOCATION_DECK,0,1,nil) end
+function c26806026.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26806026.filter,tp,LOCATION_DECK,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
-function c81008031.thop(e,tp,eg,ep,ev,re,r,rp,chk)
-	local tg=Duel.GetFirstMatchingCard(c81008031.thfilter,tp,LOCATION_DECK,0,nil)
-	if tg then
+function c26806026.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tg=Duel.SelectMatchingCard(tp,c26806026.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if tg:GetCount()>0 then
 		Duel.SendtoHand(tg,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,tg)
 	end

expansions/script/c26806027.lua

+--深夜回想·海伊
+function c26806027.initial_effect(c)
+	--special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e0:SetProperty(EFFECT_FLAG_DELAY)
+	e0:SetCode(EVENT_TO_HAND)
+	e0:SetCountLimit(1,26806027)
+	e0:SetCondition(c26806027.spcon1)
+	e0:SetTarget(c26806027.sptg1)
+	e0:SetOperation(c26806027.spop1)
+	c:RegisterEffect(e0)
+	--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_BE_MATERIAL)
+	e1:SetCountLimit(1,26806027)
+	e1:SetCondition(c26806027.thcon)
+	e1:SetTarget(c26806027.thtg)
+	e1:SetOperation(c26806027.thop)
+	c:RegisterEffect(e1)
+end
+function c26806027.spcon1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_DECK) and c:GetPreviousControler()==tp and not c:IsPublic()
+end
+function c26806027.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c26806027.spop1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c26806027.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO
+end
+function c26806027.filter(c)
+	return c:IsAttack(2200) and c:IsDefense(600) and c:IsAbleToHand()
+end
+function c26806027.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26806027.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c26806027.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c26806027.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

expansions/script/c26806028.lua

+--好久不见·海伊
+function c26806028.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),3,99,c26806028.lcheck)
+	--damage
+	local e0=Effect.CreateEffect(c)
+	e0:SetCategory(CATEGORY_DAMAGE)
+	e0:SetType(EFFECT_TYPE_IGNITION)
+	e0:SetRange(LOCATION_MZONE)
+	e0:SetCountLimit(1,26806028)
+	e0:SetCost(c26806028.damcost)
+	e0:SetTarget(c26806028.damtg)
+	e0:SetOperation(c26806028.damop)
+	c:RegisterEffect(e0)
+	--indes
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e1:SetCondition(c26806028.indcon)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	c:RegisterEffect(e2)
+	--search
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_LEAVE_FIELD)
+	e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e4:SetCountLimit(1,26806928)
+	e4:SetCondition(c26806028.thcon)
+	e4:SetTarget(c26806028.thtg)
+	e4:SetOperation(c26806028.thop)
+	c:RegisterEffect(e4)
+end
+function c26806028.lcheck(g,lc)
+	return g:IsExists(c26806028.mzfilter,2,nil)
+end
+function c26806028.mzfilter(c)
+	return c:IsAttack(2200) and c:IsDefense(600)
+end
+function c26806028.indcon(e)
+	return e:GetHandler():IsLinkState()
+end
+function c26806028.damcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCurrentPhase()==PHASE_MAIN1 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_BP)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetTargetRange(1,0)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c26806028.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetTargetParam(2200)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,2200)
+end
+function c26806028.damop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Damage(p,d,REASON_EFFECT)
+end
+function c26806028.thcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return (c:GetReasonPlayer()==1-tp and c:IsReason(REASON_EFFECT))	and c:IsPreviousPosition(POS_FACEUP)
+end
+function c26806028.thfilter(c)
+	return c:IsCode(26806000) and c:IsAbleToHand()
+end
+function c26806028.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26806028.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c26806028.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c26806028.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/c26806029.lua

+--天方夜谭·海伊
+function c26806029.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,6,2)
+	c:EnableReviveLimit()
+	--attack up
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_POSITION)
+	e1:SetDescription(aux.Stringid(26806029,0))
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,26806029)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(TIMING_DAMAGE_STEP)
+	e1:SetCost(c26806029.cost)
+	e1:SetTarget(c26806029.target)
+	e1:SetOperation(c26806029.operation)
+	c:RegisterEffect(e1)
+	--to grave
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(26806029,1))
+	e4:SetCategory(CATEGORY_REMOVE)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e4:SetCode(EVENT_FLIP)
+	e4:SetTarget(c26806029.tgtg)
+	e4:SetOperation(c26806029.tgop)
+	c:RegisterEffect(e4)
+end
+function c26806029.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 c26806029.filter(c)
+	return c:IsFaceup() and c:IsAttack(2200) and c:IsDefense(600)
+end
+function c26806029.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c26806029.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c26806029.filter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c26806029.filter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c26806029.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and c26806029.filter(tc) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_SET_BASE_ATTACK)
+		e1:SetValue(3200)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+	end
+	Duel.BreakEffect()
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and c:IsFaceup() then
+		Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE)
+	end
+end
+function c26806029.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
+end
+function c26806029.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+	end
+end

expansions/script/c26806030.lua

+--亚特兰蒂斯·海伊
+function c26806030.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,26807044),aux.NonTuner(c26806030.synfilter),1,1)
+	c:EnableReviveLimit()
+	--xyzlv
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_XYZ_LEVEL)
+	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e0:SetRange(LOCATION_MZONE)
+	e0:SetValue(c26806030.xyzlv)
+	c:RegisterEffect(e0)
+	--remove
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(26806030,0))
+	e1:SetCategory(CATEGORY_DISABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,26806030)
+	e1:SetCondition(c26806030.rmcon)
+	e1:SetTarget(c26806030.rmtg)
+	e1:SetOperation(c26806030.rmop)
+	c:RegisterEffect(e1)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_ATKCHANGE)
+	e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE)
+	e2:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
+	e2:SetCountLimit(1,26806930)
+	e2:SetCondition(c26806030.atkcon)
+	e2:SetOperation(c26806030.atkop)
+	c:RegisterEffect(e2)
+end
+function c26806030.synfilter(c)
+	return c:IsAttack(2200) and c:IsDefense(600)
+end
+function c26806030.rmcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function c26806030.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(aux.disfilter1,tp,0,LOCATION_MZONE,1,e:GetHandler()) end
+	local g=Duel.GetMatchingGroup(aux.disfilter1,tp,0,LOCATION_MZONE,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,g:GetCount(),0,0)
+end
+function c26806030.rmop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(aux.disfilter1,tp,0,LOCATION_MZONE,nil)
+	local tc=g:GetFirst()
+	while tc do
+		local e1=Effect.CreateEffect(e:GetHandler())
+		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(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_DISABLE_EFFECT)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e2)
+		tc=g:GetNext()
+	end
+end
+function c26806030.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local bc=c:GetBattleTarget()
+	return bc and bc:IsControler(1-tp)
+end
+function c26806030.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local bc=c:GetBattleTarget()
+	if c:IsRelateToBattle() and c:IsFaceup() and bc:IsRelateToBattle() and bc:IsFaceup() then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL)
+		e1:SetValue(bc:GetAttack())
+		c:RegisterEffect(e1)
+	end
+end
+function c26806030.xyzlv(e,c,rc)
+	return 0x60000+e:GetHandler():GetLevel()
+end

expansions/script/c26807041.lua

@@ -3,7 +3,7 @@ function c26807041.initial_effect(c)
 	c:EnableReviveLimit()
 	c:SetSPSummonOnce(26807041)
 	--link summon
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsSummonType,SUMMON_TYPE_NORMAL),1,1)
+	aux.AddLinkProcedure(c,nil,1,1)
 	--splimit
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c26807057.lua

+--The SkyScrapers
+function c26807057.initial_effect(c)
+	local e1=aux.AddRitualProcGreater2(c,nil,nil,nil,c26807057.mfilter)
+	e1:SetCountLimit(1,26807057+EFFECT_COUNT_CODE_OATH)
+end
+function c26807057.mfilter(c)
+	return c:IsType(TYPE_MONSTER) and not c:IsSummonableCard()
+end
\ No newline at end of file

expansions/script/c26807058.lua

+--雨落心音
+function c26807058.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,26807058+EFFECT_COUNT_CODE_OATH)
+	e1:SetCost(c26807058.cost)
+	e1:SetTarget(c26807058.target)
+	e1:SetOperation(c26807058.activate)
+	c:RegisterEffect(e1)
+	Duel.AddCustomActivityCounter(26807058,ACTIVITY_SPSUMMON,c26807058.counterfilter)
+end
+function c26807058.counterfilter(c)
+	return c:IsSummonType(SUMMON_TYPE_RITUAL)
+end
+function c26807058.costfilter(c)
+	return bit.band(c:GetType(),0x81)==0x81 and c:IsFaceup() and c:IsAbleToGraveAsCost()
+end
+function c26807058.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26807058.costfilter,tp,LOCATION_EXTRA+LOCATION_MZONE,0,1,nil) and Duel.GetCustomActivityCount(26807058,tp,ACTIVITY_SPSUMMON)==0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c26807058.costfilter,tp,LOCATION_EXTRA+LOCATION_MZONE,0,1,1,nil)
+	Duel.SendtoGrave(g,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(c26807058.splimit)
+	Duel.RegisterEffect(e1,tp)
+end
+function c26807058.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return bit.band(sumtype,SUMMON_TYPE_RITUAL)~=SUMMON_TYPE_RITUAL
+end
+function c26807058.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 c26807058.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/c26807059.lua

+--真实噩梦
+function c26807059.initial_effect(c)
+	--damage
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCategory(CATEGORY_DAMAGE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c26807059.damtg)
+	e1:SetOperation(c26807059.damop)
+	c:RegisterEffect(e1)
+end
+function c26807059.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1500)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1500)
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
+		Duel.SetChainLimit(aux.FALSE)
+	end
+end
+function c26807059.damop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Damage(p,d,REASON_EFFECT)
+end

expansions/script/c26807060.lua

+--迷惑行为大赏
+function c26807060.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(c26807060.condition)
+	e1:SetTarget(c26807060.target)
+	e1:SetOperation(c26807060.activate)
+	c:RegisterEffect(e1)
+end
+function c26807060.condition(e,tp,eg,ep,ev,re,r,rp)
+	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
+	return loc==LOCATION_EXTRA and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
+end
+function c26807060.target(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_REMOVE,eg,1,0,0)
+	end
+end
+function c26807060.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Remove(eg,POS_FACEUP,REASON_EFFECT)
+	end
+end

expansions/script/c81011304.lua → expansions/script/c81006027.lua

---灰姑娘女孩·神崎兰子
-function c81011304.initial_effect(c)
+--纯白之花·江风
+function c81006027.initial_effect(c)
 	--link summon
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2)
 	c:EnableReviveLimit()
-		--spsummon condition
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
-	e0:SetValue(c81011304.splimit)
-	c:RegisterEffect(e0)
+	aux.AddLinkProcedure(c,c81006027.matfilter,1,1)
 	--equip
 	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(81006027,0))
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetCategory(CATEGORY_EQUIP)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_MZONE)
-	e1:SetTarget(c81011304.eqtg)
-	e1:SetOperation(c81011304.eqop)
+	e1:SetTarget(c81006027.eqtg)
+	e1:SetOperation(c81006027.eqop)
 	c:RegisterEffect(e1)
 	--unequip
 	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(81006027,1))
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_SZONE)
-	e2:SetTarget(c81011304.sptg)
-	e2:SetOperation(c81011304.spop)
+	e2:SetTarget(c81006027.sptg)
+	e2:SetOperation(c81006027.spop)
 	c:RegisterEffect(e2)
 	--destroy sub
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_EQUIP)
 	e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
 	e3:SetCode(EFFECT_DESTROY_SUBSTITUTE)
-	e3:SetValue(c81011304.repval)
+	e3:SetValue(c81006027.repval)
 	c:RegisterEffect(e3)
-	--change atk
+	--eqlimit
 	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_EQUIP)
-	e4:SetCode(EFFECT_SET_ATTACK)
-	e4:SetValue(2000)
-	c:RegisterEffect(e4)
-	--pierce
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetCode(EFFECT_EQUIP_LIMIT)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e4:SetValue(1)
+	c:RegisterEffect(e4) 
+	--double attack
 	local e5=Effect.CreateEffect(c)
 	e5:SetType(EFFECT_TYPE_EQUIP)
-	e5:SetCode(EFFECT_PIERCE)
-	e5:SetCondition(aux.IsUnionState)
+	e5:SetCode(EFFECT_EXTRA_ATTACK)
+	e5:SetValue(1)
 	c:RegisterEffect(e5)
+	--to deck
 	local e6=Effect.CreateEffect(c)
-	e6:SetType(EFFECT_TYPE_EQUIP+EFFECT_TYPE_CONTINUOUS)
-	e6:SetCode(EVENT_PRE_BATTLE_DAMAGE)
-	e6:SetCondition(c81011304.damcon)
-	e6:SetOperation(c81011304.damop)
+	e6:SetCategory(CATEGORY_TODECK)
+	e6:SetType(EFFECT_TYPE_IGNITION)
+	e6:SetRange(LOCATION_GRAVE)
+	e6:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e6:SetCountLimit(1,81006027)
+	e6:SetTarget(c81006027.tdtg)
+	e6:SetOperation(c81006027.tdop)
 	c:RegisterEffect(e6)
-	--eqlimit
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_SINGLE)
-	e7:SetCode(EFFECT_EQUIP_LIMIT)
-	e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e7:SetValue(1)
-	c:RegisterEffect(e7)
 end
-function c81011304.splimit(e,se,sp,st)
-	return not e:GetHandler():IsLocation(LOCATION_EXTRA) or bit.band(st,SUMMON_TYPE_LINK)==SUMMON_TYPE_LINK
+function c81006027.matfilter(c)
+	return c:IsLinkType(TYPE_MONSTER) and c:IsLinkType(TYPE_RITUAL) and c:IsLevel(9)
 end
-
-function c81011304.filter(c)
+function c81006027.filter(c)
 	local ct1,ct2=c:GetUnionCount()
-	return c:IsFaceup() and ct2==0
+	return c:IsFaceup() and ct2==0 and c:IsLevel(9) and bit.band(c:GetType(),0x81)==0x81
 end
-function c81011304.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+function c81006027.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	local c=e:GetHandler()
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81011304.filter(chkc) end
-	if chk==0 then return e:GetHandler():GetFlagEffect(81011304)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
-		and Duel.IsExistingTarget(c81011304.filter,tp,LOCATION_MZONE,0,1,c) end
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81006027.filter(chkc) end
+	if chk==0 then return e:GetHandler():GetFlagEffect(81006027)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingTarget(c81006027.filter,tp,LOCATION_MZONE,0,1,c) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
-	local g=Duel.SelectTarget(tp,c81011304.filter,tp,LOCATION_MZONE,0,1,1,c)
+	local g=Duel.SelectTarget(tp,c81006027.filter,tp,LOCATION_MZONE,0,1,1,c)
 	Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
-	c:RegisterFlagEffect(81011304,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
+	c:RegisterFlagEffect(81006027,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
 end
-function c81011304.eqop(e,tp,eg,ep,ev,re,r,rp)
+function c81006027.eqop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
 	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
-	if not tc:IsRelateToEffect(e) or not c81011304.filter(tc) then
+	if not tc:IsRelateToEffect(e) or not c81006027.filter(tc) then
 		Duel.SendtoGrave(c,REASON_EFFECT)
 		return
 	end
 	if not Duel.Equip(tp,c,tc,false) then return end
 	aux.SetUnionState(c)
 end
-function c81011304.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+function c81006027.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	if chk==0 then return c:GetFlagEffect(81011304)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+	if chk==0 then return c:GetFlagEffect(81006027)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
-	c:RegisterFlagEffect(81011304,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
+	c:RegisterFlagEffect(81006027,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
 end
-function c81011304.spop(e,tp,eg,ep,ev,re,r,rp)
+function c81006027.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) then return end
 	if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
@@ -104,14 +96,26 @@ function c81011304.spop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SendtoGrave(c,REASON_RULE)
 	end
 end
-function c81011304.repval(e,re,r,rp)
+function c81006027.repval(e,re,r,rp)
 	return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
 end
-function c81011304.damcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not aux.IsUnionState(e,tp,eg,ep,ev,re,r,rp) then return false end
-	return ep~=tp and c==Duel.GetAttacker() and Duel.GetAttackTarget() and Duel.GetAttackTarget():IsDefensePos()
+function c81006027.thfilter(c)
+	return c:IsLevel(9) and bit.band(c:GetType(),0x81)==0x81 and c:IsAbleToHand() and c:IsFaceup()
+end
+function c81006027.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c81006027.thfilter(chkc) end
+	if chk==0 then return e:GetHandler():IsAbleToExtra()
+		and Duel.IsExistingTarget(c81006027.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c81006027.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
+	g:AddCard(e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,2,0,0)
 end
-function c81011304.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.ChangeBattleDamage(ep,ev*2)
+function c81006027.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then
+		local g=Group.FromCards(c,tc)
+		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+	end
 end

expansions/script/c81006028.lua

+--虚拟主播 白音小雪
+function c81006028.initial_effect(c)
+	aux.EnablePendulumAttribute(c)
+	--splimit
+	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)
+	c:RegisterEffect(e1)
+	--cannot be target
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetTarget(c81006028.target)
+	e2:SetValue(aux.tgoval)
+	c:RegisterEffect(e2)
+	--Special Summon
+	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)
+	c:RegisterEffect(e3)
+end
+function c81006028.splimit(e,c,sump,sumtype,sumpos,targetp)
+	return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
+end
+function c81006028.target(e,c)
+	return c:IsSetCard(0x344c) and c:IsStatus(STATUS_SPSUMMON_TURN)
+end
+function c81006028.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
+end
+function c81006028.spfilter(c,e,tp)
+	return c:IsSetCard(0x344c) and c:IsLevelAbove(5) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+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)
+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)
+	end
+end

expansions/script/c81007007.lua

---樱色花姬·三村加奈子
-function c81007007.initial_effect(c)
-	--xyz summon
-	c:EnableReviveLimit()
-	aux.AddXyzProcedure(c,nil,4,2,nil,nil,99)
-	--damage
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCondition(c81007007.regcon)
-	e1:SetOperation(c81007007.regop)
-	c:RegisterEffect(e1)
-	--destroy
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(81007007,1))
-	e2:SetCategory(CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetCountLimit(1,81007007)
-	e2:SetCost(c81007007.descost)
-	e2:SetTarget(c81007007.destg)
-	e2:SetOperation(c81007007.desop)
-	c:RegisterEffect(e2)
-end
-function c81007007.filter(c)
-	return c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)
-end
-function c81007007.regcon(e,tp,eg,ep,ev,re,r,rp)
-	if not re or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
-	local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
-	return g and g:IsExists(c81007007.filter,1,nil) and 1-tp==rp
-end
-function c81007007.regop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_SOLVING)
-	e1:SetRange(LOCATION_SZONE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetLabelObject(re)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_CHAIN)
-	e1:SetCondition(c81007007.damcon)
-	e1:SetOperation(c81007007.damop)
-	c:RegisterEffect(e1)
-end
-function c81007007.damcon(e,tp,eg,ep,ev,re,r,rp)
-	return re==e:GetLabelObject()
-end
-function c81007007.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,81007007)
-	Duel.Damage(1-tp,400,REASON_EFFECT)
-end
-function c81007007.descost(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 c81007007.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(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
-end
-function c81007007.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

expansions/script/c81007008.lua

---夏日水着·三村加奈子
-function c81007008.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,nil,5,3,c81007008.ovfilter,aux.Stringid(81007008,0),3,c81007008.xyzop)
-	c:EnableReviveLimit()
-	--remove
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_REMOVE)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,81007008)
-	e2:SetCondition(c81007008.rmcon)
-	e2:SetCost(c81007008.rmcost)
-	e2:SetTarget(c81007008.rmtg)
-	e2:SetOperation(c81007008.rmop)
-	c:RegisterEffect(e2)
-	--damage
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCondition(c81007008.regcon)
-	e1:SetOperation(c81007008.regop)
-	c:RegisterEffect(e1)
-end
-function c81007008.ovfilter(c)
-	return c:IsFaceup() and c:IsCode(81007008)
-end
-function c81007008.xyzop(e,tp,chk)
-	if chk==0 then return Duel.GetFlagEffect(tp,81007008)==0 end
-	Duel.RegisterFlagEffect(tp,81007008,RESET_PHASE+PHASE_END,0,1)
-end
-function c81007008.rmcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():GetOverlayGroup():IsExists(Card.IsRace,1,nil,RACE_FAIRY)
-end
-function c81007008.rmcost(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 c81007008.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and chkc:IsAbleToRemove() end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
-end
-function c81007008.rmop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
-	end
-end
-function c81007008.filter(c)
-	return c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)
-end
-function c81007008.regcon(e,tp,eg,ep,ev,re,r,rp)
-	if not re or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
-	local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
-	return g and g:IsExists(c81007008.filter,1,nil) and 1-tp==rp
-end
-function c81007008.regop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_SOLVING)
-	e1:SetRange(LOCATION_SZONE)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetLabelObject(re)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_CHAIN)
-	e1:SetCondition(c81007008.damcon)
-	e1:SetOperation(c81007008.damop)
-	c:RegisterEffect(e1)
-end
-function c81007008.damcon(e,tp,eg,ep,ev,re,r,rp)
-	return re==e:GetLabelObject()
-end
-function c81007008.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_CARD,0,81007008)
-	Duel.Damage(1-tp,700,REASON_EFFECT)
-end

expansions/script/c81008001.lua

---Answer·早坂美玲
-function c81008001.initial_effect(c)
-	--fusion material
-	c:EnableReviveLimit()
-	aux.AddFusionProcFun2(c,c81008001.afilter,c81008001.bfilter,true)
-	--spsummon condition
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
-	e1:SetRange(LOCATION_EXTRA)
-	e1:SetValue(c81008001.splimit)
-	c:RegisterEffect(e1)
-	--cannot material
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
-	e3:SetValue(1)
-	c:RegisterEffect(e3)
-	local e4=e3:Clone()
-	e4:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
-	c:RegisterEffect(e4)
-	local e5=e3:Clone()
-	e5:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
-	c:RegisterEffect(e5)
-	local e6=e3:Clone()
-	e6:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
-	c:RegisterEffect(e6)
-	--atkup
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_SINGLE)
-	e7:SetCode(EFFECT_UPDATE_ATTACK)
-	e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e7:SetRange(LOCATION_MZONE)
-	e7:SetValue(c81008001.val)
-	c:RegisterEffect(e7)
-	--actlimit
-	local e8=Effect.CreateEffect(c)
-	e8:SetType(EFFECT_TYPE_FIELD)
-	e8:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e8:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e8:SetRange(LOCATION_MZONE)
-	e8:SetTargetRange(0,1)
-	e8:SetValue(c81008001.aclimit)
-	e8:SetCondition(c81008001.actcon)
-	c:RegisterEffect(e8)
-	--spsummon
-	local e9=Effect.CreateEffect(c)
-	e9:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e9:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e9:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e9:SetCode(EVENT_TO_GRAVE)
-	e9:SetCountLimit(1,81008001)
-	e9:SetCondition(c81008001.condition)
-	e9:SetTarget(c81008001.target)
-	e9:SetOperation(c81008001.operation)
-	c:RegisterEffect(e9)
-end
-function c81008001.splimit(e,se,sp,st)
-	return not e:GetHandler():IsLocation(LOCATION_EXTRA) or bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
-end
-function c81008001.afilter(c)
-	return c:GetSequence()<4 and c:IsOnField() and c:IsLocation(LOCATION_MZONE)
-end
-function c81008001.bfilter(c)
-	return c:GetSequence()>4 and c:IsOnField() and c:IsLocation(LOCATION_MZONE)
-end
-function c81008001.val(e,c)
-	return Duel.GetMatchingGroupCount(Card.IsType,c:GetControler(),LOCATION_GRAVE,0,nil,TYPE_MONSTER)*100
-end
-function c81008001.aclimit(e,re,tp)
-	return not re:GetHandler():IsImmuneToEffect(e)
-end
-function c81008001.actcon(e)
-	return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()
-end
-function c81008001.condition(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsReason(REASON_BATTLE)
-		or rp==1-tp and c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp
-end
-function c81008001.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c81008001.operation(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) 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)
-		Duel.SpecialSummonComplete()
-	end
-end

expansions/script/c81008002.lua

-function c81008002.initial_effect(c)
-	c:SetUniqueOnField(1,0,81008002)
-	--fusion material
-	c:EnableReviveLimit()
-	aux.AddFusionProcFunRep(c,c81008002.ffilter,3,false)
-	--spsummon condition
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
-	e1:SetValue(aux.fuslimit)
-	c:RegisterEffect(e1)
-	--special summon
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_LEAVE_FIELD)
-	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,81008002)
-	e2:SetCondition(c81008002.spcon)
-	e2:SetTarget(c81008002.sptg)
-	e2:SetOperation(c81008002.spop)
-	c:RegisterEffect(e2)
-	--battle indestructable
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-	e3:SetValue(1)
-	c:RegisterEffect(e3)
-	--actlimit
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_FIELD)
-	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetTargetRange(0,1)
-	e4:SetValue(1)
-	e4:SetCondition(c81008002.actcon)
-	c:RegisterEffect(e4)
-	--cannot material
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_SINGLE)
-	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e5:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
-	e5:SetValue(1)
-	c:RegisterEffect(e5)
-	local e6=e5:Clone()
-	e6:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
-	c:RegisterEffect(e6)
-	local e7=e5:Clone()
-	e7:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
-	c:RegisterEffect(e7)
-	local e8=e5:Clone()
-	e8:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
-	c:RegisterEffect(e8)
-end
-function c81008002.ffilter(c)
-	return c:IsFusionType(TYPE_EFFECT) and c:IsOnField()
-end
-function c81008002.actcon(e)
-	return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()
-end
-function c81008002.spcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:GetReasonPlayer()==1-tp
-		and c:IsReason(REASON_EFFECT) and c:IsPreviousPosition(POS_FACEUP)
-end
-function c81008002.spfilter(c,e,tp)
-	return c:IsCode(81008001) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false)
-end
-function c81008002.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.GetLocationCountFromEx(tp)>0
-		and Duel.IsExistingMatchingCard(c81008002.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c81008002.spop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCountFromEx(tp)<=0 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c81008002.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
-		tc:CompleteProcedure()
-	end
-end

expansions/script/c81008017.lua

---花明夜风·盐见周子
-function c81008017.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetRange(LOCATION_GRAVE)
-	e1:SetCountLimit(1,81008017)
-	e1:SetCondition(c81008017.spcon)
-	e1:SetCost(c81008017.spcost)
-	e1:SetTarget(c81008017.sptg)
-	e1:SetOperation(c81008017.spop)
-	c:RegisterEffect(e1)
-	Duel.AddCustomActivityCounter(81008017,ACTIVITY_SPSUMMON,c81008017.counterfilter)
-end
-function c81008017.counterfilter(c)
-	return c:IsRace(RACE_ZOMBIE)
-end
-function c81008017.cfilter(c,tp)
-	return c:IsRace(RACE_ZOMBIE) and c:IsLinkAbove(4) and c:GetSummonLocation()==LOCATION_EXTRA and c:IsControler(tp)
-end
-function c81008017.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c81008017.cfilter,1,nil,tp)
-end
-function c81008017.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetCustomActivityCount(81008017,tp,ACTIVITY_SPSUMMON)==0 end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
-	e1:SetTargetRange(1,0)
-	e1:SetTarget(c81008017.splimit)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function c81008017.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,POS_FACEUP) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
-end
-function c81008017.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c81008017.splimit(e,c,sump,sumtype,sumpos,targetp)
-	return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x121)
-end

expansions/script/c81008020.lua → expansions/script/c81008035.lua

---真实的自我·渋谷凛
-require("expansions/script/c81000000")
-function c81008020.initial_effect(c)
+--未来可期·橘爱丽丝
+function c81008035.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,2,c81008035.lcheck)
 	c:EnableReviveLimit()
-	aux.AddFusionProcFunRep(c,c81008020.ffilter,3,false)
-	aux.EnablePendulumAttribute(c,false)
-	c:SetUniqueOnField(1,0,81008003,LOCATION_MZONE)
-	Tenka.Shibuya(c)
-	--fusion (p)
+	--cannot link material
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+	e0:SetCondition(c81008035.linkcon)
+	e0:SetValue(1)
+	c:RegisterEffect(e0)
+	--fusion success
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_PZONE)
-	e1:SetCountLimit(1,81008020)
-	e1:SetTarget(c81008020.pftg)
-	e1:SetOperation(c81008020.pfop)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,81008035)
+	e1:SetCondition(c81008035.spcon)
+	e1:SetTarget(c81008035.sptg)
+	e1:SetOperation(c81008035.spop)
 	c:RegisterEffect(e1)
-	--immune
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCode(EFFECT_IMMUNE_EFFECT)
-	e2:SetValue(c81008020.efilter)
-	c:RegisterEffect(e2)
-	--Destroy
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_DESTROY)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetCode(EVENT_FREE_CHAIN)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCountLimit(1,81008920)
-	e3:SetCondition(c81008020.descon)
-	e3:SetTarget(c81008020.destg)
-	e3:SetOperation(c81008020.desop)
-	c:RegisterEffect(e3)
-	--pendulum
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e4:SetCode(EVENT_DESTROYED)
-	e4:SetProperty(EFFECT_FLAG_DELAY)
-	e4:SetCondition(c81008020.pencon)
-	e4:SetTarget(c81008020.pentg)
-	e4:SetOperation(c81008020.penop)
-	c:RegisterEffect(e4)
 end
-function c81008020.ffilter(c)
-	return c:IsOnField() and c:IsFusionType(TYPE_PENDULUM)
+function c81008035.linkcon(e)
+	local c=e:GetHandler()
+	return c:IsStatus(STATUS_SPSUMMON_TURN) and c:IsSummonType(SUMMON_TYPE_LINK)
+end
+function c81008035.lcheck(g,lc)
+	return g:GetClassCount(Card.GetOriginalCode)==g:GetCount()
+end
+function c81008035.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
 end
-function c81008020.pffilter1(c,e)
-	return not c:IsImmuneToEffect(e)
+function c81008035.filter0(c)
+	return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
 end
-function c81008020.pffilter2(c,e,tp,m,f,chkf)
+function c81008035.filter1(c,e)
+	return c:IsFaceup() and c:IsType(TYPE_MONSTER) and not c:IsImmuneToEffect(e) and c:IsAbleToDeck()
+end
+function c81008035.filter2(c,e,tp,m,f,chkf)
 	return c:IsType(TYPE_FUSION) and (not f or f(c))
 		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
 end
-function c81008020.pftg(e,tp,eg,ep,ev,re,r,rp,chk)
+function c81008035.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		local chkf=tp
-		local mg1=Duel.GetFusionMaterial(tp)
-		local res=Duel.IsExistingMatchingCard(c81008020.pffilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
+		local mg1=Duel.GetMatchingGroup(c81008035.filter0,tp,LOCATION_REMOVED,0,nil)
+		local res=Duel.IsExistingMatchingCard(c81008035.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
 		if not res then
 			local ce=Duel.GetChainMaterial(tp)
 			if ce~=nil then
 				local fgroup=ce:GetTarget()
 				local mg2=fgroup(ce,e,tp)
 				local mf=ce:GetValue()
-				res=Duel.IsExistingMatchingCard(c81008020.pffilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
+				res=Duel.IsExistingMatchingCard(c81008035.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
 			end
 		end
 		return res
 	end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_REMOVED)
 end
-function c81008020.pfop(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
+function c81008035.spop(e,tp,eg,ep,ev,re,r,rp)
 	local chkf=tp
-	local mg1=Duel.GetFusionMaterial(tp):Filter(c81008020.pffilter1,nil,e)
-	local sg1=Duel.GetMatchingGroup(c81008020.pffilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
+	local mg1=Duel.GetMatchingGroup(c81008035.filter1,tp,LOCATION_REMOVED,0,nil,e)
+	local sg1=Duel.GetMatchingGroup(c81008035.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
 	local mg2=nil
 	local sg2=nil
 	local ce=Duel.GetChainMaterial(tp)
@@ -84,7 +73,7 @@ function c81008020.pfop(e,tp,eg,ep,ev,re,r,rp)
 		local fgroup=ce:GetTarget()
 		mg2=fgroup(ce,e,tp)
 		local mf=ce:GetValue()
-		sg2=Duel.GetMatchingGroup(c81008020.pffilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
+		sg2=Duel.GetMatchingGroup(c81008035.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
 	end
 	if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
 		local sg=sg1:Clone()
@@ -95,7 +84,7 @@ function c81008020.pfop(e,tp,eg,ep,ev,re,r,rp)
 		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.SendtoDeck(mat1,nil,2,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
 			Duel.BreakEffect()
 			Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
 		else
@@ -103,41 +92,30 @@ function c81008020.pfop(e,tp,eg,ep,ev,re,r,rp)
 			local fop=ce:GetOperation()
 			fop(ce,e,tp,tc,mat2)
 		end
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_CANNOT_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e2:SetCode(EFFECT_CANNOT_TRIGGER)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e2)
 		tc:CompleteProcedure()
 	end
-end
-function c81008020.efilter(e,te)
-	return te:IsActiveType(TYPE_PENDULUM)
-end
-function c81008020.descon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
-		and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)
-end
-function c81008020.desfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
-end
-function c81008020.destg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetMatchingGroup(c81008020.desfilter,tp,0,LOCATION_MZONE,nil)
-	if chk==0 then return g:GetCount()>0 end
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
-end
-function c81008020.desop(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c81008020.desfilter,tp,0,LOCATION_MZONE,nil)
-	if g:GetCount()>0 then
-		Duel.Destroy(g,REASON_EFFECT)
-	end
-end
-function c81008020.pencon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
-end
-function c81008020.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
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(c81008035.splimit)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
 end
-function c81008020.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 end
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
-	end
+function c81008035.splimit(e,c)
+	return not c:IsType(TYPE_FUSION) and c:IsLocation(LOCATION_EXTRA)
 end

expansions/script/c81009018.lua

---自由的海姬·大槻唯
-function c81009018.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,nil,4,2)
-	c:EnableReviveLimit()
-	--union
-	local e1=Effect.CreateEffect(c)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCategory(CATEGORY_EQUIP)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetTarget(c81009018.eqtg)
-	e1:SetOperation(c81009018.eqop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_SZONE)
-	e2:SetTarget(c81009018.sptg)
-	e2:SetOperation(c81009018.spop)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_EQUIP)
-	e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-	e3:SetCode(EFFECT_DESTROY_SUBSTITUTE)
-	e3:SetValue(c81009018.repval)
-	c:RegisterEffect(e3)
-	--untargetable
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_EQUIP)
-	e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
-	e4:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-	e4:SetValue(aux.tgoval)
-	c:RegisterEffect(e4)
-	--destroy
-	local e5=Effect.CreateEffect(c)
-	e5:SetDescription(aux.Stringid(81009018,1))
-	e5:SetCategory(CATEGORY_DESTROY)
-	e5:SetType(EFFECT_TYPE_QUICK_O)
-	e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e5:SetCode(EVENT_FREE_CHAIN)
-	e5:SetHintTiming(0,TIMING_END_PHASE+TIMING_EQUIP)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCountLimit(1)
-	e5:SetCost(c81009018.cost)
-	e5:SetTarget(c81009018.target)
-	e5:SetOperation(c81009018.operation)
-	c:RegisterEffect(e5)
-	--union
-	local e6=Effect.CreateEffect(c)
-	e6:SetType(EFFECT_TYPE_SINGLE)
-	e6:SetCode(EFFECT_EQUIP_LIMIT)
-	e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e6:SetValue(c81009018.eqlimit)
-	c:RegisterEffect(e6)
-end
-function c81009018.ufilter(c)
-	local ct1,ct2=c:GetUnionCount()
-	return c:IsFaceup() and ct2==0
-end
-function c81009018.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local c=e:GetHandler()
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81009018.ufilter(chkc) end
-	if chk==0 then return e:GetHandler():GetFlagEffect(81009018)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
-		and Duel.IsExistingTarget(c81009018.ufilter,tp,LOCATION_MZONE,0,1,c) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
-	local g=Duel.SelectTarget(tp,c81009018.ufilter,tp,LOCATION_MZONE,0,1,1,c)
-	Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
-	c:RegisterFlagEffect(81009018,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
-end
-function c81009018.eqop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
-	if not tc:IsRelateToEffect(e) or not c81009018.ufilter(tc) then
-		Duel.SendtoGrave(c,REASON_EFFECT)
-		return
-	end
-	if not Duel.Equip(tp,c,tc,false) then return end
-	aux.SetUnionState(c)
-end
-function c81009018.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:GetFlagEffect(81009018)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
-	c:RegisterFlagEffect(81009018,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
-end
-function c81009018.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,true,false,POS_FACEUP)
-end
-function c81009018.repval(e,re,r,rp)
-	return bit.band(r,REASON_BATTLE)~=0 or bit.band(r,REASON_EFFECT)~=0
-end
-function c81009018.eqlimit(e,c)
-	return c:IsType(TYPE_MONSTER) or e:GetHandler():GetEquipTarget()==c
-end
-function c81009018.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 c81009018.target(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_ONFIELD,LOCATION_ONFIELD,1,nil,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
-end
-function c81009018.operation(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Destroy(tc,REASON_EFFECT)
-	end
-end

expansions/script/c81009021.lua

---天魔降临·矢口美羽
-function c81009021.initial_effect(c)
-	c:EnableReviveLimit()
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetTargetRange(POS_FACEUP,1)
-	e1:SetCondition(c81009021.spcon)
-	e1:SetOperation(c81009021.spop)
-	c:RegisterEffect(e1)
-	--negate
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_CHAINING)
-	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,81009021)
-	e2:SetCondition(c81009021.discon)
-	e2:SetCost(c81009021.discost)
-	e2:SetTarget(c81009021.distg)
-	e2:SetOperation(c81009021.disop)
-	c:RegisterEffect(e2)
-end
-function c81009021.spfilter(c,tp)
-	return c:IsReleasable() and Duel.GetMZoneCount(1-tp,c,tp)>0
-end
-function c81009021.spcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return Duel.IsExistingMatchingCard(c81009021.spfilter,tp,0,LOCATION_MZONE,1,nil,tp)
-end
-function c81009021.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=Duel.SelectMatchingCard(tp,c81009021.spfilter,tp,0,LOCATION_MZONE,1,1,nil,tp)
-	Duel.Release(g,REASON_COST)
-end
-function c81009021.discon(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 (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev)
-end
-function c81009021.cfilter(c)
-	return not c:IsStatus(STATUS_BATTLE_DESTROYED)
-end
-function c81009021.discost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,c81009021.cfilter,1,nil) end
-	local g=Duel.SelectReleaseGroup(tp,c81009021.cfilter,1,1,nil)
-	Duel.Release(g,REASON_COST)
-end
-function c81009021.distg(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 c81009021.disop(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/c81009026.lua

---走志走爱·向井拓海
-function c81009026.initial_effect(c)
-	--pendulum summon
-	aux.EnablePendulumAttribute(c)
-	--reverse damage
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(81009026,0))
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetRange(LOCATION_PZONE)
-	e2:SetCode(EVENT_DAMAGE)
-	e2:SetCondition(c81009026.effcon)
-	e2:SetTarget(c81009026.revtg)
-	e2:SetOperation(c81009026.revop)
-	c:RegisterEffect(e2)
-end
-function c81009026.effcon(e,tp,eg,ep,ev,re,r,rp)
-	return ep==tp and bit.band(r,REASON_EFFECT)~=0
-end
-function c81009026.revtg(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 c81009026.revop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)~=0 then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_FIELD)
-		e1:SetCode(EFFECT_REVERSE_DAMAGE)
-		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-		e1:SetTargetRange(1,1)
-		e1:SetValue(c81009026.revval)
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		Duel.RegisterEffect(e1,tp)
-	end
-end
-function c81009026.revval(e,re,r,rp,rc)
-	return bit.band(r,REASON_EFFECT)~=0
-end

expansions/script/c81009027.lua

---威心传心·向井拓海
-function c81009027.initial_effect(c)
-	--pendulum summon
-	aux.EnablePendulumAttribute(c)
-	--disable
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2:SetRange(LOCATION_PZONE)
-	e2:SetCode(EVENT_CHAIN_SOLVING)
-	e2:SetCondition(c81009027.discon)
-	e2:SetOperation(c81009027.disop)
-	c:RegisterEffect(e2)
-end
-function c81009027.discon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsChainDisablable(ev) and aux.damcon1(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():GetFlagEffect(81009027)==0
-end
-function c81009027.disop(e,tp,eg,ep,ev,re,r,rp)
-	if not Duel.SelectEffectYesNo(tp,e:GetHandler()) then return end
-	e:GetHandler():RegisterFlagEffect(81009027,RESET_EVENT+RESETS_STANDARD,0,1)
-	if not Duel.NegateEffect(ev) then return end
-	Duel.BreakEffect()
-	Duel.Destroy(e:GetHandler(),REASON_EFFECT)
-end

expansions/script/c81010039.lua

---张口就鱼
-function c81010039.initial_effect(c)
-	--activate
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_ACTIVATE)
-	e0:SetCode(EVENT_FREE_CHAIN)
-	e0:SetHintTiming(0,TIMING_END_PHASE)
-	e0:SetTarget(c81010039.destg)
-	c:RegisterEffect(e0)
-	--remove
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_REMOVE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetRange(LOCATION_SZONE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetHintTiming(0,TIMING_END_PHASE)
-	e1:SetCountLimit(1,81010039)
-	e1:SetTarget(c81010039.target)
-	e1:SetOperation(c81010039.operation)
-	c:RegisterEffect(e1)
-	--to hand
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(81010039,1))
-	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetRange(LOCATION_GRAVE)
-	e3:SetCode(EVENT_FREE_CHAIN)
-	e3:SetCountLimit(1,81010039)
-	e3:SetCondition(aux.exccon)
-	e3:SetCost(aux.bfgcost)
-	e3:SetTarget(c81010039.thtg)
-	e3:SetOperation(c81010039.thop)
-	c:RegisterEffect(e3)
-end
-function c81010039.destg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	local c=e:GetHandler()
-	--destroy
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e1:SetCode(EVENT_PHASE+PHASE_END)
-	e1:SetCountLimit(1)
-	e1:SetRange(LOCATION_SZONE)
-	e1:SetCondition(c81010039.descon)
-	e1:SetOperation(c81010039.desop)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_SELF_TURN,3)
-	c:SetTurnCounter(0)
-	c:RegisterEffect(e1)
-end
-function c81010039.descon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnPlayer()==tp
-end
-function c81010039.desop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local ct=c:GetTurnCounter()
-	ct=ct+1
-	c:SetTurnCounter(ct)
-	if ct==3 then
-		Duel.Destroy(c,REASON_EFFECT)
-	end
-end
-function c81010039.rmfilter(c)
-	return c:IsRace(RACE_AQUA+RACE_FISH+RACE_SEASERPENT) and c:IsAbleToRemove()
-end
-function c81010039.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81010039.rmfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c81010039.rmfilter,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectTarget(tp,c81010039.rmfilter,tp,LOCATION_MZONE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
-end
-function c81010039.operation(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) then return end
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.Remove(tc,0,REASON_EFFECT+REASON_TEMPORARY)~=0 then
-		local ct=1
-		if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY then ct=2 end
-		local e1=Effect.CreateEffect(c)
-		e1:SetDescription(aux.Stringid(81010039,4))
-		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-		e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
-		e1:SetCountLimit(1)
-		e1:SetLabelObject(tc)
-		e1:SetCondition(c81010039.retcon)
-		e1:SetOperation(c81010039.retop)
-		if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY then
-			e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,2)
-			e1:SetValue(Duel.GetTurnCount())
-		else
-			e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN)
-			e1:SetValue(0)
-		end
-		Duel.RegisterEffect(e1,tp)
-		tc:RegisterFlagEffect(81010939,RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,0,ct)
-	end
-end
-function c81010039.retcon(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetTurnPlayer()~=tp or Duel.GetTurnCount()==e:GetValue() then return false end
-	return e:GetLabelObject():GetFlagEffect(81010939)~=0
-end
-function c81010039.retop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=e:GetLabelObject()
-	Duel.ReturnToField(tc)
-end
-function c81010039.thfilter(c)
-	return c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_AQUA+RACE_FISH+RACE_SEASERPENT) and c:IsAbleToHand()
-end
-function c81010039.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c81010039.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c81010039.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c81010039.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/c81011003.lua

@@ -3,12 +3,12 @@ function c81011003.initial_effect(c)
 	--link summon
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2)
 	c:EnableReviveLimit()
-	--indes
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e1:SetCode(EFFECT_IMMUNE_EFFECT)
 	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c81011003.imcon)
 	e1:SetValue(c81011003.efilter)
 	c:RegisterEffect(e1)
 	--change battle target
@@ -34,26 +34,30 @@ function c81011003.initial_effect(c)
 	e3:SetOperation(c81011003.ceop)
 	c:RegisterEffect(e3)
 end
+function c81011003.tgfilter(c)
+	return c:IsType(TYPE_MONSTER)
+end
+function c81011003.imcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetLinkedGroup():IsExists(c81011003.tgfilter,1,nil)
+end
 function c81011003.efilter(e,re,rp)
-	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return true end
+	if re:GetOwnerPlayer()==e:GetOwnerPlayer() then return false end 
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return true end 
 	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
 	return not g:IsContains(e:GetHandler())
 end
-function c81011003.tgtg(e,c)
-	return e:GetHandler():GetLinkedGroup():IsContains(c)
-end
 function c81011003.cbcon(e,tp,eg,ep,ev,re,r,rp)
 	return r~=REASON_REPLACE
 end
 function c81011003.cbfilter(c,at)
-	return c:IsFaceup() and c:IsType(TYPE_MONSTER) and at:IsContains(c)
+	return c:IsFaceup() and at:IsContains(c)
 end
 function c81011003.cbtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	local at=Duel.GetAttacker():GetAttackableTarget()
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81011003.cbfilter(chkc,at) end
-	if chk==0 then return Duel.IsExistingTarget(c81011003.cbfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler(),at) end
+	if chk==0 then return Duel.IsExistingTarget(c81011003.cbfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),at) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	Duel.SelectTarget(tp,c81011003.cbfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler(),at)
+	Duel.SelectTarget(tp,c81011003.cbfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),at)
 end
 function c81011003.cbop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
@@ -62,20 +66,20 @@ function c81011003.cbop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c81011003.cecon(e,tp,eg,ep,ev,re,r,rp)
-	if e==re or rp==tp or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	if e==re or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
 	local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
 	return g and g:GetCount()==1 and g:GetFirst()==e:GetHandler()
 end
 function c81011003.cefilter(c,re,rp,tf,ceg,cep,cev,cre,cr,crp)
-	return c:IsFaceup() and c:IsType(TYPE_MONSTER) and tf(re,rp,ceg,cep,cev,cre,cr,crp,0,c)
+	return c:IsFaceup() and c:IsSetCard(0x33) and tf(re,rp,ceg,cep,cev,cre,cr,crp,0,c)
 end
 function c81011003.cetg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	local tf=re:GetTarget()
 	local res,ceg,cep,cev,cre,cr,crp=Duel.CheckEvent(re:GetCode(),true)
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81011003.cefilter(chkc,re,rp,tf,ceg,cep,cev,cre,cr,crp) end
-	if chk==0 then return Duel.IsExistingTarget(c81011003.cefilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler(),re,rp,tf,ceg,cep,cev,cre,cr,crp) end
+	if chk==0 then return Duel.IsExistingTarget(c81011003.cefilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),re,rp,tf,ceg,cep,cev,cre,cr,crp) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	Duel.SelectTarget(tp,c81011003.cefilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler(),re,rp,tf,ceg,cep,cev,cre,cr,crp)
+	Duel.SelectTarget(tp,c81011003.cefilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),re,rp,tf,ceg,cep,cev,cre,cr,crp)
 end
 function c81011003.ceop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()

expansions/script/c81011029.lua

+--玫瑰天堂·砂冢明音
+function c81011029.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,3,2)
+	c:EnableReviveLimit()
+	--negate activate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(81011029,0))
+	e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,81011029)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetCondition(c81011029.negcon)
+	e2:SetCost(c81011029.negcost)
+	e2:SetTarget(c81011029.negtg)
+	e2:SetOperation(c81011029.negop)
+	c:RegisterEffect(e2)
+	--material
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1,81011929)
+	e4:SetTarget(c81011029.mttg)
+	e4:SetOperation(c81011029.mtop)
+	c:RegisterEffect(e4)
+end
+function c81011029.mtfilter(c,e)
+	return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and (c:IsControler(tp) or c:IsAbleToChangeControler()) and not c:IsImmuneToEffect(e)
+end
+function c81011029.mttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsType(TYPE_XYZ)
+		and Duel.IsExistingMatchingCard(c81011029.mtfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,e) end
+end
+function c81011029.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+	local g=Duel.SelectMatchingCard(tp,c81011029.mtfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,e)
+	if g:GetCount()>0 then
+		Duel.Overlay(c,g)
+	end
+end
+function c81011029.negcon(e,tp,eg,ep,ev,re,r,rp,chk)
+	return ep~=tp
+		and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainDisablable(ev)
+end
+function c81011029.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)
+	local ct=Duel.GetOperatedGroup():GetFirst()
+	e:SetLabelObject(ct)
+end
+function c81011029.negtg(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)
+	if re:GetHandler():IsDestructable() and e:GetLabelObject():IsType(TYPE_CONTINUOUS) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,re:GetHandler(),1,0,0)
+	end
+end
+function c81011029.negop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) and e:GetLabelObject():IsType(TYPE_CONTINUOUS) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end

expansions/script/c81011302.lua

---灰姑娘女孩·渋谷凛
-function c81011302.initial_effect(c)
-	--fusion summon
-	c:EnableReviveLimit()
-	aux.AddFusionProcFunRep(c,c81011302.ffilter,3,false)
-	--spsummon condition
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
-	e1:SetValue(c81011302.splimit)
-	c:RegisterEffect(e1)
-	--atk
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetOperation(c81011302.atkop)
-	c:RegisterEffect(e2)
-	--actlimit
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e3:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetTargetRange(0,1)
-	e3:SetValue(c81011302.aclimit)
-	e3:SetCondition(c81011302.actcon)
-	c:RegisterEffect(e3)
-	--special summon
-	local e4=Effect.CreateEffect(c)
-	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e4:SetCode(EVENT_LEAVE_FIELD)
-	e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e4:SetCondition(c81011302.spcon)
-	e4:SetTarget(c81011302.sptg)
-	e4:SetOperation(c81011302.spop)
-	c:RegisterEffect(e4)
-	--cannot material
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_SINGLE)
-	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e5:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
-	e5:SetValue(1)
-	c:RegisterEffect(e5)
-	local e6=e5:Clone()
-	e6:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
-	c:RegisterEffect(e6)
-	local e7=e5:Clone()
-	e7:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
-	c:RegisterEffect(e7)
-	local e8=e5:Clone()
-	e8:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
-	c:RegisterEffect(e8)
-end
-function c81011302.ffilter(c,fc,sub,mg,sg)
-	return c:IsControler(fc:GetControler()) and c:GetSummonLocation()==LOCATION_EXTRA and c:IsLocation(LOCATION_MZONE) and (not sg or not sg:IsExists(Card.IsFusionCode,1,c,c:GetFusionCode()))
-end
-function c81011302.splimit(e,se,sp,st)
-	return not e:GetHandler():IsLocation(LOCATION_EXTRA) or bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
-end
-function c81011302.atkop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=c:GetMaterial()
-	local s=0
-	local z=0
-	local tc=g:GetFirst()
-	while tc do
-		local a=tc:GetAttack()
-		if a<0 then a=0 end
-		s=s+a
-		tc=g:GetNext()
-	end
-	if s>5000 then
-		z=5000
-	else
-		z=s
-	end
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_SET_BASE_ATTACK)
-	e1:SetValue(z)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-	c:RegisterEffect(e1)
-end
-function c81011302.aclimit(e,re,tp)
-	return not re:GetHandler():IsImmuneToEffect(e)
-end
-function c81011302.actcon(e)
-	return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()
-end
-function c81011302.spcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:GetReasonPlayer()==1-tp
-		and c:IsReason(REASON_EFFECT) and c:IsPreviousPosition(POS_FACEUP)
-end
-function c81011302.spfilter(c,e,tp)
-	return c:IsCode(81008001) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false)
-end
-function c81011302.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.GetLocationCountFromEx(tp)>0
-		and Duel.IsExistingMatchingCard(c81011302.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c81011302.spop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCountFromEx(tp)<=0 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c81011302.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
-		tc:CompleteProcedure()
-	end
-end

expansions/script/c81013014.lua

---天光少女·白石紬
-function c81013014.initial_effect(c)
-	--pendulum summon
-	aux.EnablePendulumAttribute(c)
-	--tohand
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_RELEASE)
-	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e1:SetCountLimit(1,81013014)
-	e1:SetCondition(c81013014.thcon)
-	e1:SetTarget(c81013014.thtg)
-	e1:SetOperation(c81013014.thop)
-	c:RegisterEffect(e1)
-	--atk
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_UPDATE_ATTACK)
-	e2:SetRange(LOCATION_PZONE)
-	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
-	e2:SetTarget(c81013014.efilter)
-	e2:SetValue(500)
-	c:RegisterEffect(e2)
-	--avoid battle damage
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
-	e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-	e3:SetRange(LOCATION_PZONE)
-	e3:SetTargetRange(LOCATION_MZONE,0)
-	e3:SetTarget(c81013014.efilter)
-	e3:SetValue(1)
-	c:RegisterEffect(e3)
-	--shuffle & draw
-	local e4=Effect.CreateEffect(c)
-	e4:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
-	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
-	e4:SetCountLimit(1,81013014)
-	e4:SetCondition(c81013014.drcon)
-	e4:SetTarget(c81013014.drtg)
-	e4:SetOperation(c81013014.drop)
-	c:RegisterEffect(e4)
-end
-function c81013014.efilter(e,c)
-	return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM)
-end
-function c81013014.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return bit.band(r,REASON_EFFECT)~=0
-end
-function c81013014.thfilter(c)
-	return c:IsType(TYPE_PENDULUM) and c:IsType(TYPE_RITUAL) and c:IsAbleToHand()
-end
-function c81013014.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c81013014.thfilter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA+LOCATION_GRAVE)
-end
-function c81013014.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c81013014.thfilter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetTargetRange(1,0)
-	e1:SetTarget(c81013014.splimit)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function c81013014.drcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsPreviousLocation(LOCATION_DECK) or e:GetHandler():IsPreviousLocation(LOCATION_EXTRA)
-end
-function c81013014.filter(c,e)
-	return c:IsType(TYPE_RITUAL) and (c:IsType(TYPE_PENDULUM) or c:IsType(TYPE_SPELL)) and c:IsAbleToDeck() and c:IsCanBeEffectTarget(e)
-end
-function c81013014.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and c81013014.filter(chkc,e) end
-	local g=Duel.GetMatchingGroup(c81013014.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e)
-	if chk==0 then return g:GetClassCount(Card.GetCode)>=5 and Duel.IsPlayerCanDraw(tp,2) end
-	local sg=Group.CreateGroup()
-	for i=1,5 do
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-		local tc=g:Select(tp,1,1,nil):GetFirst()
-		if tc then
-			sg:AddCard(tc)
-			g:Remove(Card.IsCode,nil,tc:GetCode())
-		end
-	end
-	Duel.SetTargetCard(sg)
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,sg:GetCount(),0,0)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
-end
-function c81013014.drop(e,tp,eg,ep,ev,re,r,rp)
-	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=5 then return end
-	Duel.SendtoDeck(tg,nil,0,REASON_EFFECT)
-	local g=Duel.GetOperatedGroup()
-	if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end
-	local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
-	if ct>0 then
-		Duel.BreakEffect()
-		Duel.Draw(tp,2,REASON_EFFECT)
-	end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetTargetRange(1,0)
-	e1:SetTarget(c81013014.splimit)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function c81013014.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/c81014001.lua

---虚拟主播 电波酱
-function c81014001.initial_effect(c)
-	c:EnableReviveLimit()
-	--cannot special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
-	e1:SetValue(aux.FALSE)
-	c:RegisterEffect(e1)
-	--spsummon
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_SPSUMMON_PROC)
-	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetCondition(c81014001.spcon)
-	c:RegisterEffect(e2)
-	--search
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_TO_GRAVE)
-	e3:SetCountLimit(1,81014001)
-	e3:SetCondition(c81014001.thcon)
-	e3:SetTarget(c81014001.thtg)
-	e3:SetOperation(c81014001.thop)
-	c:RegisterEffect(e3)
-	--cannot activate
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_FIELD)
-	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetTargetRange(0,1)
-	e4:SetValue(c81014001.aclimit)
-	c:RegisterEffect(e4)
-	--cannot activate
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_FIELD)
-	e5:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetTargetRange(1,0)
-	e5:SetValue(c81014001.bclimit)
-	c:RegisterEffect(e5)
-end
-function c81014001.spcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
-	local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)
-	return g:GetCount()>=7 and g:GetClassCount(Card.GetCode)==g:GetCount()
-end
-function c81014001.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
-end
-function c81014001.thfilter(c,tp)
-	return c:GetType()==TYPE_SPELL and c:IsAbleToHand()
-		and not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,c:GetCode())
-end
-function c81014001.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c81014001.thfilter,tp,LOCATION_DECK,0,1,nil,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c81014001.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c81014001.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 c81014001.acfilter(c,code)
-	return c:IsFaceup() and c:IsCode(code)
-end
-function c81014001.aclimit(e,re,tp)
-	return Duel.IsExistingMatchingCard(c81014001.acfilter,e:GetHandlerPlayer(),0,LOCATION_GRAVE,1,nil,re:GetHandler():GetCode())
-		and not re:GetHandler():IsImmuneToEffect(e)
-end
-function c81014001.bcfilter(c,code)
-	return c:IsFaceup() and c:IsCode(code)
-end
-function c81014001.bclimit(e,re,tp)
-	return Duel.IsExistingMatchingCard(c81014001.bcfilter,e:GetHandlerPlayer(),LOCATION_GRAVE,0,1,nil,re:GetHandler():GetCode())
-		and not re:GetHandler():IsImmuneToEffect(e)
-end

expansions/script/c81014002.lua

---虚拟主播 电波酱 Hyper
-function c81014002.initial_effect(c)
-	--synchro summon
-	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
-	c:EnableReviveLimit()
-	--destroy
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,81014002)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e1:SetCondition(c81014002.descon)
-	e1:SetCost(c81014002.descost)
-	e1:SetTarget(c81014002.destg)
-	e1:SetOperation(c81014002.desop)
-	c:RegisterEffect(e1)
-	--cannot activate
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_FIELD)
-	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetTargetRange(0,1)
-	e4:SetValue(c81014002.aclimit)
-	c:RegisterEffect(e4)
-	--cannot activate
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_FIELD)
-	e5:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetTargetRange(1,0)
-	e5:SetValue(c81014002.bclimit)
-	c:RegisterEffect(e5)
-end
-function c81014002.cfilter(c)
-	return c:IsType(TYPE_MONSTER)
-end
-function c81014002.descon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c81014002.cfilter,tp,LOCATION_GRAVE,0,7,nil)
-end
-function c81014002.descost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,1,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function c81014002.destg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local cg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)
-	if chk==0 then return cg:GetCount()>1 and cg:GetClassCount(Card.GetCode)==cg:GetCount() end
-	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
-end
-function c81014002.desop(e,tp,eg,ep,ev,re,r,rp)
-	local cg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)
-	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil)
-	if g:GetCount()>0 and cg:GetCount()>1 and cg:GetClassCount(Card.GetCode)==cg:GetCount() then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-		local sg=g:Select(tp,1,1,nil)
-		Duel.HintSelection(sg)
-		Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
-	end
-end
-function c81014002.acfilter(c,code)
-	return c:IsFaceup() and c:IsCode(code)
-end
-function c81014002.aclimit(e,re,tp)
-	return Duel.IsExistingMatchingCard(c81014002.acfilter,e:GetHandlerPlayer(),0,LOCATION_REMOVED,1,nil,re:GetHandler():GetCode())
-		and not re:GetHandler():IsImmuneToEffect(e)
-end
-function c81014002.bcfilter(c,code)
-	return c:IsFaceup() and c:IsCode(code)
-end
-function c81014002.bclimit(e,re,tp)
-	return Duel.IsExistingMatchingCard(c81014002.bcfilter,e:GetHandlerPlayer(),LOCATION_REMOVED,0,1,nil,re:GetHandler():GetCode())
-		and not re:GetHandler():IsImmuneToEffect(e)
-end

expansions/script/c81014003.lua

---虚拟主播 电波酱 Another
-function c81014003.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,nil,7,2)
-	c:EnableReviveLimit()
-	--destroy
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,81014003)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e1:SetCondition(c81014003.descon)
-	e1:SetCost(c81014003.descost)
-	e1:SetTarget(c81014003.destg)
-	e1:SetOperation(c81014003.desop)
-	c:RegisterEffect(e1)
-	--search
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_TO_GRAVE)
-	e3:SetCountLimit(1,81014093)
-	e3:SetCondition(c81014003.thcon)
-	e3:SetTarget(c81014003.thtg)
-	e3:SetOperation(c81014003.thop)
-	c:RegisterEffect(e3)
-end
-function c81014003.descon(e,tp,eg,ep,ev,re,r,rp,chk)
-	if c==nil then return true end
-	return Duel.IsExistingMatchingCard(Card.IsType,c:GetControler(),LOCATION_GRAVE,0,7,nil,TYPE_MONSTER)
-end
-function c81014003.descost(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 c81014003.destg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local cg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)
-	if chk==0 then return cg:GetCount()>1 and cg:GetClassCount(Card.GetCode)==cg:GetCount() end
-	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
-end
-function c81014003.desop(e,tp,eg,ep,ev,re,r,rp)
-	local cg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)
-	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
-	if g:GetCount()>0 and cg:GetCount()>1 and cg:GetClassCount(Card.GetCode)==cg:GetCount() then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-		local sg=g:Select(tp,1,1,nil)
-		Duel.HintSelection(sg)
-		Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
-	end
-end
-function c81014003.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
-end
-function c81014003.thfilter(c,tp)
-	return c:IsType(TYPE_SPELL) and c:IsAbleToHand()
-		and not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,c:GetCode())
-end
-function c81014003.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c81014003.thfilter,tp,LOCATION_DECK,0,1,nil,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c81014003.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c81014003.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

expansions/script/c81040035.lua

+--废墟之下的俯瞰
+function c81040035.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c81040035.acttg)
+	e1:SetOperation(c81040035.actop)
+	c:RegisterEffect(e1)
+	--atkup
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_EFFECT))
+	e2:SetValue(-1000)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EFFECT_UPDATE_DEFENSE)
+	c:RegisterEffect(e3)
+	--cannot disable summon
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_CANNOT_DISABLE_SUMMON)
+	e4:SetRange(LOCATION_FZONE)
+	e4:SetProperty(EFFECT_FLAG_IGNORE_RANGE+EFFECT_FLAG_SET_AVAILABLE)
+	e4:SetCondition(c81040035.limcon)
+	e4:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_NORMAL))
+	c:RegisterEffect(e4)
+	--cannot disable summon
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
+	e5:SetRange(LOCATION_FZONE)
+	e5:SetProperty(EFFECT_FLAG_IGNORE_RANGE+EFFECT_FLAG_SET_AVAILABLE)
+	e5:SetCondition(c81040035.limcon)
+	e5:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_NORMAL))
+	c:RegisterEffect(e5)
+	--cannot be target
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_FIELD)
+	e6:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e6:SetRange(LOCATION_FZONE)
+	e6:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e6:SetCondition(c81040035.limcon)
+	e6:SetTarget(c81040035.target)
+	e6:SetValue(1)
+	c:RegisterEffect(e6)
+	local e7=e6:Clone()
+	e7:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e7:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	c:RegisterEffect(e7)
+end
+function c81040035.desfilter(c)
+	return c:IsType(TYPE_EFFECT) and c:IsType(TYPE_MONSTER)
+end
+function c81040035.acttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=Duel.GetMatchingGroup(c81040035.desfilter,tp,LOCATION_MZONE,0,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c81040035.actop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local g=Duel.GetMatchingGroup(c81040035.desfilter,tp,LOCATION_MZONE,0,nil)
+	if g:GetCount()>0 then
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end
+function c81040035.cfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_NORMAL)
+end
+function c81040035.limcon(e)
+	return Duel.GetMatchingGroupCount(c81040035.cfilter,e:GetHandler():GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil)>2
+end
+function c81040035.target(e,c)
+	return c:IsType(TYPE_NORMAL)
+end

expansions/script/c81040037.lua

@@ -46,11 +46,24 @@ function c81040037.initial_effect(c)
 	e4:SetTarget(c81040037.sptg)
 	e4:SetOperation(c81040037.spop)
 	c:RegisterEffect(e4)
+	--spsummon limit
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e5:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e5:SetValue(c81040037.sumlimit)
+	c:RegisterEffect(e5)
 	Duel.AddCustomActivityCounter(81040037,ACTIVITY_SPSUMMON,c81040037.counterfilter)
 end
 function c81040037.counterfilter(c)
 	return c:IsSetCard(0x81c)
 end
+function c81040037.exfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x81c) and bit.band(c:GetType(),0x81)==0x81
+end
+function c81040037.sumlimit(e,se,sp,st,pos,tp)
+	return Duel.IsExistingMatchingCard(c81040037.exfilter,tgp,LOCATION_MZONE,0,1,nil)
+end
 function c81040037.ffilter(c,fc,sub,mg,sg)
 	return c:IsFusionSetCard(0x81c) and c:IsFusionType(TYPE_RITUAL) and c:IsFusionType(TYPE_MONSTER) and (not sg or not sg:IsExists(Card.IsFusionCode,1,c,c:GetFusionCode()))
 end

expansions/script/c81041009.lua

+--路上的日常·国见洸太郎
+function c81041009.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,99,c81041009.lcheck)
+	  --atk up
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_UPDATE_ATTACK)
+	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e0:SetRange(LOCATION_MZONE)
+	e0:SetCondition(c81041009.atkcon)
+	e0:SetValue(c81041009.atkval)
+	c:RegisterEffect(e0)
+	--tohand
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCountLimit(1,81041009)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c81041009.cost)
+	e1:SetTarget(c81041009.target)
+	e1:SetOperation(c81041009.operation)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOEXTRA+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1,81041909)
+	e2:SetTarget(c81041009.thtg)
+	e2:SetOperation(c81041009.thop)
+	c:RegisterEffect(e2)
+end
+function c81041009.lcheck(g,lc)
+	return g:IsExists(c81041009.mzfilter,1,nil)
+end
+function c81041009.mzfilter(c)
+	return c:IsLinkType(TYPE_RITUAL) and c:IsLinkType(TYPE_PENDULUM) and c:IsAttack(1550) and c:IsDefense(1050)
+end
+function c81041009.atkcon(e)
+	local ph=Duel.GetCurrentPhase()
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+end
+function c81041009.atkfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and c:GetLevel()>0
+end
+function c81041009.atkval(e,c)
+	local lg=c:GetLinkedGroup():Filter(c81041009.atkfilter,nil)
+	return lg:GetSum(Card.GetLevel)*300
+end
+function c81041009.costfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and c:GetLevel()>c:GetOriginalLevel()
+end
+function c81041009.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,c81041009.costfilter,1,nil) end
+	local g=Duel.SelectReleaseGroup(tp,c81041009.costfilter,1,1,nil)
+	Duel.Release(g,REASON_COST)
+end
+function c81041009.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsAbleToDeck() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+end
+function c81041009.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoDeck(tc,nil,1,REASON_EFFECT)
+	end
+end
+function c81041009.thfilter(c)
+	return c:IsAbleToHand()
+end
+function c81041009.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_PZONE) and chkc:IsControler(tp) and c81041009.thfilter(chkc) and chkc~=e:GetHandler() end
+	if chk==0 then return e:GetHandler():IsAbleToExtra()
+		and Duel.IsExistingTarget(c81041009.thfilter,tp,LOCATION_PZONE,0,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c81041009.thfilter,tp,LOCATION_PZONE,0,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)
+end
+function c81041009.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)~=0
+		and c:IsLocation(LOCATION_EXTRA) and tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end

expansions/script/c81041010.lua

+--百变少女·桜田志乃
+function c81041010.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	c:EnableReviveLimit()
+	--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(c81041010.atkcon)
+	e0:SetValue(c81041010.atkval)
+	c:RegisterEffect(e0)
+	--level
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,81041010)
+	e1:SetTarget(c81041010.lvtg)
+	e1:SetOperation(c81041010.lvop)
+	c:RegisterEffect(e1)
+	--add counter
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_TO_HAND)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c81041010.drcon1)
+	e2:SetOperation(c81041010.drop1)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e3:SetCode(EVENT_TO_HAND)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCondition(c81041010.regcon)
+	e3:SetOperation(c81041010.regop)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e4:SetCode(EVENT_CHAIN_SOLVED)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCondition(c81041010.drcon2)
+	e4:SetOperation(c81041010.drop2)
+	c:RegisterEffect(e4)
+	--token
+	local e5=Effect.CreateEffect(c)
+	e5:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+	e5:SetType(EFFECT_TYPE_IGNITION)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetCountLimit(1,81041910)
+	e5:SetTarget(c81041010.sptg)
+	e5:SetOperation(c81041010.spop)
+	c:RegisterEffect(e5)
+end
+function c81041010.atkcon(e)
+	local ph=Duel.GetCurrentPhase()
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+end
+function c81041010.atkval(e,c)
+	return c:GetLevel()*300
+end
+function c81041010.lvfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and c:GetLevel()~=c:GetOriginalLevel()
+end
+function c81041010.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81041010.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c81041010.lvfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c81041010.lvfilter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c81041010.lvop(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 tc:IsFaceup() then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_LEVEL)
+		e1:SetValue(tc:GetOriginalLevel())
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+	end
+end
+function c81041010.cfilter(c,tp)
+	return c:IsPreviousLocation(LOCATION_DECK) and not c:IsReason(REASON_DRAW)
+end
+function c81041010.drcon1(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c81041010.cfilter,1,nil,tp) 
+		and (not re:IsHasType(EFFECT_TYPE_ACTIONS) or re:IsHasType(EFFECT_TYPE_CONTINUOUS))
+end
+function c81041010.drop1(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 c81041010.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c81041010.cfilter,1,nil,tp) and Duel.GetFlagEffect(tp,81041010)==0 
+		and re:IsHasType(EFFECT_TYPE_ACTIONS) and not re:IsHasType(EFFECT_TYPE_CONTINUOUS)
+end
+function c81041010.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.RegisterFlagEffect(tp,81041010,RESET_CHAIN,0,1)
+end
+function c81041010.drcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFlagEffect(tp,81041010)>0
+end
+function c81041010.drop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.ResetFlagEffect(tp,81041010)
+	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 c81041010.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsLevelAbove(4)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,81041999,0,0x4011,1550,1050,4,RACE_FAIRY,ATTRIBUTE_LIGHT) end
+	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c81041010.spop(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:IsLevelBelow(3) then return end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_LEVEL)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+	e1:SetValue(-3)
+	c:RegisterEffect(e1)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,81041999,0,0x4011,1550,1050,4,RACE_FAIRY,ATTRIBUTE_LIGHT) then
+		local token=Duel.CreateToken(tp,81041999)
+		Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

expansions/script/c81041011.lua

+--海边回忆·姬野星奏
+function c81041011.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	c:EnableReviveLimit()
+	--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(c81041011.btkcon)
+	e0:SetValue(c81041011.btkval)
+	c:RegisterEffect(e0)
+	--Increase ATK
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCode(EVENT_BATTLE_CONFIRM)
+	e1:SetCountLimit(1,81041011)
+	e1:SetCondition(c81041011.atkcon)
+	e1:SetTarget(c81041011.atktg)
+	e1:SetOperation(c81041011.atkop)
+	c:RegisterEffect(e1)
+	--counter
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_DAMAGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c81041011.ctcon)
+	e2:SetOperation(c81041011.ctop)
+	c:RegisterEffect(e2)
+	--disable
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_DISABLE)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCountLimit(1,81041911)
+	e3:SetTarget(c81041011.negtg)
+	e3:SetOperation(c81041011.negop)
+	c:RegisterEffect(e3)
+end
+function c81041011.btkcon(e)
+	local ph=Duel.GetCurrentPhase()
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+end
+function c81041011.btkval(e,c)
+	return c:GetLevel()*300
+end
+function c81041011.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	local a=Duel.GetAttacker()
+	if not a:IsControler(tp) then
+		a=Duel.GetAttackTarget()
+	end
+	return a and a:IsType(TYPE_RITUAL) and a:IsType(TYPE_PENDULUM)
+end
+function c81041011.atktg(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 c81041011.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	local tc=Duel.GetAttacker()
+	if tc:IsControler(1-tp) then tc=Duel.GetAttackTarget() end
+	if tc:IsRelateToBattle() and not tc:IsImmuneToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_LEVEL)
+		e1:SetValue(4)
+		e1:SetReset(RESET_PHASE+PHASE_DAMAGE)
+		tc:RegisterEffect(e1)
+		Duel.BreakEffect()
+		Duel.Destroy(c,REASON_EFFECT)
+	end
+end
+function c81041011.ctcon(e,tp,eg,ep,ev,re,r,rp)
+	return bit.band(r,REASON_BATTLE)~=0
+end
+function c81041011.ctop(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 c81041011.negfilter(c)
+	return aux.disfilter1(c) and c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function c81041011.negtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and c81041011.negfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c81041011.negfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and e:GetHandler():IsLevelAbove(4) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c81041011.negfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+end
+function c81041011.negop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	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)
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsDisabled() then
+		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=e1:Clone()
+		e2:SetCode(EFFECT_DISABLE_EFFECT)
+		e2:SetValue(RESET_TURN_SET)
+		tc:RegisterEffect(e2)
+		if tc:IsType(TYPE_TRAPMONSTER) then
+			local e3=e1:Clone()
+			e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
+			tc:RegisterEffect(e3)
+		end
+	end
+end

expansions/script/c81041012.lua

+--温柔之心·新堂彩音
+function c81041012.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	c:EnableReviveLimit()
+	--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(c81041012.btkcon)
+	e0:SetValue(c81041012.btkval)
+	c:RegisterEffect(e0)
+	--counter
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetOperation(c81041012.counter)
+	c:RegisterEffect(e1)
+	--atk
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_ATKCHANGE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e2:SetRange(LOCATION_PZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1,81041012)
+	e2:SetCondition(c81041012.atkcon)
+	e2:SetTarget(c81041012.atktg)
+	e2:SetOperation(c81041012.atkop)
+	c:RegisterEffect(e2)
+	--to hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1,81041912)
+	e3:SetTarget(c81041012.thtg)
+	e3:SetOperation(c81041012.thop)
+	c:RegisterEffect(e3)
+end
+function c81041012.btkcon(e)
+	local ph=Duel.GetCurrentPhase()
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+end
+function c81041012.btkval(e,c)
+	return c:GetLevel()*300
+end
+function c81041012.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	local a=Duel.GetAttacker()
+	local d=Duel.GetAttackTarget()
+	if d and a:GetControler()~=d:GetControler() then
+		if a:IsControler(tp) then e:SetLabelObject(a)
+		else e:SetLabelObject(d) end
+		return true
+	else return false end
+end
+function c81041012.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local tc=e:GetLabelObject()
+	if chkc then return chkc==tc end
+	if chk==0 then return tc:IsOnField() and tc:IsCanBeEffectTarget(e) end
+	Duel.SetTargetCard(tc)
+end
+function c81041012.atkop(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 tc:IsFaceup() then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_LEVEL)
+		e1:SetValue(3)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
+		tc:RegisterEffect(e1)
+	end
+end
+function c81041012.cfilter(c)
+	return c:IsPreviousLocation(LOCATION_ONFIELD)
+end
+function c81041012.counter(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=eg:FilterCount(c81041012.cfilter,nil)
+	if ct>0 then
+		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
+end
+function c81041012.filter(c)
+	return c:IsAttack(1550) and c:IsDefense(1050) and c:IsAbleToHand()
+end
+function c81041012.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81041012.filter,tp,LOCATION_DECK,0,1,nil) and e:GetHandler():IsLevelAbove(4) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c81041012.thop(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)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c81041012.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

expansions/script/c81041013.lua

+--花园少女·小鞠由依
+function c81041013.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	c:EnableReviveLimit()
+	--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(c81041013.atkcon)
+	e0:SetValue(c81041013.atkval)
+	c:RegisterEffect(e0)
+	--level
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,81041013)
+	e1:SetCost(c81041013.lvcost)
+	e1:SetTarget(c81041013.lvtg)
+	e1:SetOperation(c81041013.lvop)
+	c:RegisterEffect(e1)
+	--add counter
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCode(EVENT_DESTROYED)
+	e2:SetCondition(c81041013.ctcon)
+	e2:SetOperation(c81041013.ctop)
+	c:RegisterEffect(e2)
+	--draw
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCountLimit(1,81041913)
+	e3:SetTarget(c81041013.drtg)
+	e3:SetOperation(c81041013.drop)
+	c:RegisterEffect(e3)
+end
+function c81041013.atkcon(e)
+	local ph=Duel.GetCurrentPhase()
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+end
+function c81041013.atkval(e,c)
+	return c:GetLevel()*300
+end
+function c81041013.lvcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function c81041013.lvfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and c:GetLevel()>0
+end
+function c81041013.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81041013.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c81041013.lvfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c81041013.lvfilter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c81041013.lvop(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 tc:IsFaceup() then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_LEVEL)
+		e1:SetValue(3)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+	end
+end
+function c81041013.ctfilter(c,tp)
+	return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp
+		and bit.band(c:GetPreviousTypeOnField(),TYPE_PENDULUM)~=0
+end
+function c81041013.ctcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c81041013.ctfilter,1,nil,tp)
+end
+function c81041013.ctop(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 c81041013.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp) and e:GetHandler():IsLevelAbove(4) end
+	local ht=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(2-ht)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2-ht)
+end
+function c81041013.drop(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 p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
+	local ht=Duel.GetFieldGroupCount(p,LOCATION_HAND,0)
+	if ht<2 then
+		Duel.Draw(p,2-ht,REASON_EFFECT)
+	end
+end

expansions/script/c81041014.lua

+--烦恼相谈·四条凛香
+function c81041014.initial_effect(c)
+	 --pendulum summon
+	aux.EnablePendulumAttribute(c)
+	c:EnableReviveLimit()
+	--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(c81041014.atkcon)
+	e0:SetValue(c81041014.atkval)
+	c:RegisterEffect(e0)
+	--handes
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_HANDES)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,81041014)
+	e1:SetTarget(c81041014.target)
+	e1:SetOperation(c81041014.operation)
+	c:RegisterEffect(e1)
+	--draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_RELEASE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCondition(c81041014.drcon)
+	e2:SetOperation(c81041014.drop)
+	c:RegisterEffect(e2)
+	--damage
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e4:SetRange(LOCATION_PZONE)
+	e4:SetCountLimit(1,81041914)
+	e4:SetTarget(c81041014.damtg)
+	e4:SetOperation(c81041014.damop)
+	c:RegisterEffect(e4)
+end
+function c81041014.atkcon(e)
+	local ph=Duel.GetCurrentPhase()
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+end
+function c81041014.atkval(e,c)
+	return c:GetLevel()*300
+end
+function c81041014.cfilter(c,e,tp)
+	return c:IsFaceup() and c:IsControler(tp) and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and c:IsCanBeEffectTarget(e)
+end
+function c81041014.damtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return eg:IsContains(chkc) and c81041014.cfilter(chkc,e,tp) end
+	if chk==0 then return eg:IsExists(c81041014.cfilter,1,nil,e,1-tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local g=eg:FilterSelect(tp,c81041014.cfilter,1,1,nil,e,1-tp)
+	Duel.SetTargetCard(g)
+end
+function c81041014.damop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_LEVEL)
+		e1:SetValue(3)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+	end
+end
+function c81041014.cfilter(c,tp)
+	return c:IsReason(REASON_RELEASE) and c:IsType(TYPE_MONSTER) and c:IsPreviousLocation(LOCATION_ONFIELD+LOCATION_HAND)
+end
+function c81041014.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c81041014.cfilter,1,nil,tp)
+end
+function c81041014.drop(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 c81041014.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 and e:GetHandler():IsLevelAbove(4) end
+	Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,1-tp,1)
+end
+function c81041014.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 g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0)
+	local sg=g:RandomSelect(1-tp,1)
+	Duel.SendtoGrave(sg,REASON_DISCARD+REASON_EFFECT)
+end

expansions/script/c81041015.lua

+--国见洸太郎 & 姬野星奏
+function c81041015.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,c81041015.mfilter,2)
+	c:EnableReviveLimit()
+	--atk up
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_UPDATE_ATTACK)
+	e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e0:SetRange(LOCATION_MZONE)
+	e0:SetCondition(c81041015.atkcon)
+	e0:SetValue(c81041015.atkval)
+	c:RegisterEffect(e0)
+	--To hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,81041015)
+	e1:SetTarget(c81041015.thtg)
+	e1:SetOperation(c81041015.thop)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,81041915)
+	e2:SetCondition(c81041015.spcon)
+	e2:SetTarget(c81041015.sptg)
+	e2:SetOperation(c81041015.spop)
+	c:RegisterEffect(e2)
+end
+function c81041015.mfilter(c)
+	return c:IsAttack(1550) and c:IsDefense(1050)
+end
+function c81041015.atkcon(e)
+	local ph=Duel.GetCurrentPhase()
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+end
+function c81041015.atkfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and c:GetLevel()>0
+end
+function c81041015.atkval(e,c)
+	local lg=c:GetLinkedGroup():Filter(c81041015.atkfilter,nil)
+	return lg:GetSum(Card.GetLevel)*300
+end
+function c81041015.thfilter(c)
+	return c:IsCode(81041005) and c:IsFaceup() and c:IsAbleToHand()
+end
+function c81041015.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c81041015.thfilter(chkc) end
+	local h=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_PZONE,0,nil)
+	if chk==0 then return Duel.IsExistingTarget(c81041015.thfilter,tp,LOCATION_REMOVED,0,1,nil) and h:GetCount()>0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c81041015.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,h,1,0,0)
+end
+function c81041015.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+		local h=Duel.GetFieldGroup(tp,LOCATION_PZONE,0)
+		if h:GetCount()==0 then return end
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local sg=h:Select(tp,1,1,nil)
+		Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)
+	end
+end
+function c81041015.spfilter(c,tp)
+	return c:IsControler(tp) and c:IsAttack(1550) and c:IsDefense(1050) and c:IsFaceup() and c:IsType(TYPE_RITUAL) and (c:IsType(TYPE_PENDULUM) and c:IsSummonType(SUMMON_TYPE_RITUAL) or c:IsSummonType(SUMMON_TYPE_PENDULUM))
+end
+function c81041015.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c81041015.spfilter,1,nil,tp)
+end
+function c81041015.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c81041015.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

expansions/script/c81041016.lua

+--那一片真实的天空
+function c81041016.initial_effect(c)
+	--Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	e0:SetTarget(c81041016.qtarget)
+	e0:SetOperation(c81041016.qactivate)
+	c:RegisterEffect(e0)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetCountLimit(1,81041016)
+	e1:SetCondition(aux.exccon)
+	e1:SetCost(aux.bfgcost)
+	e1:SetTarget(c81041016.sptg)
+	e1:SetOperation(c81041016.spop)
+	c:RegisterEffect(e1)
+	--change name
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetCode(EFFECT_CHANGE_CODE)
+	e2:SetRange(LOCATION_REMOVED)
+	e2:SetValue(81041005)
+	c:RegisterEffect(e2)
+end
+function c81041016.qfilter(c,e,tp,m,ft)
+	if not (c:IsType(TYPE_PENDULUM) and c:IsAttack(1550) and c:IsDefense(1050)) or bit.band(c:GetType(),0x81)~=0x81
+		or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end
+	local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c)
+	if ft>0 then
+		return mg:CheckWithSumGreater(Card.GetRitualLevel,c:GetLevel(),c)
+	else
+		return mg:IsExists(c81041016.qfilterF,1,nil,tp,mg,c)
+	end
+end
+function c81041016.qfilterF(c,tp,mg,rc)
+	if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:GetSequence()<5 then
+		Duel.SetSelectedCard(c)
+		return mg:CheckWithSumGreater(Card.GetRitualLevel,rc:GetLevel(),rc)
+	else return false end
+end
+function c81041016.qtarget(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local mg=Duel.GetRitualMaterial(tp)
+		local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+		return ft>-1 and Duel.IsExistingMatchingCard(c81041016.qfilter,tp,LOCATION_HAND,0,1,nil,e,tp,mg,ft)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c81041016.qactivate(e,tp,eg,ep,ev,re,r,rp)
+	local mg=Duel.GetRitualMaterial(tp)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local tg=Duel.SelectMatchingCard(tp,c81041016.qfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg,ft)
+	local tc=tg:GetFirst()
+	if tc then
+		mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc)
+		local mat=nil
+		if ft>0 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+			mat=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetLevel(),tc)
+		else
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+			mat=mg:FilterSelect(tp,c81041016.qfilterF,1,1,nil,tp,mg,tc)
+			Duel.SetSelectedCard(mat)
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+			local mat2=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetLevel(),tc)
+			mat:Merge(mat2)
+		end
+		tc:SetMaterial(mat)
+		Duel.ReleaseRitualMaterial(mat)
+		Duel.BreakEffect()
+		Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		Duel.Hint(HINT_MUSIC,0,aux.Stringid(81041016,0))
+		tc:CompleteProcedure()
+	end
+end
+function c81041016.spfilter(c,e,tp)
+	return c:IsAttack(1550) and (c:IsType(TYPE_LINK) or (c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM)))
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c81041016.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCountFromEx(tp)>0
+		and Duel.IsExistingMatchingCard(c81041016.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c81041016.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCountFromEx(tp)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c81041016.spfilter,tp,LOCATION_EXTRA,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/c81041017.lua

+--随风而逝的约定
+function c81041017.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(81041017,0))
+	e1:SetCategory(CATEGORY_LVCHANGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetHintTiming(TIMING_DAMAGE_STEP)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,81041017+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c81041017.condition)
+	e1:SetTarget(c81041017.target)
+	e1:SetOperation(c81041017.activate)
+	c:RegisterEffect(e1)	
+end
+function c81041017.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated()
+end
+function c81041017.filter(c)
+	return c:IsFaceup() and c:IsLevelAbove(1) and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM)
+end
+function c81041017.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c81041017.filter(chkc) and chkc:IsControler(tp) end
+	if chk==0 then return Duel.IsExistingTarget(c81041017.filter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c81041017.filter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c81041017.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_LEVEL)
+		e1:SetValue(6)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+		--def to 0
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE)
+		e2:SetRange(LOCATION_MZONE)
+		e2:SetCode(EVENT_TURN_END)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e2:SetCountLimit(1)
+		e2:SetOperation(c81041017.ddop)
+		tc:RegisterEffect(e2)
+	end
+end
+function c81041017.ddop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetOwner()
+	local tc=e:GetHandler()
+	local sin=tc:GetOriginalLevel()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CHANGE_LEVEL)
+	e1:SetValue(sin)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	tc:RegisterEffect(e1,true)
+	e:Reset()
+end

expansions/strings.conf

@@ -220,6 +220,7 @@
 !setname 0x5700 剑术之城
 !setname 0x6700 魔法之派
 !setname 0x7700 技巧之场
+!setname 0x701 冰狱冥河
 !setname 0x1701 格莱亚斯
 !setname 0x2701 雷维翁
 #cm.is_named_with_Gran 古兰
@@ -236,11 +237,12 @@
 #圣灵兽骑 ?????????? 180
 
 #setname="advency" 冒险遗产
-#setname="WindName" 风名
 #setname="GhostStone" 鬼石
+#setname="HarmonicRhythm" 谐律
 #setcode="PseudoSoul" 拟魂
 #setcard="PhantomQuantum" 幻量子
 #setcard="Shinkansen" 新干线
+#setname="WindName" 风名
 #set-without-id 性感手枪
 #set_without_id 龙棋兵团
 

update/filelist.txt

-ygopro.exe	86934504bff6340bf7b475b67c4894e6
-deck/7.21_new_card1.ydk	2995301074bf1a1e5e87897929554525
-deck/7.21_new_card2.ydk	5e56fab1370bea35de947f3767d101d2
-deck/7.21_new_card3.ydk	eb96f164d53a1c6e973557b9d37ad5bb
-deck/7.21_new_card4.ydk	b82a76493e91c4aeec7c40c7102191ff
-deck/7.21_new_card5.ydk	e84e8b119ef2da6032d8bbf7a8dfa76b
-deck/7.21_new_card6.ydk	0f0dea5350eda8daa5d9010b927b09cb
-expansions/222DIY.cdb	a505dc17af05364574f0a96d07732610
-expansions/lflist.conf	940bc503e13796bed1676b382c4dadfa
-expansions/strings.conf	8cae41391dd92601f50635cdb506d65a
+ygopro.exe	3dcab0433dec7395fafd2658d83c9246
+deck/2019.8.4_new_card1.ydk	fa18814a63a72a747016c8bfa3ca0224
+deck/2019.8.4_new_card2.ydk	123973be7c20e82166c2ac372630350a
+expansions/222DIY.cdb	6333304ea671a039e3e315c21f05b4da
+expansions/lflist.conf	7d2f63ea10f360b11ef58223ba906f8b
+expansions/strings.conf	a0dd07cc526e10a0e292af919ad58f03
 expansions/pics/08209710.jpg	ed0e60085631bfa641ffeebd6abbd910
 expansions/pics/1000360.jpg	d1aa6f44fcd413402141a6bf4b886c2a
 expansions/pics/1000361.jpg	f957894610a5c40637825c4cb1c136d2
@@ -515,12 +511,14 @@ expansions/pics/1140201.jpg	5ed14f2489620915a9bbc09b5aaf746f
 expansions/pics/1140204.jpg	65ca10bd982c037fbe59adf98f1c2cd5
 expansions/pics/1140901.jpg	6f7b17d139ad27cc447dda7ee0461272
 expansions/pics/1141001.jpg	4ff1c356c8dd8cfc4c351bcad0a57c66
-expansions/pics/1141002.jpg	02b85e10a430387cab4968c9c47459e8
+expansions/pics/1141002.jpg	c0443fb6fe21c00d673d8ca3716fbe76
+expansions/pics/1141005.jpg	d97251fff5342192ec368f798e494e52
 expansions/pics/114100613.jpg	da8b322d2e772f68d00100367461bebd
 expansions/pics/1141021.jpg	4c157f8d6819c99a1e89b9d37f2df51f
 expansions/pics/1141101.jpg	ac238549f28e527f986d47cabe8a676c
 expansions/pics/1141103.jpg	5a2473f2fb3827c3076f9f3d44c99c43
 expansions/pics/1141201.jpg	ca7ed77779c36bd7262830aa4d2eeaf6
+expansions/pics/1141702.jpg	5667a5bbe2c0b22d47cfc19238c230c7
 expansions/pics/1145001.jpg	c4a13e1e14f4fb0538c9c070e82f7e51
 expansions/pics/1145002.jpg	f1d425d202cadee4257dff34bb4c10b5
 expansions/pics/11451411.jpg	dc499f1dad3d16c6378aa25699d663ba
@@ -1352,6 +1350,8 @@ expansions/pics/17050932.jpg	36debb67ce9ee08f349e4eb92cc8ba75
 expansions/pics/17050935.jpg	d7fe58e361e2c5ce3675024afa148e76
 expansions/pics/17050936.jpg	500038eb47ff1d0c44af487129772992
 expansions/pics/17050937.jpg	bb67a6a2f15f259d4da6a6ceb9ab0fc6
+expansions/pics/17050938.jpg	f28b171e855e9f2418892b3f12d42027
+expansions/pics/17051037.jpg	0be95072c265c9fe486d1344606486d3
 expansions/pics/17051927.jpg	3625a784479f415d901a6d96af0f46cd
 expansions/pics/17052927.jpg	f52430e06ce869c40a77ef2bf268ad99
 expansions/pics/17060801.jpg	7c2e14da812751bf388ef461e2a810a5
@@ -1640,6 +1640,13 @@ expansions/pics/18008009.jpg	6d47783801c844c30993e3394315844a
 expansions/pics/18008010.jpg	220fdf3329554e09eb6d05590d6d915f
 expansions/pics/18008011.jpg	f627a2022c5db93fef18a2ff17ec48cb
 expansions/pics/18008012.jpg	c75791325631ab67643ce37443401b51
+expansions/pics/18010001.jpg	9000395ab03f7383122d300d14d65388
+expansions/pics/18010002.jpg	4f6a4f1a52fb6f1b93b972c1863b901d
+expansions/pics/18010003.jpg	b8a80ca75a3ab89b211831f9dd5f3923
+expansions/pics/18010004.jpg	d811ba7c36d5bf726640568a3dd75a95
+expansions/pics/18010005.jpg	0244cdb99be8c4e9d0fbca7df2eb9b04
+expansions/pics/18010006.jpg	3f230a4239bb29e10cc78c0734853104
+expansions/pics/18010007.jpg	56585b1e977bbee327a96c82cd613b19
 expansions/pics/18713100.jpg	c7bc669693eae3674e26d46bf99627c0
 expansions/pics/18713101.jpg	56c0c11baf7e57a91b9cdb406b5e79ec
 expansions/pics/18713102.jpg	bc940362e41c569d9f28a83080867a94
@@ -2002,6 +2009,7 @@ expansions/pics/26800000.jpg	b9485b5fc870e8a8e0e59da2bc7851ea
 expansions/pics/26800001.jpg	aa85faf9f2968a80355d3f56b85772c5
 expansions/pics/26800002.jpg	7661427a387fc0816d39607484cd71bd
 expansions/pics/26800003.jpg	c1b5e995f23d9bd261d129b6fb3d9627
+expansions/pics/26800004.jpg	ca85d7e540bcf5d5c3dcda7216050ee7
 expansions/pics/26801000.jpg	d3e751ebc417310b294090965c28a7fe
 expansions/pics/26801001.jpg	d220f5627e4029a9d79727a2cf9c76fe
 expansions/pics/26801002.jpg	4872908c2fc0387a26f4019d89588723
@@ -2010,6 +2018,8 @@ expansions/pics/26801004.jpg	4ffc94e6ee077b4f44080e83bd62d25d
 expansions/pics/26802001.jpg	4c54a3969c2ec5f396723a0eb5cebb5b
 expansions/pics/26802002.jpg	5f1f460e5230776bd4e5b02cacef0ff4
 expansions/pics/26802003.jpg	f56953289240b5ba7fe6dd53b3b46a61
+expansions/pics/26802004.jpg	eedd86ed8c4bf0842cf604b1a53ecaed
+expansions/pics/26802005.jpg	88a8c0b14361a73a19e298e746ed7e9c
 expansions/pics/26803001.jpg	70e7fe990185dab02ed777a3faacd6b8
 expansions/pics/26803002.jpg	10cf5e738fe54f5d4c85017b03d24c9c
 expansions/pics/26803003.jpg	7e897aa8ab432b365b653be3619a6c63
@@ -2029,6 +2039,8 @@ expansions/pics/26805002.jpg	766aaae743c387f6264e414e88963f0c
 expansions/pics/26805003.jpg	7a87e9a7785dcefcc09a1bc4b0265bc8
 expansions/pics/26805004.jpg	ee2930bfedaec9ece212586c56d90fc5
 expansions/pics/26805005.jpg	06bb1d7b4079a5aa992c2af7faab326b
+expansions/pics/26805006.jpg	2fd971dd2f0a0cdb9712b70231e998d6
+expansions/pics/26805007.jpg	5705919ba046744bc73967a4d2d3f320
 expansions/pics/26806000.jpg	3889ce4e9e63696d59e649327b1c6b6d
 expansions/pics/26806001.jpg	07c66e7f95d2a6b28a18893f625ee882
 expansions/pics/26806002.jpg	7dd96a2482f0f03cf9ae331ee04bd1ed
@@ -2054,6 +2066,12 @@ expansions/pics/26806021.jpg	beac2d7d760175d21b0855f13762f435
 expansions/pics/26806022.jpg	d0345d97dbd272de5b2361da7eed23c8
 expansions/pics/26806023.jpg	21a108df21a2625daac4dc0d1d12d6b6
 expansions/pics/26806024.jpg	0a4f9aef82af53711c7251f6ac10edc0
+expansions/pics/26806025.jpg	3bd4348f56fce9c8dd64cf7ed8bf028d
+expansions/pics/26806026.jpg	3fa79004c522e4bac8f46a58ebf4dacf
+expansions/pics/26806027.jpg	d5f5f8643cf3c4946640651b8b7b84d1
+expansions/pics/26806028.jpg	7ecc8e572add50f2ef0c8c179199ecfa
+expansions/pics/26806029.jpg	2e67a746ecb35f3cb09407d77349d1ef
+expansions/pics/26806030.jpg	9443b25ff14863edb95e4c82fadc33e7
 expansions/pics/26807000.jpg	61bed67f8e6252efba08025523581c29
 expansions/pics/26807001.jpg	e352824fab0424643c22fe33e89b768c
 expansions/pics/26807002.jpg	7c3019a7946863630d29197c386006ac
@@ -2111,6 +2129,10 @@ expansions/pics/26807053.jpg	00eb234b94e172e46be952e6001f9ed3
 expansions/pics/26807054.jpg	9534d45eb38da264d6b88106693139ee
 expansions/pics/26807055.jpg	88d237a0fc7cf30503c2dc6a9981b803
 expansions/pics/26807056.jpg	cfb5c14deba80c567198d7a013bd6a27
+expansions/pics/26807057.jpg	8f1899614140e8ec825a84f656934a30
+expansions/pics/26807058.jpg	f6a064f60d032535f2a8a10fd5a6371a
+expansions/pics/26807059.jpg	af560a2f1afc2e57f8633b6099e3b2f1
+expansions/pics/26807060.jpg	fd63fd9de106c06137f898510a740188
 expansions/pics/26808000.jpg	e042c355b7116624e3b0a8e706b0b1ae
 expansions/pics/32828001.jpg	13d77b1c68fb7f197f585470830e4dbc
 expansions/pics/32828002.jpg	9de6f3fbb4d61335d3a4c9d81fd9ad54
@@ -5424,6 +5446,8 @@ 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/81006100.jpg	1faf7f218b044086a085b8d7a8f3c80c
 expansions/pics/81006101.jpg	b593e184543c55952d40d1cd39676f4e
 expansions/pics/81007001.jpg	d26bb24fd16b115ff85385076057fc60
@@ -5432,8 +5456,6 @@ expansions/pics/81007003.jpg	8579ae7eb55b94790c7da2dbed0cdc27
 expansions/pics/81007004.jpg	24c20027f9457a3d0f109145e0df56ab
 expansions/pics/81007005.jpg	6e812d520cebcd1103acfc69f4cf684e
 expansions/pics/81007006.jpg	d76d0cd35f7e3a38bbc5b761e023bb7a
-expansions/pics/81007007.jpg	c0d14788cfcdae0f27a150e0f556f428
-expansions/pics/81007008.jpg	3662d8ca9797750116ba7e44cef6d875
 expansions/pics/81007009.jpg	a4019534c43452f687143db0bc356d49
 expansions/pics/81007010.jpg	27e04b3b4b94aeacee7b34016842a7bd
 expansions/pics/81007011.jpg	5fde7525f642e1c7a071c6f0157e5ad2
@@ -5462,8 +5484,6 @@ expansions/pics/81007034.jpg	d2b55df1248bb11ae3bd7470563fec80
 expansions/pics/81007035.jpg	f34b42690899b08e20cd0645bea86823
 expansions/pics/81007036.jpg	e991726b680a542e72e130bcc4f8e288
 expansions/pics/81007037.jpg	a3370cd2c1b2094d0cfcfeb8bbffc068
-expansions/pics/81008001.jpg	567a90f762299b6bae4731af550823ec
-expansions/pics/81008002.jpg	2c7de0530eccbab8c3d93d450f9d4c21
 expansions/pics/81008005.jpg	85e5511f8890bb8f14d3ce2f21d3fe47
 expansions/pics/81008006.jpg	23ed6d2172fd1a4e4e8b7034e9f2cadb
 expansions/pics/81008007.jpg	9778fb5ec1e8513bbc1a0a974e67b6a3
@@ -5472,19 +5492,17 @@ expansions/pics/81008009.jpg	4671fb26cb5d3a55e4924d7c53cecfcb
 expansions/pics/81008010.jpg	695c267be6fbc099fc98588b13ba8346
 expansions/pics/81008013.jpg	9b7a78b7d9e5b696bed525db69b5c930
 expansions/pics/81008014.jpg	9fa7483f510dd7337db78a8a7cbf039d
-expansions/pics/81008017.jpg	ecd1a167baf6097a8cebaeac8ade0ce9
 expansions/pics/81008018.jpg	946df199e28ddd3f09ae4d7937525592
-expansions/pics/81008020.jpg	5474c7478d6fc99fc06ed1094b081802
 expansions/pics/81008023.jpg	5260cf63a80ad39cc2c1ae638d72b3af
 expansions/pics/81008024.jpg	92dbd2e895ffd7759062f1184e941c58
 expansions/pics/81008025.jpg	fbde431da3c16c456d4025c99a270323
 expansions/pics/81008026.jpg	c1b0769aeb7695ba4dadb73d113b85d5
 expansions/pics/81008028.jpg	08e1c9515136c22cbe2c02d66798442e
 expansions/pics/81008030.jpg	d0497942fa30f7e507c4eb76160653aa
-expansions/pics/81008031.jpg	99dc221bd8d06dd90626c771fbf5669b
 expansions/pics/81008032.jpg	f86f04c0f162535d5fe298cada5a7a0f
 expansions/pics/81008033.jpg	23bd35019d8b0e6c3d58c827d47cfe37
 expansions/pics/81008034.jpg	859214ca528395d9a6d7f7cfff695b6b
+expansions/pics/81008035.jpg	1fb51c23543abae4e8879efd68c5d73c
 expansions/pics/81008100.jpg	6d7f62045df429185175a189cf639964
 expansions/pics/81008101.jpg	153afe61e5b5f9610764f07a47eedec0
 expansions/pics/81008102.jpg	0be39789bc0b4288cc7be0f306ff7ebc
@@ -5507,14 +5525,10 @@ expansions/pics/81009014.jpg	791812ba658b9043afa3241e1e9a8221
 expansions/pics/81009015.jpg	a19f9cbecaecddfd34d1e42ace0ff608
 expansions/pics/81009016.jpg	9de827b875bce5d4ff0d1f460a1e2041
 expansions/pics/81009017.jpg	fd3685b7e90dac4e78e62c347d832b66
-expansions/pics/81009018.jpg	e2baa5ec48e5d271b1a3cce44c39f863
-expansions/pics/81009021.jpg	49162ed6d50e1b31a741f4c60203a069
 expansions/pics/81009022.jpg	fbc29a4aa5eed90daf5750e79500e6e5
 expansions/pics/81009023.jpg	7c1c45376962cdffd4db94307d5d7128
 expansions/pics/81009024.jpg	33f9a8f942b011d56f2a94de7d070829
 expansions/pics/81009025.jpg	e8dc0949233dce48d8180073f18a4336
-expansions/pics/81009026.jpg	fcfdfcf449073b5606f04c4df2f03d3d
-expansions/pics/81009027.jpg	be4c91b061f5fd4b331cf103407b499b
 expansions/pics/81009028.jpg	7bedd1f66e7e7beee316c255a736c2ab
 expansions/pics/81009038.jpg	85a7ddc13dc3fa3fe0a1ae0dab9a4d03
 expansions/pics/81010000.jpg	a551dd99579f3027b226c1a6d32051ed
@@ -5553,7 +5567,6 @@ expansions/pics/81010034.jpg	25b441000aca4821854746bfeceb7ac7
 expansions/pics/81010035.jpg	5a810d2e29c1a96937fd1f3d0f8f5194
 expansions/pics/81010037.jpg	3feaf95907276763ba2f903193e7f23c
 expansions/pics/81010038.jpg	d6ca1a84b4d9baf8670467c1f0b39ebf
-expansions/pics/81010039.jpg	e0bb1d947b30b372ca00db118bf9dbca
 expansions/pics/81010041.jpg	a27a9ca96e35af0278e5a2da28c14221
 expansions/pics/81010042.jpg	1a28bebc5d2d7fc96e07eb4bdbc19869
 expansions/pics/81010043.jpg	c399cd77fb269344251aabaf49c68420
@@ -5574,7 +5587,7 @@ expansions/pics/81010057.jpg	8fe3162e2bdfdb115ac987210975affa
 expansions/pics/81011000.jpg	ce38e33c4e791af2e2a18f9f9c86ed5e
 expansions/pics/81011001.jpg	2b5f325ec2e74805b64d62eac7d54820
 expansions/pics/81011002.jpg	a419d0f4ba93ac269cdc720320285006
-expansions/pics/81011003.jpg	123ab7916d6ca50ec644beb06d62c1c4
+expansions/pics/81011003.jpg	9cc5ed79c0a1b1cb2e46eb3096cc70b9
 expansions/pics/81011004.jpg	2751fe194e75fe68a5af8c64474119d8
 expansions/pics/81011005.jpg	c655fff32b566f2c0e3f1a731681d654
 expansions/pics/81011006.jpg	f1236d7f0d971af372cb2697826d72e1
@@ -5598,6 +5611,7 @@ expansions/pics/81011025.jpg	cd09a5f7ebbdd42dbeacdbf819569b2f
 expansions/pics/81011026.jpg	5c3b3ee70763b108153122eab155056b
 expansions/pics/81011027.jpg	79258c897b9fdb2aedbb7c02629ecee2
 expansions/pics/81011028.jpg	600461fd30fcd42155066827f888de42
+expansions/pics/81011029.jpg	5c3c0f03dc150ef0ab8f71f1514a81af
 expansions/pics/81011100.jpg	3a156aa9afa37d68b8ed3aa574c1edb6
 expansions/pics/81011101.jpg	fb7f78ab37f608a808461e7820e554df
 expansions/pics/81011102.jpg	c4f17eaf296910f48556a05f743c9382
@@ -5622,9 +5636,7 @@ expansions/pics/81011203.jpg	6f0c32e4241d00f50b7aae38d601cbdb
 expansions/pics/81011204.jpg	536d1dafe4ffcff86b6103adbb88f748
 expansions/pics/81011205.jpg	34a9f8fd496d8efea7c4122c5988f5cc
 expansions/pics/81011301.jpg	e3c933b7f72664768c09cb2e20750c53
-expansions/pics/81011302.jpg	8ded87f64f81372595b2b64d34367ab4
 expansions/pics/81011303.jpg	60702ec5367813ec23b10e11efa6f6e0
-expansions/pics/81011304.jpg	9fb8558ffb03e123851f2a3c516f180c
 expansions/pics/81011305.jpg	42196c169d262bc54e1e20d6cf47115a
 expansions/pics/81011401.jpg	d09683842ff1cc1ae0a85572f657b35d
 expansions/pics/81011402.jpg	c4fb6bc36f91bcad6e880be97e6d1c38
@@ -5702,7 +5714,6 @@ expansions/pics/81013010.jpg	8b927b1dd0c4aaa6b30ea7ea8715f194
 expansions/pics/81013011.jpg	43896abfccb6f2c8abd84c48746ac68c
 expansions/pics/81013012.jpg	ca134090a367398b5dbb6375f0d87d84
 expansions/pics/81013013.jpg	a330250463beb6ef3279b40712313127
-expansions/pics/81013014.jpg	9e72bca2425a635d65a8d35e39c25887
 expansions/pics/81013015.jpg	74284a76458d25ec0e965835bdb063df
 expansions/pics/81013017.jpg	354695f288bb29ef37ab8b90ec84e140
 expansions/pics/81013018.jpg	e9779becc8f7a4fc3c9713e4f0d0516b
@@ -5714,9 +5725,6 @@ expansions/pics/81013024.jpg	e0a6683ded32adedab01f2d8c95b21e6
 expansions/pics/81013025.jpg	fc2bb00423f07b00a1c340f16bfe679c
 expansions/pics/81013026.jpg	490c89330d35198a6b0260aa2b341237
 expansions/pics/81014000.jpg	2d4d8cba99fac7b33e9a748b16fa073a
-expansions/pics/81014001.jpg	b374e5145985f0daec8ccbbaac2f7dfd
-expansions/pics/81014002.jpg	5a1d997459edb1771c3988375477234b
-expansions/pics/81014003.jpg	78589cfe96b5da86e5e14197e612f2c8
 expansions/pics/81014004.jpg	6d59abf1ef965a49afbcfb76a648dfb1
 expansions/pics/81014005.jpg	c209aa55fb738add74bc44c358b4aa12
 expansions/pics/81014006.jpg	4f2b1975dc9f396ef3eb4831c7fad25a
@@ -5927,6 +5935,7 @@ expansions/pics/81040031.jpg	da05aec71c9524135fc015f7f780bd6a
 expansions/pics/81040032.jpg	233a37c20c7195c9aab47d32f2f37b58
 expansions/pics/81040033.jpg	23d0992d6ec7876695e1e0dab762a7fb
 expansions/pics/81040034.jpg	9b3c193ce688abb4f9806a87a11b7803
+expansions/pics/81040035.jpg	2a1d38145fc19dd06985f4a63b5bbf63
 expansions/pics/81040037.jpg	bcdcb7b23cd800eeb066acc58715bc51
 expansions/pics/81041000.jpg	7f9e349b6b6587c67f10d53c6d17f271
 expansions/pics/81041001.jpg	92157545e7eb74054da25dab73e59623
@@ -5937,6 +5946,16 @@ expansions/pics/81041005.jpg	69a9a3d3a3aac71dc7d3f4e47065912a
 expansions/pics/81041006.jpg	4de3c32ed6dc47a4391ec1045d7ffafb
 expansions/pics/81041007.jpg	d6f0ead56d463dc537f03e99e8906887
 expansions/pics/81041008.jpg	85f1c68bcf0437e5109ba827295c2e97
+expansions/pics/81041009.jpg	3fac6cc8c23e9116c2ebced74eba2531
+expansions/pics/81041010.jpg	e5b99cbb6d91e8b14ea052054107efe1
+expansions/pics/81041011.jpg	654f37ecabd4acc1c7359de33885255c
+expansions/pics/81041012.jpg	8178c7671f21e2b3f9f53e14d8ff9bbe
+expansions/pics/81041013.jpg	0d7d05feea12f7580a3e980510b04e87
+expansions/pics/81041014.jpg	4514ac009d06ce89cc99a620dbd28bf2
+expansions/pics/81041015.jpg	a03511433d639e680636665b6e897629
+expansions/pics/81041016.jpg	aa2bd2f48e59a91cc7ed6b5a1aaaeea1
+expansions/pics/81041017.jpg	ca2b2fbea7c18b73a3a5a5397a90fe32
+expansions/pics/81041999.jpg	7ec09297f1ba2457243cc89205f3f358
 expansions/pics/8209701.jpg	72be54b3c0cd4b8e43164a7c47401b9f
 expansions/pics/8209702.jpg	7153f81aa2dd03dd58e195893fec6cc3
 expansions/pics/8209703.jpg	617b1f391790b6b4f32dd024964ebae3
@@ -6279,6 +6298,7 @@ expansions/pics/field/81015013.png	a4c847871fafb920264d1ab449d5810d
 expansions/pics/field/81016004.png	085ae00510ce5eca7037dc299f44b2fb
 expansions/pics/field/81018003.png	1bab7ce01e42ddfb0ac43a74663527e7
 expansions/pics/field/81018035.png	733f96519195f20b5fe6712330d91dd2
+expansions/pics/field/81040035.png	bc55c220cc015f50f180b291eb531db1
 expansions/pics/field/81041000.png	24676e8c66874a7d95beda190b424208
 expansions/pics/field/88800004.jpg	d1fd6739c97de90108c079c8989e6507
 expansions/pics/field/9334210.jpg	f7132f07fc22b80cfcd822f33d2bee44
@@ -6428,7 +6448,7 @@ expansions/script/c1007029.lua	d08d88b6010eda7806fb61d2484adec8
 expansions/script/c101002051.lua	9b277cece0f98d10b1c6f838bd63076a
 expansions/script/c10113074.lua	92442fca8899c4e40de37d654af6bb49
 expansions/script/c10113083.lua	420e1ea3f39f2cce4ea91ec0337c673c
-expansions/script/c10199990.lua	5d2618bd37c532b2bc441a863523afe1
+expansions/script/c10199990.lua	8ec910d399ed6ab3886e383b5fee9c00
 expansions/script/c107898100.lua	1510da323415386487f514596753a1e5
 expansions/script/c107898101.lua	dfd427de6a8571227e5778865cf9f482
 expansions/script/c107898102.lua	0171c0acd6f6bb1b82197c1744e3a7c9
@@ -6785,11 +6805,13 @@ expansions/script/c1140201.lua	109f1de0b719fe0f46c8c8a57c49307d
 expansions/script/c1140204.lua	0be8eb64768c2f0279b86974bf3ecec4
 expansions/script/c1141001.lua	8b91fb2941d6a2206078e257eb18399c
 expansions/script/c1141002.lua	29f14a489da35fc8f5e6521bf90296ce
+expansions/script/c1141005.lua	261a92d5c54305a53779aeebf1467023
 expansions/script/c114100613.lua	3ade0bb5c618b4bb2463437585c0c80d
 expansions/script/c1141021.lua	0f229efea0790b968bcaf33b88efb4dc
 expansions/script/c1141101.lua	2b027694a54f96900d121e0cd2a64a85
 expansions/script/c1141103.lua	80c17142cfee8d405df7682008622a1f
 expansions/script/c1141201.lua	e54d6a295cb91caa2fc694801e3ad744
+expansions/script/c1141702.lua	323f95f0ea3ef20274528c338861175c
 expansions/script/c1145001.lua	a39945f3563529ba8d8a793c6e6517e2
 expansions/script/c1145002.lua	295e4b6d8e01cc831f206a88af7b3da4
 expansions/script/c11451411.lua	4fcb765b1d345b5ecde3ace5405c9360
@@ -7201,7 +7223,7 @@ expansions/script/c12033004.lua	273d7b7bfcf57ce8a52a8ab0b7ad84dd
 expansions/script/c12033005.lua	76d2db407fb5665e553bd187ede6fdfe
 expansions/script/c12033006.lua	6d770ff7adcf4693defb541f20cd0fcd
 expansions/script/c12033010.lua	60ffd0745949a226751fc2f1a1f6ca50
-expansions/script/c12033011.lua	f88042d9dca203dd3a24876efc5aecfa
+expansions/script/c12033011.lua	d81f78822108d439699c004f8167dd3e
 expansions/script/c12033012.lua	5d42d0bfd33cfe736a39e5017f39cd0c
 expansions/script/c12033013.lua	2896784b2c3dbd335caf2798788bef27
 expansions/script/c121000001.lua	a9e81e2c57d6370e506e5e4ad4727d16
@@ -7626,7 +7648,9 @@ expansions/script/c17050931.lua	e6d05fb7f094c778f476f8cc640099d1
 expansions/script/c17050932.lua	51fcb9bef7d545a656b8a97c44ede1ee
 expansions/script/c17050935.lua	e423a83698555ce05ebbee032c7a7925
 expansions/script/c17050936.lua	6c97041872d1a7b4668fd8764ba086b2
-expansions/script/c17050937.lua	87d5cd1bfa29998e52e6d09087786081
+expansions/script/c17050937.lua	07bb44656b98e48ba73525f607f6f2f2
+expansions/script/c17050938.lua	96f4023439257764a69f63ef6726ab3d
+expansions/script/c17051037.lua	40f199117225c97d108053e2a0e30a5e
 expansions/script/c17051927.lua	9583b323cdf4838a218edeaee7d146b7
 expansions/script/c17052927.lua	641e0e527e2b7a4ac56bcc7a0d326a26
 expansions/script/c17060801.lua	ec3406fabea91c94ba43beba8c0653b1
@@ -7791,7 +7815,7 @@ expansions/script/c17090005.lua	005aa932d26ccfa8bdd223625cf7e9fa
 expansions/script/c17090006.lua	c1bc80cead116385279a8e1bd49d7c23
 expansions/script/c17090007.lua	48a3d14a4d588a5253905eee858ec706
 expansions/script/c17090008.lua	3843c3977399584ed09105e5264c5410
-expansions/script/c17090009.lua	97bde91354dba5b1706b171c170e7dfd
+expansions/script/c17090009.lua	f455f08cb6362f2f41c707abf7e3ac59
 expansions/script/c17090010.lua	e8b9c007f8ac27bef829a21bb81886fa
 expansions/script/c17090011.lua	8140c3e71ae8fd69f6bb30735dc0ac90
 expansions/script/c17090012.lua	f9155b765866baf0dfc5a5a620e80e39
@@ -7906,6 +7930,13 @@ expansions/script/c18008009.lua	81e93efda7219aceb5fdd39c448dc523
 expansions/script/c18008010.lua	fbc17a0091ec80a5668ad35fee7ad821
 expansions/script/c18008011.lua	264f7af90aa2bf2d710d077e22245aa5
 expansions/script/c18008012.lua	577cf6de1304953f65112ca115597c59
+expansions/script/c18010001.lua	5db66c99cf9c67dc81aa9eb040f0100b
+expansions/script/c18010002.lua	1436d83fa1beef5ede30c8ad9012ed76
+expansions/script/c18010003.lua	96bde2615ce00b14cbb6ae3938bfc073
+expansions/script/c18010004.lua	b16b1cc52feff8d46610079000ab5d97
+expansions/script/c18010005.lua	071839d25c14465515bd789dee3d4d1f
+expansions/script/c18010006.lua	af51c2238928b35b0452ddcc2f26c364
+expansions/script/c18010007.lua	efb0089665caea93e664bcc166c4b8a1
 expansions/script/c18700001.lua	b27f3a86d6663b16c9980c329f9b41e9
 expansions/script/c18713100.lua	77bc62bd097fd1c2074ad4ef59c89bc7
 expansions/script/c18713101.lua	ae7e0940fadc28b6aa0f39f3c2a4a257
@@ -8257,6 +8288,8 @@ expansions/script/c26801004.lua	4e9cc8194274f80aca1f4538a825d9e4
 expansions/script/c26802001.lua	1d6983c8de5016f779fd0a51397a50eb
 expansions/script/c26802002.lua	a245e4ae6444bb800c1801de2ec8a91b
 expansions/script/c26802003.lua	31fa8852c4d196b213e0fd956d576fe5
+expansions/script/c26802004.lua	581e92cb2b0977f140d273c592d3227e
+expansions/script/c26802005.lua	5350380dbdeed1d72fdbd6e0acc84ed8
 expansions/script/c26803001.lua	b1891170c2d9f8d2a84733fe65912f44
 expansions/script/c26803002.lua	fdb3b98c107c93c3f8a8e849768f5737
 expansions/script/c26803003.lua	0f11db029a6cc6ad8ab5a2bef202fc29
@@ -8276,6 +8309,8 @@ expansions/script/c26805002.lua	979e6ffcbdf626a9287bf06148fd4810
 expansions/script/c26805003.lua	062952b9dbfb31dc7fee21224a4f6da2
 expansions/script/c26805004.lua	f0ecd38e193d3ab8473fd25014f71771
 expansions/script/c26805005.lua	8f66a3c5a07b129eff2ff849bd2936cb
+expansions/script/c26805006.lua	c9065572352cd0a2de45190a4922b8de
+expansions/script/c26805007.lua	f4629c4369e57bd44de82de554e9d80d
 expansions/script/c26806000.lua	fd905b47f911b273cd45f2788b86d3b8
 expansions/script/c26806001.lua	fc4da881aafb48062cf271f9718350e4
 expansions/script/c26806002.lua	4f9efc8fe6e03afb6c958bf82eef29a3
@@ -8301,6 +8336,12 @@ expansions/script/c26806021.lua	ea3850cbe89a9f36bf418ec805b90d3c
 expansions/script/c26806022.lua	3c1d029157f75101a2970ed4d5360ecd
 expansions/script/c26806023.lua	240e083ea3fce661493cfcbca471eecd
 expansions/script/c26806024.lua	1a5e2e5b9ada73b6adbe06b1ca24f189
+expansions/script/c26806025.lua	293d7c610b63935e41a9eb4d6c3e3c4b
+expansions/script/c26806026.lua	38627e6c5db744c5ad7eb319fe0caacd
+expansions/script/c26806027.lua	a2e4c0bef42b15da231f4a1fb965b6c5
+expansions/script/c26806028.lua	162e2521882eae51a602e5f193cdb23c
+expansions/script/c26806029.lua	bf9fc74d4af270eaaa23a23318f5e486
+expansions/script/c26806030.lua	5eded15ee50d8a1121fd27aaa9ad0994
 expansions/script/c26807001.lua	5ff05bda4d00c3a5d9b269d530b54777
 expansions/script/c26807002.lua	db0bdf8f77399692b96f2bd40d0e70d1
 expansions/script/c26807003.lua	a459f9bb49705f6a83c5901232764ec0
@@ -8340,7 +8381,7 @@ expansions/script/c26807037.lua	74399816746cb2fe9f8329ab4028d7ab
 expansions/script/c26807038.lua	e98b5a2f406e9294e1c8519bb5dd9e9d
 expansions/script/c26807039.lua	46c5a7eeea256e139846f2cba685910c
 expansions/script/c26807040.lua	109df5e2559564f3226487dea419d118
-expansions/script/c26807041.lua	3aa3d7412240f4affe14001e339e2fef
+expansions/script/c26807041.lua	8b32fba8335eb53e12bd1f5ab185d140
 expansions/script/c26807042.lua	df7012219eefcb43950d1b3b621da666
 expansions/script/c26807043.lua	7ef415f33d18e8af2a1a56934fda94e1
 expansions/script/c26807044.lua	4a91f91f423746fb8405a46d2407b086
@@ -8355,6 +8396,10 @@ expansions/script/c26807053.lua	35ddd10af058025fad8cf76ea162973a
 expansions/script/c26807054.lua	e94bcf928766029cbb0ad0ccce235357
 expansions/script/c26807055.lua	c82c10b1af1e323c245a86e0996e42e2
 expansions/script/c26807056.lua	54bdfb3d5cec8883e656a4755edf8406
+expansions/script/c26807057.lua	fc0b46b1dc46031e0703b00bb46d5b7d
+expansions/script/c26807058.lua	4d22e577d6d253a4f02fa1ecc48b6582
+expansions/script/c26807059.lua	ded6b2d3b8c228ac0a9357e087f5da13
+expansions/script/c26807060.lua	218fffe018c51a01cbb507b5ac2591c2
 expansions/script/c26808000.lua	2a0d43d9baabf3ffb3710b96ba883ac7
 expansions/script/c32800000.lua	3c565030e28de69b6fb87f21fbd97e6d
 expansions/script/c32823000.lua	038507894e099525b158aa855d3fc7b4
@@ -11589,6 +11634,8 @@ 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/c81006100.lua	f20b757e7082ba7c03f6e08d966b649c
 expansions/script/c81006101.lua	a4a754d9d900a508fc686a3cab8b1691
 expansions/script/c81007001.lua	862e7c38e0bbd0afc9c67603cf80eaa7
@@ -11597,8 +11644,6 @@ expansions/script/c81007003.lua	f0f81fc1de59e7d77b204d4c0063735f
 expansions/script/c81007004.lua	7b42a679ede7828d98c8744051de85d8
 expansions/script/c81007005.lua	8d040e6cb853ec781afe4b60cb0f3f58
 expansions/script/c81007006.lua	f73e0610afd867008f610f257846c641
-expansions/script/c81007007.lua	da96d1f1d3238885b96f8cb6818d55a0
-expansions/script/c81007008.lua	82d0dcb5fb86407165a41cf03dd7a640
 expansions/script/c81007009.lua	964c55244e788357d7d65e1208e1adb6
 expansions/script/c81007010.lua	febb37def11a33a5b23d24012a7403cb
 expansions/script/c81007011.lua	fbfaeed624c2309064984245def2d697
@@ -11627,8 +11672,6 @@ expansions/script/c81007034.lua	d1d5717810b84d44a73f9c90123e28fe
 expansions/script/c81007035.lua	1bbb31eece680a4a96ac547b5bc9e550
 expansions/script/c81007036.lua	765a391f0a43296d1d3ce57e558af5d1
 expansions/script/c81007037.lua	5a95ac87a538c587a69b882e55ab2773
-expansions/script/c81008001.lua	bd7863cc48bfacdcd3fe7c04da95400e
-expansions/script/c81008002.lua	17d5e79fd4c683d4adbce77a60453e9b
 expansions/script/c81008005.lua	6548fb3e718b814c3f86bd4de94b482d
 expansions/script/c81008006.lua	b012354438c1593a931bfee5002f5a3f
 expansions/script/c81008007.lua	1212c47e524d9734f0d2f41b3474ef71
@@ -11636,19 +11679,17 @@ expansions/script/c81008008.lua	2ea3953fe3e566084383ed78cd9f8449
 expansions/script/c81008009.lua	68e797603bc05b1d375c44b2c99b3f5d
 expansions/script/c81008010.lua	a7e583050d117582cfc97f06db83e103
 expansions/script/c81008013.lua	f1091581402c454b09f24bd387cafe68
-expansions/script/c81008017.lua	b0b50f5c994e1503b9f673de465148c8
 expansions/script/c81008018.lua	d00054f6d9cc213bb30c59d827a3753e
-expansions/script/c81008020.lua	6e32c5ed0a9108f06517c58c5432bfd7
 expansions/script/c81008023.lua	62c4a3c764ab18cb77bb959e2691b6b2
 expansions/script/c81008024.lua	e2850cf7892e9f507d419b1bd38ed24e
 expansions/script/c81008025.lua	cd06054f31cfc6069c13d09c8f085f75
 expansions/script/c81008026.lua	67cc88909938b6c71f1148ae2660e337
 expansions/script/c81008028.lua	c38849cfe627a10c6f2ec84666532de3
 expansions/script/c81008030.lua	feac7f2d86ca79132b5f23b0ade8afc9
-expansions/script/c81008031.lua	e5ac3ef8b0904fc470a16b24696a4481
 expansions/script/c81008032.lua	c684884441a8773789e6f1abe6c14f6e
 expansions/script/c81008033.lua	b6df2a5f9b80ce97624f7a07444b0545
 expansions/script/c81008034.lua	e9e967910f99176c99586a909883c1f4
+expansions/script/c81008035.lua	0129ed6fb97d4bebb774860df8098563
 expansions/script/c81008100.lua	e6701823780e5c2cc9e1690944a16176
 expansions/script/c81008101.lua	c4d7d772b118d72dfe904db5558490bf
 expansions/script/c81008102.lua	3bb4e4495e2eeb749d62f80077c9a68e
@@ -11670,14 +11711,10 @@ expansions/script/c81009014.lua	bb51c3598b45d28b2ae3e60ca05a7cc8
 expansions/script/c81009015.lua	7b769fdfc1b2a05c2dfe38296c5c4505
 expansions/script/c81009016.lua	dcebfb4da619ed0cb06b74c710b91f05
 expansions/script/c81009017.lua	9400a30b1f4b53a5c54b20ea025347cd
-expansions/script/c81009018.lua	be046d4db992fca6b437a86032a8f39f
-expansions/script/c81009021.lua	751d5f24deb80be77755c2bbed743705
 expansions/script/c81009022.lua	871841b4c9582e79568886324250a4c1
 expansions/script/c81009023.lua	49ab96f05e0f7859956053289ab6d8bf
 expansions/script/c81009024.lua	075c4082ea84502bf5e0f13454b7c0f5
 expansions/script/c81009025.lua	753622a87e53f1dfffac2c328f3cd479
-expansions/script/c81009026.lua	b6e37d0a9db47c861282407357631af0
-expansions/script/c81009027.lua	d41ba83b7afed44f0a967714f2d275db
 expansions/script/c81009028.lua	1615bfe3267087e75aa31129a2b683ef
 expansions/script/c81009038.lua	2c6e12cf3d628686e22b0100d55677aa
 expansions/script/c81010000.lua	766c532901729548aa40da22e5932725
@@ -11715,7 +11752,6 @@ expansions/script/c81010034.lua	89ff7838d056951252e8a3955424cdc1
 expansions/script/c81010035.lua	825641e968970060f7d7a0e127f2225b
 expansions/script/c81010037.lua	ec52fba76bdb1a93175dccd451ae835f
 expansions/script/c81010038.lua	74c102f2efaf5eb96f75df9d93e1672a
-expansions/script/c81010039.lua	51ad66bb8e8fc3fbd95d65d5429de6dc
 expansions/script/c81010041.lua	2392f86f5f48751441c1752eb1ef0636
 expansions/script/c81010042.lua	10ce383412254a2630385b9a505a35e3
 expansions/script/c81010043.lua	4e3e42448f46b9153e5a2acaaad0abd5
@@ -11734,7 +11770,7 @@ expansions/script/c81010056.lua	84bae1ab4b8bdee86476200016fc3eab
 expansions/script/c81010057.lua	c1d19c0dbe6950612d55bb9abc6459fd
 expansions/script/c81011001.lua	40f42ed8fc4ecba45c5e3798708ace30
 expansions/script/c81011002.lua	bf22231a86d176464320b28a6fba888b
-expansions/script/c81011003.lua	2082c0f29a4d18b7234c089a3731b9e1
+expansions/script/c81011003.lua	93b52ab53f535ed75b4c8443c76299b9
 expansions/script/c81011005.lua	4936c288eddeb6ea0bf210db929ba807
 expansions/script/c81011006.lua	ce7ea1406f72ea83647e029d8b9dc716
 expansions/script/c81011007.lua	7d74ec16c1a8f74f838e804b29193d15
@@ -11755,6 +11791,7 @@ expansions/script/c81011025.lua	768845b2b371f18613b10e294f955fa4
 expansions/script/c81011026.lua	c942d5d60622dfeb6e5cda15a8bff098
 expansions/script/c81011027.lua	52ce7daa15c6fbd3b31b1efc24bf38a8
 expansions/script/c81011028.lua	1e423163b39c587a2ee5fcd4f1929ea7
+expansions/script/c81011029.lua	d4b6226a81938ab7f8b7d8869d064bc0
 expansions/script/c81011100.lua	ab3abeb31a2b52e794c85573a40d84ba
 expansions/script/c81011101.lua	73e9390a6311e10619f5ac046257dea8
 expansions/script/c81011102.lua	f5e61457e461f305eab116eb13417ceb
@@ -11778,9 +11815,7 @@ expansions/script/c81011203.lua	75afe98b555844c8e0045c1bb5116c34
 expansions/script/c81011204.lua	8d08e816517098b520b0f5f0abaecc9c
 expansions/script/c81011205.lua	fc3f5fd0c2f35af321403c5354ffdd52
 expansions/script/c81011301.lua	2cf1492e72d997df37237c0295016d4f
-expansions/script/c81011302.lua	9752ee5e3d26daaa546d266ec9a7e44c
 expansions/script/c81011303.lua	2e259dbdf9608d6086f1f0345068d697
-expansions/script/c81011304.lua	37ef5417d9f37ec405c8f5c396cbf1e8
 expansions/script/c81011305.lua	27779fd3d166921116778ff756318ff7
 expansions/script/c81011401.lua	4d096c5b4dee8a18c912a08fb4a7e987
 expansions/script/c81011402.lua	d13b6c252d1d0bdfb55d2b706576bd4c
@@ -11855,7 +11890,6 @@ expansions/script/c81013009.lua	8e91cd38d57ae3b6164303f2c855607a
 expansions/script/c81013010.lua	3e82a1660cba01f4cd8c3f6b7a6e5c02
 expansions/script/c81013011.lua	4ac5d1ae08c518fb0376682ee0e9c3fd
 expansions/script/c81013012.lua	83e7c5682f2a9856c20b79be364f08e0
-expansions/script/c81013014.lua	537cedbbd59441edebc67fdbba0a206e
 expansions/script/c81013015.lua	730f6c1ff92edcb6b29d782fda4a43c2
 expansions/script/c81013017.lua	5c31aeb8a324d07ccffcc3d89a3ece2f
 expansions/script/c81013018.lua	3af6b4bd7f90a01107b37e44ebc1953d
@@ -11866,9 +11900,6 @@ expansions/script/c81013024.lua	515fca8b6e2456ef172cc8ba68360c7b
 expansions/script/c81013025.lua	97b60eeda49bb95c00478fedcbdb1a85
 expansions/script/c81013026.lua	6977079fe1eaa71cc6705882a949b955
 expansions/script/c81014000.lua	54bf5db3cf7abdc921bc29d2a784194a
-expansions/script/c81014001.lua	fb1f82673a55ffe781be1e3efc253ff2
-expansions/script/c81014002.lua	7234ceb2373e03836c4ad17c530dc38c
-expansions/script/c81014003.lua	e31b4115540a20359badba5f22a2f0ee
 expansions/script/c81014004.lua	782a8a5e582467e14f0339d11737422b
 expansions/script/c81014005.lua	3c458f60ff1dbbba94b72c445e97b655
 expansions/script/c81014006.lua	9a02b4e71f8e0231c4c1bb574ab85077
@@ -12073,7 +12104,8 @@ expansions/script/c81040031.lua	73cd2fd726d5bd93ab3993808d21de07
 expansions/script/c81040032.lua	ee670d796be2bbf316b2a3744057ffa4
 expansions/script/c81040033.lua	817e83ee1764d96d26aa7af72d960dd3
 expansions/script/c81040034.lua	9ab5652f5a47bc92fab55907333908d6
-expansions/script/c81040037.lua	019376bf92ac93880565503e567e30e6
+expansions/script/c81040035.lua	17edbdd9d5620ec45fb13bb0c0da082a
+expansions/script/c81040037.lua	a4d91d22e68648b57510d39031725f8f
 expansions/script/c81041000.lua	fbc61aa20ee1ab39e6cc9d4981874438
 expansions/script/c81041001.lua	6e5190491b67f5ac24a49bee9a3ce928
 expansions/script/c81041002.lua	11e77debed1e014f12b905f6be44a5dc
@@ -12083,6 +12115,15 @@ expansions/script/c81041005.lua	b477117393b0c0241914a295692532b1
 expansions/script/c81041006.lua	4d9e970b70ec2d852fe71c89aa833de5
 expansions/script/c81041007.lua	3be5fdea4194c3c771757d2df8553ff6
 expansions/script/c81041008.lua	74c02d857277a1edc34e6d56797519cd
+expansions/script/c81041009.lua	26a7ecfa1d516a634659be1a7ea11d54
+expansions/script/c81041010.lua	69156e4ac56e855a54fdb25a940e0214
+expansions/script/c81041011.lua	cc895555c2922043a7a36df1cae37058
+expansions/script/c81041012.lua	d6109a3e8fd89314132419fa78b365f6
+expansions/script/c81041013.lua	08e5dd0f98e38f791fccaff5c15192a5
+expansions/script/c81041014.lua	ddf4f594e8dd2a942f9edcab853f1851
+expansions/script/c81041015.lua	ff421664e7ed37bb9b7a56d79964f0f8
+expansions/script/c81041016.lua	7163dc6c2fc4fc24f05636fa80e3bc37
+expansions/script/c81041017.lua	b8da0fe0f193c692fd267d1833a783d1
 expansions/script/c8209701.lua	8349eac7770b3bdab418a4ec4e62fb60
 expansions/script/c8209702.lua	b01b192aa3185486b59d3449c4275116
 expansions/script/c8209703.lua	155320785b248d789616760c470a28c7
@@ -12371,13 +12412,19 @@ sound/BGM/custom/Shuta Sueyoshi,ISSA - Over ＂Quartzer＂.mp3	96563d03614729b67
 sound/BGM/custom/StarofBaghdad.mp3	8b66f0d220a58f1ed55ead4089b6e80e
 sound/BGM/custom/Sweet Little Sister.mp3	6b9b9de77e58331af1bf257161df5029
 sound/BGM/custom/Sweets Time.mp3	d77d6fda103ead3f194a5a29c65ba745
+sound/BGM/custom/Tenka-3016.mp3	aa37e7c645aabf96054284ffae6f961d
 sound/BGM/custom/Tenka-BrainPower.mp3	87845a2177b350a6972393269b9c8b26
+sound/BGM/custom/Tenka-Candypot.mp3	93a63f7215b0efab72ad096ad6f1abe9
 sound/BGM/custom/Tenka-Crystal.mp3	60bb06829eaad772aa806582909a9c17
+sound/BGM/custom/Tenka-GLORIOUSDAYS.mp3	8c944acca104e839a8a050ac326d54f9
 sound/BGM/custom/Tenka-KuaiDianZhouDong.mp3	0e8463afb7bc19f68958023671ef273c
+sound/BGM/custom/Tenka-SnowyHeart.mp3	2655087ff3c461d0e8f1733a1472292a
+sound/BGM/custom/Tenka-SpaceofSoul.mp3	37a1e520fb46b1924a983bbd78801d39
 sound/BGM/custom/Tenka-SuperSonic.mp3	65d19c98bddd59fc0435a52d095dfd08
 sound/BGM/custom/Tenka-VinterenIntethet.mp3	ee71e0c9fb9c1a5cd2fc0481b8b8be6f
 sound/BGM/custom/Tenka-elegante.mp3	e3af4f0b1562a171bb3f3b75f01c70bb
 sound/BGM/custom/Tenka-emoren.mp3	9af5c910f5357c3ae92c036b732d5eb6
+sound/BGM/custom/Tenka-yuiko.mp3	e7c9a336bc0b8c0b77062f6d26c689e8
 sound/BGM/custom/ThreeTimesaLady.mp3	32224b5df7c60533df04d32f768c7699
 sound/BGM/custom/Tomaru Susumu.mp3	a49c74a6866fb0cb346816becd5ce685
 sound/BGM/custom/Trilogy.mp3	4c9e90d86a84d40478bf0aa999091ed8
@@ -12696,6 +12743,11 @@ sound/custom/vo_112831010_1.wav	e92a0ee3bb4432563e50cfcb4c06786d
 sound/custom/vo_112831010_2.wav	7d54d06d9651205c024ef40281ad73e7
 sound/custom/vo_112831010_3.wav	51b503dfc6e0d84599736315ee7dd130
 sound/custom/vo_112831010_4.wav	892060e6e4fb55680c705d98cbe287be
+sound/custom/vo_113541020_1.wav	ff14d6307f75f31c5049ae327008abcf
+sound/custom/vo_113541020_2.wav	29c1032f2c4c8f87a633cf5244c80486
+sound/custom/vo_113541020_3.wav	73ff0cf54dc3f1638fba6ec279a12e47
+sound/custom/vo_113541020_4.wav	ec263ca54359b4211813f04a491dabef
+sound/custom/vo_113541020_5.wav	06a7d30690515247153dd73546dd5458
 sound/custom/vo_703241010_1.wav	0095251e4a1d4fa52b842d8997670f6d
 sound/custom/vo_703241010_2.wav	30fc93113a727120673f4d18cac9936e
 sound/custom/vo_703241010_3.wav	667f9351cb0b18545a05453fc4ec5109
@@ -12704,6 +12756,11 @@ sound/custom/vo_704241010_1.wav	2229f1917d0617563f52571511c31607
 sound/custom/vo_704241010_2.wav	9dbc0dda19935c5c927e3edcd2e3f22b
 sound/custom/vo_704241010_3.wav	57f129f8f89b1b0d82f456cd51203ff0
 sound/custom/vo_704241010_4.wav	32451bd6609c5fd21fb461b30f2f2b11
+sound/custom/vo_706541010_1.wav	699fac93114ba312f85cda3388e6364d
+sound/custom/vo_706541010_2.wav	93155877001418dc616a5a1be2c2d5ea
+sound/custom/vo_706541010_3.wav	e888b0e8ea100d0892774f50bd365cb4
+sound/custom/vo_706541010_4.wav	a9b5e3f2af9d986e7218ece4ed57c431
+sound/custom/vo_706541010_5.wav	2def2630767f14b647412d5dca7ef1e6
 sound/custom/vo_900011050_1.wav	5e49b20a0ae591a2a3ae90879c97b466
 sound/custom/vo_900011050_2.wav	e7a0b7d60f06d714bd973000301791b9
 sound/custom/vo_900011050_3.wav	2bd5309fd497335fbe87ae987e14ff26
@@ -12739,10 +12796,10 @@ sound/custom/yata_effe01.wav	edf949c75a32c7b91f6029a6e6640ea6
 sound/custom/yata_summon.wav	17b569892284748d19f441e6972d6cce
 sound/custom/出场.wav	3f039c09531dfb96d3e637bfc1ed49ed
 update/delete.txt	bcae307f6039207f11b4daa83f17c0ec
-update/filelist.txt	62d2d1c24c47ed1904ed08bf667ad907
+update/filelist.txt	b357051c80b54ee3962c6b4698a5752b
 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	a731c74d9fa14b80d278af9f50ffcdff
+update/version.txt	d349db84c2025c831703ed5ce4bb1ceb

update/version.txt

-2019/7/23 22:19:17
\ No newline at end of file
+2019/8/5 16:13:08
\ No newline at end of file