datain

deck/2019.11.17_new_card1.ydk

-#created by ... 
-#main 
-1000378
-1000400
-1000401
-1000402
-1000403
-1000404
-1000405
-1000406
-1000407
-1000408
-1000409
-1000410
-1000411
-1000412
-1000413
-1000414
-1000415
-1000416
-1000417
-1000418
-1000419
-1000420
-1000421
-1000422
-1000424
-1000425
-1000428
-1111029
-10907000
-10907001
-10907002
-10907003
-10907004
-10907005
-11200029
-11200030
-11200032
-11200039
-11200040
-11200041
-11200044
-11200046
-11200048
-11200049
-17029903
-17030001
-17030002
-17030003
-17030004
-17030005
-17030006
-17030007
-17030008
-#extra 
-1000361
-1000362
-1000363
-1000364
-1000371
-1000376
-1000427
-1195011
-10907006
-11200031
-11200033
-11200034
-11200047

deck/2019.11.17_new_card2.ydk

-#created by ... 
-#main 
-17030009
-17030010
-17030011
-17030012
-17030013
-17030022
-17030023
-17030024
-17030026
-17030028
-17030029
-17030031
-17030032
-17030033
-17030035
-17030036
-17030037
-17030038
-17030039
-17030040
-17030041
-17030042
-17030043
-17030044
-17030045
-17030047
-17030048
-17030049
-17030054
-17030056
-17030057
-17030058
-17030059
-17061155
-17061156
-17061157
-26802006
-26807001
-26807005
-26807007
-26807013
-26808006
-26808007
-26809027
-26809029
-26809030
-26810016
-26810017
-26810018
-26810019
-33400259
-33400320
-33400321
-#extra 
-17030014
-17030015
-17030016
-17030017
-17030018
-17030019
-17030020
-17030021
-17030030
-17030034
-17030046
-17030050
-17030051

deck/2019.11.17_new_card3.ydk

-#created by ... 
-#main 
-33400360
-33400361
-33400362
-33400401
-33400404
-33400405
-33400412
-33400413
-33400414
-33400427
-33400429
-33400430
-33400431
-33400464
-33400473
-33400474
-33401301
-65040043
-65040044
-65040045
-65040046
-65040047
-65050017
-65050018
-65050019
-65050193
-65050195
-65059999
-65071005
-65071055
-65071066
-65071067
-65071070
-65071158
-65071159
-81006001
-81006002
-81010000
-81010028
-81012006
-81012037
-81014030
-81015005
-81016014
-81017020
-81018024
-81021001
-81021003
-81022005
-81040003
-81040010
-81040012
-#extra 
-17030052
-17030053
-26802004
-26806057
-26807009
-26807010
-26807014
-26808008
-26809025
-26809026
-26809028
-26810020
-33330103

deck/2019.11.17_new_card4.ydk

-#created by ... 
-#main 
-#extra 
-33330107
-33400035
-33400220
-33400305
-33400314
-33400406
-33400407
-33400408
-33400409
-33400410
-33400411
-33400426
-33401308

deck/2019.11.17_new_card5.ydk

-#created by ... 
-#main 
-#extra 
-33401309
-33401313
-65040041
-65040042
-65050200
-65050202
-65050204
-65050206
-81006006
-81007031
-81011002
-81011020
-81013005

deck/2019.11.17_new_card6.ydk

-#created by ... 
-#main 
-#extra 
-81013007
-81015009
-81015016
-81015042
-81017004
-81017005
-81017010
-81017021
-81018005
-81018027
-81021005
-81040037

deck/2019.12.2_new_card1.ydk

+#created by ... 
+#main 
+1197001
+9910101
+9910103
+9910104
+9910108
+9910109
+9910110
+9910113
+9910114
+9910115
+9910116
+9910119
+9910120
+9910122
+9910123
+9910124
+9910127
+9910130
+9910132
+9910136
+9910137
+9910139
+9910142
+9910143
+9910144
+9910145
+9910147
+9910148
+9910149
+9910152
+9910153
+9910251
+9910252
+9910253
+9910255
+9910256
+9910258
+9910260
+9910261
+9910262
+9910263
+9910264
+11200039
+11200044
+11200048
+11200105
+11200112
+11200210
+17091005
+17091006
+21520101
+21520102
+21520103
+21520104
+21520105
+21520106
+21520107
+21520108
+#extra 
+9910105
+9910112
+9910117
+9910121
+9910126
+9910129
+9910134
+9910140
+9910141
+9910150
+9910154
+9910155
+11200088
+17050933

deck/2019.12.2_new_card2.ydk

+#created by ... 
+#main 
+21520109
+21520110
+21520111
+21520112
+21520113
+21520114
+21520115
+21520116
+21520117
+21520118
+21520119
+21520120
+21520121
+21520122
+21520123
+21520124
+21520125
+21520126
+21520127
+21520128
+21520129
+21520130
+21520131
+21520132
+21520133
+21520134
+21520135
+21520136
+21520137
+21520138
+21520139
+21520140
+21520141
+21520142
+21520143
+21520144
+21520145
+21520146
+21520147
+21520148
+21520149
+21520150
+21520151
+21520152
+21520153
+21520154
+21520155
+21520156
+21520239
+21520240
+26805008
+26806007
+26806010
+26806059
+26807030
+26807059
+26809006
+#extra 
+17060870
+17060882
+17060883
+17060884
+17060890
+17060907
+17060910
+17091003
+21520157
+21520158
+21520159
+21520160
+21520211
+21520212

deck/2019.12.2_new_card3.ydk

+#created by ... 
+#main 
+26809031
+30000200
+30000205
+65050001
+65050006
+65050008
+65050010
+81003004
+81005003
+81006036
+81010003
+81010041
+81010047
+81010056
+81011027
+81011033
+81015051
+81018046
+81018047
+81019002
+82206000
+82206001
+82206002
+82206003
+82206011
+82206012
+82206013
+82206014
+82206015
+82206016
+82206017
+82206018
+82206019
+82206020
+82206021
+82206024
+82206025
+82206026
+82207000
+82207005
+82207006
+82207007
+82207008
+82221045
+82221055
+82221057
+82221058
+82224001
+82224003
+82224004
+82224017
+82224019
+82224020
+82224444
+82228498
+82228499
+82299999
+#extra 
+21520213
+21520214
+21520215
+21520216
+21520217
+21520218
+21520219
+21520220
+21520221
+21520222
+21520223
+21520224
+21520225
+21520226

deck/2019.12.2_new_card4.ydk

+#created by ... 
+#main 
+#extra 
+21520227
+21520228
+21520229
+21520230
+21520231
+21520232
+21520233
+21520234
+21520235
+21520236
+21520237
+21520238
+26806011
+26806020

deck/2019.12.2_new_card5.ydk

+#created by ... 
+#main 
+#extra 
+26806058
+26809032
+75646535
+75646536
+81000003
+81003001
+81003002
+81003003
+81005001
+81005002
+81011039
+81011040
+81012068

deck/2019.12.2_new_card6.ydk

+#created by ... 
+#main 
+#extra 
+82206005
+82206006
+82206007
+82206008
+82207001
+82207002
+82207003
+82207004
+82224006
+82224011
+82224023
+82228497
+98600008

expansions/script/c11200039.lua

@@ -17,16 +17,15 @@ function c11200039.initial_effect(c)
 	e2:SetTarget(c11200039.drtg)
 	e2:SetOperation(c11200039.drop)
 	c:RegisterEffect(e2)
-	--spsummon
+	--special summon
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetProperty(EFFECT_FLAG_NO_TURN_RESET)
 	e3:SetRange(LOCATION_FZONE)
-	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e3:SetCountLimit(1,11200039)
-	e3:SetCost(c11200039.spcost2)
-	e3:SetTarget(c11200039.target)
-	e3:SetOperation(c11200039.activate)
+	e3:SetTarget(c11200039.sptg)
+	e3:SetOperation(c11200039.spop)
 	c:RegisterEffect(e3)
 end
 function c11200039.cfilter(c)
@@ -46,65 +45,19 @@ function c11200039.drop(e,tp,eg,ep,ev,re,r,rp)
 	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
 	Duel.Recover(p,d,REASON_EFFECT)
 end
-function c11200039.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
-	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+function c11200039.spfilter(c,e,tp)
+	return c:IsCode(11200029) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
-function c11200039.filter(c,e,tp)
-	return c:IsCanBeEffectTarget(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCode(11200029)
+function c11200039.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c11200039.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
 end
-function c11200039.xyzfilter(c,mg)
-	return c:IsRace(RACE_AQUA) and c:IsRank(2) and c:IsXyzSummonable(mg,2,2)
-end
-function c11200039.mfilter1(c,mg,exg)
-	return mg:IsExists(c11200039.mfilter2,1,c,c,exg)
-end
-function c11200039.mfilter2(c,mc,exg)
-	return exg:IsExists(Card.IsXyzSummonable,1,nil,Group.FromCards(c,mc))
-end
-function c11200039.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return false end
-	local mg=Duel.GetMatchingGroup(c11200039.filter,tp,LOCATION_GRAVE,0,nil,e,tp)
-	local exg=Duel.GetMatchingGroup(c11200039.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg)
-	if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2)
-		and not Duel.IsPlayerAffectedByEffect(tp,59822133)
-		and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
-		and exg:GetCount()>0 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local sg1=mg:FilterSelect(tp,c11200039.mfilter1,1,1,nil,mg,exg)
-	local tc1=sg1:GetFirst()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local sg2=mg:FilterSelect(tp,c11200039.mfilter2,1,1,tc1,tc1,exg)
-	sg1:Merge(sg2)
-	Duel.SetTargetCard(sg1)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg1,2,0,0)
-end
-function c11200039.filter2(c,e,tp)
-	return c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c11200039.activate(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c11200039.filter2,nil,e,tp)
-	if g:GetCount()<2 then return end
-	local tc=g:GetFirst()
-	while tc do
-		Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e1)
-		local e2=e1:Clone()
-		e2:SetCode(EFFECT_DISABLE_EFFECT)
-		tc:RegisterEffect(e2)
-		tc=g:GetNext()
-	end
-	Duel.SpecialSummonComplete()
-	local xyzg=Duel.GetMatchingGroup(c11200039.xyzfilter,tp,LOCATION_EXTRA,0,nil,g)
-	if xyzg:GetCount()>0 then
+function c11200039.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 xyz=xyzg:Select(tp,1,1,nil):GetFirst()
-		Duel.XyzSummon(tp,xyz,g)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c11200039.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 	end
 end

expansions/script/c11200048.lua

@@ -7,7 +7,6 @@ function c11200048.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCountLimit(1,11200048)
 	e1:SetTarget(c11200048.target)
 	e1:SetOperation(c11200048.operation)
 	c:RegisterEffect(e1)

expansions/script/c11200088.lua

@@ -3,15 +3,14 @@ function c11200088.initial_effect(c)
 	--fusion material
 	c:EnableReviveLimit()
 	aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionAttribute,ATTRIBUTE_FIRE),3,false)
-	--equip
+	--remove
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_EQUIP)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1,11200088)
-	e1:SetCost(c11200088.eqcost)
-	e1:SetTarget(c11200088.eqtg)
-	e1:SetOperation(c11200088.eqop)
+	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetTarget(c11200088.target)
+	e1:SetOperation(c11200088.operation)
 	c:RegisterEffect(e1)
 	--spsummon
 	local e2=Effect.CreateEffect(c)
@@ -19,7 +18,7 @@ function c11200088.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_REMOVE)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCountLimit(1,11209088)
+	e2:SetCountLimit(1,11200088)
 	e2:SetTarget(c11200088.sptg)
 	e2:SetOperation(c11200088.spop)
 	c:RegisterEffect(e2)
@@ -43,38 +42,28 @@ function c11200088.initial_effect(c)
 	e4:SetCondition(c11200088.actcon)
 	c:RegisterEffect(e4)
 end
-function c11200088.costfilter(c,tp)
-	return c:IsCode(11200103,11200104) and c:IsAbleToDeckAsCost()
+function c11200088.filter(c)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsAbleToRemove()
 end
-function c11200088.eqcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c11200088.costfilter,tp,LOCATION_REMOVED,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,c11200088.costfilter,tp,LOCATION_REMOVED,0,1,1,nil)
-	Duel.SendtoDeck(g,nil,2,REASON_COST)
+function c11200088.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11200088.filter,tp,LOCATION_EXTRA,LOCATION_EXTRA,1,nil) end
+	local g=Duel.GetMatchingGroup(c11200088.filter,tp,LOCATION_EXTRA,LOCATION_EXTRA,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
 end
-function c11200088.eqfilter(c,ec)
-	return c:IsType(TYPE_EQUIP) and c:CheckEquipTarget(ec)
-end
-function c11200088.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
-		and Duel.IsExistingMatchingCard(c11200088.eqfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e:GetHandler()) end
-	Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)
-end
-function c11200088.eqop(e,tp,eg,ep,ev,re,r,rp)
+function c11200088.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c11200088.filter,tp,LOCATION_EXTRA,LOCATION_EXTRA,nil)
+	local ct=Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
 	local c=e:GetHandler()
-	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or c:IsFacedown() or not c:IsRelateToEffect(e) then return end
-	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(11200088,1))
-	local g=Duel.SelectMatchingCard(tp,c11200088.eqfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,c)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.Equip(tp,tc,c)
+	if ct>0 and c:IsFaceup() and c:IsRelateToEffect(e) then
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
-		e1:SetValue(LOCATION_HAND)
-		tc:RegisterEffect(e1)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+		e1:SetValue(ct*300)
+		c:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_UPDATE_DEFENSE)
+		c:RegisterEffect(e2)
 	end
 end
 function c11200088.sptg(e,tp,eg,ep,ev,re,r,rp,chk)

expansions/script/c11200105.lua

@@ -45,8 +45,11 @@ function c11200105.activate(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)
 	end
 end
+function c11200105.nfilter(c)
+	return c:IsFaceup() and (c:IsType(TYPE_RITUAL) or c:IsType(TYPE_FUSION)) and c:IsAttribute(ATTRIBUTE_FIRE)
+end
 function c11200105.actcon(e)
-	return Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandlerPlayer(),LOCATION_REMOVED,0,1,nil,11200103) or Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandlerPlayer(),LOCATION_REMOVED,0,1,nil,11200104)
+	return Duel.IsExistingMatchingCard(c11200105.nfilter,e:GetHandlerPlayer(),LOCATION_REMOVED,0,1,nil)
 end
 function c11200105.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0

expansions/script/c11200112.lua

@@ -8,22 +8,22 @@ function c11200112.initial_effect(c)
 	e1:SetTarget(c11200112.target)
 	e1:SetOperation(c11200112.activate)
 	c:RegisterEffect(e1)
-	--spsummon
+	--fusion summon
 	local e2=Effect.CreateEffect(c)
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCode(EVENT_REMOVE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_REMOVED)
 	e2:SetCountLimit(1,11200112)
-	e2:SetTarget(c11200112.ktarget)
-	e2:SetOperation(c11200112.kactivate)
+	e2:SetCost(c11200112.pspcost)
+	e2:SetTarget(c11200112.psptg)
+	e2:SetOperation(c11200112.pspop)
 	c:RegisterEffect(e2)
 end
 function c11200112.filter1(c,e)
 	return not c:IsImmuneToEffect(e)
 end
 function c11200112.filter2(c,e,tp,m,f,chkf)
-	return c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_SPELLCASTER) and (not f or f(c))
+	return c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_FIRE) and (not f or f(c))
 		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
 end
 function c11200112.target(e,tp,eg,ep,ev,re,r,rp,chk)
@@ -77,49 +77,52 @@ function c11200112.activate(e,tp,eg,ep,ev,re,r,rp)
 		tc:CompleteProcedure()
 	end
 end
-function c11200112.kfilter0(c)
-	return c:IsFaceup() and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
+function c11200112.pspcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+	Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_COST)
+end
+function c11200112.pfilter0(c)
+	return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
 end
-function c11200112.kfilter1(c,e)
-	return c:IsFaceup() and c:IsCanBeFusionMaterial() and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
+function c11200112.pfilter1(c,e)
+	return c:IsFaceup() and c:IsType(TYPE_MONSTER) and not c:IsImmuneToEffect(e) and c:IsAbleToDeck()
 end
-function c11200112.kfilter2(c,e,tp,m,f,chkf)
+function c11200112.pfilter2(c,e,tp,m,f,chkf)
 	return c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_SPELLCASTER) and (not f or f(c))
 		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
 end
-function c11200112.kfilter3(c)
-	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
-end
-function c11200112.ktarget(e,tp,eg,ep,ev,re,r,rp,chk)
+function c11200112.psptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		local chkf=tp
-		local mg=Duel.GetMatchingGroup(c11200112.kfilter0,tp,LOCATION_REMOVED,0,nil)
-		local res=Duel.IsExistingMatchingCard(c11200112.kfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,nil,chkf)
+		local mg1=Duel.GetMatchingGroup(c11200112.pfilter0,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
+		local res=Duel.IsExistingMatchingCard(c11200112.pfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
 		if not res then
 			local ce=Duel.GetChainMaterial(tp)
 			if ce~=nil then
 				local fgroup=ce:GetTarget()
-				local mg3=fgroup(ce,e,tp)
+				local mg2=fgroup(ce,e,tp)
 				local mf=ce:GetValue()
-				res=Duel.IsExistingMatchingCard(c11200112.kfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf)
+				res=Duel.IsExistingMatchingCard(c11200112.pfilter2,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_GRAVE+LOCATION_REMOVED)
 end
-function c11200112.kactivate(e,tp,eg,ep,ev,re,r,rp)
+function c11200112.pspop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
 	local chkf=tp
-	local mg=Duel.GetMatchingGroup(c11200112.kfilter1,tp,LOCATION_REMOVED,0,nil,e)
-	local sg1=Duel.GetMatchingGroup(c11200112.kfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,nil,chkf)
-	local mg3=nil
+	local mg1=Duel.GetMatchingGroup(c11200112.pfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e)
+	local sg1=Duel.GetMatchingGroup(c11200112.pfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
+	local mg2=nil
 	local sg2=nil
 	local ce=Duel.GetChainMaterial(tp)
 	if ce~=nil then
 		local fgroup=ce:GetTarget()
-		mg3=fgroup(ce,e,tp)
+		mg2=fgroup(ce,e,tp)
 		local mf=ce:GetValue()
-		sg2=Duel.GetMatchingGroup(c11200112.kfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf)
+		sg2=Duel.GetMatchingGroup(c11200112.pfilter2,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()
@@ -127,47 +130,48 @@ function c11200112.kactivate(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 		local tg=sg:Select(tp,1,1,nil)
 		local tc=tg:GetFirst()
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
-		e1:SetValue(0)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
-		tc:RegisterEffect(e1)
-		local e2=e1:Clone()
-		e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
-		tc:RegisterEffect(e2)
 		if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
-			local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf)
-			tc:SetMaterial(mat)
-			Duel.SendtoDeck(mat,nil,2,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
+			local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
+			tc:SetMaterial(mat1)
+			Duel.SendtoDeck(mat1,nil,2,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
 			Duel.BreakEffect()
-			Duel.SpecialSummonStep(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
-				local e1=Effect.CreateEffect(e:GetHandler())
+			Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+		else
+			local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
+			local fop=ce:GetOperation()
+			fop(ce,e,tp,tc,mat2)
+		end
+		tc:RegisterFlagEffect(11200112,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,fid)
+		tc:CompleteProcedure()
+		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 		e1:SetCode(EVENT_PHASE+PHASE_END)
-				e1:SetCountLimit(1)
 		e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+		e1:SetCountLimit(1)
+		e1:SetLabel(fid)
 		e1:SetLabelObject(tc)
 		e1:SetCondition(c11200112.rmcon)
 		e1:SetOperation(c11200112.rmop)
-				e1:SetLabel(Duel.GetTurnCount())
-				e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,2)
+		e1:SetReset(RESET_PHASE+PHASE_END)
 		Duel.RegisterEffect(e1,tp)
-			Duel.SpecialSummonComplete()
-			tc:RegisterFlagEffect(11200112,RESET_EVENT+RESETS_STANDARD,0,1)
-		else
-			local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
-			local fop=ce:GetOperation()
-			fop(ce,e,tp,tc,mat2)
-		end
-		tc:CompleteProcedure()
+		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(c11200112.splimit)
+		e2:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e2,tp)
 	end
 end
 function c11200112.rmcon(e,tp,eg,ep,ev,re,r,rp)
 	local tc=e:GetLabelObject()
-	return Duel.GetTurnPlayer()==tp and Duel.GetTurnCount()~=e:GetLabel() and tc:GetFlagEffect(11200112)~=0
+	return tc:GetFlagEffectLabel(11200112)==e:GetLabel()
 end
 function c11200112.rmop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=e:GetLabelObject()
 	Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
 end
+function c11200112.splimit(e,c)
+	return not c:IsType(TYPE_FUSION) and c:IsLocation(LOCATION_EXTRA)
+end

expansions/script/c11200210.lua

@@ -48,6 +48,9 @@ end
 function c11200210.subcon(e)
 	return e:GetHandler():IsLocation(LOCATION_ONFIELD)
 end
+function c11200210.nfilter(c)
+	return c:IsFaceup() and (c:IsType(TYPE_RITUAL) or c:IsType(TYPE_FUSION)) and c:IsAttribute(ATTRIBUTE_FIRE)
+end
 function c11200210.actcon(e)
-	return Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandlerPlayer(),LOCATION_REMOVED,0,1,nil,11200103) or Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandlerPlayer(),LOCATION_REMOVED,0,1,nil,11200104)
+	return Duel.IsExistingMatchingCard(c11200210.nfilter,e:GetHandlerPlayer(),LOCATION_REMOVED,0,1,nil)
 end

expansions/script/c1197001.lua

+--受托之愿·梅特蕾
+function c1197001.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET) 
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,1197001)
+	e1:SetTarget(c1197001.tg1)
+	e1:SetOperation(c1197001.op1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(1197001,0))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_TODECK+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,1197001+500)
+	e2:SetCondition(c1197001.con2)
+	e2:SetCost(c1197001.cost2)
+	e2:SetTarget(c1197001.tg2)
+	e2:SetOperation(c1197001.op2)
+	c:RegisterEffect(e2)
+--
+end
+--
+function c1197001.tfilter(c,tp)
+	return c:IsFaceup() and c:IsAbleToHand()
+		and c:IsRace(RACE_SEASERPENT) and Duel.GetMZoneCount(tp,c,tp)>0
+end
+function c1197001.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c1197001.tfilter(chkc,tp) end
+	if chk==0 then
+		return Duel.GetMZoneCount(tp)>0
+			and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
+			and Duel.IsExistingTarget(c1197001.tfilter,tp,LOCATION_MZONE,0,1,nil,tp)
+	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,c1197001.tfilter,tp,LOCATION_MZONE,0,1,1,nil,tp)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,tp,LOCATION_MZONE)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+--
+function c1197001.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if not c:IsRelateToEffect(e) then return end
+	if not tc:IsRelateToEffect(e) then return end
+	if Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 then
+		if Duel.GetMZoneCount(tp)<1 then return end
+		if c:IsCanBeSpecialSummoned(e,0,tp,false,false) then
+			Duel.BreakEffect()
+			if Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
+				c:RegisterFlagEffect(1197001,RESET_EVENT+0x1fe0000,0,1)
+				Duel.SpecialSummonComplete()
+			end
+		end
+	end
+end
+--
+function c1197001.con2(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetFlagEffect(1197001)>0
+end
+--
+function c1197001.cfilter2(c,tc)
+	return (c==tc and c:IsReleasable()) or (c:IsLocation(LOCATION_HAND) and c:IsDiscardable() and c:IsRace(RACE_SEASERPENT))
+end
+function c1197001.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingMatchingCard(c1197001.cfilter2,tp,LOCATION_MZONE+LOCATION_HAND,0,1,nil,c) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELF)
+	local g=Duel.SelectMatchingCard(tp,c1197001.cfilter2,tp,LOCATION_MZONE+LOCATION_HAND,0,1,1,nil,c)
+	if c==g:GetFirst() then Duel.Release(g,REASON_COST)
+	else Duel.SendtoGrave(g,REASON_DISCARD+REASON_COST) end
+end
+--
+function c1197001.tg2(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 c1197001.op2(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/c17060870.lua

@@ -3,11 +3,11 @@ local m=17060870
 local cm=_G["c"..m]
 function cm.initial_effect(c)
 	--link summon
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_PENDULUM),2,2,cm.lcheck)
+	aux.AddLinkProcedure(c,nil,2,2,cm.lcheck)
 	c:EnableReviveLimit()
 	--sp summon
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetDescription(aux.Stringid(17060870,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
@@ -18,7 +18,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 	--cannot be target/battle indestructable
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetDescription(aux.Stringid(17060870,1))
 	e2:SetType(EFFECT_TYPE_FIELD)
 	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
 	e2:SetRange(LOCATION_MZONE)

expansions/script/c17060882.lua

@@ -5,16 +5,13 @@ function cm.initial_effect(c)
 	--link summon
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_EFFECT),2)
 	c:EnableReviveLimit()
