update 230926 1st

expansions/lflist.conf

@@ -1842,7 +1842,6 @@
 65010124 0
 65010125 0
 65010126 0
-65010127 0
 65010129 0
 65010130 0
 65010131 0
@@ -3944,7 +3943,6 @@
 60159907 0
 60159941 0
 60159942 0
-65010127 0
 65020217 0
 72100106 0
 72100300 0
@@ -5255,6 +5253,9 @@
 12845011 0
 12845012 0
 12845013 0
+4875078 0
+33701122 0
+45745915 0
 #limit
 33403513 1
 82204250 1
@@ -5495,6 +5496,15 @@
 11451654 1
 11451733 1
 87697574 1
+11533706 1
+11533701 1
+11533700 1
+11533704 1
+11533703 1
+189132 1
+189139 1
+98920228 1
+98920410 1
 #semi limit
 9950623 2
 9950045 2
@@ -5521,6 +5531,7 @@
 9950742 2
 72410620 2
 72421540 2
+11533702 2
 #Forbidden TCG
 ##MAIN DECK MONSTERS
 94689206 0 --Block Dragon
@@ -5629,6 +5640,7 @@
 5851097 0 --Vanity's Emptiness
 43262273 0 --Appointer of the Red Lotus
 1041278 0 --Branded Expulsion
+48626373 0 --Kashtira Arise-Heart
 #Limited TCG					
 7902349 1 --Left Arm of the forbidden one						MAIN DECK MONSTERS
 44519536 1 --Left Leg of the forbidden one
@@ -5638,7 +5650,6 @@
 33396948 1 --Exodia the Forbidden One
 99177923 1 --Infernity Archfiend
 89399912 1 --Tempest, Dragon Ruler of Storms
-26889158 1 --Salamangreat Gazelle
 81275020 1 --Speedroid Terrortop
 99234526 1 --White Dragon Wyverburster
 78872731 1 --Zoodiac Ratpier
@@ -5674,7 +5685,6 @@
 581014 1 --Daigusto Emeral
 73539069 1 --Striker Dragon
 65536818 1 --Denglong, First of the Yang Zing
-48626373 1 --Kashtira Arise-Heart
 95308449 1 --Final Countdown                                    SPELL CARDS
 81439173 1 --Foolish Burial
 18144506 1 --Harpie's Feather Duster
@@ -5710,9 +5720,10 @@
 32723153 1 --Magical Explosion			--TRAP CARDS
 35316708 1 --Time Seal
 3734202 1 --Naturia Sacred Tree
+33854624 1 --Bystial Magnamhut
+99266988 1 --Chaos Space
 #Semi-Limited TCG
 9411399 2 --Destiny HERO - Malicious
-17266660 2 --Herald of Orange Light
 68304193 2 --Kashtira Unicorn
 35261759 2 --Pot of Desires
 63166095 2 --Sky Striker Mobilize - Engage!
@@ -6148,7 +6159,6 @@
 65010090 1
 65010100 1
 65010124 1
-65010127 1
 9951070 1
 9951097 1
 9951098 1
@@ -6314,6 +6324,7 @@
 80604091 1 --Ultimate Offering
 80604092 1 --Ultimate Offering
 5851097 1 --Vanity's Emptiness
+48626373 1 --Kashtira Arise-Heart
 53796106 0
 25000000 0
 25000001 0
@@ -9229,7 +9240,6 @@
 65010121 0
 65010122 1
 65010124 1
-65010127 0
 65010201 0
 65010203 0
 65010328 0

expansions/script/c11451598.lua

@@ -75,14 +75,14 @@ function cm.adcon2(e,tp,eg,ep,ev,re,r,rp)
 	return eg:IsExists(cm.filter,1,nil,tp)
 end
 function cm.mfilter(c)
-	return c:GetLevel()>0 and c:IsAbleToDeck() and c:IsReason(REASON_RELEASE)
+	return c:GetLevel()>0 and (c:IsAbleToDeck() or c:IsAbleToHand()) --and c:IsReason(REASON_RELEASE)
 end
 function cm.mfilter2(c)
-	return c:IsType(TYPE_SPELL) and c:IsAbleToDeck()
+	return c:IsType(TYPE_SPELL) and (c:IsAbleToDeck() or c:IsAbleToHand())
 end
 function cm.RitualUltimateFilter(c,filter,e,tp,m1,m2,level,greater_or_equal,chk)
 	if bit.band(c:GetType(),0x81)~=0x81 or (filter and not filter(c,e,tp,chk)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end
-	local mg=m1
+	local mg=m1 --:Filter(Card.IsCanBeRitualMaterial,c,c)
 	if m2 then
 		mg:Merge(m2)
 	end
@@ -92,11 +92,20 @@ function cm.RitualUltimateFilter(c,filter,e,tp,m1,m2,level,greater_or_equal,chk)
 		mg:RemoveCard(c)
 	end
 	local lv=level
-	Auxiliary.GCheckAdditional=Auxiliary.RitualCheckAdditional(c,lv,greater_or_equal)
-	local res=mg:CheckSubGroup(Auxiliary.RitualCheck,1,lv,tp,c,lv,greater_or_equal)
+	Auxiliary.GCheckAdditional=aux.RitualCheckAdditional(c,lv,greater_or_equal)
+	local res=mg:CheckSubGroup(cm.RitualCheck,1,lv,tp,c,lv,greater_or_equal)
 	Auxiliary.GCheckAdditional=nil
 	return res
 end
+function cm.RitualCheck(g,tp,c,lv,greater_or_equal)
+	return Auxiliary["RitualCheck"..greater_or_equal](g,c,lv) and Duel.GetMZoneCount(tp,g,tp)>0 and (not c.mat_group_check or c.mat_group_check(g,tp)) and (not Auxiliary.RCheckAdditional or Auxiliary.RCheckAdditional(tp,g,c)) and g:IsExists(cm.thfilter2,1,nil,g)
+end
+function cm.thfilter2(c,g)
+	return c:IsAbleToHand() and not g:IsExists(cm.ntdfilter,1,c)
+end
+function cm.ntdfilter(c)
+	return not c:IsAbleToDeck()
+end
 function cm.rfilter(c,filter,e,tp,m1,m2,level,greater_or_equal,chk)
 	return cm.RitualUltimateFilter(c,filter,e,tp,m1,m2,7,greater_or_equal,chk) or cm.RitualUltimateFilter(c,filter,e,tp,m1,m2,8,greater_or_equal,chk)
 end
@@ -106,7 +115,12 @@ end
 function cm.adtg2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		local mg=Duel.GetMatchingGroup(cm.mfilter,tp,LOCATION_GRAVE,0,nil)
-		return not e:GetHandler():IsStatus(STATUS_CHAINING) and ((Duel.IsExistingMatchingCard(cm.RitualUltimateFilter,tp,LOCATION_HAND,0,1,nil,cm.nfilter,e,tp,mg,nil,7,"Equal") and Duel.IsExistingMatchingCard(cm.mfilter2,tp,LOCATION_GRAVE,0,1,nil)) or Duel.IsExistingMatchingCard(cm.RitualUltimateFilter,tp,LOCATION_HAND,0,1,nil,cm.nfilter,e,tp,mg,nil,8,"Equal"))
+		local mg2=Duel.GetMatchingGroup(cm.mfilter2,tp,LOCATION_GRAVE,0,nil)
+		local _GetRitualLevel=Card.GetRitualLevel
+		Card.GetRitualLevel=function(c,rc) if c:IsType(TYPE_SPELL) then return 1 else return _GetRitualLevel(c,rc) end end
+		local res=not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.IsExistingMatchingCard(cm.RitualUltimateFilter,tp,LOCATION_HAND,0,1,nil,cm.nfilter,e,tp,mg,mg2,8,"Equal") --((Duel.IsExistingMatchingCard(cm.RitualUltimateFilter,tp,LOCATION_HAND,0,1,nil,cm.nfilter,e,tp,mg,nil,7,"Equal") and Duel.IsExistingMatchingCard(cm.mfilter2,tp,LOCATION_GRAVE,0,1,nil)) or Duel.IsExistingMatchingCard(cm.RitualUltimateFilter,tp,LOCATION_HAND,0,1,nil,cm.nfilter,e,tp,mg,nil,8,"Equal"))
+		Card.GetRitualLevel=_GetRitualLevel
+		return res
 	end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE)
@@ -114,37 +128,47 @@ end
 function cm.adop2(e,tp,eg,ep,ev,re,r,rp)
 	::cancel::
 	local mg=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.mfilter),tp,LOCATION_GRAVE,0,nil)
+	local mg2=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.mfilter2),tp,LOCATION_GRAVE,0,nil)
+	local _GetRitualLevel=Card.GetRitualLevel
+	Card.GetRitualLevel=function(c,rc) if c:IsType(TYPE_SPELL) then return 1 else return _GetRitualLevel(c,rc) end end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local fil=cm.RitualUltimateFilter
-	if Duel.IsExistingMatchingCard(cm.mfilter2,tp,LOCATION_GRAVE,0,1,nil) then fil=cm.rfilter end
-	local g=Duel.SelectMatchingCard(tp,fil,tp,LOCATION_HAND,0,1,1,nil,cm.nfilter,e,tp,mg,nil,8,"Equal")
+	--if Duel.IsExistingMatchingCard(cm.mfilter2,tp,LOCATION_GRAVE,0,1,nil) then fil=cm.rfilter end
+	local g=Duel.SelectMatchingCard(tp,fil,tp,LOCATION_HAND,0,1,1,nil,cm.nfilter,e,tp,mg,mg2,8,"Equal")
 	local tc=g:GetFirst()
 	if tc then
+		--mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc)
+		mg:Merge(mg2)
 		if tc.mat_filter then
 			mg=mg:Filter(tc.mat_filter,tc,tp)
 		else
 			mg:RemoveCard(tc)
 		end
-		local rc=nil
-		if Duel.IsExistingMatchingCard(cm.mfilter2,tp,LOCATION_GRAVE,0,1,nil) and cm.RitualUltimateFilter(tc,cm.nfilter,e,tp,mg,nil,7,"Equal") and (not cm.RitualUltimateFilter(tc,cm.nfilter,e,tp,mg,nil,8,"Equal") or Duel.SelectYesNo(tp,aux.Stringid(m,3))) then
+		--[[local rc=nil
+		if cm.RitualUltimateFilter(tc,cm.nfilter,e,tp,mg,nil,7,"Equal") and Duel.IsExistingMatchingCard(cm.mfilter2,tp,LOCATION_GRAVE,0,1,nil) and (not cm.RitualUltimateFilter(tc,cm.nfilter,e,tp,mg,nil,8,"Equal") or Duel.SelectYesNo(tp,aux.Stringid(m,3))) then
 			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
 			rc=Duel.SelectMatchingCard(tp,cm.mfilter2,tp,LOCATION_GRAVE,0,1,1,nil):GetFirst()
-		end
+		end--]]
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
 		local lv=8
-		if rc then lv=7 end
+		--if rc then lv=7 end
 		aux.GCheckAdditional=aux.RitualCheckAdditional(tc,lv,"Equal")
-		local mat=mg:SelectSubGroup(tp,aux.RitualCheck,true,1,lv,tp,tc,lv,"Equal")
+		local mat=mg:SelectSubGroup(tp,cm.RitualCheck,true,1,lv,tp,tc,lv,"Equal")
 		aux.GCheckAdditional=nil
-		if not mat then goto cancel end
-		if rc then mat:AddCard(rc) end
+		--if not mat then goto cancel end
+		Card.GetRitualLevel=_GetRitualLevel
+		--if rc then mat:AddCard(rc) end
 		tc:SetMaterial(mat)
-		if rc then mat:RemoveCard(rc) end
+		--if rc then mat:RemoveCard(rc) end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+		local rc=mat:FilterSelect(tp,cm.thfilter2,1,1,nil,mat):GetFirst()
+		Duel.SendtoHand(rc,nil,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL)
+		mat:RemoveCard(rc)
 		Duel.SendtoDeck(mat,nil,2,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL)
-		if rc then
+		--[[if rc then
 			Duel.SendtoHand(rc,nil,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL)
 			Duel.ConfirmCards(1-tp,rc)
-		end
+		end--]]
 		Duel.BreakEffect()
 		Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
 		tc:CompleteProcedure()

expansions/script/c11451623.lua

@@ -48,7 +48,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 			else
 				Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
 			end
-			ct=ct-5
+			ct=ct-3
 		end
 		if ct>=0 and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) then Duel.BreakEffect() end
 	end

expansions/script/c11451782.lua

@@ -269,14 +269,14 @@ function cm.condition2(e,tp,eg,ep,ev,re,r,rp)
 	return ep~=tp
 end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter1,tp,LOCATION_DECK,0,1,nil) or Duel.IsExistingMatchingCard(cm.rthfilter,tp,0,LOCATION_ONFIELD,1,nil) end
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter1,tp,LOCATION_DECK,0,1,nil) or Duel.IsExistingMatchingCard(cm.rthfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
 end
 function cm.rthfilter(c)
 	return c:IsAbleToHand() and not c:IsStatus(STATUS_BATTLE_DESTROYED)
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	local g1=Duel.GetMatchingGroup(cm.filter1,tp,LOCATION_DECK,0,nil)
-	local g2=Duel.GetMatchingGroup(cm.rthfilter,tp,0,LOCATION_ONFIELD,nil)
+	local g2=Duel.GetMatchingGroup(cm.rthfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
 	if not e:GetHandler():IsRelateToEffect(e) then return end
 	if #g1>0 and (#g2==0 or Duel.SelectOption(tp,aux.Stringid(11451779,0),aux.Stringid(m,1))==0) then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)

expansions/script/c11451809.lua

@@ -11,6 +11,33 @@ function cm.initial_effect(c)
 	e1:SetTarget(cm.target)
 	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
+	if not cm.global_check then
+		cm.global_check=true
+		cm.summon_code={}
+		local ge0=Effect.CreateEffect(c)
+		ge0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+		ge0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge0:SetCode(EVENT_PHASE_START+PHASE_DRAW)
+		ge0:SetOperation(cm.clear)
+		Duel.RegisterEffect(ge0,0)
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_SUMMON_SUCCESS)
+		ge1:SetOperation(cm.checkop)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(ge2,0)
+	end
+end
+function cm.clear(e,tp,eg,ep,ev,re,r,rp)
+	cm.summon_code={}
+end
+function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
+	local g=eg:Filter(Card.IsFaceup,nil)
+	for tc in aux.Next(g) do
+		table.insert(cm.summon_code,tc:GetCode())
+	end
 end
 function cm.fcheck(tp,sg,fc)
 	return not sg:IsExists(cm.ffilter1,1,nil,sg)
@@ -28,7 +55,11 @@ function cm.filter2(c,e,tp,m,f,chkf)
 	return c:IsType(TYPE_FUSION) and (not f or f(c)) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
 end
 function cm.filter0(c)
-	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave() and Duel.IsExistingMatchingCard(cm.nfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,c:GetCode())
+	if not (c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()) then return false end --and Duel.IsExistingMatchingCard(cm.nfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,c:GetCode())
+	for _,code in pairs(cm.summon_code) do
+		if c:IsCode(code) then return true end
+	end
+	return false
 end
 function cm.nfilter(c,code)
 	return c:IsCode(code) and c:IsFaceup()
@@ -36,12 +67,12 @@ end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		local chkf=tp
-		local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsOnField,nil)
+		local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsOnField,nil):Filter(cm.filter0,nil)
 		local mg2=Duel.GetMatchingGroup(cm.filter0,tp,LOCATION_DECK+LOCATION_EXTRA,0,nil)
 		mg1:Merge(mg2)
-		aux.FCheckAdditional=cm.fcheck
+		--aux.FCheckAdditional=cm.fcheck
 		local res=Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
-		aux.FCheckAdditional=nil
+		--aux.FCheckAdditional=nil
 		if not res then
 			local ce=Duel.GetChainMaterial(tp)
 			if ce~=nil then
@@ -57,12 +88,12 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	local chkf=tp
-	local mg1=Duel.GetFusionMaterial(tp):Filter(cm.filter1,nil,e)
+	local mg1=Duel.GetFusionMaterial(tp):Filter(cm.filter1,nil,e):Filter(cm.filter0,nil)
 	local mg2=Duel.GetMatchingGroup(cm.filter0,tp,LOCATION_DECK+LOCATION_EXTRA,0,nil)
 	mg1:Merge(mg2)
-	aux.FCheckAdditional=cm.fcheck
+	--aux.FCheckAdditional=cm.fcheck
 	local sg1=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
-	aux.FCheckAdditional=nil
+	--aux.FCheckAdditional=nil
 	local mg3=nil
 	local sg2=nil
 	local ce=Duel.GetChainMaterial(tp)
@@ -79,9 +110,9 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 		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
-			aux.FCheckAdditional=cm.fcheck
+			--aux.FCheckAdditional=cm.fcheck
 			local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
-			aux.FCheckAdditional=nil
+			--aux.FCheckAdditional=nil
 			tc:SetMaterial(mat1)
 			Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
 			Duel.BreakEffect()

expansions/script/c11451838.lua

