1.999zyμ更新

expansions/script/nef/TheElementTheory.lua

@@ -121,7 +121,7 @@ if not TET.ELCounter then
 				if code == Electro then
 					Duel.Hint(HINT_CARD,0,50704)
 					count = count-num
-					if eh < Mystery then
+					if eh < 1 then
 						local gh=Duel.GetFieldGroup(tp,LOCATION_HAND,0):RandomSelect(tp,1)
 						local gd=Duel.GetFieldGroup(tp,LOCATION_DECK,0):RandomSelect(tp,1)
 						gd:Merge(gh)
@@ -136,7 +136,7 @@ if not TET.ELCounter then
 					Duel.Hint(HINT_CARD,0,50705)
 					count = count-num
 					local cc=te:GetHandler()
-					local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
+					local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD,0,nil)
 					local gm=Mystery
 					while gm>0 and g:GetCount()>0 do
 						local tc=g:RandomSelect(tp,1):GetFirst()
@@ -189,7 +189,7 @@ if not TET.ELCounter then
 				if code == Hydro then
 					Duel.Hint(HINT_CARD,0,50704)
 					count = count-num
-					if eh < Mystery then
+					if eh < 1 then
 						local gh=Duel.GetFieldGroup(tp,LOCATION_HAND,0):RandomSelect(tp,1)
 						local gd=Duel.GetFieldGroup(tp,LOCATION_DECK,0):RandomSelect(tp,1)
 						gd:Merge(gh)

lflist.conf

@@ -60,6 +60,10 @@
 74561011 2 --暴风文
 74561017 1 --盲目的贤者✿格洛丽亚
 74562021 0 --月之天使✿萨丽爱尔
+74562022 0 --复仇的恶灵✿魅魔
+74561015 0 --本気✿灵梦
+--L卡
+74563028 0 --虹之花✿濑笈叶
 --金卡
 86379706 0 --精神✿操作
 86379754 1 --结界『光与暗的网目』

script/c1100008.lua

+--春之宣告
+require("expansions/script/nef/nef")
+--
+function c1100008.initial_effect(c)
+--
+	aux.AddCodeList(c,1192020)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(1100008,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c1100008.tg1)
+	e1:SetOperation(c1100008.op1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(1100008,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_PREDRAW)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCondition(c1100008.con2)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c1100008.tg2)
+	e2:SetOperation(c1100008.op2)
+	c:RegisterEffect(e2)
+--
+end
+--
+function c1100008.exfilter1(c,tp,rc,mg,opchk)
+	return Duel.GetLocationCountFromEx(tp,tp,rc,c)>0
+		and (opchk or Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,c,nil,mg))
+end
+function c1100008.spfilter1(c,e,tp,rc,chkrel,chknotrel,tgchk,opchk)
+	if not (c:IsCode(20013) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)) then return false end
+	local mg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	if mg:IsExists(Card.GetHandSynchro,1,nil) then
+		local mg2=Duel.GetMatchingGroup(nil,tp,LOCATION_HAND,0,nil)
+		if mg2:GetCount()>0 then mg:Merge(mg2) end
+	end
+	mg:AddCard(c)
+	if tgchk then
+		return c1100008.exfilter1(c,tp,nil,mg,opchk)
+	else
+		return (chkrel and c1100008.exfilter1(c,tp,rc,mg-rc)) or (chknotrel and c1100008.exfilter1(c,tp,nil,mg))
+	end
+end
+function c1100008.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local c=e:GetHandler()
+		return Duel.IsPlayerCanSpecialSummonCount(tp,2)
+			and Duel.IsExistingMatchingCard(c1100008.spfilter1,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,nil,nil,true)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c1100008.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c1100008.spfilter1,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,c,nil,nil,true,true)
+	local tc=g:GetFirst()
+	if tc and Duel.SpecialSummon(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)>0 then
+		Duel.RaiseEvent(c,EVENT_ADJUST,nil,0,PLAYER_NONE,PLAYER_NONE,0)
+		local tg=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,nil)
+		if tg:GetCount()>0 then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local sg=tg:Select(tp,1,1,nil)
+			Duel.SynchroSummon(tp,sg:GetFirst(),nil)
+		end
+	end
+end
+--
+function c1100008.con2(e,tp,eg,ep,ev,re,r,rp)
+	return tp==Duel.GetTurnPlayer() and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 and Duel.GetDrawCount(tp)>0
+end
+function c1100008.tfilter2(c)
+	return c:IsCode(20200) and c:IsAbleToHand()
+end
+function c1100008.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.IsExistingMatchingCard(c1100008.tfilter2,tp,LOCATION_DECK,0,1,nil) end
+	local dt=Duel.GetDrawCount(tp)
+	if dt~=0 then
+		aux.DrawReplaceCount=0
+		aux.DrawReplaceMax=dt
+		local e2_1=Effect.CreateEffect(e:GetHandler())
+		e2_1:SetType(EFFECT_TYPE_FIELD)
+		e2_1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e2_1:SetCode(EFFECT_DRAW_COUNT)
+		e2_1:SetTargetRange(1,0)
+		e2_1:SetReset(RESET_PHASE+PHASE_DRAW)
+		e2_1:SetValue(0)
+		Duel.RegisterEffect(e2_1,tp)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c1100008.op2(e,tp,eg,ep,ev,re,r,rp)
+	aux.DrawReplaceCount=aux.DrawReplaceCount+1
+	if aux.DrawReplaceCount<=aux.DrawReplaceMax then
+		if Nef.PLCounter.Get(tp,999104)~=0 then
+			local a=Nef.PLCounter.Get(tp,999104)
+			Nef.PLCounter.Add(tp,999104,1-a)
+			Nef.PLCounter.Add(1-tp,999104,1-a)
+		end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local tg=Duel.SelectMatchingCard(tp,c1100008.tfilter2,tp,LOCATION_DECK,0,1,1,nil)
+		if tg:GetCount()<1 then return end
+		Duel.SendtoHand(tg,nil,REASON_EFFECT)
+	end
+end
\ No newline at end of file

script/c33300302.lua