-	--destroy replace
+	--summon success
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EFFECT_DESTROY_REPLACE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCondition(cm.descon)
-	e1:SetTarget(cm.reptg)
-	e1:SetValue(cm.repval)
-	e1:SetOperation(cm.repop)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCondition(cm.regcon)
+	e1:SetOperation(cm.regop)
 	c:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE)
@@ -28,17 +25,34 @@ function cm.initial_effect(c)
 	e3:SetCategory(CATEGORY_CONTROL)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e3:SetCode(EVENT_DAMAGE_STEP_END)
-	e3:SetCountLimit(1,m)
 	e3:SetCondition(cm.rmcon)
 	e3:SetTarget(cm.rmtg)
 	e3:SetOperation(cm.rmop)
 	c:RegisterEffect(e3)
+	--destroy replace
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EFFECT_DESTROY_REPLACE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCondition(cm.descon)
+	e4:SetTarget(cm.reptg)
+	e4:SetValue(cm.repval)
+	e4:SetOperation(cm.repop)
+	c:RegisterEffect(e4)
 end
 cm.is_named_with_domovo_i=1
 cm.is_named_with_Ma_Elf=1
-function cm.descon(e,tp,eg,ep,ev,re,r,rp)
+function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK) and e:GetLabel()==1
 end
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	c:RegisterFlagEffect(17060882,RESET_EVENT+RESETS_STANDARD,0,1)
+	c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(17060882,2))
+end
+function cm.descon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetFlagEffect(17060882)>0
+end
 function cm.valcheck(e,c)
 	local g=c:GetMaterial()
 	if g:IsExists(Card.IsType,1,nil,TYPE_PENDULUM) then
@@ -49,13 +63,14 @@ function cm.valcheck(e,c)
 end
 function cm.repfilter(c,tp,hc)
 	return c:IsFaceup() and c:IsLocation(LOCATION_MZONE)
-		and (c:IsControler(tp) or c:IsControler(1-tp)) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and hc:GetLinkedGroup():IsContains(c)
+		and (c:IsReason(REASON_BATTLE) or (c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()==1-tp)) and hc:GetLinkedGroup():IsContains(c)
 end
 function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
 	if chk==0 then return ((Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
 	or (Duel.CheckLocation(1-tp,LOCATION_PZONE,0) or Duel.CheckLocation(1-tp,LOCATION_PZONE,1))) 
 	and eg:IsExists(cm.repfilter,1,nil,tp,e:GetHandler()) end
-	return Duel.SelectYesNo(tp,aux.Stringid(m,2))
+	return Duel.SelectEffectYesNo(tp,c,96)
 end
 function cm.repval(e,c)
 	return cm.repfilter(c,e:GetHandlerPlayer(),e:GetHandler())
@@ -64,19 +79,25 @@ function cm.psfilter(c)
 	return c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
 end
 function cm.repop(e,tp,eg,ep,ev,re,r,rp)
+	local b1=(Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
+	local b2=(Duel.CheckLocation(1-tp,LOCATION_PZONE,0) or Duel.CheckLocation(1-tp,LOCATION_PZONE,1))
+	local off=1
+	local ops={}
+	local opval={}
+	if b1 then
+		ops[off]=aux.Stringid(17060882,0)
+		opval[off-1]=1
+		off=off+1
+	end
+	if b2 then
+		ops[off]=aux.Stringid(17060882,1)
+		opval[off-1]=2
+		off=off+1
+	end
+		local op=Duel.SelectOption(tp,table.unpack(ops))
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
 		local g=Duel.SelectMatchingCard(tp,cm.psfilter,tp,LOCATION_DECK,0,1,1,nil)
 		if g:GetCount()>0 then
-	local b1=(Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
-	local b2=(Duel.CheckLocation(1-tp,LOCATION_PZONE,0) or Duel.CheckLocation(1-tp,LOCATION_PZONE,1))
-	local op=0
-	if b1 and b2 then
-		op=Duel.SelectOption(tp,aux.Stringid(m,3),aux.Stringid(m,4))
-	elseif b1 then
-		op=Duel.SelectOption(tp,aux.Stringid(m,3))
-	elseif b2 then
-		op=Duel.SelectOption(tp,aux.Stringid(m,4))+1
-	else return end
 		if op==0 then
 			Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true)
 		else 

expansions/script/c17060883.lua

@@ -33,32 +33,16 @@ function cm.initial_effect(c)
 	e5:SetCode(EVENT_FREE_CHAIN)
 	e5:SetRange(LOCATION_MZONE)
 	e5:SetHintTiming(0,0x1e0)
-	e5:SetCountLimit(1,m)
+	e5:SetCountLimit(1,17060883)
 	e5:SetCondition(cm.ctcon)
 	e5:SetTarget(cm.cttg)
 	e5:SetOperation(cm.ctop)
 	c:RegisterEffect(e5)
-	--
-	if not Card.IsLinkState then
-		function Card.IsLinkState(c)
-			if not c then return false end
-			if c:IsType(TYPE_LINK) and c:GetLinkedGroupCount()>0 then return true end
-			local g=Duel.GetMatchingGroup(Card.IsType,0,LOCATION_MZONE,LOCATION_MZONE,nil,TYPE_LINK)
-			local lc=g:GetFirst()
-			while lc do
-				local lg=lc:GetLinkedGroup()
-				if lg and lg:IsContains(c) then return true end
-				lc=g:GetNext()
-			end
-			return false
-		end
-	end
 end
 cm.is_named_with_domovo_i=1
 cm.is_named_with_Ma_Elf=1
 function cm.incon(e)
-	local c=e:GetHandler()
-	return c:IsLinkState()
+	return e:GetHandler():IsLinkState()
 end
 function cm.atlimit(e,c)
 	return c~=e:GetHandler()

expansions/script/c17060884.lua

@@ -11,19 +11,15 @@ function cm.initial_effect(c)
 	e0:SetCode(EFFECT_EXTRA_ATTACK)
 	e0:SetValue(cm.ctval)
 	c:RegisterEffect(e0)
-	--eff
+	--indes
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e1:SetRange(LOCATION_MZONE)
-	e1:SetCode(EFFECT_IMMUNE_EFFECT)
-	e1:SetValue(cm.efilter)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
 	e1:SetCondition(cm.efcon)
+	e1:SetValue(1)
 	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-	e2:SetValue(1)
-	c:RegisterEffect(e2)
 	--atk
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE)
@@ -35,7 +31,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e3)
 	--negate+copy
 	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(m,3))
+	e4:SetDescription(aux.Stringid(17060884,0))
 	e4:SetCategory(CATEGORY_DISABLE+CATEGORY_CONTROL)
 	e4:SetType(EFFECT_TYPE_QUICK_O)
 	e4:SetCode(EVENT_FREE_CHAIN)
@@ -72,13 +68,15 @@ function cm.necon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():GetMutualLinkedGroupCount()>=3
 end
 function cm.necost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():GetFlagEffect(m)==0 end
-	e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
+	if chk==0 then return e:GetHandler():GetFlagEffect(17060884)==0 end
+	e:GetHandler():RegisterFlagEffect(17060884,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
+end
+function c6958551.filter(c)
+	return c:IsFaceup() and c:IsControlerCanBeChanged()
 end
-
 function cm.netg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsControlerCanBeChanged() end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c6958551.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c6958551.filter,tp,0,LOCATION_MZONE,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
 	local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)
 	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)

expansions/script/c17060890.lua

@@ -65,7 +65,7 @@ function c17060890.filter(c,e,tp,zone)
 	return c:IsType(TYPE_PENDULUM) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)
 end
 function c17060890.scfilter(c,pc)
-	return c:GetLeftScale()>=3
+	return c:GetLeftScale()~=1
 end
 function c17060890.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chkc then return chkc:IsLocation(LOCATION_PZONE) and chkc:IsControler(tp) and c17060890.scfilter(chkc) end
@@ -79,15 +79,15 @@ function c17060890.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function c17060890.spop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and tc:GetLeftScale()>=3 then
+	if tc:IsRelateToEffect(e) and tc:GetLeftScale()~=1 then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_LSCALE)
-		e1:SetValue(-3)
+		e1:SetCode(EFFECT_CHANGE_LSCALE)
+		e1:SetValue(1)
 		e1:SetReset(RESET_EVENT+0x1fe0000)
 		tc:RegisterEffect(e1)
 		local e2=e1:Clone()
-		e2:SetCode(EFFECT_UPDATE_RSCALE)
+		e2:SetCode(EFFECT_CHANGE_RSCALE)
 		tc:RegisterEffect(e2)
 		local zone=e:GetHandler():GetLinkedZone()
 		if zone==0 then return end

expansions/script/c17060910.lua

@@ -15,7 +15,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 	--des
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetDescription(aux.Stringid(17060910,0))
 	e2:SetCategory(CATEGORY_DESTROY)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_FREE_CHAIN)

expansions/script/c17091003.lua

 --ユニコーンガンダム バンシー
 function c17091003.initial_effect(c)
 	--link summon
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2)
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_MACHINE),2)
 	c:EnableReviveLimit()
+	--FTK
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(17091003,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 	e1:SetProperty(EFFECT_FLAG_DELAY)
 	e1:SetCode(EVENT_SUMMON_SUCCESS)
 	e1:SetRange(LOCATION_MZONE)
-	e1:SetCountLimit(1)
+	e1:SetCountLimit(1,17091003)
 	e1:SetCondition(c17091003.atkcon)
 	e1:SetOperation(c17091003.atkop)
 	c:RegisterEffect(e1)

expansions/script/c17091005.lua

+--Valvrave Ⅰ
+local m=17091005
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--atk up
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(cm.atkval)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(17091005,1))
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetOperation(cm.lvop)
+	c:RegisterEffect(e2)
+	--selfdes
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e3:SetRange(LOCATION_ONFIELD)
+	e3:SetCode(EFFECT_SELF_DESTROY)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetTargetRange(0,LOCATION_ONFIELD)
+	e4:SetCondition(cm.sdcon)
+	e4:SetLabelObject(e3)
+	c:RegisterEffect(e4)
+	--atklimit
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetCode(EFFECT_CANNOT_ATTACK)
+	e5:SetCondition(cm.atkcon)
+	c:RegisterEffect(e5)
+end
+function cm.atkval(e,c)
+	return c:GetLevel()*100
+end
+function cm.lvop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local lv=c:GetLevel()*2
+	if lv>666 then lv=666 end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CHANGE_LEVEL)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(lv)
+	e1:SetReset(RESET_EVENT+0xff0000)
+	c:RegisterEffect(e1)
+end
+function cm.sdcon(e)
+	return e:GetHandler():GetLevel()==666
+end
+function cm.atkcon(e)
+	return e:GetHandler():GetLevel()>100 and e:GetHandler():GetLevel()<666
+end
\ No newline at end of file

expansions/script/c17091006.lua

+--Valvrave Ⅰ
+local m=17091006
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	aux.EnablePendulumAttribute(c)
+	--atk up
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(cm.atkval)
+	c:RegisterEffect(e1)
+	--level up 
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(17091006,0))
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetOperation(cm.lvop)
+	c:RegisterEffect(e2)
+	--halve LP
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(17091006,1))
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetRange(LOCATION_PZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(cm.hvcon)
+	e3:SetOperation(cm.hvop)
+	c:RegisterEffect(e3)
+	--destroy replace
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e4:SetRange(LOCATION_ONFIELD)
+	e4:SetCode(EFFECT_DESTROY_REPLACE)
+	e4:SetTarget(cm.reptg)
+	c:RegisterEffect(e4)
+	--atklimit
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetCode(EFFECT_CANNOT_ATTACK)
+	e5:SetCondition(cm.atkcon)
+	c:RegisterEffect(e5)
+end
+function cm.atkval(e,c)
+	return c:GetLevel()*100
+end
+function cm.lvop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local lv=c:GetLevel()*2
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CHANGE_LEVEL)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(lv)
+	e1:SetReset(RESET_EVENT+0xff0000)
+	c:RegisterEffect(e1)
+end
+function cm.sdcon(e)
+	return e:GetHandler():GetLevel()==666
+end
+function cm.atkcon(e)
+	return e:GetHandler():GetLevel()>100 and e:GetHandler():GetLevel()<666
+end
+function cm.spfilter(c,e,tp)
+	return c:IsCode(17091005) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.hvcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function cm.hvop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SetLP(tp,math.ceil(Duel.GetLP(tp)/2))
+end
+
+function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsReason(REASON_REPLACE)
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end
+	if Duel.SelectEffectYesNo(tp,c,96) then
+		Duel.SendtoDeck(c,nil,2,REASON_EFFECT+REASON_REPLACE)
+		Duel.BreakEffect()
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_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
+		return true
+	else return false end
+end

expansions/script/c26805008.lua

@@ -37,15 +37,5 @@ function c26805008.atkop(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetValue(1000)
 		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
 		tc:RegisterEffect(e1)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_SINGLE)
-		e3:SetCode(EFFECT_DISABLE)
-		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e3)
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_SINGLE)
-		e4:SetCode(EFFECT_DISABLE_EFFECT)
-		e4:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e4)
 	end
 end

expansions/script/c26806007.lua

@@ -8,15 +8,18 @@ function c26806007.initial_effect(c)
 	e0:SetCode(EFFECT_SUMMON_PROC)
 	e0:SetCondition(c26806007.ntcon)
 	c:RegisterEffect(e0)
-	--special summon
+	--remove
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_GRAVE)
+	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
 	e1:SetCountLimit(1,26806007)
-	e1:SetCost(c26806007.spcost)
-	e1:SetTarget(c26806007.sptg)
-	e1:SetOperation(c26806007.spop)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCost(c26806007.rmcost)
+	e1:SetTarget(c26806007.rmtg)
+	e1:SetOperation(c26806007.rmop)
 	c:RegisterEffect(e1)
 end
 function c26806007.filter(c)
@@ -27,36 +30,24 @@ function c26806007.ntcon(e,c,minc)
 	return minc==0 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
 		and Duel.IsExistingMatchingCard(c26806007.filter,c:GetControler(),LOCATION_MZONE,0,1,nil)
 end
-function c26806007.spcost(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 c26806007.spfilter(c,e,tp)
-	return c:IsAttack(2200) and c:IsDefense(600) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c26806007.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c26806007.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
-end
-function c26806007.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,c26806007.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
-	local tc=g:GetFirst()
-	if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-		e1:SetRange(LOCATION_MZONE)
-		e1:SetCode(EFFECT_IMMUNE_EFFECT)
-		e1:SetValue(c26806007.efilter)
-		e1:SetOwnerPlayer(tp)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1,true)
-		Duel.SpecialSummonComplete()
+function c26806007.cfilter(c)
+	return c:IsAttack(2200) and c:IsDefense(600)
+end
+function c26806007.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,c26806007.cfilter,1,nil) end
+	local g=Duel.SelectReleaseGroup(tp,c26806007.cfilter,1,1,nil)
+	Duel.Release(g,REASON_COST)
+end
+function c26806007.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsAbleToRemove() end
+	if chk==0 then return true 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 c26806007.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 c26806007.efilter(e,re)
-	return e:GetOwnerPlayer()~=re:GetOwnerPlayer() and (re:IsActiveType(TYPE_TRAP) or re:IsActiveType(TYPE_SPELL))
-end

expansions/script/c26806010.lua

@@ -11,7 +11,6 @@ function c26806010.initial_effect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e3:SetCode(EVENT_BATTLE_DAMAGE)
 	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e3:SetCountLimit(1,26806010)
 	e3:SetCondition(c26806010.descon)
 	e3:SetTarget(c26806010.destg)
 	e3:SetOperation(c26806010.desop)

expansions/script/c26806011.lua

 --星海空间·海伊
 function c26806011.initial_effect(c)
 	--xyz summon
-	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),6,2)
+	aux.AddXyzProcedure(c,nil,6,2)
 	c:EnableReviveLimit()
 	--multi attack
 	local e1=Effect.CreateEffect(c)
@@ -33,8 +33,7 @@ function c26806011.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
 end
 function c26806011.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK)==0
-		and e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK_MONSTER)==0 end
+	if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK)==0 end
 end
 function c26806011.atkop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -42,7 +41,7 @@ function c26806011.atkop(e,tp,eg,ep,ev,re,r,rp)
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
+		e1:SetCode(EFFECT_EXTRA_ATTACK)
 		e1:SetValue(1)
 		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 		c:RegisterEffect(e1)

expansions/script/c26806020.lua

@@ -70,7 +70,7 @@ function c26806020.indtg(e,c)
 	return e:GetHandler():GetLinkedGroup():IsContains(c) or e:GetHandler()==c
 end
 function c26806020.tscon(e,tp,eg,ep,ev,re,r,rp)
-	return rp==tp and re and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsType(TYPE_CONTINUOUS) and re:GetHandler():IsType(TYPE_SPELL)
+	return rp==tp and re and re:GetHandler():IsCode(26806009)
 		and e:GetHandler():GetFlagEffect(1)>0
 end
 function c26806020.tsfilter(c)

expansions/script/c26806058.lua

+--渡桥挽歌·星尘
+function c26806058.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,26806058)
+	e1:SetTarget(c26806058.target)
+	e1:SetOperation(c26806058.operation)
+	c:RegisterEffect(e1)
+	--atkup
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_ATKCHANGE)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCountLimit(1,26806958)
+	e3:SetTarget(c26806058.atktg2)
+	e3:SetOperation(c26806058.atkop2)
+	c:RegisterEffect(e3)
+end
+function c26806058.filter(c,e,tp)
+	return c:IsAttack(2200) and c:IsDefense(600) and c:IsSummonableCard() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c26806058.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c26806058.filter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c26806058.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c26806058.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c26806058.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c26806058.atkfilter2(c)
+	return c:IsFaceup() and ((c:IsAttack(2200) and c:IsDefense(600)) or (c:IsAttack(3200) and c:IsType(TYPE_LINK)))
+end
+function c26806058.atktg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c26806058.atkfilter2(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c26806058.atkfilter2,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c26806058.atkfilter2,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c26806058.atkop2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(1800)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+	end
+end

expansions/script/c26806059.lua

+--绮·凝·盏
+function c26806059.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(c26806059.condition)
+	e1:SetTarget(c26806059.target)
+	e1:SetOperation(c26806059.activate)
+	c:RegisterEffect(e1)
+	--immune
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,26806059)
+	e2:SetCondition(c26806059.immcon)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c26806059.immtg)
+	e2:SetOperation(c26806059.immop)
+	c:RegisterEffect(e2)
+end
+function c26806059.cfilter(c)
+	return c:IsFaceup() and ((c:IsAttack(2200) and c:IsDefense(600)) or (c:IsAttack(3200) and c:IsType(TYPE_LINK)))
+end
+function c26806059.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c26806059.cfilter,tp,LOCATION_MZONE,0,1,nil)
+	and rp==1-tp and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE))
+		and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_GRAVE+LOCATION_REMOVED,1,nil,re:GetHandler():GetCode())
+		and Duel.IsChainNegatable(ev)
+end
+function c26806059.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c26806059.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end
+function c26806059.immcon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp and re:IsActiveType(TYPE_MONSTER)
+end
+function c26806059.immfilter(c)
+	return c:IsFaceup() and c:IsAttack(2200) and c:IsDefense(600) and not c:IsSummonableCard()
+end
+function c26806059.immtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26806059.immfilter,tp,LOCATION_MZONE,0,1,nil) end
+end
+function c26806059.immop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c26806059.immfilter,tp,LOCATION_MZONE,0,nil)
+	local tc=g:GetFirst()
+	while tc do
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+		e1:SetCode(EFFECT_IMMUNE_EFFECT)
+		e1:SetRange(LOCATION_MZONE)
+		e1:SetValue(c26806059.efilter)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		tc=g:GetNext()
+	end
+end
+function c26806059.efilter(e,te,c)
+	return te:GetOwner()~=c
+end