+--星汐击龙“绀夜”
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE+CATEGORY_DECKDES)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND+LOCATION_REMOVED)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
+	c:RegisterEffect(e1)
+	local e3=e1:Clone()
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCondition(cm.con2)
+	c:RegisterEffect(e3)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,2))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetRange(LOCATION_HAND+LOCATION_REMOVED)
+	e2:SetCondition(cm.spcon)
+	e2:SetTarget(cm.sptg)
+	e2:SetOperation(cm.spop)
+	c:RegisterEffect(e2)
+end
+function cm.thfilter(c,e,tp)
+	return c:IsSetCard(0x9977) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.con2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFlagEffect(0,11451760)>0
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local sa=c:IsLocation(LOCATION_HAND) and Duel.GetFlagEffect(tp,m-1)==0
+	local sb=c:IsLocation(LOCATION_REMOVED) and Duel.GetFlagEffect(tp,m)==0
+	if chk==0 then return sa or sb end
+	if c:IsLocation(LOCATION_HAND) then
+		Duel.RegisterFlagEffect(tp,m-1,RESET_PHASE+PHASE_END,0,1)
+	elseif c:IsLocation(LOCATION_REMOVED) then
+		Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+	end
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_ADJUST)
+	e1:SetLabel(Duel.GetCurrentPhase())
+	e1:SetOperation(cm.adjustop)
+	Duel.RegisterEffect(e1,tp)
+end
+function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
+	local ph,ph2=Duel.GetCurrentPhase(),e:GetLabel()
+	if ph~=ph2 and (ph<=PHASE_MAIN1 or ph>=PHASE_MAIN2 or ph2<=PHASE_MAIN1 or ph2>=PHASE_MAIN2) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+		if g:GetCount()>0 and Duel.GetMZoneCount(tp)>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0 then
+			local rg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,0,nil)
+			if #rg>1 then
+				Duel.BreakEffect()
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+				local tg=rg:Select(tp,2,2,nil)
+				Duel.Remove(tg,POS_FACEUP,REASON_EFFECT)
+			end
+		end
+		e:Reset()
+	end
+end
+function cm.setfilter(c,e,tp)
+	return c:IsFaceup() and c:IsSetCard(0x9977) and ((c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0) or c:IsSSetable())
+end
+function cm.spfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x9977)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.spfilter,1,nil)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local sa=c:IsLocation(LOCATION_HAND) and Duel.GetFlagEffect(tp,m-1)==0
+	local sb=c:IsLocation(LOCATION_REMOVED) and Duel.GetFlagEffect(tp,m)==0
+	if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_REMOVED,0,1,c,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and (sa or sb) end
+	if c:IsLocation(LOCATION_HAND) then
+		Duel.RegisterFlagEffect(tp,m-1,RESET_PHASE+PHASE_END,0,1)
+	elseif c:IsLocation(LOCATION_REMOVED) then
+		Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+	local g=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_REMOVED,0,1,1,aux.ExceptThisCard(e),e,tp)
+	if g:GetCount()>0 then
+		local tc=g:GetFirst()
+		if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and (not tc:IsSSetable() or Duel.SelectYesNo(tp,Stringid(m,3))) then
+			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
+		else
+			Duel.SSet(tp,tc)
+		end
+		if #Duel.GetOperatedGroup()>0 and c:IsRelateToEffect(e) then
+			Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c11533700.lua

+--心意海仙女之影灵衣
+function c11533700.initial_effect(c)
+	c:EnableReviveLimit()
+	--cannot special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.ritlimit)
+	c:RegisterEffect(e1) 
+	--rl rm td 
+	local e1=Effect.CreateEffect(c) 
+	e1:SetCategory(CATEGORY_RELEASE+CATEGORY_REMOVE+CATEGORY_TODECK) 
+	e1:SetType(EFFECT_TYPE_QUICK_O) 
+	e1:SetCode(EVENT_FREE_CHAIN) 
+	e1:SetRange(LOCATION_HAND) 
+	e1:SetCountLimit(1,11533700) 
+	e1:SetCost(c11533700.rrtcost) 
+	e1:SetTarget(c11533700.rrttg) 
+	e1:SetOperation(c11533700.rrtop) 
+	c:RegisterEffect(e1)	 
+	--indes
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e2:SetValue(1)
+	c:RegisterEffect(e2) 
+	--rl and disable
+	local e3=Effect.CreateEffect(c) 
+	e3:SetCategory(CATEGORY_RELEASE+CATEGORY_DISABLE)
+	e3:SetType(EFFECT_TYPE_QUICK_O) 
+	e3:SetCode(EVENT_FREE_CHAIN) 
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e3:SetRange(LOCATION_MZONE) 
+	e3:SetCountLimit(1,21533700) 
+	e3:SetTarget(c11533700.rdistg)
+	e3:SetOperation(c11533700.rdisop)
+	c:RegisterEffect(e3)
+end
+function c11533700.mat_filter(c)
+	return not c:IsCode(11533700)  
+end 
+function c11533700.rrtcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsDiscardable() end 
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
+end 
+function c11533700.rrfil(c) 
+	if not c:IsSetCard(0xb4) then return false end  
+	if c:IsLocation(LOCATION_HAND) then 
+	return c:IsReleasable() or c:IsAbleToGrave()  
+	elseif c:IsLocation(LOCATION_GRAVE) then 
+	return c:IsAbleToRemove() and not c:IsCode(11533700)  
+	else return false end 
+end 
+function c11533700.rrttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11533700.rrfil,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,e:GetHandler()) end 
+	Duel.SetOperationInfo(0,CATEGORY_RELEASE,nil,1,tp,LOCATION_HAND)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_GRAVE)
+end 
+function c11533700.rrtop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(c11533700.rrfil,tp,LOCATION_HAND+LOCATION_GRAVE,0,nil) 
+	if g:GetCount()>0 then 
+		local tc=g:Select(tp,1,1,nil):GetFirst() 
+		local x=0
+		if tc:IsLocation(LOCATION_HAND) then  
+			local b1=tc:IsReleasable() 
+			local b2=tc:IsAbleToGrave()
+			local op=0  
+			if b1 and b2 then  
+			op=Duel.SelectOption(tp,aux.Stringid(11533700,2),aux.Stringid(11533700,3))
+			elseif b1 then 
+			op=Duel.SelectOption(tp,aux.Stringid(11533700,2))
+			elseif b2 then 
+			op=Duel.SelectOption(tp,aux.Stringid(11533700,3))+1
+			end  
+			if op==0 then 
+			x=Duel.Release(tc,REASON_EFFECT) 
+			elseif op==1 then 
+			x=Duel.SendtoGrave(tc,REASON_EFFECT) 
+			end  
+		elseif tc:IsLocation(LOCATION_GRAVE) then 
+			x=Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
+		end 
+		if x>0 and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(11533700,0)) then 
+			Duel.BreakEffect() 
+			local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,5,nil) 
+			Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)   
+		end 
+	end 
+end  
+function c11533700.rlfil(c)  
+	return c:IsSetCard(0xb4) and (c:IsReleasable() or c:IsAbleToGrave()) 
+end 
+function c11533700.rdistg(e,tp,eg,ep,ev,re,r,rp,chk) 
+	if chk==0 then return Duel.IsExistingMatchingCard(c11533700.rlfil,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) end 
+	Duel.SetOperationInfo(0,CATEGORY_RELEASE,nil,1,tp,LOCATION_HAND+LOCATION_ONFIELD)  
+end
+function c11533700.rdisop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(c11533700.rlfil,tp,LOCATION_HAND+LOCATION_ONFIELD,0,nil) 
+	if g:GetCount()>0 then 
+		local rc=g:Select(tp,1,1,nil):GetFirst()  
+		local x=0 
+			local b1=rc:IsReleasable() 
+			local b2=rc:IsAbleToGrave()
+			local op=0  
+			if b1 and b2 then  
+			op=Duel.SelectOption(tp,aux.Stringid(11533700,2),aux.Stringid(11533700,3))
+			elseif b1 then 
+			op=Duel.SelectOption(tp,aux.Stringid(11533700,2))
+			elseif b2 then 
+			op=Duel.SelectOption(tp,aux.Stringid(11533700,3))+1
+			end  
+			if op==0 then 
+			x=Duel.Release(rc,REASON_EFFECT) 
+			elseif op==1 then 
+			x=Duel.SendtoGrave(rc,REASON_EFFECT) 
+			end 
+		if x>0 and Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(11533700,1)) then   
+			Duel.BreakEffect()
+			local tc=Duel.SelectMatchingCard(tp,aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil):GetFirst()  
+			Duel.NegateRelatedChain(tc,RESET_TURN_SET)
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1)
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_DISABLE_EFFECT)
+			e2:SetValue(RESET_TURN_SET)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD) 
+			tc:RegisterEffect(e2)
+		end 
+	end 
+end
+
+
+
+
+
+

expansions/script/c11533701.lua

+--还零龙之影灵衣
+function c11533701.initial_effect(c)
+	c:EnableReviveLimit()
+	--cannot special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.ritlimit)
+	c:RegisterEffect(e1) 
+	--rl rm td 
+	local e1=Effect.CreateEffect(c) 
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_RELEASE+CATEGORY_REMOVE) 
+	e1:SetType(EFFECT_TYPE_IGNITION) 
+	e1:SetRange(LOCATION_HAND) 
+	e1:SetCountLimit(1,11533701) 
+	e1:SetCost(c11533701.rrtcost) 
+	e1:SetTarget(c11533701.rrttg) 
+	e1:SetOperation(c11533701.rrtop) 
+	c:RegisterEffect(e1)  
+	--remove
+	local e2=Effect.CreateEffect(c) 
+	e2:SetCategory(CATEGORY_REMOVE) 
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) 
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS) 
+	e2:SetProperty(EFFECT_FLAG_DELAY) 
+	e2:SetCountLimit(1,21533701)  
+	e2:SetCondition(c11533701.rmcon)
+	e2:SetTarget(c11533701.rmtg) 
+	e2:SetOperation(c11533701.rmop) 
+	c:RegisterEffect(e2) 
+	--sp 
+	--local e3=Effect.CreateEffect(c) 
+	--e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DISABLE) 
+	--e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) 
+	--e3:SetCode(EVENT_DESTROYED) 
+	--e3:SetProperty(EFFECT_FLAG_DELAY) 
+	--e3:SetCountLimit(1,31533701) 
+	--e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) 
+	--return c11533701.rmcon(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():GetReasonPlayer()==1-e:GetHandlerPlayer() end) 
+	--e3:SetTarget(c11533701.spdtg) 
+	--e3:SetOperation(c11533701.spdop) 
+	--c:RegisterEffect(e3) 
+end
+function c11533701.mat_filter(c)
+	return not c:IsLevel(9) 
+end 
+function c11533701.rrtcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsDiscardable() end 
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
+end 
+function c11533701.srfil(c)  
+	return c:IsAbleToHand() and c:IsSetCard(0xb4)   
+end 
+function c11533701.rrfil(c) 
+	if not c:IsSetCard(0xb4) then return false end  
+	return c:IsReleasable() and c:IsType(TYPE_MONSTER) 
+end 
+function c11533701.rrttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11533701.srfil,tp,LOCATION_DECK,0,1,nil) end 
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) 
+end 
+function c11533701.rrtop(e,tp,eg,ep,ev,re,r,rp)  
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(c11533701.srfil,tp,LOCATION_DECK,0,nil) 
+	if g:GetCount()>0 then 
+		local sg=g:Select(tp,1,1,nil) 
+		Duel.SendtoHand(sg,tp,REASON_EFFECT) 
+		Duel.ConfirmCards(1-tp,sg) 
+		if Duel.IsExistingMatchingCard(c11533701.rrfil,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(11533701,0)) then 
+		Duel.BreakEffect() 
+		local tc=Duel.SelectMatchingCard(tp,c11533701.rrfil,tp,LOCATION_HAND,0,1,1,nil):GetFirst()  
+		Duel.Release(tc,REASON_EFFECT)   
+		end 
+	end 
+end 
+function c11533701.rmcon(e,tp,eg,ep,ev,re,r,rp) 
+	local mg=e:GetHandler():GetMaterial()
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL) and mg and mg:FilterCount(Card.IsSetCard,nil,0xb4)==mg:GetCount()  
+end 
+function c11533701.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_DECK+LOCATION_GRAVE,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA+LOCATION_GRAVE+LOCATION_ONFIELD,1,nil) end 
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA+LOCATION_GRAVE+LOCATION_ONFIELD)
+end 
+function c11533701.rmop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local g1=Duel.GetDecktopGroup(tp,1) 
+	if g1:GetCount()>0 then 
+		Duel.ConfirmCards(1-tp,g1) 
+		if Duel.SelectYesNo(tp,aux.Stringid(11533701,1)) then 
+			Duel.Remove(g1,POS_FACEUP,REASON_EFFECT)   
+		end
+	end 
+	local g2=Duel.GetDecktopGroup(1-tp,1) 
+	if g2:GetCount()>0 then 
+		Duel.ConfirmCards(tp,g2) 
+		if Duel.SelectYesNo(tp,aux.Stringid(11533701,2)) then 
+			Duel.Remove(g2,POS_FACEUP,REASON_EFFECT)	
+		end
+	end 
+	local g3=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA)
+	if g3:GetCount()>0 then 
+		Duel.ConfirmCards(tp,g3) 
+		if Duel.SelectYesNo(tp,aux.Stringid(11533701,3)) then 
+			local rg=g3:Select(tp,1,1,nil)
+			Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)	
+		end
+	end 
+	local g4=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+	if g4:GetCount()>0 then  
+		if Duel.SelectYesNo(tp,aux.Stringid(11533701,4)) then 
+			local rg=g4:RandomSelect(tp,1)
+			Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)	
+		end
+	end 
+	local g5=Duel.GetFieldGroup(tp,LOCATION_GRAVE,0)
+	if g5:GetCount()>0 then  
+		if Duel.SelectYesNo(tp,aux.Stringid(11533701,5)) then 
+			local rg=g5:Select(tp,1,1,nil)
+			Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)	
+		end
+	end 
+	local g6=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
+	if g6:GetCount()>0 then   
+		if Duel.SelectYesNo(tp,aux.Stringid(11533701,6)) then 
+			local rg=g6:Select(tp,1,1,nil)
+			Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)	
+		end
+	end 
+	local g7=Duel.GetFieldGroup(tp,0,LOCATION_GRAVE)
+	if g7:GetCount()>0 then  
+		if Duel.SelectYesNo(tp,aux.Stringid(11533701,7)) then 
+			local rg=g7:Select(tp,1,1,nil)
+			Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)	
+		end
+	end 
+end 
+function c11533701.spfil(c,e,tp) 
+	return c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) and c:IsCode(52068432)  
+end 
+function c11533701.spdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11533701.spfil,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end 
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+end 
+function c11533701.spdop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(c11533701.spfil,tp,LOCATION_DECK+LOCATION_GRAVE,0,nil,e,tp) 
+	if g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then 
+		local tc=g:Select(tp,1,1,nil):GetFirst()  
+		Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) 
+		tc:CompleteProcedure() 
+		local dg=Duel.GetMatchingGroup(aux.NegateEffectMonsterFilter,tp,0,LOCATION_MZONE,nil) 
+		if dg:GetCount()>0 then 
+			local tc=dg:GetFirst() 
+			while tc do 
+			Duel.NegateRelatedChain(tc,RESET_TURN_SET)
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1)
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_DISABLE_EFFECT)
+			e2:SetValue(RESET_TURN_SET)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e2)
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_SET_ATTACK_FINAL) 
+			e2:SetRange(LOCATION_MZONE) 
+			e2:SetValue(tc:GetAttack()/2)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e2)
+			tc=dg:GetNext() 
+			end  
+		end 
+	end  
+end 
+
+
+
+
+
+

expansions/script/c11533702.lua

+--影灵衣的追忆
+function c11533702.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,11533702) 
+	e1:SetTarget(c11533702.target)
+	e1:SetOperation(c11533702.activate)
+	c:RegisterEffect(e1) 
+	--atk 
+	local e2=Effect.CreateEffect(c) 
+	e2:SetType(EFFECT_TYPE_FIELD) 
+	e2:SetCode(EFFECT_UPDATE_ATTACK) 
+	e2:SetRange(LOCATION_SZONE) 
+	e2:SetTargetRange(LOCATION_MZONE,0) 
+	e2:SetTarget(function(e,c) 
+	return c:IsSetCard(0xb4) end) 
+	e2:SetValue(function(e,c) 
+	return c:GetLevel()*100 end) 
+	c:RegisterEffect(e2)
+	--inactivatable
+	--local e2=Effect.CreateEffect(c)
+	--e2:SetType(EFFECT_TYPE_FIELD)
+	--e2:SetCode(EFFECT_CANNOT_INACTIVATE)
+	--e2:SetRange(LOCATION_FZONE)
+	--e2:SetValue(c11533702.efilter)
+	--c:RegisterEffect(e2)
+	--local e2=Effect.CreateEffect(c)
+	--e2:SetType(EFFECT_TYPE_FIELD)
+	--e2:SetCode(EFFECT_CANNOT_DISEFFECT)
+	--e2:SetRange(LOCATION_FZONE)
+	--e2:SetValue(c11533702.efilter)
+	--c:RegisterEffect(e2)  
+	--immuse
+	--local e3=Effect.CreateEffect(c)
+	--e3:SetType(EFFECT_TYPE_FIELD) 
+	--e3:SetCode(EFFECT_IMMUNE_EFFECT) 
+	--e3:SetRange(LOCATION_SZONE)
+	--e3:SetTargetRange(LOCATION_MZONE,0) 
+	--e3:SetTarget(function(e,c) 
+	--return c:IsSetCard(0xb4) and c:IsType(TYPE_RITUAL) end) 
+	--e3:SetValue(function(e,te) 
+	--return e:GetOwnerPlayer()~=te:GetOwnerPlayer() and te:IsActiveType(TYPE_MONSTER) and te:GetHandler():IsSummonLocation(LOCATION_EXTRA) and te:IsActivated() end)
+	--e3:SetCondition(function(e) 
+	--local tp=e:GetHandlerPlayer() 
+	--return Duel.GetMatchingGroupCount(function(c) return c:IsFaceup() and c:IsSetCard(0xb4) and c:IsType(TYPE_RITUAL) end,tp,LOCATION_MZONE,0,nil)>=2 end)
+	--c:RegisterEffect(e3)
+	--ind
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) 
+	e3:SetRange(LOCATION_FZONE) 
+	e3:SetTargetRange(LOCATION_MZONE,0) 
+	e3:SetTarget(function(e,c) 
+	return c:IsSetCard(0xb4) and c:IsType(TYPE_RITUAL) end) 
+	e3:SetValue(function(e,c)
+	return c:IsSummonLocation(LOCATION_EXTRA) end) 
+	e3:SetCondition(function(e) 
+	local tp=e:GetHandlerPlayer() 
+	return Duel.GetMatchingGroupCount(function(c) return c:IsFaceup() and c:IsSetCard(0xb4) and c:IsType(TYPE_RITUAL) end,tp,LOCATION_MZONE,0,nil)>=3 end)
+	c:RegisterEffect(e3)
+end
+function c11533702.filter(c)
+	return c:IsSetCard(0xb4) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c11533702.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11533702.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c11533702.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c11533702.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 c11533702.efilter(e,ct)
+	local p=e:GetHandlerPlayer()
+	local te,tp=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
+	return te:GetHandler():IsSetCard(0xb4) and te:GetHandler():IsType(TYPE_RITUAL) and te:IsActiveType(TYPE_SPELL)
+end
+
+
+
+
+
+
+
+