+--虚网后台破坏者
+local m=33300302
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
+	e1:SetCountLimit(1,m)
+	e1:SetCondition(cm.condition)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_HANDES)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCondition(cm.condition2)
+	e2:SetCost(cm.cost)
+	e2:SetTarget(cm.thtg)
+	e2:SetOperation(cm.thop)
+	c:RegisterEffect(e2)
+end
+function cm.IsLinkZoneOver(count)
+	local flag=0
+	for i=0,4 do
+		if (Duel.GetLinkedZone(0)&((2^i)<<0))~=0 then
+			flag=flag+1
+		end
+		if (Duel.GetLinkedZone(1)&((2^i)<<0))~=0 then
+			flag=flag+1
+		end
+	end
+	return flag>=count
+end
+
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return cm.IsLinkZoneOver(3)
+end
+function cm.check(c)
+	return c:IsFacedown() and c:IsAbleToGrave()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.check,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and e:GetHandler():IsDestructable(e) end
+	local g=Duel.GetMatchingGroup(cm.check,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
+end
+function cm.operation(e,tp)
+	local sg=Duel.GetMatchingGroup(cm.check,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	if Duel.SendtoGrave(sg,REASON_EFFECT)~=0 then
+		if e:GetHandler():IsRelateToEffect(e) then
+			Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+		end
+	end
+end
+function cm.condition2(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.thcheck(c)
+	return c:IsSetCard(0x562) and c:IsAbleToHand() and c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFlagEffect(tp,m)==0 end
+	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thcheck,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local sg=Duel.SelectMatchingCard(tp,cm.thcheck,tp,LOCATION_DECK,0,1,1,nil)
+	if sg:GetCount()>0 then
+		if Duel.SendtoHand(sg,tp,REASON_EFFECT)>0 then
+			Duel.ConfirmCards(1-tp,sg)
+			if Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil,REASON_EFFECT) and Duel.IsExistingMatchingCard(cm.tgcheck,tp,LOCATION_REMOVED,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+				local tg=Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT,nil)
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+				local rg=Duel.SelectMatchingCard(tp,cm.tgcheck,tp,LOCATION_REMOVED,0,1,1,nil)
+				Duel.SendtoGrave(rg,REASON_EFFECT+REASON_RETURN)
+			end
+		end
+	end
+end
+function cm.tgcheck(c)
+	return c:IsSetCard(0x562) and c:IsFaceup() and c:IsType(TYPE_MONSTER)
+end
\ No newline at end of file

script/c33300304.lua

+--虚网字节妖精
+local m=33300304
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_TOGRAVE+CATEGORY_TOHAND)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	 --special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m)
+	e2:SetCost(cm.cost2)
+	e2:SetTarget(cm.target2)
+	e2:SetOperation(cm.operation2)
+	c:RegisterEffect(e2)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return not e:GetHandler():IsPublic() and Duel.GetFlagEffect(tp,m)==0 end
+	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+end
+function cm.rmcheck(c)
+	return c:IsSetCard(0x562) and c:IsAbleToGrave() and c:IsType(TYPE_MONSTER)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.rmcheck,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,tp,0)
+end
+function cm.adcheck(c)
+	return c:IsSetCard(0x562) and c:IsAbleToHand() and not c:IsCode(m)
+end
+function cm.operation(e,tp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local rg=Duel.SelectMatchingCard(tp,cm.rmcheck,tp,LOCATION_DECK,0,1,1,nil)
+	if rg:GetCount()>0 and Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(cm.adcheck,tp,LOCATION_GRAVE,0,1,nil) and c:IsAbleToGrave() and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
+		Duel.BreakEffect()
+		Duel.SendtoGrave(c,REASON_EFFECT)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local tg=Duel.SelectMatchingCard(tp,cm.adcheck,tp,LOCATION_GRAVE,0,1,1,nil)
+		Duel.SendtoHand(tg,tp,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tg)
+	end
+end
+function cm.IsLinkZoneOver(count)
+	local flag=0
+	for i=0,4 do
+		if (Duel.GetLinkedZone(0)&((2^i)<<0))~=0 then
+			flag=flag+1
+		end
+		if (Duel.GetLinkedZone(1)&((2^i)<<0))~=0 then
+			flag=flag+1
+		end
+	end
+	return flag>=count
+end
+
+function cm.hspcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	return ft>0 and cm.IsLinkZoneOver(3)
+end
+function cm.costcheck(c,tp)
+	return c:IsAbleToGraveAsCost() and c:IsSetCard(0x562) and Duel.GetLocationCountFromEx(tp,tp,c)>0
+end
+function cm.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.costcheck,tp,LOCATION_MZONE,0,1,nil,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local sg=Duel.SelectMatchingCard(tp,cm.costcheck,tp,LOCATION_MZONE,0,1,1,nil,tp)
+	Duel.SendtoGrave(sg,REASON_COST)
+end
+function cm.rmcheck(c)
+	return c:IsSetCard(0x562) and c:IsAbleToGrave() and c:IsType(TYPE_MONSTER)
+end
+function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,tp,LOCATION_GRAVE)
+end
+function cm.operation2(e,tp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsRelateToEffect(e) then
+		if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 and cm.IsLinkZoneOver(3) and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)	
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetValue(1)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			c:RegisterEffect(e1)
+		end
+	end
+end
\ No newline at end of file

script/c33300305.lua

