Merge pull request #2 from Sonic714/master

resolve conflicts #1

expansions/script/c71400001.lua

---梦见
-	yume=yume or {}
-	yume.temp_card_field=yume.temp_card_field or {}
-if c71400001 then
-function c71400001.initial_effect(c)
-	--Activate(nofield)
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400001,1))
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCondition(yume.nonYumeCon)
-	e1:SetTarget(yume.YumeFieldCheckTarget(0,1))
-	e1:SetCost(c71400001.cost)
-	e1:SetOperation(c71400001.activate1)
-	e1:SetCountLimit(1,71400001+EFFECT_COUNT_CODE_OATH)
-	c:RegisterEffect(e1)
-	--Activate(field)
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400001,2))
-	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e2:SetType(EFFECT_TYPE_ACTIVATE)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetCondition(yume.YumeCon)
-	e2:SetTarget(c71400001.target2)
-	e2:SetCost(c71400001.cost)
-	e2:SetOperation(c71400001.activate2)
-	e2:SetCountLimit(1,71400001+EFFECT_COUNT_CODE_OATH)
-	c:RegisterEffect(e2)
-end
-function c71400001.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckLPCost(tp,500) end
-	Duel.PayLPCost(tp,500)
-end
-function c71400001.activate1(e,tp,eg,ep,ev,re,r,rp)
-	yume.FieldActivation(tp,nil,1)
-end
-function c71400001.activate2(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c71400001.filter2,tp,LOCATION_DECK,0,1,1,nil,tp)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end
-function c71400001.filter1(c,tp)
-	return c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true) and c:IsSetCard(0xb714)
-end
-function c71400001.filter2(c,tp)
-	return c:IsSetCard(0x714) and c:IsAbleToHand() and not c:IsCode(71400001)
-end
-function c71400001.target2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400001.filter2,tp,LOCATION_DECK,0,1,nil,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-end
---global part
-table=require("table")
-function yume.AddYumeSummonLimit(c,ssm)
---1=special summon monster, 0=non special summon monster
-	ssm=ssm or 0
-	local el1=Effect.CreateEffect(c)
-	el1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	el1:SetType(EFFECT_TYPE_SINGLE)
-	el1:SetCode(EFFECT_SPSUMMON_CONDITION)
-	el1:SetValue(yume.YumeCheck)
-	c:RegisterEffect(el1)
-	if ssm==0 then
-		local el2=Effect.CreateEffect(c)
-		el2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-		el2:SetType(EFFECT_TYPE_SINGLE)
-		el2:SetCode(EFFECT_CANNOT_MSET)
-		el2:SetCondition(yume.YumeCheck2)
-		c:RegisterEffect(el2)
-		local el3=el2:Clone()
-		el3:SetCode(EFFECT_CANNOT_SUMMON)
-		c:RegisterEffect(el3)
-	end
-end
-function yume.GetValueType(v)
-	local t=type(v)
-	if t=="userdata" then
-		local mt=getmetatable(v)
-		if mt==Group then return "Group"
-		elseif mt==Effect then return "Effect"
-		else return "Card" end
-	else return t end
-end
-function yume.YumeCheckFilter(c)
-	return c:IsFaceup() and c:IsSetCard(0x3714)
-end
-function yume.IsYumeFieldOnField(tp)
-	return Duel.IsExistingMatchingCard(yume.YumeCheckFilter,tp,LOCATION_FZONE,0,1,nil)
-end
---[[
-Yume SpSummon Check
-v in effect = spsummon condition value(return true = can summon)
-v in card = material filter gen(return true = can summon)
---]]
-function yume.YumeCheck(v,se,sp)
-	local t=yume.GetValueType(v)
-	if t=="Effect" then
-		return yume.IsYumeFieldOnField(sp)
-	elseif t=="Card" then
-		return function(c) return yume.IsYumeFieldOnField(v:GetControler()) end
-	end
-end
---[[
-Yume Summon/Set Check
-return true = cannot summon
---]]
-function yume.YumeCheck2(e)
-	return not yume.IsYumeFieldOnField(e:GetHandler():GetControler())
-end
---Yume Condition
-function yume.YumeCon(e,tp,eg,ep,ev,re,r,rp)
-	if not tp then tp=e:GetHandlerPlayer() end
-	return yume.IsYumeFieldOnField(tp)
-end
---Yume Condition for lethal weapons
-function yume.YumeLethalCon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetTurnPlayer()==tp and yume.YumeCon(e,tp,eg,ep,ev,re,r,rp)
-end
-function yume.nonYumeCon(e,tp,eg,ep,ev,re,r,rp)
-	if not tp then tp=e:GetHandlerPlayer() end
-	return not yume.IsYumeFieldOnField(tp)
-end
---ft=field type, 0-All Yume 1-Visionary Yume 2-Erosive Yume
---loc=location
-function yume.AddYumeFieldGlobal(c,id,ft)
-	ft=ft or 0
-	if not id then return end
-	yume.temp_card_field[c]=yume.temp_card_field[c] or {}
-	yume.temp_card_field[c].id=id
-	yume.temp_card_field[c].ft=ft
-	--Activate
-	local eac=Effect.CreateEffect(c)
-	eac:SetType(EFFECT_TYPE_ACTIVATE)
-	eac:SetCode(EVENT_FREE_CHAIN)
-	eac:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
-	c:RegisterEffect(eac)
-	--self limitation
-	local esl=Effect.CreateEffect(c)
-	esl:SetDescription(aux.Stringid(71400001,1))
-	esl:SetType(EFFECT_TYPE_QUICK_F)
-	esl:SetCode(EVENT_CHAINING)
-	esl:SetRange(LOCATION_FZONE)
-	esl:SetCondition(yume.YumeFieldLimitCon)
-	esl:SetOperation(yume.YumeFieldLimitOp)
-	c:RegisterEffect(esl)
-	--field activation
-	local efa=Effect.CreateEffect(c)
-	efa:SetDescription(aux.Stringid(71400001,2))
-	efa:SetCategory(EFFECT_TYPE_ACTIVATE)
-	efa:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	efa:SetCode(EVENT_LEAVE_FIELD)
-	efa:SetRange(LOCATION_FZONE)
-	efa:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
-	efa:SetCondition(yume.FieldActivationCon)
-	efa:SetOperation(yume.FieldActivationOp)
-	c:RegisterEffect(efa)
-end
---Against Yume
-function yume.YumeFieldLimitCon(e,tp,eg,ep,ev,re,r,rp)
-	local ec=re:GetHandler()
-	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
-	return re:IsActiveType(TYPE_MONSTER) and rp==tp and (not ec:IsSetCard(0x714) and (ec:IsLocation(loc) or loc&LOCATION_ONFIELD==0) or not (ec:IsPreviousSetCard(0x714) or ec:IsLocation(loc)) and loc&LOCATION_ONFIELD~=0)
-end
-function yume.YumeFieldLimitOp(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) then return end
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x714))
-	e1:SetTargetRange(1,0)
-	Duel.RegisterEffect(e1,tp)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetCode(EFFECT_CANNOT_SUMMON)
-	e2:SetReset(RESET_PHASE+PHASE_END)
-	e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x714))
-	e2:SetTargetRange(1,0)
-	Duel.RegisterEffect(e2,tp)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e3:SetCode(EFFECT_CANNOT_MSET)
-	e3:SetReset(RESET_PHASE+PHASE_END)
-	e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x714))
-	e3:SetTargetRange(1,0)
-	Duel.RegisterEffect(e3,tp)
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_FIELD)
-	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e4:SetReset(RESET_PHASE+PHASE_END)
-	e4:SetValue(yume.YumeFieldActivationLimit)
-	e4:SetTargetRange(1,0)
-	Duel.RegisterEffect(e4,tp)
-end
-function yume.YumeFieldActivationLimit(e,re,tp)
-	local c=re:GetHandler()
-	return c:IsSetCard(0x714) and not c:IsImmuneToEffect(e)
-end
---Field Activation
-function yume.YumeFieldCheck(tp,num,ft,loc)
-	ft=ft or 0
-	num=num or 0
-	loc=loc or LOCATION_DECK
-	return Duel.IsExistingMatchingCard(yume.FieldActivationFilter,tp,loc,0,1,nil,tp,num,ft)
-end
-function yume.YumeFieldCheckTarget(num,ft,loc)
-	return function(e,tp,eg,ep,ev,re,r,rp,chk)
-		if chk==0 then return yume.YumeFieldCheck(tp,num,ft,loc) end
-	end
-end
-function yume.FieldActivation(tp,num,ft,loc)
-	ft=ft or 0
-	num=num or 0
-	loc=loc or LOCATION_DECK
-	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(71400001,3))
-	local tc=Duel.SelectMatchingCard(tp,yume.FieldActivationFilter,tp,loc,0,1,1,nil,tp,num,ft):GetFirst()
-	if tc then
-		local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
-		if fc then
-			Duel.SendtoGrave(fc,REASON_RULE)
-			Duel.BreakEffect()
-		end
-		Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
-		local te=tc:GetActivateEffect()
-		te:UseCountLimit(tp,1,true)
-		local tep=tc:GetControler()
-		local cost=te:GetCost()
-		if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
-		local id=yume.temp_card_field[tc].id or 0
-		Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
-		return tc
-	end
-end
-function yume.FieldActivationFilter(c,tp,num,ft)
-	local flag=c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true,true) and not c:IsCode(num)
-	if ft==0 then return flag and c:IsSetCard(0x3714)
-	elseif ft==1 then return flag and c:IsSetCard(0xb714)
-	elseif ft==2 then return flag and c:IsSetCard(0x7714)
-	end
-end
-function yume.FieldActivationCon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsReason(REASON_EFFECT) and not c:IsLocation(LOCATION_DECK)
-		and c:IsPreviousPosition(POS_FACEUP)
-end
-function yume.FieldActivationOp(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local num=yume.temp_card_field[c].id
-	local ft=yume.temp_card_field[c].ft
-	yume.FieldActivation(tp,num,ft,LOCATION_DECK+LOCATION_HAND)
-end
---uniquify the same name
-function yume.UniquifyCardName(g)
-	local tc=g:GetFirst()
-	while tc do
-		g:Remove(Card.IsCode,tc,tc:GetCode())
-		tc=g:GetNext()
-	end
+--梦见
+	yume=yume or {}
+	yume.temp_card_field=yume.temp_card_field or {}
+if c71400001 then
+function c71400001.initial_effect(c)
+	--Activate(nofield)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400001,1))
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCondition(yume.nonYumeCon)
+	e1:SetTarget(yume.YumeFieldCheckTarget(0,1))
+	e1:SetCost(c71400001.cost)
+	e1:SetOperation(c71400001.activate1)
+	e1:SetCountLimit(1,71400001+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(e1)
+	--Activate(field)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400001,2))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCondition(yume.YumeCon)
+	e2:SetTarget(c71400001.target2)
+	e2:SetCost(c71400001.cost)
+	e2:SetOperation(c71400001.activate2)
+	e2:SetCountLimit(1,71400001+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(e2)
+end
+function c71400001.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,500) end
+	Duel.PayLPCost(tp,500)
+end
+function c71400001.activate1(e,tp,eg,ep,ev,re,r,rp)
+	yume.FieldActivation(tp,nil,1)
+end
+function c71400001.activate2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c71400001.filter2,tp,LOCATION_DECK,0,1,1,nil,tp)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c71400001.filter1(c,tp)
+	return c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true) and c:IsSetCard(0xb714)
+end
+function c71400001.filter2(c,tp)
+	return c:IsSetCard(0x714) and c:IsAbleToHand() and not c:IsCode(71400001)
+end
+function c71400001.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400001.filter2,tp,LOCATION_DECK,0,1,nil,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+end
+--global part
+table=require("table")
+yume.RustFlag=false
+function yume.AddYumeSummonLimit(c,ssm)
+--1=special summon monster, 0=non special summon monster
+	ssm=ssm or 0
+	local el1=Effect.CreateEffect(c)
+	el1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	el1:SetType(EFFECT_TYPE_SINGLE)
+	el1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	el1:SetValue(yume.YumeCheck)
+	c:RegisterEffect(el1)
+	if ssm==0 then
+		local el2=Effect.CreateEffect(c)
+		el2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+		el2:SetType(EFFECT_TYPE_SINGLE)
+		el2:SetCode(EFFECT_CANNOT_MSET)
+		el2:SetCondition(yume.YumeCheck2)
+		c:RegisterEffect(el2)
+		local el3=el2:Clone()
+		el3:SetCode(EFFECT_CANNOT_SUMMON)
+		c:RegisterEffect(el3)
+	end
+end
+function yume.GetValueType(v)
+	local t=type(v)
+	if t=="userdata" then
+		local mt=getmetatable(v)
+		if mt==Group then return "G"
+		elseif mt==Effect then return "E"
+		else return "C" end
+	else return t end
+end
+function yume.YumeCheckFilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x3714)
+end
+function yume.IsYumeFieldOnField(tp)
+	local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
+	return fc and yume.YumeCheckFilter(fc)
+end
+--[[
+Yume SpSummon Check
+v in effect = spsummon condition value(return true = can summon)
+v in card = material filter gen(return true = can summon)
+--]]
+function yume.YumeCheck(v,se,sp)
+	local t=yume.GetValueType(v)
+	if t=="E" then
+		return yume.IsYumeFieldOnField(sp)
+	elseif t=="C" then
+		return function(c) return yume.IsYumeFieldOnField(v:GetControler()) end
+	end
+end
+--[[
+Yume Summon/Set Check
+return true = cannot summon
+--]]
+function yume.YumeCheck2(e)
+	return not yume.IsYumeFieldOnField(e:GetHandler():GetControler())
+end
+--Yume Condition
+function yume.YumeCon(e,tp,eg,ep,ev,re,r,rp)
+	if not tp then tp=e:GetHandlerPlayer() end
+	return yume.IsYumeFieldOnField(tp)
+end
+--Yume Condition for lethal weapons
+function yume.YumeLethalCon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp and yume.YumeCon(e,tp,eg,ep,ev,re,r,rp)
+end
+function yume.nonYumeCon(e,tp,eg,ep,ev,re,r,rp)
+	if not tp then tp=e:GetHandlerPlayer() end
+	return not yume.IsYumeFieldOnField(tp)
+end
+--ft=field type, 0-All Yume 1-Visionary Yume 2-Erosive Yume
+--loc=location
+function yume.AddYumeFieldGlobal(c,id,ft)
+	ft=ft or 0
+	if not id then return end
+	yume.temp_card_field[c]=yume.temp_card_field[c] or {}
+	yume.temp_card_field[c].id=id
+	yume.temp_card_field[c].ft=ft
+	--Activate
+	local eac=Effect.CreateEffect(c)
+	eac:SetType(EFFECT_TYPE_ACTIVATE)
+	eac:SetCode(EVENT_FREE_CHAIN)
+	eac:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(eac)
+	--[[--old self limitation
+	local esl=Effect.CreateEffect(c)
+	esl:SetDescription(aux.Stringid(71400001,1))
+	esl:SetType(EFFECT_TYPE_QUICK_F)
+	esl:SetCode(EVENT_CHAINING)
+	esl:SetRange(LOCATION_FZONE)
+	esl:SetCondition(yume.YumeFieldLimitCon)
+	esl:SetOperation(yume.YumeFieldLimitOp)
+	c:RegisterEffect(esl)
+	--]]
+	--self to deck
+	local esd1=Effect.CreateEffect(c)
+	esd1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	esd1:SetCode(EVENT_CHAINING)
+	esd1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	esd1:SetRange(LOCATION_FZONE)
+	esd1:SetOperation(aux.chainreg)
+	c:RegisterEffect(esd1)
+	local esd2=Effect.CreateEffect(c)
+	esd2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	esd2:SetCode(EVENT_CHAIN_SOLVED)
+	esd2:SetRange(LOCATION_FZONE)
+	esd2:SetOperation(yume.SelfToDeckOp)
+	c:RegisterEffect(esd2)
+	--field activation
+	local efa=Effect.CreateEffect(c)
+	efa:SetDescription(aux.Stringid(71400001,2))
+	efa:SetCategory(EFFECT_TYPE_ACTIVATE)
+	efa:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	efa:SetCode(EVENT_LEAVE_FIELD)
+	efa:SetRange(LOCATION_FZONE)
+	efa:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	efa:SetCondition(yume.FieldActivationCon)
+	efa:SetOperation(yume.FieldActivationOp)
+	c:RegisterEffect(efa)
+end
+--[[--old Against Yume
+function yume.YumeFieldLimitCon(e,tp,eg,ep,ev,re,r,rp)
+	local ec=re:GetHandler()
+	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
+	return re:IsActiveType(TYPE_MONSTER) and rp==tp and (not ec:IsSetCard(0x714) and (ec:IsLocation(loc) or loc&LOCATION_ONFIELD==0) or not (ec:IsPreviousSetCard(0x714) or ec:IsLocation(loc)) and loc&LOCATION_ONFIELD~=0)
+end
+function yume.YumeFieldLimitOp(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x714))
+	e1:SetTargetRange(1,0)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(EFFECT_CANNOT_SUMMON)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x714))
+	e2:SetTargetRange(1,0)
+	Duel.RegisterEffect(e2,tp)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCode(EFFECT_CANNOT_MSET)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x714))
+	e3:SetTargetRange(1,0)
+	Duel.RegisterEffect(e3,tp)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e4:SetReset(RESET_PHASE+PHASE_END)
+	e4:SetValue(yume.YumeFieldActivationLimit)
+	e4:SetTargetRange(1,0)
+	Duel.RegisterEffect(e4,tp)
+end
+function yume.YumeFieldActivationLimit(e,re,tp)
+	local c=re:GetHandler()
+	return c:IsSetCard(0x714)
+end
+--]]
+--Self To Deck
+function yume.SelfToDeckOp(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not re:GetHandler():IsSetCard(0x714) and c:GetFlagEffect(1)>0 then
+		Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
+	end
+end
+--Field Activation
+function yume.YumeFieldCheck(tp,num,ft,loc)
+	ft=ft or 0
+	num=num or 0
+	loc=loc or LOCATION_DECK
+	return Duel.IsExistingMatchingCard(yume.FieldActivationFilter,tp,loc,0,1,nil,tp,num,ft)
+end
+function yume.YumeFieldCheckTarget(num,ft,loc)
+	return function(e,tp,eg,ep,ev,re,r,rp,chk)
+		if chk==0 then return yume.YumeFieldCheck(tp,num,ft,loc) end
+	end
+end
+function yume.FieldActivation(tp,num,ft,loc)
+	ft=ft or 0
+	num=num or 0
+	loc=loc or LOCATION_DECK
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(71400001,3))
+	local tc=Duel.SelectMatchingCard(tp,yume.FieldActivationFilter,tp,loc,0,1,1,nil,tp,num,ft):GetFirst()
+	if tc then
+		local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
+		if fc then
+			Duel.SendtoGrave(fc,REASON_RULE)
+			Duel.BreakEffect()
+		end
+		Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
+		local te=tc:GetActivateEffect()
+		te:UseCountLimit(tp,1,true)
+		local tep=tc:GetControler()
+		local cost=te:GetCost()
+		if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
+		local id=yume.temp_card_field[tc].id or 0
+		Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
+		return tc
+	end
+end
+function yume.FieldActivationFilter(c,tp,num,ft)
+	local flag=c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true,true) and not c:IsCode(num)
+	if ft==0 then return flag and c:IsSetCard(0x3714)
+	elseif ft==1 then return flag and c:IsSetCard(0xb714)
+	elseif ft==2 then return flag and c:IsSetCard(0x7714)
+	end
+end
+function yume.FieldActivationCon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsReason(REASON_EFFECT) and not c:IsLocation(LOCATION_DECK)
+		and c:IsPreviousPosition(POS_FACEUP)
+end
+function yume.FieldActivationOp(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local num=yume.temp_card_field[c].id
+	local ft=yume.temp_card_field[c].ft
+	yume.FieldActivation(tp,num,ft,LOCATION_DECK+LOCATION_HAND)
+end
+--uniquify the same name
+function yume.UniquifyCardName(g)
+	local tc=g:GetFirst()
+	while tc do
+		g:Remove(Card.IsCode,tc,tc:GetCode())
+		tc=g:GetNext()
+	end
 end
\ No newline at end of file

expansions/script/c71400002.lua

---冰雪中的梦之旅者
-function c71400002.initial_effect(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,71400002)
-	e1:SetCondition(c71400002.condition1)
-	c:RegisterEffect(e1)
-	--attribute
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetTargetRange(LOCATION_GRAVE+LOCATION_MZONE,0)
-	e2:SetCode(EFFECT_CHANGE_ATTRIBUTE)
-	e2:SetValue(ATTRIBUTE_WATER)
-	c:RegisterEffect(e2)
-	--to deck
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(71400002,0))
-	e3:SetCategory(CATEGORY_TODECK)
-	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMING_TOGRAVE)
-	e3:SetCode(EVENT_FREE_CHAIN)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetTarget(c71400002.target3)
-	e3:SetOperation(c71400002.operation3)
-	e3:SetCountLimit(1)
-	c:RegisterEffect(e3)
-end
-function c71400002.filter1(c)
-	return c:IsSetCard(0x714) and c:IsFaceup()
-end
-function c71400002.filter3(c)
-	return c:IsAbleToDeck() and c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_WATER)
-end
-function c71400002.condition1(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)>0
-		and Duel.IsExistingMatchingCard(c71400002.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
-end
-function c71400002.target3(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local c=e:GetHandler()
-	if chkc then return chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c71400002.filter3(chkc) and chkc~=c end
-	if chk==0 then return Duel.IsExistingTarget(c71400002.filter3,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,c) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectTarget(tp,c71400002.filter3,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,1,c)
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,LOCATION_MZONE+LOCATION_GRAVE)
-end
-function c71400002.operation3(e,tp,eg,ep,ev,re,r,rp,chk)
-	local tc=Duel.GetFirstTarget()
-	local c=e:GetHandler()
-	if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)>0 and c:IsRelateToEffect(e) then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetReset(RESET_EVENT+0x1ff0000)
-		e1:SetValue(500)
-		c:RegisterEffect(e1)
-	end
+--异梦旅者-冰冻子
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400002.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,71400002)
+	e1:SetCondition(c71400002.condition1)
+	c:RegisterEffect(e1)
+	--attribute
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_GRAVE+LOCATION_MZONE,0)
+	e2:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+	e2:SetValue(ATTRIBUTE_WATER)
+	e2:SetCondition(yume.YumeCon)
+	c:RegisterEffect(e2)
+	--to deck
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(71400002,0))
+	e3:SetCategory(CATEGORY_TODECK)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMING_TOGRAVE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTarget(c71400002.target3)
+	e3:SetOperation(c71400002.operation3)
+	e3:SetCountLimit(1)
+	c:RegisterEffect(e3)
+end
+function c71400002.filter1(c)
+	return c:IsSetCard(0x714) and c:IsFaceup()
+end
+function c71400002.filter3(c)
+	return c:IsAbleToDeck() and c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_WATER)
+end
+function c71400002.condition1(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)>0
+		and Duel.IsExistingMatchingCard(c71400002.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
+end
+function c71400002.target3(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local c=e:GetHandler()
+	if chkc then return chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c71400002.filter3(chkc) and chkc~=c end
+	if chk==0 then return Duel.IsExistingTarget(c71400002.filter3,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,c) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c71400002.filter3,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,1,c)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,LOCATION_MZONE+LOCATION_GRAVE)
+end
+function c71400002.operation3(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tc=Duel.GetFirstTarget()
+	local c=e:GetHandler()
+	if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)>0 and c:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetReset(RESET_EVENT+0x1ff0000)
+		e1:SetValue(500)
+		c:RegisterEffect(e1)
+	end
 end
\ No newline at end of file

expansions/script/c71400004.lua

---梦之公寓的圆盘人
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400004.initial_effect(c)
-	--summon limit
-	yume.AddYumeSummonLimit(c)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(c71400004.condition1)
-	c:RegisterEffect(e1)
-	--search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400004,0))
-	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCode(EVENT_BE_MATERIAL)
-	e2:SetCountLimit(1,71400004)
-	e2:SetCondition(c71400004.condition2)
-	e2:SetTarget(c71400004.target2)
-	e2:SetOperation(c71400004.operation2)
-	c:RegisterEffect(e2)
-end
-function c71400004.filter1(c)
-	return c:IsSetCard(0x714) and c:IsFaceup() and c:IsType(TYPE_TUNER)
-end
-function c71400004.condition1(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0
-		and Duel.IsExistingMatchingCard(c71400004.filter1,tp,LOCATION_MZONE,0,1,nil) and yume.YumeCheck(c)
-end
-function c71400004.filter2(c)
-	return c:IsSetCard(0xe714) and c:IsAbleToHand()
-end
-function c71400004.condition2(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO
-end
-function c71400004.target2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400004.filter2,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c71400004.operation2(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c71400004.filter2,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
+--梦之公寓的圆盘人
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400004.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(c71400004.condition1)
+	c:RegisterEffect(e1)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400004,0))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_BE_MATERIAL)
+	e2:SetCountLimit(1,71400004)
+	e2:SetCondition(c71400004.condition2)
+	e2:SetTarget(c71400004.target2)
+	e2:SetOperation(c71400004.operation2)
+	c:RegisterEffect(e2)
+end
+function c71400004.filter1(c)
+	return c:IsSetCard(0x714) and c:IsFaceup() and c:IsType(TYPE_TUNER)
+end
+function c71400004.condition1(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0
+		and Duel.IsExistingMatchingCard(c71400004.filter1,tp,LOCATION_MZONE,0,1,nil) and yume.YumeCheck(c)
+end
+function c71400004.filter2(c)
+	return c:IsSetCard(0xe714) and c:IsAbleToHand()
+end
+function c71400004.condition2(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO
+end
+function c71400004.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400004.filter2,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c71400004.operation2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c71400004.filter2,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
 end
\ No newline at end of file

expansions/script/c71400005.lua

---梦之钢琴师
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400005.initial_effect(c)
-	--summon limit
-	yume.AddYumeSummonLimit(c)
-	--summon success
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400005,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(c71400005.target1)
-	e1:SetCountLimit(1,71400005)
-	e1:SetOperation(c71400005.operation1)
-	c:RegisterEffect(e1)
-	--synchro effect
-	local e2=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400005,1))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetHintTiming(0,TIMING_BATTLE_START+TIMING_BATTLE_END)
-	e2:SetCountLimit(1)
-	e2:SetCondition(c71400005.condition2)
-	e2:SetTarget(c71400005.target2)
-	e2:SetOperation(c71400005.operation2)
-	c:RegisterEffect(e2)
-end
-function c71400005.filter1(c,e,sp)
-	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,sp,false,false)
-end
-function c71400005.target1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400005.filter1,tp,LOCATION_DECK,0,1,nil,e,tp)
-		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
-end
-function c71400005.operation1(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,c71400005.filter1,tp,LOCATION_DECK,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
-	end
-end
-function c71400005.condition2(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetTurnPlayer()==tp then return false end
-	local ph=Duel.GetCurrentPhase()
-	return ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2
-end
-function c71400005.filter2(c)
-	return c:IsSetCard(0x714)
-end
-function c71400005.synfilter(c,mg)
-	return c:IsSetCard(0x714) and c:IsSynchroSummonable(nil,mg)
-end
-function c71400005.target2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then
-		local mg=Duel.GetMatchingGroup(c71400005.filter2,tp,LOCATION_MZONE,0,nil)
-		return Duel.IsExistingMatchingCard(c71400005.synfilter,tp,LOCATION_EXTRA,0,1,nil,mg)
-	end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c71400005.operation2(e,tp,eg,ep,ev,re,r,rp)
-	local mg=Duel.GetMatchingGroup(c71400005.filter2,tp,LOCATION_MZONE,0,nil)
-	local g=Duel.GetMatchingGroup(c71400005.synfilter,tp,LOCATION_EXTRA,0,nil,mg)
-	if g:GetCount()>0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local sg=g:Select(tp,1,1,nil)
-		Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg)
-	end
+--梦之钢琴师
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400005.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--summon success
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400005,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(c71400005.target1)
+	e1:SetCountLimit(1,71400005)
+	e1:SetOperation(c71400005.operation1)
+	c:RegisterEffect(e1)
+	--synchro effect
+	local e2=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400005,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetHintTiming(0,TIMING_BATTLE_START+TIMING_BATTLE_END)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c71400005.condition2)
+	e2:SetTarget(c71400005.target2)
+	e2:SetOperation(c71400005.operation2)
+	c:RegisterEffect(e2)
+end
+function c71400005.filter1(c,e,sp)
+	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,sp,false,false)
+end
+function c71400005.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400005.filter1,tp,LOCATION_DECK,0,1,nil,e,tp)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c71400005.operation1(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,c71400005.filter1,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
+	end
+end
+function c71400005.condition2(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetTurnPlayer()==tp then return false end
+	local ph=Duel.GetCurrentPhase()
+	return ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2
+end
+function c71400005.filter2(c)
+	return c:IsSetCard(0x714)
+end
+function c71400005.synfilter(c,mg)
+	return c:IsSetCard(0x714) and c:IsSynchroSummonable(nil,mg)
+end
+function c71400005.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local mg=Duel.GetMatchingGroup(c71400005.filter2,tp,LOCATION_MZONE,0,nil)
+		return Duel.IsExistingMatchingCard(c71400005.synfilter,tp,LOCATION_EXTRA,0,1,nil,mg)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c71400005.operation2(e,tp,eg,ep,ev,re,r,rp)
+	local mg=Duel.GetMatchingGroup(c71400005.filter2,tp,LOCATION_MZONE,0,nil)
+	local g=Duel.GetMatchingGroup(c71400005.synfilter,tp,LOCATION_EXTRA,0,nil,mg)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg)
+	end
 end
\ No newline at end of file

expansions/script/c71400006.lua

---梦医院的梦之患者
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400006.initial_effect(c)
-	--summon limit
-	yume.AddYumeSummonLimit(c)
-	--summon success
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400006,0))
-	e1:SetCountLimit(1,71400006)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetTarget(c71400006.target1)
-	e1:SetOperation(c71400006.operation1)
-	c:RegisterEffect(e1)
-	local e1a=e1:Clone()
-	e1a:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e1a)
-	--self des
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400006,1))
-	e2:SetCategory(CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_QUICK_F)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCode(EVENT_BECOME_TARGET)
-	e2:SetCondition(c71400006.con2)
-	e2:SetTarget(c71400006.target2)
-	e2:SetOperation(c71400006.operation2)
-	c:RegisterEffect(e2)
-	local e2a=e2:Clone()
-	e2a:SetDescription(aux.Stringid(71400006,1))
-	e2a:SetCode(EVENT_BE_BATTLE_TARGET)
-	c:RegisterEffect(e2a)
-end
-function c71400006.filter1(c,e,tp)
-	return c:IsLevelBelow(4) and c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c71400006.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71400006.filter1(chkc,e,tp) end
-	if chk==0 then return Duel.IsExistingTarget(c71400006.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c71400006.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_GRAVE)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,LOCATION_MZONE)
-end
-function c71400006.operation1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
-		Duel.SpecialSummonComplete()
-		local dg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
-		if dg:GetCount()>0 then
-			Duel.BreakEffect()
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-			local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
-			Duel.HintSelection(g)
-			Duel.Remove(g:GetFirst(),POS_FACEUP,REASON_EFFECT)
-		end
-	end
-end
-function c71400006.con2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsContains(e:GetHandler())
-end
-function c71400006.target2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
-end
-function c71400006.operation2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.Destroy(c,REASON_EFFECT)
-	end
+--异梦医院的病人-青汁君
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400006.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--summon success
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400006,0))
+	e1:SetCountLimit(1,71400006)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(c71400006.target1)
+	e1:SetOperation(c71400006.operation1)
+	c:RegisterEffect(e1)
+	local e1a=e1:Clone()
+	e1a:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e1a)
+	--self des
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400006,1))
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_F)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_BECOME_TARGET)
+	e2:SetCondition(c71400006.con2)
+	e2:SetTarget(c71400006.target2)
+	e2:SetOperation(c71400006.operation2)
+	c:RegisterEffect(e2)
+	local e2a=e2:Clone()
+	e2a:SetDescription(aux.Stringid(71400006,1))
+	e2a:SetCode(EVENT_BE_BATTLE_TARGET)
+	c:RegisterEffect(e2a)
+end
+function c71400006.filter1(c,e,tp)
+	return c:IsLevelBelow(4) and c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c71400006.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71400006.filter1(chkc,e,tp) end
+	if chk==0 then return Duel.IsExistingTarget(c71400006.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c71400006.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,LOCATION_MZONE)
+end
+function c71400006.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
+		Duel.SpecialSummonComplete()
+		local dg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+		if dg:GetCount()>0 then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+			local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+			Duel.HintSelection(g)
+			Duel.Remove(g:GetFirst(),POS_FACEUP,REASON_EFFECT)
+		end
+	end
+end
+function c71400006.con2(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsContains(e:GetHandler())
+end
+function c71400006.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+end
+function c71400006.operation2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.Destroy(c,REASON_EFFECT)
+	end
 end
\ No newline at end of file

expansions/script/c71400007.lua

---梦之镇的路标
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400007.initial_effect(c)
-	--summon limit
-	yume.AddYumeSummonLimit(c)
-	--summon success
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetDescription(aux.Stringid(71400007,0))
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetCountLimit(1,71400007)
-	e1:SetTarget(c71400007.tg1)
-	e1:SetOperation(c71400007.op1)
-	c:RegisterEffect(e1)
-	local e1a=e1:Clone()
-	e1a:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e1a)
-	--gy banish
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetDescription(aux.Stringid(71400007,1))
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,71500007)
-	e2:SetCost(c71400007.cost)
-	e2:SetTarget(c71400007.target)
-	e2:SetOperation(c71400007.operation)
-	c:RegisterEffect(e2)
-end
-function c71400007.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local c=e:GetHandler()
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and Card.IsLinkState(chkc) and chkc~=c end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsLinkState,tp,LOCATION_MZONE,0,1,c) and Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_CONTROL)>0 end
-	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(71400007,2))
-	Duel.SelectTarget(tp,Card.IsLinkState,tp,LOCATION_MZONE,0,1,1,c)
-end
-function c71400007.op1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
-	local s=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0)
-	local nseq=math.log(s,2)
-	Duel.MoveSequence(tc,nseq)
-end
-function c71400007.filter(c,e,tp,zone)
-	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)
-end
-function c71400007.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
-	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
-end
-function c71400007.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local zone=Duel.GetLinkedZone(tp)
-	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c71400007.filter(chkc,e,tp,zone) end
-	if chk==0 then return zone~=0
-		and Duel.IsExistingTarget(c71400007.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp,zone) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local tg=Duel.SelectTarget(tp,c71400007.filter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp,zone)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tg,1,0,0)
-end
-function c71400007.operation(e,tp,eg,ep,ev,re,r,rp)
-	local zone=Duel.GetLinkedZone(tp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and zone~=0 then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP,zone)
-	end
+--异梦胡同的路标
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400007.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--draw
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400007,0))
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_BE_MATERIAL)
+	e1:SetCountLimit(1,71400007)
+	e1:SetCondition(c71400007.con1)
+	e1:SetTarget(c71400007.tg1)
+	e1:SetOperation(c71400007.op1)
+	c:RegisterEffect(e1)
+	--gy banish
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetDescription(aux.Stringid(71400007,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,71500007)
+	e2:SetCost(c71400007.cost)
+	e2:SetTarget(c71400007.target)
+	e2:SetOperation(c71400007.operation)
+	c:RegisterEffect(e2)
+end
+
+function c71400007.con1(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_LINK
+end
+function c71400007.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function c71400007.op1(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Draw(p,d,REASON_EFFECT)
+end
+function c71400007.filter(c,e,tp,zone)
+	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)
+end
+function c71400007.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+end
+function c71400007.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local zone=Duel.GetLinkedZone(tp)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c71400007.filter(chkc,e,tp,zone) end
+	if chk==0 then return zone~=0
+		and Duel.IsExistingTarget(c71400007.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp,zone) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local tg=Duel.SelectTarget(tp,c71400007.filter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp,zone)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tg,1,0,0)
+end
+function c71400007.operation(e,tp,eg,ep,ev,re,r,rp)
+	local zone=Duel.GetLinkedZone(tp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and zone~=0 then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP,zone)
+	end
 end
\ No newline at end of file

expansions/script/c71400008.lua

---梦之书中的三足怪物
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400008.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,3)
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--nuke
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400008,0))
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_QUICK_F)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCondition(c71400008.condition)
-	e1:SetCost(c71400008.cost)
-	e1:SetTarget(c71400008.target)
-	e1:SetOperation(c71400008.operation)
-	c:RegisterEffect(e1)
-end
-function c71400008.condition(e,tp,eg,ep,ev,re,r,rp)
-	return rp~=tp
-end
-function c71400008.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
-	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
-end
-function c71400008.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,e:GetHandler())
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),1-tp,0)
-end
-function c71400008.operation(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,e:GetHandler())
-	if Duel.Destroy(g,REASON_EFFECT)>0 then
-		Duel.BreakEffect()
-		Duel.SetLP(tp,Duel.GetLP(tp)-1500)
-	end
+--异梦书中的三足怪物
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400008.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,3)
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--nuke
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400008,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_QUICK_F)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c71400008.condition)
+	e1:SetCost(c71400008.cost)
+	e1:SetTarget(c71400008.target)
+	e1:SetOperation(c71400008.operation)
+	c:RegisterEffect(e1)
+end
+function c71400008.condition(e,tp,eg,ep,ev,re,r,rp)
+	return rp~=tp and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_ONFIELD,nil)>2
+end
+function c71400008.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c71400008.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),1-tp,0)
+end
+function c71400008.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,e:GetHandler())
+	if Duel.Destroy(g,REASON_EFFECT)>0 then
+		Duel.BreakEffect()
+		Duel.SetLP(tp,Duel.GetLP(tp)-1500)
+	end
 end