expansions/script/c11533703.lua

+--影灵衣归魂 艾丽娅儿
+function c11533703.initial_effect(c)
+	--spirit return
+	aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP)
+	--cannot special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.FALSE)
+	c:RegisterEffect(e1) 
+	--to hand 
+	local e2=Effect.CreateEffect(c) 
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,11533703)
+	e2:SetTarget(c11533703.thtg)
+	e2:SetOperation(c11533703.thop)
+	c:RegisterEffect(e2)
+	--set 
+	local e3=Effect.CreateEffect(c) 
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_RELEASE)
+	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1,21533703)
+	e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
+	return bit.band(r,REASON_EFFECT)~=0 end) 
+	e3:SetTarget(c11533703.settg)
+	e3:SetOperation(c11533703.setop)
+	c:RegisterEffect(e3)
+end
+function c11533703.thfilter(c)
+	return c:IsSetCard(0xb4) and c:IsAbleToHand()
+end
+function c11533703.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11533703.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c11533703.thop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tc=Duel.SelectMatchingCard(tp,c11533703.thfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
+	if tc then 
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc) 
+		if tc:IsType(TYPE_MONSTER) then 
+			--ritual level
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_RITUAL_LEVEL)
+			e2:SetValue(c11533703.rlevel) 
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END) 
+			c:RegisterEffect(e2)
+		end 
+	end
+end 
+function c11533703.rlevel(e,c)
+	local lv=aux.GetCappedLevel(e:GetHandler()) 
+	local clv=c:GetLevel() 
+	return (lv<<16)+clv  
+end
+function c11533703.setfilter(c)
+	return c:IsSetCard(0xb4) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
+end
+function c11533703.settg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c11533703.setfilter,tp,LOCATION_DECK,0,1,nil) end
+end
+function c11533703.setop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g=Duel.SelectMatchingCard(tp,c11533703.setfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SSet(tp,g:GetFirst())
+	end
+end
+
+
+
+
+

expansions/script/c11533704.lua

+--影灵衣的轮转天
+function c11533704.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c) 
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_RELEASE+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCountLimit(1,11533704)
+	e1:SetCondition(c11533704.condition)
+	e1:SetTarget(c11533704.target)
+	e1:SetOperation(c11533704.activate)
+	c:RegisterEffect(e1)	
+	--to hand 
+	local e2=Effect.CreateEffect(c) 
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) 
+	e2:SetType(EFFECT_TYPE_QUICK_O) 
+	e2:SetCode(EVENT_FREE_CHAIN) 
+	e2:SetRange(LOCATION_GRAVE)  
+	e2:SetCondition(function(e) 
+	local tp=e:GetHandlerPlayer() 
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 end) 
+	e2:SetTarget(c11533704.thtg) 
+	e2:SetOperation(c11533704.thop) 
+	c:RegisterEffect(e2) 
+end
+function c11533704.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xb4) and c:IsType(TYPE_RITUAL)
+end
+function c11533704.condition(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.IsExistingMatchingCard(c11533704.cfilter,tp,LOCATION_MZONE,0,1,nil) then return false end
+	if not Duel.IsChainNegatable(ev) then return false end
+	return re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE) and rp==1-tp 
+end
+function c11533704.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) 
+end 
+function c11533704.spfil(c,e,tp) 
+	return c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) and c:IsSetCard(0xb4)  
+end 
+function c11533704.activate(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler()
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsReleasable() and Duel.IsExistingMatchingCard(c11533704.spfil,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(11533704,0)) then
+		Duel.Release(re:GetHandler(),REASON_EFFECT) 
+		local sc=Duel.SelectMatchingCard(tp,c11533704.spfil,tp,LOCATION_HAND,0,1,1,nil,e,tp):GetFirst() 
+		Duel.SpecialSummon(sc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)   
+		sc:CompleteProcedure() 
+	end
+end
+function c11533704.ctfil(c,e,tp) 
+	return c:IsSetCard(0xb4) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() and Duel.IsExistingMatchingCard(c11533704.thfil,tp,LOCATION_DECK,0,1,c) 
+end 
+function c11533704.thfil(c) 
+	return c:IsAbleToHand() and c:IsSetCard(0xb4) and c:IsType(TYPE_MONSTER)
+end 
+function c11533704.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and Duel.IsExistingMatchingCard(c11533704.ctfil,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end 
+	local rg=Duel.SelectMatchingCard(tp,c11533704.ctfil,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp)  
+	rg:AddCard(e:GetHandler())
+	Duel.Remove(rg,POS_FACEUP,REASON_COST)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) 
+end 
+function c11533704.thop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(c11533704.thfil,tp,LOCATION_DECK,0,nil) 
+	if g:GetCount()>0 then  
+		local sg=g:Select(tp,1,1,nil) 
+		Duel.SendtoHand(sg,tp,REASON_EFFECT) 
+		Duel.ConfirmCards(1-tp,sg)  
+	end 
+end 
+
+
+
+
+
+

expansions/script/c11533706.lua

+--影灵衣的神归镜
+function c11533706.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,11533706) 
+	--e1:SetCost(c11533706.cost)
+	e1:SetTarget(c11533706.target)
+	e1:SetOperation(c11533706.activate)
+	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:SetCondition(function(e) 
+	local tp=e:GetHandlerPlayer() 
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 end) 
+	e2:SetTarget(c11533706.thtg) 
+	e2:SetOperation(c11533706.thop) 
+	c:RegisterEffect(e2) 
+	Duel.AddCustomActivityCounter(11533706,ACTIVITY_SPSUMMON,c11533706.counterfilter)
+end
+function c11533706.counterfilter(c)
+	return c:IsSetCard(0xb4) 
+end
+function c11533706.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(11533706,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(c11533706.splimit)
+	Duel.RegisterEffect(e1,tp) 
+end
+function c11533706.splimit(e,c)
+	return not c:IsSetCard(0xb4) 
+end
+function c11533706.filter(c)
+	return c:IsSetCard(0xb4) and not c:IsCode(11533706) and c:IsAbleToHand()
+end
+function c11533706.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return true end 
+	local e1=Effect.CreateEffect(c) 
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) 
+	e1:SetCode(EVENT_PHASE+PHASE_END) 
+	e1:SetCountLimit(1) 
+	e1:SetCondition(c11533706.xthcon) 
+	e1:SetOperation(c11533706.xthop) 
+	e1:SetLabelObject(e) 
+	e1:SetReset(RESET_PHASE+PHASE_END) 
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(c) 
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) 
+	e2:SetCode(EVENT_CHAIN_NEGATED) 
+	e2:SetCountLimit(1) 
+	e2:SetLabelObject(e1) 
+	e2:SetCondition(c11533706.negcon) 
+	e2:SetOperation(c11533706.negop) 
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp) 
+	local e3=Effect.CreateEffect(c) 
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) 
+	e3:SetCode(EVENT_CHAIN_SOLVING) 
+	e3:SetLabelObject(e) 
+	e3:SetCondition(c11533706.xckcon) 
+	e3:SetOperation(c11533706.xckop) 
+	e3:SetReset(RESET_PHASE+PHASE_END) 
+	Duel.RegisterEffect(e3,tp)   
+end
+function c11533706.activate(e,tp,eg,ep,ev,re,r,rp)
+	--Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	--local g=Duel.SelectMatchingCard(tp,c11533706.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 c11533706.xthfil(c) 
+	return c:IsAbleToHand() and not c:IsCode(11533706) and c:IsSetCard(0xb4) and c:IsType(TYPE_SPELL)  
+end 
+function c11533706.xthcon(e,tp,eg,ep,ev,re,r,rp)   
+	local flag=Duel.GetFlagEffectLabel(tp,11533706)
+	return flag and flag>0 and Duel.IsExistingMatchingCard(c11533706.xthfil,tp,LOCATION_DECK,0,1,nil) 
+end  
+function c11533706.xrlfil(c)  
+	if c:IsLocation(LOCATION_HAND) then 
+	return c:IsReleasable() 
+	elseif c:IsLocation(LOCATION_GRAVE) then 
+	return c:IsSetCard(0xb4) and c:IsAbleToRemove() and c:IsType(TYPE_MONSTER) 
+	else return false end 
+end
+function c11533706.exrlfil(c,sc) 
+	local teg={c:IsHasEffect(EFFECT_RITUAL_LEVEL)} 
+	local x=#teg   
+	if x==0 then return false end 
+	for i=1,x do 
+		local te=teg[x] 
+		local val=te:GetValue()   
+		return val(te,sc)>100 
+	end  
+	return false 
+end  
+function c11533706.xrlgck(g,tp,sc)   
+	return ((g:GetSum(Card.GetRitualLevel,sc)==sc:GetLevel()) or (g:IsExists(c11533706.exrlfil,1,nil,sc) and g:GetCount()==1))  
+end 
+function c11533706.xrmfil(c) 
+	return c:IsAbleToGrave() and c:IsType(TYPE_MONSTER) and c:IsSetCard(0xb4)  
+end 
+function c11533706.xspfil1(c,e,tp) 
+	if not c:IsSetCard(0xb4) then return false end 
+	if not c:IsType(TYPE_RITUAL) then return false end 
+	if not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end 
+	local g=Duel.GetMatchingGroup(c11533706.xrlfil,tp,LOCATION_HAND+LOCATION_GRAVE,0,c)  
+	return true 
+end 
+function c11533706.xspfil(c) 
+	return c:IsSetCard(0xb4) 
+end 
+function c11533706.xxthfil(c) 
+	return c:IsAbleToHand() and c:IsSetCard(0xb4) and c:IsType(TYPE_MONSTER) and not c:IsType(TYPE_RITUAL)   
+end 
+function c11533706.xthop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	local flag=Duel.GetFlagEffectLabel(tp,11533706)
+	if flag and flag>0 and Duel.IsExistingMatchingCard(c11533706.xthfil,tp,LOCATION_DECK,0,1,nil) then 
+		Duel.Hint(HINT_CARD,0,11533706) 
+		local sg=Duel.SelectMatchingCard(tp,c11533706.xthfil,tp,LOCATION_DECK,0,1,flag,nil)  
+		Duel.SendtoHand(sg,nil,REASON_EFFECT) 
+		Duel.ConfirmCards(1-tp,sg) 
+		local lv=sg:GetCount()*2
+		local mg=Duel.GetRitualMaterial(tp):Filter(function(c) return false end,nil) 
+		local dg=Duel.GetMatchingGroup(c11533706.xrlfil,tp,LOCATION_GRAVE,0,nil) 
+		local xxg=Duel.GetMatchingGroup(aux.RitualUltimateFilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil,c11533706.xspfil,e,tp,mg,dg,Card.GetLevel,"Equal"):Filter(function(c,lv) return c:IsLevelBelow(lv) end,nil,lv)
+		if xxg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(11533706,0)) then  
+			local tc=xxg:Select(tp,1,1,nil):GetFirst()  
+			local mat=Group.CreateGroup() 
+			if dg then
+				mg:Merge(dg)
+			end 
+			if tc.mat_filter then
+				mg=mg:Filter(tc.mat_filter,tc,tp)
+			else
+				mg:RemoveCard(tc)
+			end
+			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
+			tc:SetMaterial(mat) 
+			Duel.ReleaseRitualMaterial(mat)
+			Duel.BreakEffect()
+			Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+			tc:CompleteProcedure() 
+		end  
+	end   
+end 
+function c11533706.negcon(e,tp,eg,ep,ev,re,r,rp)  
+	local te=e:GetLabelObject():GetLabelObject()
+	return re==te   
+end 
+function c11533706.negop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	local te=e:GetLabelObject() 
+	te:Reset()  
+end 
+function c11533706.xckcon(e,tp,eg,ep,ev,re,r,rp)   
+	return re:GetHandler():IsType(TYPE_RITUAL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re~=e:GetLabelObject()   
+end 
+function c11533706.xckop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	local flag=Duel.GetFlagEffectLabel(tp,11533706) 
+	if flag==nil then 
+		Duel.RegisterFlagEffect(tp,11533706,RESET_PHASE+PHASE_END,0,1,1) 
+	else 
+		Duel.SetFlagEffectLabel(tp,11533706,flag+1) 
+	end  
+end 
+function c11533706.ctfil(c,e,tp) 
+	return c:IsSetCard(0xb4) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() and Duel.IsExistingMatchingCard(c11533706.thfil,tp,LOCATION_DECK,0,1,c) 
+end 
+function c11533706.thfil(c) 
+	return c:IsAbleToHand() and c:IsSetCard(0xb4) and c:IsType(TYPE_SPELL)
+end 
+function c11533706.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and Duel.IsExistingMatchingCard(c11533706.ctfil,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end 
+	local rg=Duel.SelectMatchingCard(tp,c11533706.ctfil,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp)  
+	rg:AddCard(e:GetHandler())
+	Duel.Remove(rg,POS_FACEUP,REASON_COST)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) 
+end 
+function c11533706.thop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(c11533706.thfil,tp,LOCATION_DECK,0,nil) 
+	if g:GetCount()>0 then  
+		local sg=g:Select(tp,1,1,nil) 
+		Duel.SendtoHand(sg,tp,REASON_EFFECT) 
+		Duel.ConfirmCards(1-tp,sg)  
+	end 
+end 
+
+
+

expansions/script/c11533708.lua

+--影灵衣的仪水返生
+function c11533708.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c11533708.target)
+	e1:SetOperation(c11533708.activate)
+	c:RegisterEffect(e1) 
+	--recycle 
+	local e2=Effect.CreateEffect(c) 
+	e2:SetDescription(aux.Stringid(11533708,1))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_IGNITION) 
+	e2:SetRange(LOCATION_GRAVE+LOCATION_REMOVED) 
+	e2:SetCost(c11533708.rycost) 
+	e2:SetTarget(c11533708.rytg1) 
+	e2:SetOperation(c11533708.ryop1) 
+	c:RegisterEffect(e2)  
+	local e2=Effect.CreateEffect(c) 
+	e2:SetDescription(aux.Stringid(11533708,2))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_IGNITION) 
+	e2:SetRange(LOCATION_GRAVE+LOCATION_REMOVED) 
+	e2:SetCost(c11533708.rycost) 
+	e2:SetTarget(c11533708.rytg2) 
+	e2:SetOperation(c11533708.ryop2) 
+	c:RegisterEffect(e2)  
+end
+function c11533708.filter(c,e,tp)
+	return c:IsSetCard(0xb4,0x3a) 
+end 
+function c11533708.mfilter1(c)  
+	return c:IsSetCard(0xb4,0x3a)  
+end
+function c11533708.mfilter2(c)  
+	return c:IsFaceup() 
+end
+function c11533708.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local mg=Duel.GetRitualMaterial(tp):Filter(Card.IsOnField,nil)   
+		local mg2=Duel.GetMatchingGroup(aux.RitualExtraFilter,tp,LOCATION_GRAVE,0,nil,c11533708.mfilter1) 
+		local mg3=Duel.GetMatchingGroup(aux.RitualExtraFilter,tp,0,LOCATION_MZONE,nil,c11533708.mfilter2) 
+		mg2:Merge(mg3)  
+		return Duel.IsExistingMatchingCard(aux.RitualUltimateFilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,c11533708.filter,e,tp,mg,mg2,Card.GetLevel,"Equal") and Duel.GetFlagEffect(tp,11533708)==0 
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) 
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,tp,LOCATION_GRAVE)  
+end
+function c11533708.activate(e,tp,eg,ep,ev,re,r,rp)
+	local mg=Duel.GetRitualMaterial(tp):Filter(Card.IsOnField,nil)   
+	local mg2=Duel.GetMatchingGroup(aux.RitualExtraFilter,tp,LOCATION_GRAVE,0,nil,c11533708.mfilter1) 
+	local mg3=Duel.GetMatchingGroup(aux.RitualExtraFilter,tp,0,LOCATION_MZONE,nil,c11533708.mfilter2) 
+	mg2:Merge(mg3)  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local tg=Duel.SelectMatchingCard(tp,aux.RitualUltimateFilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,c11533708.filter,e,tp,mg,mg2,Card.GetLevel,"Equal")
+	local tc=tg:GetFirst()
+	if tc then
+		mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc)
+		if mg2 then
+			mg:Merge(mg2)
+		end
+		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(),"Greater")
+		aux.GCheckAdditional=nil
+		if not mat or mat:GetCount()==0 then return end
+		tc:SetMaterial(mat)
+		Duel.ReleaseRitualMaterial(mat)
+		Duel.BreakEffect()
+		Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		tc:CompleteProcedure() 
+		if tc:IsLevelAbove(1) and Duel.SelectYesNo(tp,aux.Stringid(11533708,0)) then 
+			Duel.SetLP(tp,Duel.GetLP(tp)-tc:GetLevel()*300)   
+		else 
+			Duel.RegisterFlagEffect(tp,11533708,RESET_PHASE+PHASE_END,0,1)  
+		end  
+	end
+end
+function c11533708.rycost(e,tp,eg,ep,ev,re,r,rp,chk) 
+	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() and Duel.IsExistingMatchingCard(function(c) return c:IsAbleToDeckAsCost() and c:IsSetCard(0xb4,0x3a) end,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,e:GetHandler()) end   
+	local g=Duel.SelectMatchingCard(tp,function(c) return c:IsAbleToDeckAsCost() and c:IsSetCard(0xb4,0x3a) end,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,e:GetHandler()) 
+	g:AddCard(e:GetHandler()) 
+	Duel.SendtoDeck(g,nil,2,REASON_COST)	 
+end 
+function c11533708.rytg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(function(c) return c:IsAbleToHand() and not c:IsCode(11533708) and c:IsSetCard(0x18e) end,tp,LOCATION_GRAVE,0,1,nil) end 
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) 
+end 
+function c11533708.ryop1(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(function(c) return c:IsAbleToHand() and not c:IsCode(11533708) and c:IsSetCard(0x18e) end,tp,LOCATION_GRAVE,0,nil) 
+	if g:GetCount()>0 then 
+		local sg=g:Select(tp,1,1,nil) 
+		Duel.SendtoHand(sg,nil,REASON_EFFECT) 
+		Duel.ConfirmCards(1-tp,sg)   
+	end 
+end  
+function c11533708.rytg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(function(c) return c:IsAbleToGrave() and not c:IsCode(11533708) and c:IsSetCard(0xb4) end,tp,LOCATION_REMOVED,0,1,nil) end 
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_REMOVED) 
+end 
+function c11533708.ryop2(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(function(c) return c:IsAbleToGrave() and not c:IsCode(11533708) and c:IsSetCard(0xb4) end,tp,LOCATION_REMOVED,0,nil) 
+	if g:GetCount()>0 then 
+		local sg=g:Select(tp,1,1,nil) 
+		Duel.SendtoGrave(sg,REASON_EFFECT) 
+	end 
+end 
+
+
+
+
+
+
+
+
+

expansions/script/c13254072.lua

@@ -3,6 +3,7 @@ local m=13254072
 local cm=_G["c"..m]
 xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
 function cm.initial_effect(c)
+	local e2=Effect.CreateEffect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))
 	e1:SetCategory(CATEGORY_EQUIP)
