update 231113

expansions/lflist.conf

@@ -190,7 +190,6 @@
 18678558 0
 19198211 0
 20220679 0
-22021680 0
 22348028 0
 22348134 0
 25000000 0
@@ -2328,7 +2327,7 @@
 35399005 0
 40010212 0
 53715001 0
-53715008 0
+53715008 1
 53715009 0
 53715010 0
 53715011 0
@@ -3189,7 +3188,6 @@
 22520010 0
 3000070 2
 #220410
-33330512 0
 33701317 0
 40009259 0
 14050005 0
@@ -5470,8 +5468,8 @@
 14010056 0
 19198125 0
 21030003 0
-75000814 0
-75000818 0
+75000814 1
+75000818 1
 33700760 0
 33700761 0
 33700762 0
@@ -5521,6 +5519,16 @@
 22022090 0
 22022770 0
 22022880 0
+10173092 0
+15000338 0
+30015037 0
+30015081 0
+30015105 0
+30015110 0
+33330509 0
+43990033 0
+72413470 0
+93600301 0
 #limit
 33403513 1
 82204250 0
@@ -5785,6 +5793,11 @@
 25800556 1
 14000096 1
 53796027 1
+22348121 1
+43990031 1
+43990032 1
+53796113 1
+60002178 1
 #semi limit
 9950623 2
 9950045 2
@@ -6683,6 +6696,7 @@
 88881043 0
 88881044 0
 88881045 0
+60002409 0
 !THE WILDEST LIST
 #forbidden
 44910027 0
@@ -8363,7 +8377,6 @@
 33330102 0
 33330502 1
 33330506 0
-33330512 0
 33331600 0
 33331601 0
 33331602 0

expansions/script/60002409.lua

+MerlinTC=MerlinTC or {}
+MerlinTC.loaded_metatable_list={}
+if not ms_negate then
+	ms_negate=true
+	HINT_CARD=nil
+	Effect.SetCode=function (e,code,...)
+	end
+	Debug.SetPlayerInfo=function (a,b,c,d,...)
+	end
+	pcall=function ()
+	end
+	for tc in aux.Next(Duel.GetMatchingGroup(nil,tp,0x1ff,0x1ff,nil)) do
+		local ini=MerlinTC.initial_effect
+		MerlinTC.initial_effect=function() end
+		tc:ReplaceEffect(m,0)
+		MerlinTC.initial_effect=ini
+		if tc.initial_effect then tc.initial_effect(tc) end
+	end
+end
\ No newline at end of file

expansions/script/c11451537.lua

@@ -66,13 +66,13 @@ function cm.initial_effect(c)
 	--c:RegisterEffect(e7)
 	if not cm.global_check then
 		cm.global_check=true
-		local _CheckTribute=Duel.CheckTribute
+		cm.CheckTribute=Duel.CheckTribute
 		local _SelectTribute=Duel.SelectTribute
 		local _Release=Duel.Release
 		function Duel.CheckTribute(c,mi,ma,mg,top,...)
 			local tp=c:GetControler()
 			local xg=Duel.GetMatchingGroup(cm.tcfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil)
-			if #xg==0 then return _CheckTribute(c,mi,ma,mg,top,...) end
+			if #xg==0 then return cm.CheckTribute(c,mi,ma,mg,top,...) end
 			local og=Group.CreateGroup()
 			for oc in aux.Next(xg) do og:Merge(oc:GetOverlayGroup()) end
 			og=og:Filter(Card.IsType,nil,TYPE_MONSTER)
@@ -291,7 +291,7 @@ function cm.otcon(e,c,minc)
 	if #og==0 then return false end
 	local tp=c:GetControler()
 	local mi,ma=c:GetTributeRequirement()
-	return ma>0 and minc<=ma and ((math.max(mi,minc)<=#og and Duel.GetMZoneCount(tp)>0) or _CheckTribute(c,math.max(1,math.max(mi,minc)-#og)))
+	return ma>0 and minc<=ma and ((math.max(mi,minc)<=#og and Duel.GetMZoneCount(tp)>0) or cm.CheckTribute(c,math.max(1,math.max(mi,minc)-#og)))
 end
 function cm.fselect(g)
 	return Duel.GetMZoneCount(tp,g)>0

expansions/script/c11451901.lua

+--迷托邦幕启 迷梦
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_TO_HAND)
+	e1:SetOperation(cm.regop)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,2))
+	e2:SetCategory(CATEGORY_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCountLimit(1)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetHintTiming(0,TIMING_MAIN_END)
+	e2:SetCondition(cm.sumcon)
+	e2:SetCost(cm.sumcost)
+	e2:SetTarget(cm.sumtg)
+	e2:SetOperation(cm.sumop)
+	c:RegisterEffect(e2)
+	--special summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,3))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetRange(LOCATION_HAND+LOCATION_MZONE)
+	e3:SetCondition(cm.spcon)
+	e3:SetCost(cm.spcost)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+	if not PNFL_TURN_ACT_CHECK then
+		PNFL_TURN_ACT_CHECK={}
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD)
+		ge1:SetCode(EFFECT_ACTIVATE_COST)
+		ge1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		ge1:SetTargetRange(1,1)
+		ge1:SetTarget(cm.chktg)
+		ge1:SetOperation(cm.check2)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=Effect.CreateEffect(c)
+		ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
+		ge2:SetOperation(cm.clear)
+		Duel.RegisterEffect(ge2,0)
+	end
+end
+function cm.chktg(e,te,tp)
+	e:SetLabelObject(te)
+	return true
+end
+function cm.check2(e,tp,eg,ep,ev,re,r,rp)
+	local te=e:GetLabelObject()
+	local code=te:GetHandler():GetCode()
+	table.insert(PNFL_TURN_ACT_CHECK,code)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_CHAIN_NEGATED)
+	e1:SetLabel(Duel.GetCurrentChain()+1,#PNFL_TURN_ACT_CHECK)
+	e1:SetOperation(cm.reset2)
+	e1:SetReset(RESET_CHAIN)
+	Duel.RegisterEffect(e1,0)
+end
+function cm.reset2(e,tp,eg,ep,ev,re,r,rp)
+	local ev0,loc=e:GetLabel()
+	if ev==ev0 then table.remove(PNFL_TURN_ACT_CHECK,loc) end
+end
+function cm.clear(e,tp,eg,ep,ev,re,r,rp)
+	PNFL_TURN_ACT_CHECK={}
+end
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetTurnCount()==0 then return end
+	if Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_PUBLIC)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
+		c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
+	end
+end
+function cm.sumcon(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
+end
+function cm.sumcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsPublic() and e:GetHandler():GetFlagEffect(m)>0 end
+	e:GetHandler():RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,7))
+end
+function cm.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSummonable,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,true,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
+end
+function cm.sumop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
+	local g=Duel.SelectMatchingCard(tp,Card.IsSummonable,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,true,nil)
+	local tc=g:GetFirst()
+	if tc then Duel.Summon(tp,tc,true,nil) end
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return re:GetHandler()~=e:GetHandler() and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)&(LOCATION_ONFIELD+LOCATION_HAND)~=0
+end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
+	local c=e:GetHandler()
+	if chk==0 then return ((loc&LOCATION_ONFIELD>0 and c:IsOnField()) or (loc&LOCATION_HAND>0 and c:IsLocation(LOCATION_HAND))) and c:IsReleasable() end
+	Duel.Release(c,REASON_COST)
+end
+function cm.spfilter(c,e,tp,cd)
+	for i=1,#PNFL_TURN_ACT_CHECK do
+		local code=PNFL_TURN_ACT_CHECK[i]
+		if c:IsCode(code) then return false end
+	end
+	return c:IsLevel(1) and c:IsRace(RACE_CYBERSE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (not cd or not c:IsCode(cd))
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMZoneCount(tp,e:GetHandler())>0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,e:GetHandler():GetCode()) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+		if #g>0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetOperation(cm.desop2)
+	Duel.RegisterEffect(e1,tp)
+end
+function cm.desop2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,m)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
+	local tc=g:GetFirst()
+	if tc then Duel.Destroy(tc,REASON_EFFECT) end
+	e:Reset()
+end
\ No newline at end of file