\ No newline at end of file

expansions/script/c71400009.lua

---梦之书中的公式证明图表
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400009.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--destroy
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_REMOVE)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e1:SetCode(EVENT_LEAVE_FIELD)
-	e1:SetDescription(aux.Stringid(71400009,0))
-	e1:SetCondition(c71400009.condition)
-	e1:SetTarget(c71400009.target)
-	e1:SetOperation(c71400009.operation)
-	c:RegisterEffect(e1)
-end
-function c71400009.condition(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local ct=c:GetOverlayCount()
-	e:SetLabel(ct)
-	return c:IsPreviousPosition(POS_FACEUP) and not c:IsLocation(LOCATION_DECK)
-end
-function c71400009.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,0,1-tp,LOCATION_ONFIELD+LOCATION_HAND)
-end
-function c71400009.operation(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_HAND,0,1,1,nil)
-	if g:GetCount()==0 then return end
-	if Duel.Destroy(g,REASON_EFFECT)~=0 then
-		local mcount=e:GetLabel()
-		if not mcount or mcount<=0 or not Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,mcount,nil) then return end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-		local sg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,mcount,mcount,nil)
-		Duel.HintSelection(sg)
-		if Duel.Destroy(sg,REASON_EFFECT)>0 then
-			Duel.BreakEffect()
-			Duel.SetLP(tp,Duel.GetLP(tp)-1000)
-		end
-	end
+--异梦书中的公式证明图表
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400009.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetDescription(aux.Stringid(71400009,0))
+	e1:SetCountLimit(1,71400009)
+	e1:SetTarget(c71400009.tg1)
+	e1:SetOperation(c71400009.op1)
+	c:RegisterEffect(e1)
+	--multi attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_EXTRA_ATTACK)
+	e2:SetValue(c71400009.raval)
+	c:RegisterEffect(e2)
+end
+function c71400009.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,0,0,0)
+end
+function c71400009.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local mcount=c:GetOverlayCount()
+	if mcount<=0 or not Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,mcount,nil) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local sg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,mcount,nil)
+	Duel.HintSelection(sg)
+	if Duel.Destroy(sg,REASON_EFFECT)>0 then
+		Duel.BreakEffect()
+		Duel.SetLP(tp,Duel.GetLP(tp)-1000)
+	end
+end
+function c71400009.raval(e,c)
+	local oc=e:GetHandler():GetOverlayCount()
+	return math.max(0,oc-1)
 end
\ No newline at end of file

expansions/script/c71400010.lua

---梦之书中的脑女
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400010.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--get all
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_CONTROL)
-	e1:SetDescription(aux.Stringid(71400010,0))
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetCountLimit(1,71400010)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCost(c71400010.cost)
-	e1:SetTarget(c71400010.target1)
-	e1:SetOperation(c71400010.operation1)
-	c:RegisterEffect(e1)
-	--lose one
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_CONTROL)
-	e2:SetDescription(aux.Stringid(71400010,1))
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e2:SetCode(EVENT_LEAVE_FIELD)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetTarget(c71400010.target2)
-	e2:SetOperation(c71400010.operation2)
-	e2:SetCondition(c71400010.condition2)
-	c:RegisterEffect(e2)
-end
-function c71400010.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) and Duel.GetCurrentPhase()~=PHASE_MAIN2 end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CANNOT_BP)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
-	e1:SetTargetRange(1,0)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
-end
-function c71400010.filter1(c)
-	return c:IsFaceup() and c:IsAbleToChangeControler()
-end
-function c71400010.target1(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE,1-tp,LOCATION_REASON_CONTROL)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400010.filter1,tp,0,LOCATION_MZONE,1,nil) and ft>0 end
-	local g=Duel.GetMatchingGroup(c71400010.filter1,tp,0,LOCATION_MZONE,c)
-	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,g:GetCount(),1-tp,LOCATION_MZONE)
-end
-function c71400010.operation1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE,1-tp,LOCATION_REASON_CONTROL)
-	local g=Duel.GetMatchingGroup(c71400010.filter1,tp,0,LOCATION_MZONE,c)
-	local ct=g:GetCount()
-	if ct>ft then ct=ft end
-	if ct<1 then return end
-	if ct<g:GetCount() then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
-		g=g:Select(tp,ct,ct,nil)
-	end
-	Duel.GetControl(g,tp)
-	local og=Duel.GetOperatedGroup()
-	if og:GetCount()<1 then return end
-	local tc=og:GetFirst()
-	local atk=0
-	while tc do
-		local tatk=tc:GetAttack()
-		if tatk>0 then atk=atk+tatk end
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_ADD_SETCODE)
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-		e1:SetValue(0x714)
-		e1:SetReset(RESET_EVENT+0x1fe0000)
-		tc:RegisterEffect(e1,true)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-		e2:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
-		e2:SetValue(1)
-		e2:SetReset(RESET_EVENT+0x1fe0000)
-		tc:RegisterEffect(e2,true)
-		tc=og:GetNext()
-	end
-	Duel.BreakEffect()
-	Duel.SetLP(tp,Duel.GetLP(tp)-atk/2)
-end
-function c71400010.condition2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsPreviousPosition(POS_FACEUP) and not c:IsLocation(LOCATION_DECK)
-end
-function c71400010.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:GetLocation()==LOCATION_MZONE and chkc:GetControler()==tp and chkc:IsControlerCanBeChanged() end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
-	local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,LOCATION_MZONE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,tp,LOCATION_MZONE)
-end
-function c71400010.operation2(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.GetControl(tc,1-tp)
-	end
+--异梦书中的脑女
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400010.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--get all
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_CONTROL)
+	e1:SetDescription(aux.Stringid(71400010,0))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetCountLimit(1,71400010)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c71400010.cost)
+	e1:SetTarget(c71400010.target1)
+	e1:SetOperation(c71400010.operation1)
+	c:RegisterEffect(e1)
+	--lose one
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_CONTROL)
+	e2:SetDescription(aux.Stringid(71400010,1))
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_LEAVE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetTarget(c71400010.target2)
+	e2:SetOperation(c71400010.operation2)
+	e2:SetCondition(c71400010.condition2)
+	c:RegisterEffect(e2)
+end
+function c71400010.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) and Duel.GetCurrentPhase()~=PHASE_MAIN2 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_BP)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetTargetRange(1,0)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c71400010.filter1(c)
+	return c:IsFaceup() and c:IsAbleToChangeControler()
+end
+function c71400010.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE,1-tp,LOCATION_REASON_CONTROL)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400010.filter1,tp,0,LOCATION_MZONE,1,nil) and ft>0 end
+	local g=Duel.GetMatchingGroup(c71400010.filter1,tp,0,LOCATION_MZONE,c)
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,g:GetCount(),1-tp,LOCATION_MZONE)
+end
+function c71400010.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE,1-tp,LOCATION_REASON_CONTROL)
+	local g=Duel.GetMatchingGroup(c71400010.filter1,tp,0,LOCATION_MZONE,c)
+	local ct=g:GetCount()
+	if ct>ft then ct=ft end
+	if ct<1 then return end
+	if ct<g:GetCount() then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+		g=g:Select(tp,ct,ct,nil)
+	end
+	Duel.GetControl(g,tp)
+	local og=Duel.GetOperatedGroup()
+	if og:GetCount()<1 then return end
+	local tc=og:GetFirst()
+	local atk=0
+	while tc do
+		local tatk=tc:GetAttack()
+		if tatk>0 then atk=atk+tatk end
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_ADD_SETCODE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+		e1:SetValue(0x714)
+		e1:SetReset(RESET_EVENT+0x1fe0000)
+		tc:RegisterEffect(e1,true)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+		e2:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+		e2:SetValue(1)
+		e2:SetReset(RESET_EVENT+0x1fe0000)
+		tc:RegisterEffect(e2,true)
+		tc=og:GetNext()
+	end
+	Duel.SetLP(tp,Duel.GetLP(tp)-atk/2)
+end
+function c71400010.condition2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousPosition(POS_FACEUP) and not c:IsLocation(LOCATION_DECK)
+end
+function c71400010.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:GetLocation()==LOCATION_MZONE and chkc:GetControler()==tp and chkc:IsControlerCanBeChanged() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+	local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,tp,LOCATION_MZONE)
+end
+function c71400010.operation2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.GetControl(tc,1-tp)
+	end
 end
\ No newline at end of file

expansions/script/c71400011.lua

---梦之书的管理员
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400011.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400011,0))
-	e1:SetCountLimit(1,71400011)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCost(c71400011.cost)
-	e1:SetTarget(c71400011.target1)
-	e1:SetOperation(c71400011.operation1)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	c:RegisterEffect(e1)
-	--fly away
-	local e2a=Effect.CreateEffect(c)
-	e2a:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2a:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e2a:SetCode(EVENT_CHAINING)
-	e2a:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e2a:SetOperation(aux.chainreg)
-	c:RegisterEffect(e2a)
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400011,1))
-	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e2:SetCode(EVENT_CHAIN_SOLVED)
-	e2:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e2:SetCondition(c71400011.condition2)
-	e2:SetTarget(c71400011.target2)
-	e2:SetOperation(c71400011.operation2)
-	c:RegisterEffect(e2)
-end
-function c71400011.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
-	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
-end
-function c71400011.filter1(c)
-	return c:IsSetCard(0x714)
-end
-function c71400011.xyzfilter(c,e,tp)
-	return c:IsSetCard(0x3715) and c:IsType(TYPE_XYZ) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
-end
-function c71400011.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chk==0 then return Duel.IsExistingTarget(c71400011.filter1,tp,LOCATION_GRAVE,0,1,nil) and Duel.IsExistingMatchingCard(c71400011.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
-	local g1=Duel.SelectTarget(tp,c71400011.filter1,tp,LOCATION_GRAVE,0,1,2,nil)
-	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g1,g1:GetCount(),tp,LOCATION_GRAVE)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c71400011.operation1(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c71400011.xyzfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local sg=g:Select(tp,1,1,nil)
-	local sc=sg:GetFirst()
-	if sc then
-		Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
-		local mg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-		if mg:GetCount()>0 then 
-			Duel.Overlay(sc,mg)
-		end
-	end
-end
-function c71400011.filter2(c)
-	return c:IsSetCard(0xb714) and c:IsType(TYPE_FIELD) and c:IsAbleToHand()
-end
-function c71400011.condition2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local rc=re:GetHandler()
-	return rc:IsCode(71400026) and c:GetFlagEffect(1)>0 and re:IsHasType(EFFECT_TYPE_ACTIVATE)
-end
-function c71400011.target2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
-end
-function c71400011.operation2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and bit.band(c:GetOriginalType(),0x802040)~=0 and Duel.SendtoDeck(c,nil,0,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_EXTRA) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		local g=Duel.SelectMatchingCard(tp,c71400011.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
-		if g:GetCount()>0 then
-			Duel.SendtoHand(g,nil,REASON_EFFECT)
-			Duel.ConfirmCards(1-tp,g)
-		end
-	end
+--异梦书使-馆长女儿
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400011.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400011,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,71400011+EFFECT_COUNT_CODE_DUEL)
+	e1:SetCondition(c71400011.con1)
+	e1:SetTarget(c71400011.tg1)
+	e1:SetOperation(c71400011.op1)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400011,1))
+	e2:SetCountLimit(1,71500011)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCost(c71400011.cost)
+	e2:SetTarget(c71400011.tg2)
+	e2:SetOperation(c71400011.op2)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	c:RegisterEffect(e2)
+	--fly away
+	local e3a=Effect.CreateEffect(c)
+	e3a:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3a:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3a:SetCode(EVENT_CHAINING)
+	e3a:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
+	e3a:SetOperation(aux.chainreg)
+	c:RegisterEffect(e3a)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(71400011,2))
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_CHAIN_SOLVED)
+	e3:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
+	e3:SetCondition(c71400011.con3)
+	e3:SetTarget(c71400011.tg3)
+	e3:SetOperation(c71400011.op3)
+	c:RegisterEffect(e3)
+end
+function c71400011.con1(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
+end
+function c71400011.filter1(c)
+	return c:IsSetCard(0xe714) and c:IsAbleToHand()
+end
+function c71400011.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400011.filter1,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c71400011.op1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c71400011.filter1,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c71400011.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c71400011.filter2(c)
+	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER)
+end
+function c71400011.xyzfilter(c,e,tp)
+	return c:IsSetCard(0x3715) and c:IsType(TYPE_XYZ) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function c71400011.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400011.filter2,tp,LOCATION_GRAVE,0,1,nil) and Duel.IsExistingMatchingCard(c71400011.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,0,tp,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c71400011.op2(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c71400011.xyzfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg=g:Select(tp,1,1,nil)
+	local sc=sg:GetFirst()
+	if sc and Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEUP) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		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_DECK)
+		sc:RegisterEffect(e1)
+		Duel.SpecialSummonComplete()
+		local mg=Duel.GetMatchingGroup(c71400011.filter2,tp,LOCATION_GRAVE,0,nil)
+		if mg:GetCount()>0 then
+			local smg=mg:Select(tp,1,3,nil)
+			Duel.Overlay(sc,smg)
+		end
+	end
+end
+function c71400011.filter3(c)
+	return c:IsSetCard(0xb714) and c:IsType(TYPE_FIELD) and c:IsAbleToHand()
+end
+function c71400011.con3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local rc=re:GetHandler()
+	return rc:IsCode(71400026) and c:GetFlagEffect(1)>0
+end
+function c71400011.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+end
+function c71400011.op3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and bit.band(c:GetOriginalType(),0x802040)~=0 and Duel.SendtoDeck(c,nil,0,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_EXTRA) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local g=Duel.SelectMatchingCard(tp,c71400011.filter3,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+			Duel.SendtoHand(g,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,g)
+		end
+	end
 end
\ No newline at end of file

expansions/script/c71400012.lua

---梦之迷宫的剧面人
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400012.initial_effect(c)
-	--synchro summon
-	aux.AddSynchroProcedure(c,yume.YumeCheck(c),aux.NonTuner(yume.YumeCheck(c)),1)
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--cannot be target
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(aux.tgoval)
-	c:RegisterEffect(e1)
-	--banish
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400012,0))
-	e2:SetCategory(CATEGORY_REMOVE+CATEGORY_DAMAGE)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e2:SetCode(EVENT_BATTLE_START)
-	e2:SetTarget(c71400012.target)
-	e2:SetOperation(c71400012.operation)
-	c:RegisterEffect(e2)
-end
-function c71400012.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local tc=e:GetHandler():GetBattleTarget()
-	if chk==0 then return tc and tc:IsControler(1-tp) and tc:IsAbleToRemove() and not tc:IsType(TYPE_TOKEN) end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,tc,1,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,2000)
-end
-function c71400012.operation(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.Damage(1-tp,2000,REASON_EFFECT)~=0 then
-		local tc=e:GetHandler():GetBattleTarget()
-		if tc:IsRelateToBattle() then
-			Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
-		end
-	end
+--异梦迷宫的狐面武士-师傅
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400012.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,yume.YumeCheck(c),aux.NonTuner(yume.YumeCheck(c)),1)
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--immune
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_IMMUNE_EFFECT)
+	e1:SetValue(c71400012.filter1)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	c:RegisterEffect(e1)
+	--banish
+	local e2a=Effect.CreateEffect(c)
+	e2a:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e2a:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2a:SetCode(EVENT_CHAINING)
+	e2a:SetRange(LOCATION_MZONE)
+	e2a:SetOperation(aux.chainreg)
+	c:RegisterEffect(e2a)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_CHAIN_SOLVING)
+	e2:SetOperation(c71400012.op2)
+	c:RegisterEffect(e2)
+	--banish
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(71400012,0))
+	e3:SetCategory(CATEGORY_REMOVE+CATEGORY_DAMAGE+CATEGORY_DESTROY)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_BATTLE_START)
+	e3:SetTarget(c71400012.tg3)
+	e3:SetOperation(c71400012.op3)
+	c:RegisterEffect(e3)
+end
+function c71400012.filter1(e,te)
+	local c=e:GetHandler()
+	local ec=te:GetHandler()
+	if ec:IsHasCardTarget(c) then return true end
+	return te:IsHasType(EFFECT_TYPE_ACTIONS) and te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) and c:IsRelateToEffect(te)
+end
+function c71400012.op2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:GetFlagEffect(1)==0 then return end
+	if not re:IsActiveType(TYPE_EFFECT) or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return end
+	local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	if g and g:IsContains(c) then
+		local rp=re:GetHandler()
+		local mg=Duel.GetMatchingGroup(Card.IsAbleToRemove,rp,LOCATION_MZONE,0,c,tp)
+		if mg:GetCount()==0 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local sg=mg:Select(tp,1,1,nil)
+		if Duel.Destroy(tc,REASON_EFFECT,LOCATION_REMOVED)>0 then
+			Duel.Damage(rp,2000,REASON_EFFECT)
+		end
+	end
+end
+function c71400012.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tc=e:GetHandler():GetBattleTarget()
+	if chk==0 then return tc and tc:IsAbleToRemove() end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,tc,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tc:GetControler(),2000)
+end
+function c71400012.op3(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetHandler():GetBattleTarget()
+	if tc then
+		local bp=tc:GetControler()
+		if tc:IsRelateToBattle() and Duel.Destroy(tc,REASON_EFFECT,LOCATION_REMOVED)>0 then
+			Duel.Damage(bp,2000,REASON_EFFECT)
+		end
+	end
 end
\ No newline at end of file

expansions/script/c71400013.lua

---梦坠
-function c71400013.initial_effect(c)
-	--Activate(nofield)
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400013,1))
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCategory(CATEGORY_TOGRAVE)
-	e1:SetCondition(c71400013.condition1)
-	e1:SetTarget(c71400013.target1)
-	e1:SetCost(c71400013.cost)
-	e1:SetOperation(c71400013.operation1)
-	e1:SetCountLimit(1,71400013+EFFECT_COUNT_CODE_OATH)
-	c:RegisterEffect(e1)
-	--Activate(field)
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400013,2))
-	e2:SetCategory(CATEGORY_TOGRAVE)
-	e2:SetType(EFFECT_TYPE_ACTIVATE)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetCondition(c71400013.condition2)
-	e2:SetTarget(c71400013.target2)
-	e2:SetCost(c71400013.cost)
-	e2:SetOperation(c71400013.operation2)
-	e2:SetCountLimit(1,71400013+EFFECT_COUNT_CODE_OATH)
-	c:RegisterEffect(e2)
-end
-function c71400013.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckLPCost(tp,500) end
-	Duel.PayLPCost(tp,500)
-end
-function c71400013.condition1(e,tp,eg,ep,ev,re,r,rp)
-	tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
-	return tc==nil or tc:IsFacedown() or not tc:IsSetCard(0x3714)
-end
-function c71400013.condition2(e,tp,eg,ep,ev,re,r,rp)
-	tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
-	return tc and tc:IsFaceup() and tc:IsSetCard(0x3714)
-end
-function c71400013.filter1(c,tp)
-	return c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true) and c:IsSetCard(0xb714)
-end
-function c71400013.filter1a(c)
-	return c:IsFaceup() and c:IsAbleToGrave()
-end
-function c71400013.filter2(c)
-	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
-end
-function c71400013.operation1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=yume.FieldActivation(tp,nil,1)
-	local dg=Duel.GetMatchingGroup(c71400013.filter1a,tp,0,LOCATION_ONFIELD,nil)
-	if tc and dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(71400013,3)) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-		local des=dg:Select(tp,1,1,nil)
-		Duel.HintSelection(des)
-		Duel.BreakEffect()
-		Duel.SendtoGrave(des,REASON_EFFECT)
-	end
-	local el1=Effect.CreateEffect(c)
-	el1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	el1:SetType(EFFECT_TYPE_FIELD)
-	el1:SetCode(EFFECT_CANNOT_SUMMON)
-	el1:SetTarget(c71400013.sumlimit)
-	el1:SetTargetRange(1,0)
-	el1:SetReset(RESET_PHASE+PHASE_END,2)
-	c:RegisterEffect(el1,tp)
-	local el2=el1:Clone()
-	el2:SetCode(EFFECT_CANNOT_MSET)
-	c:RegisterEffect(el2)
-	local el3=el1:Clone()
-	el3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	c:RegisterEffect(el3)
-end
-function c71400013.operation2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,c71400013.filter2,tp,LOCATION_HAND+LOCATION_ONFIELD,0,2,2,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoGrave(g,nil,REASON_EFFECT)
-		local og=Duel.GetOperatedGroup()
-		if og:GetCount()==2 then
-			Duel.BreakEffect()
-			local e1=Effect.CreateEffect(c)
-			e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-			e1:SetCode(EVENT_CHAIN_SOLVING)
-			e1:SetCondition(c71400013.discon)
-			e1:SetOperation(c71400013.disop)
-			e1:SetReset(RESET_PHASE+PHASE_END)
-			Duel.RegisterEffect(e1,tp)
-		end
-	end
-	local el1=Effect.CreateEffect(c)
-	el1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	el1:SetType(EFFECT_TYPE_FIELD)
-	el1:SetCode(EFFECT_CANNOT_SUMMON)
-	el1:SetTarget(c71400013.sumlimit)
-	el1:SetTargetRange(1,0)
-	el1:SetReset(RESET_PHASE+PHASE_END,2)
-	c:RegisterEffect(el1,tp)
-	local el2=el1:Clone()
-	el2:SetCode(EFFECT_CANNOT_MSET)
-	c:RegisterEffect(el2)
-	local el3=el1:Clone()
-	el3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	c:RegisterEffect(el3)
-end
-function c71400013.discon(e,tp,eg,ep,ev,re,r,rp)
-	return re:IsActiveType(TYPE_MONSTER) and rp==1-tp
-end
-function c71400013.disop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.NegateEffect(ev)
-end
-function c71400013.sumlimit(e,c)
-	return not c:IsSetCard(0x714)
-end
-function c71400013.target1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return yume.YumeFieldCheck(tp,0,1) end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,0,1-tp,LOCATION_ONFIELD)
-end
-function c71400013.target2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400013.filter2,tp,LOCATION_HAND+LOCATION_ONFIELD,0,2,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,2,tp,LOCATION_HAND+LOCATION_ONFIELD)
+--梦坠
+function c71400013.initial_effect(c)
+	--Activate(nofield)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400013,1))
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetCondition(c71400013.condition1)
+	e1:SetTarget(c71400013.target1)
+	e1:SetCost(c71400013.cost)
+	e1:SetOperation(c71400013.operation1)
+	e1:SetCountLimit(1,71400013+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(e1)
+	--Activate(field)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400013,2))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCondition(c71400013.condition2)
+	e2:SetTarget(c71400013.target2)
+	e2:SetCost(c71400013.cost)
+	e2:SetOperation(c71400013.operation2)
+	e2:SetCountLimit(1,71400013+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(e2)
+end
+function c71400013.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,500) end
+	Duel.PayLPCost(tp,500)
+end
+function c71400013.condition1(e,tp,eg,ep,ev,re,r,rp)
+	tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
+	return tc==nil or tc:IsFacedown() or not tc:IsSetCard(0x3714)
+end
+function c71400013.condition2(e,tp,eg,ep,ev,re,r,rp)
+	tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
+	return tc and tc:IsFaceup() and tc:IsSetCard(0x3714)
+end
+function c71400013.filter1(c,tp)
+	return c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true) and c:IsSetCard(0xb714)
+end
+function c71400013.filter1a(c)
+	return c:IsFaceup() and c:IsAbleToGrave()
+end
+function c71400013.filter2(c)
+	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
+end
+function c71400013.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=yume.FieldActivation(tp,nil,1)
+	local dg=Duel.GetMatchingGroup(c71400013.filter1a,tp,0,LOCATION_ONFIELD,nil)
+	if tc and dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(71400013,3)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local des=dg:Select(tp,1,1,nil)
+		Duel.HintSelection(des)
+		Duel.BreakEffect()
+		Duel.SendtoGrave(des,REASON_EFFECT)
+	end
+	local el1=Effect.CreateEffect(c)
+	el1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	el1:SetType(EFFECT_TYPE_FIELD)
+	el1:SetCode(EFFECT_CANNOT_SUMMON)
+	el1:SetTarget(c71400013.sumlimit)
+	el1:SetTargetRange(1,0)
+	el1:SetReset(RESET_PHASE+PHASE_END,2)
+	c:RegisterEffect(el1,tp)
+	local el2=el1:Clone()
+	el2:SetCode(EFFECT_CANNOT_MSET)
+	c:RegisterEffect(el2)
+	local el3=el1:Clone()
+	el3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	c:RegisterEffect(el3)
+end
+function c71400013.operation2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c71400013.filter2,tp,LOCATION_HAND+LOCATION_ONFIELD,0,2,2,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,nil,REASON_EFFECT)
+		local og=Duel.GetOperatedGroup()
+		if og:GetCount()==2 then
+			Duel.BreakEffect()
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e1:SetCode(EVENT_CHAIN_SOLVING)
+			e1:SetCondition(c71400013.discon)
+			e1:SetOperation(c71400013.disop)
+			e1:SetReset(RESET_PHASE+PHASE_END)
+			Duel.RegisterEffect(e1,tp)
+		end
+	end
+	local el1=Effect.CreateEffect(c)
+	el1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	el1:SetType(EFFECT_TYPE_FIELD)
+	el1:SetCode(EFFECT_CANNOT_SUMMON)
+	el1:SetTarget(c71400013.sumlimit)
+	el1:SetTargetRange(1,0)
+	el1:SetReset(RESET_PHASE+PHASE_END,2)
+	c:RegisterEffect(el1,tp)
+	local el2=el1:Clone()
+	el2:SetCode(EFFECT_CANNOT_MSET)
+	c:RegisterEffect(el2)
+	local el3=el1:Clone()
+	el3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	c:RegisterEffect(el3)
+end
+function c71400013.discon(e,tp,eg,ep,ev,re,r,rp)
+	return re:IsActiveType(TYPE_MONSTER) and rp==1-tp
+end
+function c71400013.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateEffect(ev)
+end
+function c71400013.sumlimit(e,c)
+	return not c:IsSetCard(0x714)
+end
+function c71400013.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return yume.YumeFieldCheck(tp,0,1) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,0,1-tp,LOCATION_ONFIELD)
+end
+function c71400013.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400013.filter2,tp,LOCATION_HAND+LOCATION_ONFIELD,0,2,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,2,tp,LOCATION_HAND+LOCATION_ONFIELD)
 end
\ No newline at end of file

expansions/script/c71400014.lua

---妄想梦境-梦幻图书馆
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400014.initial_effect(c)
-	--Activate
-	--See AddYumeFieldGlobal
-	--special summon
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400014,0))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
-	e2:SetCountLimit(1)
-	e2:SetCondition(c71400014.condition2)
-	e2:SetRange(LOCATION_FZONE)
-	e2:SetTarget(c71400014.target2)
-	e2:SetOperation(c71400014.operation2)
-	c:RegisterEffect(e2)
-	--draw
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(71400014,1))
-	e3:SetCategory(CATEGORY_TOGRAVE)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e3:SetRange(LOCATION_FZONE)
-	e3:SetCountLimit(1)
-	e3:SetCondition(c71400014.condition3)
-	e3:SetTarget(c71400014.target3)
-	e3:SetOperation(c71400014.operation3)
-	c:RegisterEffect(e3)
-	--self limitation & field activation
-	yume.AddYumeFieldGlobal(c,71400014,1)
-end
-function c71400014.operation2(e,tp,eg,ep,ev,re,r,rp)
-	local cnt=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	if cnt<=0 or not e:GetHandler():IsRelateToEffect(e) then return end
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then cnt=1 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c71400014.filter2,tp,LOCATION_HAND,0,1,cnt,nil,e,tp)
-	if g:GetCount()==0 then return end
-	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	local xyzg=Duel.GetMatchingGroup(c71400014.xyzfilter,tp,LOCATION_EXTRA,0,nil)
-	if xyzg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(71400014,2)) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
-		Duel.BreakEffect()
-		Duel.XyzSummon(tp,xyz,nil)
-	end
-end
-function c71400014.filter2(c,e,tp)
-	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c71400014.target2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c71400014.filter2,tp,LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,LOCATION_HAND)
-end
-function c71400014.condition2(e,tp,eg,ep,ev,re,r,rp)
-	local ph=Duel.GetCurrentPhase()
-	return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
-end
-function c71400014.xyztg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then
-		local mg=Duel.GetMatchingGroup(c71400014.xyzfilter,tp,LOCATION_MZONE,0,nil)
-		return Duel.IsExistingMatchingCard(c71400014.xyz2filter,tp,LOCATION_EXTRA,0,1,nil,mg)
-	end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
---Select Xyz Monsters
-function c71400014.xyzfilter(c)
-	return c:IsSetCard(0x715) and c:IsXyzSummonable(nil)
-end
-function c71400014.filter3(c)
-	return c:IsSetCard(0x714) and c:IsSummonType(SUMMON_TYPE_XYZ)
-end
-function c71400014.condition3(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c71400014.filter3,1,nil)
-end
-function c71400014.target3(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	--[[
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,1,tp,1)
-	--]]
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_ONFIELD)
-end
-function c71400014.operation3(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
-	--local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	--Duel.Draw(p,d,REASON_EFFECT)
-	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,nil)
-	if g:GetCount()>0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-		g=g:Select(tp,1,1,nil)
-		Duel.HintSelection(g)
-		Duel.SendtoGrave(g:GetFirst(),REASON_EFFECT)
-	end
+--幻异梦境-梦幻图书馆
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400014.initial_effect(c)
+	--Activate
+	--See AddYumeFieldGlobal
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400014,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c71400014.condition2)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetTarget(c71400014.target2)
+	e2:SetOperation(c71400014.operation2)
+	c:RegisterEffect(e2)
+	--draw
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(71400014,1))
+	e3:SetCategory(CATEGORY_TOGRAVE)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetRange(LOCATION_FZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c71400014.condition3)
+	e3:SetTarget(c71400014.target3)
+	e3:SetOperation(c71400014.operation3)
+	c:RegisterEffect(e3)
+	--self limitation & field activation
+	yume.AddYumeFieldGlobal(c,71400014,1)
+end
+function c71400014.operation2(e,tp,eg,ep,ev,re,r,rp)
+	local cnt=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if cnt<=0 or not e:GetHandler():IsRelateToEffect(e) then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then cnt=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c71400014.filter2,tp,LOCATION_HAND,0,1,cnt,nil,e,tp)
+	if g:GetCount()==0 then return end
+	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	local xyzg=Duel.GetMatchingGroup(c71400014.xyzfilter,tp,LOCATION_EXTRA,0,nil)
+	if xyzg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(71400014,2)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
+		Duel.BreakEffect()
+		Duel.XyzSummon(tp,xyz,nil)
+	end
+end
+function c71400014.filter2(c,e,tp)
+	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c71400014.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c71400014.filter2,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,LOCATION_HAND)
+end
+function c71400014.condition2(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
+end
+function c71400014.xyztg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local mg=Duel.GetMatchingGroup(c71400014.xyzfilter,tp,LOCATION_MZONE,0,nil)
+		return Duel.IsExistingMatchingCard(c71400014.xyz2filter,tp,LOCATION_EXTRA,0,1,nil,mg)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+--Select Xyz Monsters
+function c71400014.xyzfilter(c)
+	return c:IsSetCard(0x715) and c:IsXyzSummonable(nil)
+end
+function c71400014.filter3(c)
+	return c:IsSetCard(0x714) and c:IsSummonType(SUMMON_TYPE_XYZ)
+end
+function c71400014.condition3(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c71400014.filter3,1,nil)
+end
+function c71400014.target3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	--[[
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,1,tp,1)
+	--]]
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_ONFIELD)
+end
+function c71400014.operation3(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	--local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	--Duel.Draw(p,d,REASON_EFFECT)
+	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,nil)
+	if g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		g=g:Select(tp,1,1,nil)
+		Duel.HintSelection(g)
+		Duel.SendtoGrave(g:GetFirst(),REASON_EFFECT)
+	end
 end
\ No newline at end of file

expansions/script/c71400015.lua