expansions/script/c26807030.lua

@@ -19,7 +19,7 @@ function c26807030.filter(c,e,tp,m)
 	return m:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c)
 end
 function c26807030.matfilter(c)
-	return c:IsCode(81011000,81000000,26807000,26800000) and c:IsAbleToGrave()
+	return c:IsType(TYPE_NORMAL) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsAbleToGrave()
 end
 function c26807030.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then

expansions/script/c26807059.lua

@@ -13,8 +13,8 @@ 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)
+	Duel.SetTargetParam(1000)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,1000)
 	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
 		Duel.SetChainLimit(aux.FALSE)
 	end

expansions/script/c26809006.lua

---难受火炉房
+--鱼禁止上岸人禁止下水
 function c26809006.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetCondition(c26809006.condition)
-	e1:SetTarget(c26809006.target)
-	e1:SetOperation(c26809006.activate)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCondition(c26809006.actcon)
 	c:RegisterEffect(e1)
+	--atk/def
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SET_ATTACK_FINAL)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e2:SetTarget(c26809006.target)
+	e2:SetValue(0)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EFFECT_SET_DEFENSE_FINAL)
+	c:RegisterEffect(e3)
+	--Pos Change
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_SET_POSITION)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetTarget(c26809006.target)
+	e5:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e5:SetValue(POS_FACEUP_DEFENSE)
+	c:RegisterEffect(e5)
 end
-function c26809006.cfilter(c,tp)
-	return c:IsFaceup() and c:IsPreviousLocation(LOCATION_GRAVE) and c:GetPreviousControler()==1-tp
-		and c:IsControler(tp)
+function c26809006.cfilter(c)
+	return c:IsRace(RACE_FISH)
 end
-function c26809006.condition(e,tp,eg,ep,ev,re,r,rp,chk)
-	return eg:IsExists(c26809006.cfilter,1,nil,1-tp)
+function c26809006.actcon(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(c26809006.cfilter,tp,LOCATION_MZONE,0,1,nil)
 end
-function c26809006.target(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,2,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,e:GetHandler())
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0)
-end
-function c26809006.activate(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-	Duel.Destroy(g,REASON_EFFECT)
+function c26809006.target(e,c)
+	return c:IsRace(RACE_FISH)
 end

expansions/script/c26809031.lua

+--S·O·R·A
+function c26809031.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c26809031.cost)
+	e1:SetTarget(c26809031.target)
+	e1:SetOperation(c26809031.operation)
+	c:RegisterEffect(e1)
+	--destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetCode(EVENT_LEAVE_FIELD_P)
+	e2:SetOperation(c26809031.checkop)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
+	e3:SetCode(EVENT_LEAVE_FIELD)
+	e3:SetOperation(c26809031.desop)
+	e3:SetLabelObject(e2)
+	c:RegisterEffect(e3)
+	Duel.AddCustomActivityCounter(26809031,ACTIVITY_SUMMON,c26809031.counterfilter)
+	Duel.AddCustomActivityCounter(26809031,ACTIVITY_SPSUMMON,c26809031.counterfilter)
+	Duel.AddCustomActivityCounter(26809031,ACTIVITY_FLIPSUMMON,c26809031.counterfilter)
+	Duel.AddCustomActivityCounter(26809031,ACTIVITY_CHAIN,c26809031.chainfilter)
+end
+function c26809031.chainfilter(re,tp)
+	return not re:IsActiveType(TYPE_MONSTER)
+end
+function c26809031.counterfilter(c)
+	return not c:IsType(TYPE_EFFECT)
+end
+function c26809031.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(26809031,tp,ACTIVITY_SUMMON)==0
+		and Duel.GetCustomActivityCount(26809031,tp,ACTIVITY_SPSUMMON)==0 
+		and Duel.GetCustomActivityCount(26809031,tp,ACTIVITY_FLIPSUMMON)==0 and Duel.GetCustomActivityCount(26809031,tp,ACTIVITY_CHAIN)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c26809031.sumlimit)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_SUMMON)
+	Duel.RegisterEffect(e2,tp)
+	local e3=e1:Clone()
+	e3:SetCode(EFFECT_CANNOT_FLIP_SUMMON)
+	Duel.RegisterEffect(e3,tp)
+	local e4=Effect.CreateEffect(e:GetHandler())
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e4:SetTargetRange(1,0)
+	e4:SetValue(c26809031.aclimit)
+	e4:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e4,tp)
+end
+function c26809031.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return c:IsType(TYPE_EFFECT)
+end
+function c26809031.aclimit(e,re,tp)
+	return re:IsActiveType(TYPE_MONSTER)
+end
+function c26809031.spfilter(c,e,tp)
+	return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c26809031.target(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 c26809031.spfilter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c26809031.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c26809031.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+end
+function c26809031.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e)
+		and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
+		Duel.Equip(tp,c,tc)
+		--Add Equip limit
+		local e1=Effect.CreateEffect(tc)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_EQUIP_LIMIT)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(c26809031.eqlimit)
+		c:RegisterEffect(e1)
+		Duel.SpecialSummonComplete()
+	end
+end
+function c26809031.eqlimit(e,c)
+	return e:GetOwner()==c
+end
+function c26809031.checkop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsDisabled() then
+		e:SetLabel(1)
+	else e:SetLabel(0) end
+end
+function c26809031.desop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetLabelObject():GetLabel()~=0 then return end
+	local tc=e:GetHandler():GetFirstCardTarget()
+	if tc and tc:IsLocation(LOCATION_MZONE) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end

expansions/script/c26809032.lua

+--死亡之力·黛冬优子
+function c26809032.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,26809032)
+	e1:SetCondition(c26809032.tdcon)
+	e1:SetTarget(c26809032.tdtg)
+	e1:SetOperation(c26809032.tdop)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,26809932)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c26809032.thtg)
+	e2:SetOperation(c26809032.thop)
+	c:RegisterEffect(e2)
+	--reset atk
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_DEFCHANGE)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_BATTLE_CONFIRM)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCondition(c26809032.atkcon2)
+	e3:SetOperation(c26809032.atkop2)
+	c:RegisterEffect(e3)
+end
+function c26809032.tdcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function c26809032.filter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck()
+end
+function c26809032.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26809032.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	local g=Duel.GetMatchingGroup(c26809032.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
+	Duel.SetChainLimit(c26809032.chlimit)
+end
+function c26809032.chlimit(e,ep,tp)
+	return tp==ep
+end
+function c26809032.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c26809032.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoDeck(g,nil,0,REASON_EFFECT)
+	end
+end
+function c26809032.atkcon2(e,tp,eg,ep,ev,re,r,rp)
+	local a=Duel.GetAttacker()
+	local d=a:GetBattleTarget()
+	if a:IsControler(tp) then a,d=d,a end
+	return a and a:IsControler(1-tp) and c:IsDefensePos() and not a:IsDefense(0)
+end
+function c26809032.atkop2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetAttacker()
+	if tc:IsControler(tp) then tc=tc:GetBattleTarget() end
+	if tc and tc:IsFaceup() and not tc:IsDefense(0) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_DEFENSE_FINAL)
+		e1:SetValue(0)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_DAMAGE_CAL)
+		tc:RegisterEffect(e1)
+	end
+end
+function c26809032.thfilter(c)
+	return c:IsRace(RACE_CYBERSE) and c:IsType(TYPE_TUNER) and c:IsAbleToHand()
+end
+function c26809032.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c26809032.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c26809032.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c26809032.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/c30000200.lua

+--暗魔力的爆发
+function c30000200.initial_effect(c)
+  --Activate
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e1:SetType(EFFECT_TYPE_ACTIVATE)
+    e1:SetCode(EVENT_FREE_CHAIN)
+    e1:SetCountLimit(1,30000200+EFFECT_COUNT_CODE_OATH)
+    e1:SetCost(c30000200.cost)
+    e1:SetTarget(c30000200.target)
+    e1:SetOperation(c30000200.activate)
+    c:RegisterEffect(e1)
+end
+function c30000200.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeckAsCost,tp,LOCATION_HAND,0,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+    local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeckAsCost,tp,LOCATION_HAND,0,1,1,nil)
+    if g:GetFirst():IsLocation(LOCATION_HAND) then
+        Duel.ConfirmCards(1-tp,g)
+    end
+    Duel.SendtoDeck(g,tp,2,REASON_COST)
+end
+
+function c30000200.filter(c)
+    return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsDefenseAbove(2000)and c:IsLevelAbove(6) and c:IsAbleToHand()
+end
+function c30000200.target(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c30000200.filter,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_REMOVED)
+end
+function c30000200.activate(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c30000200.filter,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,2,nil)
+    if g:GetCount()>0 then
+        Duel.SendtoHand(g,nil,REASON_EFFECT)
+        Duel.ConfirmCards(1-tp,g)
+    end
+end
\ No newline at end of file

expansions/script/c30000205.lua

+--不灭的黑暗
+function c30000205.initial_effect(c)
+	  --Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)
+	--set
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(30000205,0))
+	e1:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCountLimit(1,30000205)
+	e1:SetTarget(c30000205.target)
+	e1:SetOperation(c30000205.activate)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(30000205,1))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,30000205)
+	e2:SetCost(c30000205.cost)
+	e2:SetTarget(c30000205.target1)
+	e2:SetOperation(c30000205.operation)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e3:SetCode(EVENT_REMOVE)
+	e3:SetCountLimit(1,30000206)
+	e3:SetTarget(c30000205.sttg)
+	e3:SetOperation(c30000205.stop)
+	c:RegisterEffect(e3)
+end
+
+function c30000205.filter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToDeck()
+end
+
+function c30000205.target(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 c30000205.filter(chkc) end
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
+		and Duel.IsExistingTarget(c30000205.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c30000205.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,3,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+
+function c30000205.activate(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)~=3 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==3 then
+		Duel.BreakEffect()
+		Duel.Draw(tp,1,REASON_EFFECT)
+	end
+end
+
+function c30000205.cost(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()) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+
+function c30000205.filter(c)
+	return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToHand()
+end
+function c30000205.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED+LOCATION_GRAVE) and c30000205.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c30000205.filter,tp,LOCATION_REMOVED+LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c30000205.filter,tp,LOCATION_REMOVED+LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+
+function c30000205.operation(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)
+	end
+end
+
+function c30000205.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and not c:IsForbidden() and c:CheckUniqueOnField(tp) end
+end
+function c30000205.stop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+end
\ No newline at end of file

expansions/script/c65050001.lua

@@ -18,49 +18,44 @@ function c65050001.initial_effect(c)
 	c:RegisterEffect(e1)
 	--tohand
 	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_RELEASE)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_FZONE)
-	e2:SetCost(c65050001.thcost)
 	e2:SetTarget(c65050001.thtg)
 	e2:SetOperation(c65050001.thop)
 	c:RegisterEffect(e2)
 end
-function c65050001.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsType,1,nil,TYPE_TOKEN) end
-	local lv=0
-	local g=Duel.SelectReleaseGroup(tp,Card.IsType,1,99,nil,TYPE_TOKEN)
-	local rc=g:GetFirst()
-	while rc do
-		lv=lv+rc:GetLevel()
-		rc=g:GetNext()
-	end
-	Duel.Release(g,REASON_COST)
-	e:SetLabel(lv)
+function c65050001.thfilter(c,mg)
+	if not c:IsSetCard(0x3da1) or bit.band(c:GetType(),0x81)~=0x81
+		or not c:IsAbleToHand() then return false end
+	return mg:CheckWithSumGreater(Card.GetLevel,c:GetLevel(),c)
 end
-function c65050001.thfil(c,lv)
-	return c:IsType(TYPE_RITUAL) and c:IsLevelBelow(lv) and c:IsAbleToHand()
+function c65050001.gmfil(c)
+	return c:IsCode(65050012) and c:IsLevelAbove(1) and c:IsReleasable()
 end
 function c65050001.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_MZONE,0,nil,TYPE_TOKEN)
-	local rc=rg:GetFirst()
-	local lv=0
-	while rc do
-		lv=lv+rc:GetLevel()
-		rc=rg:GetNext()
+	local mg=Duel.GetMatchingGroup(c65050001.gmfil,tp,LOCATION_MZONE,0,1,nil)
+	if chk==0 then
+		return Duel.IsExistingMatchingCard(c65050001.thfilter,tp,LOCATION_DECK,0,1,nil,mg)
 	end
-	if chk==0 then return Duel.IsExistingMatchingCard(c65050001.thfil,tp,LOCATION_DECK,0,1,nil,lv) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
+	Duel.SetOperationInfo(0,CATEGORY_RELEASE,nil,1,tp,LOCATION_MZONE)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
 function c65050001.thop(e,tp,eg,ep,ev,re,r,rp)
-	local lv=e:GetLabel()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c65050001.thfil,tp,LOCATION_DECK,0,1,1,nil,lv)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,tp,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
+	local mg=Duel.GetMatchingGroup(c65050001.gmfil,tp,LOCATION_MZONE,0,1,nil)
+	local tg=Duel.SelectMatchingCard(tp,c65050001.thfilter,tp,LOCATION_DECK,0,1,1,nil,mg)
+	local tc=tg:GetFirst()
+	if tc then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+		local g=mg:SelectWithSumGreater(tp,Card.GetLevel,tc:GetLevel(),tc)
+		if Duel.Release(g,REASON_EFFECT)~=0 then
+			Duel.SendtoHand(tc,tp,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,tc)
+		end
 	end
 end
+
+
 function c65050001.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return eg:IsExists(c65050001.spcofil,1,nil) and eg:GetCount()==1 
 end

expansions/script/c65050006.lua

@@ -30,9 +30,6 @@ function c65050006.initial_effect(c)
 	e2:SetTarget(c65050006.sptg)
 	e2:SetOperation(c65050006.spop)
 	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_LEAVE_FIELD)
-	c:RegisterEffect(e3)
 end
 function c65050006.descofil(c)
 	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x3da1) and c:IsReleasable()

expansions/script/c65050008.lua

@@ -28,9 +28,6 @@ function c65050008.initial_effect(c)
 	e2:SetTarget(c65050008.sptg)
 	e2:SetOperation(c65050008.spop)
 	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EVENT_LEAVE_FIELD)
-	c:RegisterEffect(e3)
 end
 function c65050008.cocofil(c)
 	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x3da1) and c:IsReleasable()
@@ -48,7 +45,6 @@ function c65050008.cotg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
 	local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end
 function c65050008.coop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()

expansions/script/c75646535.lua

+--风色绘卷 温蒂
+function c75646535.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,nil,2,99,c75646535.lcheck)
+	c:EnableReviveLimit()
+	--tohand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75646535,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,75646535)
+	e1:SetTarget(c75646535.target)
+	e1:SetOperation(c75646535.operation)
+	c:RegisterEffect(e1)
+	--Destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75646535,1))
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetCountLimit(1,75646535)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c75646535.descon)
+	e2:SetTarget(c75646535.destg)
+	e2:SetOperation(c75646535.desop)
+	c:RegisterEffect(e2)
+end
+function c75646535.lcheck(g)
+	return g:IsExists(Card.IsLinkAttribute,1,nil,ATTRIBUTE_WIND)
+end
+function c75646535.thfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c75646535.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c75646535.thfilter(e,tp) end
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,c75646535.thfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c75646535.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end
+function c75646535.cfilter(c,lg)
+	return c:IsAttribute(ATTRIBUTE_WIND) and lg:IsContains(c)
+end
+function c75646535.descon(e,tp,eg,ep,ev,re,r,rp)
+	local lg=e:GetHandler():GetLinkedGroup()
+	return eg:IsExists(c75646535.cfilter,1,nil,lg)
+end
+function c75646535.filter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function c75646535.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and c75646535.filter(chkc) and chkc~=e:GetHandler() end
+	if chk==0 then return Duel.IsExistingTarget(c75646535.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,c75646535.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,2,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c75646535.desop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	Duel.Destroy(g,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c75646536.lua

+--同构时空 黛尔塔
+function c75646536.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,nil,2,99,c75646536.lcheck)
+	c:EnableReviveLimit()
+	--Equip
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75646536,0))
+	e1:SetCategory(CATEGORY_EQUIP)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(2,75646536)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetTarget(c75646536.tg)
+	e1:SetOperation(c75646536.op)
+	c:RegisterEffect(e1)
+end
+function c75646536.lcheck(g,lc)
+	return g:IsExists(Card.IsLevel,1,nil,4)
+end
+function c75646536.filter(c,e,tp)
+	return c:IsType(TYPE_MONSTER) and c:IsPreviousLocation(LOCATION_MZONE) and c:IsLocation(LOCATION_GRAVE) and c:IsCanBeEffectTarget(e) and not c:IsForbidden()
+end
+function c75646536.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return eg:IsContains(chkc) and c75646536.filter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and eg:IsExists(c75646536.filter,1,nil,e,tp) end
+	local g=eg:Filter(c75646536.filter,nil,e,tp)
+	local tc=nil
+	if g:GetCount()>1 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+		tc=g:Select(tp,1,1,nil):GetFirst()
+	else
+		tc=g:GetFirst()
+	end
+	Duel.SetTargetCard(tc)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,tc,1,0,0)
+end
+function c75646536.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) then
+		local atk=tc:GetTextAttack()
+		if atk<0 then atk=0 end
+		if not Duel.Equip(tp,tc,c,false) then return end
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_EQUIP_LIMIT)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(c75646536.eqlimit)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_EQUIP)
+		e2:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_IGNORE_IMMUNE)
+		e2:SetCode(EFFECT_UPDATE_ATTACK)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e2:SetValue(atk)
+		tc:RegisterEffect(e2)
+	end
+end
+function c75646536.eqlimit(e,c)
+	return e:GetOwner()==c
+end
\ No newline at end of file

expansions/script/c77765004.lua

@@ -14,7 +14,7 @@ function cm.initial_effect(c)
 	e1:SetTarget(cm.target)
 	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
-	for _,code in ipairs({EFFECT_CANNOT_BE_XYZ_MATERIAL,EFFECT_CANNOT_BE_SYNCHRO_MATERIAL,EFFECT_CANNOT_BE_FUSION_MATERIAL,EFFECT_CANNOT_BE_LINK_MATERIAL,m}) do
+	--[[for _,code in ipairs({EFFECT_CANNOT_BE_XYZ_MATERIAL,EFFECT_CANNOT_BE_SYNCHRO_MATERIAL,EFFECT_CANNOT_BE_FUSION_MATERIAL,EFFECT_CANNOT_BE_LINK_MATERIAL,m}) do
 		local e2=Effect.CreateEffect(c)
 		e2:SetType(EFFECT_TYPE_FIELD)
 		e2:SetCode(code)
@@ -28,7 +28,45 @@ function cm.initial_effect(c)
 			return c and c:IsControler(1-e:GetHandlerPlayer())
 		end)
 		c:RegisterEffect(e2)
-	end
+	end]]
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DISABLE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	--e1:SetCode(EVENT_FREE_CHAIN)
+	--e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e1:SetCountLimit(1)
+	e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
+		if chk==0 then return true end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
+		Duel.SetTargetParam(Duel.SelectOption(tp,1056,1063,1073,1076))
+	end)
+	e1:SetOperation(function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+		local c=e:GetHandler()
+		local opt=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
+		local ct=nil
+		if opt==0 then ct=TYPE_FUSION end
+		if opt==1 then ct=TYPE_SYNCHRO end
+		if opt==2 then ct=TYPE_XYZ end
+		if opt==3 then ct=TYPE_LINK end
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetLabel(ct)
+		e1:SetTargetRange(0,1)
+		e1:SetTarget(cm.sumlimit)
+		e1:SetReset(RESET_PHASE+PHASE_END,2)
+		Duel.RegisterEffect(e1,tp)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD)
+		e2:SetCode(EFFECT_DISABLE)
+		e2:SetTargetRange(0,LOCATION_MZONE)
+		e2:SetTarget(cm.distg)
+		e2:SetLabel(ct)
+		e2:SetReset(RESET_PHASE+PHASE_END,2)
+		Duel.RegisterEffect(e2,tp)
+	end)
+	c:RegisterEffect(e1)
 	local function KaguyaFilter(c,e,tp,cc)
 		local p=c:GetControler()
 		local tc=Senya.GetDFCBackSideCard(cc)
@@ -105,3 +143,9 @@ function cm.desop(e,tp,eg,ep,ev,re,r,rp)
 		c:ResetFlagEffect(1082946)
 	end
 end
+function cm.sumlimit(e,c,sump,sumtype,sumpos,targetp)
+	return c:IsType(e:GetLabel())
+end
+function cm.distg(e,c)
+	return c:IsType(e:GetLabel())
+end
\ No newline at end of file

expansions/script/c81000003.lua