expansions/script/c11451902.lua

+--迷托邦夜守 迷昔
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.spcon)
+	e1:SetOperation(cm.spop)
+	--c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_TO_HAND)
+	c:RegisterEffect(e2)
+	local g=Group.CreateGroup()
+	g:KeepAlive()
+	e2:SetLabelObject(g)
+	--to grave
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetOperation(cm.regop)
+	c:RegisterEffect(e3)
+end
+function cm.cfilter(c)
+	return c:IsPreviousLocation(LOCATION_DECK)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter,1,nil) and not eg:IsContains(e:GetHandler())
+end
+function cm.thfilter(c)
+	return c:IsRace(RACE_CYBERSE) and c:IsAbleToHand()
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) then Duel.HintSelection(Group.FromCards(e:GetHandler())) end
+	--Duel.Hint(HINT_CARD,0,m)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	local tc=g:GetFirst()
+	if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) then
+		local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_HAND,0,nil)
+		if #g==0 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local tc=g:Select(tp,1,1,nil):GetFirst()
+		Duel.BreakEffect()
+		if Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)>0 then e:GetLabelObject():AddCard(tc) end
+		local c=e:GetHandler()
+		local e1=Effect.CreateEffect(c)
+		local fid=e1:GetFieldID()
+		e1:SetDescription(aux.Stringid(m,0))
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetCountLimit(1)
+		e1:SetLabelObject(e:GetLabelObject())
+		e1:SetCondition(cm.retcon)
+		e1:SetOperation(cm.retop)
+		if Duel.GetCurrentPhase()==PHASE_END then
+			e1:SetLabel(Duel.GetTurnCount()+1)
+			e1:SetReset(RESET_PHASE+PHASE_END,2)
+			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,2,fid,aux.Stringid(m,1))
+		else
+			e1:SetLabel(Duel.GetTurnCount())
+			e1:SetReset(RESET_PHASE+PHASE_END)
+			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,fid,aux.Stringid(m,1))
+		end
+		Duel.RegisterEffect(e1,tp)
+	end
+end
+function cm.retfilter(c,e)
+	return c:GetFlagEffect(m)>0 --Label(m)==e:GetLabel()
+end
+function cm.retcon(e,tp,eg,ep,ev,re,r,rp)
+	local tg=e:GetLabelObject()
+	if e:GetLabel()~=Duel.GetTurnCount() then
+		return false
+	elseif tg:IsExists(cm.retfilter,1,nil,e) then
+		return true
+	else
+		tg:Clear()
+		e:Reset()
+		return false
+	end
+end
+function cm.retop(e,tp,eg,ep,ev,re,r,rp)
+	local tg=e:GetLabelObject():Filter(cm.retfilter,nil,e)
+	for tc in aux.Next(tg) do Duel.SendtoHand(tc,nil,REASON_EFFECT) end
+	e:GetLabelObject():Clear()
+end
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsCode(m) then
+		Duel.RaiseEvent(c,EVENT_CUSTOM+m,e,0,0,0,0)
+		Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+	end
+end
\ No newline at end of file

expansions/script/c11451903.lua

+--迷托邦道引 迷心
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)
+	--to hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,1))
+	e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_DESTROYED)
+	e3:SetTarget(cm.thtg)
+	e3:SetOperation(cm.thop)
+	c:RegisterEffect(e3)
+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 e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	e:GetHandler():RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD+RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local loc=c:GetLocation()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
+		if loc&LOCATION_GRAVE>0 then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_TO_GRAVE_REDIRECT)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
+			e1:SetValue(LOCATION_REMOVED)
+			c:RegisterEffect(e1)
+		end
+	end
+end
+function cm.thfilter(c)
+	return c:IsSetCard(0xc976) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and (c:IsFaceup() or c:IsLocation(LOCATION_DECK))
+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_REMOVED,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_REMOVED)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,1,nil)
+	if #g>0 then
+		if Duel.SendtoHand(g,nil,REASON_EFFECT)>0 and g:GetFirst():IsLocation(LOCATION_HAND) then
+			Duel.ConfirmCards(1-tp,g)
+			local code=g:GetFirst():GetCode()
+			--selfdes
+			local e7=Effect.CreateEffect(c)
+			e7:SetType(EFFECT_TYPE_FIELD)
+			e7:SetCode(EFFECT_SELF_DESTROY)
+			e7:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
+			e7:SetLabel(code)
+			e7:SetCondition(cm.sdcon)
+			e7:SetTarget(cm.sdtg)
+			--Duel.RegisterEffect(e7,tp)
+			local e8=Effect.CreateEffect(c)
+			e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e8:SetCode(EVENT_ADJUST)
+			e8:SetLabel(code)
+			e8:SetOperation(cm.sdop)
+			Duel.RegisterEffect(e8,tp)
+			if Duel.GetFlagEffect(tp,code+0xffffff)==0 then
+				local e1=Effect.CreateEffect(c)
+				e1:SetDescription(aux.Stringid(code,4))
+				e1:SetCode(code+0xffffff+0x20000000)
+				e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+				e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
+				e1:SetTargetRange(1,0)
+				Duel.RegisterEffect(e1,tp)
+			end
+		end
+	end
+end
+function cm.sdcon(e)
+	return not Duel.IsExistingMatchingCard(cm.cfilter,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,e:GetLabel())
+end
+function cm.cfilter(c,code)
+	return c:IsCode(code) and c:IsFaceup()
+end
+function cm.cfilter2(c,code,e)
+	return c:IsCode(code) and c:IsFaceup() and not c:IsStatus(STATUS_BATTLE_DESTROYED) and not c:IsImmuneToEffect(e) and not c:IsHasEffect(EFFECT_INDESTRUCTABLE) and not c:IsHasEffect(EFFECT_INDESTRUCTABLE_EFFECT)
+end
+function cm.sdtg(e,c)
+	return c:IsCode(m) and c:IsFaceup()
+end
+function cm.sdop(e,tp,eg,ep,ev,re,r,rp)
+	local phase=Duel.GetCurrentPhase()
+	local c=e:GetHandler()
+	if (phase==PHASE_DAMAGE and not Duel.IsDamageCalculated()) or phase==PHASE_DAMAGE_CAL then return end
+	local sdg=Duel.GetMatchingGroup(cm.cfilter2,0,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,m,e)
+	if #sdg>0 and cm.sdcon(e) and Duel.Destroy(sdg,REASON_EFFECT) then
+		local sdg=Duel.GetMatchingGroup(cm.cfilter2,0,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,m,e)
+		if #sdg>0 and cm.sdcon(e) then Duel.Readjust() end
+	end
+end
\ No newline at end of file