---妄想梦境-梦湖回廊
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400015.initial_effect(c)
-	--Activate
-	--See AddYumeFieldGlobal
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400015,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_FZONE)
-	e1:SetCountLimit(1)
-	e1:SetCost(c71400015.cost)
-	e1:SetTarget(c71400015.target1)
-	e1:SetOperation(c71400015.operation1)
-	c:RegisterEffect(e1)
-	--Recover
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400015,1))
-	e2:SetCategory(CATEGORY_RECOVER)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_FZONE)
-	e2:SetCountLimit(1)
-	e2:SetTarget(c71400015.target2)
-	e2:SetOperation(c71400015.operation2)
-	c:RegisterEffect(e2)
-	--self limitation & field activation
-	yume.AddYumeFieldGlobal(c,71400015,1)
-end
-function c71400015.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
-	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_DISCARD+REASON_COST,nil)
-end
-function c71400015.filter1(c,e,tp)
-	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c71400015.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71400015.filter1(chkc,e,tp) end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingTarget(c71400015.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c71400015.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_GRAVE)
-end
-function c71400015.operation1(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		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_ATTACK)
-			e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
-			tc:RegisterEffect(e1)
-			Duel.SpecialSummonComplete()
-		end
-	end
-end
-function c71400015.target2(e,tp,eg,ep,ev,re,r,rp,chk)
-	local mcount=Duel.GetMatchingGroupCount(Card.IsType,tp,0,LOCATION_GRAVE,nil,TYPE_MONSTER)
-	if chk==0 then return mcount>0 end
-	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,mcount*500)
-end
-function c71400015.operation2(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
-	local mcount=Duel.GetMatchingGroupCount(Card.IsType,tp,0,LOCATION_GRAVE,nil,TYPE_MONSTER)
-	if mcount>0 then
-		local val=Duel.Recover(tp,mcount*500,REASON_EFFECT)
-	end
+--幻异梦境-梦湖回廊
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400015.initial_effect(c)
+	--Activate
+	--See AddYumeFieldGlobal
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400015,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c71400015.target1)
+	e1:SetOperation(c71400015.operation1)
+	c:RegisterEffect(e1)
+	--Recover
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400015,1))
+	e2:SetCategory(CATEGORY_RECOVER)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCountLimit(1)
+	e2:SetTarget(c71400015.target2)
+	e2:SetOperation(c71400015.operation2)
+	c:RegisterEffect(e2)
+	--self limitation & field activation
+	yume.AddYumeFieldGlobal(c,71400015,1)
+end
+function c71400015.filter1(c)
+	return c:IsSetCard(0xe714) and c:IsAbleToHand()
+end
+function c71400015.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71400015.filter1(chkc) end
+	if chk==0 then Duel.IsExistingTarget(c71400015.filter1,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c71400015.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,tp,LOCATION_GRAVE)
+end
+function c71400015.operation1(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end
+function c71400015.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local mcount=Duel.GetMatchingGroupCount(Card.IsType,tp,0,LOCATION_GRAVE,nil,TYPE_MONSTER)
+	if chk==0 then return mcount>0 end
+	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,mcount*500)
+end
+function c71400015.operation2(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local mcount=Duel.GetMatchingGroupCount(Card.IsType,tp,0,LOCATION_GRAVE,nil,TYPE_MONSTER)
+	if mcount>0 then
+		local val=Duel.Recover(tp,mcount*500,REASON_EFFECT)
+	end
 end
\ No newline at end of file

expansions/script/c71400016.lua

---妄想梦境-空中庭园
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400016.initial_effect(c)
-	--Activate
-	--See AddYumeFieldGlobal
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400016,0))
-	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_FZONE)
-	e1:SetCountLimit(1)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetTarget(c71400016.target)
-	e1:SetOperation(c71400016.operation)
-	c:RegisterEffect(e1)
-	--self limitation & field activation
-	yume.AddYumeFieldGlobal(c,71400016,1)
-end
-function c71400016.filter(c)
-	return c:IsSetCard(0x714) and c:IsAbleToHand()
-end
-function c71400016.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71400016.filter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c71400016.filter,tp,LOCATION_GRAVE,0,1,nil) and Duel.IsExistingMatchingCard(nil,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectTarget(tp,c71400016.filter,tp,LOCATION_GRAVE,0,1,1,nil)
-	local mg=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,0,e:GetHandler())
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,tp,LOCATION_GRAVE)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,mg,1,tp,LOCATION_ONFIELD)
-end
-function c71400016.operation(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,0,1,1,c)
-	if g:GetCount()>0 and tc:IsRelateToEffect(e) and Duel.Destroy(g,REASON_EFFECT)~=0 and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then
-		Duel.ConfirmCards(1-tp,tc)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_FIELD)
-		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-		e1:SetCode(EFFECT_CANNOT_ACTIVATE)
-		e1:SetTargetRange(1,0)
-		e1:SetValue(c71400016.aclimit)
-		e1:SetLabelObject(tc)
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		Duel.RegisterEffect(e1,tp)
-	end
-end
-function c71400016.aclimit(e,re,tp)
-	local tc=e:GetLabelObject()
-	return re:GetHandler():IsCode(tc:GetCode()) and not re:GetHandler():IsImmuneToEffect(e)
+--幻异梦境-空中庭园
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400016.initial_effect(c)
+	--Activate
+	--See AddYumeFieldGlobal
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400016,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetCountLimit(1)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetTarget(c71400016.target)
+	e1:SetOperation(c71400016.operation)
+	c:RegisterEffect(e1)
+	--self limitation & field activation
+	yume.AddYumeFieldGlobal(c,71400016,1)
+end
+function c71400016.filter(c)
+	return c:IsSetCard(0x714) and c:IsAbleToHand()
+end
+function c71400016.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71400016.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c71400016.filter,tp,LOCATION_GRAVE,0,1,nil) and Duel.IsExistingMatchingCard(nil,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c71400016.filter,tp,LOCATION_GRAVE,0,1,1,nil)
+	local mg=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,0,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,tp,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,mg,1,tp,LOCATION_ONFIELD)
+end
+function c71400016.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,0,1,1,c)
+	if g:GetCount()>0 and tc:IsRelateToEffect(e) and Duel.Destroy(g,REASON_EFFECT)~=0 and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then
+		Duel.ConfirmCards(1-tp,tc)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+		e1:SetTargetRange(1,0)
+		e1:SetValue(c71400016.aclimit)
+		e1:SetLabelObject(tc)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,tp)
+	end
+end
+function c71400016.aclimit(e,re,tp)
+	local tc=e:GetLabelObject()
+	return re:GetHandler():IsCode(tc:GetCode()) and not re:GetHandler():IsImmuneToEffect(e)
 end
\ No newline at end of file

expansions/script/c71400017.lua

---妄想梦境-门的世界
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400017.initial_effect(c)
-	--Activate
-	--See AddYumeFieldGlobal
-	--search
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400017,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_FZONE)
-	e1:SetCountLimit(1)
-	e1:SetTarget(c71400017.tg1)
-	e1:SetOperation(c71400017.op1)
-	c:RegisterEffect(e1)
-	--banish
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400017,1))
-	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e2:SetCountLimit(1,71400017+EFFECT_COUNT_CODE_DUEL)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetTarget(c71400017.tg2)
-	e2:SetCost(c71400017.cost)
-	e2:SetOperation(c71400017.op2)
-	c:RegisterEffect(e2)
-	--self limitation & field activation
-	yume.AddYumeFieldGlobal(c,71400017,1)
-end
-function c71400017.filter1(c)
-	return c:IsSetCard(0xa714) and c:IsType(TYPE_FIELD) and not c:IsCode(71400017) and c:IsAbleToHand()
-end
-function c71400017.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400017.filter1,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,0,tp,LOCATION_DECK)
-end
-function c71400017.op1(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
-	local g=Duel.GetMatchingGroup(c71400017.filter1,tp,LOCATION_DECK,0,nil)
-		if g:GetCount()<=0 then return end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		local sg1=g:Select(tp,1,1,nil)
-		--[[
-		g:Remove(Card.IsCode,nil,sg1:GetFirst():GetCode())
-		if g:GetCount()>0 and Duel.SelectYesNo(tp,210) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-			local sg2=g:Select(tp,1,1,nil)
-			sg1:Merge(sg2)
-		end
-		--]]
-	Duel.SendtoHand(sg1,nil,REASON_EFFECT)
-	Duel.ConfirmCards(1-tp,sg1)
-end
-function c71400017.filter2(c)
-	return c:IsCode(71400020) and c:IsAbleToHand()
-end
-function c71400017.filter2c(c)
-	return c:IsSetCard(0xe714) and c:IsAbleToRemoveAsCost()
-end
-function c71400017.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400017.filter2,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c71400017.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	c=e:GetHandler()
-	local g=Duel.GetMatchingGroup(c71400017.filter2c,tp,LOCATION_GRAVE,0,nil)
-	if chk==0 then return c:IsAbleToRemoveAsCost() and g:GetClassCount(Card.GetCode)>4 end
-	local rg=Group.CreateGroup()
-	for i=1,5 do
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-		local sc=g:Select(tp,1,1,nil):GetFirst()
-		rg:AddCard(sc)
-		g:Remove(Card.IsCode,nil,sc:GetCode())
-	end
-	rg:AddCard(c)
-	Duel.Remove(rg,POS_FACEUP,REASON_COST)
-end
-function c71400017.op2(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c71400017.filter2,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
+--幻异梦境-门扉房间
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400017.initial_effect(c)
+	--Activate
+	--See AddYumeFieldGlobal
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400017,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c71400017.tg1)
+	e1:SetOperation(c71400017.op1)
+	c:RegisterEffect(e1)
+	--banish
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400017,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetCountLimit(1,71400017+EFFECT_COUNT_CODE_DUEL)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetTarget(c71400017.tg2)
+	e2:SetCost(c71400017.cost)
+	e2:SetOperation(c71400017.op2)
+	c:RegisterEffect(e2)
+	--self limitation & field activation
+	yume.AddYumeFieldGlobal(c,71400017,1)
+end
+function c71400017.filter1(c)
+	return c:IsSetCard(0xa714) and c:IsType(TYPE_FIELD) and not c:IsCode(71400017) and c:IsAbleToHand()
+end
+function c71400017.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400017.filter1,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,0,tp,LOCATION_DECK)
+end
+function c71400017.op1(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local g=Duel.GetMatchingGroup(c71400017.filter1,tp,LOCATION_DECK,0,nil)
+		if g:GetCount()<=0 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local sg1=g:Select(tp,1,1,nil)
+		--[[
+		g:Remove(Card.IsCode,nil,sg1:GetFirst():GetCode())
+		if g:GetCount()>0 and Duel.SelectYesNo(tp,210) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+			local sg2=g:Select(tp,1,1,nil)
+			sg1:Merge(sg2)
+		end
+		--]]
+	Duel.SendtoHand(sg1,nil,REASON_EFFECT)
+	Duel.ConfirmCards(1-tp,sg1)
+end
+function c71400017.filter2(c)
+	return c:IsCode(71400020) and c:IsAbleToHand()
+end
+function c71400017.filter2c(c)
+	return c:IsSetCard(0xe714) and c:IsAbleToRemoveAsCost()
+end
+function c71400017.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400017.filter2,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c71400017.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(c71400017.filter2c,tp,LOCATION_GRAVE,0,nil)
+	if chk==0 then return c:IsAbleToRemoveAsCost() and g:GetClassCount(Card.GetCode)>4 end
+	local rg=Group.CreateGroup()
+	for i=1,5 do
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local sc=g:Select(tp,1,1,nil):GetFirst()
+		rg:AddCard(sc)
+		g:Remove(Card.IsCode,nil,sc:GetCode())
+	end
+	rg:AddCard(c)
+	Duel.Remove(rg,POS_FACEUP,REASON_COST)
+end
+function c71400017.op2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c71400017.filter2,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
 end
\ No newline at end of file

expansions/script/c71400018.lua

---妄想梦物-电锯
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400018.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetHintTiming(TIMING_DRAW_PHASE+TIMING_END_PHASE+TIMING_EQUIP,0)
-	e1:SetCountLimit(1,71400018+EFFECT_COUNT_CODE_OATH)
-	e1:SetDescription(aux.Stringid(71400018,0))
-	e1:SetTarget(c71400018.target)
-	e1:SetCost(c71400018.cost)
-	e1:SetCondition(yume.YumeLethalCon)
-	e1:SetOperation(c71400018.operation)
-	c:RegisterEffect(e1)
-end
-function c71400018.filter(c)
-	return c:IsType(TYPE_SPELL+TYPE_TRAP)
-end
-function c71400018.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckLPCost(tp,500) end
-	Duel.PayLPCost(tp,500)
-end
-function c71400018.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and c71400018.filter(chkc) and chkc~=e:GetHandler() end
-	if chk==0 then return Duel.IsExistingTarget(c71400018.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,c71400018.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
-	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
-		Duel.SetChainLimit(c71400018.limit(g:GetFirst()))
-	end
-end
-function c71400018.operation(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Destroy(tc,REASON_EFFECT)
-	end
-	if c:IsRelateToEffect(e) and c:IsCanTurnSet() then
-		Duel.BreakEffect()
-		c:CancelToGrave()
-		Duel.ChangePosition(c,POS_FACEDOWN)
-		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
-	end
-end
-function c71400018.limit(c)
-	return  function (e,lp,tp)
-				return e:GetHandler()~=c
-			end
+--幻异梦物-电锯
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400018.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetHintTiming(TIMING_DRAW_PHASE+TIMING_END_PHASE+TIMING_EQUIP,0)
+	e1:SetCountLimit(1,71400018+EFFECT_COUNT_CODE_OATH)
+	e1:SetDescription(aux.Stringid(71400018,0))
+	e1:SetTarget(c71400018.target)
+	e1:SetCost(c71400018.cost)
+	e1:SetCondition(yume.YumeLethalCon)
+	e1:SetOperation(c71400018.operation)
+	c:RegisterEffect(e1)
+end
+function c71400018.filter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function c71400018.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,500) end
+	Duel.PayLPCost(tp,500)
+end
+function c71400018.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and c71400018.filter(chkc) and chkc~=e:GetHandler() end
+	if chk==0 then return Duel.IsExistingTarget(c71400018.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,c71400018.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
+		Duel.SetChainLimit(c71400018.limit(g:GetFirst()))
+	end
+end
+function c71400018.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+	if c:IsRelateToEffect(e) and c:IsCanTurnSet() then
+		Duel.BreakEffect()
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+	end
+end
+function c71400018.limit(c)
+	return  function (e,lp,tp)
+				return e:GetHandler()~=c
+			end
 end
\ No newline at end of file

expansions/script/c71400019.lua

---妄想梦物-魔女
-function c71400019.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,71400019+EFFECT_COUNT_CODE_OATH)
-	e1:SetTarget(c71400019.target)
-	e1:SetCondition(c71400019.condition)
-	e1:SetOperation(c71400019.operation)
-	c:RegisterEffect(e1)
-end
-function c71400019.filter(c,e,tp)
-	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c71400019.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c71400019.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
-end
-function c71400019.condition(e,tp,eg,ep,ev,re,r,rp)
-	tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
-	return tc and tc:IsFaceup() and tc:IsSetCard(0x3714)
-end
-function c71400019.operation(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,c71400019.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
+--幻异梦物-魔女
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400019.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetDescription(aux.Stringid(71400019,0))
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,71400019+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c71400019.target)
+	e1:SetCondition(yume.YumeCon)
+	e1:SetOperation(c71400019.operation)
+	c:RegisterEffect(e1)
+	--draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400019,1))
+	e2:SetCategory(CATEGORY_DRAW+CATEGORY_DAMAGE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EFFECT_TYPE_IGNITION)
+	e1:SetCountLimit(1,71500019)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCost(c71400019.cost2)
+	e2:SetTarget(c71400019.tg2)
+	e2:SetOperation(c71400019.op2)
+	c:RegisterEffect(e2)
+end
+function c71400019.filter(c,e,tp)
+	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c71400019.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c71400019.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
+end
+function c71400019.operation(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,c71400019.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c71400019.filter2(c)
+	return c:IsSetCard(0xb714) and c:IsFaceup() and c:IsAbleToDeckAsCost()
+end
+function c71400019.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() and Duel.IsExistingMatchingCard(c71400019.filter2,tp,LOCATION_FZONE,0,1,nil) end
+	local g=Duel.GetMatchingGroup(c71400019.filter2,tp,LOCATION_FZONE,0,nil)
+	g:AddCard(e:GetHandler())
+	Duel.SendtoDeck(g,nil,2,REASON_COST)
+end
+function c71400019.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,50)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
+end
+function c71400019.op2(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.Damage(tp,50,REASON_EFFECT)>0 then
+		Duel.Draw(tp,2,REASON_EFFECT)
+	end
 end
\ No newline at end of file

expansions/script/c71400020.lua

---梦终
-function c71400020.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-	e1:SetCondition(c71400020.condition)
-	e1:SetTarget(c71400020.target)
-	e1:SetOperation(c71400020.operation)
-	e1:SetCountLimit(1,71400020+EFFECT_COUNT_CODE_DUEL+EFFECT_COUNT_CODE_OATH)
-	c:RegisterEffect(e1)
-end
-function c71400020.filter1(c)
-	return c:IsSetCard(0x714)
-end
-function c71400020.filter2(c,tp)
-	return c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true)
-end
-function c71400020.filter3(c,e,tp)
-	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c71400020.condition(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c71400020.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
-	local ct=g:GetClassCount(Card.GetCode)
-	return ct>12
-end
-function c71400020.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),tp)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400020.filter2,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,nil,tp) and g:GetCount()>0 end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,0)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,g:GetCount(),0,0)
-	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
-		Duel.SetChainLimit(aux.FALSE)
-	end
-end
-function c71400020.operation(e,tp,eg,ep,ev,re,r,rp)
-	local fg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),tp)
-	if Duel.Remove(fg,POS_FACEUP,REASON_EFFECT)<=0 then return end
-	Duel.BreakEffect()
-	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(71400020,1))
-	local tc=Duel.SelectMatchingCard(tp,c71400020.filter2,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,tp):GetFirst()
-	if tc then
-		local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
-		if fc then
-			Duel.SendtoGrave(fc,REASON_RULE)
-			Duel.BreakEffect()
-		end
-		local flag=Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
-		local te=tc:GetActivateEffect()
-		local tep=tc:GetControler()
-		local cost=te:GetCost()
-		if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
-		Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
-		local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-		if ft<=0 then return end
-		if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
-		if tc:IsSetCard(0x3714) and flag and Duel.IsExistingMatchingCard(c71400020.filter3,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(71400020,0)) then
-			Duel.BreakEffect()
-			local g=Duel.SelectMatchingCard(tp,c71400020.filter3,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,ft,ft,nil,e,tp)
-			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-		end
-	end
+--梦终
+function c71400020.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+	e1:SetCondition(c71400020.condition)
+	e1:SetTarget(c71400020.target)
+	e1:SetOperation(c71400020.operation)
+	e1:SetCountLimit(1,71400020+EFFECT_COUNT_CODE_DUEL+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(e1)
+end
+function c71400020.filter1(c)
+	return c:IsSetCard(0x714)
+end
+function c71400020.filter2(c,tp)
+	return c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true)
+end
+function c71400020.filter3(c,e,tp)
+	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c71400020.condition(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c71400020.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
+	local ct=g:GetClassCount(Card.GetCode)
+	return ct>12
+end
+function c71400020.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),tp)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400020.filter2,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,nil,tp) and g:GetCount()>0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,0)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,g:GetCount(),0,0)
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
+		Duel.SetChainLimit(aux.FALSE)
+	end
+end
+function c71400020.operation(e,tp,eg,ep,ev,re,r,rp)
+	local fg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),tp)
+	if Duel.Remove(fg,POS_FACEUP,REASON_EFFECT)<=0 then return end
+	Duel.BreakEffect()
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(71400020,1))
+	local tc=Duel.SelectMatchingCard(tp,c71400020.filter2,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,tp):GetFirst()
+	if tc then
+		local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
+		if fc then
+			Duel.SendtoGrave(fc,REASON_RULE)
+			Duel.BreakEffect()
+		end
+		local flag=Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
+		local te=tc:GetActivateEffect()
+		local tep=tc:GetControler()
+		local cost=te:GetCost()
+		if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
+		Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
+		local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+		if ft<=0 then return end
+		if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
+		if tc:IsSetCard(0x3714) and flag and Duel.IsExistingMatchingCard(c71400020.filter3,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(71400020,0)) then
+			Duel.BreakEffect()
+			local g=Duel.SelectMatchingCard(tp,c71400020.filter3,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,ft,ft,nil,e,tp)
+			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
 end
\ No newline at end of file

expansions/script/c71400021.lua

---妄想梦物-菜刀
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400021.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetHintTiming(TIMING_DRAW_PHASE+TIMING_END_PHASE+TIMING_SPSUMMON+TIMING_SUMMON,0)
-	e1:SetCountLimit(1,71400021+EFFECT_COUNT_CODE_OATH)
-	e1:SetDescription(aux.Stringid(71400021,0))
-	e1:SetTarget(c71400021.target)
-	e1:SetCost(c71400021.cost)
-	e1:SetCondition(yume.YumeLethalCon)
-	e1:SetOperation(c71400021.operation)
-	c:RegisterEffect(e1)
-end
-function c71400021.filter(c)
-	return c:IsType(TYPE_MONSTER)
-end
-function c71400021.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckLPCost(tp,500) end
-	Duel.PayLPCost(tp,500)
-end
-function c71400021.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField() and c71400021.filter(chkc) and chkc~=e:GetHandler() end
-	if chk==0 then return Duel.IsExistingTarget(c71400021.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,c71400021.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
-	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
-		Duel.SetChainLimit(c71400021.limit(g:GetFirst()))
-	end
-end
-function c71400021.operation(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Destroy(tc,REASON_EFFECT)
-	end
-	if c:IsRelateToEffect(e) and c:IsCanTurnSet() then
-		Duel.BreakEffect()
-		c:CancelToGrave()
-		Duel.ChangePosition(c,POS_FACEDOWN)
-		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
-	end
-end
-function c71400021.limit(c)
-	return  function (e,lp,tp)
-				return e:GetHandler()~=c
-			end
+--幻异梦物-菜刀
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400021.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetHintTiming(TIMING_DRAW_PHASE+TIMING_END_PHASE+TIMING_SPSUMMON+TIMING_SUMMON,0)
+	e1:SetCountLimit(1,71400021+EFFECT_COUNT_CODE_OATH)
+	e1:SetDescription(aux.Stringid(71400021,0))
+	e1:SetTarget(c71400021.target)
+	e1:SetCost(c71400021.cost)
+	e1:SetCondition(yume.YumeLethalCon)
+	e1:SetOperation(c71400021.operation)
+	c:RegisterEffect(e1)
+end
+function c71400021.filter(c)
+	return c:IsType(TYPE_MONSTER)
+end
+function c71400021.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,500) end
+	Duel.PayLPCost(tp,500)
+end
+function c71400021.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and c71400021.filter(chkc) and chkc~=e:GetHandler() end
+	if chk==0 then return Duel.IsExistingTarget(c71400021.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,c71400021.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
+		Duel.SetChainLimit(c71400021.limit(g:GetFirst()))
+	end
+end
+function c71400021.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+	if c:IsRelateToEffect(e) and c:IsCanTurnSet() then
+		Duel.BreakEffect()
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+	end
+end
+function c71400021.limit(c)
+	return  function (e,lp,tp)
+				return e:GetHandler()~=c
+			end
 end
\ No newline at end of file

expansions/script/c71400022.lua

---梦之眼药商人
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400022.initial_effect(c)
-	--link summon
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,2,yume.YumeCheck(c))
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400022,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetCountLimit(1,71400022)
-	e1:SetCondition(c71400022.con1)
-	e1:SetTarget(c71400022.target)
-	e1:SetCost(c71400022.cost)
-	e1:SetOperation(c71400022.op1)
-	c:RegisterEffect(e1)
-	--disable spsummon
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400022,1))
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e2:SetCode(EVENT_TO_GRAVE)
-	e2:SetCondition(c71400022.con2)
-	e2:SetOperation(c71400022.op2)
-	c:RegisterEffect(e2)
-end
-function c71400022.filter1c(c)
-	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()
-end
-function c71400022.filter1(c,e,tp)
-	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c71400022.con1(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
-end
-function c71400022.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400022.filter1c,tp,LOCATION_DECK,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,c71400022.filter1c,tp,LOCATION_DECK,0,1,1,nil)
-	Duel.SendtoGrave(g,REASON_COST)
-end
-function c71400022.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400022.filter1,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
-end
-function c71400022.op1(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,c71400022.filter1,tp,LOCATION_HAND,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c71400022.con2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsReason(REASON_DESTROY) and rp==1-tp
-end
-function c71400022.op2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetTargetRange(1,0)
-	e1:SetReset(RESET_PHASE+PHASE_END,2)
-	Duel.RegisterEffect(e1,1-tp)
+--梦之眼药商人
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400022.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,2,yume.YumeCheck(c))
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400022,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,71400022)
+	e1:SetCondition(c71400022.con1)
+	e1:SetTarget(c71400022.target)
+	e1:SetCost(c71400022.cost)
+	e1:SetOperation(c71400022.op1)
+	c:RegisterEffect(e1)
+	--disable spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400022,1))
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCondition(c71400022.con2)
+	e2:SetOperation(c71400022.op2)
+	c:RegisterEffect(e2)
+end
+function c71400022.filter1c(c)
+	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()
+end
+function c71400022.filter1(c,e,tp)
+	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c71400022.con1(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function c71400022.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400022.filter1c,tp,LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c71400022.filter1c,tp,LOCATION_DECK,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c71400022.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400022.filter1,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c71400022.op1(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,c71400022.filter1,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c71400022.con2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsReason(REASON_DESTROY) and rp==1-tp
+end
+function c71400022.op2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetReset(RESET_PHASE+PHASE_END,2)
+	Duel.RegisterEffect(e1,1-tp)
 end
\ No newline at end of file

expansions/script/c71400023.lua

---梦染
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400023.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400023,0))
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,71400023+EFFECT_COUNT_CODE_OATH)
-	e1:SetHintTiming(0,0x1f0)
-	e1:SetTarget(yume.YumeFieldCheckTarget())
-	e1:SetOperation(c71400023.op1)
-	c:RegisterEffect(e1)
-	--ac in hand
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_TRAP_ACT_IN_HAND)
-	e0:SetCondition(yume.nonYumeCon)
-	c:RegisterEffect(e0)
-	--banish
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400023,1))
-	e2:SetCategory(CATEGORY_BANISH)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetHintTiming(0,TIMING_SUMMON+TIMING_SPSUMMON+TIMING_END_PHASE)
-	e2:SetCondition(aux.exccon)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c71400023.tg2)
-	e2:SetOperation(c71400023.op2)
-	c:RegisterEffect(e2)
-end
-function c71400023.filter1(c,tp)
-	return c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true) and c:IsSetCard(0x3714)
-end
-function c71400023.op1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=yume.FieldActivation(tp)
-	if tc then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_FIELD)
-		e1:SetCode(EFFECT_CANNOT_SSET)
-		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-		e1:SetRange(LOCATION_FZONE)
-		e1:SetTargetRange(1,1)
-		e1:SetTarget(c71400023.setlimit)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e1,true)
-		--[[
-		local e2=e1:Clone()
-		e2:SetCode(EFFECT_CANNOT_MSET)
-		tc:RegisterEffect(e2,true)
-		local e3=e1:Clone()
-		e3:SetCode(EFFECT_CANNOT_TURN_SET)
-		tc:RegisterEffect(e3,true)
-		local e4=e1:Clone()
-		e4:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-		e4:SetTarget(c71400023.sumlimit)
-		tc:RegisterEffect(e4,true)
-		--]]
-		tc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(71400023,2))
-	end
-end
-function c71400023.setlimit(e,c)
-	return not c:IsLocation(LOCATION_HAND)
-end
---[[
-function c71400023.sumlimit(e,c,sump,sumtype,sumpos,targetp)
-	return bit.band(sumpos,POS_FACEDOWN)>0
-end
---]]
-function c71400023.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsAbleToRemove() end
-	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil)
-		and Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_BANISH)
-	local g1=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,0,1,1,nil)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_BANISH)
-	local g2=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil)
-	g1:Merge(g2)
-	Duel.SetOperationInfo(0,CATEGORY_BANISH,g1,2,0,0)
-end
-function c71400023.op2(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	local sg=g:Filter(Card.IsRelateToEffect,nil,e)
-	if sg:GetCount()==2 then
-		Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
-	end
+--梦染
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400023.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400023,0))
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,71400023+EFFECT_COUNT_CODE_OATH)
+	e1:SetHintTiming(0,0x1f0)
+	e1:SetTarget(yume.YumeFieldCheckTarget())
+	e1:SetOperation(c71400023.op1)
+	c:RegisterEffect(e1)
+	--ac in hand
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	e0:SetCondition(yume.nonYumeCon)
+	c:RegisterEffect(e0)
+	--banish
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400023,1))
+	e2:SetCategory(CATEGORY_BANISH)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetHintTiming(0,TIMING_SUMMON+TIMING_SPSUMMON+TIMING_END_PHASE)
+	e2:SetCondition(aux.exccon)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c71400023.tg2)
+	e2:SetOperation(c71400023.op2)
+	c:RegisterEffect(e2)
+end
+function c71400023.filter1(c,tp)
+	return c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true) and c:IsSetCard(0x3714)
+end
+function c71400023.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=yume.FieldActivation(tp)
+	if tc then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_CANNOT_SSET)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetRange(LOCATION_FZONE)
+		e1:SetTargetRange(1,1)
+		e1:SetTarget(c71400023.setlimit)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1,true)
+		--[[
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_CANNOT_MSET)
+		tc:RegisterEffect(e2,true)
+		local e3=e1:Clone()
+		e3:SetCode(EFFECT_CANNOT_TURN_SET)
+		tc:RegisterEffect(e3,true)
+		local e4=e1:Clone()
+		e4:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+		e4:SetTarget(c71400023.sumlimit)
+		tc:RegisterEffect(e4,true)
+		--]]
+		tc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(71400023,2))
+	end
+end
+function c71400023.setlimit(e,c)
+	return not c:IsLocation(LOCATION_HAND)
+end
+--[[
+function c71400023.sumlimit(e,c,sump,sumtype,sumpos,targetp)
+	return bit.band(sumpos,POS_FACEDOWN)>0
+end
+--]]
+function c71400023.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsAbleToRemove() end
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil)
+		and Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_BANISH)
+	local g1=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,0,1,1,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_BANISH)
+	local g2=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil)
+	g1:Merge(g2)
+	Duel.SetOperationInfo(0,CATEGORY_BANISH,g1,2,0,0)
+end
+function c71400023.op2(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local sg=g:Filter(Card.IsRelateToEffect,nil,e)
+	if sg:GetCount()==2 then
+		Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+	end
 end
\ No newline at end of file

expansions/script/c71400024.lua

+--异梦书中的人偶
+function c71400024.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--inactivatable
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_INACTIVATE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(c71400024.filter1)
+	c:RegisterEffect(e1)
+	local e1a=Effect.CreateEffect(c)
+	e1a:SetType(EFFECT_TYPE_FIELD)
+	e1a:SetCode(EFFECT_CANNOT_DISEFFECT)
+	e1a:SetRange(LOCATION_MZONE)
+	e1a:SetValue(c71400024.filter1)
+	c:RegisterEffect(e1a)
+	--pos
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400024,0))
+	e2:SetCategory(CATEGORY_POSITION)
+	e2:SetCountLimit(1)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e2:SetCost(c71400024.cost2)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTarget(c71400024.tg2)
+	e2:SetOperation(c71400024.op2)
+	c:RegisterEffect(e2)
+end
+function c71400024.filter1(e,ct)
+	local p=e:GetHandler():GetControler()
+	local te,tp=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
+	return p==tp and te:GetHandler():IsSetCard(0x715)
+end
+function c71400024.cost2(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 c71400024.filter2(c)
+	return c:IsPosition(POS_FACEUP_ATTACK) and c:IsCanChangePosition()
+end
+function c71400024.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400024.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end
+	local g=Duel.GetMatchingGroup(c71400024.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
+end
+function c71400024.op2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(c71400024.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,c)
+	Duel.ChangePosition(g,POS_FACEUP_DEFENSE,0,POS_FACEUP_DEFENSE,0)
+	local tc=g:GetFirst()
+	while tc do
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_BASE_DEFENSE)
+		e1:SetValue(0)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_CANNOT_CHANGE_POSITION)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e2)
+		tc=g:GetNext()
+	end
+end
\ No newline at end of file

expansions/script/c71400025.lua