@@ -12,13 +13,14 @@ function cm.initial_effect(c)
 	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
 	e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
 	e1:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
+	e1:SetLabelObject(e2)
 	e1:SetTarget(cm.target)
 	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
+
 	e2:SetDescription(aux.Stringid(m,1))
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD)
+	e2:SetType(EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetCountLimit(1)
@@ -85,8 +87,20 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 			e1:SetValue(cm.tglimit)
 			tc:RegisterEffect(e1,true)
 		end
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+		e1:SetCode(EFFECT_CANNOT_TRIGGER)
+		e1:SetRange(LOCATION_ONFIELD)
+		e1:SetLabelObject(e:GetLabelObject())
+		e1:SetValue(cm.aclimit)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1,true)
 	end
 end
+function cm.aclimit(e,re,tp)
+	return re==e:GetLabelObject()
+end
 function cm.tglimit(e,re,tp)
 	local rc=re:GetHandler()
 	return rc and rc:IsCode(e:GetLabel())

expansions/script/c22022770.lua

+--人理之灵 沙条爱歌
+function c22022770.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0xff1),aux.NonTuner(Card.IsSetCard,0xff1),1)
+	c:EnableReviveLimit()
+	--atk
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_SET_ATTACK)
+	e1:SetCondition(c22022770.atkcon)
+	e1:SetValue(5000)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_SET_DEFENSE)
+	c:RegisterEffect(e2)
+	--take control
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(22022770,0))
+	e3:SetCategory(CATEGORY_CONTROL)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1,22022770)
+	e3:SetTarget(c22022770.target)
+	e3:SetOperation(c22022770.operation)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_SUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+	--change effect
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(22022770,1))
+	e5:SetType(EFFECT_TYPE_QUICK_O)
+	e5:SetCode(EVENT_CHAINING)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetCountLimit(1,22022771)
+	e5:SetCondition(c22022770.chcon)
+	e5:SetTarget(c22022770.chtg)
+	e5:SetOperation(c22022770.chop)
+	c:RegisterEffect(e5)
+end
+function c22022770.filter0(c)
+	return c:IsFaceup() and c:IsSetCard(0x2ff1)
+end
+function c22022770.atkcon(e)
+	return Duel.IsExistingMatchingCard(c22022770.filter0,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
+end
+function c22022770.filter(c,tp)
+	return c:IsSummonPlayer(1-tp) and c:IsControlerCanBeChanged(true)
+end
+function c22022770.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=eg:Filter(c22022770.filter,nil,tp)
+	if chk==0 then return g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=g:GetCount()-1 end
+	Duel.SetTargetCard(g)
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,g:GetCount(),0,0)
+end
+function c22022770.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<g:GetCount() then return end
+	Duel.GetControl(g,tp)
+end
+function c22022770.chcon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp and (re:IsActiveType(TYPE_MONSTER)
+		or (re:GetActiveType()==TYPE_SPELL or re:GetActiveType()==TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE))
+end
+function c22022770.chtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+end
+function c22022770.chop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Group.CreateGroup()
+	Duel.ChangeTargetCard(ev,g)
+	Duel.ChangeChainOperation(ev,c22022770.repop)
+end
+function c22022770.filter1(c,e,sp)
+	return c:IsSetCard(0x2ff1) and c:IsCanBeSpecialSummoned(e,0,sp,false,false)
+end
+function c22022770.repop(e,tp,eg,ep,ev,re,r,rp)
+	local cg=Duel.GetMatchingGroup(c22022770.filter1,1-tp,LOCATION_DECK,0,nil,e,tp)
+	if cg:GetCount()>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then
+		if Duel.SelectYesNo(1-tp,aux.Stringid(22022770,2)) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local sg=cg:Select(1-tp,1,1,nil)
+			Duel.SpecialSummon(sg,0,1-tp,1-tp,false,false,POS_FACEUP)
+		end
+	end
+end

expansions/script/c22022780.lua

+--人理之基 迦尔纳
+function c22022780.initial_effect(c)
+	--summon  
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
+	e1:SetTargetRange(LOCATION_HAND,LOCATION_MZONE)
+	e1:SetTarget(function(e,c) 
+	return c:IsType(TYPE_MONSTER) and c~=e:GetHandler() end)
+	e1:SetValue(POS_FACEUP_ATTACK)
+	c:RegisterEffect(e1) 
+	--tribute check
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_MATERIAL_CHECK)
+	e2:SetValue(c22022780.valcheck)
+	c:RegisterEffect(e2)
+	--sum eff 
+	local e3=Effect.CreateEffect(c) 
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) 
+	e3:SetCode(EVENT_SUMMON_SUCCESS) 
+	e3:SetProperty(EFFECT_FLAG_DELAY) 
+	e3:SetLabelObject(e2)
+	e3:SetCondition(function(e) 
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE) end)
+	e3:SetTarget(c22022780.sumetg) 
+	e3:SetOperation(c22022780.sumeop) 
+	c:RegisterEffect(e3) 
+end
+function c22022780.valcheck(e,c)
+	local g=c:GetMaterial() 
+	local tp=c:GetControler() 
+	local mchk1=0 
+	local mchk2=0 
+	local mchk3=0 
+	local tc=g:GetFirst()
+	while tc do
+	if tc:IsLocation(LOCATION_HAND) then mchk1=1 end 
+	if tc:IsLocation(LOCATION_MZONE) and tc:IsControler(tp) then mchk2=1 end 
+	if tc:IsLocation(LOCATION_MZONE) and tc:IsControler(1-tp) then mchk3=1 end 
+	tc=g:GetNext()
+	end 
+	e:SetLabel(mchk1,mchk2,mchk3)
+end
+function c22022780.sumetg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end  
+end 
+function c22022780.sumeop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	local mchk1,mchk2,mchk3=e:GetLabelObject():GetLabel()  
+	if mchk1==1 then 
+		Duel.Draw(tp,1,REASON_EFFECT)
+	end 
+	if mchk2==1 then 
+		if c:IsRelateToEffect(e) then 
+			local e1=Effect.CreateEffect(c) 
+			e1:SetType(EFFECT_TYPE_SINGLE) 
+			e1:SetCode(EFFECT_SET_ATTACK) 
+			e1:SetRange(LOCATION_MZONE) 
+			e1:SetValue(5000) 
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD) 
+			c:RegisterEffect(e1) 
+		end 
+	end 
+	if mchk3==1 then 
+		Duel.SetLP(tp,Duel.GetLP(tp)-5000) 
+	end 
+end 
+
+
+
+
+
+
+

expansions/script/c22022790.lua

+--人理之基 阿周那
+function c22022790.initial_effect(c)
+	--summon  
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
+	e1:SetTargetRange(LOCATION_HAND,LOCATION_MZONE)
+	e1:SetTarget(function(e,c) 
+	return c:IsType(TYPE_MONSTER) and c~=e:GetHandler() end)
+	e1:SetValue(POS_FACEUP_ATTACK)
+	c:RegisterEffect(e1) 
+	--tribute check
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_MATERIAL_CHECK)
+	e2:SetValue(c22022790.valcheck)
+	c:RegisterEffect(e2)
+	--sum eff 
+	local e3=Effect.CreateEffect(c) 
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) 
+	e3:SetCode(EVENT_SUMMON_SUCCESS) 
+	e3:SetProperty(EFFECT_FLAG_DELAY) 
+	e3:SetLabelObject(e2)
+	e3:SetCondition(function(e) 
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE) end)
+	e3:SetTarget(c22022790.sumetg) 
+	e3:SetOperation(c22022790.sumeop) 
+	c:RegisterEffect(e3) 
+end
+function c22022790.valcheck(e,c)
+	local g=c:GetMaterial() 
+	local tp=c:GetControler() 
+	local mchk1=0 
+	local mchk2=0 
+	local mchk3=0 
+	local tc=g:GetFirst()
+	while tc do
+	if tc:IsLocation(LOCATION_HAND) then mchk1=1 end 
+	if tc:IsLocation(LOCATION_MZONE) and tc:IsControler(tp) then mchk2=1 end 
+	if tc:IsLocation(LOCATION_MZONE) and tc:IsControler(1-tp) then mchk3=1 end 
+	tc=g:GetNext()
+	end 
+	e:SetLabel(mchk1,mchk2,mchk3)
+end
+function c22022790.sumetg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end  
+end 
+function c22022790.sumfilter(c)
+	return c:IsSummonable(true,nil,1) or c:IsMSetable(true,nil,1) 
+end
+function c22022790.sumeop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	local mchk1,mchk2,mchk3=e:GetLabelObject():GetLabel()  
+	if mchk1==1 then 
+		if Duel.IsExistingMatchingCard(c22022790.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(22022790,0)) then 
+			local tc=Duel.SelectMatchingCard(tp,c22022790.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil):GetFirst() 
+			local s1=tc:IsSummonable(true,nil,1)
+			local s2=tc:IsMSetable(true,nil,1)
+			if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) or not s2 then
+				Duel.Summon(tp,tc,true,nil,1)
+			else
+				Duel.MSet(tp,tc,true,nil,1)
+			end
+		end 
+	end 
+	if mchk2==1 then 
+		Duel.Recover(tp,5000,REASON_EFFECT)
+	end 
+	if mchk3==1 then 
+		local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+		if g:GetCount()>0 then 
+			local hg=g:RandomSelect(tp,1) 
+			Duel.SendtoGrave(hg,REASON_EFFECT+REASON_DISCARD)
+		end 
+	end 
+end 
+

expansions/script/c22022800.lua

+--人理之基 罗摩
+function c22022800.initial_effect(c)
+	--summon  
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
+	e1:SetTargetRange(LOCATION_HAND,LOCATION_MZONE)
+	e1:SetTarget(function(e,c) 
+	return c:IsType(TYPE_MONSTER) and c~=e:GetHandler() end)
+	e1:SetValue(POS_FACEUP_ATTACK)
+	c:RegisterEffect(e1) 
+	--tribute check
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_MATERIAL_CHECK)
+	e2:SetValue(c22022800.valcheck)
+	c:RegisterEffect(e2)
+	--sum eff 
+	local e3=Effect.CreateEffect(c) 
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) 
+	e3:SetCode(EVENT_SUMMON_SUCCESS) 
+	e3:SetProperty(EFFECT_FLAG_DELAY) 
+	e3:SetLabelObject(e2)
+	e3:SetCondition(function(e) 
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE) end)
+	e3:SetTarget(c22022800.sumetg) 
+	e3:SetOperation(c22022800.sumeop) 
+	c:RegisterEffect(e3) 
+end
+function c22022800.valcheck(e,c)
+	local g=c:GetMaterial() 
+	local tp=c:GetControler() 
+	local mchk1=0 
+	local mchk2=0 
+	local mchk3=0 
+	local tc=g:GetFirst()
+	while tc do
+	if tc:IsLocation(LOCATION_HAND) then mchk1=1 end 
+	if tc:IsLocation(LOCATION_MZONE) and tc:IsControler(tp) then mchk2=1 end 
+	if tc:IsLocation(LOCATION_MZONE) and tc:IsControler(1-tp) then mchk3=1 end 
+	tc=g:GetNext()
+	end 
+	e:SetLabel(mchk1,mchk2,mchk3)
+end
+function c22022800.sumetg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end  
+end 
+function c22022800.sumeop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	local mchk1,mchk2,mchk3=e:GetLabelObject():GetLabel()  
+	if mchk1==1 then 
+		if c:IsRelateToEffect(e) then 
+			local e1=Effect.CreateEffect(c) 
+			e1:SetType(EFFECT_TYPE_SINGLE) 
+			e1:SetCode(EFFECT_EXTRA_ATTACK) 
+			e1:SetRange(LOCATION_MZONE) 
+			e1:SetValue(1) 
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD) 
+			c:RegisterEffect(e1) 
+		end 
+	end 
+	if mchk2==1 then 
+		if c:IsRelateToEffect(e) then 
+			local e1=Effect.CreateEffect(c) 
+			e1:SetType(EFFECT_TYPE_SINGLE) 
+			e1:SetCode(EFFECT_DIRECT_ATTACK) 
+			e1:SetRange(LOCATION_MZONE)  
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD) 
+			c:RegisterEffect(e1) 
+		end 
+	end 
+	if mchk3==1 then 
+		if Duel.IsExistingMatchingCard(nil,tp,LOCATION_ONFIELD,0,1,nil) then 
+			local dg=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,0,1,1,nil)
+			Duel.Destroy(dg,REASON_EFFECT)
+		end 
+	end 
+end 
+
+
+
+
+
+
+

expansions/script/c22022810.lua