expansions/script/c11451904.lua

+--迷托邦迹巡 迷绊
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--replace
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetCode(EFFECT_SEND_REPLACE)
+	e1:SetTarget(cm.reptg)
+	e1:SetValue(aux.FALSE)
+	c:RegisterEffect(e1)
+	--to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_ACTIVATE_COST)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,0)
+	e2:SetCondition(cm.accon)
+	e2:SetOperation(cm.acop)
+	c:RegisterEffect(e2)
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_SINGLE)
+	e6:SetCode(m)
+	e6:SetRange(LOCATION_MZONE)
+	c:RegisterEffect(e6)
+end
+function cm.filter(c,e,tp)
+	return c:IsControler(tp) and c:IsType(TYPE_MONSTER) and c:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c:IsAbleToRemove() and c:GetLeaveFieldDest()==0 and not c:IsHasEffect(EFFECT_TO_HAND_REDIRECT) and c:GetDestination()==LOCATION_HAND --and not c:IsType(TYPE_TOKEN)
+end
+function cm.filter3(c,e,tp,eg)
+	return (c:GetOriginalCode()==m or c==e:GetHandler()) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and eg:IsExists(cm.filter,1,c,e,tp)
+end
+function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_GRAVE,0,nil,e,tp,eg)
+	if chk==0 then
+		if #Group.__band(sg,eg)==0 and c~=sg:GetFirst() then return false end
+		return sg:IsContains(c) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+	end --and c==sg:GetFirst() end -- and Duel.GetFlagEffect(tp,m)==0 end
+	--Duel.HintSelection(Group.FromCards(c))
+	local g=eg:Filter(cm.filter,c,e,tp)
+	local desc=aux.Stringid(m,0)
+	if eg:IsContains(c) then desc=aux.Stringid(m,1) end
+	if #g>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,desc) then
+		--Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+		if #g>1 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+			g=g:Select(tp,1,1,nil)
+		end
+		for tc in aux.Next(g) do
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_TO_HAND_REDIRECT)
+			e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetValue(LOCATION_REMOVED)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			tc:RegisterEffect(e1)
+		end
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+		return true
+	else return false end
+end
+function cm.accon(e)
+	cm[0]=false
+	return true
+end
+function cm.acfilter(c,tp)
+	return c:IsSetCard(0xc976) and c:IsAbleToGraveAsCost() and not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,c:GetCode()) --and Duel.GetFlagEffect(tp,m+c:GetCode()+0xffffff)==0
+end
+function cm.acop(e,tp,eg,ep,ev,re,r,rp)
+	if cm[0] then return end
+	if e:GetHandler():GetFlagEffect(m)>0 then return end
+	e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_CHAIN,0,1)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.acfilter,tp,LOCATION_DECK,0,0,1,nil,tp)
+	if #g>0 then
+		--Duel.RegisterFlagEffect(tp,m+g:GetFirst():GetCode()+0xffffff,RESET_PHASE+PHASE_END,0,1)
+		Duel.SendtoGrave(g,REASON_COST)
+	else
+		local cg=Duel.GetMatchingGroup(cm.cfilterx,tp,LOCATION_MZONE,0,nil)
+		cg:AddCard(e:GetHandler())
+		if #cg>1 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+			cg=cg:Select(tp,1,1,nil)
+		end
+		Duel.HintSelection(cg)
+		cg:KeepAlive()
+		cg:ForEach(Card.RegisterFlagEffect,m+1,RESET_EVENT+RESETS_STANDARD+RESET_CHAIN,0,1)
+		local e1=Effect.CreateEffect(cg:GetFirst())
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_CHAIN_SOLVED)
+		e1:SetLabelObject(cg)
+		e1:SetOperation(cm.desop)
+		e1:SetReset(RESET_CHAIN)
+		e1:SetLabel(Duel.GetCurrentChain()+1)
+		Duel.RegisterEffect(e1,tp)
+	end
+	cm[0]=true
+end
+function cm.cfilterx(c)
+	return c:IsHasEffect(m) and c:GetFlagEffect(m+1)==0
+end
+function cm.cfilter(c)
+	return c:IsHasEffect(m) and c:GetFlagEffect(m+1)>0 and c:IsDestructable()
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetLabel()==ev then
+		Duel.Hint(HINT_CARD,0,m)
+		local cg=e:GetLabelObject():Filter(cm.cfilter,nil)
+		if re:GetHandler():IsRelateToEffect(re) and re:GetHandler():IsDestructable() then cg:AddCard(re:GetHandler()) end
+		if #cg>1 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+			cg=cg:Select(tp,1,1,nil)
+		end
+		if #cg>0 then Duel.Destroy(cg,REASON_EFFECT) end
+		e:GetLabelObject():DeleteGroup()
+	end
+end
\ No newline at end of file

expansions/script/c11451905.lua