---梦蚀
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400025.initial_effect(c)
-	--activate from hand
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
-	e0:SetCondition(yume.nonYumeCon)
-	c:RegisterEffect(e0)
-	--Activate(nofield)
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400025,0))
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCondition(yume.nonYumeCon)
-	e1:SetTarget(yume.YumeFieldCheckTarget(0,2))
-	e1:SetCost(c71400025.cost1)
-	e1:SetOperation(c71400025.op1)
-	e1:SetCountLimit(1,71400025+EFFECT_COUNT_CODE_OATH)
-	c:RegisterEffect(e1)
-	--Activate(field)
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400025,1))
-	e2:SetCondition(yume.YumeCon)
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_ACTIVATE)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetCountLimit(1,71400025+EFFECT_COUNT_CODE_OATH)
-	e2:SetCost(c71400025.cost2)
-	e2:SetTarget(c71400025.tg2)
-	e2:SetOperation(c71400025.op2)
-	c:RegisterEffect(e2)
-	Duel.AddCustomActivityCounter(71400025,ACTIVITY_SPSUMMON,c71400025.counterfilter)
-end
-function c71400025.counterfilter(c)
-	return c:GetSummonLocation()~=LOCATION_EXTRA or c:IsType(TYPE_LINK)
-end
-function c71400025.cost1(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 c71400025.op1(e,tp,eg,ep,ev,re,r,rp)
-	yume.FieldActivation(tp,nil,2)
-end
-function c71400025.filter2(c)
-	return c:IsType(TYPE_LINK)
-end
-function c71400025.filter2a(c,e,tp)
-	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c71400025.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetCustomActivityCount(71400025,tp,ACTIVITY_SPSUMMON)==0 and Duel.CheckLPCost(tp,800) end
-	Duel.PayLPCost(tp,800)
-	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:SetTargetRange(1,0)
-	e1:SetTarget(c71400025.splimit)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function c71400025.splimit(e,c,sump,sumtype,sumpos,targetp,se)
-	return not (c:IsType(TYPE_LINK)) and c:IsLocation(LOCATION_EXTRA)
-end
-function c71400025.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsType(TYPE_LINK) and chkc:IsLocation(LOCATION_MZONE) end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingTarget(c71400025.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
-		and Duel.IsExistingMatchingCard(c71400025.filter2a,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	Duel.SelectTarget(tp,c71400025.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
-end
-function c71400025.op2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	local ft=math.min(Duel.GetLocationCount(tp,LOCATION_MZONE),tc:GetLink())
-	if ft<=0 then return end
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local sg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c71400025.filter2a),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,ft,nil,e,tp)
-	if sg:GetCount()>0 then
-		local sc=sg:GetFirst()
-		local fid=c:GetFieldID()
-		while sc do
-			if Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEUP) then
-				sc:RegisterFlagEffect(71400025,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,fid)
-			end
-			sc=sg:GetNext()
-		end
-		Duel.SpecialSummonComplete()
-		sg:KeepAlive()
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-		e1:SetCode(EVENT_PHASE+PHASE_END)
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		e1:SetCountLimit(1)
-		e1:SetCondition(c71400025.rmcon)
-		e1:SetOperation(c71400025.rmop)
-		e1:SetLabel(fid)
-		e1:SetLabelObject(sg)
-		Duel.RegisterEffect(e1,tp)
-	end
-end
-function c71400025.rmfilter(c,fid)
-	return c:GetFlagEffectLabel(71400025)==fid
-end
-function c71400025.rmcon(e,tp,eg,ep,ev,re,r,rp)
-	local g=e:GetLabelObject()
-	if not g:IsExists(c71400025.rmfilter,1,nil,e:GetLabel()) then
-		g:DeleteGroup()
-		e:Reset()
-		return false
-	else return true end
-end
-function c71400025.rmop(e,tp,eg,ep,ev,re,r,rp)
-	local g=e:GetLabelObject()
-	local tg=g:Filter(c71400025.rmfilter,nil,e:GetLabel())
-	Duel.Remove(tg,POS_FACEUP,REASON_EFFECT)
+--梦蚀
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400025.initial_effect(c)
+	--activate from hand
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e0:SetCondition(yume.nonYumeCon)
+	c:RegisterEffect(e0)
+	--Activate(nofield)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400025,0))
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCondition(yume.nonYumeCon)
+	e1:SetTarget(yume.YumeFieldCheckTarget(0,2))
+	e1:SetCost(c71400025.cost1)
+	e1:SetOperation(c71400025.op1)
+	e1:SetCountLimit(1,71400025+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(e1)
+	--Activate(field)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400025,1))
+	e2:SetCondition(yume.YumeCon)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1,71400025+EFFECT_COUNT_CODE_OATH)
+	e2:SetCost(c71400025.cost2)
+	e2:SetTarget(c71400025.tg2)
+	e2:SetOperation(c71400025.op2)
+	c:RegisterEffect(e2)
+	Duel.AddCustomActivityCounter(71400025,ACTIVITY_SPSUMMON,c71400025.counterfilter)
+end
+function c71400025.counterfilter(c)
+	return c:GetSummonLocation()~=LOCATION_EXTRA or c:IsType(TYPE_LINK)
+end
+function c71400025.cost1(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 c71400025.op1(e,tp,eg,ep,ev,re,r,rp)
+	yume.FieldActivation(tp,nil,2)
+end
+function c71400025.filter2(c)
+	return c:IsType(TYPE_LINK)
+end
+function c71400025.filter2a(c,e,tp)
+	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c71400025.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(71400025,tp,ACTIVITY_SPSUMMON)==0 and Duel.CheckLPCost(tp,800) end
+	Duel.PayLPCost(tp,800)
+	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:SetTargetRange(1,0)
+	e1:SetTarget(c71400025.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c71400025.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return not (c:IsType(TYPE_LINK)) and c:IsLocation(LOCATION_EXTRA)
+end
+function c71400025.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsType(TYPE_LINK) and chkc:IsLocation(LOCATION_MZONE) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c71400025.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
+		and Duel.IsExistingMatchingCard(c71400025.filter2a,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c71400025.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
+end
+function c71400025.op2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	local ft=math.min(Duel.GetLocationCount(tp,LOCATION_MZONE),tc:GetLink())
+	if ft<=0 then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c71400025.filter2a),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,ft,nil,e,tp)
+	if sg:GetCount()>0 then
+		local sc=sg:GetFirst()
+		local fid=c:GetFieldID()
+		while sc do
+			if Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEUP) then
+				sc:RegisterFlagEffect(71400025,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,fid)
+			end
+			sc=sg:GetNext()
+		end
+		Duel.SpecialSummonComplete()
+		sg:KeepAlive()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		e1:SetCountLimit(1)
+		e1:SetCondition(c71400025.rmcon)
+		e1:SetOperation(c71400025.rmop)
+		e1:SetLabel(fid)
+		e1:SetLabelObject(sg)
+		Duel.RegisterEffect(e1,tp)
+	end
+end
+function c71400025.rmfilter(c,fid)
+	return c:GetFlagEffectLabel(71400025)==fid
+end
+function c71400025.rmcon(e,tp,eg,ep,ev,re,r,rp)
+	local g=e:GetLabelObject()
+	if not g:IsExists(c71400025.rmfilter,1,nil,e:GetLabel()) then
+		g:DeleteGroup()
+		e:Reset()
+		return false
+	else return true end
+end
+function c71400025.rmop(e,tp,eg,ep,ev,re,r,rp)
+	local g=e:GetLabelObject()
+	local tg=g:Filter(c71400025.rmfilter,nil,e:GetLabel())
+	Duel.Remove(tg,POS_FACEUP,REASON_EFFECT)
 end
\ No newline at end of file

expansions/script/c71400026.lua

---妄想梦物-黑电话
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400026.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400026,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCondition(yume.YumeCon)
-	e1:SetTarget(c71400026.tg1)
-	e1:SetOperation(c71400026.op1)
-	c:RegisterEffect(e1)
-	--search
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400026,1))
-	e2:SetCountLimit(1,71400026)
-	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCondition(c71400026.mixedYumeCon)
-	e2:SetCost(c71400026.cost)
-	e2:SetTarget(c71400026.tg2)
-	e2:SetOperation(c71400026.op2)
-	c:RegisterEffect(e2)
-end
-function c71400026.filter1(c,e,tp)
-	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c71400026.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and c71400026.filter1(chkc,e,tp) end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingTarget(c71400026.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c71400026.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
-end
-function c71400026.op1(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c71400026.filter2c(c,e,tp)
-	return c:IsSetCard(0x714) and c:IsAbleToRemoveAsCost()
-end
-function c71400026.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsAbleToRemoveAsCost()
-		and Duel.IsExistingMatchingCard(c71400026.filter2c,tp,LOCATION_GRAVE,0,1,c) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c71400026.filter2c,tp,LOCATION_GRAVE,0,1,1,c)
-	g:AddCard(c)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function c71400026.mixedYumeCon(e,tp,eg,ep,ev,re,r,rp)
-	return yume.YumeCon(e,tp,eg,ep,ev,re,r,rp) and aux.exccon(e,tp,eg,ep,ev,re,r,rp)
-end
-function c71400026.filter2(c)
-	return c:IsSetCard(0xe714) and not c:IsCode(71400026) and c:IsAbleToHand()
-end
-function c71400026.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400026.filter2,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c71400026.op2(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c71400026.filter2,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
+--幻异梦物-黑电话
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400026.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400026,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCondition(yume.YumeCon)
+	e1:SetTarget(c71400026.tg1)
+	e1:SetOperation(c71400026.op1)
+	c:RegisterEffect(e1)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400026,1))
+	e2:SetCountLimit(1,71400026)
+	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCondition(c71400026.mixedYumeCon)
+	e2:SetCost(c71400026.cost)
+	e2:SetTarget(c71400026.tg2)
+	e2:SetOperation(c71400026.op2)
+	c:RegisterEffect(e2)
+end
+function c71400026.filter1(c,e,tp)
+	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c71400026.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and c71400026.filter1(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c71400026.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c71400026.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c71400026.op1(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c71400026.filter2c(c,e,tp)
+	return c:IsSetCard(0x714) and c:IsAbleToRemoveAsCost()
+end
+function c71400026.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToRemoveAsCost()
+		and Duel.IsExistingMatchingCard(c71400026.filter2c,tp,LOCATION_GRAVE,0,1,c) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c71400026.filter2c,tp,LOCATION_GRAVE,0,1,1,c)
+	g:AddCard(c)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c71400026.mixedYumeCon(e,tp,eg,ep,ev,re,r,rp)
+	return yume.YumeCon(e,tp,eg,ep,ev,re,r,rp) and aux.exccon(e,tp,eg,ep,ev,re,r,rp)
+end
+function c71400026.filter2(c)
+	return c:IsSetCard(0xe714) and not c:IsCode(71400026) and c:IsAbleToHand()
+end
+function c71400026.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400026.filter2,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c71400026.op2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c71400026.filter2,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
 end
\ No newline at end of file

expansions/script/c71400027.lua

---梦路脑坏
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400027.initial_effect(c)
-	--sp summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400027,0))
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetHintTiming(0,0x1f0)
-	e1:SetCost(c71400027.cost1)
-	e1:SetTarget(c71400027.tg1)
-	e1:SetOperation(c71400027.op1)
-	c:RegisterEffect(e1)
-	--ac in hand
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_TRAP_ACT_IN_HAND)
-	e0:SetCondition(yume.nonYumeCon)
-	c:RegisterEffect(e0)
-	--draw
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400027,1))
-	e2:SetCategory(CATEGORY_DRAW+CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c71400027.tg2)
-	e2:SetOperation(c71400027.op2)
-	c:RegisterEffect(e2)
-end
-function c71400027.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckLPCost(tp,2000) end
-	Duel.PayLPCost(tp,2000)
-end
-function c71400027.filter1(c)
-	return c:IsPosition(POS_FACEUP_ATTACK) and not c:IsType(TYPE_TOKEN) and c:GetSummonLocation()==LOCATION_EXTRA and c:IsAbleToChangeControler()
-end
-function c71400027.xyzfilter(c,e,tp)
-	return c:IsSetCard(0x3715) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
-end
-function c71400027.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c71400027.filter1(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c71400027.filter1,tp,0,LOCATION_MZONE,2,nil) and Duel.IsExistingMatchingCard(c71400027.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	Duel.SelectTarget(tp,c71400027.filter1,tp,0,LOCATION_MZONE,2,2,nil)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c71400027.op1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local xyzg=Duel.GetMatchingGroup(c71400027.xyzfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
-	local sg=xyzg:Select(tp,1,1,nil)
-	local sc=sg:GetFirst()
-	Debug.ShowHint(1)
-	if sc and Duel.SpecialSummonStep(sc,0,tp,tp,true,false,POS_FACEUP) then
-		local fid=c:GetFieldID()
-		sc:RegisterFlagEffect(71400027,RESET_EVENT+RESETS_STANDARD,0,1,fid)
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e1:SetCode(EVENT_PHASE+PHASE_END)
-		e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-		e1:SetCountLimit(1)
-		e1:SetLabel(fid)
-		e1:SetLabelObject(sc)
-		e1:SetCondition(c71400027.tdcon)
-		e1:SetOperation(c71400027.tdop)
-		Duel.RegisterEffect(e1,tp)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_SET_ATTACK_FINAL)
-		e2:SetValue(0)
-		e2:SetReset(RESET_EVENT+0x1fe0000)
-		sc:RegisterEffect(e2,true)
-		local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-		if g:GetCount()==2 then
-			local tc=g:GetFirst()
-			while tc do
-				local og=tc:GetOverlayGroup()
-				if og:GetCount()>0 then
-					Duel.SendtoGrave(og,REASON_RULE)
-				end
-				tc=g:GetNext()
-			end
-			Duel.Overlay(sc,g)
-		end
-		Duel.SpecialSummonComplete()
-	end
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e3:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e3:SetTargetRange(1,0)
-	e3:SetTarget(c71400027.aclimit)
-	Duel.RegisterEffect(e3,tp)
-end
-function c71400027.aclimit(e,re,tp)
-	return not re:GetHandler():IsSetCard(0x714) and re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsImmuneToEffect(e)
-end
-function c71400027.tdcon(e,tp,eg,ep,ev,re,r,rp)
-	local tc=e:GetLabelObject()
-	if tc:GetFlagEffectLabel(71400027)==e:GetLabel() then
-		return true
-	else
-		e:Reset()
-		return false
-	end
-end
-function c71400027.tdop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=e:GetLabelObject()
-	Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
-end
-function c71400027.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_FZONE) and chkc:IsControler(tp) and c71400027.filter2(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c71400027.filter2,tp,LOCATION_FZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectTarget(tp,c71400027.filter2,tp,LOCATION_FZONE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-end
-function c71400027.filter2(c)
-	return c:IsFaceup() and c:IsSetCard(0xb714) and c:IsType(TYPE_FIELD) and c:IsAbleToHand()
-end
-function c71400027.op2(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc and tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)==1 then
-		local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-		Duel.Draw(p,d,REASON_EFFECT)
-	end
+--梦路脑坏
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400027.initial_effect(c)
+	--sp summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400027,0))
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetHintTiming(0,0x1f0)
+	e1:SetCost(c71400027.cost1)
+	e1:SetTarget(c71400027.tg1)
+	e1:SetOperation(c71400027.op1)
+	c:RegisterEffect(e1)
+	--ac in hand
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	e0:SetCondition(yume.nonYumeCon)
+	c:RegisterEffect(e0)
+	--draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400027,1))
+	e2:SetCategory(CATEGORY_DRAW+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c71400027.tg2)
+	e2:SetOperation(c71400027.op2)
+	c:RegisterEffect(e2)
+end
+function c71400027.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,2000) end
+	Duel.PayLPCost(tp,2000)
+end
+function c71400027.filter1(c)
+	return c:IsPosition(POS_FACEUP_ATTACK) and not c:IsType(TYPE_TOKEN) and c:GetSummonLocation()==LOCATION_EXTRA and c:IsAbleToChangeControler()
+end
+function c71400027.xyzfilter(c,e,tp)
+	return c:IsSetCard(0x3715) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function c71400027.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c71400027.filter1(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c71400027.filter1,tp,0,LOCATION_MZONE,2,nil) and Duel.IsExistingMatchingCard(c71400027.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,c71400027.filter1,tp,0,LOCATION_MZONE,2,2,nil)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c71400027.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local xyzg=Duel.GetMatchingGroup(c71400027.xyzfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
+	local sg=xyzg:Select(tp,1,1,nil)
+	local sc=sg:GetFirst()
+	Debug.ShowHint(1)
+	if sc and Duel.SpecialSummonStep(sc,0,tp,tp,true,false,POS_FACEUP) then
+		local fid=c:GetFieldID()
+		sc:RegisterFlagEffect(71400027,RESET_EVENT+RESETS_STANDARD,0,1,fid)
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+		e1:SetCountLimit(1)
+		e1:SetLabel(fid)
+		e1:SetLabelObject(sc)
+		e1:SetCondition(c71400027.tdcon)
+		e1:SetOperation(c71400027.tdop)
+		Duel.RegisterEffect(e1,tp)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e2:SetValue(0)
+		e2:SetReset(RESET_EVENT+0x1fe0000)
+		sc:RegisterEffect(e2,true)
+		Duel.SpecialSummonComplete()
+		local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+		if g:GetCount()==2 then
+			local tc=g:GetFirst()
+			while tc do
+				local og=tc:GetOverlayGroup()
+				if og:GetCount()>0 then
+					Duel.SendtoGrave(og,REASON_RULE)
+				end
+				tc=g:GetNext()
+			end
+			Duel.Overlay(sc,g)
+		end
+	end
+	if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then return end
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e3:SetTargetRange(1,0)
+	e3:SetTarget(c71400027.aclimit)
+	Duel.RegisterEffect(e3,tp)
+end
+function c71400027.aclimit(e,re,tp)
+	return not re:GetHandler():IsSetCard(0x714) and re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsImmuneToEffect(e)
+end
+function c71400027.tdcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc:GetFlagEffectLabel(71400027)==e:GetLabel() then
+		return true
+	else
+		e:Reset()
+		return false
+	end
+end
+function c71400027.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
+end
+function c71400027.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_FZONE) and chkc:IsControler(tp) and c71400027.filter2(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c71400027.filter2,tp,LOCATION_FZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c71400027.filter2,tp,LOCATION_FZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function c71400027.filter2(c)
+	return c:IsFaceup() and c:IsSetCard(0xb714) and c:IsType(TYPE_FIELD) and c:IsAbleToHand()
+end
+function c71400027.op2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)==1 then
+		local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+		Duel.Draw(p,d,REASON_EFFECT)
+	end
 end
\ No newline at end of file

expansions/script/c71400028.lua

---锈蚀的梦之怪物
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400028.initial_effect(c)
-	--link summon
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,99,yume.YumeCheck(c))
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400028,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetCountLimit(1,71400028)
-	e1:SetTarget(c71400028.tg1)
-	e1:SetOperation(c71400028.op1)
-	c:RegisterEffect(e1)
-	--setcode
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
-	e2:SetTarget(c71400028.tg2)
-	e2:SetCode(EFFECT_ADD_SETCODE)
-	e2:SetValue(0x714)
-	c:RegisterEffect(e2)
-	--corrupt
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(71400028,1))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e3:SetCode(EVENT_DESTROYED)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCondition(c71400028.con3)
-	e3:SetTarget(c71400028.tg3)
-	e3:SetOperation(c71400028.op3)
-	c:RegisterEffect(e3)
-end
-function c71400028.filter1(c,e,tp,zone)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)
-end
-function c71400028.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local zone=e:GetHandler():GetLinkedZone(tp)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:GetControler()==1-tp and c71400028.filter1(chkc,e,tp) end
-	if chk==0 then return zone~=0 and Duel.IsExistingTarget(c71400028.filter1,tp,0,LOCATION_GRAVE,1,nil,e,tp,zone) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c71400028.filter1,tp,0,LOCATION_GRAVE,1,1,nil,e,tp,zone)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
-end
-function c71400028.op1(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	local zone=e:GetHandler():GetLinkedZone(tp)
-	if tc:IsRelateToEffect(e) then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP,zone)
-	end
-end
-function c71400028.tg2(e,c)
-	return e:GetHandler():GetLinkedGroup():IsContains(c) and c:IsFaceup()
-end
-function c71400028.con3(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return r&REASON_EFFECT+REASON_BATTLE~=0
-end
-function c71400028.filter3(c,e,tp)
-	return c:IsCode(71400030) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
-end
-function c71400028.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCountFromEx(tp)>0 end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c71400028.op3(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c71400028.filter3,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
-	if g:GetCount()>0 then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
+--锈蚀的异梦怪物
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400028.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,99,yume.YumeCheck(c))
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400028,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,71400028)
+	e1:SetTarget(c71400028.tg1)
+	e1:SetOperation(c71400028.op1)
+	c:RegisterEffect(e1)
+	--setcode
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e2:SetTarget(c71400028.tg2)
+	e2:SetCode(EFFECT_ADD_SETCODE)
+	e2:SetValue(0x714)
+	c:RegisterEffect(e2)
+	--corrupt
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(71400028,1))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_DESTROYED)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCondition(c71400028.con3)
+	e3:SetTarget(c71400028.tg3)
+	e3:SetOperation(c71400028.op3)
+	c:RegisterEffect(e3)
+end
+function c71400028.filter1(c,e,tp,zone)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)
+end
+function c71400028.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local zone=e:GetHandler():GetLinkedZone(tp)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:GetControler()==1-tp and c71400028.filter1(chkc,e,tp) end
+	if chk==0 then return zone~=0 and Duel.IsExistingTarget(c71400028.filter1,tp,0,LOCATION_GRAVE,1,nil,e,tp,zone) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c71400028.filter1,tp,0,LOCATION_GRAVE,1,1,nil,e,tp,zone)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c71400028.op1(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local zone=e:GetHandler():GetLinkedZone(tp)
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP,zone)
+	end
+end
+function c71400028.tg2(e,c)
+	return e:GetHandler():GetLinkedGroup():IsContains(c) and c:IsFaceup()
+end
+function c71400028.con3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return r&REASON_EFFECT+REASON_BATTLE~=0
+end
+function c71400028.filter3(c,e,tp)
+	return c:IsCode(71400030) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function c71400028.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCountFromEx(tp)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c71400028.op3(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c71400028.filter3,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
 end
\ No newline at end of file

expansions/script/c71400029.lua

---梦之方块间的围巾少女
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400029.initial_effect(c)
-	--summon limit
-	yume.AddYumeSummonLimit(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400029,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_GRAVE)
-	e1:SetCountLimit(1,71400029)
-	e1:SetTarget(c71400029.tg1)
-	e1:SetCondition(c71400029.con1)
-	e1:SetOperation(c71400029.op1)
-	c:RegisterEffect(e1)
-	--to hand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400029,1))
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
-	e2:SetTarget(c71400029.tg2)
-	e2:SetOperation(c71400029.op2)
-	c:RegisterEffect(e2)
-	local e2a=e2:Clone()
-	e2a:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2a)
-	Duel.AddCustomActivityCounter(71400029,ACTIVITY_CHAIN,c71400029.chainfilter)
-end
-function c71400029.chainfilter(re,tp,cid)
-	return not re:GetHandler():IsSetCard(0xa714)
-end
-function c71400029.con1(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetCustomActivityCount(71400029,tp,ACTIVITY_CHAIN)>0
-end
-function c71400029.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
-end
-function c71400029.op1(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c71400029.filter2(c)
-	return c:IsType(TYPE_FIELD) and c:IsSetCard(0xb714) and c:IsAbleToHand()
-end
-function c71400029.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71400029.filter2(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c71400029.filter2,tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectTarget(tp,c71400029.filter2,tp,LOCATION_GRAVE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
-end
-function c71400029.op2(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SendtoHand(tc,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,tc)
-	end
+--异梦方块的女-围巾子
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400029.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400029,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetCountLimit(1,71400029)
+	e1:SetTarget(c71400029.tg1)
+	e1:SetCondition(c71400029.con1)
+	e1:SetOperation(c71400029.op1)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400029,1))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e2:SetTarget(c71400029.tg2)
+	e2:SetOperation(c71400029.op2)
+	c:RegisterEffect(e2)
+	local e2a=e2:Clone()
+	e2a:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2a)
+	Duel.AddCustomActivityCounter(71400029,ACTIVITY_CHAIN,c71400029.chainfilter)
+end
+function c71400029.chainfilter(re,tp,cid)
+	return not re:GetHandler():IsSetCard(0xa714)
+end
+function c71400029.con1(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCustomActivityCount(71400029,tp,ACTIVITY_CHAIN)>0
+end
+function c71400029.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+function c71400029.op1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c71400029.filter2(c)
+	return c:IsType(TYPE_FIELD) and c:IsSetCard(0xb714) and c:IsAbleToHand()
+end
+function c71400029.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71400029.filter2(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c71400029.filter2,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c71400029.filter2,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c71400029.op2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	end
 end
\ No newline at end of file

expansions/script/c71400030.lua

---腐坏的梦之怪物
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400030.initial_effect(c)
-	--link summon
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),3,3,yume.YumeCheck(c))
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--indes
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-	e1:SetValue(1)
-	c:RegisterEffect(e1)
-	local e1a=e1:Clone()
-	e1a:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	c:RegisterEffect(e1a)
-	--[[
-	local e1b=e1:Clone()
-	e1b:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
-	c:RegisterEffect(e1b)
-	--]]
-	--negate spsummon
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_REMOVE)
-	e2:SetType(EFFECT_TYPE_QUICK_F)
-	e2:SetCode(EVENT_SPSUMMON)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetDescription(aux.Stringid(71400030,0))
-	e2:SetCondition(c71400030.condition)
-	e2:SetCost(c71400030.cost)
-	e2:SetTarget(c71400030.target)
-	e2:SetOperation(c71400030.operation)
-	c:RegisterEffect(e2)
-end
-function c71400030.filter2(c)
-	return c:IsPreviousLocation(LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK) and c:IsAbleToRemove()
-end
-function c71400030.cfilter2(c,g)
-	return g:IsContains(c)
-end
-function c71400030.condition(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetCurrentChain()==0 and eg:IsExists(c71400030.filter2,1,nil)
-end
-function c71400030.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local lg=c:GetLinkedGroup()
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400030.cfilter2,tp,LOCATION_ONFIELD,0,1,nil,lg) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c71400030.cfilter2,tp,LOCATION_ONFIELD,0,1,1,nil,lg)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function c71400030.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	local g=eg:Filter(c71400030.filter2,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,g,g:GetCount(),0,0)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
-end
-function c71400030.operation(e,tp,eg,ep,ev,re,r,rp)
-	local g=eg:Filter(c71400030.filter2,nil)
-	if g:GetCount()>0 then
-		Duel.NegateSummon(g)
-		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
-		local og=Duel.GetOperatedGroup()
-		if og:GetCount()>0 then
-			Duel.BreakEffect()
-			local tc=og:GetFirst()
-			local atk=0
-			while tc do
-				local tatk=tc:GetTextAttack()
-				if tatk>0 then atk=atk+tatk end
-				tc=og:GetNext()
-			end
-			Duel.SetLP(tp,Duel.GetLP(tp)-atk)
-		end
-	end
+--腐坏的异梦怪物
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400030.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),3,3,yume.YumeCheck(c))
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--indes
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	local e1a=e1:Clone()
+	e1a:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	c:RegisterEffect(e1a)
+	--[[
+	local e1b=e1:Clone()
+	e1b:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	c:RegisterEffect(e1b)
+	--]]
+	--negate spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_REMOVE)
+	e2:SetType(EFFECT_TYPE_QUICK_F)
+	e2:SetCode(EVENT_SPSUMMON)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetDescription(aux.Stringid(71400030,0))
+	e2:SetCondition(c71400030.condition)
+	e2:SetCost(c71400030.cost)
+	e2:SetTarget(c71400030.target)
+	e2:SetOperation(c71400030.operation)
+	c:RegisterEffect(e2)
+end
+function c71400030.filter2(c)
+	return c:IsPreviousLocation(LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK) and c:IsAbleToRemove()
+end
+function c71400030.cfilter2(c,g)
+	return g:IsContains(c)
+end
+function c71400030.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentChain()==0 and eg:IsExists(c71400030.filter2,1,nil)
+end
+function c71400030.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local lg=c:GetLinkedGroup()
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400030.cfilter2,tp,LOCATION_ONFIELD,0,1,nil,lg) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c71400030.cfilter2,tp,LOCATION_ONFIELD,0,1,1,nil,lg)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c71400030.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=eg:Filter(c71400030.filter2,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,g,g:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
+end
+function c71400030.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=eg:Filter(c71400030.filter2,nil)
+	if g:GetCount()>0 then
+		Duel.NegateSummon(g)
+		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+		local og=Duel.GetOperatedGroup()
+		if og:GetCount()>0 then
+			Duel.BreakEffect()
+			local tc=og:GetFirst()
+			local atk=0
+			while tc do
+				local tatk=tc:GetTextAttack()
+				if tatk>0 then atk=atk+tatk end
+				tc=og:GetNext()
+			end
+			Duel.SetLP(tp,Duel.GetLP(tp)-atk)
+		end
+	end
 end
\ No newline at end of file

expansions/script/c71400031.lua

---梦日记
-function c71400031.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOHAND)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(c71400031.tg)
-	e1:SetOperation(c71400031.op)
-	e1:SetCountLimit(1,71400031+EFFECT_COUNT_CODE_OATH)
-	c:RegisterEffect(e1)
-end
-function c71400031.filter(c)
-	return c:IsSetCard(0x714) and c:GetReason() & REASON_DESTROY~=0 and not c:IsCode(71400031) and c:IsAbleToHand()
-end
-function c71400031.tg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400031.filter,tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.GetMatchingGroup(c71400031.filter,tp,LOCATION_GRAVE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0)
-end
-function c71400031.op(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c71400031.filter,tp,LOCATION_GRAVE,0,1,1,nil)
-	Duel.SendtoHand(g,nil,REASON_EFFECT)
-	local og=Duel.GetOperatedGroup()
-	local ct=og:FilterCount(Card.IsLocation,nil,LOCATION_HAND)
-	Duel.SetLP(tp,Duel.GetLP(tp)-ct*500)
+--梦日记
+function c71400031.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c71400031.tg)
+	e1:SetOperation(c71400031.op)
+	e1:SetCountLimit(1,71400031+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(e1)
+end
+function c71400031.filter(c)
+	return c:IsSetCard(0x714) and c:GetReason() & REASON_DESTROY~=0 and not c:IsCode(71400031) and c:IsAbleToHand()
+end
+function c71400031.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400031.filter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.GetMatchingGroup(c71400031.filter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0)
+end
+function c71400031.op(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c71400031.filter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SendtoHand(g,nil,REASON_EFFECT)
+	local og=Duel.GetOperatedGroup()
+	local ct=og:FilterCount(Card.IsLocation,nil,LOCATION_HAND)
+	Duel.SetLP(tp,Duel.GetLP(tp)-ct*500)
 end
\ No newline at end of file

expansions/script/c71400032.lua

+--蚀异梦境-幻想植物回路
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400032.initial_effect(c)
+	--Activate
+	--See AddYumeFieldGlobal
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400032,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c71400032.con1)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetTarget(c71400032.tg1)
+	e1:SetOperation(c71400032.op1)
+	c:RegisterEffect(e1)
+	--tograve
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400032,1))
+	e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c71400032.con2)
+	e2:SetTarget(c71400032.tg2)
+	e2:SetOperation(c71400032.op2)
+	c:RegisterEffect(e2)
+	--self limitation & field activation
+	yume.AddYumeFieldGlobal(c,71400032,2)
+end
+function c71400032.op1(e,tp,eg,ep,ev,re,r,rp)
+	local cnt=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if cnt<=0 or not e:GetHandler():IsRelateToEffect(e) then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then cnt=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c71400032.filter1,tp,LOCATION_HAND,0,1,cnt,nil,e,tp)
+	if g:GetCount()==0 then return end
+	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	local lnkg=Duel.GetMatchingGroup(c71400032.lnkfilter,tp,LOCATION_EXTRA,0,nil)
+	if lnkg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(71400032,2)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local lnk=lnkg:Select(tp,1,1,nil):GetFirst()
+		Duel.SpecialSummonRule(tp,lnk,SUMMON_TYPE_LINK)
+	end
+end
+function c71400032.filter1(c,e,tp)
+	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c71400032.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c71400032.filter1,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,0)
+end
+function c71400032.con1(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
+end
+--Select Link Monsters
+function c71400032.lnkfilter(c)
+	return c:IsSetCard(0x716) and c:IsSpecialSummonable(SUMMON_TYPE_LINK)
+end
+function c71400032.con2(e,tp,eg,ep,ev,re,r,rp)
+	local ec=eg:GetFirst()
+	return eg:GetCount()==1 and ec:IsSetCard(0x714) and ec:IsSummonType(SUMMON_TYPE_LINK)
+end
+function c71400032.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_MZONE)
+end
+function c71400032.op2(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c71400032.filter2,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
+	if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)==1 then
+		local g2=Duel.SelectMatchingCard(tp,c71400032.filter2a,tp,LOCATION_DECK,0,1,1,nil)
+		if g2:GetCount()>0 then
+			Duel.SendtoHand(g2,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,g2)
+			Duel.BreakEffect()
+			Duel.SetLP(tp,Duel.GetLP(tp)-500)
+		end
+	end
+end
+function c71400032.filter2(c)
+	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
+end
+function c71400032.filter2a(c)
+	return c:IsSetCard(0xd714) and c:IsAbleToHand()
+end
\ No newline at end of file

expansions/script/c71400033.lua

---蚀异梦物-铁管
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400033.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_REMOVE)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetHintTiming(TIMING_DRAW_PHASE+TIMING_END_PHASE+TIMING_TOGRAVE,0)
-	e1:SetCountLimit(1,71400033+EFFECT_COUNT_CODE_OATH)
-	e1:SetDescription(aux.Stringid(71400033,0))
-	e1:SetTarget(c71400033.target)
-	e1:SetCost(c71400033.cost)
-	e1:SetCondition(yume.YumeLethalCon)
-	e1:SetOperation(c71400033.operation)
-	c:RegisterEffect(e1)
-end
-function c71400033.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckLPCost(tp,500) end
-	Duel.PayLPCost(tp,500)
-end
-function c71400033.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsAbleToRemove() and chkc~=e:GetHandler() end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
-	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
-		Duel.SetChainLimit(c71400033.limit(g:GetFirst()))
-	end
-end
-function c71400033.operation(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
-	end
-	if c:IsRelateToEffect(e) and c:IsCanTurnSet() then
-		Duel.BreakEffect()
-		c:CancelToGrave()
-		Duel.ChangePosition(c,POS_FACEDOWN)
-		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
-	end
-end
-function c71400033.limit(c)
-	return  function (e,lp,tp)
-				return e:GetHandler()~=c
-			end
+--蚀异梦物-铁管
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400033.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetHintTiming(TIMING_DRAW_PHASE+TIMING_END_PHASE+TIMING_TOGRAVE,0)
+	e1:SetCountLimit(1,71400033+EFFECT_COUNT_CODE_OATH)
+	e1:SetDescription(aux.Stringid(71400033,0))
+	e1:SetTarget(c71400033.target)
+	e1:SetCost(c71400033.cost)
+	e1:SetCondition(yume.YumeLethalCon)
+	e1:SetOperation(c71400033.operation)
+	c:RegisterEffect(e1)
+end
+function c71400033.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,500) end
+	Duel.PayLPCost(tp,500)
+end
+function c71400033.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsAbleToRemove() and chkc~=e:GetHandler() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
+		Duel.SetChainLimit(c71400033.limit(g:GetFirst()))
+	end
+end
+function c71400033.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
+	end
+	if c:IsRelateToEffect(e) and c:IsCanTurnSet() then
+		Duel.BreakEffect()
+		c:CancelToGrave()
+		Duel.ChangePosition(c,POS_FACEDOWN)
+		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+	end
+end
+function c71400033.limit(c)
+	return  function (e,lp,tp)
+				return e:GetHandler()~=c
+			end
 end
\ No newline at end of file

expansions/script/c71400034.lua

