Add files via upload

expansions/script/c1110112.lua

---灵都·葬魂幽蝶
-local m=1110112
-local cm=_G["c"..m]
-xpcall(function() require("expansions/script/c1110198") end,function() require("script/c1110198") end)
-cm.named_with_Urban=true
---
-function c1110112.initial_effect(c)
---
-	c:EnableReviveLimit()
-	aux.AddFusionProcCodeFun(c,1110004,c1110112.filter,1,true,true)
---
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(1110112,0))
-	e1:SetCategory(CATEGORY_DISABLE)
-	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetCountLimit(1,1110112)
-	e1:SetCondition(c1110112.con1)
-	e1:SetTarget(c1110112.tg1)
-	e1:SetOperation(c1110112.op1)
-	c:RegisterEffect(e1)
---
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(1110112,0))
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetHintTiming(0,0x1c0+TIMING_MAIN_END)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1,1110112)
-	e2:SetCondition(c1110112.con2)
-	e2:SetTarget(c1110112.tg2)
-	e2:SetOperation(c1110112.op1)
-	c:RegisterEffect(e2)
---
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_REMOVE)
-	e3:SetTarget(c1110112.tg3)
-	e3:SetOperation(c1110112.op3)
-	c:RegisterEffect(e3)
---
-end
---
-function c1110112.filter(c)
-	return c:IsCode(1110002) or c:IsCode(1110122)
-end
---
-function c1110112.con1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return bit.band(c:GetSummonType(),SUMMON_TYPE_FUSION)~=0 and c:GetMaterialCount()>0 
-end
---
-function c1110112.tfilter1_1(c,e,tp)
-	return muxu.check_set_Urban(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
-end
-function c1110112.tfilter1_2(c)
-	return c:IsAbleToDeck() and bit.band(c:GetSummonType(),TYPE_SPSUMMON)~=0 and not c:IsPreviousLocation(LOCATION_EXTRA)
-end
-function c1110112.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	local b1=Duel.IsExistingMatchingCard(c1110112.tfilter1_1,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-	local b2=Duel.IsExistingMatchingCard(c1110112.tfilter1_2,tp,0,LOCATION_MZONE,1,nil)
-	if chk==0 then return (b1 or b2) and Duel.GetFlagEffect(tp,1110004)<1 end
-	local off=1
-	local ops={}
-	local opval={}
-	if b1 then
-		ops[off]=aux.Stringid(1110112,0)
-		opval[off-1]=1
-		off=off+1
-	end
-	if b2 then
-		ops[off]=aux.Stringid(1110112,1)
-		opval[off-1]=2
-		off=off+1
-	end
-	local op=Duel.SelectOption(tp,table.unpack(ops))
-	local sel=opval[op]
-	e:SetLabel(sel)
-	if sel==1 then
-		e:SetCategory(CATEGORY_SPECIAL_SUMMON)
-		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
-	else
-		e:SetCategory(CATEGORY_TODECK)
-		e:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-		Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_MZONE)
-	end
-end
---
-function c1110112.op1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local sel=e:GetLabel()
-	if sel==1 then
-		if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,c1110112.tfilter1_1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-		if g:GetCount()<1 then return end
-		local tc=g:GetFirst()
-		Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
-		local e1_3=Effect.CreateEffect(c)
-		e1_3:SetType(EFFECT_TYPE_SINGLE)
-		e1_3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-		e1_3:SetCode(EFFECT_ADD_TYPE)
-		e1_3:SetValue(TYPE_SPIRIT)
-		e1_3:SetReset(RESET_EVENT+0x1fe0000)
-		tc:RegisterEffect(e1_3,true)
-		tc:RegisterFlagEffect(1110112,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(1110112,6))
-		Duel.SpecialSummonComplete()
-	else
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-		local g=Duel.SelectMatchingCard(tp,c1110112.tfilter1_2,tp,0,LOCATION_MZONE,1,1,nil)
-		if g:GetCount()<1 then return end
-		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
-	end
-end
---
-function c1110112.con2(e,tp,eg,ep,ev,re,r,rp)
-	local ph=Duel.GetCurrentPhase()
-	return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
-end
---
-function c1110112.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	local b1=Duel.IsExistingMatchingCard(c1110112.tfilter1_1,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-	local b2=Duel.IsExistingMatchingCard(c1110112.tfilter1_2,tp,0,LOCATION_MZONE,1,nil)
-	if chk==0 then return (b1 or b2) and Duel.GetFlagEffect(tp,1110004)>0 end
-	local off=1
-	local ops={}
-	local opval={}
-	if b1 then
-		ops[off]=aux.Stringid(1110112,0)
-		opval[off-1]=1
-		off=off+1
-	end
-	if b2 then
-		ops[off]=aux.Stringid(1110112,1)
-		opval[off-1]=2
-		off=off+1
-	end
-	local op=Duel.SelectOption(tp,table.unpack(ops))
-	local sel=opval[op]
-	e:SetLabel(sel)
-	if sel==1 then
-		e:SetCategory(CATEGORY_SPECIAL_SUMMON)
-		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
-	else
-		e:SetCategory(CATEGORY_TODECK)
-		e:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-		Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_MZONE)
-	end
-end
---
-function c1110112.tfilter3(c)
-	return c:IsCode(1110142) and c:IsAbleToHand()
-end
-function c1110112.tg3(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingMatchingCard(c1110112.tfilter3,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
---
-function c1110112.op3(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c1110112.tfilter3,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()<1 then return end
-	Duel.SendtoHand(g,nil,REASON_EFFECT)
-	Duel.ConfirmCards(1-tp,g)
-end
---
+--灵都·葬魂幽蝶
+local m=1110112
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/c1110198") end,function() require("script/c1110198") end)
+cm.named_with_Urban=true
+--
+function c1110112.initial_effect(c)
+--
+	c:EnableReviveLimit()
+	aux.AddFusionProcCodeFun(c,1110004,c1110112.filter,1,true,true)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(1110112,0))
+	e1:SetCategory(CATEGORY_DISABLE)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,1110112)
+	e1:SetCondition(c1110112.con1)
+	e1:SetTarget(c1110112.tg1)
+	e1:SetOperation(c1110112.op1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(1110112,0))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetHintTiming(0,0x1c0+TIMING_MAIN_END)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,1110112)
+	e2:SetCondition(c1110112.con2)
+	e2:SetTarget(c1110112.tg2)
+	e2:SetOperation(c1110112.op1)
+	c:RegisterEffect(e2)
+--
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_REMOVE)
+	e3:SetTarget(c1110112.tg3)
+	e3:SetOperation(c1110112.op3)
+	c:RegisterEffect(e3)
+--
+end
+--
+function c1110112.filter(c)
+	return c:IsCode(1110002) or c:IsCode(1110122)
+end
+--
+function c1110112.con1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return bit.band(c:GetSummonType(),SUMMON_TYPE_FUSION)~=0 and c:GetMaterialCount()>0 
+end
+--
+function c1110112.tfilter1_1(c,e,tp)
+	return muxu.check_set_Urban(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
+end
+function c1110112.tfilter1_2(c)
+	return c:IsAbleToDeck() and c:IsSummonType(SUMMON_TYPE_SPECIAL) and not c:IsPreviousLocation(LOCATION_EXTRA)
+end
+function c1110112.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local b1=Duel.IsExistingMatchingCard(c1110112.tfilter1_1,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+	local b2=Duel.IsExistingMatchingCard(c1110112.tfilter1_2,tp,0,LOCATION_MZONE,1,nil)
+	if chk==0 then return (b1 or b2) and Duel.GetFlagEffect(tp,1110004)<1 end
+	local off=1
+	local ops={}
+	local opval={}
+	if b1 then
+		ops[off]=aux.Stringid(1110112,0)
+		opval[off-1]=1
+		off=off+1
+	end
+	if b2 then
+		ops[off]=aux.Stringid(1110112,1)
+		opval[off-1]=2
+		off=off+1
+	end
+	local op=Duel.SelectOption(tp,table.unpack(ops))
+	local sel=opval[op]
+	e:SetLabel(sel)
+	if sel==1 then
+		e:SetCategory(CATEGORY_SPECIAL_SUMMON)
+		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+	else
+		e:SetCategory(CATEGORY_TODECK)
+		e:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+		Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_MZONE)
+	end
+end
+--
+function c1110112.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local sel=e:GetLabel()
+	if sel==1 then
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,c1110112.tfilter1_1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+		if g:GetCount()<1 then return end
+		local tc=g:GetFirst()
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+		local e1_3=Effect.CreateEffect(c)
+		e1_3:SetType(EFFECT_TYPE_SINGLE)
+		e1_3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1_3:SetCode(EFFECT_ADD_TYPE)
+		e1_3:SetValue(TYPE_SPIRIT)
+		e1_3:SetReset(RESET_EVENT+0x1fe0000)
+		tc:RegisterEffect(e1_3,true)
+		tc:RegisterFlagEffect(1110112,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(1110112,6))
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local g=Duel.SelectMatchingCard(tp,c1110112.tfilter1_2,tp,0,LOCATION_MZONE,1,1,nil)
+		if g:GetCount()<1 then return end
+		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+	end
+end
+--
+function c1110112.con2(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
+end
+--
+function c1110112.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local b1=Duel.IsExistingMatchingCard(c1110112.tfilter1_1,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+	local b2=Duel.IsExistingMatchingCard(c1110112.tfilter1_2,tp,0,LOCATION_MZONE,1,nil)
+	if chk==0 then return (b1 or b2) and Duel.GetFlagEffect(tp,1110004)>0 end
+	local off=1
+	local ops={}
+	local opval={}
+	if b1 then
+		ops[off]=aux.Stringid(1110112,0)
+		opval[off-1]=1
+		off=off+1
+	end
+	if b2 then
+		ops[off]=aux.Stringid(1110112,1)
+		opval[off-1]=2
+		off=off+1
+	end
+	local op=Duel.SelectOption(tp,table.unpack(ops))
+	local sel=opval[op]
+	e:SetLabel(sel)
+	if sel==1 then
+		e:SetCategory(CATEGORY_SPECIAL_SUMMON)
+		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+	else
+		e:SetCategory(CATEGORY_TODECK)
+		e:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+		Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_MZONE)
+	end
+end
+--
+function c1110112.tfilter3(c)
+	return c:IsCode(1110142) and c:IsAbleToHand()
+end
+function c1110112.tg3(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.IsExistingMatchingCard(c1110112.tfilter3,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+--
+function c1110112.op3(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c1110112.tfilter3,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()<1 then return end
+	Duel.SendtoHand(g,nil,REASON_EFFECT)
+	Duel.ConfirmCards(1-tp,g)
+end
+--

expansions/script/c1110114.lua

---命运之书
-local m=1110114
-local cm=_G["c"..m]
-xpcall(function() require("expansions/script/c1110198") end,function() require("script/c1110198") end)
-cm.named_with_Urban=true
---
-function c1110114.initial_effect(c)
---
-	c:EnableReviveLimit()
-	aux.AddFusionProcMix(c,true,true,c1110114.FusFilter1,c1110114.FusFilter2)
---
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_ADJUST)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCondition(c1110114.con1)
-	e1:SetOperation(c1110114.op1)
-	c:RegisterEffect(e1)
---
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_CHAINING)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetOperation(c1110114.op2)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e3:SetCode(EVENT_CHAIN_SOLVED)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetOperation(c1110114.op3)
-	c:RegisterEffect(e3)
---
-end
---
-function c1110114.FusFilter1(c)
-	return c:IsLocation(LOCATION_MZONE) and c:IsType(TYPE_MONSTER)
-end
---
-function c1110114.FusFilter2(c)
-	return muxu.check_fusion_set_Urban(c)
-end
---
-function c1110114.con1(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():GetFlagEffect(1110114)<1
-end
---
-function c1110114.op1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	c:RegisterFlagEffect(1110114,RESET_EVENT+0x1fe0000,0,1)
-	local fg=c:GetMaterial()
-	if fg:GetCount()<1 then return end
-	local fc=fg:GetFirst()
-	while fc do
-		if bit.band(fc:GetOriginalType(),TYPE_MONSTER)~=0 then
-			local code=fc:GetOriginalCode()
-			c:CopyEffect(code,RESET_EVENT+0x1fe0000,0,1)
-		end
-		fc=fg:GetNext()
-	end
-end
---
-function c1110114.op2(e,tp,eg,ep,ev,re,r,rp)
-	local rc=re:GetHandler()
-	if not rc:IsControler(tp) then return end
-	if not rc:IsRelateToEffect(re) then return end
-	if not muxu.check_set_Legend(rc) then return end
-	rc:RegisterFlagEffect(1110114,RESET_EVENT+0x1fe0000,0,0)
-end
---
-function c1110114.ofilter3_1(c,tp)
-	return c:GetFlagEffect(1110114)>0
-		and c:IsStatus(STATUS_LEAVE_CONFIRMED)
-end
-function c1110114.op3(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local ft=Duel.GetMZoneCount(tp)
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
-	local sg=Duel.GetMatchingGroup(c1110114.ofilter3_1,tp,LOCATION_SZONE,0,nil,tp)
-	if sg:GetCount()<1 then return end
-	local ng=Group.CreateGroup()
-	local lc=sg:GetFirst()
-	while lc do
-		Duel.ResetFlagEffect(lc,1110114)
-		if Duel.IsPlayerCanSpecialSummonMonster(tp,lc:GetCode(),nil,0x221,0,0,3,RACE_PSYCHO,ATTRIBUTE_LIGHT,POS_FACEUP) then 
-			ng:AddCard(lc) 
-		end
-		lc=sg:GetNext()
-	end
-	local num=ng:GetCount()
-	if num<1 then return end
-	if ft<num then num=ft end
-	if Duel.SelectYesNo(tp,aux.Stringid(1110114,0)) then
-		if num>1 then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-			local tg=ng:Select(tp,1,num,nil)
-			local tc=tg:GetFirst()
-			while tc do
-				tc:AddMonsterAttribute(TYPE_EFFECT+TYPE_SPIRIT,ATTRIBUTE_LIGHT,RACE_PSYCHO,3,0,0)
-				Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP)
-				tc:AddMonsterAttributeComplete()
-				local e3_2=Effect.CreateEffect(c)
-				e3_2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-				e3_2:SetCode(EVENT_SPSUMMON_SUCCESS)
-				e3_2:SetOperation(c1110114.op3_2)
-				tc:RegisterEffect(e3_2,true)
-				tc=tg:GetNext()
-			end
-			Duel.SpecialSummonComplete()
-		else
-			local nc=ng:GetFirst()
-			nc:AddMonsterAttribute(TYPE_EFFECT+TYPE_SPIRIT,ATTRIBUTE_LIGHT,RACE_PSYCHO,3,0,0)
-			Duel.SpecialSummonStep(nc,0,tp,tp,true,false,POS_FACEUP)
-			nc:AddMonsterAttributeComplete()
-			local e3_2=Effect.CreateEffect(c)
-			e3_2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-			e3_2:SetCode(EVENT_SPSUMMON_SUCCESS)
-			e3_2:SetOperation(c1110114.op3_2)
-			nc:RegisterEffect(e3_2,true)
-			Duel.SpecialSummonComplete()
-		end
-	end
-end
---
-function c1110114.op3_2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local e3_3=Effect.CreateEffect(c)
-	e3_3:SetDescription(1104)
-	e3_3:SetCategory(CATEGORY_TOHAND)
-	e3_3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e3_3:SetCode(EVENT_PHASE+PHASE_END)
-	e3_3:SetRange(LOCATION_MZONE)
-	e3_3:SetCountLimit(1)
-	e3_3:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END)
-	e3_3:SetCondition(aux.SpiritReturnCondition)
-	e3_3:SetTarget(c1110114.tg3_3)
-	e3_3:SetOperation(c1110114.op3_3)
-	c:RegisterEffect(e3_3)
-	local e3_4=e3_3:Clone()
-	e3_4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	c:RegisterEffect(e3_4)
-end
---
-function c1110114.tg3_3(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then
-		if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then return true
-		else return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
-	end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND)
-end
---
-function c1110114.op3_3(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsFaceup() then return end
-	if not c:IsRelateToEffect(e) then return end
-	Duel.SendtoHand(c,nil,REASON_EFFECT)
-end
---
+--命运之书
+local m=1110114
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/c1110198") end,function() require("script/c1110198") end)
+cm.named_with_Urban=true
+--
+function c1110114.initial_effect(c)
+--
+	c:EnableReviveLimit()
+	aux.AddFusionProcMix(c,true,true,c1110114.FusFilter1,c1110114.FusFilter2)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_ADJUST)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c1110114.con1)
+	e1:SetOperation(c1110114.op1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetOperation(c1110114.op2)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAIN_SOLVED)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetOperation(c1110114.op3)
+	c:RegisterEffect(e3)
+--
+end
+--
+function c1110114.FusFilter1(c)
+	return c:IsLocation(LOCATION_MZONE) and c:IsType(TYPE_MONSTER)
+end
+--
+function c1110114.FusFilter2(c)
+	return muxu.check_fusion_set_Urban(c)
+end
+--
+function c1110114.con1(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetFlagEffect(1110114)<1
+end
+--
+function c1110114.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	c:RegisterFlagEffect(1110114,RESET_EVENT+0x1fe0000,0,1)
+	local fg=c:GetMaterial()
+	if fg:GetCount()<1 then return end
+	local fc=fg:GetFirst()
+	while fc do
+		if bit.band(fc:GetOriginalType(),TYPE_MONSTER)~=0 and bit.band(fc:GetOriginalType(),TYPE_EFFECT)~=0 then
+			local code=fc:GetOriginalCode()
+			c:CopyEffect(code,RESET_EVENT+0x1fe0000,0,1)
+		end
+		fc=fg:GetNext()
+	end
+end
+--
+function c1110114.op2(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	if not rc:IsControler(tp) then return end
+	if not rc:IsRelateToEffect(re) then return end
+	if not muxu.check_set_Legend(rc) then return end
+	rc:RegisterFlagEffect(1110114,RESET_EVENT+0x1fe0000,0,0)
+end
+--
+function c1110114.ofilter3_1(c,tp)
+	return c:GetFlagEffect(1110114)>0
+		and c:IsStatus(STATUS_LEAVE_CONFIRMED)
+end
+function c1110114.op3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ft=Duel.GetMZoneCount(tp)
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
+	local sg=Duel.GetMatchingGroup(c1110114.ofilter3_1,tp,LOCATION_SZONE,0,nil,tp)
+	if sg:GetCount()<1 then return end
+	local ng=Group.CreateGroup()
+	local lc=sg:GetFirst()
+	while lc do
+		Duel.ResetFlagEffect(lc,1110114)
+		if Duel.IsPlayerCanSpecialSummonMonster(tp,lc:GetCode(),nil,0x221,0,0,3,RACE_PSYCHO,ATTRIBUTE_LIGHT,POS_FACEUP) then 
+			ng:AddCard(lc) 
+		end
+		lc=sg:GetNext()
+	end
+	local num=ng:GetCount()
+	if num<1 then return end
+	if ft<num then num=ft end
+	if Duel.SelectYesNo(tp,aux.Stringid(1110114,0)) then
+		if num>1 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local tg=ng:Select(tp,1,num,nil)
+			local tc=tg:GetFirst()
+			while tc do
+				tc:AddMonsterAttribute(TYPE_EFFECT+TYPE_SPIRIT,ATTRIBUTE_LIGHT,RACE_PSYCHO,3,0,0)
+				Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP)
+				tc:AddMonsterAttributeComplete()
+				local e3_2=Effect.CreateEffect(c)
+				e3_2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+				e3_2:SetCode(EVENT_SPSUMMON_SUCCESS)
+				e3_2:SetOperation(c1110114.op3_2)
+				tc:RegisterEffect(e3_2,true)
+				tc=tg:GetNext()
+			end
+			Duel.SpecialSummonComplete()
+		else
+			local nc=ng:GetFirst()
+			nc:AddMonsterAttribute(TYPE_EFFECT+TYPE_SPIRIT,ATTRIBUTE_LIGHT,RACE_PSYCHO,3,0,0)
+			Duel.SpecialSummonStep(nc,0,tp,tp,true,false,POS_FACEUP)
+			nc:AddMonsterAttributeComplete()
+			local e3_2=Effect.CreateEffect(c)
+			e3_2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+			e3_2:SetCode(EVENT_SPSUMMON_SUCCESS)
+			e3_2:SetOperation(c1110114.op3_2)
+			nc:RegisterEffect(e3_2,true)
+			Duel.SpecialSummonComplete()
+		end
+	end
+end
+--
+function c1110114.op3_2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e3_3=Effect.CreateEffect(c)
+	e3_3:SetDescription(1104)
+	e3_3:SetCategory(CATEGORY_TOHAND)
+	e3_3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3_3:SetCode(EVENT_PHASE+PHASE_END)
+	e3_3:SetRange(LOCATION_MZONE)
+	e3_3:SetCountLimit(1)
+	e3_3:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END)
+	e3_3:SetCondition(aux.SpiritReturnCondition)
+	e3_3:SetTarget(c1110114.tg3_3)
+	e3_3:SetOperation(c1110114.op3_3)
+	c:RegisterEffect(e3_3)
+	local e3_4=e3_3:Clone()
+	e3_4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	c:RegisterEffect(e3_4)
+end
+--
+function c1110114.tg3_3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then return true
+		else return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND)
+end
+--
+function c1110114.op3_3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsFaceup() then return end
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SendtoHand(c,nil,REASON_EFFECT)
+end
+--

expansions/script/c1111223.lua

---灵曲·年华静谧之月
-local m=1111223
-local cm=_G["c"..m]
-xpcall(function() require("expansions/script/c1110198") end,function() require("script/c1110198") end)
-cm.named_with_Soul=true
---
-function c1111223.initial_effect(c)
---
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EFFECT_DESTROY_REPLACE)
-	e1:SetRange(LOCATION_SZONE)
-	e1:SetTarget(c1111223.tg1)
-	c:RegisterEffect(e1)
---
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(1111223,0))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_SZONE)
-	e2:SetCountLimit(1)
-	e2:SetCost(c1111223.cost2)
-	e2:SetOperation(c1111223.op2)
-	c:RegisterEffect(e2)
---
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetRange(LOCATION_SZONE)
-	e3:SetOperation(c1111223.op3)
-	c:RegisterEffect(e3)
---
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e4:SetCode(EVENT_CHAINING)
-	e4:SetRange(LOCATION_SZONE)
-	e4:SetOperation(c1111223.op4)
-	c:RegisterEffect(e4)
---
-	if not c1111223.global_check then
-		c1111223.global_check=true
-		local e5=Effect.GlobalEffect()
-		e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e5:SetCode(EVENT_CHAINING)
-		e5:SetCondition(c1111223.con5)
-		e5:SetOperation(c1111223.op5)
-		Duel.RegisterEffect(e5,0)
-	end
---
-	local e6=Effect.CreateEffect(c)
-	e6:SetType(EFFECT_TYPE_FIELD)
-	e6:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
-	e6:SetRange(LOCATION_SZONE)
-	e6:SetTargetRange(0,LOCATION_MZONE)
-	e6:SetTarget(c1111223.tg6)
-	c:RegisterEffect(e6)
---
-end
---
-function c1111223.tfilter1(c,tp)
-	return c:IsReason(REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
-end
-function c1111223.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,LOCATION_ONFIELD,0x1111,1,REASON_EFFECT) and eg:IsExists(c1111223.tfilter1,1,c,tp) end
-	if Duel.SelectEffectYesNo(tp,c,96) then
-		return true
-	else return false end
-end
---
-function c1111223.op1(e,tp,eg,ep,ev,re,r,rp)
-	Duel.RemoveCounter(tp,LOCATION_ONFIELD,LOCATION_ONFIELD,0x1111,1,REASON_EFFECT)
-end
---
-function c1111223.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local num=Duel.GetMatchingGroupCount(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
-	if chk==0 then return num>0 and c:IsCanAddCounter(0x1111,num) end
-	c:AddCounter(0x1111,num)
-end
---
-function c1111223.op2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local b1=true
-	local b2=true
-	local off=1
-	local ops={}
-	local opval={}
-	if b1 then
-		ops[off]=aux.Stringid(1111223,1)
-		opval[off-1]=1
-		off=off+1
-	end
-	if b2 then
-		ops[off]=aux.Stringid(1111223,2)
-		opval[off-1]=2
-		off=off+1
-	end
-	local op=Duel.SelectOption(tp,table.unpack(ops))
-	local sel=opval[op]
-	if sel==1 then
-		c:ResetFlagEffect(1111223)
-		c:ResetFlagEffect(1111224)
-		c:RegisterFlagEffect(1111223,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,1))
-	else
-		c:ResetFlagEffect(1111223)
-		c:ResetFlagEffect(1111224)
-		c:RegisterFlagEffect(1111224,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,2))
-		c:RegisterFlagEffect(1111224,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,3))
-	end
-end
---
-function c1111223.op3(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:GetFlagEffect(1111223)<1 then return false end
-	Duel.SetChainLimitTillChainEnd(aux.FALSE)
-end
---
-function c1111223.op4(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:GetFlagEffect(1111224)<1 then return false end
-	Duel.SetChainLimit(aux.FALSE)
-end
---
-function c1111223.con5(e,tp,eg,ep,ev,re,r,rp)
-	return re:IsActiveType(TYPE_MONSTER)
-end
---
-function c1111223.op5(e,tp,eg,ep,ev,re,r,rp)
-	local c=re:GetHandler()
-	if not c:IsLocation(LOCATION_MZONE) then return end
-	c:RegisterFlagEffect(1111225,RESET_EVENT+0x1fe0000,0,0)
-end
---
-function c1111223.tg6(e,c)
-	return c:GetFlagEffect(1111225)>0
-end
---
+--灵曲·年华静谧之月
+local m=1111223
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/c1110198") end,function() require("script/c1110198") end)
+cm.named_with_Soul=true
+--
+function c1111223.initial_effect(c)
+--
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EFFECT_DESTROY_REPLACE)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetTarget(c1111223.tg1)
+	e1:SetValue(c1111223.val1)
+	e1:SetOperation(c1111223.op1)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(1111223,0))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1)
+	e2:SetCost(c1111223.cost2)
+	e2:SetOperation(c1111223.op2)
+	c:RegisterEffect(e2)
+--
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetOperation(c1111223.op3)
+	c:RegisterEffect(e3)
+--
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EVENT_CHAINING)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetOperation(c1111223.op4)
+	c:RegisterEffect(e4)
+--
+	if not c1111223.global_check then
+		c1111223.global_check=true
+		local e5=Effect.GlobalEffect()
+		e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e5:SetCode(EVENT_CHAINING)
+		e5:SetCondition(c1111223.con5)
+		e5:SetOperation(c1111223.op5)
+		Duel.RegisterEffect(e5,0)
+	end
+--
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_FIELD)
+	e6:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+	e6:SetRange(LOCATION_SZONE)
+	e6:SetTargetRange(0,LOCATION_MZONE)
+	e6:SetTarget(c1111223.tg6)
+	c:RegisterEffect(e6)
+--
+end
+--
+function c1111223.tfilter1(c,e,tp)
+	return c:IsLocation(LOCATION_ONFIELD) and c:IsReason(REASON_EFFECT) and not c:IsReason(REASON_REPLACE) and c~=e:GetHandler() 
+end
+function c1111223.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,LOCATION_ONFIELD,0x1111,1,REASON_EFFECT) and eg:IsExists(c1111223.tfilter1,1,c,e,tp) end
+	return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
+end
+--
+function c1111223.val1(e,c)
+	return c1111223.tfilter1(c,e,e:GetHandlerPlayer())
+end
+--
+function c1111223.op1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.RemoveCounter(tp,LOCATION_ONFIELD,LOCATION_ONFIELD,0x1111,1,REASON_EFFECT)
+end
+--
+function c1111223.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local num=Duel.GetMatchingGroupCount(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	if chk==0 then return num>0 and c:IsCanAddCounter(0x1111,num) end
+	c:AddCounter(0x1111,num)
+end
+--
+function c1111223.op2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local b1=true
+	local b2=true
+	local off=1
+	local ops={}
+	local opval={}
+	if b1 then
+		ops[off]=aux.Stringid(1111223,1)
+		opval[off-1]=1
+		off=off+1
+	end
+	if b2 then
+		ops[off]=aux.Stringid(1111223,2)
+		opval[off-1]=2
+		off=off+1
+	end
+	local op=Duel.SelectOption(tp,table.unpack(ops))
+	local sel=opval[op]
+	if sel==1 then
+		c:ResetFlagEffect(1111223)
+		c:ResetFlagEffect(1111224)
+		c:RegisterFlagEffect(1111223,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,1))
+	else
+		c:ResetFlagEffect(1111223)
+		c:ResetFlagEffect(1111224)
+		c:RegisterFlagEffect(1111224,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,2))
+		c:RegisterFlagEffect(1111224,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,3))
+	end
+end
+--
+function c1111223.op3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:GetFlagEffect(1111223)<1 then return end
+	Duel.SetChainLimitTillChainEnd(aux.FALSE)
+end
+--
+function c1111223.op4(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:GetFlagEffect(1111224)<1 then return end
+	Duel.SetChainLimit(aux.FALSE)
+end
+--
+function c1111223.con5(e,tp,eg,ep,ev,re,r,rp)
+	return re:IsActiveType(TYPE_MONSTER)
+end
+--
+function c1111223.op5(e,tp,eg,ep,ev,re,r,rp)
+	local c=re:GetHandler()
+	if not c:IsLocation(LOCATION_MZONE) then return end
+	c:RegisterFlagEffect(1111225,RESET_EVENT+0x1fe0000,0,0)
+end
+--
+function c1111223.tg6(e,c)
+	return c:GetFlagEffect(1111225)>0
+end
+--