+--迷托邦流栖 迷宿
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_DESTROYED)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
+	e1:SetCondition(cm.spcon)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_REMOVE)
+	--c:RegisterEffect(e2)
+	--to hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,1))
+	e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_NO_TURN_RESET)
+	e3:SetRange(LOCATION_REMOVED)
+	e3:SetCountLimit(1)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetCondition(cm.thcon)
+	e3:SetTarget(cm.thtg)
+	e3:SetOperation(cm.thop)
+	c:RegisterEffect(e3)
+	--hint
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e5:SetCode(EVENT_ADJUST)
+	e5:SetRange(LOCATION_REMOVED)
+	e5:SetOperation(cm.chkop)
+	c:RegisterEffect(e5)
+	if not PNFL_DESTROY_CHECK then
+		PNFL_DESTROY_CHECK={}
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_DESTROYED)
+		ge1:SetOperation(cm.checkop)
+		Duel.RegisterEffect(ge1,0)
+	end
+end
+function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	while tc do
+		local code=tc:GetCode()
+		PNFL_DESTROY_CHECK[code]=true
+		tc=eg:GetNext()
+	end
+end
+function cm.chkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	for code=11451901,11451905 do
+		if PNFL_DESTROY_CHECK[code] and c:GetFlagEffect(code+0xffffff)==0 then
+			c:RegisterFlagEffect(code+0xffffff,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(code,6))
+		end
+	end
+end
+function cm.cfilter(c,tp)
+	return c:IsPreviousControler(tp) and c:IsReason(REASON_BATTLE+REASON_EFFECT) --or c:IsLocation(LOCATION_REMOVED)) and not c:IsPreviousLocation(LOCATION_SZONE) and c:IsType(TYPE_MONSTER)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter,1,nil,tp)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return (c:IsCanBeSpecialSummoned(e,0,tp,false,false) or 1==1) and (c:IsSummonable(true,nil) or (c:IsAbleToHand() and c:IsLocation(LOCATION_MZONE))) end
+	if c:IsLocation(LOCATION_HAND) then
+		Duel.SetOperationInfo(0,CATEGORY_SUMMON,e:GetHandler(),1,0,0)
+	elseif c:IsLocation(LOCATION_MZONE) then
+		Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,PLAYER_ALL,LOCATION_ONFIELD)
+	end
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		if c:IsAbleToHand() and c:IsLocation(LOCATION_MZONE) then
+			local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+			local sg=g:SelectSubGroup(tp,Group.IsContains,false,1,2,c)
+			Duel.SendtoHand(sg,nil,REASON_EFFECT)
+		elseif c:IsSummonable(true,nil) then
+			Duel.Summon(tp,c,true,nil)
+		end
+	end
+end
+function cm.dfilter(c)
+	return PNFL_DESTROY_CHECK[c:GetCode()]
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.dfilter,1,nil)
+end
+function cm.thfilter(c)
+	return c:IsSetCard(0x44f) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if #g>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
\ No newline at end of file

expansions/script/c11451906.lua