---蚀异梦境-里梦足迹
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400034.initial_effect(c)
-	--Activate
-	--See AddYumeFieldGlobal
-	--todeck
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetRange(LOCATION_FZONE)
-	e1:SetCountLimit(1)
-	e1:SetCost(c71400034.cost1)
-	e1:SetCondition(c71400034.con1)
-	e1:SetTarget(c71400034.tg1)
-	e1:SetOperation(c71400034.op1)
-	c:RegisterEffect(e1)
-	--self limitation & field activation
-	yume.AddYumeFieldGlobal(c,71400034,2)
-end
-function c71400034.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400034.filter1c,tp,LOCATION_HAND,0,1,nil) end
-	Duel.DiscardHand(tp,c71400034.filter1c,1,1,REASON_COST+REASON_DISCARD,nil)
-end
-function c71400034.filter1c(c)
-	return c:IsSetCard(0x7714) and c:IsType(TYPE_FIELD) and c:IsDiscardable()
-end
-function c71400034.con1(e,tp,eg,ep,ev,re,r,rp)
-	return re:GetHandler():IsOnField() and re:GetHandler():IsRelateToEffect(re) and (re:IsActiveType(TYPE_MONSTER)
-		or (re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and not re:IsHasType(EFFECT_TYPE_ACTIVATE)))
-end
-function c71400034.filter1(c)
-	return c:IsSetCard(0x716) and c:IsType(TYPE_LINK) and c:IsFaceup()
-end
-function c71400034.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return re:GetHandler():IsDestructable() end
-	if Duel.IsExistingMatchingCard(c71400034.filter1,tp,LOCATION_ONFIELD,0,1,nil) then
-		Duel.SetOperationInfo(0,CATEGORY_TODECK+CATEGORY_REMOVE,eg,1,0,0)
-	else
-		Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,1,0,0)
-	end
-end
-function c71400034.op1(e,tp,eg,ep,ev,re,r,rp)
-	if not (e:GetHandler():IsRelateToEffect(e) and re:GetHandler():IsRelateToEffect(re)) then return end
-	if Duel.SendtoDeck(eg,nil,2,REASON_EFFECT)==1 then
-		local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
-		if Duel.IsExistingMatchingCard(c71400034.filter1,tp,LOCATION_ONFIELD,0,1,nil) and g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(71400034,1)) then
-			Duel.BreakEffect()
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-			local sg=g:Select(tp,1,1,nil)
-			Duel.HintSelection(sg)
-			Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
-		end
-	end
+--蚀异梦境-里梦足迹
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400034.initial_effect(c)
+	--Activate
+	--See AddYumeFieldGlobal
+	--todeck
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetCountLimit(1)
+	e1:SetCost(c71400034.cost1)
+	e1:SetCondition(c71400034.con1)
+	e1:SetTarget(c71400034.tg1)
+	e1:SetOperation(c71400034.op1)
+	c:RegisterEffect(e1)
+	--self limitation & field activation
+	yume.AddYumeFieldGlobal(c,71400034,2)
+end
+function c71400034.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400034.filter1c,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,c71400034.filter1c,1,1,REASON_COST+REASON_DISCARD,nil)
+end
+function c71400034.filter1c(c)
+	return c:IsSetCard(0x7714) and c:IsType(TYPE_FIELD) and c:IsDiscardable()
+end
+function c71400034.con1(e,tp,eg,ep,ev,re,r,rp)
+	return re:GetHandler():IsOnField() and re:GetHandler():IsRelateToEffect(re) and (re:IsActiveType(TYPE_MONSTER)
+		or (re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and not re:IsHasType(EFFECT_TYPE_ACTIVATE)))
+end
+function c71400034.filter1(c)
+	return c:IsSetCard(0x716) and c:IsType(TYPE_LINK) and c:IsFaceup()
+end
+function c71400034.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return re:GetHandler():IsDestructable() end
+	if Duel.IsExistingMatchingCard(c71400034.filter1,tp,LOCATION_ONFIELD,0,1,nil) then
+		Duel.SetOperationInfo(0,CATEGORY_TODECK+CATEGORY_REMOVE,eg,1,0,0)
+	else
+		Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,1,0,0)
+	end
+end
+function c71400034.op1(e,tp,eg,ep,ev,re,r,rp)
+	if not (e:GetHandler():IsRelateToEffect(e) and re:GetHandler():IsRelateToEffect(re)) then return end
+	if Duel.SendtoDeck(eg,nil,2,REASON_EFFECT)==1 then
+		local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
+		if Duel.IsExistingMatchingCard(c71400034.filter1,tp,LOCATION_ONFIELD,0,1,nil) and g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(71400034,1)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+			local sg=g:Select(tp,1,1,nil)
+			Duel.HintSelection(sg)
+			Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+		end
+	end
 end
\ No newline at end of file

expansions/script/c71400035.lua

---梦行
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400035.initial_effect(c)
-	--activate from hand
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
-	e0:SetCondition(yume.nonYumeCon)
-	c:RegisterEffect(e0)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DISABLE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetOperation(c71400035.op1)
-	e1:SetTarget(c71400035.tg1)
-	e1:SetTarget(yume.YumeFieldCheckTarget())
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
-	c:RegisterEffect(e1)
-end
-function c71400035.filter1(c)
-	return c:IsSetCard(0xc714) and c:IsAbleToGrave()
-end
-function c71400035.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400035.filter1,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
-end
-function c71400035.op1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if yume.YumeFieldCheck(tp) and Duel.SelectYesNo(tp,aux.Stringid(71400035,1)) then
-		yume.FieldActivation(tp)
-	end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,c71400035.filter1,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)==1 and Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0) then
-		Duel.BreakEffect()
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_FIELD)
-		e1:SetCode(EFFECT_DISABLE)
-		e1:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
-		e1:SetTarget(c71400035.tg1a)
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		e1:SetLabel(c:GetSequence())
-		Duel.RegisterEffect(e1,tp)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e2:SetCode(EVENT_CHAIN_SOLVING)
-		e2:SetOperation(c71400035.op1a)
-		e2:SetReset(RESET_PHASE+PHASE_END)
-		e2:SetLabel(c:GetSequence())
-		Duel.RegisterEffect(e2,tp)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_FIELD)
-		e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
-		e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
-		e3:SetTarget(c71400035.tg1a)
-		e3:SetReset(RESET_PHASE+PHASE_END)
-		e3:SetLabel(c:GetSequence())
-		Duel.RegisterEffect(e3,tp)
-	end
-	if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then return end
-	local rct=1
-	if Duel.GetTurnPlayer()~=tp then rct=2 end
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_FIELD)
-	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e4:SetValue(c71400035.aclimit)
-	e4:SetTargetRange(1,0)
-	e4:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,rct)
-	Duel.RegisterEffect(e4,tp)
-end
-function c71400035.aclimit(e,re,rp)
-	local rc=re:GetHandler()
-	return re:IsHasType(EFFECT_TYPE_ACTIVATE) and not rc:IsSetCard(0x714) and not rc:IsImmuneToEffect(e)
-end
-function c71400035.tg1a(e,c)
-	local seq=e:GetLabel()
-	local p=c:GetControler()
-	local tp=e:GetHandlerPlayer()
-	return not c:IsSetCard(0x714)
-		and ((p==tp and c:GetSequence()==seq) or (p==1-tp and c:GetSequence()==4-seq))
-end
-function c71400035.op1a(e,tp,eg,ep,ev,re,r,rp)
-	local tseq=e:GetLabel()
-	local ec=re:GetHandler()
-	local loc,seq=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION,CHAININFO_TRIGGERING_SEQUENCE)
-	seq=aux.MZoneSequence(seq)
-	if ((rp==tp and seq==tseq) or (rp==1-tp and seq==4-tseq)) and (not ec:IsSetCard(0x714) and (ec:IsLocation(loc) or loc&LOCATION_ONFIELD==0) or not (ec:IsPreviousSetCard(0x714) or ec:IsLocation(loc)) and loc&LOCATION_ONFIELD~=0) then
-		Duel.NegateEffect(ev)
-	end
+--梦行
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400035.initial_effect(c)
+	--activate from hand
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
+	e0:SetCondition(yume.nonYumeCon)
+	c:RegisterEffect(e0)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DISABLE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c71400035.op1)
+	e1:SetTarget(c71400035.tg1)
+	e1:SetTarget(yume.YumeFieldCheckTarget())
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	c:RegisterEffect(e1)
+end
+function c71400035.filter1(c)
+	return c:IsSetCard(0xc714) and c:IsAbleToGrave()
+end
+function c71400035.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400035.filter1,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c71400035.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if yume.YumeFieldCheck(tp) and Duel.SelectYesNo(tp,aux.Stringid(71400035,1)) then
+		yume.FieldActivation(tp)
+	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c71400035.filter1,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)==1 and Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0) then
+		Duel.BreakEffect()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_DISABLE)
+		e1:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
+		e1:SetTarget(c71400035.tg1a)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		e1:SetLabel(c:GetSequence())
+		Duel.RegisterEffect(e1,tp)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCode(EVENT_CHAIN_SOLVING)
+		e2:SetOperation(c71400035.op1a)
+		e2:SetReset(RESET_PHASE+PHASE_END)
+		e2:SetLabel(c:GetSequence())
+		Duel.RegisterEffect(e2,tp)
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_FIELD)
+		e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
+		e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+		e3:SetTarget(c71400035.tg1a)
+		e3:SetReset(RESET_PHASE+PHASE_END)
+		e3:SetLabel(c:GetSequence())
+		Duel.RegisterEffect(e3,tp)
+	end
+	if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then return end
+	local rct=1
+	if Duel.GetTurnPlayer()~=tp then rct=2 end
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetValue(c71400035.aclimit)
+	e4:SetTargetRange(1,0)
+	e4:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,rct)
+	Duel.RegisterEffect(e4,tp)
+end
+function c71400035.aclimit(e,re,rp)
+	local rc=re:GetHandler()
+	return re:IsHasType(EFFECT_TYPE_ACTIVATE) and not rc:IsSetCard(0x714) and not rc:IsImmuneToEffect(e)
+end
+function c71400035.tg1a(e,c)
+	local seq=e:GetLabel()
+	local p=c:GetControler()
+	local tp=e:GetHandlerPlayer()
+	return not c:IsSetCard(0x714)
+		and ((p==tp and c:GetSequence()==seq) or (p==1-tp and c:GetSequence()==4-seq))
+end
+function c71400035.op1a(e,tp,eg,ep,ev,re,r,rp)
+	local tseq=e:GetLabel()
+	local ec=re:GetHandler()
+	local loc,seq=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION,CHAININFO_TRIGGERING_SEQUENCE)
+	seq=aux.MZoneSequence(seq)
+	if ((rp==tp and seq==tseq) or (rp==1-tp and seq==4-tseq)) and (not ec:IsSetCard(0x714) and (ec:IsLocation(loc) or loc&LOCATION_ONFIELD==0) or not (ec:IsPreviousSetCard(0x714) or ec:IsLocation(loc)) and loc&LOCATION_ONFIELD~=0) then
+		Duel.NegateEffect(ev)
+	end
 end
\ No newline at end of file

expansions/script/c71400036.lua

---幻异梦物-狼
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400036.initial_effect(c)
-	--summon limit
-	yume.AddYumeSummonLimit(c)
-	--to hand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400036,0))
-	e1:SetCategory(CATEGORY_TOHAND)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCountLimit(1,71400036)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetTarget(c71400036.tg1)
-	e1:SetOperation(c71400036.op1)
-	c:RegisterEffect(e1)
-end
-function c71400036.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local c=e:GetHandler()
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToHand() and chkc~=c end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,c) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
-	local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,c)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
-end
-function c71400036.op1(e,tp,eg,ep,ev,re,r,rp,chk)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SendtoHand(tc,nil,REASON_EFFECT)
-	end
+--幻异梦物-狼
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400036.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400036,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,71400036)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(c71400036.tg1)
+	e1:SetOperation(c71400036.op1)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400036,1))
+	e2:SetCountLimit(1,71500036)
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e2:SetCondition(c71400036.con2)
+	e2:SetTarget(c71400036.tg2)
+	e2:SetOperation(c71400036.op2)
+	c:RegisterEffect(e2)
+end
+function c71400036.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local c=e:GetHandler()
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToHand() and chkc~=c end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,c) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,c)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c71400036.op1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end
+function c71400036.con2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsReason(REASON_COST) and re:IsActivated() and re:IsActiveType(TYPE_XYZ) and c:IsPreviousLocation(LOCATION_OVERLAY) and re:GetHandler():IsSetCard(0x714)
+end
+function c71400036.filter2(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
+end
+function c71400036.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return c71400036.filter2(chkc) and chkc:IsOnField() end
+	if chk==0 then return Duel.IsExistingTarget(c71400036.filter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,CATEGORY_TOHAND)
+	local g=Duel.SelectTarget(tp,c71400036.filter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c71400036.op2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
 end
\ No newline at end of file

expansions/script/c71400037.lua

---幻异梦境-昭和胡同
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400037.initial_effect(c)
-	--Activate
-	--See AddYumeFieldGlobal
-	--self limitation & field activation
-	yume.AddYumeFieldGlobal(c,71400037,1)
-	--immune
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_IMMUNE_EFFECT)
-	e1:SetRange(LOCATION_FZONE)
-	e1:SetTargetRange(LOCATION_MZONE,0)
-	e1:SetTarget(c71400037.tg1)
-	e1:SetValue(c71400037.filter1)
-	c:RegisterEffect(e1)
-end
-function c71400037.tg1(e,c)
-	return c:IsSetCard(0x714)
-end
-function c71400037.filter1(e,te,c)
-	local tc=te:GetHandler()
-	local tseq=tc:GetSequence()
-	if tc:GetControler()~=c:GetControler() then tseq=tseq+16 end
-	if tc:IsLocation(LOCATION_SZONE) then tseq=tseq+8 end
-	local zone=c:GetColumnZone(LOCATION_ONFIELD)
-	return zone and bit.extract(zone,tseq)~=0
+--幻异梦境-昭和胡同
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400037.initial_effect(c)
+	--Activate
+	--See AddYumeFieldGlobal
+	--self limitation & field activation
+	yume.AddYumeFieldGlobal(c,71400037,1)
+	--cannot be target
+	local e1a=Effect.CreateEffect(c)
+	e1a:SetType(EFFECT_TYPE_FIELD)
+	e1a:SetCode(EFFECT_IGNORE_BATTLE_TARGET)
+	e1a:SetRange(LOCATION_FZONE)
+	e1a:SetTargetRange(LOCATION_MZONE,0)
+	e1a:SetValue(aux.imval1)
+	c:RegisterEffect(e1a)
+	local e1b=Effect.CreateEffect(c)
+	e1b:SetType(EFFECT_TYPE_FIELD)
+	e1b:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e1b:SetRange(LOCATION_FZONE)
+	e1b:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1b:SetTargetRange(LOCATION_MZONE,0)
+	e1b:SetTarget(c71400037.tg1)
+	e1b:SetValue(1)
+	c:RegisterEffect(e1b)
+end
+function c71400037.tg1(e,c)
+	return c:IsSetCard(0x714)
 end
\ No newline at end of file

expansions/script/c71400038.lua

---锖
-function c71400038.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-	e1:SetCondition(c71400038.condition)
-	e1:SetTarget(c71400038.target)
-	e1:SetOperation(c71400038.activate)
-	e1:SetDescription(aux.Stringid(71400038,0))
-	e1:SetCountLimit(1,71400038+EFFECT_COUNT_CODE_DUEL+EFFECT_COUNT_CODE_OATH)
-	e1:SetCost(c71400038.cost)
-	c:RegisterEffect(e1)
-end
-function c71400038.condition(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetLP(tp)<=3000
-end
-function c71400038.filterc(c)
-	return c:IsSetCard(0xd714) and c:IsAbleToRemoveAsCost()
-end
-function c71400038.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400038.filterc,tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c71400038.filterc,tp,LOCATION_GRAVE,0,1,1,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function c71400038.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
-		Duel.SetChainLimit(aux.FALSE)
-	end
-end
-function c71400038.activate(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_PRE_BATTLE_DAMAGE)
-	e1:SetCondition(c71400038.con1)
-	e1:SetOperation(c71400038.op1)
-	Duel.RegisterEffect(e1,tp)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e2:SetTargetRange(1,0)
-	e2:SetValue(c71400038.aclimit2)
-	Duel.RegisterEffect(e2,tp)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	e3:SetTargetRange(LOCATION_MZONE,0)
-	e3:SetTarget(c71400038.tg3)
-	e3:SetValue(aux.indoval)
-	Duel.RegisterEffect(e3,tp)
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_FIELD)
-	e4:SetCode(EFFECT_CANNOT_INACTIVATE)
-	e4:SetValue(c71400038.filter4)
-	Duel.RegisterEffect(e4,tp)
-	local e4a=e1:Clone()
-	e4a:SetCode(EFFECT_CANNOT_DISEFFECT)
-	Duel.RegisterEffect(e4a,tp)
-end
-function c71400038.con1(e,tp,eg,ep,ev,re,r,rp)
-	return ep==tp
-end
-function c71400038.op1(e,tp,eg,ep,ev,re,r,rp)
-	Duel.ChangeBattleDamage(ep,ev*2)
-end
-function c71400038.aclimit2(e,re,rp)
-	local rc=re:GetHandler()
-	return rc:IsSetCard(0xd714) and not rc:IsImmuneToEffect(e)
-end
-function c71400038.tg3(e,c)
-	return c:IsSetCard(0x714)
-end
-function c71400038.filter4(e,ct)
-	local p=e:GetHandlerPlayer()
-	local te,tp,loc=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER,CHAININFO_TRIGGERING_LOCATION)
-	local tc=te:GetHandler()
-	return p==tp and not (not ec:IsSetCard(0x714) and (ec:IsLocation(loc) or loc&LOCATION_ONFIELD==0) or not (ec:IsPreviousSetCard(0x714) or ec:IsLocation(loc)) and loc&LOCATION_ONFIELD~=0)
+--锖
+function c71400038.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+	e1:SetCondition(c71400038.condition)
+	e1:SetTarget(c71400038.target)
+	e1:SetOperation(c71400038.activate)
+	e1:SetDescription(aux.Stringid(71400038,0))
+	e1:SetCountLimit(1,71400038+EFFECT_COUNT_CODE_DUEL+EFFECT_COUNT_CODE_OATH)
+	e1:SetCost(c71400038.cost)
+	c:RegisterEffect(e1)
+end
+function c71400038.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetLP(tp)<=3000
+end
+function c71400038.filterc(c)
+	return c:IsSetCard(0xd714) and c:IsAbleToRemoveAsCost()
+end
+function c71400038.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400038.filterc,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c71400038.filterc,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c71400038.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
+		Duel.SetChainLimit(aux.FALSE)
+	end
+end
+function c71400038.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_PRE_BATTLE_DAMAGE)
+	e1:SetCondition(c71400038.con1)
+	e1:SetOperation(c71400038.op1)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e2:SetTargetRange(1,0)
+	e2:SetValue(c71400038.aclimit2)
+	Duel.RegisterEffect(e2,tp)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e3:SetTargetRange(LOCATION_MZONE,0)
+	e3:SetTarget(c71400038.tg3)
+	e3:SetValue(aux.indoval)
+	Duel.RegisterEffect(e3,tp)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_CANNOT_INACTIVATE)
+	e4:SetValue(c71400038.filter4)
+	Duel.RegisterEffect(e4,tp)
+	local e4a=e1:Clone()
+	e4a:SetCode(EFFECT_CANNOT_DISEFFECT)
+	Duel.RegisterEffect(e4a,tp)
+	yume.RustFlag=true;
+end
+function c71400038.con1(e,tp,eg,ep,ev,re,r,rp)
+	return ep==tp
+end
+function c71400038.op1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.ChangeBattleDamage(ep,ev*2)
+end
+function c71400038.aclimit2(e,re,rp)
+	local rc=re:GetHandler()
+	return rc:IsSetCard(0xd714) and not rc:IsImmuneToEffect(e)
+end
+function c71400038.tg3(e,c)
+	return c:IsSetCard(0x714)
+end
+function c71400038.filter4(e,ct)
+	local p=e:GetHandlerPlayer()
+	local te,tp,loc=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER,CHAININFO_TRIGGERING_LOCATION)
+	local tc=te:GetHandler()
+	return p==tp and not (not ec:IsSetCard(0x714) and (ec:IsLocation(loc) or loc&LOCATION_ONFIELD==0) or not (ec:IsPreviousSetCard(0x714) or ec:IsLocation(loc)) and loc&LOCATION_ONFIELD~=0)
 end
\ No newline at end of file

expansions/script/c71400039.lua

---异梦粉红小丑
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400039.initial_effect(c)
-	c:EnableReviveLimit()
-	--cannot special summon
-	local e0=Effect.CreateEffect(c)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
-	c:RegisterEffect(e0)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400039,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetCondition(yume.YumeCon)
-	e1:SetCountLimit(1,71400039)
-	e1:SetTarget(c71400039.tg1)
-	e1:SetOperation(c71400039.op1)
-	c:RegisterEffect(e1)
-	--indes
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-	e2:SetValue(1)
-	c:RegisterEffect(e2)
-	local e2a=e2:Clone()
-	e2a:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	c:RegisterEffect(e2a)
-end
-function c71400039.filter1(c,tp)
-	return c:IsLocation(LOCATION_MZONE) and c:IsAbleToRemove()
-end
-function c71400039.tg1(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,true,true) and eg:IsExists(c71400039.filter1,1,nil) end
-	Duel.SetTargetCard(eg)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0)
-end
-function c71400039.filter1a(c,e)
-	return c:IsRelateToEffect(e) and c:IsLocation(LOCATION_MZONE)
-end
-function c71400039.op1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)~=0 then
-		c:CompleteProcedure()
-		local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
-	end
+--异梦粉红小丑
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400039.initial_effect(c)
+	c:EnableReviveLimit()
+	--cannot special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400039,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCondition(yume.YumeCon)
+	e1:SetCountLimit(1,71400039)
+	e1:SetTarget(c71400039.tg1)
+	e1:SetOperation(c71400039.op1)
+	c:RegisterEffect(e1)
+	--indes
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	local e2a=e2:Clone()
+	e2a:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	c:RegisterEffect(e2a)
+end
+function c71400039.filter1(c,tp)
+	return c:IsLocation(LOCATION_MZONE) and c:IsAbleToRemove()
+end
+function c71400039.tg1(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,true,true) and eg:IsExists(c71400039.filter1,1,nil) end
+	local g=eg:Filter(c71400039.filter1,nil,tp)
+	Duel.SetTargetCard(eg)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
+end
+function c71400039.filter2a(c,e,tp)
+	return c:IsRelateToEffect(e) and c:IsLocation(LOCATION_MZONE)
+end
+function c71400039.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and yume.IsYumeFieldOnField(tp) and Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)~=0 then
+		c:CompleteProcedure()
+		local g=eg:Filter(c71400039.filter2a,nil,e,tp)
+		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+	end
 end
\ No newline at end of file

expansions/script/c71400040.lua

---异梦笑颜兄妹
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400040.initial_effect(c)
-	c:SetUniqueOnField(1,0,71400040)
-	--link summon
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,2,yume.YumeCheck(c))
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--indes
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-	e2:SetValue(1)
-	c:RegisterEffect(e2)
-	local e2a=e2:Clone()
-	e2a:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	c:RegisterEffect(e2a)
-	--cannot be target
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
-	e3:SetTarget(c71400040.tg3)
-	e3:SetValue(1)
-	c:RegisterEffect(e3)
-	local e3a=e3:Clone()
-	e3a:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
-	e3a:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-	c:RegisterEffect(e3a)
-end
-function c71400040.tg3(e,c)
-	return e:GetHandler():GetLinkedGroup():IsContains(c) and c:IsSetCard(0x714)
+--异梦笑颜兄妹
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400040.initial_effect(c)
+	c:SetUniqueOnField(1,0,71400040)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,2,yume.YumeCheck(c))
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--indes
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	local e2a=e2:Clone()
+	e2a:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	c:RegisterEffect(e2a)
+	--cannot be target
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e3:SetTarget(c71400040.tg3)
+	e3:SetValue(1)
+	c:RegisterEffect(e3)
+	local e3a=e3:Clone()
+	e3a:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e3a:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	c:RegisterEffect(e3a)
+end
+function c71400040.tg3(e,c)
+	return e:GetHandler():GetLinkedGroup():IsContains(c) and c:IsSetCard(0x714)
 end
\ No newline at end of file

expansions/script/c71400041.lua