+--甜美之花·大崎甜花
+function c81000003.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,99,c81000003.lcheck)
+	--search
+	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_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,81000003)
+	e1:SetCondition(c81000003.thcon)
+	e1:SetTarget(c81000003.thtg)
+	e1:SetOperation(c81000003.thop)
+	c:RegisterEffect(e1)
+	--splimit
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(c81000003.splimit)
+	c:RegisterEffect(e2)
+	--ritual summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	e3:SetCode(EVENT_DAMAGE)
+	e3:SetCountLimit(1,81000903)
+	e3:SetCondition(c81000003.spcondition)
+	e3:SetCost(c81000003.spcost)
+	e3:SetTarget(c81000003.sptg)
+	e3:SetOperation(c81000003.spop)
+	c:RegisterEffect(e3)
+end
+function c81000003.lcheck(g,lc)
+	return g:IsExists(c81000003.mzfilter,1,nil)
+end
+function c81000003.mzfilter(c)
+	return c:IsLinkType(TYPE_RITUAL) and c:IsLinkType(TYPE_PENDULUM)
+end
+function c81000003.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function c81000003.thfilter(c)
+	return c:GetType()==0x82 and c:IsAbleToHand()
+end
+function c81000003.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81000003.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c81000003.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c81000003.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c81000003.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return not c:IsType(TYPE_PENDULUM) and bit.band(sumtype,SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL
+end
+function c81000003.spcondition(e,tp,eg,ep,ev,re,r,rp)
+	return ep==tp and (bit.band(r,REASON_BATTLE)~=0 or (bit.band(r,REASON_EFFECT)~=0 and rp==1-tp))
+end
+function c81000003.cfilter(c,e,tp)
+	return c:GetType()&0x81==0x81 and c:IsType(TYPE_PENDULUM) and Duel.IsExistingMatchingCard(c81000003.spfilter,tp,LOCATION_HAND,0,1,c,e,tp)
+		and Duel.GetMZoneCount(tp,c)>0
+end
+function c81000003.spfilter(c,e,tp)
+	return c:GetType()&0x81==0x81 and c:IsType(TYPE_PENDULUM) and c:IsLevel(4,8) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false)
+end
+function c81000003.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroupEx(tp,c81000003.cfilter,1,nil,e,tp) end
+	local g=Duel.SelectReleaseGroupEx(tp,c81000003.cfilter,1,1,nil,e,tp)
+	Duel.Release(g,REASON_COST)
+end
+function c81000003.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81000003.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c81000003.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,c81000003.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	if tc and Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) then
+		tc:CompleteProcedure()
+	end
+end

expansions/script/c81003001.lua

+--灰色少女 森永Miu
+function c81003001.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,81003001)
+	e1:SetCondition(c81003001.descon)
+	e1:SetTarget(c81003001.destg)
+	e1:SetOperation(c81003001.desop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_DESTROYED)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1,81003901)
+	e3:SetCondition(c81003001.spcon)
+	e3:SetTarget(c81003001.sptg)
+	e3:SetOperation(c81003001.spop)
+	c:RegisterEffect(e3)
+end
+function c81003001.descon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function c81003001.setfilter(c,tp)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable(true) and (c:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0)
+end
+function c81003001.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and c81003001.setfilter(chkc,tp) end
+	if chk==0 then return Duel.IsExistingTarget(c81003001.setfilter,tp,0,LOCATION_GRAVE,1,nil,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g=Duel.SelectTarget(tp,c81003001.setfilter,tp,0,LOCATION_GRAVE,1,1,nil,tp)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
+end
+function c81003001.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and (tc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) then
+		Duel.SSet(tp,tc)
+		Duel.ConfirmCards(1-tp,tc)
+		local e0=Effect.CreateEffect(e:GetHandler())
+		e0:SetType(EFFECT_TYPE_SINGLE)
+		e0:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+		e0:SetReset(RESET_EVENT+RESETS_REDIRECT)
+		e0:SetValue(LOCATION_REMOVED)
+		tc:RegisterEffect(e0,true)
+		if tc:IsType(TYPE_QUICKPLAY) then
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+			e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1)
+		end
+		if tc:IsType(TYPE_TRAP) then
+			local e2=Effect.CreateEffect(e:GetHandler())
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+			e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e2)
+		end
+	end
+end
+function c81003001.spfilter(c,e,tp)
+	return c:IsSetCard(0x817) and not c:IsCode(81003001) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c81003001.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetPreviousControler()==tp and rp==1-tp
+end
+function c81003001.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c81003001.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function c81003001.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c81003001.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

expansions/script/c81003002.lua

+--万圣魔女 森永Miu
+function c81003002.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--destroy replace
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_DESTROY_REPLACE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,81003902)
+	e1:SetTarget(c81003002.reptg)
+	e1:SetValue(c81003002.repval)
+	e1:SetOperation(c81003002.repop)
+	c:RegisterEffect(e1)
+	--set
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,81003002)
+	e2:SetHintTiming(0,TIMING_END_PHASE)
+	e2:SetTarget(c81003002.settg)
+	e2:SetOperation(c81003002.setop)
+	c:RegisterEffect(e2)
+end
+function c81003002.setfilter(c,e,tp,tid)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable(true) and (c:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) and c:GetTurnID()==tid
+end
+function c81003002.settg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local tid=Duel.GetTurnCount()
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and c81003002.setfilter(chkc,e,tp,tid) end
+	if chk==0 then return Duel.IsExistingTarget(c81003002.setfilter,tp,0,LOCATION_GRAVE,1,nil,e,tp,tid) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g=Duel.SelectTarget(tp,c81003002.setfilter,tp,0,LOCATION_GRAVE,1,1,nil,e,tp,tid)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
+end
+function c81003002.setop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and (tc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) then
+		Duel.SSet(tp,tc)
+		Duel.ConfirmCards(1-tp,tc)
+		local e0=Effect.CreateEffect(e:GetHandler())
+		e0:SetType(EFFECT_TYPE_SINGLE)
+		e0:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+		e0:SetReset(RESET_EVENT+RESETS_REDIRECT)
+		e0:SetValue(LOCATION_REMOVED)
+		tc:RegisterEffect(e0,true)
+		if tc:IsType(TYPE_QUICKPLAY) then
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+			e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1)
+		end
+		if tc:IsType(TYPE_TRAP) then
+			local e2=Effect.CreateEffect(e:GetHandler())
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+			e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e2)
+		end
+	end
+end
+function c81003002.repfilter(c,tp)
+	return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE)
+		and (c:IsReason(REASON_BATTLE) or (c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()==1-tp)) and not c:IsReason(REASON_REPLACE)
+end
+function c81003002.desfilter(c,e,tp)
+	return c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD) and c:IsType(TYPE_SPELL+TYPE_TRAP)
+		and c:IsDestructable(e) and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED)
+end
+function c81003002.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return eg:IsExists(c81003002.repfilter,1,nil,tp)
+		and Duel.IsExistingMatchingCard(c81003002.desfilter,tp,LOCATION_ONFIELD,0,1,nil,e,tp) end
+	if Duel.SelectEffectYesNo(tp,e:GetHandler(),96) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESREPLACE)
+		local g=Duel.SelectMatchingCard(tp,c81003002.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil,e,tp)
+		e:SetLabelObject(g:GetFirst())
+		g:GetFirst():SetStatus(STATUS_DESTROY_CONFIRMED,true)
+		return true
+	end
+	return false
+end
+function c81003002.repval(e,c)
+	return c81003002.repfilter(c,e:GetHandlerPlayer())
+end
+function c81003002.repop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,1-tp,81003002)
+	local tc=e:GetLabelObject()
+	tc:SetStatus(STATUS_DESTROY_CONFIRMED,false)
+	Duel.Destroy(tc,REASON_EFFECT+REASON_REPLACE)
+end

expansions/script/c81003003.lua

+--约会 森永Miu
+function c81003003.initial_effect(c)
+	--fusion material
+	aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsRace,RACE_CYBERSE),3,true)
+	c:EnableReviveLimit()
+	--atkup
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(c81003003.atkval)
+	c:RegisterEffect(e1)
+	--set
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,81003003)
+	e2:SetHintTiming(0,TIMING_END_PHASE)
+	e2:SetCost(c81003003.setcost)
+	e2:SetTarget(c81003003.settg)
+	e2:SetOperation(c81003003.setop)
+	c:RegisterEffect(e2)
+end
+function c81003003.atkfilter1(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
+end
+function c81003003.atkval(e,c)
+	return Duel.GetMatchingGroupCount(c81003003.atkfilter1,c:GetControler(),0,LOCATION_GRAVE+LOCATION_REMOVED,nil)*200
+end
+function c81003003.cfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsReleasable()
+end
+function c81003003.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81003003.cfilter,tp,LOCATION_ONFIELD,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local g=Duel.SelectMatchingCard(tp,c81003003.cfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
+	Duel.Release(g,REASON_COST)
+end
+function c81003003.setfilter(c,tp)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable(true) and (c:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0)
+end
+function c81003003.settg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_REMOVED) and c81003003.setfilter(chkc,tp) end
+	if chk==0 then return Duel.IsExistingTarget(c81003003.setfilter,tp,0,LOCATION_REMOVED,1,nil,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g=Duel.SelectTarget(tp,c81003003.setfilter,tp,0,LOCATION_REMOVED,1,1,nil,tp)
+end
+function c81003003.setop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and (tc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) then
+		Duel.SSet(tp,tc)
+		Duel.ConfirmCards(1-tp,tc)
+		local e0=Effect.CreateEffect(e:GetHandler())
+		e0:SetType(EFFECT_TYPE_SINGLE)
+		e0:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+		e0:SetReset(RESET_EVENT+RESETS_REDIRECT)
+		e0:SetValue(LOCATION_REMOVED)
+		tc:RegisterEffect(e0,true)
+		if tc:IsType(TYPE_QUICKPLAY) then
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+			e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1)
+		end
+		if tc:IsType(TYPE_TRAP) then
+			local e2=Effect.CreateEffect(e:GetHandler())
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+			e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e2)
+		end
+	end
+end

expansions/script/c81003004.lua

+--夏风 森永Miu
+function c81003004.initial_effect(c)
+	--Special Summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,81003004)
+	e1:SetCondition(c81003004.sscon)
+	e1:SetTarget(c81003004.sstg)
+	e1:SetOperation(c81003004.ssop)
+	c:RegisterEffect(e1)
+	--disable attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,81003904)
+	e2:SetTarget(c81003004.settg)
+	e2:SetOperation(c81003004.setop)
+	c:RegisterEffect(e2)
+end
+function c81003004.filter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:GetOwner()~=c:GetControler()
+end
+function c81003004.sscon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(c81003004.filter,tp,LOCATION_ONFIELD,0,1,nil)
+end
+function c81003004.sstg(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 c81003004.ssop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+end
+function c81003004.setfilter(c,tp)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable(true) and (c:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0)
+end
+function c81003004.settg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and c81003004.setfilter(chkc,tp) end
+	if chk==0 then return Duel.IsExistingTarget(c81003004.setfilter,tp,0,LOCATION_GRAVE,1,nil,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g=Duel.SelectTarget(tp,c81003004.setfilter,tp,0,LOCATION_GRAVE,1,1,nil,tp)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
+end
+function c81003004.setop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and (tc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) then
+		Duel.SSet(tp,tc)
+		Duel.ConfirmCards(1-tp,tc)
+		local e0=Effect.CreateEffect(e:GetHandler())
+		e0:SetType(EFFECT_TYPE_SINGLE)
+		e0:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+		e0:SetReset(RESET_EVENT+RESETS_REDIRECT)
+		e0:SetValue(LOCATION_REMOVED)
+		tc:RegisterEffect(e0,true)
+		if tc:IsType(TYPE_QUICKPLAY) then
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+			e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1)
+		end
+		if tc:IsType(TYPE_TRAP) then
+			local e2=Effect.CreateEffect(e:GetHandler())
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+			e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e2)
+		end
+	end
+end

expansions/script/c81005001.lua

+--反转世界·绫濑亚梦
+function c81005001.initial_effect(c)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcFunRep(c,c81005001.ffilter,3,true)
+	--spsummon condition
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetRange(LOCATION_EXTRA)
+	e0:SetValue(c81005001.splimit)
+	c:RegisterEffect(e0)
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,81005001)
+	e1:SetTarget(c81005001.sptg)
+	e1:SetOperation(c81005001.spop)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetHintTiming(0,TIMING_MAIN_END)
+	e2:SetCountLimit(1,81005901)
+	e2:SetCondition(c81005001.sscon)
+	e2:SetTarget(c81005001.target)
+	e2:SetOperation(c81005001.operation)
+	c:RegisterEffect(e2)
+end
+function c81005001.ffilter(c,fc,sub,mg,sg)
+	return (not c:IsType(TYPE_TOKEN)) and (not sg or sg:FilterCount(aux.TRUE,c)==0 or sg:IsExists(Card.IsFusionCode,1,c,c:GetFusionCode()))
+end
+function c81005001.splimit(e,se,sp,st)
+	return not e:GetHandler():IsLocation(LOCATION_EXTRA) or bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
+end
+function c81005001.eqfilter(c,cd)
+	return c:IsCode(cd) and c:IsFaceup()
+end
+function c81005001.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.IsExistingMatchingCard(c81005001.eqfilter,tp,LOCATION_ONFIELD,0,1,nil,c:GetCode())
+end
+function c81005001.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c81005001.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c81005001.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c81005001.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	if #g>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetLabel(g:GetFirst():GetCode())
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c81005001.splimit2)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c81005001.splimit2(e,c)
+	return not c:IsCode(e:GetLabel()) and c:IsLocation(LOCATION_DECK+LOCATION_GRAVE)
+end
+function c81005001.sscon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()~=tp and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2)
+end
+function c81005001.filter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c81005001.filter1(c,g)
+	return g:IsExists(Card.IsCode,1,c,c:GetCode())
+end
+function c81005001.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local g=Duel.GetMatchingGroup(c81005001.filter,tp,LOCATION_DECK,0,nil)
+		return g:IsExists(c81005001.filter1,1,nil,g)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK)
+end
+function c81005001.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c81005001.filter,tp,LOCATION_DECK,0,nil)
+	local sg=g:Filter(c81005001.filter1,nil,g)
+	if sg:GetCount()==0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local hg=sg:Select(tp,1,1,nil)
+	local hc=sg:Filter(Card.IsCode,hg:GetFirst(),hg:GetFirst():GetCode()):GetFirst()
+	hg:AddCard(hc)
+	Duel.SendtoHand(hg,nil,REASON_EFFECT)
+	Duel.ConfirmCards(1-tp,hg)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTargetRange(1,0)
+	Duel.RegisterEffect(e1,tp)
+end

expansions/script/c81005003.lua

+--Pure Ruby
+function c81005003.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.EnablePendulumAttribute(c)
+	--to hand
+	local e0=Effect.CreateEffect(c)
+	e0:SetCategory(CATEGORY_TOHAND+CATEGORY_DESTROY)
+	e0:SetType(EFFECT_TYPE_IGNITION)
+	e0:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e0:SetRange(LOCATION_PZONE)
+	e0:SetCountLimit(1,81005003)
+	e0:SetTarget(c81005003.thtg)
+	e0:SetOperation(c81005003.thop)
+	c:RegisterEffect(e0)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCondition(c81005003.ppcon)
+	e1:SetTarget(c81005003.pptg)
+	e1:SetOperation(c81005003.ppop)
+	c:RegisterEffect(e1)
+	--spsummon condition
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e2)
+	--special summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_SPSUMMON_PROC)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e3:SetCountLimit(1,81005002)
+	e3:SetRange(LOCATION_EXTRA+LOCATION_HAND)
+	e3:SetCondition(c81005003.spcon)
+	e3:SetOperation(c81005003.spop)
+	c:RegisterEffect(e3)
+	--Negate
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetCode(EVENT_CHAINING)
+	e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1,81005903)
+	e4:SetCondition(c81005003.discon)
+	e4:SetCost(c81005003.discost)
+	e4:SetTarget(c81005003.distg)
+	e4:SetOperation(c81005003.disop)
+	c:RegisterEffect(e4)
+end
+function c81005003.thfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_RITUAL) and c:IsAbleToHand() and (c:IsType(TYPE_PENDULUM) or c:IsType(TYPE_SPELL))
+end
+function c81005003.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c81005003.thfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c81005003.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c81005003.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c81005003.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)~=0 and tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end
+function c81005003.spfiltera(c)
+	return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and c:IsAbleToRemoveAsCost()
+end
+function c81005003.spfilterb(c)
+	return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_SPELL) and c:IsAbleToRemoveAsCost()
+end
+function c81005003.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(c81005003.spfiltera,tp,LOCATION_GRAVE,0,1,nil)
+		and Duel.IsExistingMatchingCard(c81005003.spfilterb,tp,LOCATION_GRAVE,0,1,nil)
+end
+function c81005003.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g1=Duel.SelectMatchingCard(tp,c81005003.spfiltera,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g2=Duel.SelectMatchingCard(tp,c81005003.spfilterb,tp,LOCATION_GRAVE,0,1,1,nil)
+	g1:Merge(g2)
+	Duel.Remove(g1,POS_FACEUP,REASON_COST)
+end
+function c81005003.ppcon(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return ph~=PHASE_DAMAGE and ph~=PHASE_DAMAGE_CAL
+end
+function c81005003.qfilter(c,e,tp,m,ft)
+	if not c:IsType(TYPE_PENDULUM) 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(c81005003.qfilterF,1,nil,tp,mg,c)
+	end
+end
+function c81005003.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 c81005003.pptg(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(c81005003.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 c81005003.ppop(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,c81005003.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,c81005003.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)
+		tc:CompleteProcedure()
+	end
+end
+function c81005003.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 c81005003.costfilter(c)
+	return bit.band(c:GetType(),0x81)==0x81 and c:IsFaceup() and c:IsAbleToDeckAsCost()
+end
+function c81005003.discost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81005003.costfilter,tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c81005003.costfilter,tp,LOCATION_EXTRA,0,1,1,nil)
+	Duel.SendtoDeck(g,nil,2,REASON_COST)
+end
+function c81005003.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 c81005003.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/c81006036.lua

+--微妙世界
+function c81006036.initial_effect(c)
+	--Activate
+	local e1=aux.AddRitualProcGreater2(c,c81006036.ritual_filter,LOCATION_HAND+LOCATION_DECK,nil,c81006036.mfilter)
+	e1:SetCountLimit(1,81006036+EFFECT_COUNT_CODE_OATH)
+	--destroy replace
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EFFECT_DESTROY_REPLACE)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetTarget(c81006036.reptg)
+	e1:SetValue(c81006036.repval)
+	e1:SetOperation(c81006036.repop)
+	c:RegisterEffect(e1)
+end
+function c81006036.repfilter(c,tp)
+	return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsSetCard(0x81c)
+		and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
+end
+function c81006036.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(c81006036.repfilter,1,nil,tp) end
+	return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
+end
+function c81006036.repval(e,c)
+	return c81006036.repfilter(c,e:GetHandlerPlayer())
+end
+function c81006036.repop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end
+function c81006036.ritual_filter(c)
+	return c:IsSetCard(0x81c) and c:IsRace(RACE_CYBERSE)
+end
+function c81006036.mfilter(c)
+	return c:IsType(TYPE_RITUAL)
+end

expansions/script/c81010003.lua

+--Lapis
+function c81010003.initial_effect(c)
+	--Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	e0:SetTarget(c81010003.regtg)
+	e0:SetOperation(c81010003.bgmop)
+	c:RegisterEffect(e0)
+	--cannot be destroyed
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--cannot set/activate
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_SSET)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(c81010003.setlimit)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+	e3:SetRange(LOCATION_FZONE)
+	e3:SetTargetRange(1,0)
+	e3:SetValue(c81010003.actlimit)
+	c:RegisterEffect(e3)
+	--draw
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetRange(LOCATION_FZONE)
+	e4:SetCode(EVENT_RELEASE)
+	e4:SetProperty(EFFECT_FLAG_DELAY)
+	e4:SetCountLimit(3)
+	e4:SetCondition(c81010003.drcon)
+	e4:SetOperation(c81010003.drop)
+	c:RegisterEffect(e4)
+	--indes
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e5:SetRange(LOCATION_FZONE)
+	e5:SetTargetRange(LOCATION_MZONE,0)
+	e5:SetTarget(c81010003.xyztarget)
+	e5:SetValue(c81010003.indesval)
+	c:RegisterEffect(e5)
+	--cannot be target
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_FIELD)
+	e6:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e6:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e6:SetRange(LOCATION_FZONE)
+	e6:SetTargetRange(LOCATION_MZONE,0)
+	e6:SetTarget(c81010003.xyztarget)
+	e6:SetValue(aux.tgoval)
+	c:RegisterEffect(e6)
+	--attack twice
+	local e7=Effect.CreateEffect(c)
+	e7:SetType(EFFECT_TYPE_IGNITION)
+	e7:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e7:SetRange(LOCATION_FZONE)
+	e7:SetCountLimit(1,81010003)
+	e7:SetCondition(c81010003.atcon)
+	e7:SetCost(c81010003.atcost)
+	e7:SetTarget(c81010003.attg)
+	e7:SetOperation(c81010003.atop)
+	c:RegisterEffect(e7)
+end
+function c81010003.setlimit(e,c,tp)
+	return c:IsType(TYPE_FIELD)
+end
+function c81010003.actlimit(e,re,tp)
+	return re:IsActiveType(TYPE_FIELD) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function c81010003.regtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return true
+	end
+	local c=e:GetHandler()
+	--to grave
+	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_FZONE)
+	e1:SetCondition(c81010003.gycon)
+	e1:SetOperation(c81010003.gyop)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	c:SetTurnCounter(0)
+	c:RegisterEffect(e1)
+end
+function c81010003.gycon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c81010003.gyop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=c:GetTurnCounter()
+	ct=ct+1
+	c:SetTurnCounter(ct)
+	if ct==4 then
+		Duel.SendtoGrave(c,REASON_RULE)
+	end
+end
+function c81010003.bgmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_MUSIC,0,aux.Stringid(81010003,0))
+end 
+function c81010003.cfilter(c,tp)
+	return ((c:GetPreviousAttackOnField()==1550 and c:IsPreviousLocation(LOCATION_MZONE)) or (c:IsAttack(1550) and c:IsPreviousLocation(LOCATION_HAND))) and c:IsReason(REASON_RELEASE) and c:GetPreviousControler()==tp
+end
+function c81010003.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c81010003.cfilter,1,nil,tp)
+end
+function c81010003.drop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,e:GetHandler():GetCode())
+	Duel.Draw(tp,1,REASON_EFFECT)
+end
+function c81010003.indesval(e,re,rp)
+	return rp~=e:GetHandlerPlayer()
+end
+function c81010003.xyztarget(e,c)
+	return c:IsType(TYPE_PENDULUM) and c:IsType(TYPE_RITUAL) and c:IsStatus(STATUS_SPSUMMON_TURN)
+end
+function c81010003.atcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsAbleToEnterBP()
+end
+function c81010003.costfilter(c)
+	return bit.band(c:GetType(),0x81)==0x81 and c:IsFaceup() and c:IsAbleToDeckAsCost()
+end
+function c81010003.atcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81010003.costfilter,tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c81010003.costfilter,tp,LOCATION_EXTRA,0,1,1,nil)
+	Duel.SendtoDeck(g,nil,2,REASON_COST)
+end
+function c81010003.filter(c)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsType(TYPE_RITUAL) and not (c:IsHasEffect(EFFECT_PIERCE) and c:IsHasEffect(EFFECT_EXTRA_ATTACK))
+end
+function c81010003.attg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81010003.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c81010003.filter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c81010003.filter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c81010003.atop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_EXTRA_ATTACK)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetValue(1)
+		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_PIERCE)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e2)
+	end
+end