+--多线程虚网操作员
+local m=33300305
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	c:EnableReviveLimit()
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e7=Effect.CreateEffect(c)
+	e7:SetDescription(aux.Stringid(m,1))
+	e7:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e7:SetType(EFFECT_TYPE_QUICK_O)
+	e7:SetCode(EVENT_FREE_CHAIN)
+	e7:SetRange(LOCATION_GRAVE)
+	e7:SetCountLimit(1,33300300+EFFECT_COUNT_CODE_OATH)
+	e7:SetCost(aux.bfgcost)
+	e7:SetTarget(cm.sptg)
+	e7:SetOperation(cm.spop)
+	c:RegisterEffect(e7)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(1166)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetRange(LOCATION_EXTRA)
+	e1:SetCondition(cm.lcon)
+	e1:SetTarget(cm.ltg)
+	e1:SetOperation(cm.LinkOperation(nil,2,2,cm.gf))
+	e1:SetValue(SUMMON_TYPE_LINK)
+	c:RegisterEffect(e1)
+end
+function cm.LinkOperation(f,minc,maxc,gf)
+	return  function(e,tp,eg,ep,ev,re,r,rp,c,og,lmat,min,max)
+				local g=e:GetLabelObject()
+				if g:IsExists(cm.extracheck,1,nil) then
+					local e3=Effect.CreateEffect(c)
+					e3:SetType(EFFECT_TYPE_SINGLE)
+					e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+					e3:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+					e3:SetValue(1)
+					e3:SetReset(RESET_EVENT+0x7e0000)
+					c:RegisterEffect(e3,true)
+				end
+				c:SetMaterial(g)
+				Auxiliary.LExtraMaterialCount(g,c,tp)
+				Duel.SendtoGrave(g,REASON_MATERIAL+REASON_LINK)
+				g:DeleteGroup()
+			end
+end
+function cm.lcheck(c)
+	return c:IsSetCard(0x562) or c:GetOriginalCode()==33300308
+end
+function cm.extracheck(c)
+	return c:IsFaceup() and c:GetOriginalCode()==33300308
+end
+function cm.gf(g)
+	return g:IsExists(cm.lcheck,1,nil)
+end
+function cm.lcon(...)
+	local f=aux.GetLinkMaterials
+	aux.GetLinkMaterials=cm.GetLinkMaterials
+	local res=Auxiliary.LinkCondition(nil,2,2,cm.gf)(...)
+	aux.GetLinkMaterials=f
+	return res
+end
+function cm.ltg(...)
+	local f=aux.GetLinkMaterials
+	aux.GetLinkMaterials=cm.GetLinkMaterials
+	local res=Auxiliary.LinkTarget(nil,2,2,cm.gf)(...)
+	aux.GetLinkMaterials=f
+	return res
+end
+function cm.GetLinkMaterials(tp,f,lc)
+	local mg=Duel.GetMatchingGroup(Auxiliary.LConditionFilter,tp,LOCATION_MZONE,0,nil,f,lc)
+	local mg2=Duel.GetMatchingGroup(Auxiliary.LExtraFilter,tp,LOCATION_HAND+LOCATION_SZONE,LOCATION_ONFIELD,nil,f,lc,tp)
+	local mg3=Duel.GetMatchingGroup(cm.extracheck,tp,LOCATION_SZONE,0,nil)
+	if mg2:GetCount()>0 then mg:Merge(mg2) end
+	if mg3:GetCount()>0 then mg:Merge(mg3) end
+	return mg
+end
+function cm.thfilter(c)
+	return c:IsSetCard(0x562) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) and e:GetHandler():IsAbleToGrave() end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		if Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 then
+			Duel.ConfirmCards(1-tp,g)
+			Duel.BreakEffect()
+			if e:GetHandler():IsRelateToEffect(e) then
+				Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT)
+			end
+		end
+	end
+end
+function cm.IsLinkZoneOver(count)
+	local flag=0
+	for i=0,4 do
+		if (Duel.GetLinkedZone(0)&((2^i)<<0))~=0 then
+			flag=flag+1
+		end
+		if (Duel.GetLinkedZone(1)&((2^i)<<0))~=0 then
+			flag=flag+1
+		end
+	end
+	return flag>=count
+end
+
+function cm.tgcheck(c)
+	return c:IsLocation(LOCATION_SZONE) or (c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsFaceup())
+end
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(0x562) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		local tc=g:GetFirst()
+		if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetValue(1)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e1,true)
+			Duel.SpecialSummonComplete()
+			if cm.IsLinkZoneOver(3)and Duel.IsExistingMatchingCard(cm.tgcheck,tp,0,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+				local sg=Duel.SelectMatchingCard(tp,cm.tgcheck,tp,0,LOCATION_ONFIELD,1,1,nil)
+				Duel.SendtoGrave(sg,REASON_EFFECT)
+			end
+		end
+	end
+end
\ No newline at end of file

script/c33300306.lua

+--链路虚网控制者
+local m=33300306
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	 --link summon
+	c:EnableReviveLimit()
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_CONTROL+CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(cm.cttg)
+	e1:SetOperation(cm.ctop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e7=Effect.CreateEffect(c)
+	e7:SetDescription(aux.Stringid(m,1))
+	e7:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_ATKCHANGE+CATEGORY_DISABLE)
+	e7:SetType(EFFECT_TYPE_QUICK_O)
+	e7:SetCode(EVENT_FREE_CHAIN)
+	e7:SetRange(LOCATION_GRAVE)
+	e7:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
+	e7:SetCost(aux.bfgcost)
+	e7:SetTarget(cm.sptg)
+	e7:SetOperation(cm.spop)
+	c:RegisterEffect(e7)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(1166)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetRange(LOCATION_EXTRA)
+	e1:SetCondition(cm.lcon)
+	e1:SetTarget(cm.ltg)
+	e1:SetOperation(cm.LinkOperation(nil,2,3,cm.gf))
+	e1:SetValue(SUMMON_TYPE_LINK)
+	c:RegisterEffect(e1)
+end
+function cm.LinkOperation(f,minc,maxc,gf)
+	return  function(e,tp,eg,ep,ev,re,r,rp,c,og,lmat,min,max)
+				local g=e:GetLabelObject()
+				if g:IsExists(cm.extracheck,1,nil) then
+					local e3=Effect.CreateEffect(c)
+					e3:SetType(EFFECT_TYPE_SINGLE)
+					e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+					e3:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+					e3:SetValue(1)
+					e3:SetReset(RESET_EVENT+0x7e0000)
+					c:RegisterEffect(e3,true)
+				end
+				c:SetMaterial(g)
+				Auxiliary.LExtraMaterialCount(g,c,tp)
+				Duel.SendtoGrave(g,REASON_MATERIAL+REASON_LINK)
+				g:DeleteGroup()
+			end
+end
+function cm.lcheck(c)
+	return c:IsSetCard(0x562) or c:GetOriginalCode()==33300308
+end
+function cm.extracheck(c)
+	return c:IsFaceup() and c:GetOriginalCode()==33300308
+end
+function cm.exc(c)
+	return not c:IsType(TYPE_EFFECT) and not c:GetOriginalCode()==33300308 
+end
+function cm.gf(g)
+	return g:IsExists(cm.lcheck,1,nil) and not g:IsExists(cm.exc,1,nil)
+end
+function cm.lcon(...)
+	local f=aux.GetLinkMaterials
+	aux.GetLinkMaterials=cm.GetLinkMaterials
+	local res=Auxiliary.LinkCondition(nil,2,3,cm.gf)(...)
+	aux.GetLinkMaterials=f
+	return res
+end
+function cm.ltg(...)
+	local f=aux.GetLinkMaterials
+	aux.GetLinkMaterials=cm.GetLinkMaterials
+	local res=Auxiliary.LinkTarget(nil,2,3,cm.gf)(...)
+	aux.GetLinkMaterials=f
+	return res
+end
+function cm.GetLinkMaterials(tp,f,lc)
+	local mg=Duel.GetMatchingGroup(Auxiliary.LConditionFilter,tp,LOCATION_MZONE,0,nil,f,lc)
+	local mg2=Duel.GetMatchingGroup(Auxiliary.LExtraFilter,tp,LOCATION_HAND+LOCATION_SZONE,LOCATION_ONFIELD,nil,f,lc,tp)
+	local mg3=Duel.GetMatchingGroup(cm.extracheck,tp,LOCATION_SZONE,0,nil)
+	if mg2:GetCount()>0 then mg:Merge(mg2) end
+	if mg3:GetCount()>0 then mg:Merge(mg3) end
+	return mg
+end
+function cm.ctcheck(c,tp)
+	return c:IsControler(1-tp)
+end
+function cm.cttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local tg=c:GetLinkedGroup()
+	if not tg:IsExists(cm.ctcheck,1,nil,tp,zone) then
+	  return false 
+	end
+	local tc=tg:Filter(cm.ctcheck,nil,tp):GetFirst()
+	if chk==0 then
+		local zone=bit.band(c:GetLinkedZone(),0x1f)
+		return tc:IsControlerCanBeChanged(false,zone) --tg:IsExists(cm.ctcheck,1,nil,tp,zone) 
+	end
+	Duel.SetTargetCard(tc)
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,tc,1,0,0)
+end
+function cm.ctop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		local zone=bit.band(c:GetLinkedZone(),0x1f)
+		if Duel.GetControl(tc,tp,0,0,zone)~=0 then
+			Duel.BreakEffect()
+			--Duel.SendtoGrave(c,REASON_EFFECT)
+		end
+	end
+end
+function cm.IsLinkZoneOver(count)
+	local flag=0
+	for i=0,4 do
+		if (Duel.GetLinkedZone(0)&((2^i)<<0))~=0 then
+			flag=flag+1
+		end
+		if (Duel.GetLinkedZone(1)&((2^i)<<0))~=0 then
+			flag=flag+1
+		end
+	end
+	return flag>=count
+end
+
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(0x562) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.filter(c)
+	return c:IsFaceup() and (c:GetAttack()>0 or aux.NegateMonsterFilter(c))
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		local tc=g:GetFirst()
+		if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetValue(1)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e1,true)
+			Duel.SpecialSummonComplete()
+			if cm.IsLinkZoneOver(3)and Duel.IsExistingMatchingCard(cm.filter,tp,0,LOCATION_MZONE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
+				local sg=Duel.SelectMatchingCard(tp,cm.filter,tp,0,LOCATION_MZONE,1,1,nil)
+				local tc1=sg:GetFirst()
+				Duel.NegateRelatedChain(tc1,RESET_TURN_SET)
+				local e1=Effect.CreateEffect(c)
+				e1:SetType(EFFECT_TYPE_SINGLE)
+				e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+				e1:SetCode(EFFECT_DISABLE)
+				e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+				tc1:RegisterEffect(e1)
+				local e2=Effect.CreateEffect(c)
+				e2:SetType(EFFECT_TYPE_SINGLE)
+				e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+				e2:SetCode(EFFECT_DISABLE_EFFECT)
+				e2:SetValue(RESET_TURN_SET)
+				e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+				tc1:RegisterEffect(e2)
+				local e3=Effect.CreateEffect(c)
+				e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+				e3:SetType(EFFECT_TYPE_SINGLE)
+				e3:SetCode(EFFECT_SET_ATTACK_FINAL)
+				e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+				e3:SetValue(0)
+				tc1:RegisterEffect(e3)
+			end
+		end
+	end
+end
\ No newline at end of file

script/c66916001.lua

@@ -8,24 +8,11 @@ function cm.initial_effect(c)
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetCountLimit(1,m)
-    e2:SetCost(cm.descost)
 	e2:SetTarget(cm.sptg)
 	e2:SetOperation(cm.spop)
 	c:RegisterEffect(e2)  
-    --special summon
-    local e1=Effect.CreateEffect(c)
-    e1:SetDescription(aux.Stringid(m,1))
-    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-    e1:SetType(EFFECT_TYPE_IGNITION)
-    e1:SetCode(EVENT_FREE_CHAIN)
-    e1:SetRange(LOCATION_GRAVE) 
-    e1:SetCountLimit(1,m+1)
-    e1:SetCondition(cm.con)
-    e1:SetCost(cm.cost)
-    e1:SetTarget(cm.targets)
-    e1:SetOperation(cm.operations)
-    c:RegisterEffect(e1)    
 	--synchro level
 	local e22=Effect.CreateEffect(c)
 	e22:SetType(EFFECT_TYPE_SINGLE)
@@ -39,21 +26,7 @@ end
 function cm.counterfilter(c)
 	return c:IsSetCard(0x999)
 end
-function cm.con(e,tp,eg,ep,ev,re,r,rp)   
-    return Duel.GetMatchingGroupCount(aux.TRUE,tp,LOCATION_ONFIELD,0,nil)>Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
-end
-function cm.descost(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
-    local e1=Effect.CreateEffect(e:GetHandler())
-    e1:SetType(EFFECT_TYPE_FIELD)
-    e1: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:SetLabelObject(e)
-    e1:SetTarget(cm.splimit)
-    Duel.RegisterEffect(e1,tp)
-end
+
 function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
 	return not c:IsSetCard(0x999)
 end
@@ -62,13 +35,13 @@ function cm.filter(c,e,tp)
 end
 function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-        and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end
-    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
 end
 function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.filter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.filter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
 	if g:GetCount()>0 then
 		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 	end
@@ -76,22 +49,7 @@ end
 function cm.filters(c)
 	return c:IsFaceup() and c:IsSetCard(0x999) and c:IsAbleToGraveAsCost()
 end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-    if chk==0 then return Duel.IsExistingMatchingCard(cm.filters,tp,LOCATION_ONFIELD,0,1,nil) end
-    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-    local g=Duel.SelectMatchingCard(tp,cm.filters,tp,LOCATION_ONFIELD,0,1,1,nil)
-    Duel.SendtoGrave(g,REASON_COST)
-end
-function cm.targets(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 cm.operations(e,tp,eg,ep,ev,re,r,rp)
-    local c=e:GetHandler()
-    if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
-    end
-end
+
 function cm.lvval(e,c)
 	local lv=e:GetHandler():GetLevel()
 	if c:IsSetCard(0x999) then return 4*65536+lv

script/c74562021.lua

@@ -61,7 +61,7 @@ function cCardno.ckop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	c:ResetFlagEffect(Cardno)
 	local nowg=c:GetOverlayGroup()
-	c:RegisterFlagEffect(Cardno,0,0,0,nowg:FilterCount(Card.IsSetCard,nil,0x298))
+	c:RegisterFlagEffect(Cardno,0,0,0,nowg:GetCount())
 end
 --SpecialSummon
 function cCardno.spfilter2(c,e,tp)
@@ -123,10 +123,7 @@ function cCardno.ssop(e,tp,eg,ep,ev,re,r,rp)
 end
 -- xyz
 function cCardno.xyzfilter(c,tp,xyzc)
-	return c:IsFaceup() and c:IsCanBeXyzMaterial(xyzc) and ((c:IsType(TYPE_XYZ) and c:IsRank(12)) or (c:IsType(TYPE_MONSTER) and c:IsSetCard(0x298))) and Duel.GetLocationCountFromEx(tp,tp,c,xyzc)>0
-end
-function cCardno.xyzfilter2(c)
-	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x298) and c:IsAbleToDeck()
+	return c:IsFaceup() and c:IsCanBeXyzMaterial(xyzc) and c:IsType(TYPE_MONSTER) and c:IsSetCard(0x298) and Duel.GetLocationCountFromEx(tp,tp,c,xyzc)>0
 end
 function cCardno.xyzcon(e,c)
 	if c==nil then return true end
@@ -134,13 +131,10 @@ function cCardno.xyzcon(e,c)
 	return Duel.IsExistingMatchingCard(cCardno.xyzfilter,tp,LOCATION_MZONE,0,1,nil,tp,c)
 end
 function cCardno.xyzop(e,tp,eg,ep,ev,re,r,rp,c)
-	--Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	--local dg = Duel.SelectMatchingCard(tp,cCardno.xyzfilter2,tp,LOCATION_HAND,0,1,1,nil)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
 	local mg = Duel.SelectMatchingCard(tp,cCardno.xyzfilter,tp,LOCATION_MZONE,0,1,1,nil,tp,c)
 	local tc=mg:GetFirst()
 	if not tc then return end
-	--Duel.SendtoDeck(dg,nil,2,REASON_EFFECT)
 	local mg2=tc:GetOverlayGroup()
 	if mg2:GetCount()~=0 then
 		Duel.Overlay(c,mg2)

script/c74563038.lua

+--春色小径
+require("expansions/script/nef/nef")
+function c74563038.initial_effect(c)
+	--to field
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetCategory(CATEGORY_HANDES)
+	e4:SetDescription(aux.Stringid(74563038,0))
+	e4:SetRange(LOCATION_DECK)
+	e4:SetCountLimit(1,74563038)
+	e4:SetCost(c74563038.drcost)
+	e4:SetCondition(c74563038.tfcon)
+	e4:SetOperation(c74563038.tfop)
+	c:RegisterEffect(e4)
+	--to field
+	local e41=Effect.CreateEffect(c)
+	e41:SetType(EFFECT_TYPE_IGNITION)
+	e41:SetCategory(CATEGORY_HANDES)
+	e41:SetDescription(aux.Stringid(74563038,1))
+	e41:SetCountLimit(1,74563038)
+	e41:SetRange(LOCATION_DECK)
+	e41:SetCost(c74563038.drcost1)
+	e41:SetCondition(c74563038.tfcon)
+	e41:SetOperation(c74563038.tfop)
+	c:RegisterEffect(e41)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	Nef.SeasonChange(c)  
+	--disable
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(74563038,2))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCountLimit(1)
+	e2:SetTarget(c74563038.distg)
+	e2:SetOperation(c74563038.disop)
+	c:RegisterEffect(e2)
+end
+function c74563038.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+end
+function c74563038.disop(e,tp,eg,ep,ev,re,r,rp,chk)
+	if Nef.PLCounter.Get(tp,999104)~=0 then
+		local a=Nef.PLCounter.Get(tp,999104)
+		Nef.PLCounter.Add(tp,999104,1-a)
+		Nef.PLCounter.Add(1-tp,999104,1-a)
+	end
+end
+--to field
+function c74563038.tfcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetLP(tp)>=10000 and not e:GetHandler():IsForbidden() and Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0
+end
+function c74563038.costfilter(c)
+	return c:IsSetCard(0x100) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
+end
+function c74563038.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,800)end
+	Duel.PayLPCost(tp,800)
+end
+function c74563038.drcost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c74563038.costfilter,tp,LOCATION_HAND,0,2,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,c74563038.costfilter,tp,LOCATION_HAND,0,2,2,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+end
+function c74563038.tfop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD)~=0 then
+		Duel.BreakEffect()
+		if c:IsRelateToEffect(e) then
+			Duel.MoveToField(c,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
+		end
+	end
+end
\ No newline at end of file

script/c74563042.lua

+--蛙狩『蛙以口鸣，方致蛇祸』
+function c74563042.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(c74563042.condition)
+	e1:SetCost(c74563042.cost)
+	e1:SetTarget(c74563042.target)
+	e1:SetOperation(c74563042.activate)
+	c:RegisterEffect(e1)	
+	--Activate
+	local e12=e1:Clone()
+	e12:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e12:SetCost(c74563042.cost1)
+	e12:SetCondition(c74563042.conditions)
+	c:RegisterEffect(e12)
+end
+function c74563042.conditions(e,tp,eg,ep,ev,re,r,rp)
+	local c=Duel.GetAttacker()
+	return c:IsRace(RACE_AQUA) and c:IsReleasable() and c:IsControler(tp)
+end
+function c74563042.condition(e,tp,eg,ep,ev,re,r,rp)
+	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
+	return ep==tp and loc==LOCATION_MZONE and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsRace(RACE_AQUA) and re:GetHandler():IsReleasable()
+end
+function c74563042.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return re:GetHandler():IsReleasable() end
+	Duel.Release(re:GetHandler(),REASON_COST)
+end
+function c74563042.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetAttacker():IsReleasable() end
+	Duel.Release(Duel.GetAttacker(),REASON_COST)
+end
+function c74563042.filter(c)
+	return c:IsSetCard(0x492) and c:IsAbleToHand()
+end
+function c74563042.filters(c,e,tp)
+	return c:IsRace(RACE_REPTILE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c74563042.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c74563042.filter,tp,LOCATION_DECK,0,1,nil) or Duel.IsExistingMatchingCard(c74563042.filters,tp,LOCATION_DECK,0,1,nil,e,tp) end
+end
+function c74563042.tfilter(c)
+	return c:IsCanAddCounter(0x128a,3) and c:IsFaceup()
+end
+function c74563042.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFlagEffect(tp,74563042)==0 then
+	   Duel.RegisterFlagEffect(tp,74563042,0,0,1)
+	   Duel.RegisterFlagEffect(tp,74563002,0,0,1)
+	end
+	local opt=0
+	if  Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c74563042.filter,tp,LOCATION_DECK,0,1,nil,e,tp) and   Duel.IsExistingMatchingCard(c74563042.filters,tp,LOCATION_DECK,0,1,nil,e,tp) then
+		opt=Duel.SelectOption(tp,aux.Stringid(74563042,1),aux.Stringid(74563042,0))+1
+	elseif Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c74563042.filters,tp,LOCATION_DECK,0,1,nil,e,tp) then opt=1
+	elseif Duel.IsExistingMatchingCard(c74563042.filter,tp,LOCATION_DECK,0,1,nil) then opt=2
+	end
+	if opt==1 then
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,c74563042.filters,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+		if g:GetCount()>0 then
+			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		end
+	elseif opt==2 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local g=Duel.SelectMatchingCard(tp,c74563042.filter,tp,LOCATION_DECK,0,1,1,nil)
+		if g:GetCount()>0 then
+			Duel.SendtoHand(g,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,g)
+			if Duel.IsExistingMatchingCard(c74563042.tfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) and Duel.SelectYesNo(tp,aux.Stringid(74563042,2)) then
+				Duel.BreakEffect()
+				local g=Duel.SelectMatchingCard(tp,c74563042.tfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
+				g:GetFirst():AddCounter(0x128a,3)
+				if Duel.GetFlagEffect(g:GetFirst():GetControler(),23200)==0 then
+					Duel.RegisterFlagEffect(g:GetFirst():GetControler(),23200,0,0,0)
+				end
+			end
+		end
+	end
+end
\ No newline at end of file

script/c86379544.lua

+--因幡✿十年的白兔
+function c86379544.initial_effect(c)
+	--set
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_MONSTER_SSET)
+	e1:SetValue(TYPE_SPELL+TYPE_QUICKPLAY)
+	c:RegisterEffect(e1)
+	--Activate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(86379544,0))
+	e2:SetCategory(CATEGORY_DICE+CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE)
+	e2:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetOperation(c86379544.operation)
+	c:RegisterEffect(e2)
+	--SpecialSummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(86379544,0))
+	e3:SetCategory(CATEGORY_DICE+CATEGORY_DAMAGE+CATEGORY_TODECK)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_DESTROYED)
+	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCondition(c86379544.gcon)
+	e3:SetOperation(c86379544.gop)
+	c:RegisterEffect(e3)
+end
+--
+c86379544.toss_dice=true
+function c86379544.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc==1 then
+		if not c:IsRelateToEffect(e) then return end
+		Duel.Destroy(c,REASON_EFFECT)
+	elseif dc>=6 then
+		if not c:IsRelateToEffect(e) then return end
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then 
+			Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+		end   
+	else
+		Duel.Damage(tp,300,REASON_EFFECT)
+		if not c:IsRelateToEffect(e) then return end
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+	end
+end
+--
+function c86379544.cfilter(c,tp)
+	return c:GetPreviousControler()==tp and c:IsReason(REASON_EFFECT) 
+end
+function c86379544.gcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c86379544.cfilter,1,nil,tp) and e:GetHandler():IsReason(REASON_DESTROY)
+end
+function c86379544.gop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc>=6 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,3,nil)   
+		if g:GetCount()>0 then
+			Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+		end
+	else
+		Duel.Damage(tp,300,REASON_EFFECT)
+	end
+end