---蚀异梦境-梦医院
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400041.initial_effect(c)
-	--Activate
-	--See AddYumeFieldGlobal
-	--self limitation & field activation
-	yume.AddYumeFieldGlobal(c,71400041,2)
-	--to grave
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOGRAVE)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_SSET+TIMING_BATTLE_START+TIMING_MAIN_END)
-	e1:SetRange(LOCATION_FZONE)
-	e1:SetTarget(c71400041.tg1)
-	e1:SetDescription(aux.Stringid(71400041,0))
-	e1:SetCost(c71400041.cost1)
-	e1:SetCondition(c71400041.con1)
-	e1:SetOperation(c71400041.op1)
-	c:RegisterEffect(e1)
-end
-function c71400041.con1(e,tp,eg,ep,ev,re,r,rp)
-	local ph=Duel.GetCurrentPhase()
-	return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2)
-end
-function c71400041.filter1c(c)
-	return c:IsSetCard(0x714) and c:IsType(TYPE_LINK) and c:IsLinkState() and c:IsAbleToRemoveAsCost()
-end
-function c71400041.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400041.filter1c,tp,LOCATION_MZONE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local tc=Duel.SelectMatchingCard(tp,c71400041.filter1c,tp,LOCATION_MZONE,0,1,1,nil):GetFirst()
-	if Duel.Remove(tc,POS_FACEUP,REASON_COST+REASON_TEMPORARY)~=0 then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e1:SetCode(EVENT_PHASE+PHASE_END)
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		e1:SetDescription(aux.Stringid(71400041,1))
-		e1:SetLabelObject(tc)
-		e1:SetCountLimit(1)
-		e1:SetOperation(c71400041.retop)
-		Duel.RegisterEffect(e1,tp)
-	end
-end
-function c71400041.retop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.ReturnToField(e:GetLabelObject())
-end
-function c71400041.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsAbleToGrave() end
-	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectTarget(tp,Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
-end
-function c71400041.filter1(c,cid)
-	return c:IsAbleToGrave() and c:IsCode(cid)
-end
-function c71400041.op1(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SendtoGrave(tc,REASON_EFFECT)
-		if tc:IsLocation(LOCATION_GRAVE) then
-			local p=tc:GetControler()
-			local g=Duel.GetMatchingGroup(c71400041.filter1,p,LOCATION_DECK+LOCATION_HAND,0,nil,tc:GetCode())
-			if g:GetCount()>0 then
-				Duel.BreakEffect()
-				Duel.SendtoGrave(g,REASON_EFFECT)
-				g=g:Filter(Card.IsLocation,nil,LOCATION_GRAVE)
-			end
-			g:AddCard(tc)
-			local lc=g:GetFirst()
-			while lc do
-				local e1=Effect.CreateEffect(e:GetHandler())
-				e1:SetType(EFFECT_TYPE_FIELD)
-				e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-				e1:SetCode(EFFECT_CANNOT_ACTIVATE)
-				e1:SetTargetRange(1,0)
-				e1:SetValue(c71400041.aclimit)
-				e1:SetLabel(lc:GetCode())
-				e1:SetReset(RESET_PHASE+PHASE_END)
-				Duel.RegisterEffect(e1,p)
-				lc=g:GetNext()
-			end
-		end
-	end
-end
-function c71400041.aclimit(e,re,tp)
-	return re:GetHandler():IsCode(e:GetLabel())
+--蚀异梦境-梦医院
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400041.initial_effect(c)
+	--Activate
+	--See AddYumeFieldGlobal
+	--self limitation & field activation
+	yume.AddYumeFieldGlobal(c,71400041,2)
+	--to grave
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_SSET+TIMING_BATTLE_START+TIMING_MAIN_END)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetTarget(c71400041.tg1)
+	e1:SetDescription(aux.Stringid(71400041,0))
+	e1:SetCost(c71400041.cost1)
+	e1:SetCondition(c71400041.con1)
+	e1:SetOperation(c71400041.op1)
+	c:RegisterEffect(e1)
+end
+function c71400041.con1(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2)
+end
+function c71400041.filter1c(c)
+	return c:IsSetCard(0x714) and c:IsType(TYPE_LINK) and c:IsLinkState() and c:IsAbleToRemoveAsCost()
+end
+function c71400041.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400041.filter1c,tp,LOCATION_MZONE,0,1,nil) and Duel.CheckLPCost(tp,500) end
+	Duel.PayLPCost(tp,500)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local tc=Duel.SelectMatchingCard(tp,c71400041.filter1c,tp,LOCATION_MZONE,0,1,1,nil):GetFirst()
+	if Duel.Remove(tc,POS_FACEUP,REASON_COST+REASON_TEMPORARY)~=0 then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		e1:SetDescription(aux.Stringid(71400041,1))
+		e1:SetLabelObject(tc)
+		e1:SetCountLimit(1)
+		e1:SetOperation(c71400041.retop)
+		Duel.RegisterEffect(e1,tp)
+	end
+end
+function c71400041.retop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.ReturnToField(e:GetLabelObject())
+end
+function c71400041.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsAbleToGrave() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
+end
+function c71400041.filter1(c,cid)
+	return c:IsAbleToGrave() and c:IsCode(cid)
+end
+function c71400041.op1(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoGrave(tc,REASON_EFFECT)
+		if tc:IsLocation(LOCATION_GRAVE) then
+			local p=tc:GetControler()
+			local g=Duel.GetMatchingGroup(c71400041.filter1,p,LOCATION_DECK+LOCATION_HAND,0,nil,tc:GetCode())
+			if g:GetCount()>0 then
+				Duel.BreakEffect()
+				Duel.SendtoGrave(g,REASON_EFFECT)
+				g=g:Filter(Card.IsLocation,nil,LOCATION_GRAVE)
+			end
+			g:AddCard(tc)
+			local lc=g:GetFirst()
+			while lc do
+				local e1=Effect.CreateEffect(e:GetHandler())
+				e1:SetType(EFFECT_TYPE_FIELD)
+				e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+				e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+				e1:SetTargetRange(1,0)
+				e1:SetValue(c71400041.aclimit)
+				e1:SetLabel(lc:GetCode())
+				e1:SetReset(RESET_PHASE+PHASE_END)
+				Duel.RegisterEffect(e1,p)
+				lc=g:GetNext()
+			end
+		end
+	end
+end
+function c71400041.aclimit(e,re,tp)
+	return re:GetHandler():IsCode(e:GetLabel())
 end
\ No newline at end of file

expansions/script/c71400042.lua

---异梦之书的小管理员
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400042.initial_effect(c)
-	--summon limit
-	yume.AddYumeSummonLimit(c)
-	--cannot attack
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetOperation(c71400042.atklimit)
-	c:RegisterEffect(e1)
-	local e1a=e1:Clone()
-	e1a:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
-	c:RegisterEffect(e1a)
-	local e1b=e1:Clone()
-	e1b:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e1b)
-	--direct attack
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_DIRECT_ATTACK)
-	e2:SetCondition(c71400042.dircon)
-	c:RegisterEffect(e2)
-	--special summon
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(71400042,0))
-	e3:SetCountLimit(1)
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EVENT_FREE_CHAIN)
-	e3:SetCost(c71400042.cost3)
-	e3:SetTarget(c71400042.tg3)
-	e3:SetOperation(c71400042.op3)
-	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	c:RegisterEffect(e3)
-	--transform
-	local e4a=Effect.CreateEffect(c)
-	e4a:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e4a:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e4a:SetCode(EVENT_CHAINING)
-	e4a:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e4a:SetOperation(aux.chainreg)
-	c:RegisterEffect(e4a)
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(71400042,1))
-	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e4:SetCode(EVENT_CHAIN_SOLVED)
-	e4:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e4:SetCondition(c71400042.con4)
-	e4:SetTarget(c71400042.tg4)
-	e4:SetOperation(c71400042.op4)
-	c:RegisterEffect(e4)
-end
-function c71400042.atklimit(e,tp,eg,ep,ev,re,r,rp)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_CANNOT_ATTACK)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-	e:GetHandler():RegisterEffect(e1)
-end
-function c71400042.cfilter1(c)
-	return c:IsFaceup() and c:IsCode(15259703)
-end
-function c71400042.cfilter2(c)
-	return c:IsFaceup() and c:IsType(TYPE_TOON)
-end
-function c71400042.dircon(e)
-	local tp=e:GetHandlerPlayer()
-	return Duel.IsExistingMatchingCard(c71400042.cfilter1,tp,LOCATION_ONFIELD,0,1,nil)
-		and not Duel.IsExistingMatchingCard(c71400042.cfilter2,tp,0,LOCATION_MZONE,1,nil)
-end
-function c71400042.filter3(c)
-	local flag=false
-	if c:IsLocation(LOCATION_HAND) then flag=c:IsSetCard(0x714)
-	else flag=c:IsSetCard(0x714) and c:IsType(TYPE_XYZ) end
-	return flag and c:IsAbleToRemoveAsCost()
-end
-function c71400042.xyzfilter(c,e,tp)
-	return c:IsSetCard(0x3715) and c:IsType(TYPE_XYZ) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
-end
-function c71400042.cost3(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400042.filter3,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,c71400042.filter3,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,2,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-	e:SetTargetCard(g)
-end
-function c71400042.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400042.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c71400042.op3(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c71400042.xyzfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local sg=g:Select(tp,1,1,nil)
-	local sc=sg:GetFirst()
-	if sc then
-		Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
-		local mg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-		if mg:GetCount()>0 then 
-			Duel.Overlay(sc,mg)
-		end
-	end
-end
-function c71400042.filter4(c,e,tp)
-	return c:IsCode(71400011) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
-end
-function c71400042.con4(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local rc=re:GetHandler()
-	return rc:IsCode(71400026) and c:GetFlagEffect(1)>0 and re:IsHasType(EFFECT_TYPE_ACTIVATE)
-end
-function c71400042.tg4(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-	local c=e:GetHandler()
-	if c:IsLocation(LOCATION_GRAVE) then Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,c,1,tp,LOCATION_GRAVE) end
-end
-function c71400042.op4(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if Duel.GetLocationCountFromEx(tp,tp,c)<=0 or not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_XMATERIAL) then return end
-	if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsControler(1-tp) or c:IsImmuneToEffect(e) then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c71400042.filter4,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
-	local sc=g:GetFirst()
-	if sc and Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)==1 then
-		sc:CompleteProcedure()
-		if c:IsRelateToEffect(e) then
-			Duel.Overlay(sc,c)
-		end
-	end
+--小异梦书使-馆长女儿
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400042.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--cannot attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetOperation(c71400042.atklimit)
+	c:RegisterEffect(e1)
+	local e1a=e1:Clone()
+	e1a:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	c:RegisterEffect(e1a)
+	local e1b=e1:Clone()
+	e1b:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e1b)
+	--direct attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_DIRECT_ATTACK)
+	e2:SetCondition(c71400042.dircon)
+	c:RegisterEffect(e2)
+	--special summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(71400042,0))
+	e3:SetCountLimit(1)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetTarget(c71400042.tg3)
+	e3:SetOperation(c71400042.op3)
+	e3:SetCondition(c71400042.con3)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	c:RegisterEffect(e3)
+	--transform
+	local e4a=Effect.CreateEffect(c)
+	e4a:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4a:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e4a:SetCode(EVENT_CHAINING)
+	e4a:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
+	e4a:SetOperation(aux.chainreg)
+	c:RegisterEffect(e4a)
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(71400042,1))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e4:SetCode(EVENT_CHAIN_SOLVED)
+	e4:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
+	e4:SetCondition(c71400042.con4)
+	e4:SetTarget(c71400042.tg4)
+	e4:SetOperation(c71400042.op4)
+	c:RegisterEffect(e4)
+end
+function c71400042.atklimit(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CANNOT_ATTACK)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	e:GetHandler():RegisterEffect(e1)
+end
+function c71400042.cfilter1(c)
+	return c:IsFaceup() and c:IsCode(15259703)
+end
+function c71400042.cfilter2(c)
+	return c:IsFaceup() and c:IsType(TYPE_TOON)
+end
+function c71400042.dircon(e)
+	local tp=e:GetHandlerPlayer()
+	return Duel.IsExistingMatchingCard(c71400042.cfilter1,tp,LOCATION_ONFIELD,0,1,nil)
+		and not Duel.IsExistingMatchingCard(c71400042.cfilter2,tp,0,LOCATION_MZONE,1,nil)
+end
+function c71400042.filter3(c)
+	local flag=false
+	if c:IsLocation(LOCATION_HAND) then flag=c:IsSetCard(0x714)
+	else flag=c:IsSetCard(0x714) and c:IsType(TYPE_XYZ) end
+	return flag and c:IsAbleToRemoveAsCost()
+end
+function c71400042.xyzfilter(c,e,tp)
+	return c:IsSetCard(0x3715) and c:IsType(TYPE_XYZ) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function c71400042.linkfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_LINK)
+end
+function c71400042.con3(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(c71400042.linkfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c71400042.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400042.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c71400042.op3(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c71400042.xyzfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg=g:Select(tp,1,1,nil)
+	local sc=sg:GetFirst()
+	if sc and Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEUP) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		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_DECK)
+		sc:RegisterEffect(e1)
+		Duel.SpecialSummonComplete()
+	end
+end
+function c71400042.filter4(c,e,tp)
+	return c:IsCode(71400011) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
+end
+function c71400042.con4(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local rc=re:GetHandler()
+	return rc:IsCode(71400026) and c:GetFlagEffect(1)>0
+end
+function c71400042.tg4(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+	local c=e:GetHandler()
+	if c:IsLocation(LOCATION_GRAVE) then Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,c,1,tp,LOCATION_GRAVE) end
+end
+function c71400042.op4(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCountFromEx(tp,tp,c)<=0 or not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_XMATERIAL) then return end
+	if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsControler(1-tp) or c:IsImmuneToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c71400042.filter4,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+	local sc=g:GetFirst()
+	if sc and Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)==1 then
+		sc:CompleteProcedure()
+		if c:IsRelateToEffect(e) then
+			Duel.Overlay(sc,c)
+		end
+	end
 end
\ No newline at end of file

expansions/script/c71400043.lua

---异梦之海的潜水员
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400043.initial_effect(c)
-	c:SetSPSummonOnce(71400043)
-	--link summon
-	aux.AddLinkProcedure(c,c71400043.matfilter,1,1,yume.YumeCheck(c))
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--tohand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400043,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetCountLimit(1,71400043+EFFECT_COUNT_CODE_DUEL)
-	e1:SetCondition(c71400043.con1)
-	e1:SetTarget(c71400043.tg1)
-	e1:SetOperation(c71400043.op1)
-	c:RegisterEffect(e1)
-	--field
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400043,1))
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1)
-	e2:SetCondition(c71400043.con2)
-	e2:SetOperation(c71400043.op2)
-	c:RegisterEffect(e2)
-	--tohand
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(71400043,2))
-	e3:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetCode(EVENT_TO_GRAVE)
-	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
-	e3:SetTarget(c71400043.tg3)
-	e3:SetOperation(c71400043.op3)
-	c:RegisterEffect(e3)
-end
-function c71400043.matfilter(c)
-	return c:IsLinkType(TYPE_EFFECT) and not c:IsLinkType(TYPE_LINK)
-end
-function c71400043.con1(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
-end
-function c71400043.filter1(c)
-	return c:IsSetCard(0x5714) and c:IsAbleToHand()
-end
-function c71400043.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400043.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
-end
-function c71400043.op1(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c71400043.filter1,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end
-function c71400043.filter2(c)
-	return c:GetSummonLocation()==LOCATION_EXTRA
-end
-function c71400043.filter2a(c)
-	return c:IsFaceup() and c:IsType(TYPE_LINK)
-end
-function c71400043.con2(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c71400043.filter2,tp,LOCATION_MZONE,0,nil)
-	return Duel.GetTurnPlayer()~=tp and g:GetCount()>0 and g:FilterCount(c71400043.filter2a,nil)==g:GetCount()
-end
-function c71400043.op2(e,tp,eg,ep,ev,re,r,rp)
-	yume.FieldActivation(tp,nil,2)
-end
-function c71400043.filter3a(c)
-	return c:IsSetCard(0x5714) and c:IsAbleToDeck() and not c:IsPublic()
-end
-function c71400043.filter3(c)
-	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
-end
-function c71400043.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400043.filter3,tp,LOCATION_DECK,0,1,nil) and Duel.IsExistingMatchingCard(c71400043.filter3a,tp,LOCATION_HAND,0,1,nil) end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c71400043.op3(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
-	local g=Duel.SelectMatchingCard(tp,c71400043.filter3a,tp,LOCATION_HAND,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.ConfirmCards(1-tp,g)
-		if Duel.SendtoDeck(g,nil,2,REASON_EFFECT)>0 then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-			local g2=Duel.SelectMatchingCard(tp,c71400043.filter3,tp,LOCATION_DECK,0,1,1,nil)
-			if g2:GetCount()>0 then
-				Duel.BreakEffect()
-				Duel.SendtoHand(g2,nil,REASON_EFFECT)
-				Duel.ConfirmCards(1-tp,g2)
-			end
-		end
-	end
-end
+--异梦海底的潜水员-橘黄子
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400043.initial_effect(c)
+	c:SetSPSummonOnce(71400043)
+	--link summon
+	aux.AddLinkProcedure(c,c71400043.matfilter,1,1,yume.YumeCheck(c))
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--tohand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400043,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,71400043+EFFECT_COUNT_CODE_DUEL)
+	e1:SetCondition(c71400043.con1)
+	e1:SetTarget(c71400043.tg1)
+	e1:SetOperation(c71400043.op1)
+	c:RegisterEffect(e1)
+	--field
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400043,1))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c71400043.con2)
+	e2:SetOperation(c71400043.op2)
+	e2:SetTarget(c71400043.tg2)
+	c:RegisterEffect(e2)
+	--banish
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(71400043,2))
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c71400043.con3)
+	e3:SetOperation(c71400043.op3)
+	e3:SetCost(c71400043.cost3)
+	e3:SetTarget(c71400043.tg3)
+	c:RegisterEffect(e3)
+	--[[
+	--tohand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(71400043,2))
+	e3:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetTarget(c71400043.tg3)
+	e3:SetOperation(c71400043.op3)
+	c:RegisterEffect(e3)
+	--]]
+end
+function c71400043.matfilter(c)
+	return c:IsLinkType(TYPE_EFFECT) and not c:IsLinkType(TYPE_LINK)
+end
+function c71400043.con1(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function c71400043.filter1(c)
+	return c:IsSetCard(0xd714) and c:IsAbleToHand()
+end
+function c71400043.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400043.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+end
+function c71400043.op1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c71400043.filter1,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c71400043.con2(e,tp,eg,ep,ev,re,r,rp)
+	return not (yume.RustFlag or e:GetHandler():IsStatus(STATUS_SPSUMMON_TURN))
+end
+function c71400043.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
+		local num=0
+		if fc and fc:IsFaceup() then num=fc:GetCode() end
+		return yume.YumeFieldCheck(tp,num,2,LOCATION_GRAVE+LOCATION_DECK)
+	end
+end
+function c71400043.op2(e,tp,eg,ep,ev,re,r,rp)
+	local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
+	local num=0
+	if fc and fc:IsFaceup() then num=fc:GetCode() end
+	yume.FieldActivation(tp,num,2,LOCATION_GRAVE+LOCATION_DECK)
+end
+function c71400043.con3(e,tp,eg,ep,ev,re,r,rp)
+	return yume.RustFlag
+end
+function c71400043.filter3(c,tp)
+	return c:IsAbleToRemove(tp,POS_FACEDOWN) and not(c:IsLocation(LOCATION_FZONE) and c:IsType(TYPE_FIELD) and c:IsSetCard(0x3714) and c:IsFaceup() and c:IsControler(tp))
+end
+function c71400043.cost3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost(POS_FACEDOWN) end
+	Duel.Remove(e:GetHandler(),POS_FACEDOWN,REASON_COST)
\ No newline at end of file
+end
+function c71400043.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400043.filter3,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,tp) end
+	local g=Duel.GetMatchingGroup(c71400043.filter3,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
+end
+function c71400043.op3(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c71400043.filter3,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,tp)
+	Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
+end
+--[[
+function c71400043.filter3a(c)
+	return c:IsSetCard(0x5714) and c:IsAbleToDeck() and not c:IsPublic()
+end
+function c71400043.filter3(c)
+	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c71400043.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400043.filter3,tp,LOCATION_DECK,0,1,nil) and Duel.IsExistingMatchingCard(c71400043.filter3a,tp,LOCATION_HAND,0,1,nil) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c71400043.op3(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,c71400043.filter3a,tp,LOCATION_HAND,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.ConfirmCards(1-tp,g)
+		if Duel.SendtoDeck(g,nil,2,REASON_EFFECT)>0 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+			local g2=Duel.SelectMatchingCard(tp,c71400043.filter3,tp,LOCATION_DECK,0,1,1,nil)
+			if g2:GetCount()>0 then
+				Duel.BreakEffect()
+				Duel.SendtoHand(g2,nil,REASON_EFFECT)
+				Duel.ConfirmCards(1-tp,g2)
+			end
+		end
+	end
+end
+--]]
\ No newline at end of file

expansions/script/c71400044.lua

---幻异梦物-猫
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400044.initial_effect(c)
-	--summon limit
-	yume.AddYumeSummonLimit(c)
-	--tohand
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400044,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
-	e1:SetTarget(c71400044.tg1)
-	e1:SetOperation(c71400044.op1)
-	c:RegisterEffect(e1)
-end
-function c71400044.filter1(c)
-	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and not c:IsCode(71400044) and c:IsAbleToHand()
-end
-function c71400044.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400044.filter1,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c71400044.op1(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c71400044.filter1,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-		local c=e:GetHandler()
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e1:SetCode(EVENT_DAMAGE)
-		e1:SetOperation(c71400044.regop)
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		e1:SetLabel(0)
-		Duel.RegisterEffect(e1,tp)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e2:SetCode(EVENT_PHASE+PHASE_END)
-		e2:SetCountLimit(1)
-		e2:SetCondition(c71400044.damcon)
-		e2:SetOperation(c71400044.damop)
-		e2:SetReset(RESET_PHASE+PHASE_END)
-		e2:SetLabelObject(e1)
-		Duel.RegisterEffect(e2,tp)
-	end
-end
-function c71400044.regop(e,tp,eg,ep,ev,re,r,rp)
-	if e:GetLabel()~=1 and ep~=tp and (eg and eg:GetFirst():IsControler(tp) or re and re:GetHandlerPlayer()==tp) then
-		e:SetLabel(1)
-	end
-end
-function c71400044.damcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetLabelObject():GetLabel()==0
-end
-function c71400044.damop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.SetLP(tp,Duel.GetLP(tp)-1000)
+--幻异梦物-猫
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400044.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--tohand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400044,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(c71400044.tg1)
+	e1:SetOperation(c71400044.op1)
+	c:RegisterEffect(e1)
+	--double attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e2:SetDescription(aux.Stringid(71400044,1))
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCountLimit(1,71400044)
+	e2:SetTarget(c71400044.tg2)
+	e2:SetOperation(c71400044.op2)
+	c:RegisterEffect(e2)
+end
+function c71400044.filter1(c)
+	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and not c:IsCode(71400044) and c:IsAbleToHand()
+end
+function c71400044.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400044.filter1,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c71400044.op1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c71400044.filter1,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c71400044.filter2(c)
+	return c:IsFaceup() and c:IsSetCard(0x714)
+end
+function c71400044.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c71400044.filter2(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c71400044.filter2,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c71400044.filter2,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c71400044.op2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local atk=tc:GetAttack()
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		e1:SetValue(atk*2)
+		tc:RegisterEffect(e1)
+	end
 end
\ No newline at end of file

expansions/script/c71400045.lua

---黑白的异梦少女 Monoko
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400045.initial_effect(c)
-	--synchro summon
-	aux.AddSynchroProcedure(c,yume.YumeCheck(c),aux.NonTuner(yume.YumeCheck(c)),1)
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--act limit
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetTargetRange(0,1)
-	e1:SetValue(c71400045.aclimit)
-	c:RegisterEffect(e1)
-	--multi attack
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_EXTRA_ATTACK)
-	e2:SetValue(4)
-	e2:SetCondition(c71400045.con2)
-	c:RegisterEffect(e2)
-	Duel.AddCustomActivityCounter(71400045,ACTIVITY_CHAIN,c71400045.chainfilter)
-	--pos
-	local e2a=Effect.CreateEffect(c)
-	e2a:SetDescription(aux.Stringid(71400045,0))
-	e2a:SetCategory(CATEGORY_POSITION)
-	e2a:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD)
-	e2a:SetCode(EVENT_PHASE+PHASE_BATTLE)
-	e2a:SetRange(LOCATION_MZONE)
-	e2a:SetCountLimit(1)
-	e2a:SetCondition(c71400045.con2a)
-	e2a:SetOperation(c71400045.op2a)
-	c:RegisterEffect(e2a)
-end
-function c71400045.chainfilter(re,tp,cid)
-	return not (re:GetHandler():IsCode(71400047) and re:IsHasType(EFFECT_TYPE_ACTIVATE))
-end
-function c71400045.aclimit(e,re,tp)
-	return not re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and not re:GetHandler():IsImmuneToEffect(e)
-end
-function c71400045.con2(e)
-	return Duel.GetCustomActivityCount(71400045,e:GetHandlerPlayer(),ACTIVITY_CHAIN)>0
-end
-function c71400045.con2a(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c71400045.con2(e) and c:IsAttackPos() and c:GetBattledGroupCount()>0
-end
-function c71400045.op2a(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsAttackPos() then
-		Duel.ChangePosition(c,POS_FACEUP_DEFENSE)
-	end
+--黑白异梦少女-黑白子
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400045.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,yume.YumeCheck(c),aux.NonTuner(yume.YumeCheck(c)),1)
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400045,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCountLimit(1,71400045)
+	e1:SetCondition(c71400045.con1)
+	e1:SetTarget(c71400045.tg1)
+	e1:SetOperation(c71400045.op1)
+	c:RegisterEffect(e1)
+	--atkup
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetValue(c71400045.val)
+	c:RegisterEffect(e2)
+	--multi attack
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_EXTRA_ATTACK)
+	e3:SetValue(4)
+	e3:SetCondition(c71400045.con3)
+	c:RegisterEffect(e3)
+	Duel.AddCustomActivityCounter(71400045,ACTIVITY_CHAIN,c71400045.chainfilter)
+	--pos
+	local e3a=Effect.CreateEffect(c)
+	e3a:SetDescription(aux.Stringid(71400045,1))
+	e3a:SetCategory(CATEGORY_POSITION)
+	e3a:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD)
+	e3a:SetCode(EVENT_PHASE+PHASE_BATTLE)
+	e3a:SetRange(LOCATION_MZONE)
+	e3a:SetCountLimit(1)
+	e3a:SetCondition(c71400045.con3a)
+	e3a:SetOperation(c71400045.op3a)
+	c:RegisterEffect(e3a)
+end
+function c71400045.con1(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function c71400045.filter1(c,e,tp)
+	return c:IsSetCard(0x714) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
+end
+function c71400045.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c71400045.filter1,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+end
+function c71400045.op1(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,aux.NecroValleyFilter(c71400045.filter1),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
+		if g:GetCount()>0 then
+			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c71400045.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c71400045.splimit(e,c)
+	return c:IsLocation(LOCATION_EXTRA) and not (c:IsType(TYPE_SYNCHRO) and c:IsSetCard(0x714))
+end
+function c71400045.val(e,c)
+	return Duel.GetMatchingGroupCount(c71400045.filter2,c:GetControler(),LOCATION_GRAVE+LOCATION_MZONE,0,nil)*300
+end
+function c71400045.filter2(c)
+	return c:IsSetCard(0x717) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
+end
+function c71400045.chainfilter(re,tp,cid)
+	return not (re:GetHandler():IsCode(71400047) and re:IsHasType(EFFECT_TYPE_ACTIVATE))
+end
+function c71400045.con3(e)
+	return Duel.GetCustomActivityCount(71400045,e:GetHandlerPlayer(),ACTIVITY_CHAIN)>0
+end
+function c71400045.con3a(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c71400045.con2(e) and c:IsAttackPos() and c:GetBattledGroupCount()>0
+end
+function c71400045.op3a(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsAttackPos() then
+		Duel.ChangePosition(c,POS_FACEUP_DEFENSE)
+	end
 end
\ No newline at end of file

expansions/script/c71400046.lua

---黑白的异梦少女 Monoe
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400046.initial_effect(c)
-	--synchro summon
-	aux.AddSynchroProcedure(c,yume.YumeCheck(c),aux.NonTuner(yume.YumeCheck(c)),1)
-	c:EnableReviveLimit()
-	--summon limit
-	yume.AddYumeSummonLimit(c,1)
-	--destroy
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400046,0))
-	e1:SetCategory(CATEGORY_DESTROY)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
-	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetCondition(c71400046.con1)
-	e1:SetTarget(c71400046.tg1)
-	e1:SetOperation(c71400046.op1)
-	c:RegisterEffect(e1)
-	--self banish
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400046,1))
-	e2:SetCategory(CATEGORY_REMOVE)
-	e2:SetType(EFFECT_TYPE_QUICK_F)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCode(EVENT_BECOME_TARGET)
-	e2:SetCondition(c71400046.con2)
-	e2:SetTarget(c71400046.tg2)
-	e2:SetOperation(c71400046.op2)
-	c:RegisterEffect(e2)
-	local e2a=e2:Clone()
-	e2a:SetDescription(aux.Stringid(71400046,1))
-	e2a:SetCode(EVENT_BE_BATTLE_TARGET)
-	c:RegisterEffect(e2a)
-end
-function c71400046.con1(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
-end
-function c71400046.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local c=e:GetHandler()
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc~=c end
-	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,c) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,c)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
-end
-function c71400046.op1(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.Destroy(tc,REASON_EFFECT)
-	end
-end
-function c71400046.con2(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsContains(e:GetHandler())
-end
-function c71400046.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,e:GetHandler(),1,0,0)
-end
-function c71400046.op2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and Duel.Remove(c,0,REASON_EFFECT+REASON_TEMPORARY)~=0 then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-		e1:SetCode(EVENT_PHASE+PHASE_END)
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		e1:SetLabelObject(c)
-		e1:SetCountLimit(1)
-		e1:SetOperation(c71400046.retop)
-		Duel.RegisterEffect(e1,tp)
-	end
-end
-function c71400046.retop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.ReturnToField(e:GetLabelObject())
+--黑白异梦少女-黑白江
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400046.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,yume.YumeCheck(c),aux.NonTuner(yume.YumeCheck(c)),1)
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--to deck
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400046,0))
+	e1:SetCountLimit(1,71400046)
+	e1:SetCategory(CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c71400046.con1)
+	e1:SetTarget(c71400046.tg1)
+	e1:SetOperation(c71400046.op1)
+	c:RegisterEffect(e1)
+	local e1a=e1:Clone()
+	e1a:SetCode(EVENT_SUMMON_SUCCESS)
+	c:RegisterEffect(e1a)
+	--atkup
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetValue(c71400046.val)
+	c:RegisterEffect(e2)
+	--self banish
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(71400046,1))
+	e3:SetCategory(CATEGORY_REMOVE)
+	e3:SetType(EFFECT_TYPE_QUICK_F)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCode(EVENT_BECOME_TARGET)
+	e3:SetCondition(c71400046.con3)
+	e3:SetTarget(c71400046.tg3)
+	e3:SetOperation(c71400046.op3)
+	c:RegisterEffect(e3)
+	local e3a=e3:Clone()
+	e3a:SetCode(EVENT_BE_BATTLE_TARGET)
+	c:RegisterEffect(e3a)
+end
+function c71400046.filter1(c,tp)
+	return c:IsSummonPlayer(1-tp) and c:IsAbleToDeck() and c:IsLocation(LOCATION_MZONE)
+end
+function c71400046.con1(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function c71400046.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=eg:Filter(c71400046.filter1,nil,tp)
+	local ct=g:GetCount()
+	if chk==0 then return ct>0 end
+	Duel.SetTargetCard(eg)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,ct,0,0)
+end
+function c71400046.op1(e,tp,eg,ep,ev,re,r,rp)
+	local g=eg:Filter(c71400046.filter1,nil,tp):Filter(Card.IsRelateToEffect,nil,e)
+	if g:GetCount()>0 then
+		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+	end
+end
+function c71400046.val(e,c)
+	return Duel.GetMatchingGroupCount(c71400046.filter2,c:GetControler(),LOCATION_GRAVE+LOCATION_MZONE,0,nil)*300
+end
+function c71400046.filter2(c)
+	return c:IsSetCard(0x717) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
+end
+function c71400046.con3(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsContains(e:GetHandler())
+end
+function c71400046.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,e:GetHandler(),1,0,0)
+end
+function c71400046.op3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.Remove(c,0,REASON_EFFECT+REASON_TEMPORARY)~=0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		e1:SetLabelObject(c)
+		e1:SetCountLimit(1)
+		e1:SetOperation(c71400046.retop)
+		Duel.RegisterEffect(e1,tp)
+	end
+end
+function c71400046.retop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.ReturnToField(e:GetLabelObject())
 end
\ No newline at end of file

expansions/script/c71400047.lua

---幻异梦物-信号灯
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400047.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetDescription(aux.Stringid(71400047,0))
-	e1:SetCondition(c71400047.con1)
-	e1:SetOperation(c71400047.op1)
-	c:RegisterEffect(e1)
-end
-function c71400047.con1(e,tp,eg,ep,ev,re,r,rp)
-	return yume.YumeCon(e,tp) and Duel.GetCurrentPhase()==PHASE_STANDBY and Duel.IsAbleToEnterBP()
-end
-function c71400047.op1(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CANNOT_ATTACK)
-	e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
-	e1:SetTarget(c71400047.atktarget)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-	if not (Duel.IsAbleToEnterBP() or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)) then return end
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_BP_TWICE)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetTargetRange(1,0)
-	e2:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e2,tp)
-end
-function c71400047.atktarget(e,c)
-	return not (c:IsType(TYPE_SYNCHRO) and c:IsSetCard(0x714))
+--幻异梦物-信号灯
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400047.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetDescription(aux.Stringid(71400047,0))
+	e1:SetCondition(c71400047.con1)
+	e1:SetOperation(c71400047.op1)
+	c:RegisterEffect(e1)
+end
+function c71400047.con1(e,tp,eg,ep,ev,re,r,rp)
+	return yume.YumeCon(e,tp) and Duel.GetCurrentPhase()==PHASE_STANDBY and Duel.IsAbleToEnterBP()
+end
+function c71400047.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_ATTACK)
+	e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e1:SetTarget(c71400047.atktarget)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	if not (Duel.IsAbleToEnterBP() or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)) then return end
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_BP_TWICE)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,0)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+end
+function c71400047.atktarget(e,c)
+	return not (c:IsType(TYPE_SYNCHRO) and c:IsSetCard(0x714))
 end
\ No newline at end of file

expansions/script/c71400048.lua

---黑白的异梦小少女 Monoko
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400048.initial_effect(c)
-	--summon limit
-	yume.AddYumeSummonLimit(c)
-	--cannot attack
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetOperation(c71400048.atklimit)
-	c:RegisterEffect(e1)
-	local e1a=e1:Clone()
-	e1a:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
-	c:RegisterEffect(e1a)
-	local e1b=e1:Clone()
-	e1b:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e1b)
-	--direct attack
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_DIRECT_ATTACK)
-	e2:SetCondition(c71400048.dircon)
-	c:RegisterEffect(e2)
-	--multi attack
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
-	e3:SetValue(4)
-	c:RegisterEffect(e3)
-	--transform
-	local e4a=Effect.CreateEffect(c)
-	e4a:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e4a:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e4a:SetCode(EVENT_CHAINING)
-	e4a:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
-	e4a:SetOperation(aux.chainreg)
-	c:RegisterEffect(e4a)
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(71400048,0))
-	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e4:SetCode(EVENT_CHAIN_SOLVED)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCondition(c71400048.con4)
-	e4:SetTarget(c71400048.tg4)
-	e4:SetOperation(c71400048.op4)
-	c:RegisterEffect(e4)
-	--transform
-	local e4b=Effect.CreateEffect(c)
-	e4b:SetDescription(aux.Stringid(71400048,0))
-	e4b:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e4b:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e4b:SetCountLimit(1)
-	e4b:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
-	e4b:SetRange(LOCATION_MZONE)
-	e4b:SetCondition(c71400048.con4b)
-	e4b:SetTarget(c71400048.tg4)
-	e4b:SetOperation(c71400048.op4)
-	c:RegisterEffect(e4b)
-	Duel.AddCustomActivityCounter(71400048,ACTIVITY_CHAIN,c71400048.chainfilter)
-end
-function c71400048.cfilter1(c)
-	return c:IsFaceup() and c:IsCode(15259703)
-end
-function c71400048.cfilter2(c)
-	return c:IsFaceup() and c:IsType(TYPE_TOON)
-end
-function c71400048.dircon(e)
-	local tp=e:GetHandlerPlayer()
-	return Duel.IsExistingMatchingCard(c71400048.cfilter1,tp,LOCATION_ONFIELD,0,1,nil)
-		and not Duel.IsExistingMatchingCard(c71400048.cfilter2,tp,0,LOCATION_MZONE,1,nil)
-end
-function c71400048.filter4(c,e,tp)
-	return c:IsCode(71400045) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
-end
-function c71400048.con4(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local rc=re:GetHandler()
-	return rc:IsCode(71400047) and c:GetFlagEffect(1)>0 and re:IsHasType(EFFECT_TYPE_ACTIVATE)
-end
-function c71400048.tg4(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c71400048.chainfilter(re,tp,cid)
-	return not (re:GetHandler():IsCode(71400047) and re:IsHasType(EFFECT_TYPE_ACTIVATE))
-end
-function c71400048.con4b(e)
-	return Duel.GetCustomActivityCount(71400048,e:GetHandlerPlayer(),ACTIVITY_CHAIN)>0
-end
-function c71400048.op4(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if not c:IsRelateToEffect(e) or Duel.SendtoGrave(c,REASON_EFFECT)==0 then return end
-	if Duel.GetLocationCountFromEx(tp,tp,c)<=0 or not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c71400048.filter4,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.SpecialSummon(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)
-		tc:CompleteProcedure()
-	end
+--黑白的异梦小少女 Monoko
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400048.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--cannot attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetOperation(c71400048.atklimit)
+	c:RegisterEffect(e1)
+	local e1a=e1:Clone()
+	e1a:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	c:RegisterEffect(e1a)
+	local e1b=e1:Clone()
+	e1b:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e1b)
+	--direct attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_DIRECT_ATTACK)
+	e2:SetCondition(c71400048.dircon)
+	c:RegisterEffect(e2)
+	--multi attack
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
+	e3:SetValue(4)
+	c:RegisterEffect(e3)
+	--transform
+	local e4a=Effect.CreateEffect(c)
+	e4a:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4a:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e4a:SetCode(EVENT_CHAINING)
+	e4a:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
+	e4a:SetOperation(aux.chainreg)
+	c:RegisterEffect(e4a)
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(71400048,0))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e4:SetCode(EVENT_CHAIN_SOLVED)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCondition(c71400048.con4)
+	e4:SetTarget(c71400048.tg4)
+	e4:SetOperation(c71400048.op4)
+	c:RegisterEffect(e4)
+	--transform
+	local e4b=Effect.CreateEffect(c)
+	e4b:SetDescription(aux.Stringid(71400048,0))
+	e4b:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e4b:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e4b:SetCountLimit(1)
+	e4b:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
+	e4b:SetRange(LOCATION_MZONE)
+	e4b:SetCondition(c71400048.con4b)
+	e4b:SetTarget(c71400048.tg4)
+	e4b:SetOperation(c71400048.op4)
+	c:RegisterEffect(e4b)
+	Duel.AddCustomActivityCounter(71400048,ACTIVITY_CHAIN,c71400048.chainfilter)
+end
+function c71400048.cfilter1(c)
+	return c:IsFaceup() and c:IsCode(15259703)
+end
+function c71400048.cfilter2(c)
+	return c:IsFaceup() and c:IsType(TYPE_TOON)
+end
+function c71400048.dircon(e)
+	local tp=e:GetHandlerPlayer()
+	return Duel.IsExistingMatchingCard(c71400048.cfilter1,tp,LOCATION_ONFIELD,0,1,nil)
+		and not Duel.IsExistingMatchingCard(c71400048.cfilter2,tp,0,LOCATION_MZONE,1,nil)
+end
+function c71400048.filter4(c,e,tp)
+	return c:IsCode(71400045) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
+end
+function c71400048.con4(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local rc=re:GetHandler()
+	return rc:IsCode(71400047) and c:GetFlagEffect(1)>0 and re:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
+function c71400048.tg4(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c71400048.chainfilter(re,tp,cid)
+	return not (re:GetHandler():IsCode(71400047) and re:IsHasType(EFFECT_TYPE_ACTIVATE))
+end
+function c71400048.con4b(e)
+	return Duel.GetCustomActivityCount(71400048,e:GetHandlerPlayer(),ACTIVITY_CHAIN)>0
+end
+function c71400048.op4(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or Duel.SendtoGrave(c,REASON_EFFECT)==0 then return end
+	if Duel.GetLocationCountFromEx(tp,tp,c)<=0 or not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c71400048.filter4,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+	local tc=g:GetFirst()
+	if tc then
+		Duel.SpecialSummon(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)
+		tc:CompleteProcedure()
+	end
 end
\ No newline at end of file

expansions/script/c71400049.lua

---幻异梦境-黑白世界
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400049.initial_effect(c)
-	--Activate
-	--See AddYumeFieldGlobal
-	--self limitation & field activation
-	yume.AddYumeFieldGlobal(c,71400049,1)
-	--special summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400049,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
-	e1:SetCountLimit(1)
-	e1:SetCondition(c71400049.con1)
-	e1:SetRange(LOCATION_FZONE)
-	e1:SetTarget(c71400049.tg1)
-	e1:SetOperation(c71400049.op1)
-	c:RegisterEffect(e1)
-	--special summon
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400049,1))
-	e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SEARCH+CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetRange(LOCATION_FZONE)
-	e2:SetCountLimit(1)
-	e2:SetCondition(c71400049.con2)
-	e2:SetTarget(c71400049.tg2)
-	e2:SetOperation(c71400049.op2)
-	c:RegisterEffect(e2)
-end
-function c71400049.op1(e,tp,eg,ep,ev,re,r,rp)
-	local cnt=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	if cnt<=0 or not e:GetHandler():IsRelateToEffect(e) then return end
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then cnt=1 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectMatchingCard(tp,c71400049.filter1,tp,LOCATION_HAND,0,1,cnt,nil,e,tp)
-	if g:GetCount()==0 then return end
-	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	local syng=Duel.GetMatchingGroup(c71400049.synfilter,tp,LOCATION_EXTRA,0,nil)
-	if syng:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(71400049,2)) then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local syn=syng:Select(tp,1,1,nil):GetFirst()
-		Duel.SynchroSummon(tp,syn,nil)
-	end
-end
-function c71400049.filter1(c,e,tp)
-	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function c71400049.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(c71400049.filter1,tp,LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,0)
-end
-function c71400049.con1(e,tp,eg,ep,ev,re,r,rp)
-	local ph=Duel.GetCurrentPhase()
-	return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
-end
---Select Synchro Monsters
-function c71400049.synfilter(c)
-	return c:IsSetCard(0x717) and c:IsSpecialSummonable(SUMMON_TYPE_SYNCHRO)
-end
---Synchro Summon Filter
-function c71400049.synfilter2(c)
-	return c:IsSetCard(0x714) and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
-end
-function c71400049.con2(e,tp,eg,ep,ev,re,r,rp)
-	local ct=eg:FilterCount(c71400049.synfilter2,nil)
-	if ct>0 then e:SetLabel(ct) end
-	return ct>0
-end
-function c71400049.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
-end
-function c71400049.op2(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
-	local ct=e:GetLabel() or 0
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	local g=Duel.GetMatchingGroup(c71400049.filter1,tp,LOCATION_GRAVE,0,nil,e,tp)
-	ct=math.min(ct,ft,g:GetCount())
-	if ct<1 then return end
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local sg=g:Select(tp,1,ct,nil)
-	Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+--幻异梦境-黑白世界
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400049.initial_effect(c)
+	--Activate
+	--See AddYumeFieldGlobal
+	--self limitation & field activation
+	yume.AddYumeFieldGlobal(c,71400049,1)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400049,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c71400049.con1)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetTarget(c71400049.tg1)
+	e1:SetOperation(c71400049.op1)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400049,1))
+	e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c71400049.con2)
+	e2:SetTarget(c71400049.tg2)
+	e2:SetOperation(c71400049.op2)
+	c:RegisterEffect(e2)
+end
+function c71400049.op1(e,tp,eg,ep,ev,re,r,rp)
+	local cnt=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if cnt<=0 or not e:GetHandler():IsRelateToEffect(e) then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then cnt=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c71400049.filter1,tp,LOCATION_HAND,0,1,cnt,nil,e,tp)
+	if g:GetCount()==0 then return end
+	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	local syng=Duel.GetMatchingGroup(c71400049.synfilter,tp,LOCATION_EXTRA,0,nil)
+	if syng:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(71400049,2)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local syn=syng:Select(tp,1,1,nil):GetFirst()
+		Duel.SynchroSummon(tp,syn,nil)
+	end
+end
+function c71400049.filter1(c,e,tp)
+	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c71400049.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c71400049.filter1,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,0)
+end
+function c71400049.con1(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
+end
+--Select Synchro Monsters
+function c71400049.synfilter(c)
+	return c:IsSetCard(0x717) and c:IsSpecialSummonable(SUMMON_TYPE_SYNCHRO)
+end
+--Synchro Summon Filter
+function c71400049.synfilter2(c)
+	return c:IsSetCard(0x714) and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
+end
+function c71400049.con2(e,tp,eg,ep,ev,re,r,rp)
+	local ct=eg:FilterCount(c71400049.synfilter2,nil)
+	return ct>0
+end
+function c71400049.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,LOCATION_GRAVE)
+end
+function c71400049.op2(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local ct=eg:FilterCount(c71400049.synfilter2,nil)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	local g=Duel.GetMatchingGroup(c71400049.filter1,tp,LOCATION_GRAVE,0,nil,e,tp)
+	ct=math.min(ct,ft,g:GetCount())
+	if ct<1 then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg=g:Select(tp,1,ct,nil)
+	Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
 end
\ No newline at end of file

expansions/script/c71400050.lua

---黑白的异梦引导
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400050.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(c71400050.tg1)
-	e1:SetCondition(yume.YumeCon)
-	e1:SetOperation(c71400050.op1)
-	e1:SetDescription(aux.Stringid(71400050,0))
-	e1:SetCountLimit(1,71400050)
-	c:RegisterEffect(e1)
-	--destroy replace
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EFFECT_DESTROY_REPLACE)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCountLimit(1,71500050)
-	e2:SetCondition(yume.YumeCon)
-	e2:SetTarget(c71400050.tg2)
-	e2:SetValue(c71400050.repval)
-	e2:SetOperation(c71400050.op2)
-	c:RegisterEffect(e2)
-end
-function c71400050.filter1(c)
-	return c:IsSetCard(0x717) and c:IsAbleToHand()
-end
-function c71400050.filter1a(c)
-	return c:IsSetCard(0x714) and c:IsType(TYPE_TUNER) and c:IsAbleToHand()
-end
-function c71400050.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400050.filter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c71400050.op1(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c71400050.filter1,tp,LOCATION_DECK,0,1,1,nil)
-	if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 then
-		Duel.ConfirmCards(1-tp,g)
-		local thg=Duel.GetMatchingGroup(c71400050.filter1a,tp,LOCATION_GRAVE,0,nil)
-		if thg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(71400050,1)) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-			local sc=thg:Select(tp,1,1,nil):GetFirst()
-			Duel.SendtoHand(sc,nil,REASON_EFFECT)
-		end
-	end
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetTargetRange(1,0)
-	e1:SetTarget(c71400050.splimit)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function c71400050.splimit(e,c)
-	return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
-end
-function c71400050.filter2(c,tp)
-	return c:IsFaceup() and c:IsSetCard(0x714)
-		and c:IsOnField() and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
-end
-function c71400050.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(c71400050.filter2,1,nil,tp) end
-	return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
-end
-function c71400050.repval(e,c)
-	return c71400050.filter2(c,e:GetHandlerPlayer())
-end
-function c71400050.op2(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+--黑白异梦的邂逅
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400050.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c71400050.tg1)
+	e1:SetCondition(yume.YumeCon)
+	e1:SetOperation(c71400050.op1)
+	e1:SetDescription(aux.Stringid(71400050,0))
+	e1:SetCountLimit(1,71400050)
+	c:RegisterEffect(e1)
+	--destroy replace
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EFFECT_DESTROY_REPLACE)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,71500050)
+	e2:SetCondition(yume.YumeCon)
+	e2:SetTarget(c71400050.tg2)
+	e2:SetValue(c71400050.repval)
+	e2:SetOperation(c71400050.op2)
+	c:RegisterEffect(e2)
+end
+function c71400050.filter1(c)
+	return c:IsSetCard(0x717) and c:IsAbleToHand()
+end
+function c71400050.filter1a(c)
+	return c:IsSetCard(0x714) and c:IsType(TYPE_TUNER) and c:IsAbleToHand()
+end
+function c71400050.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400050.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c71400050.op1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c71400050.filter1,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 then
+		Duel.ConfirmCards(1-tp,g)
+		local thg=Duel.GetMatchingGroup(c71400050.filter1a,tp,LOCATION_GRAVE,0,nil)
+		if thg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(71400050,1)) then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+			local sc=thg:Select(tp,1,1,nil):GetFirst()
+			Duel.SendtoHand(sc,nil,REASON_EFFECT)
+		end
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c71400050.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c71400050.splimit(e,c)
+	return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
+end
+function c71400050.filter2(c,tp)
+	return c:IsFaceup() and c:IsSetCard(0x714)
+		and c:IsOnField() and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
+end
+function c71400050.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(c71400050.filter2,1,nil,tp) end
+	return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
+end
+function c71400050.repval(e,c)
+	return c71400050.filter2(c,e:GetHandlerPlayer())
+end
+function c71400050.op2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
 end