expansions/script/c81010041.lua

+--Vinteren Intethet
+function c81010041.initial_effect(c)
+	--Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetCategory(CATEGORY_REMOVE)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	e0:SetTarget(c81010041.regtg)
+	e0:SetOperation(c81010041.bgmop)
+	c:RegisterEffect(e0)
+	--cannot be destroyed
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--cannot set/activate
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_SSET)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(c81010041.setlimit)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+	e3:SetRange(LOCATION_FZONE)
+	e3:SetTargetRange(1,0)
+	e3:SetValue(c81010041.actlimit)
+	c:RegisterEffect(e3)
+	--atkup
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetRange(LOCATION_FZONE)
+	e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e4:SetCode(EFFECT_UPDATE_ATTACK)
+	e4:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_EFFECT))
+	e4:SetValue(-2000)
+	c:RegisterEffect(e4)
+	local e5=e4:Clone()
+	e5:SetCode(EFFECT_UPDATE_DEFENSE)
+	c:RegisterEffect(e5)
+	--draw
+	local e6=Effect.CreateEffect(c)
+	e6:SetCategory(CATEGORY_DRAW)
+	e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY)
+	e6:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e6:SetRange(LOCATION_FZONE)
+	e6:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
+	e6:SetCondition(c81010041.condition)
+	e6:SetTarget(c81010041.target)
+	e6:SetOperation(c81010041.operation)
+	c:RegisterEffect(e6)
+	local e7=e6:Clone()
+	e7:SetCode(EVENT_SUMMON_SUCCESS)
+	c:RegisterEffect(e7)
+	--negate
+	local e8=Effect.CreateEffect(c)
+	e8:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e8:SetType(EFFECT_TYPE_QUICK_O)
+	e8:SetCode(EVENT_CHAINING)
+	e8:SetRange(LOCATION_FZONE)
+	e8:SetCountLimit(1)
+	e8:SetCondition(c81010041.negcon)
+	e8:SetCost(c81010041.negcost)
+	e8:SetTarget(c81010041.negtg)
+	e8:SetOperation(c81010041.negop)
+	c:RegisterEffect(e8)
+	--splimit
+	local ea=Effect.CreateEffect(c)
+	ea:SetType(EFFECT_TYPE_FIELD)
+	ea:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	ea:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	ea:SetRange(LOCATION_FZONE)
+	ea:SetTargetRange(1,0)
+	ea:SetTarget(c81010041.splimit)
+	c:RegisterEffect(ea)
+	local eb=ea:Clone()
+	eb:SetCode(EFFECT_CANNOT_FLIP_SUMMON)
+	c:RegisterEffect(eb)
+	local ec=ea:Clone()
+	ec:SetCode(EFFECT_CANNOT_SUMMON)
+	c:RegisterEffect(ec)
+	local ed=ea:Clone()
+	ed:SetCode(EFFECT_CANNOT_MSET)
+	c:RegisterEffect(ed)
+end
+function c81010041.desfilter(c)
+	return c:IsType(TYPE_EFFECT) and c:IsAbleToRemove()
+end
+function c81010041.setlimit(e,c,tp)
+	return c:IsType(TYPE_FIELD)
+end
+function c81010041.actlimit(e,re,tp)
+	return re:IsActiveType(TYPE_FIELD) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function c81010041.regtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=Duel.GetMatchingGroup(c81010041.desfilter,tp,LOCATION_MZONE,0,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
+	local c=e:GetHandler()
+	--to grave
+	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_FZONE)
+	e1:SetCondition(c81010041.gycon)
+	e1:SetOperation(c81010041.gyop)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	c:SetTurnCounter(0)
+	c:RegisterEffect(e1)
+end
+function c81010041.gycon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c81010041.gyop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=c:GetTurnCounter()
+	ct=ct+1
+	c:SetTurnCounter(ct)
+	if ct==4 then
+		Duel.SendtoGrave(c,REASON_RULE)
+	end
+end
+function c81010041.bgmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_MUSIC,0,aux.Stringid(81010041,0))
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local g=Duel.GetMatchingGroup(c81010041.desfilter,tp,LOCATION_MZONE,0,nil)
+	if g:GetCount()>0 then
+		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+	end
+end 
+function c81010041.splimit(e,c,sump,sumtype,sumpos,targetp)
+	return c:IsType(TYPE_EFFECT)
+end
+function c81010041.cfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_NORMAL) and not c:IsType(TYPE_TOKEN)
+end
+function c81010041.condition(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c81010041.cfilter,1,nil)
+end
+function c81010041.target(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 c81010041.operation(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
+function c81010041.negcon(e,tp,eg,ep,ev,re,r,rp)
+	return re:GetHandler()~=e:GetHandler()
+		and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
+end
+function c81010041.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsType,1,nil,TYPE_NORMAL) end
+	local g=Duel.SelectReleaseGroup(tp,Card.IsType,1,1,nil,TYPE_NORMAL)
+	Duel.Release(g,REASON_COST)
+end
+function c81010041.negtg(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 c81010041.negop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end

expansions/script/c81010047.lua

+--Crystal World
+c81010047.card_code_list={81010004}
+function c81010047.initial_effect(c)
+	--Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	e0:SetTarget(c81010047.regtg)
+	e0:SetOperation(c81010047.bgmop)
+	c:RegisterEffect(e0)
+	--cannot be destroyed
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--cannot set/activate
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_SSET)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(c81010047.setlimit)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+	e3:SetRange(LOCATION_FZONE)
+	e3:SetTargetRange(1,0)
+	e3:SetValue(c81010047.actlimit)
+	c:RegisterEffect(e3)
+	--spsummon
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(81010047,1))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_DESTROYED)
+	e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e4:SetRange(LOCATION_FZONE)
+	e4:SetCountLimit(1,81010047)
+	e4:SetCondition(c81010047.spcon)
+	e4:SetCost(c81010047.cost)
+	e4:SetTarget(c81010047.sptg)
+	e4:SetOperation(c81010047.spop)
+	c:RegisterEffect(e4)
+	--special summon
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(81010047,2))
+	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e5:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e5:SetCode(EVENT_BATTLE_DESTROYED)
+	e5:SetRange(LOCATION_FZONE)
+	e5:SetCountLimit(1,81010947+EFFECT_COUNT_CODE_SINGLE)
+	e5:SetCondition(c81010047.ppcon1)
+	e5:SetCost(c81010047.cost)
+	e5:SetTarget(c81010047.pptg)
+	e5:SetOperation(c81010047.ppop)
+	c:RegisterEffect(e5)
+	local e6=e5:Clone()
+	e6:SetCode(EVENT_DESTROYED)
+	e6:SetCondition(c81010047.ppcon2)
+	c:RegisterEffect(e6)
+	Duel.AddCustomActivityCounter(81010047,ACTIVITY_SPSUMMON,c81010047.counterfilter)
+end
+function c81010047.counterfilter(c)
+	return c:IsAttribute(ATTRIBUTE_WIND)
+end
+function c81010047.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(81010047,tp,ACTIVITY_SPSUMMON)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c81010047.splimit)
+	Duel.RegisterEffect(e1,tp)
+end
+function c81010047.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return not c:IsAttribute(ATTRIBUTE_WIND)
+end
+function c81010047.setlimit(e,c,tp)
+	return c:IsType(TYPE_FIELD)
+end
+function c81010047.actlimit(e,re,tp)
+	return re:IsActiveType(TYPE_FIELD) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function c81010047.regtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return true
+	end
+	local c=e:GetHandler()
+	--to grave
+	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_FZONE)
+	e1:SetCondition(c81010047.gycon)
+	e1:SetOperation(c81010047.gyop)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	c:SetTurnCounter(0)
+	c:RegisterEffect(e1)
+end
+function c81010047.gycon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c81010047.gyop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=c:GetTurnCounter()
+	ct=ct+1
+	c:SetTurnCounter(ct)
+	if ct==5 then
+		Duel.SendtoGrave(c,REASON_RULE)
+	end
+end
+function c81010047.bgmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_MUSIC,0,aux.Stringid(81010047,0))
+end 
+function c81010047.cfilter(c,tp)
+	return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:GetPreviousControler()==tp
+		and c:IsPreviousLocation(LOCATION_MZONE) 
+		and c:GetPreviousAttributeOnField()==ATTRIBUTE_WIND 
+		and c:IsPreviousPosition(POS_FACEUP)
+end
+function c81010047.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c81010047.cfilter,1,nil,tp)
+end
+function c81010047.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,81010005,0,0x4011,800,800,3,RACE_ROCK,ATTRIBUTE_WIND,POS_FACEUP,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,tp,0)
+end
+function c81010047.spop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsRelateToEffect(e) and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,81010005,0,0x4011,800,800,3,RACE_ROCK,ATTRIBUTE_WIND,POS_FACEUP,tp) then
+		local token=Duel.CreateToken(tp,81010005)
+		Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c81010047.ppcon1(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	local bc=tc:GetBattleTarget()
+	return tc:GetPreviousControler()~=tp
+		and bc:IsControler(tp) and bc:GetOriginalAttribute()==ATTRIBUTE_WIND
+end
+function c81010047.dfilter(c)
+	return c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_ONFIELD)
+end
+function c81010047.ppcon2(e,tp,eg,ep,ev,re,r,rp)
+	if not re then return false end
+	local rc=re:GetHandler()
+	return rc:IsControler(tp) and rc:GetOriginalAttribute()==ATTRIBUTE_WIND
+		and eg:IsExists(c81010047.dfilter,1,nil)
+end
+function c81010047.ppfilter(c,e,tp)
+	return c:IsAttribute(ATTRIBUTE_WIND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c81010047.pptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c81010047.ppfilter,tp,LOCATION_HAND+LOCATION_REMOVED,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_REMOVED)
+end
+function c81010047.ppop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c81010047.ppfilter,tp,LOCATION_HAND+LOCATION_REMOVED,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		local tc=g:GetFirst()
+		Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
+		local e0=Effect.CreateEffect(e:GetHandler())
+		e0:SetType(EFFECT_TYPE_SINGLE)
+		e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e0:SetCode(EFFECT_CANNOT_TRIGGER)
+		e0:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e0)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CANNOT_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+	end
+	Duel.SpecialSummonComplete()
+end

expansions/script/c81010056.lua

+--似乎被吓个半死
+function c81010056.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(c81010056.target)
+	e1:SetOperation(c81010056.activate)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	local e3=e1:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+end
+function c81010056.filter(c,tp)
+	return c:GetSummonPlayer()==tp
+end
+function c81010056.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return eg:IsExists(c81010056.filter,1,nil,1-tp) and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c81010056.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
+	Duel.Destroy(g,REASON_EFFECT)
+end

expansions/script/c81011027.lua

@@ -21,7 +21,7 @@ function c81011027.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 function c81011027.spfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGraveAsCost()
+	return (bit.band(c:GetOriginalType(),TYPE_SPELL)~=0 or bit.band(c:GetOriginalType(),TYPE_TRAP)~=0) and c:IsAbleToGraveAsCost()
 end
 function c81011027.spcon(e,c)
 	if c==nil then return true end
@@ -34,7 +34,7 @@ function c81011027.spop(e,tp,eg,ep,ev,re,r,rp,c)
 	Duel.SendtoGrave(g,REASON_COST)
 end
 function c81011027.vfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGraveAsCost()
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGraveAsCost()
 end
 function c81011027.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c81011027.vfilter,tp,LOCATION_ONFIELD,0,1,nil) end
@@ -57,17 +57,5 @@ function c81011027.setop(e,tp,eg,ep,ev,re,r,rp)
 	if tc then
 		Duel.SSet(tp,tc)
 		Duel.ConfirmCards(1-tp,g)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_FIELD)
-		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-		e1:SetCode(EFFECT_CANNOT_ACTIVATE)
-		e1:SetTargetRange(1,0)
-		e1:SetValue(c81011027.aclimit)
-		e1:SetLabel(tc:GetCode())
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		Duel.RegisterEffect(e1,tp)
 	end
 end
-function c81011027.aclimit(e,re,tp)
-	return re:GetHandler():IsCode(e:GetLabel())
-end

expansions/script/c81011033.lua

+--黑崎智秋的学生时代
+function c81011033.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,81011033+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c81011033.condition)
+	e1:SetCost(c81011033.cost)
+	e1:SetTarget(c81011033.target)
+	e1:SetOperation(c81011033.activate)
+	c:RegisterEffect(e1)
+end
+function c81011033.ntfil(c)
+	return not c:IsType(TYPE_SPELL)
+end
+function c81011033.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.GetMatchingGroupCount(c81011033.ntfil,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil)==0 
+end
+function c81011033.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_NORMALSUMMON)==0 and Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0
+	and Duel.GetActivityCount(tp,ACTIVITY_FLIPSUMMON)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTargetRange(1,0)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_MSET)
+	Duel.RegisterEffect(e2,tp)
+	local e3=e1:Clone()
+	e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	Duel.RegisterEffect(e3,tp)
+	local e4=e1:Clone()
+	e4:SetCode(EFFECT_CANNOT_FLIP_SUMMON)
+	Duel.RegisterEffect(e4,tp)
+end
+function c81011033.filter(c)
+	return c:IsType(TYPE_SPELL) and c:IsAbleToHand()
+end
+function c81011033.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81011033.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c81011033.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c81011033.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
+	if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then return end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e1:SetTargetRange(1,0)
+	e1:SetValue(c81011033.aclimit)
+	Duel.RegisterEffect(e1,tp)
+end
+function c81011033.aclimit(e,re,tp)
+	return not re:IsActiveType(TYPE_SPELL)
+end

expansions/script/c81011039.lua

+--云上·黑崎智秋
+function c81011039.initial_effect(c)
+	c:SetSPSummonOnce(81011039)
+	--link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,nil,2,2,c81011039.lcheck)
+	--atk
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetValue(c81011039.atkval)
+	c:RegisterEffect(e1)
+	--counter
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_COUNTER)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_LEAVE_FIELD)
+	e2:SetCountLimit(1,81011039)
+	e2:SetCondition(c81011039.ccon)
+	e2:SetOperation(c81011039.cop)
+	c:RegisterEffect(e2)
+end
+function c81011039.lcheck(g,lc)
+	return g:IsExists(c81011039.mzfilter,1,nil)
+end
+function c81011039.mzfilter(c)
+	return c:GetCounter(0x1da0)>0 and c:IsLinkType(TYPE_MONSTER)
+end
+function c81011039.atkval(e,c)
+	return Duel.GetCounter(0,1,1,0x1da0)*200
+end
+function c81011039.ccon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousPosition(POS_FACEUP)
+end
+function c81011039.cop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(Card.IsCanAddCounter,tp,0,LOCATION_ONFIELD,nil,0x1da0,1)
+	local tc=g:GetFirst()
+	while tc do
+		tc:AddCounter(0x1da0,1)
+		tc=g:GetNext()
+	end
+end

expansions/script/c81011040.lua

+--清晨阳光·椎名咪玉
+function c81011040.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,c81011040.mfilter,2,2)
+	--equip change
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,81011040)
+	e1:SetTarget(c81011040.eqtg)
+	e1:SetOperation(c81011040.eqop)
+	c:RegisterEffect(e1)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,81011940)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c81011040.thtg)
+	e2:SetOperation(c81011040.thop)
+	c:RegisterEffect(e2)
+end
+function c81011040.mfilter(c)
+	return not c:IsType(TYPE_LINK) and c:IsLinkRace(RACE_WARRIOR)
+end
+function c81011040.eqfilter1(c)
+	return c:GetEquipTarget()
+		and Duel.IsExistingTarget(c81011040.eqfilter2,0,LOCATION_MZONE,LOCATION_MZONE,1,c:GetEquipTarget(),c)
+end
+function c81011040.eqfilter2(c,ec)
+	return c:IsFaceup() and ec:CheckEquipTarget(c)
+end
+function c81011040.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return false end
+	if chk==0 then return Duel.IsExistingTarget(c81011040.eqfilter1,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local g1=Duel.SelectTarget(tp,c81011040.eqfilter1,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil)
+	local tc=g1:GetFirst()
+	e:SetLabelObject(tc)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	local g2=Duel.SelectTarget(tp,c81011040.eqfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,tc:GetEquipTarget(),tc)
+end
+function c81011040.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local ec=e:GetLabelObject()
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local tc=g:GetFirst()
+	if tc==ec then tc=g:GetNext() end
+	if ec:IsFaceup() and ec:IsRelateToEffect(e) and ec:CheckEquipTarget(tc) and tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		Duel.Equip(tp,ec,tc)
+	end
+end
+function c81011040.thfilter(c)
+	return c:IsType(TYPE_EQUIP) and c:IsAbleToHand()
+end
+function c81011040.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81011040.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c81011040.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c81011040.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
+	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(c81011040.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetTarget(c81011040.atktg)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+end
+function c81011040.splimit(e,c)
+	return not c:IsRace(RACE_WARRIOR)
+end
+function c81011040.atktg(e,c)
+	return c:GetEquipCount()==0
+end

expansions/script/c81012068.lua

+--自在周末·理子
+function c81012068.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsRace,RACE_PYRO),1)
+	c:EnableReviveLimit()
+	--disable attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetCountLimit(1,81012068)
+	e1:SetCondition(c81012068.atkcon)
+	e1:SetCost(c81012068.atkcost)
+	e1:SetOperation(c81012068.atkop)
+	c:RegisterEffect(e1)
+	--immune
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_IMMUNE_EFFECT)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetCondition(c81012068.immcon)
+	e2:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_PYRO))
+	e2:SetValue(c81012068.efilter)
+	c:RegisterEffect(e2)
+end
+function c81012068.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	return tc:IsControler(1-tp)
+end
+function c81012068.costfilter(c)
+	return bit.band(c:GetType(),0x81)==0x81 and c:IsFaceup() and c:IsAbleToDeckAsCost()
+end
+function c81012068.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81012068.costfilter,tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c81012068.costfilter,tp,LOCATION_EXTRA,0,1,1,nil)
+	Duel.SendtoDeck(g,nil,2,REASON_COST)
+end
+function c81012068.atkop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateAttack()
+end
+function c81012068.cfilter(c)
+	return c:IsFaceup() and c:IsRace(RACE_PYRO) and c:IsType(TYPE_PENDULUM) and c:IsType(TYPE_RITUAL) and c:IsLevelAbove(8)
+end
+function c81012068.immcon(e)
+	return Duel.IsExistingMatchingCard(c81012068.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
+end
+function c81012068.efilter(e,te)
+	return te:GetOwnerPlayer()~=e:GetHandlerPlayer() and te:IsActiveType(TYPE_MONSTER)
+end

expansions/script/c81015051.lua

+--北上丽花的思虑
+require("expansions/script/c81000000")
+function c81015051.initial_effect(c)
+	--act in hand
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	e0:SetCondition(Tenka.ReikaCon)
+	c:RegisterEffect(e0)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetCountLimit(1,81015051+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c81015051.condition)
+	e1:SetOperation(c81015051.activate)
+	c:RegisterEffect(e1)
+	--destroy replace
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EFFECT_DESTROY_REPLACE)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetTarget(c81015051.reptg)
+	e2:SetValue(c81015051.repval)
+	e2:SetOperation(c81015051.repop)
+	c:RegisterEffect(e2)
+end
+function c81015051.condition(e,tp,eg,ep,ev,re,r,rp)
+	local a=Duel.GetAttacker()
+	local at=Duel.GetAttackTarget()
+	return at and ((a:IsControler(tp) and a:IsSetCard(0x81a))
+		or (at:IsControler(tp) and at:IsFaceup() and at:IsSetCard(0x81a)))
+end
+function c81015051.activate(e,tp,eg,ep,ev,re,r,rp)
+	local a=Duel.GetAttacker()
+	local at=Duel.GetAttackTarget()
+	if a:IsControler(1-tp) then a,at=at,a end
+	if not a:IsRelateToBattle() or a:IsFacedown() or not at:IsRelateToBattle() or at:IsFacedown() then return end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_DAMAGE)
+	e1:SetValue(at:GetAttack())
+	a:RegisterEffect(e1)
+end
+function c81015051.repfilter(c,tp)
+	return c:IsFaceup() and c:IsSetCard(0x81a)
+		and c:IsOnField() and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
+end
+function c81015051.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemove() and Tenka.ReikaCon(e) and eg:IsExists(c81015051.repfilter,1,nil,tp) end
+	return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
+end
+function c81015051.repval(e,c)
+	return c81015051.repfilter(c,e:GetHandlerPlayer())
+end
+function c81015051.repop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c81018046.lua