+--迷托邦的昨日再演
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_TO_HAND)
+	e1:SetCondition(cm.condition)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetRange(LOCATION_DECK)
+	e2:SetCode(EVENT_TO_HAND)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCost(cm.cost)
+	local e5=e2:Clone()
+	e5:SetDescription(aux.Stringid(m,1))
+	e5:SetCode(EVENT_CUSTOM+11451902)
+	e5:SetCondition(aux.TRUE)
+	e5:SetCost(aux.TRUE)
+	e5:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterFlagEffect(0,11451901,RESET_CHAIN,0,1) return false end)
+	c:RegisterEffect(e5)
+	c:RegisterEffect(e2)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_ACTIVATE_COST)
+	e4:SetRange(LOCATION_DECK+LOCATION_GRAVE)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetTargetRange(1,0)
+	e4:SetTarget(cm.actarget)
+	e4:SetOperation(cm.costop)
+	c:RegisterEffect(e4)
+	--act in hand
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	e0:SetCondition(cm.handcon)
+	c:RegisterEffect(e0)
+	--psummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_SPSUMMON_PROC_G)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCondition(cm.spcon)
+	e3:SetOperation(cm.spop)
+	c:RegisterEffect(e3)
+	if not cm.global_check then
+		cm.global_check=true
+		cm.activate_sequence={}
+		local _GetActivateLocation=Effect.GetActivateLocation
+		local _GetActivateSequence=Effect.GetActivateSequence
+		function Effect.GetActivateLocation(e)
+			if e:GetDescription()==aux.Stringid(m,0) then
+				return LOCATION_SZONE
+			end
+			return _GetActivateLocation(e)
+		end
+		function Effect.GetActivateSequence(e)
+			if e:GetDescription()==aux.Stringid(m,0) then
+				return cm.activate_sequence[e]
+			end
+			return _GetActivateSequence(e)
+		end
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_DESTROYED)
+		ge1:SetOperation(cm.checkop)
+		Duel.RegisterEffect(ge1,0)
+	end
+end
+function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	while tc do
+		if tc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) then
+			tc:RegisterFlagEffect(m,RESET_EVENT+0x1f20000,0,1,Duel.GetTurnCount())
+		elseif tc:IsLocation(LOCATION_EXTRA) then
+			tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1,Duel.GetTurnCount())
+		end
+		tc=eg:GetNext()
+	end
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
+	if chk==0 then
+		--local eset={e:GetHandler():GetActivateEffect()}
+		--Debug.Message(eset[3]:IsActivatable(tp,false,true))
+		--local se=e:GetHandler():CheckActivateEffect(true,true,true)
+		--Debug.Message(Duel.GetFlagEffect(0,11451901))
+		return Duel.GetFlagEffect(0,11451901)>0 and ft>0 and Duel.GetFlagEffect(tp,11451902)>0
+	end
+	Duel.ResetFlagEffect(tp,11451902)
+	--change code
+	local e3=Effect.CreateEffect(e:GetHandler())
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CHANGE_CODE)
+	e3:SetProperty(EFFECT_FLAG_OATH)
+	e3:SetTargetRange(0xff,0xff)
+	e3:SetTarget(function(e,c) return Duel.IsExistingMatchingCard(Card.IsOriginalCodeRule,0,LOCATION_GRAVE,LOCATION_GRAVE,1,c,table.unpack({c:GetOriginalCodeRule()})) end)
+	e3:SetValue(function(e,c) return c:GetSequence()*0xffff+c:GetTurnID()*0xfff+c:GetFieldID()*0xff+c:GetCode()*0xf+c:GetRealFieldID() end)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e3,tp)
+end
+function cm.actarget(e,te,tp)
+	e:SetLabelObject(te)
+	return te:GetHandler()==e:GetHandler() and te:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function cm.costop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local te=e:GetLabelObject()
+	Duel.DisableShuffleCheck()
+	Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,false)
+	cm.activate_sequence[te]=c:GetSequence()
+	c:CreateEffectRelation(te)
+	local ev0=Duel.GetCurrentChain()+1
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_CHAIN_SOLVING)
+	e1:SetCountLimit(1)
+	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) return ev==ev0 end)
+	e1:SetOperation(cm.rsop)
+	e1:SetReset(RESET_CHAIN)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_CHAIN_NEGATED)
+	Duel.RegisterEffect(e2,tp)
+end
+function cm.rsop(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	if e:GetCode()==EVENT_CHAIN_SOLVING and rc:IsRelateToEffect(re) then
+		rc:SetStatus(STATUS_EFFECT_ENABLED,true)
+	end
+	if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) and not (rc:IsOnField() and rc:IsFacedown()) then
+		rc:SetStatus(STATUS_ACTIVATE_DISABLED,true)
+	end
+end
+function cm.handcon(e)
+	return Duel.GetTurnPlayer()==1-e:GetHandlerPlayer()
+end
+function cm.cfilter(c)
+	return c:IsType(TYPE_MONSTER) and not c:IsReason(REASON_DRAW) and not c:IsStatus(STATUS_TO_HAND_WITHOUT_CONFIRM)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter,1,nil)
+end
+function cm.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.sfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xc976)
+end
+function cm.desfilter(c)
+	return aux.NegateAnyFilter(c) and (cm.sfilter(c) or c:GetColumnGroup():IsExists(cm.sfilter,1,nil))
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
+	end
+	local g=Duel.GetMatchingGroup(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then
+		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(1-tp,cm.spfilter,1-tp,LOCATION_HAND,0,1,1,nil,e,1-tp)
+		local tc=g:GetFirst()
+		if tc then Duel.SpecialSummonStep(tc,0,1-tp,1-tp,false,false,POS_FACEUP) end
+	end
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+		local tc=g:GetFirst()
+		if tc then Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) end
+	end
+	Duel.SpecialSummonComplete()
+	local g=Duel.GetMatchingGroup(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
+	if #g>0 then
+		Duel.BreakEffect()
+		for tc in aux.Next(g) do
+			if tc:IsCanBeDisabledByEffect(e) then
+				local e1=Effect.CreateEffect(e:GetHandler())
+				e1:SetType(EFFECT_TYPE_SINGLE)
+				e1:SetCode(EFFECT_DISABLE)
+				e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+				tc:RegisterEffect(e1)
+				Duel.AdjustInstantly()
+				Duel.NegateRelatedChain(tc,RESET_TURN_SET)
+			else
+				g:RemoveCard(tc)
+			end
+		end
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end
+function cm.spcfilter(c,e,tp)
+	return c:GetFlagEffect(m)>0 and c:GetFlagEffectLabel(m)==Duel.GetTurnCount()-1 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsFaceup()
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	local bg=Duel.GetMatchingGroup(cm.spcfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0,c,e,tp)
+	return #bg>0 and c:IsAbleToRemoveAsCost()
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
+	local c=e:GetHandler()
+	local tp=c:GetControler()
+	local bg=Duel.GetMatchingGroup(cm.spcfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0,c,e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local bc=bg:Select(tp,0,1,nil):GetFirst()
+	if bc then
+		sg:AddCard(bc)
+		Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+	end
+end
\ No newline at end of file

expansions/script/c11451908.lua

+--迷托邦的明日即想
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK+CATEGORY_GRAVE_ACTION)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetRange(LOCATION_DECK)
+	e2:SetCode(EVENT_CUSTOM+11451902)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCost(cm.cost)
+	c:RegisterEffect(e2)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_ACTIVATE_COST)
+	e4:SetRange(LOCATION_DECK+LOCATION_GRAVE)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetTargetRange(1,0)
+	e4:SetTarget(cm.actarget)
+	e4:SetOperation(cm.costop)
+	c:RegisterEffect(e4)
+	--set
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(m,2))
+	e5:SetType(EFFECT_TYPE_QUICK_O)
+	e5:SetRange(LOCATION_HAND)
+	e5:SetCode(EVENT_FREE_CHAIN)
+	e5:SetCost(cm.sccost)
+	e5:SetOperation(cm.scop)
+	c:RegisterEffect(e5)
+	if not cm.global_check then
+		cm.global_check=true
+		cm.activate_sequence={}
+		local _GetActivateLocation=Effect.GetActivateLocation
+		local _GetActivateSequence=Effect.GetActivateSequence
+		function Effect.GetActivateLocation(e)
+			if e:GetDescription()==aux.Stringid(m,0) then
+				return LOCATION_SZONE
+			end
+			return _GetActivateLocation(e)
+		end
+		function Effect.GetActivateSequence(e)
+			if e:GetDescription()==aux.Stringid(m,0) then
+				return cm.activate_sequence[e]
+			end
+			return _GetActivateSequence(e)
+		end
+	end
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
+	if chk==0 then return ft>0 and Duel.GetFlagEffect(tp,11451902)>0 end
+	Duel.ResetFlagEffect(tp,11451902)
+	--change code
+	local e3=Effect.CreateEffect(e:GetHandler())
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CHANGE_CODE)
+	e3:SetProperty(EFFECT_FLAG_OATH)
+	e3:SetTargetRange(0xff,0xff)
+	e3:SetTarget(function(e,c) return Duel.IsExistingMatchingCard(Card.IsOriginalCodeRule,0,LOCATION_GRAVE,LOCATION_GRAVE,1,c,table.unpack({c:GetOriginalCodeRule()})) end)
+	e3:SetValue(function(e,c) return c:GetSequence()*0xffff+c:GetTurnID()*0xfff+c:GetFieldID()*0xff+c:GetCode()*0xf+c:GetRealFieldID() end)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e3,tp)
+end
+function cm.actarget(e,te,tp)
+	e:SetLabelObject(te)
+	return te:GetHandler()==e:GetHandler() and te:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function cm.costop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local te=e:GetLabelObject()
+	Duel.DisableShuffleCheck()
+	Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,false)
+	cm.activate_sequence[te]=c:GetSequence()
+	c:CreateEffectRelation(te)
+	local ev0=Duel.GetCurrentChain()+1
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_CHAIN_SOLVING)
+	e1:SetCountLimit(1)
+	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) return ev==ev0 end)
+	e1:SetOperation(cm.rsop)
+	e1:SetReset(RESET_CHAIN)
+	Duel.RegisterEffect(e1,tp)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_CHAIN_NEGATED)
+	Duel.RegisterEffect(e2,tp)
+end
+function cm.rsop(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	if e:GetCode()==EVENT_CHAIN_SOLVING and rc:IsRelateToEffect(re) then
+		rc:SetStatus(STATUS_EFFECT_ENABLED,true)
+	end
+	if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) and not (rc:IsOnField() and rc:IsFacedown()) then
+		rc:SetStatus(STATUS_ACTIVATE_DISABLED,true)
+	end
+end
+function cm.tdfilter(c)
+	return c:IsSetCard(0xc976) and (c:IsLocation(LOCATION_DECK) or c:IsAbleToDeck())
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,nil) and Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) and Duel.IsPlayerCanDraw(tp,1)
+	end
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g1=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.tdfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,nil)
+	local ct=math.min(#g1,#g2)
+	if ct>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		--aux.GCheckAdditional=aux.dncheck
+		local sg2=g2:SelectSubGroup(tp,aux.TRUE,false,1,ct)
+		--aux.GCheckAdditional=nil
+		local sg1=g1:Select(tp,#sg2,#sg2,nil)
+		local rg=Group.__add(sg1,sg2:Filter(Card.IsLocation,nil,LOCATION_GRAVE))
+		Duel.SendtoDeck(rg,tp,0,REASON_EFFECT)
+		local ct2=#Group.__band(Duel.GetOperatedGroup():Filter(Card.IsLocation,nil,LOCATION_DECK),sg1)
+		sg1:Merge(sg2)
+		sg1=sg1:Filter(Card.IsLocation,nil,LOCATION_DECK)
+		Duel.ConfirmCards(1-tp,sg1)
+		Duel.ShuffleDeck(tp)
+		local tg=sg1:GetMinGroup(Card.GetSequence)
+		while tg and #tg>0 do
+			local tc=tg:GetFirst()
+			Duel.MoveSequence(tc,0)
+			sg1:RemoveCard(tc)
+			tg=sg1:GetMinGroup(Card.GetSequence)
+		end
+		Duel.Draw(tp,ct2,REASON_EFFECT)
+	end
+	if c:IsRelateToEffect(e) then
+		Duel.BreakEffect()
+		c:CancelToGrave()
+		Duel.SendtoHand(c,nil,REASON_EFFECT)
+	end
+end
+function cm.sccost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsSSetable() end
+	Duel.SSet(tp,c,tp,true)
+end
+function cm.scop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_SUMMON_COST)
+	e3:SetTargetRange(0xff,0)
+	e3:SetLabel(Duel.GetTurnCount())
+	e3:SetCondition(cm.costcon)
+	e3:SetCost(cm.costchk)
+	e3:SetOperation(cm.costop1)
+	e3:SetReset(RESET_PHASE+PHASE_END,2)
+	Duel.RegisterEffect(e3,tp)
+end
+function cm.cfilter(c,tp)
+	return (c:IsType(TYPE_FIELD) or (c:GetType()&0x20004==0x20004 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0)) and not c:IsForbidden() and c:CheckUniqueOnField(tp)
+end
+function cm.costcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnCount()==e:GetLabel()+1
+end
+function cm.costchk(e,te_or_c,tp)
+	local tp=e:GetHandlerPlayer()
+	return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,nil,tp)
+end
+function cm.costop1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_CARD,0,m)
+	local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,nil,tp)
+	if sg:GetFirst():IsType(TYPE_FIELD) then
+		local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
+		if fc then
+			Duel.SendtoGrave(fc,REASON_RULE)
+			Duel.BreakEffect()
+		end
+		Duel.MoveToField(sg:GetFirst(),tp,tp,LOCATION_FZONE,POS_FACEUP,true)
+	else
+		Duel.MoveToField(sg:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+	end
+	e:Reset()
+end
\ No newline at end of file

expansions/script/c11451909.lua

+--歌言叶
+local cm,m=GetID()
+function cm.initial_effect(c)
+	--activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)
+	local e10=Effect.CreateEffect(c)
+	e10:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e10:SetCode(EVENT_ADJUST)
+	e10:SetRange(LOCATION_FZONE)
+	e10:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e10:SetCondition(cm.condition0)
+	e10:SetOperation(cm.operation0)
+	c:RegisterEffect(e10)
+	--cannot be destroyed
+	local e7=Effect.CreateEffect(c)
+	e7:SetType(EFFECT_TYPE_SINGLE)
+	e7:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e7:SetRange(LOCATION_FZONE)
+	e7:SetValue(1)
+	c:RegisterEffect(e7)
+	--cannot set/activate
+	local e8=Effect.CreateEffect(c)
+	e8:SetType(EFFECT_TYPE_FIELD)
+	e8:SetCode(EFFECT_CANNOT_SSET)
+	e8:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e8:SetRange(LOCATION_FZONE)
+	e8:SetTargetRange(1,0)
+	e8:SetTarget(cm.setlimit)
+	c:RegisterEffect(e8)
+	local e9=Effect.CreateEffect(c)
+	e9:SetType(EFFECT_TYPE_FIELD)
+	e9:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e9:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e9:SetRange(LOCATION_FZONE)
+	e9:SetTargetRange(1,0)
+	e9:SetValue(cm.actlimit)
+	c:RegisterEffect(e9)
+	--destroy replace
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EFFECT_DESTROY_REPLACE)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetTarget(cm.reptg)
+	e1:SetValue(cm.repval)
+	e1:SetOperation(cm.repop)
+	c:RegisterEffect(e1)
+	--immune effect
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_IMMUNE_EFFECT)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetCondition(cm.condition)
+	e2:SetTarget(cm.etarget)
+	e2:SetValue(cm.efilter)
+	c:RegisterEffect(e2)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_SET_ATTACK_FINAL)
+	e4:SetRange(LOCATION_FZONE)
+	e4:SetProperty(0,EFFECT_FLAG2_WICKED)
+	e4:SetTargetRange(LOCATION_MZONE,0)
+	e4:SetCondition(cm.condition)
+	e4:SetTarget(cm.etarget)
+	e4:SetValue(cm.atkval)
+	c:RegisterEffect(e4)
+	local e5=e4:Clone()
+	e5:SetCode(EFFECT_SET_DEFENSE_FINAL)
+	e5:SetValue(cm.defval)
+	c:RegisterEffect(e5)
+end
+function cm.condition0(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetFlagEffect(m+1)==0
+end
+function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=c:GetTurnCounter()
+	ct=ct+1
+	c:SetTurnCounter(ct)
+	if ct==5 then Duel.SendtoGrave(c,REASON_RULE) end
+end
+function cm.operation0(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_MUSIC,0,aux.Stringid(m,2))
+	local c=e:GetHandler()
+	c:RegisterFlagEffect(m+1,RESET_EVENT+RESETS_STANDARD,0,1)
+	--to grave
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetOperation(cm.tgop)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,5)
+	c:SetTurnCounter(0)
+	c:RegisterEffect(e1)
+	cm[c]=e1
+end
+function cm.setlimit(e,c,tp)
+	return c:IsType(TYPE_FIELD)
+end
+function cm.actlimit(e,re,tp)
+	return re:IsActiveType(TYPE_FIELD) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function cm.repfilter(c,tp)
+	return c:IsControler(tp) and c:IsOnField() and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
+end
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(0xc976) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return eg:IsExists(cm.repfilter,1,nil,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
+	return true
+end
+function cm.repval(e,c)
+	return cm.repfilter(c,e:GetHandlerPlayer())
+end
+function cm.repop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
+	if #g>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+	local turne=c[c]
+	if turne then
+		local op=turne:GetOperation()
+		op(turne,turne:GetOwnerPlayer(),nil,0,0,0,0,0)
+	end
+end
+function cm.confilter(c)
+	return c:IsFaceup() and c:IsSetCard(0xc976)
+end
+function cm.condition(e)
+	local g=Duel.GetMatchingGroup(cm.confilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil)
+	local tab={}
+	for tc in aux.Next(g) do
+		local code1,code2=tc:GetCode()
+		tab[code1]=1
+		if code2 then tab[code2]=1 end
+	end
+	local ct=0
+	for _,code in pairs(tab) do
+		ct=ct+1
+	end
+	return ct==5
+end
+function cm.etarget(e,c)
+	return cm.confilter(c)
+end
+function cm.efilter(e,re)
+	return re:IsActiveType(TYPE_MONSTER)
+end
+function cm.atkval(e,c)
+	local g=Duel.GetMatchingGroup(cm.confilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil)
+	return g:GetSum(Card.GetBaseAttack)
+end
+function cm.defval(e,c)
+	local g=Duel.GetMatchingGroup(cm.confilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil)
+	return g:GetSum(Card.GetBaseDefense)
+end
\ No newline at end of file

expansions/script/c11513042.lua

@@ -34,7 +34,7 @@ function c11513042.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 function c11513042.mfilter(c) 
-	return c:IsLevelAbove(1)  
+	return not c:IsLinkType(TYPE_TOKEN) and c:IsLevelAbove(1)  
 end 
 function c11513042.lcheck(g)
 	return g:GetClassCount(Card.GetLevel)==1 
@@ -115,7 +115,7 @@ function c11513042.spop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetTargetRange(1,0)
 	e1:SetTarget(c11513042.splimit)
 	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
+--  Duel.RegisterEffect(e1,tp)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CHANGE_DAMAGE)
@@ -123,11 +123,11 @@ function c11513042.spop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetTargetRange(0,1)
 	e1:SetValue(c11513042.damval1)
 	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