\ No newline at end of file

expansions/script/c71400051.lua

---黑白的异梦协奏
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400051.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(c71400051.tg1)
-	e1:SetOperation(c71400051.op1)
-	e1:SetCondition(c71400051.con1)
-	e1:SetDescription(aux.Stringid(71400051,0))
-	e1:SetCountLimit(1,71400051)
-	c:RegisterEffect(e1)
-	--destroy
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400051,1))
-	e2:SetCategory(CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCode(EVENT_CHAIN_NEGATED)
-	e2:SetRange(LOCATION_GRAVE)
-	e1:SetCountLimit(1,71500051)
-	e2:SetCondition(c71400051.con2)
-	e2:SetCost(aux.bfgcost)
-	e2:SetTarget(c71400051.tg2)
-	e2:SetOperation(c71400051.op2)
-	c:RegisterEffect(e2)
-end
-function c71400051.tunerfilter(c)
-	return c:IsType(TYPE_TUNER) and c:IsSetCard(0x714) and c:IsAbleToRemove()
-end
-function c71400051.nontunerfilter(c)
-	return not c:IsType(TYPE_TUNER) and c:IsSetCard(0x714) and c:IsAbleToRemove()
-end
-function c71400051.fieldsynfilter(c)
-	return c:IsSetCard(0x717) and c:IsType(TYPE_SYNCHRO) and c:IsFaceup()
-end
-function c71400051.con1(e,tp,eg,ep,ev,re,r,rp)
-	return yume.YumeCon(e,tp) and Duel.IsExistingMatchingCard(c71400051.fieldsynfilter,tp,LOCATION_MZONE,0,1,nil)
-end
-function c71400051.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400051.tunerfilter,tp,LOCATION_DECK,0,1,nil) and Duel.IsExistingMatchingCard(c71400051.nontunerfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,2,tp,LOCATION_DECK)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function c71400051.extrasynfilter(c,e,tp)
-	return c:IsSetCard(0x714) and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,true)
-end
-function c71400051.op1(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g1=Duel.GetMatchingGroup(c71400051.tunerfilter,tp,LOCATION_DECK,0,nil)
-	local g2=Duel.GetMatchingGroup(c71400051.nontunerfilter,tp,LOCATION_DECK,0,nil)
-	if g1:GetCount()==0 or g2:GetCount()==0 then return end
-	local sg1=g1:Select(tp,1,1,nil)
-	local sg2=g2:Select(tp,1,2,nil)
-	sg1:Merge(sg2)
-	local rc=sg1:GetFirst()
-	local lv=0
-	while rc do
-		lv=lv+rc:GetLevel()
-		rc=g:GetNext()
-	end
-	Duel.Remove(sg1,POS_FACEUP,REASON_EFFECT)
-	local syng=Duel.GetMatchingGroup(c71400051.extrasynfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
-	yume.UniquifyCardName(syng)
-	local ft=Duel.GetLocationCountFromEx(tp)
-	if ft<1 or not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
-	if syng:CheckWithSumEqual(Card.GetLevel,lv,1,ft) and Duel.SelectYesNo(tp,aux.Stringid(71400051,2)) then
-		Duel.BreakEffect()
-		tg=syng:SelectWithSumEqual(tp,Card.GetLevel,lv,1,ft)
-		local tc=tg:GetFirst()
-		while tc do
-			Duel.SpecialSummonStep(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,true,POS_FACEUP)
-			tc:CompleteProcedure()
-			tc=tg:GetNext()
-		end
-	end
-end
-function c71400051.con2(e,tp,eg,ep,ev,re,r,rp)
-	local de,dp=Duel.GetChainInfo(ev,CHAININFO_DISABLE_REASON,CHAININFO_DISABLE_PLAYER)
-	return yume.YumeCon(e,tp) and de and dp~=tp and re:GetHandler():IsSetCard(0x714) and rp==tp
-end
-function c71400051.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_GRAVE,0,1,e:GetHandler(),0x717) and Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,1-tp,LOCATION_ONFIELD)
-end
-function c71400051.op2(e,tp,eg,ep,ev,re,r,rp)
-	local ct=Duel.GetMatchingGroupCount(Card.IsSetCard,tp,LOCATION_GRAVE,0,1,nil,0x717)
-	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
-	if ct>0 and g:GetCount()>0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-		local dg=g:Select(tp,1,ct,nil)
-		Duel.HintSelection(dg)
-		Duel.Destroy(dg,REASON_EFFECT)
-	end
+--黑白异梦的协奏
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400051.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c71400051.tg1)
+	e1:SetOperation(c71400051.op1)
+	e1:SetCondition(c71400051.con1)
+	e1:SetDescription(aux.Stringid(71400051,0))
+	e1:SetCountLimit(1,71400051)
+	c:RegisterEffect(e1)
+	--to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400051,1))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_CHAIN_NEGATED)
+	e2:SetRange(LOCATION_GRAVE)
+	e1:SetCountLimit(1,71500051)
+	e2:SetCondition(c71400051.con2)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c71400051.tg2)
+	e2:SetOperation(c71400051.op2)
+	c:RegisterEffect(e2)
+end
+function c71400051.tunerfilter(c)
+	return c:IsType(TYPE_TUNER) and c:IsSetCard(0x714) and c:IsAbleToRemove()
+end
+function c71400051.nontunerfilter(c)
+	return not c:IsType(TYPE_TUNER) and c:IsSetCard(0x714) and c:IsAbleToRemove()
+end
+function c71400051.fieldsynfilter(c)
+	return c:IsSetCard(0x717) and c:IsType(TYPE_SYNCHRO) and c:IsFaceup()
+end
+function c71400051.con1(e,tp,eg,ep,ev,re,r,rp)
+	return yume.YumeCon(e,tp) and Duel.IsExistingMatchingCard(c71400051.fieldsynfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c71400051.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400051.tunerfilter,tp,LOCATION_DECK,0,1,nil) and Duel.IsExistingMatchingCard(c71400051.nontunerfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,2,tp,LOCATION_DECK)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c71400051.extrasynfilter(c,e,tp)
+	return c:IsSetCard(0x714) and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,true)
+end
+function c71400051.op1(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g1=Duel.GetMatchingGroup(c71400051.tunerfilter,tp,LOCATION_DECK,0,nil)
+	local g2=Duel.GetMatchingGroup(c71400051.nontunerfilter,tp,LOCATION_DECK,0,nil)
+	if g1:GetCount()==0 or g2:GetCount()==0 then return end
+	local sg1=g1:Select(tp,1,1,nil)
+	local sg2=g2:Select(tp,1,2,nil)
+	sg1:Merge(sg2)
+	local rc=sg1:GetFirst()
+	local lv=0
+	while rc do
+		lv=lv+rc:GetLevel()
+		rc=g:GetNext()
+	end
+	Duel.Remove(sg1,POS_FACEUP,REASON_EFFECT)
+	local syng=Duel.GetMatchingGroup(c71400051.extrasynfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
+	yume.UniquifyCardName(syng)
+	local ft=Duel.GetLocationCountFromEx(tp)
+	if ft<1 or not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
+	if syng:CheckWithSumEqual(Card.GetLevel,lv,1,ft) and Duel.SelectYesNo(tp,aux.Stringid(71400051,2)) then
+		Duel.BreakEffect()
+		tg=syng:SelectWithSumEqual(tp,Card.GetLevel,lv,1,ft)
+		local tc=tg:GetFirst()
+		while tc do
+			Duel.SpecialSummonStep(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,true,POS_FACEUP)
+			tc:CompleteProcedure()
+			tc=tg:GetNext()
+		end
+	end
+end
+function c71400051.con2(e,tp,eg,ep,ev,re,r,rp)
+	local de,dp=Duel.GetChainInfo(ev,CHAININFO_DISABLE_REASON,CHAININFO_DISABLE_PLAYER)
+	return yume.YumeCon(e,tp) and de and dp~=tp and re:GetHandler():IsSetCard(0x714) and rp==tp
+end
+function c71400051.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_GRAVE+LOCATION_ONFIELD,0,1,e:GetHandler(),0x717) and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD+LOCATION_HAND,1,nil) end
+	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD+LOCATION_HAND,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,1-tp,LOCATION_ONFIELD+LOCATION_HAND)
+end
+function c71400051.op2(e,tp,eg,ep,ev,re,r,rp)
+	if not yume.IsYumeFieldOnField(tp) then return end
+	local ct=Duel.GetMatchingGroupCount(Card.IsSetCard,tp,LOCATION_GRAVE+LOCATION_ONFIELD,0,1,nil,0x717)
+	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD+LOCATION_HAND,nil)
+	if ct>0 and g:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local dg=g:Select(tp,1,ct,nil)
+		Duel.HintSelection(dg)
+		Duel.SendtoGrave(dg,REASON_EFFECT)
+	end
 end
\ No newline at end of file

expansions/script/c71400052.lua