script/c86379546.lua

+--因幡✿百年的白兔
+function c86379546.initial_effect(c)
+	--set
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_MONSTER_SSET)
+	e1:SetValue(TYPE_SPELL+TYPE_QUICKPLAY)
+	c:RegisterEffect(e1)
+	--Activate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(86379546,0))
+	e2:SetCategory(CATEGORY_DICE+CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE)
+	e2:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetOperation(c86379546.operation)
+	c:RegisterEffect(e2)
+	--SpecialSummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(86379546,0))
+	e3:SetCategory(CATEGORY_DICE+CATEGORY_DAMAGE+CATEGORY_POSITION)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_DESTROYED)
+	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCondition(c86379546.gcon)
+	e3:SetOperation(c86379546.gop)
+	c:RegisterEffect(e3)
+end
+--
+c86379546.toss_dice=true
+function c86379546.filter(c,e)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetDescription(aux.Stringid(86379546,0))
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SUMMON_PROC)
+	e1:SetReset(RESET_EVENT+RESET_TOFIELD)
+	e1:SetCondition(c86379546.ntcon)
+	return c:IsSetCard(0x256) and c:IsSummonable(true,e1)
+end
+function c86379546.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc==1 then
+		if not c:IsRelateToEffect(e) then return end
+		Duel.Destroy(c,REASON_EFFECT)
+	elseif dc>=6 then
+		if not c:IsRelateToEffect(e) then return end
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then 
+			if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
+				if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c86379546.filter,tp,LOCATION_HAND,0,1,nil,e) then
+					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
+					local g=Duel.SelectMatchingCard(tp,c86379546.filter,tp,LOCATION_HAND,0,1,1,nil,e)
+					local tc=g:GetFirst()
+					local e1=Effect.CreateEffect(e:GetHandler())
+					e1:SetDescription(aux.Stringid(86379546,0))
+					e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+					e1:SetType(EFFECT_TYPE_SINGLE)
+					e1:SetCode(EFFECT_SUMMON_PROC)
+					e1:SetReset(RESET_EVENT+RESET_TOFIELD)
+					e1:SetCondition(c86379546.ntcon)
+					if tc then
+						tc:RegisterEffect(e1)
+						Duel.Summon(tp,tc,true,e1)
+					end
+				end
+			end
+		end   
+	else
+		Duel.Damage(tp,600,REASON_EFFECT)
+		if not c:IsRelateToEffect(e) then return end
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+	end
+end
+function c86379546.ntcon(e,c)
+	if c==nil then return true end
+	return c:GetLevel()>0
+		and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+end
+--
+function c86379546.cfilter(c,tp)
+	return c:GetPreviousControler()==tp and c:IsReason(REASON_EFFECT) 
+end
+function c86379546.gcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c86379546.cfilter,1,nil,tp) and e:GetHandler():IsReason(REASON_DESTROY)
+end
+function c86379546.gfilter(c)
+	return c:IsFaceup() and c:IsCanTurnSet()
+end
+function c86379546.gop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc>=6 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+		local g=Duel.SelectMatchingCard(tp,c86379546.gfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)   
+		if g:GetCount()>0 then
+			local tc=g:GetFirst()
+			if tc:IsType(TYPE_MONSTER) then 
+				Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
+			else 
+				Duel.ChangePosition(tc,POS_FACEDOWN)
+				Duel.RaiseEvent(tc,EVENT_SSET,e,REASON_EFFECT,tp,tc:GetControler(),0)
+			end
+		end
+	else
+		Duel.Damage(tp,600,REASON_EFFECT)
+	end
+end