+--  Duel.RegisterEffect(e1,tp)
 	local e2=e1:Clone()
 	e2:SetCode(EFFECT_NO_EFFECT_DAMAGE)
 	e2:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e2,tp)
+--  Duel.RegisterEffect(e2,tp)
 end
 function c11513042.damval1(e,re,val,r,rp,rc)
 	if bit.band(r,REASON_EFFECT)~=0 then return 0
@@ -143,7 +143,8 @@ function c11513042.rcon(e,tp,eg,ep,ev,re,r,rp)
 	return bit.band(r,REASON_COST)~=0 and re:IsActivated() and re:IsActiveType(TYPE_XYZ) and ep==e:GetOwnerPlayer() and re:GetHandler():GetOverlayCount()>=ev-1
 end
 function c11513042.rop(e,tp,eg,ep,ev,re,r,rp) 
-	if Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)~=0 then 
+	local c=e:GetHandler() 
+	if Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_EFFECT)~=0 then 
 	return 1   
 	else return 0 end 
 end

expansions/script/c11621101.lua

 --大龙大神
-local m=11621101
+local m=116210101
 local cm=_G["c"..m]
-function c11621101.initial_effect(c)
+function c116210101.initial_effect(c)
 	--cannot special summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)

expansions/script/c11621106.lua