+--最上静香的回忆诗
+function c81018046.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,81018046)
+	e1:SetTarget(c81018046.target)
+	e1:SetOperation(c81018046.activate)
+	c:RegisterEffect(e1)
+	--fusion summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCountLimit(1,81018946)
+	e3:SetCost(aux.bfgcost)
+	e3:SetTarget(c81018046.sptg)
+	e3:SetOperation(c81018046.spop)
+	c:RegisterEffect(e3)
+end
+function c81018046.filter(c)
+	return c:IsSetCard(0x81b) and c:IsAbleToHand()
+end
+function c81018046.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81018046.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c81018046.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c81018046.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c81018046.spfilter1(c,e)
+	return c:IsSetCard(0x81b) and not c:IsImmuneToEffect(e)
+end
+function c81018046.spfilter2(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 c81018046.spfilter3(c)
+	return c:IsCanBeFusionMaterial() and c:IsSetCard(0x81b)
+end
+function c81018046.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local chkf=tp
+		local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsSetCard,nil,0x81b)
+		local res=Duel.IsExistingMatchingCard(c81018046.spfilter2,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):Filter(c81018046.spfilter3,nil)
+				local mf=ce:GetValue()
+				res=Duel.IsExistingMatchingCard(c81018046.spfilter2,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)
+end
+function c81018046.spop(e,tp,eg,ep,ev,re,r,rp)
+	local chkf=tp
+	local mg1=Duel.GetFusionMaterial(tp):Filter(c81018046.spfilter1,nil,e)
+	local sg1=Duel.GetMatchingGroup(c81018046.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
+	local mg2=nil
+	local sg2=nil
+	local ce=Duel.GetChainMaterial(tp)
+	if ce~=nil then
+		local fgroup=ce:GetTarget()
+		mg2=fgroup(ce,e,tp):Filter(c81018046.spfilter3,nil)
+		local mf=ce:GetValue()
+		sg2=Duel.GetMatchingGroup(c81018046.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
+	end
+	if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
+		local sg=sg1:Clone()
+		if sg2 then sg:Merge(sg2) end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local tg=sg:Select(tp,1,1,nil)
+		local tc=tg:GetFirst()
+		if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
+			local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
+			tc:SetMaterial(mat1)
+			Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
+			Duel.BreakEffect()
+			Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+		else
+			local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
+			local fop=ce:GetOperation()
+			fop(ce,e,tp,tc,mat2)
+		end
+		tc:CompleteProcedure()
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_BASE_ATTACK)
+		e1:SetValue(0)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1,true)
+	end
+end

expansions/script/c81018047.lua

+--雨季·屋檐之下
+function c81018047.initial_effect(c)
+	--Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)
+	--atk up
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetValue(-800)
+	c:RegisterEffect(e1)
+	--indestructable
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x81b))
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	--Negate
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1,81018047)
+	e3:SetCondition(c81018047.conditiona)
+	e3:SetCost(c81018047.cost)
+	e3:SetTarget(c81018047.target)
+	e3:SetOperation(c81018047.operation)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCondition(c81018047.conditionb)
+	c:RegisterEffect(e4)
+	--to hand
+	local e5=Effect.CreateEffect(c)
+	e5:SetCategory(CATEGORY_TOHAND)
+	e5:SetType(EFFECT_TYPE_IGNITION)
+	e5:SetRange(LOCATION_GRAVE)
+	e5:SetCountLimit(1,81018947)
+	e5:SetCondition(aux.exccon)
+	e5:SetCost(c81018047.thcost)
+	e5:SetTarget(c81018047.thtg)
+	e5:SetOperation(c81018047.thop)
+	c:RegisterEffect(e5)
+end
+function c81018047.conditiona(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.IsChainNegatable(ev) then return false end
+	if re:IsHasCategory(CATEGORY_NEGATE)
+		and Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT):IsHasType(EFFECT_TYPE_ACTIVATE) then return false end
+	local ex,tg,tc=Duel.GetOperationInfo(ev,CATEGORY_DESTROY)
+	return ex and tg~=nil and tc+tg:FilterCount(Card.IsOnField,nil)-tg:GetCount()>0
+end
+function c81018047.conditionb(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.IsChainNegatable(ev) then return false end
+	if re:IsHasCategory(CATEGORY_NEGATE)
+		and Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT):IsHasType(EFFECT_TYPE_ACTIVATE) then return false end
+	local ex,tg,tc=Duel.GetOperationInfo(ev,CATEGORY_REMOVE)
+	return ex and tg~=nil and tc+tg:FilterCount(Card.IsOnField,nil)-tg:GetCount()>0
+end
+function c81018047.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x1810,3,REASON_COST) end
+	Duel.RemoveCounter(tp,1,1,0x1810,3,REASON_COST)
+end
+function c81018047.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c81018047.operation(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end
+function c81018047.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+	Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_COST)
+end
+function c81018047.thfilter(c)
+	return c:IsSetCard(0x81b) and c:IsFaceup() and c:IsAbleToHand()
+end
+function c81018047.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c81018047.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED)
+end
+function c81018047.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c81018047.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

expansions/script/c81019002.lua

@@ -10,7 +10,7 @@ function c81019002.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 function c81019002.filter(c)
-	return c:IsCode(81000000,81011000) and c:IsAbleToHand()
+	return c:IsCode(81000000,81011000,26807000) and c:IsAbleToHand()
 end
 function c81019002.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c81019002.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end

expansions/script/c82206000.lua

+local m=82206000
+local cm=_G["c"..m]
+cm.name="幻晶兽 炽晶"
+--配 置
+cm.set=0x296	--字 段
+cm.count=3	  --翻 开 卡 片 数 量
+function cm.initial_effect(c)
+	--To Hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	--Special Summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCondition(cm.spcon)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+end
+--To Hand
+function cm.filter(c)
+	return c:IsSetCard(cm.set) and c:IsAbleToHand()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=cm.count end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
+	Duel.ConfirmDecktop(p,cm.count)
+	local g=Duel.GetDecktopGroup(p,cm.count)
+	if g:IsExists(cm.filter,1,nil) and Duel.SelectYesNo(p,aux.Stringid(m,1)) then
+		Duel.Hint(HINT_SELECTMSG,p,HINTMSG_ATOHAND)
+		local sg=g:FilterSelect(p,cm.filter,1,1,nil)
+		Duel.SendtoHand(sg,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-p,sg)
+		Duel.ShuffleHand(p)
+	end
+	Duel.ShuffleDeck(p)
+end
+--Special Summon
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c82206001.lua

+local m=82206001
+local cm=_G["c"..m]
+cm.name="幻晶兽 幽晶"
+--配 置
+cm.set=0x296	--字 段
+function cm.initial_effect(c)
+	--Special Summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	--Special Summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCondition(cm.spcon)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+end
+--Special Summon
+function cm.filter1(c,e,tp)
+	return c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER)
+		and Duel.IsExistingTarget(cm.filter2,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetCode())
+end
+function cm.filter2(c,e,tp,code)
+	return c:IsCode(code) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and cm.filter1(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(cm.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,1))
+	local g=Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		local sc=Duel.GetFirstMatchingCard(cm.filter2,tp,LOCATION_DECK,0,nil,e,tp,tc:GetCode())
+		if not sc then return end
+		Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
+		Duel.ShuffleDeck(tp)
+		Duel.BreakEffect()
+		if Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)~=0 then
+			Duel.ConfirmDecktop(tp,1)
+		end
+	end
+end
+--Special Summon
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c82206002.lua

+local m=82206002
+local cm=_G["c"..m]
+cm.name="幻晶兽 凝晶"
+--配 置
+cm.set=0x296	--字 段
+function cm.initial_effect(c)
+	--To Hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	--Special Summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCondition(cm.spcon)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+end
+--To Hand
+function cm.filter1(c,tp)
+	return c:IsSetCard(cm.set) and Duel.IsExistingTarget(cm.filter2,tp,LOCATION_DECK,0,1,nil,c:GetCode())
+end
+function cm.filter2(c,code)
+	return c:IsCode(code) and c:IsAbleToHand()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and cm.filter1(chkc,tp) end
+	if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_GRAVE,0,1,nil,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,1))
+	local g=Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_GRAVE,0,1,1,nil,tp)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		local sc=Duel.GetFirstMatchingCard(cm.filter2,tp,LOCATION_DECK,0,nil,tc:GetCode())
+		if not sc then return end
+		Duel.SendtoHand(sc,nil,REASON_EFFECT)
+		Duel.ShuffleDeck(tp)
+		Duel.BreakEffect()
+		if Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)~=0 then
+			Duel.ConfirmDecktop(tp,1)
+		end
+	end
+end
+--Special Summon
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c82206003.lua

+local m=82206003
+local cm=_G["c"..m]
+cm.name="幻晶兽 绀晶"
+--配 置
+cm.set=0x296	--字 段
+cm.count=3	--翻 开 卡 片 数 量
+function cm.initial_effect(c)
+	--Special Summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	--Special Summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCondition(cm.spcon)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+end
+--Special Summon
+function cm.filter(c,e,tp)
+	return c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=cm.count end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
+	Duel.ConfirmDecktop(p,cm.count)
+	local g=Duel.GetDecktopGroup(p,cm.count)
+	if g:IsExists(cm.filter,1,nil,e,p) and Duel.SelectYesNo(p,aux.Stringid(m,1)) then
+		Duel.Hint(HINT_SELECTMSG,p,HINTMSG_ATOHAND)
+		local sg=g:FilterSelect(p,cm.filter,1,1,nil,e,tp)
+		Duel.SpecialSummon(sg,0,p,p,false,false,POS_FACEUP)
+	end
+	Duel.ShuffleDeck(p)
+end
+--Special Summon
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c82206005.lua

+local m=82206005
+local cm=_G["c"..m]
+cm.name="幻晶兽 凛晶"
+--配 置
+cm.set=0x296	--字 段
+function cm.initial_effect(c)
+	c:EnableReviveLimit()
+	--Link Summon
+	aux.AddLinkProcedure(c,cm.mfilter,1,1)
+	--Search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,m)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--Destroy Replace
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EFFECT_DESTROY_REPLACE)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetTarget(cm.reptg)
+	e2:SetValue(cm.repval)
+	e2:SetOperation(cm.repop)
+	c:RegisterEffect(e2)
+	--Cost
+	Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
+end
+--Link Summon
+function cm.mfilter(c)
+	return not c:IsCode(m) and c:IsLinkRace(RACE_BEASTWARRIOR) and c:IsLinkAttribute(ATTRIBUTE_WIND)
+end
+--Cost
+function cm.counterfilter(c)
+	return c:IsAttribute(ATTRIBUTE_WIND)
+end
+function cm.splimit(e,c,sump,sumtype,sumpos,targetp)
+	return not c:IsAttribute(ATTRIBUTE_WIND)
+end
+--Search
+function cm.filter(c)
+	return c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(cm.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,1))
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.ShuffleDeck(tp)
+		Duel.MoveSequence(g:GetFirst(),0)
+		Duel.ConfirmDecktop(tp,1)
+	end
+end
+--Destroy Replace
+function cm.repfilter(c,tp)
+	return c:IsFaceup() and c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER)
+		and c:IsOnField() and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
+end
+function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(cm.repfilter,1,nil,tp) end
+	return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
+end
+function cm.repval(e,c)
+	return cm.repfilter(c,e:GetHandlerPlayer())
+end
+function cm.repop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c82206006.lua

+local m=82206006
+local cm=_G["c"..m]
+cm.name="幻晶兽 岚晶"
+--配 置
+cm.set=0x296	--字 段
+cm.count=3	--对 象 数
+function cm.initial_effect(c)
+	c:EnableReviveLimit()
+	--Link Summon
+	aux.AddLinkProcedure(c,cm.mfilter,2,2)
+	--Draw
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.drtg)
+	e1:SetOperation(cm.drop)
+	c:RegisterEffect(e1)
+	--Special Summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCondition(cm.spcon)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+end
+--Link Summon
+function cm.mfilter(c)
+	return c:IsLinkAttribute(ATTRIBUTE_WIND)
+end
+--Draw
+function cm.tdfilter(c)
+	return c:IsSetCard(cm.set) and c:IsAbleToDeck()
+end
+function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.tdfilter(chkc) end
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
+		and Duel.IsExistingTarget(cm.tdfilter,tp,LOCATION_GRAVE,0,cm.count,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,cm.tdfilter,tp,LOCATION_GRAVE,0,cm.count,cm.count,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
+end
+function cm.drop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.Draw(tp,1,REASON_EFFECT)==0 then return end
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	if g:GetCount()<1 then return end
+	Duel.BreakEffect()
+	Duel.SendtoDeck(g,nil,0,REASON_EFFECT)
+	local og=Duel.GetOperatedGroup()
+	local ct=og:FilterCount(Card.IsLocation,nil,LOCATION_DECK)
+	if ct>0 then
+		Duel.SortDecktop(tp,tp,ct)
+	end
+end
+--Special Summon
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c82206007.lua

+local m=82206007
+local cm=_G["c"..m]
+cm.name="幻晶兽 恋晶"
+--配 置
+cm.set=0x296	--字 段
+cm.count=3  --翻 开 卡 片 数 量
+function cm.initial_effect(c)
+	c:EnableReviveLimit()
+	--Synchro Summon
+	aux.AddSynchroProcedure(c,cm.tfilter,aux.NonTuner(nil),1)
+	--Draw
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCountLimit(1,m)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--Special Summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCondition(cm.spcon)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+	--Cost
+	Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
+end
+--Synchro Summon
+function cm.tfilter(c)
+	return c:IsAttribute(ATTRIBUTE_WIND)
+end
+--Cost
+function cm.counterfilter(c)
+	return c:IsAttribute(ATTRIBUTE_WIND)
+end
+function cm.splimit(e,c,sump,sumtype,sumpos,targetp)
+	return not c:IsAttribute(ATTRIBUTE_WIND)
+end
+--Search
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(cm.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp) and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=cm.count end
+	Duel.SetTargetPlayer(tp)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
+	Duel.ConfirmDecktop(p,cm.count)
+	local g=Duel.GetDecktopGroup(p,cm.count)
+	local ct=g:FilterCount(Card.IsSetCard,nil,cm.set)
+	Duel.ShuffleDeck(p)
+	if ct>0 then
+		Duel.Draw(p,ct,REASON_EFFECT)
+	end
+end
+--Special Summon
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c82206008.lua

+local m=82206008
+local cm=_G["c"..m]
+cm.name="幻晶兽 虚晶"
+--配 置
+cm.set=0x296	--字 段
+function cm.initial_effect(c)
+	c:EnableReviveLimit()
+	--Xyz Summon
+	aux.AddXyzProcedure(c,cm.mfilter,3,2)
+	--Search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,m)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--Special Summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCondition(cm.spcon)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+	--Cost
+	Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
+end
+--Xyz Summon
+function cm.mfilter(c)
+	return c:IsAttribute(ATTRIBUTE_WIND)
+end
+--Cost
+function cm.counterfilter(c)
+	return c:IsAttribute(ATTRIBUTE_WIND)
+end
+function cm.splimit(e,c,sump,sumtype,sumpos,targetp)
+	return not c:IsAttribute(ATTRIBUTE_WIND)
+end
+--Search
+function cm.filter(c)
+	return c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 
+		and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+	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(cm.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+--Special Summon
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(cm.set) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

expansions/script/c82207000.lua

+local m=82207000
+local cm=_G["c"..m]
+function cm.initial_effect(c)  
+	--cannot special summon  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetType(EFFECT_TYPE_SINGLE)  
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)  
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)  
+	c:RegisterEffect(e1) 
+	--summon with no tribute  
+	local e2=Effect.CreateEffect(c)  
+	e2:SetDescription(aux.Stringid(m,0))  
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)  
+	e2:SetType(EFFECT_TYPE_SINGLE)  
+	e2:SetCode(EFFECT_SUMMON_PROC)  
+	e2:SetCondition(cm.ntcon)  
+	c:RegisterEffect(e2) 
+	--effect gain  
+	local e3=Effect.CreateEffect(c)  
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)  
+	e3:SetCode(EVENT_BE_MATERIAL)  
+	e3:SetCondition(cm.efcon)  
+	e3:SetOperation(cm.efop)  
+	c:RegisterEffect(e3)  
+end  
+function cm.ntcon(e,c,minc)  
+	if c==nil then return true end  
+	return minc==0 and c:GetLevel()>4 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0  
+end  
+function cm.efcon(e,tp,eg,ep,ev,re,r,rp)  
+	return r==REASON_XYZ  
+end  
+function cm.efop(e,tp,eg,ep,ev,re,r,rp)  
+	local c=e:GetHandler()  
+	local rc=c:GetReasonCard()  
+	local e1=Effect.CreateEffect(rc)  
+	e1:SetDescription(aux.Stringid(m,1))  
+	e1:SetCategory(CATEGORY_TOHAND)  
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)	
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)  
+	e1:SetCondition(cm.thcon)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.thtg)  
+	e1:SetOperation(cm.thop)  
+	e1:SetReset(RESET_EVENT+0x1fe0000)  
+	rc:RegisterEffect(e1,true)  
+	if not rc:IsType(TYPE_EFFECT) then  
+		local e2=Effect.CreateEffect(c)  
+		e2:SetType(EFFECT_TYPE_SINGLE)  
+		e2:SetCode(EFFECT_ADD_TYPE)  
+		e2:SetValue(TYPE_EFFECT)  
+		e2:SetReset(RESET_EVENT+0x1fe0000)  
+		rc:RegisterEffect(e2,true)  
+	end  
+end  
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)  
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)  
+end  
+function cm.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 cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return true end  
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) 
+end  
+function cm.thfilter(c)  
+	return c:IsCode(82207000) and c:IsAbleToHand()  
+end  
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)  
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)  
+	if g:GetCount()>0 then  
+		Duel.SendtoHand(g,nil,REASON_EFFECT)  
+		Duel.ConfirmCards(1-tp,g)  
+	end  
+end  
\ No newline at end of file

expansions/script/c82207001.lua

+local m=82207001
+local cm=_G["c"..m]
+function cm.initial_effect(c)  
+	--xyz summon  
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_EARTH),11,2,cm.ovfilter,aux.Stringid(m,0),2,cm.xyzop)  
+	c:EnableReviveLimit()
+	--indes  
+	local e3=Effect.CreateEffect(c)  
+	e3:SetType(EFFECT_TYPE_SINGLE)  
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)  
+	e3:SetRange(LOCATION_MZONE)  
+	e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)  
+	e3:SetValue(1)  
+	c:RegisterEffect(e3) 
+	--pos  
+	local e4=Effect.CreateEffect(c)  
+	e4:SetType(EFFECT_TYPE_FIELD)  
+	e4:SetCode(EFFECT_SET_POSITION)  
+	e4:SetRange(LOCATION_MZONE)  
+	e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)  
+	e4:SetCondition(cm.poscon)  
+	e4:SetTarget(cm.postg)  
+	e4:SetValue(POS_FACEUP_DEFENSE)  
+	c:RegisterEffect(e4)  
+end
+function cm.cfilter(c)  
+	return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsAbleToRemoveAsCost()  
+end  
+function cm.ovfilter(c)  
+	return c:IsFaceup() and c:IsCode(82207000)  
+end  
+function cm.xyzop(e,tp,chk)  
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil) and Duel.GetFlagEffect(tp,82207001)==0 end  
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+	Duel.RegisterFlagEffect(tp,82207001,RESET_PHASE+PHASE_END,0,1)  
+end  
+function cm.poscon(e)  
+	return e:GetHandler():IsDefensePos()  
+end  
+function cm.postg(e,c)  
+	return c:IsFaceup()  
+end  
\ No newline at end of file

expansions/script/c82207002.lua

+local m=82207002
+local cm=_G["c"..m]
+function cm.initial_effect(c)  
+	--xyz summon  
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),11,2,cm.ovfilter,aux.Stringid(m,0),2,cm.xyzop)  
+	c:EnableReviveLimit() 
+	--todeck  
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,1))
+	e3:SetCategory(CATEGORY_TODECK)  
+	e3:SetType(EFFECT_TYPE_IGNITION)  
+	e3:SetRange(LOCATION_MZONE)  
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)  
+	e3:SetCountLimit(1)  
+	e3:SetTarget(cm.tdtg)  
+	e3:SetOperation(cm.tdop)  
+	c:RegisterEffect(e3) 
+end
+function cm.cfilter(c)  
+	return c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToRemoveAsCost()  
+end  
+function cm.ovfilter(c)  
+	return c:IsFaceup() and c:IsCode(82207000)  
+end  
+function cm.xyzop(e,tp,chk)  
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil) and Duel.GetFlagEffect(tp,82207002)==0 end  
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+	Duel.RegisterFlagEffect(tp,82207002,RESET_PHASE+PHASE_END,0,1)  
+end  
+function cm.tdfilter(c)  
+	return c:IsFacedown() and c:IsAbleToDeck()  
+end  
+function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)  
+	if chkc then return chkc:IsOnField() and cm.tdfilter(chkc) end  
+	if chk==0 then return Duel.IsExistingTarget(cm.tdfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)  
+	local g=Duel.SelectTarget(tp,cm.tdfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)  
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)  
+	Duel.SetChainLimit(cm.chlimit)  
+end  
+function cm.chlimit(e,ep,tp)  
+	return tp==ep 
+end  
+function cm.tdop(e,tp,eg,ep,ev,re,r,rp)  
+	local tc=Duel.GetFirstTarget()  
+	if tc:IsRelateToEffect(e) then  
+		Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)  
+	end  
+end  
\ No newline at end of file

expansions/script/c82207003.lua