script/c86379548.lua

+--千年的白兔✿因幡帝
+function c86379548.initial_effect(c)
+	--set
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_MONSTER_SSET)
+	e1:SetValue(TYPE_SPELL+TYPE_QUICKPLAY)
+	c:RegisterEffect(e1)
+	--Activate
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(86379548,0))
+	e2:SetCategory(CATEGORY_DICE+CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE)
+	e2:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetOperation(c86379548.operation)
+	c:RegisterEffect(e2)
+	--SpecialSummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(86379548,0))
+	e3:SetCategory(CATEGORY_DICE+CATEGORY_DAMAGE+CATEGORY_TODECK)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_DESTROYED)
+	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCondition(c86379548.gcon)
+	e3:SetOperation(c86379548.gop)
+	c:RegisterEffect(e3)
+end
+--
+c86379548.toss_dice=true
+function c86379548.filter(c)
+	return c:IsSetCard(0x256) and c:IsAbleToHand() and not c:IsCode(86379548)
+end
+function c86379548.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc==1 then
+		if not c:IsRelateToEffect(e) then return end
+		Duel.Destroy(c,REASON_EFFECT)
+	elseif dc>=6 then
+		if not c:IsRelateToEffect(e) then return end
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then 
+			if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
+				if Duel.IsExistingMatchingCard(c86379548.filter,tp,LOCATION_DECK,0,1,nil) then
+					Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+					local g=Duel.SelectMatchingCard(tp,c86379548.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
+			end
+		end   
+	else
+		Duel.Damage(tp,1200,REASON_EFFECT)
+		if not c:IsRelateToEffect(e) then return end
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+	end
+end
+--
+function c86379548.cfilter(c,tp)
+	return c:GetPreviousControler()==tp and c:IsReason(REASON_EFFECT) 
+end
+function c86379548.gcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c86379548.cfilter,1,nil,tp) and e:GetHandler():IsReason(REASON_DESTROY)
+end
+function c86379548.gfilter(c)
+	return c:IsFaceup() and c:IsCanTurnSet()
+end
+function c86379548.gop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local dc=Duel.TossDice(tp,1)
+	if dc>=6 then
+		if not c:IsRelateToEffect(e) then return end
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then 
+			if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
+				local lv=Duel.AnnounceLevel(tp,1,4)
+				local e1=Effect.CreateEffect(c)  
+				e1:SetType(EFFECT_TYPE_SINGLE)  
+				e1:SetCode(EFFECT_CHANGE_LEVEL)  
+				e1:SetValue(lv)  
+				e1:SetReset(RESET_EVENT+0x1fe0000)  
+				c:RegisterEffect(e1) 
+			end
+		end
+	else
+		Duel.Damage(tp,1200,REASON_EFFECT)
+	end
+end