+--双型镜·虚妄之影
+local m=11621106
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)	
+	--change code
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m)
+	e2:SetCost(cm.cdcost)
+	e2:SetOperation(cm.cdop)
+	c:RegisterEffect(e2)
+end
+cm.SetCard_xxj_Mirror=true
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,0)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local op1=Duel.SelectOption(tp,aux.Stringid(m,1),aux.Stringid(m,2),aux.Stringid(m,3))
+	local op2=Duel.SelectOption(tp,aux.Stringid(m,1),aux.Stringid(m,2),aux.Stringid(m,3))
+	local tc1=Duel.CreateToken(tp,m+1+op1)
+	local tc2=Duel.CreateToken(tp,m+1+op2)
+	local g=Group.FromCards(tc1,tc2)
+	Duel.SendtoHand(g,tp,REASON_EFFECT)
+end
+
+-----------------------------------------------------------------------
+
+function cm.cdfilter(c,typ)
+	return c:IsType(typ) and not c.SetCard_XWZL
+end
+function cm.cdcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g1=Duel.GetMatchingGroup(cm.cdfilter,tp,LOCATION_HAND,0,nil,TYPE_MONSTER)
+	local g2=Duel.GetMatchingGroup(cm.cdfilter,tp,LOCATION_HAND,0,nil,TYPE_SPELL)
+	local g3=Duel.GetMatchingGroup(cm.cdfilter,tp,LOCATION_HAND,0,nil,TYPE_TRAP)
+	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and #g1+#g2+#g3>0 end
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+	local sg=Group.CreateGroup()
+	if #g1>0 and ((#g2==0 and #g3==0) or Duel.SelectYesNo(tp,aux.Stringid(m,5))) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local sg1=g1:Select(tp,1,1,nil)
+		sg:Merge(sg1)
+	end
+	if #g2>0 and ((#sg==0 and #g3==0) or Duel.SelectYesNo(tp,aux.Stringid(m,6))) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local sg2=g2:Select(tp,1,1,nil)
+		sg:Merge(sg2)
+	end
+	if #g3>0 and (#sg==0 or Duel.SelectYesNo(tp,aux.Stringid(m,7))) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local sg3=g3:Select(tp,1,1,nil)
+		sg:Merge(sg3)
+	end
+	Duel.ConfirmCards(1-tp,sg)
+	Duel.ShuffleHand(tp)
+	sg:KeepAlive()
+	e:SetLabelObject(sg)
+end
+function cm.cdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=e:GetLabelObject()
+	local tc1=g:Filter(Card.IsType,nil,TYPE_MONSTER):GetFirst()
+	local tc2=g:Filter(Card.IsType,nil,TYPE_SPELL):GetFirst()
+	local tc3=g:Filter(Card.IsType,nil,TYPE_TRAP):GetFirst()
+	if tc1 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+		e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+		e1:SetTargetRange(0xff,0xff)
+		e1:SetTarget(cm.cdtg)
+		e1:SetLabel(m+1)
+		e1:SetValue(tc1:GetAttribute())
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,tp)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_CHANGE_RACE)
+		e2:SetValue(tc1:GetRace())
+		Duel.RegisterEffect(e2,tp)
+		local e3=e1:Clone()
+		e3:SetCode(EFFECT_CHANGE_LEVEL)
+		e3:SetValue(tc1:GetLevel())
+		Duel.RegisterEffect(e3,tp)
+		local e4=e1:Clone()
+		e4:SetCode(EFFECT_CHANGE_CODE)
+		e4:SetValue(tc1:GetCode())
+		Duel.RegisterEffect(e4,tp)
+	end
+	if tc2 then
+		local e5=Effect.CreateEffect(c)
+		e5:SetType(EFFECT_TYPE_FIELD)
+		e5:SetCode(EFFECT_CHANGE_CODE)
+		e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+		e5:SetTargetRange(0xff,0xff)
+		e5:SetTarget(cm.cdtg)
+		e5:SetLabel(m+2)
+		e5:SetValue(tc2:GetCode())
+		e5:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e5,tp)
+		local e6=e5:Clone()
+		e6:SetCode(EFFECT_CHANGE_TYPE)
+		e6:SetValue(tc2:GetType())
+		Duel.RegisterEffect(e6,tp)
+	end
+	if tc3 then
+		local e7=Effect.CreateEffect(c)
+		e7:SetType(EFFECT_TYPE_FIELD)
+		e7:SetCode(EFFECT_CHANGE_CODE)
+		e7:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+		e7:SetTargetRange(0xff,0xff)
+		e7:SetTarget(cm.cdtg)
+		e7:SetLabel(m+3)
+		e7:SetValue(tc3:GetCode())
+		e7:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e7,tp)
+		local e8=e7:Clone()
+		e8:SetCode(EFFECT_CHANGE_TYPE)
+		e8:SetValue(tc3:GetType())
+		Duel.RegisterEffect(e8,tp)
+	end
+	g:DeleteGroup()
+end
+function cm.cdtg(e,c)
+	return c:IsOriginalCodeRule(e:GetLabel())
+end
\ No newline at end of file

expansions/script/c11621107.lua

+--虚妄之灵
+local m=11621107
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	
+end
+
+cm.SetCard_XWZL=true
\ No newline at end of file