+local m=82207003
+local cm=_G["c"..m]
+function cm.initial_effect(c)  
+	--xyz summon  
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WIND),11,2,cm.ovfilter,aux.Stringid(m,0),2,cm.xyzop)  
+	c:EnableReviveLimit() 
+	--atk up  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetDescription(aux.Stringid(m,1))  
+	e1:SetCategory(CATEGORY_ATKCHANGE)  
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)  
+	e1:SetProperty(EFFECT_FLAG_DELAY)  
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)  
+	e1:SetCondition(cm.atkcon)  
+	e1:SetTarget(cm.atktg)  
+	e1:SetOperation(cm.atkop)  
+	c:RegisterEffect(e1)
+end
+function cm.cfilter(c)  
+	return c:IsAttribute(ATTRIBUTE_WIND) and c:IsAbleToRemoveAsCost()  
+end  
+function cm.ovfilter(c)  
+	return c:IsFaceup() and c:IsCode(82207000)  
+end  
+function cm.xyzop(e,tp,chk)  
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil) and Duel.GetFlagEffect(tp,82207003)==0 end  
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+	Duel.RegisterFlagEffect(tp,82207003,RESET_PHASE+PHASE_END,0,1)  
+end  
+function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)  
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)  
+end  
+function cm.atkfilter(c)  
+	return c:IsFaceup()  
+end  
+function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.atkfilter,tp,0,LOCATION_MZONE,1,nil) end  
+end  
+function cm.atkop(e,tp,eg,ep,ev,re,r,rp)  
+	local c=e:GetHandler()  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)  
+	local g=Duel.SelectMatchingCard(tp,cm.atkfilter,tp,0,LOCATION_MZONE,1,1,nil)  
+	local tc=g:GetFirst()  
+	if tc and c:IsRelateToEffect(e) and c:IsFaceup() then  
+		local atk=tc:GetAttack()  
+		local e1=Effect.CreateEffect(c)  
+		e1:SetType(EFFECT_TYPE_SINGLE)  
+		e1:SetCode(EFFECT_UPDATE_ATTACK)  
+		e1:SetValue(atk)  
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)  
+		c:RegisterEffect(e1) 
+		local e2=Effect.CreateEffect(c)  
+		e2:SetType(EFFECT_TYPE_SINGLE)  
+		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)  
+		e2:SetCode(EFFECT_EXTRA_ATTACK)  
+		e2:SetValue(1)  
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)  
+		c:RegisterEffect(e2)   
+	end  
+end  
\ No newline at end of file

expansions/script/c82207004.lua

+local m=82207004
+local cm=_G["c"..m]
+function cm.initial_effect(c)  
+	--xyz summon  
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_FIRE),11,2,cm.ovfilter,aux.Stringid(m,0),2,cm.xyzop)  
+	c:EnableReviveLimit()
+	--negate  
+	local e3=Effect.CreateEffect(c) 
+	e3:SetDescription(aux.Stringid(m,1))
+	e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)  
+	e3:SetType(EFFECT_TYPE_QUICK_O)  
+	e3:SetCode(EVENT_CHAINING)  
+	e3:SetCountLimit(1,82207004)  
+	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)  
+	e3:SetRange(LOCATION_MZONE)  
+	e3:SetCondition(cm.discon)  
+	e3:SetCost(cm.discost)  
+	e3:SetTarget(cm.distg)  
+	e3:SetOperation(cm.disop)  
+	c:RegisterEffect(e3)   
+end
+function cm.cfilter(c)  
+	return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToRemoveAsCost()  
+end  
+function cm.ovfilter(c)  
+	return c:IsFaceup() and c:IsCode(82207000)  
+end  
+function cm.xyzop(e,tp,chk)  
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil) and Duel.GetFlagEffect(tp,82207004)==0 end  
+	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+	Duel.RegisterFlagEffect(tp,82207004,RESET_PHASE+PHASE_END,0,1)  
+end  
+function cm.discon(e,tp,eg,ep,ev,re,r,rp)
+	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)  
+	if bit.band(loc,LOCATION_ONFIELD)==0 then return false end
+	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev)
+end  
+function cm.discost(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end  
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)  
+end  
+function cm.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 cm.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  
\ No newline at end of file

expansions/script/c82207005.lua

+local m=82207005
+local cm=_G["c"..m]
+function cm.initial_effect(c)  
+	--Activate  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)  
+	e1:SetType(EFFECT_TYPE_ACTIVATE) 
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetCode(EVENT_FREE_CHAIN)  
+	e1:SetOperation(cm.activate)  
+	c:RegisterEffect(e1) 
+	--atk&def  
+	local e2=Effect.CreateEffect(c)  
+	e2:SetType(EFFECT_TYPE_FIELD)  
+	e2:SetCode(EFFECT_UPDATE_ATTACK)  
+	e2:SetRange(LOCATION_FZONE)  
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)  
+	e2:SetTarget(aux.TargetBoolFunction(cm.filter))  
+	e2:SetValue(500)  
+	c:RegisterEffect(e2)  
+	local e3=e2:Clone()  
+	e3:SetCode(EFFECT_UPDATE_DEFENSE)  
+	c:RegisterEffect(e3)  
+end
+ 
+function cm.thfilter(c)  
+	return c:IsCode(82207000) and c:IsAbleToHand()  
+end  
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)  
+	if not e:GetHandler():IsRelateToEffect(e) then return end  
+	local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)  
+	if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then  
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)  
+		local sg=g:Select(tp,1,1,nil)  
+		Duel.SendtoHand(sg,nil,REASON_EFFECT)  
+		Duel.ConfirmCards(1-tp,sg)  
+	end  
+end  
+function cm.filter(c)  
+	return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:GetOverlayCount()==0  
+end

expansions/script/c82207006.lua

+local m=82207006
+local cm=_G["c"..m]
+function cm.initial_effect(c)  
+	--Activate  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetCategory(CATEGORY_REMOVE)  
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetCode(EVENT_FREE_CHAIN)  
+	e1:SetCondition(cm.condition)  
+	e1:SetTarget(cm.target)  
+	e1:SetOperation(cm.activate)  
+	c:RegisterEffect(e1)  
+end  
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)  
+	return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)  
+end  
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)  
+	local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)-Duel.GetFieldGroupCount(tp,0,LOCATION_DECK) 
+	local g=Duel.GetDecktopGroup(tp,ct)
+	local sg=g:GetFirst()
+	if not sg:IsAbleToRemove() then return false end
+	for i=1,ct-1 do
+		sg=g:GetNext()
+		if not sg:IsAbleToRemove() then return false end
+	end   
+	if chk==0 then return ct>0 end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,ct,tp,LOCATION_DECK)  
+end  
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)  
+	local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)-Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
+	local g=nil
+	if ct>0 then  
+		g=Duel.GetDecktopGroup(tp,ct)
+		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)  
+	end  
+end  
\ No newline at end of file

expansions/script/c82207007.lua

+local m=82207007
+local cm=_G["c"..m]
+function cm.initial_effect(c)  
+	--Activate  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)  
+	e1:SetType(EFFECT_TYPE_ACTIVATE)  
+	e1:SetCode(EVENT_FREE_CHAIN)  
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)  
+	e1:SetTarget(cm.target)  
+	e1:SetOperation(cm.activate)  
+	c:RegisterEffect(e1)  
+end	
+function cm.filter(c,e,tp)  
+	return c:IsType(TYPE_RITUAL) 
+end  
+function cm.rcheck(tp,g,c)  
+	return g:FilterCount(Card.IsLocation,nil,LOCATION_DECK)<=1  
+end  
+function cm.rgcheck(g)  
+	return g:FilterCount(Card.IsLocation,nil,LOCATION_DECK)<=1  
+end  
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then  
+		local mg=Duel.GetRitualMaterial(tp)   
+		aux.RCheckAdditional=cm.rcheck  
+		aux.RGCheckAdditional=cm.rgcheck  
+		local res=Duel.IsExistingMatchingCard(aux.RitualUltimateFilter,tp,LOCATION_DECK,0,1,nil,cm.filter,e,tp,mg,nil,Card.GetLevel,"Equal")  
+		aux.RCheckAdditional=nil  
+		aux.RGCheckAdditional=nil  
+		return res  
+	end  
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)  
+end  
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)  
+	local m=Duel.GetRitualMaterial(tp)  
+	local dg=nil  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)  
+	aux.RCheckAdditional=cm.rcheck  
+	aux.RGCheckAdditional=cm.rgcheck  
+	local tg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(aux.RitualUltimateFilter),tp,LOCATION_DECK,0,1,1,nil,cm.filter,e,tp,m,nil,Card.GetLevel,"Equal")  
+	local tc=tg:GetFirst()  
+	if tc then  
+		local mg=m:Filter(Card.IsCanBeRitualMaterial,tc,tc)   
+		if tc.mat_filter then  
+			mg=mg:Filter(tc.mat_filter,tc,tp)  
+		else  
+			mg:RemoveCard(tc)  
+		end  
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)  
+		aux.GCheckAdditional=aux.RitualCheckAdditional(tc,tc:GetLevel(),"Equal")  
+		local mat=mg:SelectSubGroup(tp,aux.RitualCheck,false,1,tc:GetLevel(),tp,tc,tc:GetLevel(),"Equal")  
+		aux.GCheckAdditional=nil  
+		if not mat or mat:GetCount()==0 then  
+			aux.RCheckAdditional=nil  
+			aux.RGCheckAdditional=nil  
+			return  
+		end  
+		tc:SetMaterial(mat)   
+		Duel.ReleaseRitualMaterial(mat)  
+		Duel.BreakEffect()  
+		Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)  
+		tc:CompleteProcedure()  
+		Duel.BreakEffect()
+		local lv=tc:GetOriginalLevel()
+		Duel.Damage(tp,lv*1000,REASON_EFFECT)
+		local e3=Effect.CreateEffect(e:GetHandler())
+		e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+		e3:SetRange(LOCATION_MZONE) 
+		e3:SetCountLimit(1)  
+		e3:SetCode(EVENT_PHASE+PHASE_STANDBY)  
+		e3:SetCondition(cm.damcon)  
+		e3:SetOperation(cm.damop)  
+		tc:RegisterEffect(e3)   
+	end  
+	aux.RCheckAdditional=nil  
+	aux.RGCheckAdditional=nil  
+end  
+function cm.damcon(e,tp)  
+	return Duel.GetTurnPlayer()==tp 
+end  
+function cm.damop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SelectOption(tp,aux.Stringid(m,0))
+	Duel.Damage(tp,1000,REASON_EFFECT)  
+end  
\ No newline at end of file

expansions/script/c82207008.lua

+local m=82207008
+local cm=_G["c"..m]
+cm.name="拟龙"
+function cm.initial_effect(c)
+	--Search  
+	local e3=Effect.CreateEffect(c)  
+	e3:SetDescription(aux.Stringid(m,0))  
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)  
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)  
+	e3:SetProperty(EFFECT_FLAG_DELAY)  
+	e3:SetCode(EVENT_DESTROYED) 
+	e3:SetCountLimit(1,m)
+	e3:SetTarget(cm.thtg)  
+	e3:SetOperation(cm.thop)  
+	c:RegisterEffect(e3)  
+	local e2=e3:Clone()
+	e2:SetCode(EVENT_REMOVE) 
+	c:RegisterEffect(e2) 
+end
+function cm.thfilter(c)  
+	return c:IsRace(RACE_DINOSAUR) and c:IsAbleToHand()  
+end  
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end  
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)  
+end  
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)  
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)  
+	if g:GetCount()>0 then  
+		Duel.SendtoHand(g,nil,REASON_EFFECT)  
+		Duel.ConfirmCards(1-tp,g)  
+	end  
+end
\ No newline at end of file

expansions/script/c82224001.lua

+function c82224001.initial_effect(c)  
+	--Activate  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetCategory(CATEGORY_EQUIP)  
+	e1:SetType(EFFECT_TYPE_ACTIVATE)  
+	e1:SetCode(EVENT_FREE_CHAIN)  
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)  
+	e1:SetTarget(c82224001.target)  
+	e1:SetOperation(c82224001.activate)  
+	c:RegisterEffect(e1)  
+	--equip limit  
+	local e2=Effect.CreateEffect(c)  
+	e2:SetType(EFFECT_TYPE_SINGLE)  
+	e2:SetCode(EFFECT_EQUIP_LIMIT)  
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)  
+	e2:SetValue(1)  
+	c:RegisterEffect(e2)
+	--destroy 
+	local e3=Effect.CreateEffect(c)  
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)  
+	e3:SetCode(EVENT_BATTLE_START)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCondition(c82224001.descon)  
+	e3:SetOperation(c82224001.desop)	
+	c:RegisterEffect(e3)   
+	--to grave  
+	local e4=Effect.CreateEffect(c)  
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)  
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)  
+	e4:SetCode(EVENT_TO_GRAVE)   
+	e4:SetOperation(c82224001.regop)  
+	c:RegisterEffect(e4)  
+end 
+function c82224001.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)  
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end  
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)  
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)  
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)  
+end  
+function c82224001.activate(e,tp,eg,ep,ev,re,r,rp)  
+	local tc=Duel.GetFirstTarget()  
+	if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then  
+		Duel.Equip(tp,e:GetHandler(),tc)  
+	end  
+end  
+function c82224001.descon(e,tp,eg,ep,ev,re,r,rp)
+	local ec=e:GetHandler():GetEquipTarget()  
+	local tc=ec:GetBattleTarget()  
+	return tc and tc:IsRelateToBattle()  
+end  
+function c82224001.desop(e,tp,eg,ep,ev,re,r,rp)
+	local ec=e:GetHandler():GetEquipTarget() 
+	local tc=ec:GetBattleTarget()
+	Duel.Hint(HINT_MESSAGE,tp,aux.Stringid(82224001,0))
+	Duel.Destroy(tc,REASON_EFFECT)
+	Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(82224001,0))
+end  
+function c82224001.regop(e,tp,eg,ep,ev,re,r,rp)  
+	local c=e:GetHandler()  
+	local e1=Effect.CreateEffect(c) 
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)  
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)  
+	e1:SetCode(EVENT_PHASE+PHASE_END)  
+	e1:SetRange(LOCATION_GRAVE)  
+	e1:SetCountLimit(1,82224001)
+	e1:SetCondition(c82224001.thcon)  
+	e1:SetTarget(c82224001.thtg)  
+	e1:SetOperation(c82224001.thop)  
+	e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)  
+	c:RegisterEffect(e1)  
+end  
+function c82224001.thcon(e,tp,eg,ep,ev,re,r,rp)  
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)  
+end 
+function c82224001.filter(c)  
+	return c:IsType(TYPE_EQUIP) and c:IsAbleToHand()  
+end  
+function c82224001.thtg(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return Duel.IsExistingMatchingCard(c82224001.filter,tp,LOCATION_DECK,0,1,nil) end  
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)  
+end  
+
+function c82224001.thop(e,tp,eg,ep,ev,re,r,rp)  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)  
+	local g=Duel.SelectMatchingCard(tp,c82224001.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  
\ No newline at end of file

expansions/script/c82224003.lua

+function c82224003.initial_effect(c)  
+	--Activate  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TODECK)  
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetHintTiming(TIMINGS_CHECK_MONSTER)  
+	e1:SetCode(EVENT_FREE_CHAIN)  
+	e1:SetTarget(c82224003.target)  
+	e1:SetOperation(c82224003.activate)  
+	c:RegisterEffect(e1)  
+end  
+function c82224003.filter(c)  
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()  
+end 
+function c82224003.filter2(c)  
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToHand()  
+end 
+function c82224003.target(e,tp,eg,ep,ev,re,r,rp,chk)  
+	local c=e:GetHandler()  
+	if chk==0 then return Duel.IsExistingMatchingCard(c82224003.filter,tp,0,LOCATION_MZONE,1,c) end  
+	local sg=Duel.GetMatchingGroup(c82224003.filter,tp,0,LOCATION_MZONE,c)  
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,sg:GetCount(),0,0)  
+end
+function c82224003.filter3(c)  
+	return c:IsLocation(LOCATION_DECK) or c:IsLocation(LOCATION_EXTRA) or c:IsLocation(LOCATION_HAND)
+end  
+function c82224003.activate(e,tp,eg,ep,ev,re,r,rp)  
+	local sg=Duel.GetMatchingGroup(c82224003.filter,tp,0,LOCATION_MZONE,e:GetHandler())  
+	Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)  
+	local tc=Duel.GetOperatedGroup()
+	if tc:FilterCount(c82224003.filter3,nil)>0 then
+		local sel=1
+		Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(82224003,0)) 
+		sel=Duel.SelectOption(1-tp,1213,1214)
+		if sel==0 then
+			Duel.ShuffleDeck(1-tp)
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND)  
+			local g=Duel.SelectMatchingCard(1-tp,c82224003.filter2,1-tp,LOCATION_DECK,0,1,tc:FilterCount(c82224003.filter3,nil),nil)
+			if g:GetCount()>0 then
+				Duel.SendtoHand(g,nil,REASON_EFFECT)  
+				Duel.ConfirmCards(1-tp,g)  
+			end
+		end
+	end  
+end  
\ No newline at end of file

expansions/script/c82224006.lua

+function c82224006.initial_effect(c)  
+	--xyz summon  
+	aux.AddXyzProcedure(c,nil,9,2)  
+	c:EnableReviveLimit()  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetType(EFFECT_TYPE_FIELD)  
+	e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)  
+	e1:SetRange(LOCATION_MZONE)  
+	e1:SetTargetRange(LOCATION_MZONE,0)  
+	e1:SetTarget(c82224006.indtg)  
+	e1:SetValue(aux.indoval)  
+	c:RegisterEffect(e1) 
+	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(c82224006.indtg)  
+	e2:SetValue(aux.tgoval)  
+	c:RegisterEffect(e2) 
+end  
+function c82224006.indtg(e,c)  
+	return c:IsType(TYPE_MONSTER)
+end  
\ No newline at end of file

expansions/script/c82224017.lua

+function c82224017.initial_effect(c)  
+	--atk  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetType(EFFECT_TYPE_SINGLE)  
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)  
+	e1:SetCode(EFFECT_UPDATE_ATTACK)  
+	e1:SetRange(LOCATION_MZONE)  
+	e1:SetValue(c82224017.atkval)  
+	c:RegisterEffect(e1) 
+	local e2=Effect.CreateEffect(c)  
+	e2:SetType(EFFECT_TYPE_FIELD)  
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_CANNOT_ACTIVATE)  
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)  
+	e2:SetTargetRange(1,1)  
+	e2:SetValue(c82224017.actlimit) 
+	c:RegisterEffect(e2)  
+end
+function c82224017.atkval(e,c)  
+	local ct=Duel.GetFieldGroupCount(c:GetControler(),LOCATION_ONFIELD,LOCATION_ONFIELD)*100
+	return ct-100
+end  
+function c82224017.actlimit(e,re,tp) 
+	local p=re:GetHandlerPlayer()
+	local code=re:GetHandler():GetCode()
+	return re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and not Duel.IsExistingMatchingCard(Card.IsCode,p,LOCATION_GRAVE,0,1,nil,code)
+end  
\ No newline at end of file

expansions/script/c82224019.lua

+function c82224019.initial_effect(c)  
+	--Activate  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetCategory(CATEGORY_DESTROY)  
+	e1:SetType(EFFECT_TYPE_ACTIVATE)  
+	e1:SetCode(EVENT_FREE_CHAIN) 
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)  
+	e1:SetTarget(c82224019.target)  
+	e1:SetOperation(c82224019.activate)  
+	c:RegisterEffect(e1)  
+end  
+function c82224019.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)  
+	if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end  
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)  
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())  
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)  
+end  
+function c82224019.activate(e,tp,eg,ep,ev,re,r,rp)  
+	local tc=Duel.GetFirstTarget()  
+	if tc:IsRelateToEffect(e) then  
+		Duel.Destroy(tc,REASON_EFFECT)  
+	end  
+end  
\ No newline at end of file

expansions/script/c82224020.lua

+function c82224020.initial_effect(c)  
+	--Activate  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetCategory(CATEGORY_TOGRAVE)  
+	e1:SetType(EFFECT_TYPE_ACTIVATE)  
+	e1:SetCode(EVENT_FREE_CHAIN) 
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(c82224020.target)   
+	e1:SetTarget(c82224020.target) 
+	e1:SetHintTiming(TIMINGS_CHECK_MONSTER)
+	e1:SetOperation(c82224020.activate)  
+	c:RegisterEffect(e1)  
+end  
+function c82224020.condition(e,tp,eg,ep,ev,re,r,rp)  
+	return not Duel.IsExistingMatchingCard(c82224020.filter,tp,LOCATION_MZONE,0,1,nil)  
+end  
+function c82224020.filter(c)
+	return c:IsSummonType(SUMMON_TYPE_SPECIAL)
+end
+function c82224020.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)  
+	if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end  
+	if chk==0 then return Duel.IsExistingTarget(c82224020.filter,tp,0,LOCATION_MZONE,2,nil) end  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)  
+	local g=Duel.SelectTarget(tp,c82224020.filter,tp,0,LOCATION_MZONE,2,2,nil)  
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,2,0,0)  
+end  
+function c82224020.activate(e,tp,eg,ep,ev,re,r,rp)  
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)  
+	Duel.SendtoGrave(g,REASON_EFFECT)  
+end  
\ No newline at end of file

expansions/script/c82224444.lua

+function c82224444.initial_effect(c)	
+	local e1=Effect.CreateEffect(c)  
+	e1:SetCategory(CATEGORY_DESTROY)  
+	e1:SetType(EFFECT_TYPE_QUICK_O)  
+	e1:SetCode(EVENT_FREE_CHAIN)  
+	e1:SetHintTiming(TIMINGS_CHECK_MONSTER)  
+	e1:SetRange(LOCATION_HAND)  
+	e1:SetCountLimit(1,82224444)  
+	e1:SetCost(c82224444.cost) 
+	e1:SetTarget(c82224444.target)
+	e1:SetOperation(c82224444.operation)  
+	c:RegisterEffect(e1)  
+end  
+function c82224444.cost(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return e:GetHandler():IsDiscardable(REASON_COST) end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(82224444,0))  
+	Duel.SelectOption(tp,1213)  
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)  
+end  
+function c82224444.filter(c)  
+	return c:IsLevel(4) and c:IsFaceup()  
+end  
+function c82224444.target(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return Duel.IsExistingMatchingCard(c82224444.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end  
+	local sg=Duel.GetMatchingGroup(c82224444.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)  
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)  
+end  
+function c82224444.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(82224444,2)) 
+	Duel.SelectOption(tp,aux.Stringid(82224444,1),aux.Stringid(82224444,1),aux.Stringid(82224444,1),aux.Stringid(82224444,1))  
+	local sg=Duel.SelectMatchingCard(tp,c82224444.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.Destroy(sg,REASON_EFFECT)  
+	local e2=Effect.CreateEffect(e:GetHandler())  
+	e2:SetType(EFFECT_TYPE_FIELD)  
+	e2:SetCode(EFFECT_CANNOT_SUMMON)   
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)  
+	e2:SetTargetRange(1,1)  
+	e2:SetTarget(c82224444.lim2)  
+	e2:SetReset(RESET_PHASE+PHASE_END)  
+	Duel.RegisterEffect(e2,tp)  
+	local e3=Effect.CreateEffect(e:GetHandler())  
+	e3:SetType(EFFECT_TYPE_FIELD)  
+	e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) 
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)  
+	e3:SetTargetRange(1,1)  
+	e3:SetTarget(c82224444.lim2)  
+	e3:SetReset(RESET_PHASE+PHASE_END)  
+	Duel.RegisterEffect(e3,tp)  
+end  
+function c82224444.lim2(e,c)  
+	return c:IsLevel(4) and (c:IsLocation(LOCATION_HAND) or c:IsLocation(LOCATION_GRAVE))
+end  