script/c86379550.lua

+--因幡✿永远亭的群兔
+function c86379550.initial_effect(c)
+	--xyz summon
+	c:EnableReviveLimit()
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x208),2,2,nil,nil,13)
+	--lv change
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_XYZ_LEVEL)
+	e0:SetProperty(EFFECT_FLAG_SET_AVAIABLE)
+	e0:SetRange(LOCATION_EXTRA)
+	e0:SetTargetRange(LOCATION_MZONE,0)
+	e0:SetTarget(c86379550.lvtg)
+	e0:SetValue(c86379550.lvval)
+	c:RegisterEffect(e0)
+	--SpecialSummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(86379550,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,86379550)
+	e1:SetCondition(c86379550.spcon)
+	e1:SetCost(c86379550.spcost)
+	e1:SetTarget(c86379550.sptg)
+	e1:SetOperation(c86379550.spop)
+	c:RegisterEffect(e1)
+	--Destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(86379550,1))
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_DESTROYED)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c86379550.descon)
+	e2:SetCost(c86379550.descost)
+	e2:SetTarget(c86379550.destg)
+	e2:SetOperation(c86379550.desop)
+	c:RegisterEffect(e2)
+end
+--
+function c86379550.lvtg(e,c)
+	return c:IsSetCard(0x256)
+end
+function c86379550.lvval(e,c,rc)
+	local lv=c:GetLevel()
+	if rc==e:GetHandler() then return 2
+	else return lv end
+end
+--
+function c86379550.spcon(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return ph~=PHASE_MAIN1 and ph~=PHASE_MAIN2
+end
+function c86379550.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	local ot=e:GetHandler():GetOverlayCount()
+	local gt=Duel.GetMatchingGroupCount(c86379550.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if ot>gt then ot=gt end
+	if ot>ft then ot=ft end
+	local ct=e:GetHandler():RemoveOverlayCard(tp,1,ot,REASON_COST)
+	e:SetLabel(ct)
+end
+function c86379550.spfilter(c,e,tp)
+	return (c:IsSetCard(0x256) or c:IsSetCard(0x161)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c86379550.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMatchingGroupCount(c86379550.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp)>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
+	local ct=e:GetLabel()
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ct,tp,LOCATION_GRAVE)
+end
+function c86379550.spop(e,tp,eg,ep,ev,re,r,rp)
+	local ct=e:GetLabel()
+	local c=e:GetHandler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if ft<ct then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c86379550.spfilter,tp,LOCATION_GRAVE,0,ct,ct,nil,e,tp)
+	if g:GetCount()>0 then
+		local tc=g:GetFirst()
+		while tc do
+			Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e1,true)
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_DISABLE_EFFECT)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e2,true)
+			tc=g:GetNext()
+		end
+		Duel.SpecialSummonComplete()
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end
+--
+function c86379550.desfilter(c,tp,re)
+	return c:GetPreviousControler()==tp and c:IsReason(REASON_EFFECT)
+end
+function c86379550.descon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c86379550.desfilter,1,nil,tp)
+end
+function c86379550.descost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c86379550.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) end
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c86379550.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc:IsRelateToEffect(e) then return end
+	Duel.Destroy(tc,REASON_EFFECT)
+end

script/c86379552.lua