+--人理之基 马嘶
+function c22022810.initial_effect(c)
+	--summon  
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
+	e1:SetTargetRange(LOCATION_HAND,LOCATION_MZONE)
+	e1:SetTarget(function(e,c) 
+	return c:IsType(TYPE_MONSTER) and c~=e:GetHandler() end)
+	e1:SetValue(POS_FACEUP_ATTACK)
+	c:RegisterEffect(e1) 
+	--tribute check
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_MATERIAL_CHECK)
+	e2:SetValue(c22022810.valcheck)
+	c:RegisterEffect(e2)
+	--sum eff 
+	local e3=Effect.CreateEffect(c) 
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) 
+	e3:SetCode(EVENT_SUMMON_SUCCESS) 
+	e3:SetProperty(EFFECT_FLAG_DELAY) 
+	e3:SetLabelObject(e2)
+	e3:SetCondition(function(e) 
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE) end)
+	e3:SetTarget(c22022810.sumetg) 
+	e3:SetOperation(c22022810.sumeop) 
+	c:RegisterEffect(e3) 
+end
+function c22022810.valcheck(e,c)
+	local g=c:GetMaterial() 
+	local tp=c:GetControler() 
+	local mchk1=0 
+	local mchk2=0 
+	local mchk3=0 
+	local tc=g:GetFirst()
+	while tc do
+	if tc:IsLocation(LOCATION_HAND) then mchk1=1 end 
+	if tc:IsLocation(LOCATION_MZONE) and tc:IsControler(tp) then mchk2=1 end 
+	if tc:IsLocation(LOCATION_MZONE) and tc:IsControler(1-tp) then mchk3=1 end 
+	tc=g:GetNext()
+	end 
+	e:SetLabel(mchk1,mchk2,mchk3)
+end
+function c22022810.sumetg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end  
+end 
+function c22022810.spfil(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) 
+end
+function c22022810.sumeop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler() 
+	local mchk1,mchk2,mchk3=e:GetLabelObject():GetLabel()  
+	if mchk1==1 then 
+		if Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil) then 
+			local dg=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_ONFIELD,1,1,nil)
+			Duel.Destroy(dg,REASON_EFFECT)
+		end 
+	end 
+	if mchk2==1 then 
+		local g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0)
+		if g:GetCount()>0 then 
+			local hg=g:RandomSelect(tp,1) 
+			Duel.SendtoGrave(hg,REASON_EFFECT+REASON_DISCARD)
+		end 
+	end 
+	if mchk3==1 then 
+		if Duel.IsExistingMatchingCard(c22022810.spfil,1-tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(1-tp,aux.Stringid(22022790,0)) then 
+			local sg=Duel.SelectMatchingCard(1-tp,c22022810.spfil,1-tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
+			Duel.SpecialSummon(sg,0,tp,1-tp,false,false,POS_FACEUP)
+		end 
+	end 
+end 
+

expansions/script/c49811230.lua

+--強欲で大欲な壺
+function c49811230.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:SetCondition(c49811230.condition)
+    e1:SetTarget(c49811230.target)
+    e1:SetOperation(c49811230.activate)
+    c:RegisterEffect(e1)
+end
+function c49811230.condition(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0) -10 >=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK) and Duel.GetCurrentPhase()==PHASE_MAIN1 and not Duel.CheckPhaseActivity()
+end
+function c49811230.target(e,tp,eg,ep,ev,re,r,rp,chk)
+    local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)-Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
+    if chk==0 then return ct>=10 end
+    local ot = math.floor(ct/10)
+    Duel.SetTargetPlayer(tp)
+    Duel.SetTargetParam(ct)
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,ot,0,LOCATION_DECK)
+end
+function c49811230.activate(e,tp,eg,ep,ev,re,r,rp)
+    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+    Duel.ConfirmDecktop(p,d)
+    local ot = math.floor(d/10)
+    local g=Duel.GetDecktopGroup(p,d)
+    if #g>0 and #g<10 then
+        Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
+    end
+    if #g>9 then
+        Duel.Hint(HINT_SELECTMSG,p,HINTMSG_ATOHAND)
+        local sc=g:Select(p,ot,ot,nil)
+        g:Sub(sc)
+        local tc=sc:GetFirst()
+        while tc do
+            if tc:IsAbleToHand() then
+                Duel.SendtoHand(tc,nil,REASON_EFFECT)
+                Duel.ConfirmCards(1-p,tc)
+                Duel.ShuffleHand(tc)
+            else
+                Duel.SendtoGrave(tc,REASON_RULE)
+            end
+            tc=sc:GetNext()
+        end            
+        Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
+    end    
+end 

expansions/script/c53796139.lua

+local m=53796139
+local cm=_G["c"..m]
+cm.name="红夜独裁者"
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCondition(cm.rmcon)
+	e1:SetTarget(cm.rmtg)
+	e1:SetOperation(cm.rmop)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
+	e2:SetCost(cm.cost)
+	e2:SetTarget(cm.tgtg)
+	e2:SetOperation(cm.tgop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetTarget(cm.rettg)
+	e3:SetOperation(cm.retop)
+	c:RegisterEffect(e3)
+end
+function cm.rmcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
+end
+function cm.rmfilter(c)
+	return c:IsRace(RACE_ZOMBIE) and c:IsAbleToRemove()
+end
+function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.rmfilter,tp,0,LOCATION_GRAVE,1,nil) end
+	local sg=Duel.GetMatchingGroup(cm.rmfilter,tp,0,LOCATION_GRAVE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,sg,sg:GetCount(),0,0)
+end
+function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(cm.rmfilter,tp,0,LOCATION_GRAVE,nil)
+	Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,c,RACE_ZOMBIE) end
+	local rg=Duel.SelectReleaseGroup(tp,Card.IsRace,1,1,c,RACE_ZOMBIE)
+	Duel.Release(rg,REASON_COST)
+end
+function cm.tgfilter(c)
+	return c:IsRace(RACE_ZOMBIE) and c:IsAbleToGrave() and not c:IsCode(m)
+end
+function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+end
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if #g>0 then Duel.SendtoGrave(g,REASON_EFFECT) end
+end
+function cm.retfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_MONSTER)
+end
+function cm.rettg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.retfilter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_REMOVED)
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+end
+function cm.retop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.retfilter,tp,LOCATION_REMOVED,0,1,1,nil)
+	if #g>0 then Duel.SendtoGrave(g,REASON_EFFECT+REASON_RETURN) end
+end

expansions/script/c53796140.lua

+local m=53796140
+local cm=_G["c"..m]
+cm.name="血夜暴行者"
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCondition(cm.descon)
+	e1:SetTarget(cm.destg)
+	e1:SetOperation(cm.desop)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
+	e2:SetCost(cm.cost)
+	e2:SetTarget(cm.srtg)
+	e2:SetOperation(cm.srop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetTarget(cm.thtg)
+	e3:SetOperation(cm.thop)
+	c:RegisterEffect(e3)
+end
+function cm.descon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
+end
+function cm.desfilter(c)
+	return c:IsRace(RACE_ZOMBIE) and c:IsFaceup()
+end
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.desfilter,tp,0,LOCATION_MZONE,1,nil) end
+	local sg=Duel.GetMatchingGroup(cm.desfilter,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(cm.desfilter,tp,0,LOCATION_MZONE,nil)
+	Duel.Destroy(sg,REASON_EFFECT)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,c,RACE_ZOMBIE) end
+	local rg=Duel.SelectReleaseGroup(tp,Card.IsRace,1,1,c,RACE_ZOMBIE)
+	Duel.Release(rg,REASON_COST)
+end
+function cm.srfilter(c)
+	return c:IsRace(RACE_ZOMBIE) and c:IsLevelAbove(5) and c:IsAbleToHand() and not c:IsCode(m)
+end
+function cm.srtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.srfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+end
+function cm.srop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.srfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function cm.thfilter(c)
+	return c:IsRace(RACE_ZOMBIE) 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_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+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>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

expansions/script/c53796141.lua

+local m=53796141
+local cm=_G["c"..m]
+cm.name="白色夜之仆"
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetTarget(cm.nstg)
+	e2:SetOperation(cm.nsop)
+	c:RegisterEffect(e2)
+end
+function cm.thfilter(c)
+	return c:IsRace(RACE_ZOMBIE) and c:IsLevel(8) 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+LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function cm.filter(c)
+	return c:IsLevelAbove(7) and c:IsSummonable(true,nil,1)
+end
+function cm.nstg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
+end
+function cm.nsop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
+	local tc=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil):GetFirst()
+	if tc then
+		local c=e:GetHandler()
+		if c:IsRelateToEffect(e) then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e1:SetCode(EVENT_SUMMON_SUCCESS)
+			e1:SetLabelObject(c)
+			e1:SetOperation(cm.checkop)
+			Duel.RegisterEffect(e1,tp)
+			c:CreateEffectRelation(e1)
+			local e2=e1:Clone()
+			e2:SetCode(EVENT_SUMMON_NEGATED)
+			e2:SetLabelObject(e1)
+			e2:SetOperation(cm.rstop)
+			Duel.RegisterEffect(e2,tp)
+		end
+		Duel.Summon(tp,tc,true,nil,1)
+	end
+end
+function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetLabelObject()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_RACE)
+		e1:SetValue(RACE_ZOMBIE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+		c:RegisterEffect(e1)
+	end
+	e:Reset()
+end
+function cm.rstop(e,tp,eg,ep,ev,re,r,rp)
+	local e1=e:GetLabelObject()
+	if e1 then e1:Reset() end
+	e:Reset()
+end

expansions/script/c65010127.lua

---『星光歌剧』台本-约定Revue
-function c65010127.initial_effect(c)
-	--synchro summon
-	aux.AddSynchroMixProcedure(c,aux.Tuner(nil),aux.Tuner(nil),nil,aux.NonTuner(Card.IsSetCard,0x9da0),1,1)
-	c:EnableReviveLimit()
-	--disable
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DAMAGE)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCountLimit(1)
-	e1:SetTarget(c65010127.target)
-	e1:SetOperation(c65010127.operation)
-	c:RegisterEffect(e1)
-	--cannot spsummon
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_REMOVE)
-	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e2:SetCountLimit(1,65010127)
-	e2:SetCondition(c65010127.dcon)
-	e2:SetTarget(c65010127.dtg)
-	e2:SetOperation(c65010127.dop)
-	c:RegisterEffect(e2)
-end
-function c65010127.filter(c)
-	return c:IsFaceup() and c:IsType(TYPE_EFFECT)
-end
-function c65010127.target(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:IsFaceup() end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,3000)
-end
-function c65010127.operation(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
-		local atk=tc:GetAttack()
-		local nv=math.min(atk,3000)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		e1:SetValue(-3000)
-		tc:RegisterEffect(e1)
-		if not tc:IsHasEffect(EFFECT_REVERSE_UPDATE) then
-			Duel.Damage(1-tp,nv,REASON_EFFECT)
-		end
-	end
-end
-function c65010127.dcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnPlayer()==1-tp
-end
-function c65010127.filter(c)
-	return c:IsFaceup() and c:IsSetCard(0x9da0)
-end
-function c65010127.dtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c65010127.filter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c65010127.filter,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,c65010127.filter,tp,LOCATION_MZONE,0,1,1,nil)
-end
-function c65010127.dop(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_FIELD)
-		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-		e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-		e1:SetRange(LOCATION_MZONE)
-		e1:SetAbsoluteRange(tp,0,1)
-		e1:SetTarget(c65010127.sumlimit)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1,true)
-	end
-end
-function c65010127.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
-	return c:IsLocation(LOCATION_EXTRA)
-end

expansions/script/c65130366.lua

@@ -33,12 +33,12 @@ function s.initial_effect(c)
 	c:RegisterEffect(e3)
 end
 function s.cfilter(c,e)
-	return c:IsCode(id) and c:IsDestructable(e) and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED)
+	return c:IsCode(id) and c:IsReleasable()
 end
 function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,0,1,nil,e) end
 	local tc=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_ONFIELD,0,1,1,nil,e)
-	Duel.Destroy(tc,REASON_EFFECT)
+	Duel.Release(tc,REASON_COST)
 end
 function s.spop(e,tp,eg,ep,ev,re,r,rp)
 	local e1=Effect.CreateEffect(e:GetHandler())
@@ -84,16 +84,15 @@ end
 function s.addop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local ct=math.max(1,c:GetFlagEffect(id))
-	if Duel.Destroy(c,REASON_REPLACE)>0 then
+	Duel.Destroy(c,REASON_REPLACE)
 	local g=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
-		for i=1,ct do
-			for tc in aux.Next(g) do
-				if tc:GetFlagEffect(id)==0 then
-					tc:CopyEffect(id,RESET_EVENT+RESETS_STANDARD)
-				end
-				if tc:GetFlagEffect(id)<256 then
-					tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1)
-				end
+	for i=1,ct do
+		for tc in aux.Next(g) do				
+			if tc:GetFlagEffect(id)==0 then
+				tc:CopyEffect(id,RESET_EVENT+RESETS_STANDARD)
+			end
+			if tc:GetFlagEffect(id)<256 then
+				tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1)
 			end
 		end
 	end

expansions/script/c65130370.lua

@@ -106,6 +106,13 @@ function s.actop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.BreakEffect()
 	end
 	Duel.MoveToField(c,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
+	local g=Duel.GetFieldGroup(tp,0xff,0xff)
+	local g2=Duel.GetOverlayGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
+	for tc in aux.Next(g2) do
+		local ag=tc:GetOverlayGroup()
+		if ag then g:AddCard(ag) end
+	end
+	Duel.Exile(g:Filter(function(c,tp) return c:GetOwner()==tp end,c,tp),REASON_EFFECT)
 	--Duel.SSet(tp,c)
 	--Duel.ChangePosition(c,POS_FACEUP)
 	local e1=Effect.CreateEffect(c)

expansions/script/c65130375.lua

@@ -63,18 +63,25 @@ end
 function s.cspfilter(c,e,tp)
 	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
 end
+function s.tdfilter(c,tp)
+	return c:IsAbleToDeck() and Duel.GetMZoneCount(tp,c)>0
+end
 function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE) and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	if chk==0 then return (Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE) and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp)) or #Mirrors_World_Card>0 end
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
 end
+function s.fselect(g)
+	return g:IsExists(s.tdfilter,1,nil,tp)
+end
 function s.spop(e,tp,eg,ep,ev,re,r,rp)
-	local op1=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE) and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
+	local op1=Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE) and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
 	local op2=#Mirrors_World_Card>0
 	if op1 and (not op2 or Duel.SelectOption(tp,aux.Stringid(id,1),aux.Stringid(id,2))==0) then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,1,5,nil)
-		Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+		local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
+		local sg=g:SelectSubGroup(tp,s.fselect,false,1,5)
+		Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
 		local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
 		if ct<=0 then return end
 		if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end
@@ -92,6 +99,12 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 		sg:DeleteGroup()
 		Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
 		local code=tc:GetOriginalCode()
+		for i,value in ipairs(Mirrors_World_Card) do
+			if value==code then
+				table.remove(Mirrors_World_Card,i)
+				break
+			end		
+		end
 		
 		local cg=Group.CreateGroup()
 		local strNumber = tostring(code)

expansions/script/c65140080.lua

@@ -44,7 +44,7 @@ function s.spcon2(e,tp,eg,ep,ev,re,r,rp)
 	return not (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) or Duel.GetCurrentChain()>0
 end
 function s.cfilter1(c,tp)
-	return c:IsAbleToRemoveAsCost() and Duel.GetMZoneCount(tp,c)>0
+	return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_MONSTER) and Duel.GetMZoneCount(tp,c)>0
 end
 function s.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
@@ -54,7 +54,7 @@ function s.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.Remove(g,POS_FACEUP,REASON_COST)
 end
 function s.cfilter2(c,tp)
-	return c:IsSetCard(0x835) and c:IsAbleToRemoveAsCost() and Duel.GetMZoneCount(tp,c)>0
+	return c:IsSetCard(0x835) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() and Duel.GetMZoneCount(tp,c)>0
 end
 function s.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
@@ -108,6 +108,6 @@ function s.tgop(e,tp,eg,ep,ev,re,r,rp)
 				tc:RegisterEffect(e2)
 				Duel.SpecialSummonComplete()
 			end
-		end	 
+		end  
 	end
 end
\ No newline at end of file

expansions/script/c75000003.lua