expansions/script/c82228497.lua

+function c82228497.initial_effect(c)  
+	--xyz summon  
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x291),8,2)  
+	c:EnableReviveLimit()
+	--summon proc  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetDescription(aux.Stringid(82228497,1))  
+	e1:SetType(EFFECT_TYPE_FIELD)  
+	e1:SetCode(EFFECT_SUMMON_PROC)  
+	e1:SetTargetRange(LOCATION_HAND,0)  
+	e1:SetRange(LOCATION_MZONE)  
+	e1:SetCondition(c82228497.otcon)  
+	e1:SetTarget(c82228497.ottg)  
+	e1:SetOperation(c82228497.otop)  
+	e1:SetValue(SUMMON_TYPE_ADVANCE)  
+	c:RegisterEffect(e1)  
+	local e4=e1:Clone()  
+	e4:SetCode(EFFECT_SET_PROC)  
+	c:RegisterEffect(e4)  
+	--summon  
+	local e2=Effect.CreateEffect(c)  
+	e2:SetDescription(aux.Stringid(82228497,0))  
+	e2:SetCategory(CATEGORY_SUMMON)  
+	e2:SetType(EFFECT_TYPE_QUICK_O)  
+	e2:SetRange(LOCATION_MZONE)  
+	e2:SetCountLimit(1)
+	e2:SetCost(c82228497.cost)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetTarget(c82228497.sumtg)  
+	e2:SetOperation(c82228497.sumop)  
+	c:RegisterEffect(e2)   
+end  
+function c82228497.rfilter(c)  
+	return c:IsAbleToDeckOrExtraAsCost() 
+end  
+function c82228497.otcon(e,c,minc)  
+	if c==nil then return true end  
+	local tp=c:GetControler()  
+	return minc<=2 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0  
+		and Duel.IsExistingMatchingCard(c82228497.rfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,nil)
+end  
+function c82228497.ottg(e,c)  
+	local mi,ma=c:GetTributeRequirement()  
+	return mi<=2 and ma>=2 and c:IsSetCard(0x291)  
+end  
+function c82228497.otop(e,tp,eg,ep,ev,re,r,rp,c)  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)  
+	local g=Duel.SelectMatchingCard(tp,c82228497.rfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,nil)  
+	Duel.SendtoDeck(g,nil,2,REASON_COST) 
+end  
+function c82228497.sumfilter(c)  
+	return c:IsSetCard(0x291) and c:IsSummonable(true,nil)  
+end  
+function c82228497.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 c82228497.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return Duel.IsExistingMatchingCard(c82228497.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end  
+	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)  
+end  
+function c82228497.sumop(e,tp,eg,ep,ev,re,r,rp)  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)  
+	local g=Duel.SelectMatchingCard(tp,c82228497.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)  
+	local tc=g:GetFirst()  
+	if tc then  
+		Duel.Summon(tp,tc,true,nil)  
+	end  
+end  

expansions/script/c82228498.lua

+function c82228498.initial_effect(c)  
+	--summon with no tribute  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetDescription(aux.Stringid(82228498,0))  
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)  
+	e1:SetType(EFFECT_TYPE_SINGLE)  
+	e1:SetCode(EFFECT_SUMMON_PROC)  
+	e1:SetCondition(c82228498.ntcon)  
+	e1:SetOperation(c82228498.ntop)  
+	c:RegisterEffect(e1)
+	--search  
+	local e2=Effect.CreateEffect(c)  
+	e2:SetDescription(aux.Stringid(82228498,2))  
+	e2:SetCountLimit(1,82228498)	  
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)  
+	e2:SetType(EFFECT_TYPE_IGNITION)  
+	e2:SetRange(LOCATION_HAND)  
+	e2:SetCost(c82228498.cost)  
+	e2:SetTarget(c82228498.target)  
+	e2:SetOperation(c82228498.operation)  
+	c:RegisterEffect(e2) 
+end
+function c82228498.ntcon(e,c,minc)  
+	if c==nil then return true end  
+	return minc==0 and c:GetLevel()>4 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0  
+end  
+function c82228498.ntop(e,tp,eg,ep,ev,re,r,rp,c)  
+	--to grave  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetDescription(aux.Stringid(82228498,1))  
+	e1:SetCategory(CATEGORY_TOGRAVE)  
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)  
+	e1:SetRange(LOCATION_MZONE)  
+	e1:SetCountLimit(1)  
+	e1:SetCode(EVENT_PHASE+PHASE_END)  
+	e1:SetTarget(c82228498.tgtg)  
+	e1:SetOperation(c82228498.tgop)  
+	e1:SetReset(RESET_EVENT+0xc6e0000)  
+	c:RegisterEffect(e1)  
+end  
+function c82228498.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return true end  
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)  
+end  
+function c82228498.tgop(e,tp,eg,ep,ev,re,r,rp)  
+	local c=e:GetHandler()  
+	if c:IsRelateToEffect(e) and c:IsFaceup() then  
+		Duel.SendtoGrave(c,REASON_EFFECT)  
+	end  
+end  
+function c82228498.filter(c)  
+	return c:IsSetCard(0x291) and not c:IsCode(82228498) and c:IsAbleToHand()
+end  
+function c82228498.cost(e,tp,eg,ep,ev,re,r,rp,chk)  
+	local c=e:GetHandler()  
+	if chk==0 then return c:IsAbleToGraveAsCost() and c:IsDiscardable() end  
+	Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)  
+end  
+function c82228498.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)  
+	if chk==0 then return Duel.IsExistingMatchingCard(c82228498.filter,tp,LOCATION_DECK,0,1,nil) end  
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)  
+end  
+function c82228498.operation(e,tp,eg,ep,ev,re,r,rp,chk)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tg=Duel.SelectMatchingCard(tp,c82228498.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  
+end  
\ No newline at end of file

expansions/script/c82228499.lua

+function c82228499.initial_effect(c)  
+	--summon with no tribute  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetDescription(aux.Stringid(82228499,0))  
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)  
+	e1:SetType(EFFECT_TYPE_SINGLE)  
+	e1:SetCode(EFFECT_SUMMON_PROC)  
+	e1:SetCondition(c82228499.ntcon)  
+	e1:SetOperation(c82228499.ntop)  
+	c:RegisterEffect(e1)
+	--search  
+	local e2=Effect.CreateEffect(c)  
+	e2:SetDescription(aux.Stringid(82228499,2))  
+	e2:SetCountLimit(1,82228499)	 
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)  
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)  
+	e2:SetType(EFFECT_TYPE_IGNITION)  
+	e2:SetRange(LOCATION_GRAVE)  
+	e2:SetCost(aux.bfgcost)  
+	e2:SetTarget(c82228499.target)  
+	e2:SetOperation(c82228499.operation)  
+	c:RegisterEffect(e2)  
+end  
+function c82228499.ntcon(e,c,minc)  
+	if c==nil then return true end  
+	return minc==0 and c:GetLevel()>4 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0  
+end  
+function c82228499.ntop(e,tp,eg,ep,ev,re,r,rp,c)  
+	--to grave  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetDescription(aux.Stringid(82228499,1))  
+	e1:SetCategory(CATEGORY_TOGRAVE)  
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)  
+	e1:SetRange(LOCATION_MZONE)  
+	e1:SetCountLimit(1)  
+	e1:SetCode(EVENT_PHASE+PHASE_END)  
+	e1:SetTarget(c82228499.tgtg)  
+	e1:SetOperation(c82228499.tgop)  
+	e1:SetReset(RESET_EVENT+0xc6e0000)  
+	c:RegisterEffect(e1)  
+end  
+function c82228499.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)  
+	if chk==0 then return true end  
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)  
+end  
+function c82228499.tgop(e,tp,eg,ep,ev,re,r,rp)  
+	local c=e:GetHandler()  
+	if c:IsRelateToEffect(e) and c:IsFaceup() then  
+		Duel.SendtoGrave(c,REASON_EFFECT)  
+	end  
+end  
+function c82228499.filter(c,e,tp)  
+	return c:IsSetCard(0x291) and not c:IsCode(82228499) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)  
+end  
+function c82228499.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)  
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c82228499.filter(chkc,e,tp) end  
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0  
+		and Duel.IsExistingTarget(c82228499.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)  
+	local g=Duel.SelectTarget(tp,c82228499.filter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp)  
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)  
+end  
+function c82228499.operation(e,tp,eg,ep,ev,re,r,rp)  
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end  
+	local tc=Duel.GetFirstTarget()  
+	if tc:IsRelateToEffect(e) then  
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)  
+	end  
+end  
\ No newline at end of file

expansions/script/c98600008.lua

+local m=98600008
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	aux.AddLinkProcedure(c,nil,5,5,cm.lcheck)
+	c:EnableReviveLimit()
+	if not cm.gchk then
+		cm.gchk=true
+		local ex=Effect.GlobalEffect()
+		ex:SetType(EFFECT_TYPE_FIELD)
+		ex:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
+		ex:SetTargetRange(LOCATION_HAND,LOCATION_HAND)
+		ex:SetValue(function(e,c,mg)
+			return c:GetOriginalCode()==m
+		end)
+		ex:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+		Duel.RegisterEffect(ex,0)
+	end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetOperation(function()
+		Duel.Hint(HINT_MUSIC_OGG,0,m*16+3)
+	end)
+	c:RegisterEffect(e1)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetDescription(m*16)
+	e1:SetProperty(0x14000)
+	e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
+		if chk==0 then return e:GetHandler():IsType(TYPE_LINK) end
+		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_EXTRA)
+	end)
+	e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+		local c=e:GetHandler()
+		if not c:IsRelateToEffect(e) then return end
+		local mg=Duel.GetMatchingGroup(function(c)
+			return c:IsType(TYPE_XYZ) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
+		end,tp,LOCATION_EXTRA,0,nil)
+		local z=c:GetLinkedZone(tp)&0xff
+		local ft=Duel.GetLocationCountFromEx(tp,tp,c:GetLinkedGroup())
+		if ft<=0 or ft>#mg then return end
+		local spg=Group.CreateGroup()
+		for i=0,6 do
+			if #mg<=0 then break end
+			if (z&(0x1<<i))>0 then
+				local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i)
+				if not tc and i>4 then
+					tc=Duel.GetFieldCard(1-tp,LOCATION_MZONE,11-i)
+				end
+				if tc then
+					local ag=mg:Filter(function(c)
+						return tc:IsCanBeXyzMaterial(c)
+					end,nil)
+					if #ag>0 and Duel.GetLocationCountFromEx(tp,tp,tc,c,0x1<<i)>0 then
+						Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+						local sc=ag:Select(tp,1,1,nil):GetFirst()
+						if sc then
+							local mmg=tc:GetOverlayGroup()
+							if #mmg~=0 then
+								Duel.Overlay(sc,mmg)
+							end
+							sc:SetMaterial(Group.FromCards(tc))
+							Duel.Overlay(sc,Group.FromCards(tc))
+							Duel.SpecialSummonStep(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP,0x1<<i)
+							spg:AddCard(sc)
+							mg:RemoveCard(sc)
+						end
+					end
+				elseif Duel.GetLocationCountFromEx(tp,tp,nil,c,0x1<<i)>0 then
+					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+					local sc=mg:Select(tp,1,1,nil):GetFirst()
+					if sc then
+						sc:SetMaterial(nil)
+						Duel.SpecialSummonStep(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP,0x1<<i)
+						spg:AddCard(sc)
+						mg:RemoveCard(sc)
+					end
+				end
+			end
+		end
+		if #spg>0 then
+			for sc in aux.Next(spg) do
+				for code,value in pairs({
+					[EFFECT_DISABLE]=1,
+					[EFFECT_DISABLE_EFFECT]=1,
+					--[EFFECT_UNRELEASABLE_SUM]=1,
+					--[EFFECT_UNRELEASABLE_NONSUM]=1,
+					[EFFECT_CANNOT_BE_FUSION_MATERIAL]=1,
+					[EFFECT_CANNOT_BE_SYNCHRO_MATERIAL]=1,
+					[EFFECT_CANNOT_BE_XYZ_MATERIAL]=1,
+					[EFFECT_CANNOT_BE_LINK_MATERIAL]=1,
+				}) do
+					local e1=Effect.CreateEffect(c)
+					e1:SetType(EFFECT_TYPE_SINGLE)
+					e1:SetCode(code)
+					e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+					e1:SetReset(0x1fe1000)
+					e1:SetValue(1)
+					sc:RegisterEffect(e1,true)
+				end
+			end
+			Duel.SpecialSummonComplete()
+		end
+	end)
+	c:RegisterEffect(e1)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCondition(cm.SanaeCondition(1))
+	e1:SetCost(cm.thcost)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
+	c:RegisterEffect(e1)
+	--cannot target
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e2:SetCondition(cm.SanaeCondition(2))
+	e2:SetValue(aux.tgoval)
+	c:RegisterEffect(e2)
+	--indes
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCondition(cm.SanaeCondition(2))
+	e3:SetValue(aux.indoval)
+	c:RegisterEffect(e3)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,2))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetCondition(aux.AND(cm.SanaeCondition(3),function(e,tp)
+		return Duel.GetTurnPlayer()==tp
+	end))
+	e1:SetCost(function(e,tp,eg,ep,ev,re,r,rp,chk)
+		e:SetLabel(1)
+		local g=e:GetHandler():GetLinkedGroup()
+		if chk==0 then return #g>0 and not g:IsExists(aux.NOT(Card.IsReleasable),1,nil) end
+		Duel.Release(g,REASON_COST)
+	end)
+	local function f(c,e,tp,g,z)
+		return Duel.GetLocationCountFromEx(tp,tp,g,c,z)>0 and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
+	end
+	e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
+		local l=e:GetLabel()
+		local c=e:GetHandler()
+		e:SetLabel(0)
+		if chk==0 then
+			local z=c:GetLinkedZone(tp)&0xff
+			if z<=0 then return false end
+			local g=Duel.GetMatchingGroup(f,tp,LOCATION_EXTRA,0,nil,e,tp,(l==1 and c:GetLinkedGroup() or nil),z)
+			return g:GetClassCount(Card.GetCode)>=5
+		end
+		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+	end)
+	e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+		local c=e:GetHandler()
+		local z=c:GetLinkedZone(tp)&0xff
+		if z<=0 or not c:IsRelateToEffect(e) then return end
+		local g=Duel.GetMatchingGroup(f,tp,LOCATION_EXTRA,0,nil,e,tp,nil,z)
+		if g:GetClassCount(Card.GetCode)<5 then return end
+		aux.GCheckAdditional=function(g)
+			return g:GetClassCount(Card.GetCode)==#g
+		end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:SelectSubGroup(tp,aux.TRUE,false,5,5)
+		aux.GCheckAdditional=nil
+		Duel.ConfirmCards(1-tp,sg)
+		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
+		local spg=sg:Select(1-tp,1,1,nil)
+		Duel.SpecialSummon(spg,0,tp,tp,true,false,POS_FACEUP,z)
+	end)
+	c:RegisterEffect(e1)
+end
+function cm.SanaeCondition(ct)
+	return function(e)
+		return e:GetHandler():GetLinkedGroupCount()>=ct
+	end
+end
+function cm.lcheck(g,lc)
+	return g:GetClassCount(Card.GetLinkCode)==g:GetCount()
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,1,1,REASON_COST) end
+	local sg=Duel.SelectMatchingCard(tp,Card.CheckRemoveOverlayCard,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp,1,REASON_COST)
+	sg:GetFirst():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsAbleToHand() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end

expansions/script/c9910106.lua

+Zcd = {}
+
+function Zcd.AddXyzProcedure(c,f,lv,ct,alterf,desc,maxct,op)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(1165)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_EXTRA)
+	if not maxct then maxct=ct end
+	e1:SetCondition(Zcd.XyzCondition(f,lv,ct,maxct,alterf,desc,op))
+	e1:SetTarget(Zcd.XyzTarget(f,lv,ct,maxct,alterf,desc,op))
+	e1:SetOperation(Zcd.XyzOperation(f,lv,ct,maxct,alterf,desc,op))
+	e1:SetValue(SUMMON_TYPE_XYZ)
+	c:RegisterEffect(e1)
+end
+function Zcd.XyzCondition(f,lv,minc,maxc,alterf,desc,op)
+	return  function(e,c,og,min,max)
+				if c==nil then return true end
+				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
+				local tp=c:GetControler()
+				local ft=Duel.GetLocationCountFromEx(tp)
+				local ct=-ft
+				local mg=nil
+				if og then
+					mg=og
+				else
+					mg=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,0)
+				end
+				if (not min or min<=1) and mg:IsExists(Zcd.XyzAlterFilter,minc,nil,alterf,c,e,tp,op,lv) then
+					local ssg=mg:Filter(Zcd.XyzAlterFilter,nil,alterf,c,e,tp,op,lv)
+					if ssg:IsExists(Zcd.MFilter1,1,nil) and ssg:IsExists(Zcd.MFilter2,1,nil,c,tp) then return true end
+				end
+				local minc=minc
+				local maxc=maxc
+				if min then
+					if min>minc then minc=min end
+					if max<maxc then maxc=max end
+					if minc>maxc then return false end
+				end
+				return ct<minc and Duel.CheckXyzMaterial(c,f,lv,minc,maxc,og)
+			end
+end
+function Zcd.XyzTarget(f,lv,minc,maxc,alterf,desc,op)
+	return  function(e,tp,eg,ep,ev,re,r,rp,chk,c,og,min,max)
+				if og and not min then
+					return true
+				end
+				local ft=Duel.GetLocationCountFromEx(tp)
+				local ct=-ft
+				local minc=minc
+				local maxc=maxc
+				if min then
+					if min>minc then minc=min end
+					if max<maxc then maxc=max end
+				end
+				local mg=nil
+				if og then
+					mg=og
+				else
+					mg=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,0)
+				end
+				local b1=ct<minc and Duel.CheckXyzMaterial(c,f,lv,minc,maxc,og)
+				local b2=nil
+				local ssg=nil
+				if (not min or min<=1) and mg:IsExists(Zcd.XyzAlterFilter,minc,nil,alterf,c,e,tp,op,lv) then
+					ssg=mg:Filter(Zcd.XyzAlterFilter,nil,alterf,c,e,tp,op,lv)
+					b2=ssg:IsExists(Zcd.MFilter1,1,nil) and ssg:IsExists(Zcd.MFilter2,1,nil,c,tp)
+				end
+				local g=Group.CreateGroup()
+				if b2 and (not b1 or Duel.SelectYesNo(tp,desc)) then
+					e:SetLabel(1)
+					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+					tsg=ssg:FilterSelect(tp,Zcd.MFilter1,1,1,nil)
+					local tc1=tsg:GetFirst()
+					g:AddCard(tc1)
+					ssg:RemoveCard(tc1)
+					local flagct=1
+					if not Zcd.MFilter2(tc1,c,tp) then
+						tsg=ssg:FilterSelect(tp,Zcd.MFilter2,1,1,nil,c,tp)
+						local tc2=tsg:GetFirst()
+						g:AddCard(tc2)
+						ssg:RemoveCard(tc2)
+						flagct=2
+					end
+					local g2=ssg:FilterSelect(tp,Zcd.XyzAlterFilter,minc-flagct,maxc-flagct,nil,alterf,c,e,tp,op,lv)
+					g:Merge(g2)
+					if op then op(e,tp,1,g:GetFirst()) end
+				else
+					e:SetLabel(0)
+					g=Duel.SelectXyzMaterial(tp,c,f,lv,minc,maxc,og)
+				end
+				if g then
+					g:KeepAlive()
+					e:SetLabelObject(g)
+					return true
+				else return false end
+			end
+end
+function Zcd.XyzOperation(f,lv,minc,maxc,alterf,desc,op)
+	return  function(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
+				if og and not min then
+					local sg=Group.CreateGroup()
+					local tc=og:GetFirst()
+					while tc do
+						local sg1=tc:GetOverlayGroup()
+						sg:Merge(sg1)
+						tc=og:GetNext()
+					end
+					Duel.SendtoGrave(sg,REASON_RULE)
+					c:SetMaterial(og)
+					Duel.Overlay(c,og)
+				else
+					local mg=e:GetLabelObject()
+					local sg=Group.CreateGroup()
+					local tc=mg:GetFirst()
+					while tc do
+						local sg1=tc:GetOverlayGroup()
+						sg:Merge(sg1)
+						tc=mg:GetNext()
+					end
+					Duel.SendtoGrave(sg,REASON_RULE)
+					c:SetMaterial(mg)
+					Duel.Overlay(c,mg)
+					mg:DeleteGroup()
+				end
+			end
+end
+function Zcd.XyzAlterFilter(c,alterf,xyzc,e,tp,op,lv)
+	return alterf(c)
+		and c:IsCanBeXyzMaterial(xyzc)
+		and Auxiliary.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL) and (not op or op(e,tp,0,c))
+		and c:IsXyzLevel(xyzc,lv)
+end
+function Zcd.MFilter1(c)
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x952)
+end
+function Zcd.MFilter2(c,xyzc,tp)
+	return Duel.GetLocationCountFromEx(tp,tp,c,xyzc)>0
+end