---蚀异梦物-机械
-xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
-function c71400052.initial_effect(c)
-	--summon limit
-	yume.AddYumeSummonLimit(c)
-	--draw
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(71400052,0))
-	e1:SetCategory(CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCost(c71400052.cost1)
-	e1:SetTarget(c71400052.tg1)
-	e1:SetOperation(c71400052.op1)
-	c:RegisterEffect(e1)
-	--Equip
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(71400052,1))
-	e2:SetCategory(CATEGORY_EQUIP)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetCountLimit(1)
-	e2:SetCondition(c71400052.con2)
-	e2:SetTarget(c71400052.tg2)
-	e2:SetOperation(c71400052.op2)
-	c:RegisterEffect(e2)
-	--atk
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetCode(EFFECT_UPDATE_ATTACK)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetTargetRange(LOCATION_MZONE,0)
-	e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x714))
-	e3:SetValue(c71400052.atkval)
-	c:RegisterEffect(e3)
-	--def
-	local e3a=e3:Clone()
-	e3a:SetCode(EFFECT_UPDATE_DEFENSE)
-	e3a:SetValue(c71400052.defval)
-	c:RegisterEffect(e3a)
-end
-function c71400052.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsReleasable() end
-	Duel.Release(e:GetHandler(),REASON_COST)
-end
-function c71400052.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(1)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
-end
-function c71400052.op1(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Draw(p,d,REASON_EFFECT)
-end
-function c71400052.filter2(c,ec)
-	return c:IsFaceup() and c:IsType(TYPE_LINK) and c:GetLinkedGroup():IsContains(ec)
-end
-function c71400052.can_equip_monster(c)
-	return true
-end
-function c71400052.con2(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local g=Duel.GetMatchingGroup(c71400052.filter2,0,LOCATION_MZONE,LOCATION_MZONE,nil,c)
-	return Duel.GetTurnPlayer()~=tp and g:GetCount()>1 and c71400052.can_equip_monster(c)
-end
-function c71400052.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAbleToChangeControler() end
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
-		and Duel.IsExistingTarget(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
-	local g=Duel.SelectTarget(tp,Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
-end
-function c71400052.eqlimit(e,c)
-	return e:GetOwner()==c
-end
-function c71400052.equip_monster(c,tp,tc)
-	if not Duel.Equip(tp,tc,c,false) then return end
-	--Add Equip limit
-	tc:RegisterFlagEffect(71400052,RESET_EVENT+RESETS_STANDARD,0,0)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
-	e1:SetCode(EFFECT_EQUIP_LIMIT)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-	e1:SetValue(c71400052.eqlimit)
-	tc:RegisterEffect(e1)
-end
-function c71400052.op2(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and tc:IsType(TYPE_MONSTER) and tc:IsControler(1-tp) then
-		if c:IsFaceup() and c:IsRelateToEffect(e) then
-			c71400052.equip_monster(c,tp,tc)
-		else Duel.SendtoGrave(tc,REASON_RULE) end
-	end
-end
-function c71400052.atkval(e,c)
-	local atk=0
-	local g=c:GetEquipGroup()
-	local tc=g:GetFirst()
-	while tc do
-		if tc:GetFlagEffect(71400052)~=0 and tc:IsFaceup() and tc:GetAttack()>=0 then
-			atk=atk+tc:GetAttack()
-		end
-		tc=g:GetNext()
-	end
-	return atk
-end
-function c71400052.defval(e,c)
-	local def=0
-	local g=c:GetEquipGroup()
-	local tc=g:GetFirst()
-	while tc do
-		if tc:GetFlagEffect(71400052)~=0 and tc:IsFaceup() and tc:GetDefense()>=0 then
-			def=def+tc:GetDefense()
-		end
-		tc=g:GetNext()
-	end
-	return def
+--蚀异梦物-机械
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400052.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--draw
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400052,0))
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c71400052.cost1)
+	e1:SetTarget(c71400052.tg1)
+	e1:SetOperation(c71400052.op1)
+	c:RegisterEffect(e1)
+	--Equip
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400052,1))
+	e2:SetCategory(CATEGORY_EQUIP)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c71400052.con2)
+	e2:SetTarget(c71400052.tg2)
+	e2:SetOperation(c71400052.op2)
+	c:RegisterEffect(e2)
+	--atk
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_UPDATE_ATTACK)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(LOCATION_MZONE,0)
+	e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x714))
+	e3:SetValue(c71400052.atkval)
+	c:RegisterEffect(e3)
+	--def
+	local e3a=e3:Clone()
+	e3a:SetCode(EFFECT_UPDATE_DEFENSE)
+	e3a:SetValue(c71400052.defval)
+	c:RegisterEffect(e3a)
+end
+function c71400052.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsReleasable() end
+	Duel.Release(e:GetHandler(),REASON_COST)
+end
+function c71400052.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function c71400052.op1(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Draw(p,d,REASON_EFFECT)
+end
+function c71400052.filter2(c,ec)
+	return c:IsFaceup() and c:IsType(TYPE_LINK) and c:GetLinkedGroup():IsContains(ec)
+end
+function c71400052.can_equip_monster(c)
+	return true
+end
+function c71400052.con2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(c71400052.filter2,0,LOCATION_MZONE,LOCATION_MZONE,nil,c)
+	return Duel.GetTurnPlayer()~=tp and g:GetCount()>1 and c71400052.can_equip_monster(c)
+end
+function c71400052.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAbleToChangeControler() end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingTarget(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
+end
+function c71400052.eqlimit(e,c)
+	return e:GetOwner()==c
+end
+function c71400052.equip_monster(c,tp,tc)
+	if not Duel.Equip(tp,tc,c,false) then return end
+	--Add Equip limit
+	tc:RegisterFlagEffect(71400052,RESET_EVENT+RESETS_STANDARD,0,0)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
+	e1:SetCode(EFFECT_EQUIP_LIMIT)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	e1:SetValue(c71400052.eqlimit)
+	tc:RegisterEffect(e1)
+end
+function c71400052.op2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsType(TYPE_MONSTER) and tc:IsControler(1-tp) then
+		if c:IsFaceup() and c:IsRelateToEffect(e) then
+			c71400052.equip_monster(c,tp,tc)
+		else Duel.SendtoGrave(tc,REASON_RULE) end
+	end
+end
+function c71400052.atkval(e,c)
+	local atk=0
+	local g=c:GetEquipGroup()
+	local tc=g:GetFirst()
+	while tc do
+		if tc:GetFlagEffect(71400052)~=0 and tc:IsFaceup() and tc:GetAttack()>=0 then
+			atk=atk+tc:GetAttack()
+		end
+		tc=g:GetNext()
+	end
+	return atk
+end
+function c71400052.defval(e,c)
+	local def=0
+	local g=c:GetEquipGroup()
+	local tc=g:GetFirst()
+	while tc do
+		if tc:GetFlagEffect(71400052)~=0 and tc:IsFaceup() and tc:GetDefense()>=0 then
+			def=def+tc:GetDefense()
+		end
+		tc=g:GetNext()
+	end
+	return def
 end
\ No newline at end of file

expansions/strings.conf

-#No81DIY
-
-#Nemoma 337 0x440-0x44f
-!setname 0x440 篝（Kagari）
-!setname 0x441 GUARDIAN（守护者）
-!setname 0x442 动物朋友（Anifriends）
-!counter 0x442 太阳之道指示物 （Way of the Sun）
-!setname 0x443 霓火 （Neonfire）
-!setname 0x3440 Proto-Summoner （魔物使）
-!setname 0x6440 Protoform （魔物）
-!setname 0x5440 琪比摩斯 （Chibi-Moth）
-!setname 0x1449 无心械姬 （GearGal）
-!setname 0x3449 慧心花姬 （NEXTGal）
-!setname 0x6449 革新者 （Adventer）
-!setname 0x444 天降妹抖 （Heavenly Maid）
-!setname 0x5449 阻抗 （Resistor）
-!setname 0x344a 妖幻战姬（T.Fairies）
-!setname 0x644a 妖幻幼精（Tzermellend Fairy）
-!setname 0x144b 虚毒（Voison）
-!setname 0x144c VOICEROID（VOICEROID）
-!setname 0x344c 虚拟主播（VLiver）
-!setname 0x44f 【背景音台】（【Sound Stage】）
-!setname 0x44e 铁虹（Rainblo）
-!setname 0x445 虚拟YouTuber（VTuber）
-!counter 0x144b 虚空指示物（Void Counter）
-!setname 0x144d 残星倩影（Starspirit）
-!setname 0x144e 晦空士（Sepialife）
-!setname 0x8449 破天神狐（Kitsune.Sky.Breaker.）
-!setname 0x9449 赤月礼赞（Bloodmoon.）
-!counter 0x1440 集中力
-!counter 0x144e 晦空之础
-
-#少年 714 0x710-0x71f Sonic_714
-!setname 0x714 异梦
-!setname 0x3714 异梦境
-!setname 0xc714 异梦物
-!setname 0xa714 幻异梦
-!setname 0x5714 蚀异梦
-!setname 0xb714 幻异梦境
-!setname 0xe714 幻异梦物
-!setname 0x7714 蚀异梦境
-!setname 0xd714 蚀异梦物
-!setname 0x715 异梦之书
-!setname 0x3715 异梦之书中
-!setname 0x716 异梦怪物
-!setname 0x717 黑白的异梦
-
-#Viola 011 0xe10-0xe1f
-
-#飞球 132 0x350~0x35f 阿飞很开心
-!setname 0x356 飞球
-!setname 0x3356 元始飞球
-!setname 0x351 超时空战斗机
-!counter 0x351 爆弹指示物
-!setname 0x352 超时空武装
-!counter 0x352 瞬雷指示物
-!setname 0x3352 超时空武装 主炮
-!setname 0x5352 超时空武装 装甲
-!setname 0x6352 超时空武装 副炮
-!setname 0x353 宇宙战争机器
-!counter 0x353 护罩指示物
-!counter 0x354 能量指示物
-
-#云云云 995 0xba0-0xbaf
-!setname 0xba1 永夜抄
-!setname 0x3ba1 永夜抄/藤原妹红
-!setname 0x5ba1 永夜抄/儚月抄
-!setname 0xba2 不死组
-!setname 0xba3 冰火组
-!setname 0xba4 自由佣兵
-!setname 0xba5 fate
-!setname 0x3ba5 fate/信
-!setname 0x5ba5 fate/新选组
-!setname 0xaba5 fate/冠位
-!setname 0x9ba5 fate/吉尔
-!setname 0xcba5 fate/圆桌骑士
-!setname 0x3ba6 卡美洛
-!setname 0x6ba6 卫宫
-!setname 0x9ba6 超越形态
-!setname 0x3ba7 贞德
-!setname 0x5ba7 宝具
-!setname 0x6ba7 特异点
-!setname 0x9ba7 降临者
-!setname 0x3ba8 Beast
-!setname 0x5ba8 深海电脑乐土
-!setname 0x6ba8 玉藻前
-!setname 0x9ba8 伊丽莎白
-!setname 0x5ba2 抚子
-!setname 0x6ba2 暴龙兽
-
-#鸟神 998 0xbc0-0xbcf
-!setname 0x3bc1 戈尔贡
-!setname 0x5bc1 诹访子
-!setname 0xbc8 女神
-!setname 0x3bc8 守护女神
-!setname 0x5bc8 异界女神
-!setname 0x6bc8 Zaphkiel（刻刻帝女神）
-!setname 0x9bc8 候补女神
-!setname 0xbc4 纪录
-!setname 0x3bc4 魔法纪录
-!setname 0x5bc4 物语纪录
-!setname 0x6bc4 外传纪录
-!setname 0xbca 平成骑士
-!setname 0x3bca 平成骑士/音击战士
-!setname 0x5bca AgitΩ/平成骑士
-!setname 0x6bca 镜骑士/平成骑士
-!setname 0x9bca 智脑/平成骑士
-!setname 0xabca Board/平成骑士
-!setname 0xcbca MRS/平成骑士
-!setname 0x3bcb 降临卡片
-!setname 0x5bcb Undead
-!setname 0x6bcb 异魔神
-!setname 0x3bcc 不死姬
-!setname 0x5bcc 柱男
-!setname 0x6bcc 四季映姬
-!setname 0x9bcc 流法
-!setname 0xcbcc 卡兹
-!setname 0x3bcd 电王
-!setname 0x5bcd Undead
-!setname 0x1bcf 加里奥
-!setname 0xabcc Evolto
-!setname 0x5bc1 诹访子
-!setname 0x6bcd 月骑
-!setname 0x9bcd 假面驾驭
-!setname 0x6bc1 昭和骑士
-!setname 0xabc1 欲望
-!setname 0x3bcf 欲望硬币核心
-!setname 0xcbc1 假面骑士部
-!setname 0x5bcf Fourze
-!setname 0x9bc1 盖亚记忆体
-!setname 0x3bc2 风都
-!setname 0x5bc2 魔法骑士
-!setname 0x6bc2 装甲骑士
-!setname 0x3bc3 玩家
-!setname 0x5bc3 最佳搭配
-!setname 0xabc2 亚马逊骑士
-!setname 0xcbc2 幽灵骑士
-!setname 0x6bc3 骑士时刻
-!setname 0xabcd 时王
-!setname 0xcbcd 盖茨
-!setname 0x6bcd 沃茨
-!setname 0x3bce 逢魔时王
-!setname 0x9bce IG
-!setname 0xbc9  令和骑士
-!setname 0x3bc9 飞电智能/令和骑士
-!setname 0x5bc9 艾姆斯/令和骑士
-!setname 0x6bc9 灭亡迅雷/令和骑士
-!setname 0x3bd1 鬼形兽
-!setname 0x6bd1 天空璋
-!setname 0x9bd1 光之国
-!setname 0xabd1 梦比优斯
-!setname 0x3bd2 妖妖梦
-
-#维他柠檬茶 551 0x551
-!setname 0x3551 疫病
-!setname 0x5551 大魔法
-!setname 0x6551 恶神龙
-!setname 0x9551 蚀刻龙
-!setname 0xa551 反刻钟
-!counter 0x5555 疫病指示物
-!counter 0x5556 特命指示物
-
-#零儿/02 648&650
-!setname 0x6da0 幻梦迷境
-!setname 0x9da0 星光歌剧
-
-#LaiBill 529508379 601 0xb20-0xb2f
-!setname 0xab20 幻想曲
-!setname 0xcb20 乐章
-!setname 0x3b21 千夜
-!setname 0x5b21 天玲
-!setname 0x9b21 天夜
-!setname 0xab21 绘雨
-!setname 0xb22 乖离
-!setname 0x5b22 纯白型
-!setname 0x3b23 爱莎
-!setname 0x5b23 晓美焰
-!setname 0x6b23 FantasiaT
-!setname 0x9b23 军团
-!setname 0xab23 两仪式
-!setname 0xcb23 圣白莲
-!setname 0x3b24 天符
-!setname 0x6b25 佐仓杏子
-!setname 0xcb25 鹿目圆香
-!setname 0x3b26 天空的水晶部队
-!setname 0x6b26 魔铳
-!setname 0x9b26 魔缎
-!setname 0xab26 线膛燧发枪
-!setname 0xcb26 连结姬
-!setname 0x6b27 皇家骑士
-!setname 0x9b27 何蒙库鲁兹
-!setname 0xab27 素晴
-!setname 0x3b28 LUKA
-!setname 0x9b28 RWBY
-
-#星眼 334 0x340-0x34f
-!setname 0x340 灵装
-!setname 0x3340 刻刻帝
-!setname 0x5340 破军歌姬
-!setname 0x341 D.A.L
-!setname 0x3341 时崎
-!setname 0x5341 夜刀神
-!setname 0x6341 四糸乃
-!setname 0x9341 五河
-!setname 0xa341 八舞
-!setname 0xc341 诱宵
-!setname 0x3342 七罪
-!setname 0x5342 鸢一
-!setname 0x6342 本条
-!setname 0x9342 星宫
-!setname 0xa342 崇宫
-!setname 0xc342 士道
-!setname 0x3343 天香
-!setname 0x5343 绝灭天使
-!setname 0x6343 CR-Unit
-!setname 0x9343 AST
-!setname 0xa343 D.E.M
-!setname 0xc343 DAL-WIZARD
-!setname 0x3344 四糸奈
-!setname 0x5344 Ratatoskr
-!setname 0x5349 森罗万象
-!counter 0x34f 时间指示物
-!setname 0x6344 万由里
-!setname 0x9344 白之女王	
-!setname 0x6340 狂狂帝
-
-#冲浪检察狸/狸z 777&999
-!setname 0x723 上古基因
-!setname 0x23a 上古遗迹
-!setname 0x2ba 尼尔机械纪元
-!setname 0x234 歌姬
-!setname 0x2bb 魅魔
-!setname 0x20cc Kemomimi
-!setname 0x34a1 剑技
-!setname 0x34a2 剑意
-!setname 0x77a 黑白视界
-!setname 0x77a2 暗物质
-!setname 0x20df 亡语
-
-#victory reason
-!victory 0x4a 宣告生命终结！
-
-#兔子（代理人）889 原作者：1061167669
-
-#qutry 991 0x950-0x95f
-!setname 0x3950 折纸使
-!setname 0x5950 灵式装置
-!setname 0x6950 赛博空间
-!setname 0x9950 韶光
-!setname 0xa950 桃绯
-!setname 0xc950 远古造物
-!counter 0x1950 韶光指示物
-!counter 0x4950 指示物（比武！）
-!setname 0x952 战车道
-!setname 0x953 幽鬼
-!counter 0x953 复仇指示物
-!setname 0x955 天空漫步者
-!setname 0x956 神树勇者
-!counter 0x956 指示物（神树勇者的庭院）
-!setname 0x957 星幽
-!setname 0x3951 甜心机仆
-!setname 0x5951 虹彩偶像
-!setname 0x6951 创生
-!setname 0x9951 月神
-
-#篁楠 10 0x200-0x20f
-!setname 0xc204 Madoka
-!setname 0x3204 Sayaka Miki
-!setname 0xa201 梦时空
-!setname 0x20f 魔法使之夜
-!setname 0x320f 童话的怪物
-!setname 0xa20f 久远寺有珠
-!setname 0xc20f 苍崎青子
-!setname 0xa200 绀珠传
-!setname 0xc200 姬丝秀忒
-!setname 0x320e 罪恶王冠
-!setname 0x520e void
-
-#萌萌尺 333 0x550-0x55f
-!setname 0x550 造神计划
-!setname 0x556 深界
-!setname 0x1556 深界探窟者
-!setname 0x3556 深界遗物
-!setname 0x557 生骸
-!setname 0x558 铁华团
-!setname 0x155b 断码者
-
-#沃亚森斯奥克斯 2201771890 300 0x920
-!setname 0x920 邪魂
-!setname 0x3920 终焉邪魂
-!setname 0x92a  圣魂
-!setname 0x92b  能力者
-!setname 0x5920  亚奥斯克
-!setname 0x92c 深土之物
-
-#格拉摩根伯爵 400
-!setname 0xf11 天兵团
-!setname 0xf12 渊风
-!setname 0xf13 机空
-!setname 0xf14 炼狱骑士团
-!setname 0xf16 降临
-!setname 0xf17 刻兽
-!setname 0xf18 究极异兽
-!counter 0x1f1b 超爆指示物
-!setname 0x1f1b 勇机
-!setname 0x2f1b 复血鬼
-!setname 0x3f1b 龙血师团
-!setname 0xf1c 时机
-!counter 0xf1c 时机指示物
-!setname 0x1f1c 时机龙骑
-!setname 0x2f1c 时机降神
-!setname 0x3f1d 封龙
-!setname 0x5f1d 机械加工
-!setname 0x4f1d 时隙淑女
-!setname 0x6f1d 连波
-!setname 0x7f1d 灾漩
-!setname 0xaf1d 阿尔弗雷德
-!setname 0xbf1d 狂风
-!setname 0xcf1d 暗魔
-!setname 0xdf1d 一人千面
-!setname 0xef1d 黑锁
-!setname 0x1f1e 首领赎救
-!setname 0x4f1e 神圣赎救
-!setname 0xf21 圣金
-!setname 0xf23 零点龙
-!setname 0xf24 宙蓝
-!setname 0x1f24 睿智宙蓝
-!setname 0xf27 守护天使
-!setname 0xc016 恶路程式
-!setname 0x3f1d 封龙
-
-#Akashic 25 3204027606
-!setname 0xaf1 根源破灭
-!setname 0xaf2 斯菲亚
-!setname 0xaf3 超古代
-!setname 0xaf4 异生兽
-!setname 0xaf5 圆盘生物
-!setname 0xaf6 超兽
-
-#衾翼 0x900~0x90f
-#counters
-!counter 0x191 指示物（深海猎人·行动-顶级掠食者）
-!counter 0x192 指示物（炎国·术士干员-惊蛰）
-!counter 0x193 指示物（雷姆必拓·重装干员-暴行·微差爆破）
-!counter 0x1099 源石指示物
-!counter 0x190 指示物（使徒·医疗干员-闪灵）
-!counter 0x9b 指示物（罗德岛·术士干员-远山）
-!setname 0xa900 干员	Arknights 
-!setname 0xa901 近卫干员	Arknights 
-!setname 0xa902 医疗干员	Arknights 
-!setname 0xa903 先锋干员	Arknights 
-!setname 0xa904 特种干员	Arknights 
-!setname 0xa905 术士干员	Arknights 
-!setname 0xa906 狙击干员	Arknights 
-!setname 0xa907 重装干员	Arknights 
-!setname 0xa908 辅助干员	Arknights 
-!setname 0xa90f 据点	Arknights 
-!setname 0xb90d 部署	Arknights 
-!setname 0xc90e 行动	Arknights 
-!setname 0xdc0f 合约词条	Arknights 
-!setname 0xd90c 技能释放形态	Arknights 
-!setname 0x1901 罗德岛	Arknights 
-!setname 0x1902 企鹅物流	Arknights 
-!setname 0x1903 乌萨斯	Arknights 
-!setname 0x1904 黑钢国际	Arknights 
-!setname 0x1905 龙门	Arknights 
-!setname 0x1906 喀兰贸易	Arknights 
-!setname 0x1907 莱茵生命	Arknights 
-!setname 0x1908 深海猎人	Arknights 
-!setname 0x4909 使徒	Arknights 
-!setname 0x1909 卡西米尔	Arknights 
-!setname 0x4901 拉特兰	Arknights 
-!setname 0x4902 维多利亚	Arknights 
-!setname 0x4903 炎国	Arknights 
-!setname 0x3902 巴别塔	Arknights 
-!setname 0x2901 拉特兰	Arknights 
-!setname 0x2048 CiNo
-
-#LaiBill 529508379 601 0xb20-0xb2f
-!setname 0xab20 幻想曲
-!setname 0xcb20 乐章
-!setname 0x3b21 千夜
-!setname 0x5b21 天玲
-!setname 0x9b21 天夜
-!setname 0xab21 绘雨
-!setname 0xb22 乖离
-!setname 0x5b22 纯白型
-!setname 0x3b23 爱莎
-!setname 0x5b23 晓美焰
-!setname 0x6b23 FantasiaT
-!setname 0x9b23 军团
-!setname 0xab23 两仪式
-!setname 0xcb23 圣白莲
-!setname 0x3b24 天符
-!setname 0x6b25 佐仓杏子
-!setname 0xcb25 鹿目圆香
-!setname 0x3b26 天空的水晶部队
-!setname 0x6b26 魔铳
-!setname 0x9b26 魔缎
-!setname 0xab26 线膛燧发枪
-!setname 0xcb26 连结姬
-!setname 0x6b27 皇家骑士
-!setname 0x9b27 何蒙库鲁兹
-!setname 0xab27 素晴
-!setname 0x3b28 LUKA
-!setname 0x9b28 RWBY
-
-#TYGOC Submissions
-
-#Desruc_6872 987
-!counter 0x57b Scarlet Counter
-
-#极の一击 / 世纪末
-!setname 0xe6e DR
-!setname 0xe6f 世纪末（ポストアポカリプス）
-!setname 0x206e 多元魔导
-!setname 0x306e 多元魔导书
-!setname 0xfc0 星装（ホロウ）
-!setname 0x1fc0 幽骑兵（ホロウ・キャヴァリエ）
-!setname 0x2fc0 英龙骑（ホロウ・ドレムレース）
-!setname 0x4fc0 骸星装（ホロウ・レムナント）
-!setname 0xec0 械装（メカニカル）
-!setname 0x10b4 龙魂装衣（ドラゴネクロス）
-!setname 0xcc00 灵符（アミュレット）
-!setname 0xcc01 博丽（博麗）
-!setname 0xcc02 魔理沙
-!counter 0xcc10	翻车鱼指示物
-!setname 0xcc30 暴噬星皇	インペルード
-!counter 0xcc30	暴噬星皇指示物
-
-#01 822 0x290-0x29f
-!setname 0x290 科兹莫
-!setname 0x291 精灵王
-!setname 0x295 神迹
-!setname 0x2299 荒兽
-!setname 0x3299 孑影
-!setname 0x6299 龙法师
-!setname 0x129a 烽火骁骑
-!setname 0x29c 邪界幻灵
-!setname 0x129d 植占师
-!setname 0x29e 辉神兵装
-
-#Real_Scl 101 0x330-0x33f
-!setname 0xa331 黯黑魔王
-!setname 0xc331 光明之翼
-!setname 0xc333 乌托兰
-!setname 0x6336 奇妙物语
-!setname 0xa336 量子驱动
-!setname 0x337 冥魂龙
-!setname 0x1337 冥魂龙王
-!setname 0x3338 异位魔
-!setname 0xa338 暴怒兽
-
-#啖天的烩焗 220 0xff0-0xfff
-!setname 0x5098 大魔术师
-!setname 0xff1 人理
-!setname 0x1ff1 人理之灵
-!setname 0x2ff1 人理之基
-!setname 0x3ff1 人理之诗
-!setname 0xff3 希洛克
-!setname 0xff4 超时空
-!setname 0xff6 幻梦界
-!setname 0xff8 悲叹
-!setname 0x1ff8 悲叹之雏
-!setname 0x2ff8 悲叹少女
-!setname 0xff9 阿尔托莉雅
-!counter 0xfec 悲叹指示物
-!counter 0xfed 试炼指示物
-
-#廷达的信徒 150 0xf30-0xf3f
-!setname 0xf34 星拟
-!setname 0x3f34 星拟龙
-!setname 0x1f35 报丧泣语
-!setname 0xf36 RhineIllustelliry(幻智)
-!setname 0xf37 永寂
-!setname 0xaf37 永寂之国
-!setname 0xf39	Steinkern(内核)
-!setname 0x3f38	Asgabel(盖理)
-!setname 0x6f38 Nagtrdoll(噩梦茧机)
-!setname 0xf3a	Silreticenty(缄默城)
-!setname 0xf3b	恶虺
-
-#地狱犬 314&907
-!victory 0x60 「时计塔」效果胜利
-!setname 0x5311 时计塔	時計（とけい）塔（とう）
-!setname 0xc311 本我	本我（イト）
-!setname 0x3312 隐喻	メタフォル
-!setname 0x5312 炎龙机	炎（えん）龍（りゅう）機（き）
-!setname 0x6312 超我	本我（イト）	81服版本
-!setname 0x9312 化生	化（か）生（せい）
-!setname 0x1313 神欲	
-!setname 0x3313 神欲下仆	
-!setname 0x6313 伊迦塔斯	Ichyaltas
-!setname 0x0310 燧烽
-!setname 0x3310 赤燧烽
-!setname 0x5310 苍燧烽
-!setname 0x6310 紫燧烽
-!setname 0x9310 圣燧烽
-!setname 0x5ac0 霜火
-!counter 0x5310 霜火指示物
-!counter 0x5ac0 苍炎指示物
-!counter 0x131f 指示物（掠影之龙战士）
-
-#某失智の刀客塔 3529764274 1 0xca0-0xcaf
-!setname 0xa007 ULTRAMAN
-!setname 0xca3 后巴别塔
-!setname 0xca7 爱国者
-!setname 0xca8 霜星
-!setname 0xca9 Hollow Knight
-!setname 0xca12 鲨鱼
-!counter 0xca13 鲨鱼指示物
-
-#洛基卡奥斯 670489248 107 0xa00-0xa0f
-!setname 0x3a01 姬绊连结
-!setname 0x3a02 夏日连结
-!setname 0x3a03 美食连结
-!setname 0x3a05 墨丘利连结
-!setname 0xf1a3 奇术师
-!setname 0x3911 炼金兽
-
-#Warlus
-!setname 0xc97 虚空制裁（Voidictator）
-!setname 0x3c97 虚空制裁门生（Voidictator Servant）
-!setname 0x6c97 虚空制裁大神（Voidictator Deity）
-!setname 0x9c97 虚空制裁大魔（Voidictator Demon）
-!setname 0xac97 虚空制裁大符（Voidictator Rune）
-!setname 0xcc97 虚空制裁大能（Voidictator Energy）
-
-#紫宵 (PurpleNightfall) 114 0x970-0x97f
-!setname 0x97a 虚诞
-!victory 0x69 「珂拉琪的拼图箱庭」效果胜利
-!setname 0x97c 珂拉琪
-!setname 0x97d 悠久
-!setname 0x97e 诡雷战
-#traveler_saga 幻旅传说
-
-
-#魔方 706832760 093
-!setname 0xf99 替身
-!setname 0x1f99 替身使者
-!setname 0x2f99 替身箭
-!counter 0x1f93 猜拳指示物
-!setname 0xf9c 陷阵营
-
-
-#秀儿 087
-!setname 0xafa 端午节
-
-#其空葵 其空あおい 290 0x7a0-0x7af
-!setname 0x87aa 灵知隐者
-!setname 0x87ab 拟械零骑
-!setname 0x87ac 钢铁方舟
-!setname 0x87ad 战械人形
-!setname 0x87ae 星之光
-!setname 0x87af 方舟之骑士
-!counter 0x11ae COST指示物
-!counter 0x11af 鸽指示物
-
-#空想上の人格保持者
-!setname 0xfec1 幼龙
-!setname 0xbe1 绫波
-!setname 0xbe2 晓
-!setname 0xbe3 吹雪
-
-#Atolkas 997 0xd00-0xd0f
-!counter 0xfd00 指示物（龙界原始龙种后裔 圣魔龙）
-!setname 0xfd00 圣界
-!setname 0xfd01 星界
-!setname 0xfd02 元界
-!setname 0xfd03 灵界
-!setname 0xfd04 龙界
-!setname 0xfd05 幻界
-!setname 0xfd06 渊界
-!setname 0xfd07 源生
-
-#飄上月球の不死煙 2338626051 724 0x720-0x72f
-
-!setname 0xc727 /无畏
-!setname 0x6728 神花
-!setname 0xe728 神花姬
-
-!setname 0x9728 星宫守护者|非「守护者」
-
-!setname 0x5729 马纳历亚
-!setname 0xa726 安|与「马纳历亚」绑定使用
-!setname 0xc726 古蕾娅|与「马纳历亚」绑定使用
-
-!setname 0x6729 神造遗物
-!setname 0xe729 神造遗物使
-
-!setname 0x9729 电晶
-!setname 0xc729 命运之神意
-
-!setname 0xa729 天穹司书
-
-#AddCodeList(72411270) 土之印卡名记述
-#AddCodeList(72410000) 龙之国的圣城卡名记述
-
-#???
-!setname 0x926 机巧人偶|非「机巧」	マシンドール
-!setname 0x1925 人偶使	人形使い
-!setname 0x1927 机巧魔术|非「机巧」	
-!setname 0x930 舰队装姬	Kantai Collection
-!setname 0x940 深瞳明星	EyeDrops
-!setname 0x941 折纸
-!setname 0xacd9 阿提纳诺	アクアティルナノーグ
-!setname 0xbf1 梅尔特·莉莉丝
-!setname 0xbf1 癫狂之月
-!setname 0xaf1b 王冠圣域
-!setname 0xca4 玩家
-!counter 0xfd00 指示物（龙界原始龙种后裔 圣魔龙）
-!setname 0xfd00 圣界
-!setname 0xfd01 星界
-!setname 0xfd02 元界
-!setname 0xfd03 灵界
-!setname 0xfd04 龙界
-!setname 0xfd05 幻界
-!setname 0xfd06 渊界
-!setname 0xfd07 源生
-!setname 0xcf1b 魔惧会
-!setname 0x9310 圣燧烽
-!setname 0xa9f1 星壳
-!setname 0x2048 CiNO
-!setname 0x6f1b 焰之巫女
-!setname 0x7f1b 焰之护符
-!setname 0x8f1b 伐楼利拿
-!setname 0x1f17 柩机
+#No81DIY
+
+#Nemoma 337 0x440-0x44f
+!setname 0x440 篝（Kagari）
+!setname 0x441 GUARDIAN（守护者）
+!setname 0x442 动物朋友（Anifriends）
+!counter 0x442 太阳之道指示物 （Way of the Sun）
+!setname 0x443 霓火 （Neonfire）
+!setname 0x3440 Proto-Summoner （魔物使）
+!setname 0x6440 Protoform （魔物）
+!setname 0x5440 琪比摩斯 （Chibi-Moth）
+!setname 0x1449 无心械姬 （GearGal）
+!setname 0x3449 慧心花姬 （NEXTGal）
+!setname 0x6449 革新者 （Adventer）
+!setname 0x444 天降妹抖 （Heavenly Maid）
+!setname 0x5449 阻抗 （Resistor）
+!setname 0x344a 妖幻战姬（T.Fairies）
+!setname 0x644a 妖幻幼精（Tzermellend Fairy）
+!setname 0x144b 虚毒（Voison）
+!setname 0x144c VOICEROID（VOICEROID）
+!setname 0x344c 虚拟主播（VLiver）
+!setname 0x44f 【背景音台】（【Sound Stage】）
+!setname 0x44e 铁虹（Rainblo）
+!setname 0x445 虚拟YouTuber（VTuber）
+!counter 0x144b 虚空指示物（Void Counter）
+!setname 0x144d 残星倩影（Starspirit）
+!setname 0x144e 晦空士（Sepialife）
+!setname 0x8449 破天神狐（Kitsune.Sky.Breaker.）
+!setname 0x9449 赤月礼赞（Bloodmoon.）
+!counter 0x1440 集中力
+!counter 0x144e 晦空之础
+
+#少年 714 0x710-0x71f Sonic_714
+!setname 0x714 异梦
+!setname 0x3714 异梦境
+!setname 0xc714 异梦物
+!setname 0xa714 幻异梦
+!setname 0x5714 蚀异梦
+!setname 0xb714 幻异梦境
+!setname 0xe714 幻异梦物
+!setname 0x7714 蚀异梦境
+!setname 0xd714 蚀异梦物
+!setname 0x715 异梦书
+!setname 0x3715 异梦书中
+!setname 0x716 异梦怪物
+!setname 0x717 黑白异梦
+
+#Viola 011 0xe10-0xe1f
+
+#飞球 132 0x350~0x35f 阿飞很开心
+!setname 0x356 飞球
+!setname 0x3356 元始飞球
+!setname 0x351 超时空战斗机
+!counter 0x351 爆弹指示物
+!setname 0x352 超时空武装
+!counter 0x352 瞬雷指示物
+!setname 0x3352 超时空武装 主炮
+!setname 0x5352 超时空武装 装甲
+!setname 0x6352 超时空武装 副炮
+!setname 0x353 宇宙战争机器
+!counter 0x353 护罩指示物
+!counter 0x354 能量指示物
+
+#云云云 995 0xba0-0xbaf
+!setname 0xba1 永夜抄
+!setname 0x3ba1 永夜抄/藤原妹红
+!setname 0x5ba1 永夜抄/儚月抄
+!setname 0xba2 不死组
+!setname 0xba3 冰火组
+!setname 0xba4 自由佣兵
+!setname 0xba5 fate
+!setname 0x3ba5 fate/信
+!setname 0x5ba5 fate/新选组
+!setname 0xaba5 fate/冠位
+!setname 0x9ba5 fate/吉尔
+!setname 0xcba5 fate/圆桌骑士
+!setname 0x3ba6 卡美洛
+!setname 0x6ba6 卫宫
+!setname 0x9ba6 超越形态
+!setname 0x3ba7 贞德
+!setname 0x5ba7 宝具
+!setname 0x6ba7 特异点
+!setname 0x9ba7 降临者
+!setname 0x3ba8 Beast
+!setname 0x5ba8 深海电脑乐土
+!setname 0x6ba8 玉藻前
+!setname 0x9ba8 伊丽莎白
+!setname 0x5ba2 抚子
+!setname 0x6ba2 暴龙兽
+
+#鸟神 998 0xbc0-0xbcf
+!setname 0x3bc1 戈尔贡
+!setname 0x5bc1 诹访子
+!setname 0xbc8 女神
+!setname 0x3bc8 守护女神
+!setname 0x5bc8 异界女神
+!setname 0x6bc8 Zaphkiel（刻刻帝女神）
+!setname 0x9bc8 候补女神
+!setname 0xbc4 纪录
+!setname 0x3bc4 魔法纪录
+!setname 0x5bc4 物语纪录
+!setname 0x6bc4 外传纪录
+!setname 0xbca 平成骑士
+!setname 0x3bca 平成骑士/音击战士
+!setname 0x5bca AgitΩ/平成骑士
+!setname 0x6bca 镜骑士/平成骑士
+!setname 0x9bca 智脑/平成骑士
+!setname 0xabca Board/平成骑士
+!setname 0xcbca MRS/平成骑士
+!setname 0x3bcb 降临卡片
+!setname 0x5bcb Undead
+!setname 0x6bcb 异魔神
+!setname 0x3bcc 不死姬
+!setname 0x5bcc 柱男
+!setname 0x6bcc 四季映姬
+!setname 0x9bcc 流法
+!setname 0xcbcc 卡兹
+!setname 0x3bcd 电王
+!setname 0x5bcd Undead
+!setname 0x1bcf 加里奥
+!setname 0xabcc Evolto
+!setname 0x5bc1 诹访子
+!setname 0x6bcd 月骑
+!setname 0x9bcd 假面驾驭
+!setname 0x6bc1 昭和骑士
+!setname 0xabc1 欲望
+!setname 0x3bcf 欲望硬币核心
+!setname 0xcbc1 假面骑士部
+!setname 0x5bcf Fourze
+!setname 0x9bc1 盖亚记忆体
+!setname 0x3bc2 风都
+!setname 0x5bc2 魔法骑士
+!setname 0x6bc2 装甲骑士
+!setname 0x3bc3 玩家
+!setname 0x5bc3 最佳搭配
+!setname 0xabc2 亚马逊骑士
+!setname 0xcbc2 幽灵骑士
+!setname 0x6bc3 骑士时刻
+!setname 0xabcd 时王
+!setname 0xcbcd 盖茨
+!setname 0x6bcd 沃茨
+!setname 0x3bce 逢魔时王
+!setname 0x9bce IG
+!setname 0xbc9  令和骑士
+!setname 0x3bc9 飞电智能/令和骑士
+!setname 0x5bc9 艾姆斯/令和骑士
+!setname 0x6bc9 灭亡迅雷/令和骑士
+!setname 0x3bd1 鬼形兽
+!setname 0x6bd1 天空璋
+!setname 0x9bd1 光之国
+!setname 0xabd1 梦比优斯
+!setname 0x3bd2 妖妖梦
+
+#维他柠檬茶 551 0x551
+!setname 0x3551 疫病
+!setname 0x5551 大魔法
+!setname 0x6551 恶神龙
+!setname 0x9551 蚀刻龙
+!setname 0xa551 反刻钟
+!counter 0x5555 疫病指示物
+!counter 0x5556 特命指示物
+
+#零儿/02 648&650
+!setname 0x6da0 幻梦迷境
+!setname 0x9da0 星光歌剧
+
+#LaiBill 529508379 601 0xb20-0xb2f
+!setname 0xab20 幻想曲
+!setname 0xcb20 乐章
+!setname 0x3b21 千夜
+!setname 0x5b21 天玲
+!setname 0x9b21 天夜
+!setname 0xab21 绘雨
+!setname 0xb22 乖离
+!setname 0x5b22 纯白型
+!setname 0x3b23 爱莎
+!setname 0x5b23 晓美焰
+!setname 0x6b23 FantasiaT
+!setname 0x9b23 军团
+!setname 0xab23 两仪式
+!setname 0xcb23 圣白莲
+!setname 0x3b24 天符
+!setname 0x6b25 佐仓杏子
+!setname 0xcb25 鹿目圆香
+!setname 0x3b26 天空的水晶部队
+!setname 0x6b26 魔铳
+!setname 0x9b26 魔缎
+!setname 0xab26 线膛燧发枪
+!setname 0xcb26 连结姬
+!setname 0x6b27 皇家骑士
+!setname 0x9b27 何蒙库鲁兹
+!setname 0xab27 素晴
+!setname 0x3b28 LUKA
+!setname 0x9b28 RWBY
+
+#星眼 334 0x340-0x34f
+!setname 0x340 灵装
+!setname 0x3340 刻刻帝
+!setname 0x5340 破军歌姬
+!setname 0x341 D.A.L
+!setname 0x3341 时崎
+!setname 0x5341 夜刀神
+!setname 0x6341 四糸乃
+!setname 0x9341 五河
+!setname 0xa341 八舞
+!setname 0xc341 诱宵
+!setname 0x3342 七罪
+!setname 0x5342 鸢一
+!setname 0x6342 本条
+!setname 0x9342 星宫
+!setname 0xa342 崇宫
+!setname 0xc342 士道
+!setname 0x3343 天香
+!setname 0x5343 绝灭天使
+!setname 0x6343 CR-Unit
+!setname 0x9343 AST
+!setname 0xa343 D.E.M
+!setname 0xc343 DAL-WIZARD
+!setname 0x3344 四糸奈
+!setname 0x5344 Ratatoskr
+!setname 0x5349 森罗万象
+!counter 0x34f 时间指示物
+!setname 0x6344 万由里
+!setname 0x9344 白之女王	
+!setname 0x6340 狂狂帝
+
+#冲浪检察狸/狸z 777&999
+!setname 0x723 上古基因
+!setname 0x23a 上古遗迹
+!setname 0x2ba 尼尔机械纪元
+!setname 0x234 歌姬
+!setname 0x2bb 魅魔
+!setname 0x20cc Kemomimi
+!setname 0x34a1 剑技
+!setname 0x34a2 剑意
+!setname 0x77a 黑白视界
+!setname 0x77a2 暗物质
+!setname 0x20df 亡语
+
+#victory reason
+!victory 0x4a 宣告生命终结！
+
+#兔子（代理人）889 原作者：1061167669
+
+#qutry 991 0x950-0x95f
+!setname 0x3950 折纸使
+!setname 0x5950 灵式装置
+!setname 0x6950 赛博空间
+!setname 0x9950 韶光
+!setname 0xa950 桃绯
+!setname 0xc950 远古造物
+!counter 0x1950 韶光指示物
+!counter 0x4950 指示物（比武！）
+!setname 0x952 战车道
+!setname 0x953 幽鬼
+!counter 0x953 复仇指示物
+!setname 0x955 天空漫步者
+!setname 0x956 神树勇者
+!counter 0x956 指示物（神树勇者的庭院）
+!setname 0x957 星幽
+!setname 0x3951 甜心机仆
+!setname 0x5951 虹彩偶像
+!setname 0x6951 创生
+!setname 0x9951 月神
+
+#篁楠 10 0x200-0x20f
+!setname 0xc204 Madoka
+!setname 0x3204 Sayaka Miki
+!setname 0xa201 梦时空
+!setname 0x20f 魔法使之夜
+!setname 0x320f 童话的怪物
+!setname 0xa20f 久远寺有珠
+!setname 0xc20f 苍崎青子
+!setname 0xa200 绀珠传
+!setname 0xc200 姬丝秀忒
+!setname 0x320e 罪恶王冠
+!setname 0x520e void
+
+#萌萌尺 333 0x550-0x55f
+!setname 0x550 造神计划
+!setname 0x556 深界
+!setname 0x1556 深界探窟者
+!setname 0x3556 深界遗物
+!setname 0x557 生骸
+!setname 0x558 铁华团
+!setname 0x155b 断码者
+
+#沃亚森斯奥克斯 2201771890 300 0x920
+!setname 0x920 邪魂
+!setname 0x3920 终焉邪魂
+!setname 0x92a  圣魂
+!setname 0x92b  能力者
+!setname 0x5920  亚奥斯克
+!setname 0x92c 深土之物
+
+#格拉摩根伯爵 400
+!setname 0xf11 天兵团
+!setname 0xf12 渊风
+!setname 0xf13 机空
+!setname 0xf14 炼狱骑士团
+!setname 0xf16 降临
+!setname 0xf17 刻兽
+!setname 0xf18 究极异兽
+!counter 0x1f1b 超爆指示物
+!setname 0x1f1b 勇机
+!setname 0x2f1b 复血鬼
+!setname 0x3f1b 龙血师团
+!setname 0xf1c 时机
+!counter 0xf1c 时机指示物
+!setname 0x1f1c 时机龙骑
+!setname 0x2f1c 时机降神
+!setname 0x3f1d 封龙
+!setname 0x5f1d 机械加工
+!setname 0x4f1d 时隙淑女
+!setname 0x6f1d 连波
+!setname 0x7f1d 灾漩
+!setname 0xaf1d 阿尔弗雷德
+!setname 0xbf1d 狂风
+!setname 0xcf1d 暗魔
+!setname 0xdf1d 一人千面
+!setname 0xef1d 黑锁
+!setname 0x1f1e 首领赎救
+!setname 0x4f1e 神圣赎救
+!setname 0xf21 圣金
+!setname 0xf23 零点龙
+!setname 0xf24 宙蓝
+!setname 0x1f24 睿智宙蓝
+!setname 0xf27 守护天使
+!setname 0xc016 恶路程式
+!setname 0x3f1d 封龙
+
+#Akashic 25 3204027606
+!setname 0xaf1 根源破灭
+!setname 0xaf2 斯菲亚
+!setname 0xaf3 超古代
+!setname 0xaf4 异生兽
+!setname 0xaf5 圆盘生物
+!setname 0xaf6 超兽
+
+#衾翼 0x900~0x90f
+#counters
+!counter 0x191 指示物（深海猎人·行动-顶级掠食者）
+!counter 0x192 指示物（炎国·术士干员-惊蛰）
+!counter 0x193 指示物（雷姆必拓·重装干员-暴行·微差爆破）
+!counter 0x1099 源石指示物
+!counter 0x190 指示物（使徒·医疗干员-闪灵）
+!counter 0x9b 指示物（罗德岛·术士干员-远山）
+!setname 0xa900 干员	Arknights 
+!setname 0xa901 近卫干员	Arknights 
+!setname 0xa902 医疗干员	Arknights 
+!setname 0xa903 先锋干员	Arknights 
+!setname 0xa904 特种干员	Arknights 
+!setname 0xa905 术士干员	Arknights 
+!setname 0xa906 狙击干员	Arknights 
+!setname 0xa907 重装干员	Arknights 
+!setname 0xa908 辅助干员	Arknights 
+!setname 0xa90f 据点	Arknights 
+!setname 0xb90d 部署	Arknights 
+!setname 0xc90e 行动	Arknights 
+!setname 0xdc0f 合约词条	Arknights 
+!setname 0xd90c 技能释放形态	Arknights 
+!setname 0x1901 罗德岛	Arknights 
+!setname 0x1902 企鹅物流	Arknights 
+!setname 0x1903 乌萨斯	Arknights 
+!setname 0x1904 黑钢国际	Arknights 
+!setname 0x1905 龙门	Arknights 
+!setname 0x1906 喀兰贸易	Arknights 
+!setname 0x1907 莱茵生命	Arknights 
+!setname 0x1908 深海猎人	Arknights 
+!setname 0x4909 使徒	Arknights 
+!setname 0x1909 卡西米尔	Arknights 
+!setname 0x4901 拉特兰	Arknights 
+!setname 0x4902 维多利亚	Arknights 
+!setname 0x4903 炎国	Arknights 
+!setname 0x3902 巴别塔	Arknights 
+!setname 0x2901 拉特兰	Arknights 
+!setname 0x2048 CiNo
+
+#LaiBill 529508379 601 0xb20-0xb2f
+!setname 0xab20 幻想曲
+!setname 0xcb20 乐章
+!setname 0x3b21 千夜
+!setname 0x5b21 天玲
+!setname 0x9b21 天夜
+!setname 0xab21 绘雨
+!setname 0xb22 乖离
+!setname 0x5b22 纯白型
+!setname 0x3b23 爱莎
+!setname 0x5b23 晓美焰
+!setname 0x6b23 FantasiaT
+!setname 0x9b23 军团
+!setname 0xab23 两仪式
+!setname 0xcb23 圣白莲
+!setname 0x3b24 天符
+!setname 0x6b25 佐仓杏子
+!setname 0xcb25 鹿目圆香
+!setname 0x3b26 天空的水晶部队
+!setname 0x6b26 魔铳
+!setname 0x9b26 魔缎
+!setname 0xab26 线膛燧发枪
+!setname 0xcb26 连结姬
+!setname 0x6b27 皇家骑士
+!setname 0x9b27 何蒙库鲁兹
+!setname 0xab27 素晴
+!setname 0x3b28 LUKA
+!setname 0x9b28 RWBY
+
+#TYGOC Submissions
+
+#Desruc_6872 987
+!counter 0x57b Scarlet Counter
+
+#极の一击 / 世纪末
+!setname 0xe6e DR
+!setname 0xe6f 世纪末（ポストアポカリプス）
+!setname 0x206e 多元魔导
+!setname 0x306e 多元魔导书
+!setname 0xfc0 星装（ホロウ）
+!setname 0x1fc0 幽骑兵（ホロウ・キャヴァリエ）
+!setname 0x2fc0 英龙骑（ホロウ・ドレムレース）
+!setname 0x4fc0 骸星装（ホロウ・レムナント）
+!setname 0xec0 械装（メカニカル）
+!setname 0x10b4 龙魂装衣（ドラゴネクロス）
+!setname 0xcc00 灵符（アミュレット）
+!setname 0xcc01 博丽（博麗）
+!setname 0xcc02 魔理沙
+!counter 0xcc10	翻车鱼指示物
+!setname 0xcc30 暴噬星皇	インペルード
+!counter 0xcc30	暴噬星皇指示物
+
+#01 822 0x290-0x29f
+!setname 0x290 科兹莫
+!setname 0x291 精灵王
+!setname 0x295 神迹
+!setname 0x2299 荒兽
+!setname 0x3299 孑影
+!setname 0x6299 龙法师
+!setname 0x129a 烽火骁骑
+!setname 0x29c 邪界幻灵
+!setname 0x129d 植占师
+!setname 0x29e 辉神兵装
+
+#Real_Scl 101 0x330-0x33f
+!setname 0xa331 黯黑魔王
+!setname 0xc331 光明之翼
+!setname 0xc333 乌托兰
+!setname 0x6336 奇妙物语
+!setname 0xa336 量子驱动
+!setname 0x337 冥魂龙
+!setname 0x1337 冥魂龙王
+!setname 0x3338 异位魔
+!setname 0xa338 暴怒兽
+
+#啖天的烩焗 220 0xff0-0xfff
+!setname 0x5098 大魔术师
+!setname 0xff1 人理
+!setname 0x1ff1 人理之灵
+!setname 0x2ff1 人理之基
+!setname 0x3ff1 人理之诗
+!setname 0xff3 希洛克
+!setname 0xff4 超时空
+!setname 0xff6 幻梦界
+!setname 0xff8 悲叹
+!setname 0x1ff8 悲叹之雏
+!setname 0x2ff8 悲叹少女
+!setname 0xff9 阿尔托莉雅
+!counter 0xfec 悲叹指示物
+!counter 0xfed 试炼指示物
+
+#廷达的信徒 150 0xf30-0xf3f
+!setname 0xf34 星拟
+!setname 0x3f34 星拟龙
+!setname 0x1f35 报丧泣语
+!setname 0xf36 RhineIllustelliry(幻智)
+!setname 0xf37 永寂
+!setname 0xaf37 永寂之国
+!setname 0xf39	Steinkern(内核)
+!setname 0x3f38	Asgabel(盖理)
+!setname 0x6f38 Nagtrdoll(噩梦茧机)
+!setname 0xf3a	Silreticenty(缄默城)
+!setname 0xf3b	恶虺
+
+#地狱犬 314&907
+!victory 0x60 「时计塔」效果胜利
+!setname 0x5311 时计塔	時計（とけい）塔（とう）
+!setname 0xc311 本我	本我（イト）
+!setname 0x3312 隐喻	メタフォル
+!setname 0x5312 炎龙机	炎（えん）龍（りゅう）機（き）
+!setname 0x6312 超我	本我（イト）	81服版本
+!setname 0x9312 化生	化（か）生（せい）
+!setname 0x1313 神欲	
+!setname 0x3313 神欲下仆	
+!setname 0x6313 伊迦塔斯	Ichyaltas
+!setname 0x0310 燧烽
+!setname 0x3310 赤燧烽
+!setname 0x5310 苍燧烽
+!setname 0x6310 紫燧烽
+!setname 0x9310 圣燧烽
+!setname 0x5ac0 霜火
+!counter 0x5310 霜火指示物
+!counter 0x5ac0 苍炎指示物
+!counter 0x131f 指示物（掠影之龙战士）
+
+#某失智の刀客塔 3529764274 1 0xca0-0xcaf
+!setname 0xa007 ULTRAMAN
+!setname 0xca3 后巴别塔
+!setname 0xca7 爱国者
+!setname 0xca8 霜星
+!setname 0xca9 Hollow Knight
+!setname 0xca12 鲨鱼
+!counter 0xca13 鲨鱼指示物
+
+#洛基卡奥斯 670489248 107 0xa00-0xa0f
+!setname 0x3a01 姬绊连结
+!setname 0x3a02 夏日连结
+!setname 0x3a03 美食连结
+!setname 0x3a05 墨丘利连结
+!setname 0xf1a3 奇术师
+!setname 0x3911 炼金兽
+
+#Warlus
+!setname 0xc97 虚空制裁（Voidictator）
+!setname 0x3c97 虚空制裁门生（Voidictator Servant）
+!setname 0x6c97 虚空制裁大神（Voidictator Deity）
+!setname 0x9c97 虚空制裁大魔（Voidictator Demon）
+!setname 0xac97 虚空制裁大符（Voidictator Rune）
+!setname 0xcc97 虚空制裁大能（Voidictator Energy）
+
+#紫宵 (PurpleNightfall) 114 0x970-0x97f
+!setname 0x97a 虚诞
+!victory 0x69 「珂拉琪的拼图箱庭」效果胜利
+!setname 0x97c 珂拉琪
+!setname 0x97d 悠久
+!setname 0x97e 诡雷战
+#traveler_saga 幻旅传说
+
+
+#魔方 706832760 093
+!setname 0xf99 替身
+!setname 0x1f99 替身使者
+!setname 0x2f99 替身箭
+!counter 0x1f93 猜拳指示物
+!setname 0xf9c 陷阵营
+
+
+#秀儿 087
+!setname 0xafa 端午节
+
+#其空葵 其空あおい 290 0x7a0-0x7af
+!setname 0x87aa 灵知隐者
+!setname 0x87ab 拟械零骑
+!setname 0x87ac 钢铁方舟
+!setname 0x87ad 战械人形
+!setname 0x87ae 星之光
+!setname 0x87af 方舟之骑士
+!counter 0x11ae COST指示物
+!counter 0x11af 鸽指示物
+
+#空想上の人格保持者
+!setname 0xfec1 幼龙
+!setname 0xbe1 绫波
+!setname 0xbe2 晓
+!setname 0xbe3 吹雪
+
+#Atolkas 997 0xd00-0xd0f
+!counter 0xfd00 指示物（龙界原始龙种后裔 圣魔龙）
+!setname 0xfd00 圣界
+!setname 0xfd01 星界
+!setname 0xfd02 元界
+!setname 0xfd03 灵界
+!setname 0xfd04 龙界
+!setname 0xfd05 幻界
+!setname 0xfd06 渊界
+!setname 0xfd07 源生
+
+#飄上月球の不死煙 2338626051 724 0x720-0x72f
+
+!setname 0xc727 /无畏
+!setname 0x6728 神花
+!setname 0xe728 神花姬
+
+!setname 0x9728 星宫守护者|非「守护者」
+
+!setname 0x5729 马纳历亚
+!setname 0xa726 安|与「马纳历亚」绑定使用
+!setname 0xc726 古蕾娅|与「马纳历亚」绑定使用
+
+!setname 0x6729 神造遗物
+!setname 0xe729 神造遗物使
+
+!setname 0x9729 电晶
+!setname 0xc729 命运之神意
+
+!setname 0xa729 天穹司书
+
+#AddCodeList(72411270) 土之印卡名记述
+#AddCodeList(72410000) 龙之国的圣城卡名记述
+
+#???
+!setname 0x926 机巧人偶|非「机巧」	マシンドール
+!setname 0x1925 人偶使	人形使い
+!setname 0x1927 机巧魔术|非「机巧」	
+!setname 0x930 舰队装姬	Kantai Collection
+!setname 0x940 深瞳明星	EyeDrops
+!setname 0x941 折纸
+!setname 0xacd9 阿提纳诺	アクアティルナノーグ
+!setname 0xbf1 梅尔特·莉莉丝
+!setname 0xbf1 癫狂之月
+!setname 0xaf1b 王冠圣域
+!setname 0xca4 玩家
+!counter 0xfd00 指示物（龙界原始龙种后裔 圣魔龙）
+!setname 0xfd00 圣界
+!setname 0xfd01 星界
+!setname 0xfd02 元界
+!setname 0xfd03 灵界
+!setname 0xfd04 龙界
+!setname 0xfd05 幻界
+!setname 0xfd06 渊界
+!setname 0xfd07 源生
+!setname 0xcf1b 魔惧会
+!setname 0x9310 圣燧烽
+!setname 0xa9f1 星壳
+!setname 0x2048 CiNO
+!setname 0x6f1b 焰之巫女
+!setname 0x7f1b 焰之护符
+!setname 0x8f1b 伐楼利拿
+!setname 0x1f17 柩机
 !setname 0x9f38 RK
\ No newline at end of file