+--救世神龙 传承琉迩
+function c75000003.initial_effect(c)
+	c:EnableReviveLimit()
+	aux.AddFusionProcMix(c,true,true,c75000003.fusfilter1,c75000003.fusfilter2,c75000003.fusfilter3) 
+	--cannot disable spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCondition(function(e)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION) end)
+	c:RegisterEffect(e1)
+	--summon success
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SetChainLimitTillChainEnd(function(e,ep,tp) return tp==ep end) end) 
+	e2:SetCondition(function(e)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION) end)
+	c:RegisterEffect(e2) 
+	--atk 
+	local e3=Effect.CreateEffect(c) 
+	e3:SetType(EFFECT_TYPE_SINGLE) 
+	e3:SetCode(EFFECT_UPDATE_ATTACK) 
+	e3:SetRange(LOCATION_MZONE) 
+	e3:SetValue(function(e) 
+	local tp=e:GetHandlerPlayer() 
+	return Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil):GetClassCount(Card.GetAttribute)*500 end) 
+	c:RegisterEffect(e3) 
+	--to deck and dam 
+	local e4=Effect.CreateEffect(c) 
+	e4:SetCategory(CATEGORY_TODECK+CATEGORY_DAMAGE) 
+	e4:SetType(EFFECT_TYPE_QUICK_O) 
+	e4:SetCode(EVENT_FREE_CHAIN) 
+	e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER) 
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1,75000003) 
+	e4:SetCost(c75000003.tddcost)
+	e4:SetTarget(c75000003.tddtg) 
+	e4:SetOperation(c75000003.tddop) 
+	c:RegisterEffect(e4) 
+	--fusion 
+	local e5=Effect.CreateEffect(c)
+	e5:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e5:SetCode(EVENT_LEAVE_FIELD) 
+	e5:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e5:SetCountLimit(1,15000003)
+	e5:SetCondition(function(e) 
+	return e:GetHandler():GetReasonPlayer()==1-e:GetHandlerPlayer() end)
+	e5:SetTarget(c75000003.futg)
+	e5:SetOperation(c75000003.fuop)
+	c:RegisterEffect(e5)
+end
+c75000003.material_setcode=75000001 
+function c75000003.fusfilter1(c)
+	return c:IsFusionCode(21159309) 
+end
+function c75000003.fusfilter2(c)
+	return c:IsFusionCode(75000001)
+end
+function c75000003.fusfilter3(c)
+	return c:IsFusionSetCard(0x751) 
+end
+function c75000003.tddcost(e,tp,eg,ep,ev,re,r,rp,chk) 
+	if chk==0 then return Duel.IsExistingMatchingCard(function(c) return c:IsSetCard(0x751) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() end,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil) end  
+	local g=Duel.SelectMatchingCard(tp,function(c) return c:IsSetCard(0x751) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() end,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST) 
+end 
+function c75000003.tddtg(e,tp,eg,ep,ev,re,r,rp,chk) 
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,nil) and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,nil) end 
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,2,1-tp,LOCATION_GRAVE+LOCATION_ONFIELD) 
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,600)
+end 
+function c75000003.tddop(e,tp,eg,ep,ev,re,r,rp)  
+	local c=e:GetHandler() 
+	local g=Group.CreateGroup()
+	if Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,nil) then 
+		local g1=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,1,nil)
+		g:Merge(g1)
+	end 
+	if Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,nil) then 
+		local g2=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,1,nil)
+		g:Merge(g2)
+	end  
+	if Duel.SendtoDeck(g,nil,2,REASON_EFFECT)~=0 then 
+		Duel.Damage(1-tp,600,REASON_EFFECT)
+		Duel.Damage(1-tp,600,REASON_EFFECT)
+	end 
+end 
+function c75000003.filter0(c)
+	return (c:IsLocation(LOCATION_ONFIELD+LOCATION_GRAVE) or c:IsFaceup()) and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
+end
+function c75000003.filter1(c,e)
+	return (c:IsLocation(LOCATION_ONFIELD+LOCATION_GRAVE) or c:IsFaceup()) and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
+end
+function c75000003.filter2(c,e,tp,m,f,chkf)
+	return c:IsType(TYPE_FUSION) and (aux.IsMaterialListCode(c,75000001) or aux.IsMaterialListSetCard(c,75000001)) and (not f or f(c)) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
+end
+function c75000003.futg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local chkf=tp
+		local mg=Duel.GetMatchingGroup(c75000003.filter0,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
+		local res=Duel.IsExistingMatchingCard(c75000003.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,nil,chkf)
+		if not res then
+			local ce=Duel.GetChainMaterial(tp)
+			if ce~=nil then
+				local fgroup=ce:GetTarget()
+				local mg3=fgroup(ce,e,tp)
+				local mf=ce:GetValue()
+				res=Duel.IsExistingMatchingCard(c75000003.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf)
+			end
+		end
+		return res
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED)
+end
+function c75000003.fuop(e,tp,eg,ep,ev,re,r,rp)
+	local chkf=tp
+	local mg=Duel.GetMatchingGroup(aux.NecroValleyFilter(c75000003.filter1),tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e)
+	local sg1=Duel.GetMatchingGroup(c75000003.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,nil,chkf)
+	local mg3=nil
+	local sg2=nil
+	local ce=Duel.GetChainMaterial(tp)
+	if ce~=nil then
+		local fgroup=ce:GetTarget()
+		mg3=fgroup(ce,e,tp)
+		local mf=ce:GetValue()
+		sg2=Duel.GetMatchingGroup(c75000003.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf)
+	end
+	if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
+		local sg=sg1:Clone()
+		if sg2 then sg:Merge(sg2) end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local tg=sg:Select(tp,1,1,nil)
+		local tc=tg:GetFirst()
+		if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
+			local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf)
+			tc:SetMaterial(mat)
+			if mat:IsExists(Card.IsFacedown,1,nil) then
+				local cg=mat:Filter(Card.IsFacedown,nil)
+				Duel.ConfirmCards(1-tp,cg)
+			end
+			Duel.SendtoDeck(mat,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
+			Duel.BreakEffect()
+			Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+		else
+			local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
+			local fop=ce:GetOperation()
+			fop(ce,e,tp,tc,mat2)
+		end
+		tc:CompleteProcedure()
+	end
+end
+
+
+
+
+
+
+
+

expansions/script/c75000801.lua

+--纹章呼唤 烈火之剑
+function c75000801.initial_effect(c)
+	c:SetUniqueOnField(1,0,75000801)
+	--Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)
+	--SpecialSummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75000801,2))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
+	e1:SetTarget(c75000801.sptg)
+	e1:SetOperation(c75000801.spop)
+	c:RegisterEffect(e1)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75000801,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
+	e2:SetTarget(c75000801.target)
+	e2:SetOperation(c75000801.operation)
+	c:RegisterEffect(e2) 
+	 --phase end
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(75000801,3))
+	e3:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c75000801.drcon2)
+	e3:SetTarget(c75000801.drtg2)
+	e3:SetOperation(c75000801.drop2)
+	c:RegisterEffect(e3)  
+end
+function c75000801.spfilter(c,e,tp)
+	return c:IsSetCard(0x755) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c75000801.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c75000801.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c75000801.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,c75000801.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
+--
+function c75000801.filter(c)
+	return (c:IsSetCard(0x751) and c:IsType(TYPE_MONSTER) or c:IsSetCard(0x755) and c:IsType(TYPE_MONSTER)) and c:IsAbleToHand()
+end
+function c75000801.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c75000801.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c75000801.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c75000801.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+--
+function c75000801.drcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c75000801.tdfilter(c,tp)
+	return (c:IsCode(75000821) or c:IsCode(75000824)) and c:IsAbleToDeck()
+		and Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_GRAVE,0,4,c)
+end
+function c75000801.drtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return false end
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,2)
+		and Duel.IsExistingTarget(c75000801.tdfilter,tp,LOCATION_GRAVE,0,1,nil,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c75000801.tdfilter,tp,LOCATION_GRAVE,0,1,1,nil,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g2=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_GRAVE,0,4,4,g)
+	g:Merge(g2)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,5,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
+end
+function c75000801.drop2(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetTargetsRelateToChain()
+	if #g==0 or aux.PlaceCardsOnDeckBottom(tp,g)==0 then return end
+	Duel.BreakEffect()
+	Duel.Draw(tp,2,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c75000802.lua

+--草原弓姬 烈刃之琳
+function c75000802.initial_effect(c)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75000802,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e2:SetCode(EVENT_DAMAGE)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e2:SetCountLimit(1,75000802)
+	e2:SetCondition(c75000802.spcon2)
+	e2:SetTarget(c75000802.sptg2)
+	e2:SetOperation(c75000802.spop2)
+	c:RegisterEffect(e2)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75000802,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_CHANGE_POS)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,75000803)
+	e1:SetTarget(c75000802.sptg)
+	e1:SetOperation(c75000802.spop)
+	c:RegisterEffect(e1)
+end
+--
+function c75000802.spcon2(e,tp,eg,ep,ev,re,r,rp)
+	return ep==tp
+end
+function c75000802.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c75000802.spop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP_ATTACK) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetDescription(aux.Stringid(75000802,3))
+		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DIRECT_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1,true)
+		local fid=c:GetFieldID()
+		c:RegisterFlagEffect(75000802,RESET_EVENT+RESETS_STANDARD,0,1,fid)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCode(EVENT_PHASE+PHASE_END)
+		e2:SetCountLimit(1)
+		e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+		e2:SetLabel(fid)
+		e2:SetLabelObject(c)
+		e2:SetCondition(c75000802.cpcon1)
+		e2:SetOperation(c75000802.cpop1)
+		Duel.RegisterEffect(e2,tp)
+	end
+	Duel.SpecialSummonComplete()
+end
+function c75000802.cpcon1(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffectLabel(75000802)~=e:GetLabel() then
+		e:Reset()
+		return false
+	else return true end
+end
+function c75000802.cpop1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.ChangePosition(c,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0)
+end
+--
+function c75000802.spfilter(c,e,tp)
+	return c:IsSetCard(0x755) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c75000802.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return e:GetHandler():IsAbleToHand() end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+end
+function c75000802.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoHand(c,nil,REASON_EFFECT)
+		if Duel.IsExistingMatchingCard(c75000802.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(75000802,2)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c75000802.spfilter),tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp)
+			if #g>0 then 
+				Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+			end
+		end
+	end
+end

expansions/script/c75000804.lua

+--草原之风 焰刃之琳
+function c75000804.initial_effect(c)
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75000804,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,75000804)
+	e1:SetTarget(c75000804.sctg)
+	e1:SetOperation(c75000804.scop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2) 
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(75000804,1))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCountLimit(1,75000805)
+	e3:SetTarget(c75000804.sptg)
+	e3:SetOperation(c75000804.spop)
+	c:RegisterEffect(e3)   
+end
+function c75000804.scfilter1(c,e,tp,mc)
+	local mg=Group.FromCards(c,mc)
+	return c:IsSetCard(0x755) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.IsExistingMatchingCard(c75000804.scfilter2,tp,LOCATION_EXTRA,0,1,nil,mg)
+end
+function c75000804.scfilter2(c,mg)
+	return c:IsSynchroSummonable(nil,mg) and c:IsSetCard(0x3755)
+end
+function c75000804.sctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local c=e:GetHandler()
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c75000804.scfilter1(chkc,e,tp,c) end
+	if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c75000804.scfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp,c) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c75000804.scfilter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,c)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,tp,LOCATION_EXTRA)
+end
+function c75000804.scop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if not tc:IsRelateToEffect(e) or not Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then return end
+	local e1=Effect.CreateEffect(c)
+	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)
+	e2:SetValue(RESET_TURN_SET)
+	tc:RegisterEffect(e2)
+	Duel.SpecialSummonComplete()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.AdjustAll()
+	local mg=Group.FromCards(c,tc)
+	if mg:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<2 then return end
+	local g=Duel.GetMatchingGroup(c75000804.scfilter2,tp,LOCATION_EXTRA,0,nil,mg)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg)
+	end
+end
+--
+function c75000804.spfilter(c,e,tp)
+	return c:IsSetCard(0x755) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c75000804.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return e:GetHandler():IsAbleToHand() end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+end
+function c75000804.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SendtoHand(c,nil,REASON_EFFECT)
+		if Duel.IsExistingMatchingCard(c75000804.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(75000804,2)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c75000804.spfilter),tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp)
+			if #g>0 then 
+				Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+			end
+		end
+	end
+end
\ No newline at end of file

expansions/script/c75000806.lua

+--炽热炎舞 焰刃之琳
+function c75000806.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75000806,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e1:SetCode(EVENT_DAMAGE)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
+	e1:SetCountLimit(1,75000806)
+	e1:SetCondition(c75000806.spcon2)
+	e1:SetTarget(c75000806.sptg2)
+	e1:SetOperation(c75000806.spop2)
+	c:RegisterEffect(e1)
+	--position
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75000806,1))
+	e2:SetCategory(CATEGORY_POSITION+CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,75000807)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e2:SetTarget(c75000806.postg)
+	e2:SetOperation(c75000806.posop)
+	c:RegisterEffect(e2)	
+end
+--
+function c75000806.spcon2(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp
+end
+function c75000806.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c75000806.spop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP_ATTACK) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetDescription(aux.Stringid(75000806,3))
+		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DIRECT_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1,true)
+	end
+	Duel.SpecialSummonComplete()
+end
+--
+function c75000806.posfilter(c)
+	return c:IsAttackPos() and c:IsCanChangePosition() and c:IsSetCard(0x755)
+end
+function c75000806.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c75000806.posfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c75000806.posfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
+	local g=Duel.SelectTarget(tp,c75000806.posfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
+end
+function c75000806.thfilter(c)
+	return c:IsAbleToHand() and c:IsType(TYPE_MONSTER) and c:IsSetCard(0x755) and not c:IsAttribute(ATTRIBUTE_FIRE)
+end
+function c75000806.posop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsAttackPos() and tc:IsRelateToEffect(e) then 
+		Duel.ChangePosition(tc,POS_FACEUP_DEFENSE)
+		if Duel.IsExistingMatchingCard(c75000806.thfilter,tp,LOCATION_DECK,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(75000806,2)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+			local g=Duel.SelectMatchingCard(tp,c75000806.thfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+			if #g>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/c75000808.lua

+--海滨风潮 焰刃之琳
+function c75000808.initial_effect(c)
+	local e0=aux.AddThisCardInGraveAlreadyCheck(c)
+	--Special Summon 
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75000808,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,75000808)
+	e1:SetLabelObject(e0)
+	e1:SetCondition(c75000808.spcon)
+	e1:SetTarget(c75000808.sptg)
+	e1:SetOperation(c75000808.spop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)	
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(75000808,1))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCountLimit(1,75000809)
+	e3:SetTarget(c75000808.sctg)
+	e3:SetOperation(c75000808.scop)
+	c:RegisterEffect(e3) 
+end
+function c75000808.cfilter(c,tp)
+	return c:IsFaceup() and c:IsControler(tp)
+		and c:IsSetCard(0x3755) and not c:IsCode(75000808) 
+end
+function c75000808.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c75000808.cfilter,1,nil,tp)
+end
+function c75000808.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function c75000808.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+--
+function c75000808.scfilter1(c,e,tp,mc)
+	local mg=Group.FromCards(c,mc)
+	return c:IsSetCard(0x3755) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.IsExistingMatchingCard(c75000808.scfilter2,tp,LOCATION_EXTRA,0,1,nil,mg)
+end
+function c75000808.scfilter2(c,mg)
+	return c:IsSynchroSummonable(nil,mg) and c:IsSetCard(0x755)
+end
+function c75000808.sctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local c=e:GetHandler()
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c75000808.scfilter1(chkc,e,tp,c) end
+	if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c75000808.scfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp,c) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c75000808.scfilter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,c)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,tp,LOCATION_EXTRA)
+end
+function c75000808.scop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if not tc:IsRelateToEffect(e) or not Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then return end
+	local e1=Effect.CreateEffect(c)
+	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)
+	e2:SetValue(RESET_TURN_SET)
+	tc:RegisterEffect(e2)
+	Duel.SpecialSummonComplete()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.AdjustAll()
+	local mg=Group.FromCards(c,tc)
+	if mg:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<2 then return end
+	local g=Duel.GetMatchingGroup(c75000808.scfilter2,tp,LOCATION_EXTRA,0,nil,mg)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg)
+	end
+end
+--
+
+

expansions/script/c75000810.lua

+--
+function c75000810.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSetCard,0x3755),1)
+	c:EnableReviveLimit()  
+
+	--position
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75000810,0))
+	e2:SetCategory(CATEGORY_POSITION)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e2:SetTarget(c75000810.postg)
+	e2:SetOperation(c75000810.posop)
+	c:RegisterEffect(e2)	
+end
+
+--
+function c75000810.posfilter(c)
+	return c:IsCanChangePosition() and c:IsSetCard(0x755)
+end
+function c75000810.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c75000810.posfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c75000810.posfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
+	local g=Duel.SelectTarget(tp,c75000810.posfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
+end
+function c75000810.posop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if  tc:IsRelateToEffect(e) then 
+		Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)
+		Duel.BreakEffect()
+		if tc:IsPosition(POS_FACEUP_ATTACK) then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+			e1:SetValue(c:GetBaseAttack()*2)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e1)
+		end
+		if tc:IsPosition(POS_FACEUP_DEFENSE) then
+			local e1=Effect.CreateEffect(c)
+			e1:SetDescription(aux.Stringid(75000810,5))
+			e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+			e1:SetCode(EVENT_CHAIN_SOLVING)
+			e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
+			e1:SetOperation(c75000810.disop)
+			e1:SetTargetRange(1,1)
+			e1:SetReset(RESET_PHASE+PHASE_END)
+			Duel.RegisterEffect(e1,tp)
+		end
+	end
+end
+function c75000810.disop(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp then return end
+	if Duel.GetFlagEffect(tp,75000810)==0 and Duel.SelectYesNo(tp,aux.Stringid(75000810,3)) then
+		Duel.RegisterFlagEffect(tp,75000810,RESET_PHASE+PHASE_END,0,1)
+		Duel.NegateEffect(ev,true)
+	end
+end
\ No newline at end of file

expansions/script/c75000811.lua

+--苍天剑士 焰刃之琳
+function c75000811.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSetCard,0x755),1)
+	c:EnableReviveLimit() 
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75000811,0))
+	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,75000811)
+	e1:SetCondition(c75000811.tgcon)
+	e1:SetTarget(c75000811.tgtg)
+	e1:SetOperation(c75000811.tgop)
+	c:RegisterEffect(e1)  
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(75000811,1))
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCountLimit(1)
+	e3:SetTarget(c75000811.thtg)
+	e3:SetOperation(c75000811.thop)
+	c:RegisterEffect(e3)   
+end
+function c75000811.tgcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function c75000811.tgfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x3755) and c:IsAbleToGrave()
+end
+function c75000811.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c75000811.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c75000811.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c75000811.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		if Duel.SendtoGrave(g,REASON_EFFECT)~=0 then
+			local tc=g:GetFirst()
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetValue(tc:GetAttack())
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			c:RegisterEffect(e1)
+			local e2=e1:Clone()
+			e2:SetCode(EFFECT_UPDATE_DEFENSE)
+			e2:SetValue(tc:GetDefense())
+			c:RegisterEffect(e2)
+		end
+	end
+end
+--
+function c75000811.scfilter1(c)
+	return c:IsSetCard(0x755) and c:IsAbleToHand()
+end
+function c75000811.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local c=e:GetHandler()
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c75000811.scfilter1(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c75000811.scfilter1,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,c75000811.scfilter1,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c75000811.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end

expansions/script/c75000812.lua

+--焰刃纹章士 艾利乌德
+function c75000812.initial_effect(c)
+	--double damage
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(LOCATION_MZONE,0)
+	e3:SetTarget(c75000812.damtg)
+	e3:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
+	c:RegisterEffect(e3)  
+	--special summon
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(75000812,2))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetHintTiming(0,TIMING_BATTLE_START)
+	e4:SetCondition(c75000812.spcon)
+	e4:SetCost(c75000812.spcost)
+	e4:SetTarget(c75000812.sptg)
+	e4:SetOperation(c75000812.spop)
+	c:RegisterEffect(e4)
+end
+--
+function c75000812.damtg(e,c)
+	return c:IsSetCard(0x755) and bit.band(c:GetBattleTarget():GetOriginalRace(),RACE_DRAGON)==RACE_DRAGON
+end
+--
+function c75000812.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE
+end
+function c75000812.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsReleasable() end
+	Duel.Release(c,REASON_COST)
+end
+function c75000812.spfilter(c,e,tp,rc)
+	return c:IsSetCard(0x755)
+		and not c:IsCode(75000812)
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
+end
+function c75000812.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c75000812.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
+	local max=2
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) or Duel.GetMZoneCount(tp,c)<2 then max=1 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,max,tp,LOCATION_HAND+LOCATION_GRAVE)
+end
+function c75000812.spop(e,tp,eg,ep,ev,re,r,rp)
+	local max=2
+	if Duel.GetMZoneCount(tp)<1 then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then max=1 end
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c75000812.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,nil,e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg=g:SelectSubGroup(tp,aux.dncheck,false,1,max)
+	if sg then
+		Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+
+