+--因幡-地上的月兔✿铃仙
+function c86379552.initial_effect(c)
+	--summon with no tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(86379552,0))
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SUMMON_PROC)
+	e1:SetCondition(c86379552.ntcon)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--immune effect
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_IMMUNE_EFFECT)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetCondition(c86379552.immcon)
+	e2:SetValue(c86379552.efilter)
+	c:RegisterEffect(e2)
+	--set
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(86379552,1))
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_SUMMON_SUCCESS)
+	e3:SetCountLimit(1,86379552)
+	e3:SetTarget(c86379552.destg)
+	e3:SetOperation(c86379552.desop)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e4)
+end
+--
+function c86379552.cfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x256)
+end
+function c86379552.ntcon(e,c)
+	if c==nil then return true end
+	return c:GetLevel()>4 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c86379552.cfilter,c:GetControler(),LOCATION_MZONE,0,1,nil)
+end
+--
+function c86379552.imfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x254)
+end
+function c86379552.immcon(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(c86379552.imfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
+end
+function c86379552.efilter(e,re)
+	return re:GetOwnerPlayer()~=e:GetHandlerPlayer() and re:GetHandler():IsSetCard(0x258)
+end
+--
+function c86379552.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return true end
+end
+function c86379552.setfilter(c,e,tp)
+	return (c:IsSSetable() and Duel.GetLocationCount(1-tp,LOCATION_SZONE)>0) or (c:IsCanBeSpecialSummoned(e,0,1-tp,false,false,POS_FACEDOWN) and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0)
+end
+function c86379552.desop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+	if g:GetCount()>0 then
+		Duel.ConfirmCards(tp,g)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+		local tc=g:FilterSelect(tp,c86379552.setfilter,1,1,nil,e,tp)
+		if tc:GetCount()>0 then
+			local sc=tc:GetFirst()
+			if sc:IsType(TYPE_MONSTER) then
+				Duel.SpecialSummon(sc,0,1-tp,1-tp,false,false,POS_FACEDOWN_DEFENSE)
+			else
+				Duel.SSet(tp,sc,1-tp)
+			end
+			Duel.BreakEffect()
+			Duel.Draw(tp,1,REASON_EFFECT)
+			Duel.Draw(1-tp,1,REASON_EFFECT)
+		end
+		Duel.ShuffleHand(1-tp)
+	end
+end

script/c86379556.lua

+--蓬莱-永远的公主✿蓬莱山辉夜
+function c86379556.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x208),8,2,c86379556.ovfilter,aux.Stringid(86379556,0))
+	c:EnableReviveLimit()
+	--damage
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CHANGE_DAMAGE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(1,0)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--Recover
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(86379556,1))
+	e2:SetCategory(CATEGORY_RECOVER+CATEGORY_POSITION)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetCountLimit(1,86379556)
+	e2:SetTarget(c86379556.rtg)
+	e2:SetOperation(c86379556.rop)
+	c:RegisterEffect(e2)
+	--SpecialSummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(86379542,2))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1,86379557)
+	e3:SetTarget(c86379556.sptg)
+	e3:SetOperation(c86379556.spop)
+	c:RegisterEffect(e3)
+	--
+	if not c86379556.global_check then
+		c86379556.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_DAMAGE)
+		ge1:SetOperation(c86379556.checkop)
+		Duel.RegisterEffect(ge1,0)
+	end
+end
+--
+function c86379556.checkop(e,tp,eg,ep,ev,re,r,rp)
+	local ct=0
+	if Duel.GetFlagEffect(ep,86379556)>0 then
+		ct=Duel.GetFlagEffectLabel(ep,86379556)
+		Duel.ResetFlagEffect(ep,86379556)
+	end
+	local dt=ct+ev
+	Duel.RegisterFlagEffect(ep,86379556,RESET_PHASE+PHASE_END,0,1,dt)
+end
+--
+function c86379556.ovfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x261) and c:IsLevelAbove(6) 
+end
+--
+function c86379556.rfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x254) 
+end
+function c86379556.rtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.IsExistingMatchingCard(c86379556.rfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) or Duel.GetFlagEffect(tp,86379556)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,nil,1,tp,LOCATION_ONFIELD)
+	local ct=Duel.GetFlagEffectLabel(tp,86379556)
+	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,ct)
+	Duel.SetChainLimit(aux.FALSE)
+end
+function c86379556.rop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=Duel.GetFlagEffectLabel(tp,86379556)
+	Duel.Recover(tp,ct,REASON_EFFECT)
+	local g=Duel.GetMatchingGroup(c86379556.rfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	if g:GetCount()>0 then
+		local a=Group.CreateGroup()
+		local tc=g:GetFirst()
+		while tc do
+			if tc:IsCanTurnSet() then
+				a:AddCard(tc)
+			end
+			tc=g:GetNext()
+		end
+		if a:GetCount()>0 then
+			local b=a:Filter(Card.IsType,nil,TYPE_MONSTER)
+			a:Remove(Card.IsType,nil,TYPE_MONSTER)
+			if b:GetCount()>0 then
+				Duel.ChangePosition(b,POS_FACEDOWN_DEFENSE)
+			end
+			if a:GetCount()>0 then
+				Duel.ChangePosition(a,POS_FACEDOWN)
+				local c=a:Filter(Card.IsControler,nil,tp)
+				a:Remove(Card.IsControler,nil,tp)
+				if c:GetCount()>0 then
+					Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+				end
+				if a:GetCount()>0 then
+					Duel.RaiseEvent(a,EVENT_SSET,e,REASON_EFFECT,tp,1-tp,0)
+				end
+			end
+		end
+	end
+end
+--
+function c86379556.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c86379556.sfilter(c)
+	return c:IsSetCard(0x257) and c:IsSSetable() 
+end
+function c86379556.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return 
+		e:GetHandler():GetOverlayGroup():FilterCount(c86379556.spfilter,nil,e,tp)>0 
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 
+		and Duel.IsExistingMatchingCard(c86379556.sfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) 
+		and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_OVERLAY)
+end
+function c86379556.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	local ot=c:GetOverlayGroup():FilterCount(c86379556.spfilter,nil,e,tp)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if ot>ft then ot=ft end
+	if ot<=0 then return end
+	local g=c:GetOverlayGroup():Filter(c86379556.spfilter,nil,e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	g:Select(tp,1,ot,nil)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		local ct=Duel.Destroy(g,REASON_EFFECT)
+		if ct~=0 then
+			local st=Duel.GetLocationCount(tp,LOCATION_SZONE)
+			local mt=Duel.GetMatchingGroupCount(c86379556.sfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,nil)
+			if mt>st then mt=st end
+			if mt>ct then mt=ct end
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+			local sg=Duel.SelectMatchingCard(tp,c86379556.sfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,ct,nil)
+			if sg:GetCount()>0 then
+				Duel.SSet(tp,sg)
+			end
+		end
+	end
+end

script/c86379558.lua

+--蓬莱-永夜的隐者✿八意永琳
+function c86379558.initial_effect(c)
+	--link summon
+	c:EnableReviveLimit()
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_SPSUMMON_PROC)
+	e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e0:SetRange(LOCATION_EXTRA)
+	e0:SetCondition(c86379558.lkcon1)
+	e0:SetOperation(c86379558.lkop1)
+	e0:SetValue(SUMMON_TYPE_LINK)
+	c:RegisterEffect(e0)
+	--moon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+	e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(LOCATION_SZONE,0)
+	e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x257))
+	c:RegisterEffect(e1)
+	--destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_ONFIELD,0)
+	e2:SetTarget(c86379558.indes)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	--lp
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(86379558,0))
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_DESTROYED)
+	e3:SetTarget(c86379558.lptg)
+	e3:SetOperation(c86379558.lpop)
+	c:RegisterEffect(e3)
+end
+--
+function c86379558.indes(e,c)
+	return c:IsFaceup() and c:IsSetCard(0x257) and c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+--
+function c86379558.lptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReason(REASON_EFFECT) end
+end
+function c86379558.lpop(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCountLimit(1)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetOperation(c86379558.damop)
+	Duel.RegisterEffect(e1,tp)
+end
+function c86379558.damop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,86379558)
+	Duel.SetLP(1-tp,Duel.GetLP(1-tp)-1800)
+end
+--
+function c86379558.lkfilter1(c,lc,tp)
+	if c:IsType(TYPE_MONSTER) and c:IsFaceup() then
+		return c:IsCanBeLinkMaterial(lc) and c:IsControler(tp)
+	else
+		return c:IsFacedown() 
+	end
+end
+function c86379558.lvfilter1(c)
+	if c:IsType(TYPE_LINK) and c:GetLink()>1 then
+		return 1+0x10000*c:GetLink()
+	else 
+		return 1 
+	end
+end
+function c86379558.lcheck1(tp,sg,lc,minc,ct)
+	return ct>=minc and sg:CheckWithSumEqual(c86379558.lvfilter1,lc:GetLink(),ct,ct) and Duel.GetLocationCountFromEx(tp,tp,sg,lc)>0
+end
+function c86379558.lkchenk1(c,tp,sg,mg,lc,ct,minc,maxc)
+	sg:AddCard(c)
+	ct=ct+1
+	local res=c86379558.lcheck1(tp,sg,lc,minc,ct) or (ct<maxc and mg:IsExists(c86379558.lkchenk1,1,sg,tp,sg,mg,lc,ct,minc,maxc))
+	sg:RemoveCard(c)
+	ct=ct-1
+	return res
+end
+function c86379558.lkcon1(e,c)
+	if c==nil then return true end
+	if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
+	local tp=c:GetControler()
+	local mg=Duel.GetMatchingGroup(c86379558.lkfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,c,tp)
+	local sg=Group.CreateGroup()
+	for i,pe in ipairs({Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_LMATERIAL)}) do
+		local pc=pe:GetHandler()
+		if not mg:IsContains(pc) then return false end
+		sg:AddCard(pc)
+	end
+	local ct=sg:GetCount()
+	local minc=7
+	local maxc=8
+	if ct>maxc then return false end
+	return (c86379558.lcheck1(tp,sg,c,minc,ct) or mg:IsExists(c86379558.lkchenk1,1,nil,tp,sg,mg,c,ct,minc,maxc)) 
+end
+function c86379558.lkop1(e,tp,eg,ep,ev,re,r,rp,c)
+	local mg=Duel.GetMatchingGroup(c86379558.lkfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,c,tp)
+	local sg=Group.CreateGroup()
+	for i,pe in ipairs({Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_LMATERIAL)}) do
+		sg:AddCard(pe:GetHandler())
+	end
+	local ct=sg:GetCount()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_LMATERIAL)
+	sg:Select(tp,ct,ct,nil)
+	local minc=7
+	local maxc=8
+	for i=ct,maxc-1 do
+		local cg=mg:Filter(c86379558.lkchenk1,sg,tp,sg,mg,c,i,minc,maxc)
+		if cg:GetCount()==0 then break end
+		local minct=1
+		if c86379558.lcheck1(tp,sg,c,minc,i) then
+			if not Duel.SelectYesNo(tp,210) then break end
+			minct=0
+		end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_LMATERIAL)
+		local g=cg:Select(tp,minct,1,nil)
+		if g:GetCount()==0 then break end
+		sg:Merge(g)
+	end
+	c:SetMaterial(sg)
+	Duel.SendtoGrave(sg,REASON_MATERIAL+REASON_LINK)
+end