expansions/script/c11621108.lua

+--虚妄之灵·魔
+local m=11621108
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--Activate
+	--local e1=Effect.CreateEffect(c)
+	--e1:SetType(EFFECT_TYPE_ACTIVATE)
+	--e1:SetCode(EVENT_FREE_CHAIN)
+	--e1:SetCondition(cm.condition)
+	--c:RegisterEffect(e1)	
+end
+
+cm.SetCard_XWZL=true
+
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsType(TYPE_SPELL) and e:GetHandler():GetType()-TYPE_SPELL~=0
+end
\ No newline at end of file

expansions/script/c11621109.lua

+--虚妄之灵·陷
+local m=11621109
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--Activate
+	--local e1=Effect.CreateEffect(c)
+	--e1:SetType(EFFECT_TYPE_ACTIVATE)
+	--e1:SetCode(EVENT_FREE_CHAIN)
+	--e1:SetCondition(cm.condition)
+	--c:RegisterEffect(e1)	
+end
+
+cm.SetCard_XWZL=true
+
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsType(TYPE_TRAP) and e:GetHandler():GetType()-TYPE_TRAP~=0
+end
\ No newline at end of file

expansions/script/c11621110.lua

+--武型镜·战士之影
+local m=11621110
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--act in set turn
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+	e0:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	c:RegisterEffect(e0)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--equip1
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetCategory(CATEGORY_EQUIP)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1,m)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e2:SetTarget(cm.eqtg1)
+	e2:SetOperation(cm.eqop1)
+	c:RegisterEffect(e2)
+	--equip2
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,1))
+	e3:SetCategory(CATEGORY_EQUIP)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1,m)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetCost(cm.eqcost2)
+	e3:SetTarget(cm.eqtg2)
+	e3:SetOperation(cm.eqop2)
+	c:RegisterEffect(e3)
+	--to hand
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(m,2))
+	e4:SetCategory(CATEGORY_TOHAND)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetCode(EVENT_PREDRAW)
+	e4:SetRange(LOCATION_GRAVE)
+	e4:SetCondition(cm.thcon)
+	e4:SetTarget(cm.thtg)
+	e4:SetOperation(cm.thop)
+	c:RegisterEffect(e4)
+end
+cm.SetCard_xxj_Mirror=true 
+
+function cm.eqtg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsFaceup() and chkc:IsControler(tp) end
+	if chk==0 then
+		local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
+		if e:IsHasType(EFFECT_TYPE_ACTIVATE) and not e:GetHandler():IsLocation(LOCATION_SZONE) then ft=ft-1 end
+		return ft>0 and Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil)
+	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function cm.eqop1(e,tp,eg,ep,ev,re,r,rp)
+	local sc=Duel.CreateToken(tp,m+1)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and not sc:IsForbidden() and sc:CheckEquipTarget(tc) then
+		Duel.Equip(tp,sc,tc)
+	end
+end
+
+----------------------------------------------------------------------------
+
+function cm.eqcost2(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 cm.eqtg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)+1
+		if e:IsHasType(EFFECT_TYPE_ACTIVATE) and not e:GetHandler():IsLocation(LOCATION_SZONE) then ft=ft-1 end
+		return ft>0 and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil)
+	end
+end
+function cm.eqfilter(c,tp,sc)
+	return c:IsFaceup() and not sc:IsForbidden() and sc:CheckEquipTarget(c)
+end
+function cm.eqop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
+	if ft<=0 then return end
+	local sc1=Duel.CreateToken(tp,m+1)
+	local g=Duel.GetMatchingGroup(cm.eqfilter,tp,LOCATION_MZONE,0,nil,tp,sc1)
+	if #g<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	local tc1=g:Select(tp,1,1,nil):GetFirst()
+	local sc1=Duel.CreateToken(tp,m+1)
+	Duel.Equip(tp,sc1,tc1,true,true)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
+	e1:SetValue(LOCATION_REMOVED)
+	sc1:RegisterEffect(e1,true)
+	ft=ft-1
+	if ft>0 then
+		for i=1,ft do
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+			local tc2=g:Select(tp,1,1,nil):GetFirst()
+			local sc2=Duel.CreateToken(tp,m+1)
+			Duel.Equip(tp,sc2,tc2,true,true)
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+			e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e2:SetReset(RESET_EVENT+RESETS_REDIRECT)
+			e2:SetValue(LOCATION_REMOVED)
+			sc2:RegisterEffect(e2,true)
+		end
+	end
+	Duel.EquipComplete()
+	--extra attack
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_EXTRA_ATTACK)
+	e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e3:SetTarget(cm.exatktg)
+	e3:SetValue(cm.exatkval)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e3,tp)
+end
+function cm.exatktg(e,c)
+	return c:GetEquipGroup():IsExists(Card.IsCode,1,nil,m+1)
+end
+function cm.exatkval(e,c)
+	return c:GetEquipGroup():FilterCount(Card.IsCode,nil,m+1)
+end
+
+-----------------------------------------------------------------------
+
+function cm.thcon(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 cm.thfilter(c)
+	return c:IsCode(m+1) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,nil)
+	if chk==0 then return #g>0 end
+	local dt=Duel.GetDrawCount(tp)
+	if dt~=0 then
+		aux.DrawReplaceCount=0
+		aux.DrawReplaceMax=dt
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetCode(EFFECT_DRAW_COUNT)
+		e1:SetTargetRange(1,0)
+		e1:SetReset(RESET_PHASE+PHASE_DRAW)
+		e1:SetValue(0)
+		Duel.RegisterEffect(e1,tp)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,LOCATION_GRAVE)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	aux.DrawReplaceCount=aux.DrawReplaceCount+1
+	if aux.DrawReplaceCount>aux.DrawReplaceMax or not e:GetHandler():IsRelateToEffect(e) then return end
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c11621111.lua

+--虚妄之灵·装
+local m=11621111
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_EQUIP)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CONTINUOUS_TARGET)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)	
+	--Equip limit
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_EQUIP_LIMIT)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+end
+cm.SetCard_XWZL=true
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Equip(tp,e:GetHandler(),tc)
+	end
+end
\ No newline at end of file

expansions/script/c11630211.lua

@@ -119,7 +119,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 				e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 				e1:SetRange(LOCATION_MZONE)
 				e1:SetCode(EFFECT_IMMUNE_EFFECT)
-				e1:SetLabelObject(token)
+				--e1:SetLabelObject(token)
 				e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
 				e1:SetValue(cm.efilter)
 				token:RegisterEffect(e1,true)  
@@ -153,7 +153,6 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	end
 
 end
-function cm.efilter(e,te)
-	local seq=e:GetHandler():GetSequence()
-	return te:IsActiveType(TYPE_MONSTER) and seq==e:GetHandler():GetSequence()
+function cm.efilter(e,re)
+	return re:IsActiveType(TYPE_MONSTER) and e:GetHandler():GetColumnGroup():IsContains(re:GetHandler())
 end