expansions/script/c75000814.lua

+--首位骑士 焰刃之艾利乌德
+function c75000814.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75000814,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_POSITION)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	--e1:SetCode(EVENT_CHAINING)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,75000814)
+	--e1:SetCondition(c75000814.spcon)
+	e1:SetCost(c75000814.spcost)
+	e1:SetTarget(c75000814.sptg)
+	e1:SetOperation(c75000814.spop)
+	c:RegisterEffect(e1) 
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75000814,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_CHANGE_POS)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,75000815)
+	e2:SetTarget(c75000814.sptg1)
+	e2:SetOperation(c75000814.spop1)
+	c:RegisterEffect(e2)   
+end
+function c75000814.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return re:IsActiveType(TYPE_MONSTER) 
+end
+function c75000814.costfilter(c)
+	return c:IsSetCard(0x755) and c:IsType(TYPE_MONSTER) and not c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToGraveAsCost() and c:IsLocation(LOCATION_HAND+LOCATION_DECK)
+end
+function c75000814.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(c75000814.costfilter,tp,LOCATION_HAND+LOCATION_DECK,0,e:GetHandler())
+	if chk==0 then return g:CheckSubGroup(aux.gfcheck,2,2,Card.IsLocation,LOCATION_HAND,LOCATION_DECK) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local sg=g:SelectSubGroup(tp,aux.gfcheck,false,2,2,Card.IsLocation,LOCATION_HAND,LOCATION_DECK)
+	Duel.SendtoGrave(sg,REASON_COST)
+end
+function c75000814.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c75000814.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+		if Duel.IsExistingMatchingCard(Card.IsCanChangePosition,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(75000814,2)) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
+			local g=Duel.SelectMatchingCard(tp,Card.IsCanChangePosition,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+			local tc=g:GetFirst()
+			if tc then
+				Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)
+			end
+		end
+	end
+end
+--
+function c75000814.filter(c,e,tp)
+	return c:IsSetCard(0x755) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
+end
+function c75000814.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c75000814.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND)
+end
+function c75000814.spop1(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(c75000814.filter),tp,LOCATION_GRAVE+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/c75000816.lua

+--将骑领主 焰刃之艾利乌德
+function c75000816.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSetCard,0x755),1)
+	c:EnableReviveLimit()  
+
+	--position
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75000816,0))
+	e2:SetCategory(CATEGORY_POSITION)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e2:SetTarget(c75000816.postg)
+	e2:SetOperation(c75000816.posop)
+	c:RegisterEffect(e2)	
+end
+
+--
+function c75000816.posfilter(c)
+	return c:IsCanChangePosition() and c:IsSetCard(0x755)
+end
+function c75000816.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c75000816.posfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c75000816.posfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
+	local g=Duel.SelectTarget(tp,c75000816.posfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
+end
+function c75000816.posop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if  tc:IsRelateToEffect(e) then 
+		Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)
+		Duel.BreakEffect()
+		if tc:IsPosition(POS_FACEUP_ATTACK) then
+			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)
+			tc:RegisterEffect(e2)
+		end
+		if tc:IsPosition(POS_FACEUP_DEFENSE) then
+			local e1=Effect.CreateEffect(c)
+			e1:SetDescription(aux.Stringid(75000816,5))
+			e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+			e1:SetCode(EVENT_SPSUMMON)
+			e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
+			e1:SetOperation(c75000816.disop)
+			e1:SetTargetRange(1,1)
+			e1:SetReset(RESET_PHASE+PHASE_END)
+			Duel.RegisterEffect(e1,tp)
+		end
+	end
+end
+function c75000816.disop(e,tp,eg,ep,ev,re,r,rp)
+	if ep==tp then return end
+	if Duel.GetFlagEffect(tp,75000816)==0 and Duel.SelectYesNo(tp,aux.Stringid(75000816,3)) then
+		Duel.RegisterFlagEffect(tp,75000816,RESET_PHASE+PHASE_END,0,1)
+		Duel.NegateSummon(eg)
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c75000818.lua

+--群狼之灾 焰刃之海克托尔
+function c75000818.initial_effect(c)
+	--Destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75000818,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_CHANGE_POS)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,75000818)
+	e1:SetTarget(c75000818.destg)
+	e1:SetOperation(c75000818.desop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75000818,1))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	--e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,75000817)
+	--e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_END_PHASE)
+	e2:SetCost(c75000818.tgcost)
+	e2:SetTarget(c75000818.tgtg)
+	e2:SetOperation(c75000818.tgop)
+	c:RegisterEffect(e2)	   
+end
+function c75000818.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil) end
+	local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c75000818.desop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_ONFIELD,1,1,nil)
+	if #g>0 then
+		Duel.HintSelection(g)
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end
+--
+function c75000818.tgfilter(c)
+	return c:IsSetCard(0x755) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
+end
+function c75000818.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToHandAsCost() end
+	Duel.SendtoHand(e:GetHandler(),nil,REASON_COST)
+end
+function c75000818.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c75000818.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c75000818.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c75000818.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c75000819.lua

+--刚腕猛将 焰刃之海克托尔
+function c75000819.initial_effect(c)
+	--position
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75000819,1))
+	e2:SetCategory(CATEGORY_POSITION+CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e2:SetCountLimit(1,75000819)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e2:SetTarget(c75000819.postg)
+	e2:SetOperation(c75000819.posop)
+	c:RegisterEffect(e2)	 
+end
+--
+function c75000819.posfilter(c)
+	return c:IsCanChangePosition() and c:IsSetCard(0x755)
+end
+function c75000819.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c75000819.posfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c75000819.posfilter,tp,LOCATION_MZONE,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
+	local g=Duel.SelectTarget(tp,c75000819.posfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c75000819.posop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and c:IsRelateToEffect(e) then 
+		if Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)~=0 then
+			Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c75000820.lua

+--碎岩领主 焰刃之海克托尔
+function c75000820.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSetCard,0x755),1)
+	c:EnableReviveLimit()  
+
+	--position
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75000820,0))
+	e2:SetCategory(CATEGORY_POSITION)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,75000820)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e2:SetTarget(c75000820.postg)
+	e2:SetOperation(c75000820.posop)
+	c:RegisterEffect(e2)	
+end
+
+--
+function c75000820.posfilter(c)
+	return c:IsCanChangePosition() and c:IsSetCard(0x755)
+end
+function c75000820.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c75000820.posfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c75000820.posfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
+	local g=Duel.SelectTarget(tp,c75000820.posfilter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
+end
+function c75000820.posop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if  tc:IsRelateToEffect(e) then 
+		Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)
+		Duel.BreakEffect()
+		if tc:IsPosition(POS_FACEUP_ATTACK) and Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(75000820,1)) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+			local gg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,2,nil)
+			if #gg>0 then
+				Duel.HintSelection(gg)
+				Duel.Destroy(gg,REASON_EFFECT)
+			end
+		end
+		if tc:IsPosition(POS_FACEUP_DEFENSE) and Duel.IsExistingMatchingCard(c75000820.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(75000820,2)) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c75000820.spfilter),tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp)
+			if #g>0 then 
+				Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+			end
+		end
+	end
+end
+function c75000820.spfilter(c,e,tp)
+	return c:IsSetCard(0x755) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end

expansions/script/c75000821.lua

+--冰龙神谕
+function c75000821.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(75000821,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,75000821)
+	e1:SetTarget(c75000821.target)
+	e1:SetOperation(c75000821.activate)
+	c:RegisterEffect(e1)
+	--todeck
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75000821,1))
+	e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,75000822)
+	e2:SetTarget(c75000821.tg)
+	e2:SetOperation(c75000821.op)
+	c:RegisterEffect(e2)	
+end
+function c75000821.spfilter(c,e,tp)
+	return c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and c:IsSetCard(0x755) and c:IsLevel(4)
+end
+function c75000821.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c75000821.spfilter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c75000821.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c75000821.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c75000821.filter(c)
+	return c:IsSetCard(0x755) and c:IsType(TYPE_SYNCHRO) and c:IsFaceup()
+end
+function c75000821.synfilter(c)
+	return c:IsSynchroSummonable(nil) and c:IsSetCard(0x755)
+end 
+function c75000821.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		if Duel.IsExistingMatchingCard(c75000821.synfilter,tp,LOCATION_EXTRA,0,1,nil,nil) and Duel.IsExistingMatchingCard(c75000821.filter,tp,LOCATION_MZONE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(75000821,1)) then   
+			local sg=Duel.GetMatchingGroup(c75000821.synfilter,tp,LOCATION_EXTRA,0,nil,nil)
+			if sg:GetCount()>0 then
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+				local pg=sg:Select(tp,1,1,nil)
+				local tc=pg:GetFirst()
+				if Duel.SynchroSummon(tp,pg:GetFirst(),nil)~=0 then
+					local fid=c:GetFieldID()
+					c:RegisterFlagEffect(75000821,RESET_EVENT+RESETS_STANDARD,0,1,fid)
+					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:SetLabel(fid)
+					e1:SetLabelObject(c)
+					e1:SetCondition(c75000821.thcon1)
+					e1:SetOperation(c75000821.thop1)
+					Duel.RegisterEffect(e1,tp)
+				end
+			end
+		end
+	end
+end
+function c75000821.thcon1(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffectLabel(75000821)~=e:GetLabel() then
+		e:Reset()
+		return false
+	else return true end
+end
+function c75000821.thop1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_EFFECT)
+end
+--
+function c75000821.tdfilter(c)
+	return c:IsSetCard(0x755) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
+end
+function c75000821.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c75000821.tdfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c75000821.tdfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c75000821.tdfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+end
+function c75000821.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	local g=Group.CreateGroup()
+	g:AddCard(tc)
+	if tc:IsRelateToEffect(e) and c:IsRelateToEffect(e) then
+		g:AddCard(c)
+		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c75000824.lua

+--打开封印的龙之门
+function c75000824.initial_effect(c)
+	--Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)
+	--maintain
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c75000824.mtcon)
+	e1:SetOperation(c75000824.mtop)
+	c:RegisterEffect(e1)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(75000824,0))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,75000824+EFFECT_COUNT_CODE_CHAIN)
+	e2:SetCondition(c75000824.thcon)
+	e2:SetTarget(c75000824.thtg)
+	e2:SetOperation(c75000824.thop)
+	c:RegisterEffect(e2)
+	--remain field
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e3:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e3)	
+end
+function c75000824.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c75000824.cfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x755) and c:IsAbleToDeckAsCost()
+end
+function c75000824.mtop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.HintSelection(Group.FromCards(c))
+	local g=Duel.GetMatchingGroup(c75000824.cfilter,tp,LOCATION_MZONE,0,nil)
+	local sel=1
+	if g:GetCount()~=0 then
+		sel=Duel.SelectOption(tp,aux.Stringid(75000824,1),aux.Stringid(75000824,2))
+	else
+		sel=Duel.SelectOption(tp,aux.Stringid(75000824,2))+1
+	end
+	if sel==0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local tg=g:Select(tp,1,1,nil)
+		Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_COST)
+	else
+		Duel.Destroy(c,REASON_COST)
+	end
+end
+--
+function c75000824.cfilter(c,tp)
+	return c:IsFaceup() and c:IsSetCard(0x755) and c:IsControler(tp) and c:IsSummonLocation(LOCATION_EXTRA)
+end
+function c75000824.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c75000824.cfilter,1,nil,tp)
+end
+function c75000824.tgfilter(c,tp,eg)
+	return eg:IsContains(c) and Duel.IsExistingMatchingCard(c75000824.thfilter,tp,LOCATION_DECK,0,1,nil,c:GetAttribute())
+end
+function c75000824.thfilter(c,att)
+	return c:IsSetCard(0x755) and c:IsAbleToGrave() and c:IsAttribute(att) 
+end
+function c75000824.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c75000824.tgfilter(chkc,tp,eg) end
+	if chk==0 then return Duel.IsExistingTarget(c75000824.tgfilter,tp,LOCATION_MZONE,0,1,nil,tp,eg) end
+	if eg:GetCount()==1 then
+		Duel.SetTargetCard(eg)
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+		Duel.SelectTarget(tp,c75000824.tgfilter,tp,LOCATION_MZONE,0,1,1,nil,tp,eg)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c75000824.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local att=tc:GetAttribute()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g=Duel.SelectMatchingCard(tp,c75000824.thfilter,tp,LOCATION_DECK,0,1,1,nil,att)
+		if g:GetCount()>0 then
+			Duel.SendtoGrave(g,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,g)
+			local att=g:GetFirst():GetAttribute()
+			local e0=Effect.CreateEffect(c)
+			e0:SetType(EFFECT_TYPE_FIELD)
+			e0:SetCode(EFFECT_CANNOT_TO_GRAVE)
+			e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+			e0:SetTargetRange(1,0)
+			e0:SetTarget(c75000824.thlimit)
+			e0:SetLabel(att)
+			e0:SetReset(RESET_PHASE+PHASE_END)
+			Duel.RegisterEffect(e0,tp)
+		end
+	end
+end
+function c75000824.thlimit(e,c,tp,re)
+	return c:IsAttribute(e:GetLabel()) and re and re:GetHandler():IsCode(75000824)
+end
\ No newline at end of file

expansions/script/c77004003.lua

+--真红眼究极龙
+function c77004003.initial_effect(c)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcCodeRep(c,74677422,3,true,true)
+	--sp and dam  
+	local e1=Effect.CreateEffect(c)  
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)	  
+	e1:SetCode(EVENT_LEAVE_FIELD) 
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) 
+	e1:SetCountLimit(3,77004003) 
+	e1:SetTarget(c77004003.sdatg) 
+	e1:SetOperation(c77004003.sdaop) 
+	c:RegisterEffect(e1) 
+end 
+c77004003.material_setcode=0x3b
+function c77004003.tdfil(c) 
+	return c:IsCode(74677422) and c:IsAbleToDeck()  
+end 
+function c77004003.sdatg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetReasonPlayer()==1-tp and Duel.IsExistingMatchingCard(c77004003.tdfil,tp,LOCATION_GRAVE,0,1,nil) and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE) 
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) 
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) 
+end 
+function c77004003.sdaop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local g=Duel.GetMatchingGroup(c77004003.tdfil,tp,LOCATION_GRAVE,0,nil) 
+	if g:GetCount()>0 then 
+		local sg=g:Select(tp,1,1,nil) 
+		if Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)~=0 and c:IsRelateToEffect(e) and c:IsLocation(LOCATION_GRAVE) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then 
+			Duel.Damage(1-tp,800,REASON_EFFECT) 
+		end 
+	end 
+end 
+
+
+
+
+
+
+
+

expansions/script/c88800012.lua

@@ -13,8 +13,10 @@ function c88800012.initial_effect(c)
 	c:RegisterEffect(e1)
 	--spsummon1
 	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetRange(LOCATION_HAND)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e2:SetCountLimit(1,88800013)
 	e2:SetCost(c88800012.spcost1)
 	e2:SetTarget(c88800012.settg)
@@ -22,7 +24,7 @@ function c88800012.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 function c88800012.filter(c)
-	return c:IsFaceup() and c:IsSetCard(0xc01) and c:IsType(TYPE_MONSTER)
+	return c:IsFaceup() and c:IsSetCard(0xc01) and c:IsType(TYPE_MONSTER) and c:IsType(TYPE_FUSION)
 end
 function c88800012.condition(e,tp,eg,ep,ev,re,r,rp)
 	if not Duel.IsExistingMatchingCard(c88800012.filter,tp,LOCATION_MZONE,0,1,nil) then return false end

expansions/script/c88880044.lua

@@ -57,10 +57,10 @@ function cm.atkcon(e)
 	return Duel.GetTurnPlayer()==1-e:GetHandlerPlayer()
 end
 function cm.cfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0xc06) and c:IsType(TYPE_MONSTER) and c:IsType(TYPE_FUSION)