script/c86379560.lua

+--因幡的落穴
+function c86379560.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(86379560,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(c86379560.target)
+	e1:SetOperation(c86379560.activate)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	local e3=e1:Clone()
+	e3:SetTarget(c86379560.target2)
+	e3:SetOperation(c86379560.activate2)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+	--SpecialSummon
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(86379560,1))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN+CATEGORY_TODECK)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_DESTROYED)
+	e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e4:SetRange(LOCATION_GRAVE)
+	e4:SetCountLimit(1,86379560)
+	e4:SetCondition(c86379560.gcon)
+	e4:SetTarget(c86379560.gtg)
+	e4:SetOperation(c86379560.gop)
+	c:RegisterEffect(e4)
+end
+--
+function c86379560.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if not eg then return false end
+	local tc=eg:GetFirst()
+	if chkc then return chkc==tc end
+	if chk==0 then return ep~=tp and tc:IsFaceup() and tc:GetAttack()>=1200 and tc:IsOnField() and tc:IsCanBeEffectTarget(e) end
+	Duel.SetTargetCard(eg)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0)
+end
+function c86379560.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetAttack()>=1200 then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end
+--
+function c86379560.filter(c,e,tp)
+	return c:IsAttackAbove(1200) and c:IsSummonPlayer(tp) and c:IsCanBeEffectTarget(e)
+end
+function c86379560.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return false end
+	if chk==0 then return eg:IsExists(c86379560.filter,1,nil,e,1-tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=eg:FilterSelect(tp,c86379560.filter,1,1,nil,e,1-tp)
+	Duel.SetTargetCard(g)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c86379560.activate2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):GetFirst()
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetAttack()>=1200 then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end
+--
+function c86379560.cfilter(c,tp)
+	return c:GetPreviousControler()==tp and c:IsReason(REASON_EFFECT) 
+end
+function c86379560.gcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c86379560.cfilter,1,nil,tp) and e:GetHandler():IsReason(REASON_DESTROY)
+end
+function c86379560.tdfilter(c)
+	return c:IsSetCard(0x256) and c:IsAbleToDeck() and c:IsType(TYPE_MONSTER)
+end
+function c86379560.gtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c86379560.tdfilter,tp,LOCATION_GRAVE,0,1,nil)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,21035,nil,0x4011,600,600,2,RACE_BEASTWARRIOR,ATTRIBUTE_EARTH) end
+	local g=Duel.GetMatchingGroup(c86379560.tdfilter,tp,LOCATION_GRAVE,0,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,tp,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c86379560.gop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c86379560.tdfilter,tp,LOCATION_GRAVE,0,1,1,nil)   
+	if g:GetCount()>0 and Duel.SendtoDeck(g,nil,2,REASON_EFFECT)~=0 then
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,21035,nil,0x4011,600,600,2,RACE_BEASTWARRIOR,ATTRIBUTE_EARTH) then
+			local token=Duel.CreateToken(tp,21035)
+			Duel.SpecialSummon(token,0x20,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end

script/c86379652.lua

@@ -49,13 +49,13 @@ function c86379652.op(e,tp,eg,ep,ev,re,r,rp)
 			tc:RegisterFlagEffect(86379652,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,2,fid)
 			local e1=Effect.CreateEffect(c)
 			e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-			e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+			e1:SetCode(EVENT_PHASE+PHASE_END)
 			e1:SetCountLimit(1)
 			e1:SetLabel(fid,ct)
 			e1:SetLabelObject(tc)
 			e1:SetCondition(c86379652.con1_1)
 			e1:SetOperation(c86379652.op1_1)
-			e1:SetReset(RESET_PHASE+PHASE_STANDBY,2)
+			e1:SetReset(RESET_PHASE+PHASE_END,2)
 			Duel.RegisterEffect(e1,tp)
 		end
 	end

script/c86379860.lua

@@ -198,7 +198,7 @@ function c86379860.sop(e,tp,eg,ep,ev,re,r,rp)
 			e5:SetValue(0)
 			c:RegisterEffect(e5,true)
 			c:SetStatus(STATUS_NO_LEVEL,true)
-			if Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP_DEFENSE,zone)<=0 then 
+			if not Duel.MoveToField(c,tp,tp,LOCATION_MZONE,POS_FACEUP,true,zone) then 
 				Duel.SendtoGrave(c,REASON_EFFECT)
 			end
 			c:RegisterFlagEffect(86379860,RESET_EVENT+0x1fc0000,0,1)
@@ -236,7 +236,7 @@ function c86379860.sop(e,tp,eg,ep,ev,re,r,rp)
 			e5:SetValue(0)
 			c:RegisterEffect(e5,true)
 			c:SetStatus(STATUS_NO_LEVEL,true)
-			if Duel.SpecialSummon(c,0,tp,1-tp,true,true,POS_FACEUP_DEFENSE,zone)<=0 then 
+			if not Duel.MoveToField(c,tp,1-tp,LOCATION_MZONE,POS_FACEUP,true,zone) then 
 				Duel.SendtoGrave(c,REASON_EFFECT)
 			end
 			c:RegisterFlagEffect(86379860,RESET_EVENT+0x1fc0000,0,1)