+	return c:IsFaceup() and c:IsSetCard(0xc06) and c:IsType(TYPE_MONSTER) and c:IsLevelAbove(8)
 end
 function cm.econ(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
+	return Duel.IsExistingMatchingCard(cm.cfilter,e:GetHandler():GetControler(),LOCATION_MZONE,0,1,nil)
 end
 function cm.tdfilter(c)
 	return c:IsSetCard(0xc06) and c:IsAbleToDeck()
@@ -84,4 +84,4 @@ function cm.drop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.BreakEffect()
 		Duel.Draw(tp,1,REASON_EFFECT)
 	end
-end
+end
\ No newline at end of file

expansions/script/c98920227.lua

+--吸血鬼吟游诗人
+function c98920227.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,c98920227.matfilter,1,1)
+	c:EnableReviveLimit()
+	--force mzone
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_MUST_USE_MZONE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_EXTRA,LOCATION_EXTRA)
+	e2:SetTarget(c98920227.target)
+	e2:SetValue(c98920227.frcval)
+	c:RegisterEffect(e2)
+	--synchro summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(98920227,3))
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_SPSUMMON_PROC)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetRange(LOCATION_EXTRA)
+	e0:SetCondition(c98920227.xyzcon)
+	e0:SetOperation(c98920227.xyzop)
+	e0:SetValue(SUMMON_TYPE_XYZ)
+	c:RegisterEffect(e0)
+	local e33=Effect.CreateEffect(c)
+	e33:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+	e33:SetRange(LOCATION_MZONE)
+	e33:SetTargetRange(LOCATION_EXTRA,0)
+	e33:SetTarget(c98920227.eftg1)
+	e33:SetLabelObject(e0)
+	c:RegisterEffect(e33)
+	--gain LP
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(98920227,2))
+	e3:SetCategory(CATEGORY_RECOVER)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetHintTiming(TIMING_DAMAGE_STEP)
+	e3:SetCountLimit(1,98920227)
+	e3:SetCondition(c98920227.atkcon)
+	e3:SetCost(c98920227.costs)
+	e3:SetTarget(c98920227.targets)
+	e3:SetOperation(c98920227.operations)
+	c:RegisterEffect(e3)
+end
+function c98920227.eftg1(e,c)
+	return c:IsType(TYPE_XYZ) and c:IsRace(RACE_ZOMBIE)
+end
+function c98920227.matfilter(c)
+	return c:IsRace(RACE_ZOMBIE) and c:IsLevelAbove(5) and not c:IsSummonType(SUMMON_TYPE_SPECIAL)
+end
+function c98920227.filter0(c)
+	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove()
+end
+function c98920227.filter1(c)
+	return c:GetFlagEffect(98920277)~=0
+end
+function c98920227.target(e,c)
+	return c:GetFlagEffect(98920227)~=0
+end
+function c98920227.cfilter(c)
+	return c:IsFaceup() and c:IsCode(98920227) and c:IsType(TYPE_LINK)
+end
+function c98920227.frcval(e,c,fp,rp,r)
+	local zone=0
+	local g=Duel.GetMatchingGroup(c98920227.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	for tc in aux.Next(g) do
+		zone=bit.bor(zone,tc:GetLinkedZone(tp))
+	end
+	return bit.band(zone,0x1f)
+end
+function c98920227.checkzone(tp)
+	local zone=0
+	local g=Duel.GetMatchingGroup(c98920227.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	for tc in aux.Next(g) do
+		zone=bit.bor(zone,tc:GetLinkedZone(tp))
+	end
+	return bit.band(zone,0x1f)
+end
+function c98920227.mfilter(c,xyzc)
+	return c:IsCanBeXyzMaterial(xyzc) and c:IsFaceup() and (c:IsLevel(xyzc:GetRank()) or (xyzc:IsCode(32302078,73082255) and c:IsLevelAbove(0) and c:GetOwner()~=xyzc:GetOwner()))
+end
+function c98920227.xyzcon(e,c,smat)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
+		and (not min or min<=2 and max>=2)
+		and Duel.IsExistingMatchingCard(c98920227.mfilter,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil,c)
+		and Duel.GetFlagEffect(tp,98920227)==0
+		and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function c98920227.xyzop(e,tp,eg,ep,ev,re,r,rp,c,smat,mg,min,max)
+	local xyzg=Group.CreateGroup()
+	if og and not min then
+		g=og
+		local tc=og:GetFirst()
+		while tc do
+			sg:Merge(tc:GetOverlayGroup())
+			tc=og:GetNext()
+		end
+	else
+		local mg=nil
+		if og then
+			mg=og:Filter(c98920227.mfilter,nil,c)
+		else
+			mg=Duel.GetMatchingGroup(c98920227.mfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c)
+		end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+		local mtg=mg:Select(tp,2,2,nil)
+		xyzg:Merge(mtg)
+	end
+	Duel.RegisterFlagEffect(c:GetControler(),98920227,RESET_PHASE+PHASE_END,0,1)
+	c:RegisterFlagEffect(98920227,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+	Duel.Hint(HINT_OPSELECTED,1-c:GetControler(),aux.Stringid(98920227,0))
+	c:SetMaterial(xyzg)
+	Duel.Overlay(c,xyzg)
+end
+function c98920227.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE
+		and aux.dscon()
+end
+function c98920227.costs(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() end
+	Duel.Release(e:GetHandler(),REASON_COST)
+end
+function c98920227.targets(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,500)
+end
+function c98920227.operations(e,tp,eg,ep,ev,re,r,rp)
+	local tp=e:GetHandlerPlayer()
+	local lp=Duel.GetLP(1-tp)
+	Duel.SetLP(1-tp,lp-500)
+	Duel.Recover(tp,500,REASON_EFFECT)
+end
\ No newline at end of file

expansions/script/c98920228.lua

+--暗黑界的恶神 查克
+function c98920228.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98920228,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e1:SetCountLimit(1,98920228)
+	e1:SetTarget(c98920228.sptg)
+	e1:SetOperation(c98920228.spop)
+	c:RegisterEffect(e1)
+	--tohand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(98920228,0))
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCondition(c98920228.descon)
+	e2:SetTarget(c98920228.destg)
+	e2:SetOperation(c98920228.desop)
+	c:RegisterEffect(e2)
+end
+function c98920228.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c98920228.disfilter,tp,LOCATION_HAND,0,1,nil)
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c98920228.spop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c98920228.disfilter,tp,LOCATION_HAND,0,1,1,nil)
+	if g:GetCount()==0 then return end
+	Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+end
+function c98920228.disfilter(c)
+	return c:IsSetCard(0x6) and c:IsType(TYPE_MONSTER) and not c:IsCode(98920228) and c:IsDiscardable()
+end
+function c98920228.descon(e,tp,eg,ep,ev,re,r,rp)
+	e:SetLabel(e:GetHandler():GetPreviousControler())
+	return e:GetHandler():IsPreviousLocation(LOCATION_HAND) and bit.band(r,0x4040)==0x4040
+end
+function c98920228.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+	if rp==1-tp and tp==e:GetLabel() then
+		e:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
+	else
+		e:SetCategory(CATEGORY_TOHAND)
+	end
+end
+function c98920228.filter2(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE) and c:IsRace(RACE_FIEND)
+end
+function c98920228.spfilter(c,e,tp)
+	return c:IsRace(RACE_FIEND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c98920228.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and rp==1-tp and tp==e:GetLabel() then
+		Duel.BreakEffect()
+		local g=Duel.GetMatchingGroup(c98920228.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil,e,tp)
+		if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(98920228,1)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local sg=g:Select(tp,1,1,nil)
+			Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c98920236.lua

+--圣刻龙-普塔龙
+function c98920236.initial_effect(c)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsRace,RACE_DRAGON),2,true)
+	--indes
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetCondition(c98920236.imcon)
+	e1:SetTarget(c98920236.indtg)
+	e1:SetValue(c98920236.indct)
+	c:RegisterEffect(e1)
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98920236,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCost(c98920236.thcost)
+	e1:SetTarget(c98920236.thtg)
+	e1:SetOperation(c98920236.thop)
+	c:RegisterEffect(e1)
+end
+function c98920236.imcon(e)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
+end
+function c98920236.indtg(e,c)
+	return c:IsRace(RACE_DRAGON)
+end
+function c98920236.indct(e,re,r,rp)
+	if bit.band(r,REASON_BATTLE)~=0 then
+		return 1
+	else return 0 end
+end
+function c98920236.thcfilter(c,tp)
+	return c:IsType(TYPE_MONSTER) and c:IsReleasable() and c:IsRace(RACE_DRAGON)
+		and Duel.IsExistingMatchingCard(c98920236.thfilter,tp,0,LOCATION_ONFIELD,1,c)
+end
+function c98920236.thfilter(c)
+	return c:IsFaceup() and c:IsAbleToHand()
+end
+function c98920236.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroupEx(tp,c98920236.thcfilter,1,nil,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local g=Duel.SelectReleaseGroupEx(tp,c98920236.thcfilter,1,1,nil,tp)
+	Duel.Release(g,REASON_COST)
+end
+function c98920236.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_ONFIELD)
+end
+function c98920236.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectMatchingCard(tp,c98920236.thfilter,tp,0,LOCATION_ONFIELD,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c98920281.lua

+--同调的未来
+function c98920281.initial_effect(c)
+	  --Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,98920281)
+	e1:SetTarget(c98920281.target)
+	e1:SetOperation(c98920281.activate)
+	c:RegisterEffect(e1)
+	--token
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(98920281,0))
+	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e5:SetType(EFFECT_TYPE_IGNITION)
+	e5:SetRange(LOCATION_GRAVE)
+	e5:SetCountLimit(1,98920281)
+	e5:SetCondition(aux.exccon)
+	e5:SetCost(c98920281.cost1)
+	e5:SetTarget(c98920281.sptg)
+	e5:SetOperation(c98920281.spop)
+	c:RegisterEffect(e5)
+	--
+	Duel.AddCustomActivityCounter(98920281,ACTIVITY_SPSUMMON,c98920281.counterfilter)
+end
+function c98920281.counterfilter(c)
+	return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
+end
+function c98920281.filter(c,e,tp)
+	return c:IsType(TYPE_SYNCHRO) and not c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
+end
+function c98920281.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(98920281,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_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c98920281.splimit)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	Duel.RegisterEffect(e2,tp)
+end
+function c98920281.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(98920281,tp,ACTIVITY_SPSUMMON)==0
+		and aux.bfgcost(e,tp,eg,ep,ev,re,r,rp,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(c98920281.splimit)
+	Duel.RegisterEffect(e1,tp)
+	aux.bfgcost(e,tp,eg,ep,ev,re,r,rp,1)
+end
+function c98920281.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
+end
+function c98920281.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c98920281.filter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c98920281.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c98920281.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c98920281.activate(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) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_ADD_TYPE)
+		e1:SetValue(TYPE_TUNER)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+		local c=e:GetHandler()
+		local e3=Effect.CreateEffect(c)
+		e3:SetDescription(aux.Stringid(98920281,1))
+		e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+		e3:SetType(EFFECT_TYPE_QUICK_O)
+		e3:SetCode(EVENT_FREE_CHAIN)
+		e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+		e3:SetRange(LOCATION_MZONE)
+		e3:SetCondition(c98920281.sypcon)
+		e3:SetTarget(c98920281.syptg)
+		e3:SetOperation(c98920281.sypop)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e3,true)
+		if not tc: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+RESETS_STANDARD)
+			 tc:RegisterEffect(e2,true)
+		end
+		tc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(98920281,0))
+	end
+end
+function c98920281.spfilter(c,e,tp)
+	return c:IsType(TYPE_SYNCHRO) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c98920281.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c98920281.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c98920281.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,c98920281.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c98920281.sypcon(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
+end
+function c98920281.syptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING)
+		and Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,e:GetHandler()) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c98920281.sypop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsControler(1-tp) or not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,c)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SynchroSummon(tp,sg:GetFirst(),c)
+	end
+end
\ No newline at end of file

expansions/script/c98920295.lua

+--超重武者装留-鬼臂
+function c98920295.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--equip
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98920295,1))
+	e1:SetCategory(CATEGORY_EQUIP)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(c98920295.eqtg)
+	e1:SetOperation(c98920295.eqop)
+	c:RegisterEffect(e1)
+	--indes
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_EQUIP)
+	e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e3:SetValue(aux.tgoval)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e4:SetValue(aux.indoval)
+	c:RegisterEffect(e4)
+	--
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_EQUIP)
+	e5:SetCode(EFFECT_DEFENSE_ATTACK)
+	e5:SetValue(1)
+	c:RegisterEffect(e5)
+	--copy self trap
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetHintTiming(TIMINGS_CHECK_MONSTER+TIMING_CHAIN_END+TIMING_END_PHASE)
+	e2:SetCondition(c98920295.condition)
+	e2:SetCost(c98920295.cost2)
+	e2:SetTarget(c98920295.target)
+	e2:SetOperation(c98920295.operation)
+	c:RegisterEffect(e2)
+end
+function c98920295.filter(c)
+	return c:IsFaceup() and c:IsSetCard(0x9a) and c:IsType(TYPE_MONSTER)
+end
+function c98920295.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c98920295.filter(chkc) and chkc~=e:GetHandler() end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingTarget(c98920295.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	local g=Duel.SelectTarget(tp,c98920295.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
+end
+function c98920295.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	if not tc:IsRelateToEffect(e) or tc:IsFacedown() then
+		Duel.SendtoGrave(c,REASON_EFFECT)
+		return
+	end
+	if not Duel.Equip(tp,c,tc,false) then return end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_EQUIP)
+	e1:SetCode(EFFECT_UPDATE_DEFENSE)
+	e1:SetValue(2300)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_EQUIP_LIMIT)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetValue(c98920295.eqlimit)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+	e2:SetLabelObject(tc)
+	c:RegisterEffect(e2)
+end
+function c98920295.eqlimit(e,c)
+	return c==e:GetLabelObject()
+end
+function c98920295.ddfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function c98920295.filter(c)
+	return not c:IsCode(6351147,79766336,22628574) and c:CheckActivateEffect(false,true,false)~=nil
+end
+function c2602411.condition(e)
+	return e:GetHandler():GetEquipTarget() and not Duel.IsExistingMatchingCard(c98920295.ddfilter,tp,LOCATION_GRAVE,0,1,nil)
+end
+function c98920295.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+function c98920295.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then
+		local te=e:GetLabelObject()
+		local tg=te:GetTarget()
+		return tg and tg(e,tp,eg,ep,ev,re,r,rp,0,chkc)
+	end
+	local loc1,loc2=LOCATION_GRAVE,0
+	if e:GetType()&EFFECT_TYPE_QUICK_O>0 then loc1,loc2=0,LOCATION_GRAVE end
+	if chk==0 then return Duel.IsExistingTarget(c98920295.filter,tp,loc1,loc2,1,nil) end
+	e:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local g=Duel.SelectTarget(tp,c98920295.filter,tp,loc1,loc2,1,1,nil)
+	local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true)
+	Duel.ClearTargetCard()
+	g:GetFirst():CreateEffectRelation(e)
+	local tg=te:GetTarget()
+	e:SetProperty(te:GetProperty())
+	if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end
+	te:SetLabelObject(e:GetLabelObject())
+	e:SetLabelObject(te)
+	Duel.ClearOperationInfo(0)
+end
+function c98920295.operation(e,tp,eg,ep,ev,re,r,rp)
+	local te=e:GetLabelObject()
+	if not te then return end
+	local tc=te:GetHandler()
+	if not (tc:IsRelateToEffect(e) and tc:GetType()==TYPE_TRAP) then return end
+	e:SetLabelObject(te:GetLabelObject())
+	local op=te:GetOperation()
+	if op then op(e,tp,eg,ep,ev,re,r,rp) end
+end
\ No newline at end of file

expansions/script/c98920410.lua

+--极冰兽 冰霜鲸
+function c98920410.initial_effect(c)
+	   --spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(98920410,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,98920410)
+	e1:SetCondition(c98920410.condition)
+	e1:SetTarget(c98920410.sptg)
+	e1:SetOperation(c98920410.spop)
+	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(c98920410.reptg)
+	e2:SetValue(c98920410.repval)
+	c:RegisterEffect(e2)
+end
+function c98920410.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
+end
+function c98920410.filter(c,e,tp)
+	return c:IsLevelBelow(3) and c:IsType(TYPE_TUNER) and c:IsAttribute(ATTRIBUTE_WATER) and c:IsRace(RACE_AQUA) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c98920410.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and Duel.IsExistingMatchingCard(c98920410.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK)
+end
+function c98920410.spop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c98920410.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		g:AddCard(e:GetHandler())
+		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:SetTargetRange(1,0)
+	e1:SetTarget(c98920410.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c98920410.splimit(e,c)
+	return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
+end
+function c98920410.repfilter(c,tp)
+	return c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) and c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_WATER)
+		and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
+end
+function c98920410.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(c98920410.repfilter,1,nil,tp) end
+	if Duel.SelectEffectYesNo(tp,e:GetHandler(),96) then
+		Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+		return true
+	else return false end
+end
+function c98920410.repval(e,c)
+	return c98920410.repfilter(c,e:GetHandlerPlayer())
+end
\ No newline at end of file

expansions/strings.conf

@@ -1069,16 +1069,18 @@
 !setname  0x9d1 真神兽
 !setname  0x9d2 武装战姬
 
-#神威子/tt 750 0xe70~0xe7f 0x750~0x75f
+#神威子 750 0xe70~0xe7f
+!setname 0x755 焰刃
+!setname 0x3755 焰刃之琳
 !setname 0xe75 火焰纹章
+!setname 0x758 宇宙之光
+!setname 0x759 赛尔计划
 !setname 0x750 选择
 !setname 0x751 纹章士
 !setname 0x752 觉醒
 !setname 0x753 苍炎之轨迹
 !setname 0x754 晓之女神
 !setname 0x75f 纹章呼唤
-!setname 0x758 宇宙之光
-!setname 0x759 赛尔计划
 
 #Tierra 117