24.9.23 yume fix

expansions/script/c71400002.lua

 --异梦旅者-冰冻子
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400002.initial_effect(c)
 	--special summon
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400004.lua

 --异梦公寓的圆盘人
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400004.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400005.lua

 --梦之钢琴师
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400005.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400006.lua

 --异梦医院的病人-青汁君
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400006.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400007.lua

 --异梦胡同的路标
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400007.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400008.lua

 --异梦通路的边际鲜活工作者
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400008.initial_effect(c)
 	--xyz summon
 	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,3)

expansions/script/c71400009.lua

 --异梦画廊的假面画师
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400009.initial_effect(c)
 	--xyz summon
 	aux.AddXyzProcedure(c,yume.YumeCheck(c,true),4,2)

expansions/script/c71400010.lua

 --异梦书中的擦伤少女
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400010.initial_effect(c)
 	--xyz summon
 	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)

expansions/script/c71400011.lua

 --异梦书使-馆长女儿
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400011.initial_effect(c)
 	--xyz summon
 	aux.AddXyzProcedure(c,yume.YumeCheck(c,true),4,3)

expansions/script/c71400012.lua

 --异梦迷宫的狐侍-师傅
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400012.initial_effect(c)
 	--synchro summon
 	aux.AddSynchroProcedure(c,yume.YumeCheck(c,true),aux.NonTuner(nil),1)

expansions/script/c71400013.lua

 --梦坠
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400013.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
@@ -20,7 +20,6 @@ end
 function c71400013.filter2(c)
 	return c:IsSetCard(0x714) and c:IsType(TYPE_MONSTER) and c:IsFaceupEx()
 end
-
 function c71400013.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
 	local b1=yume.YumeFieldCheck(tp,0,1)
 	local tg=Duel.GetMatchingGroup(c71400013.filter2,tp,LOCATION_HAND+LOCATION_ONFIELD,0,nil)

expansions/script/c71400014.lua

 --幻异梦境-梦幻图书馆
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400014.initial_effect(c)
 	--red remedy
 	local e1a=Effect.CreateEffect(c)
@@ -20,11 +20,10 @@ function c71400014.initial_effect(c)
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(71400014,1))
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_CHAINING)
+	e2:SetCode(EVENT_TO_HAND)
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetRange(LOCATION_FZONE)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
-	e2:SetCondition(c71400014.con2)
 	e2:SetCost(c71400014.cost2)
 	e2:SetTarget(c71400014.tg2)
 	e2:SetOperation(c71400014.op2)
@@ -73,9 +72,6 @@ end
 function c71400014.filter2(c,e,tp)
 	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
-function c71400014.con2(e,tp,eg,ep,ev,re,r,rp)
-	return re:IsActiveType(TYPE_TRAP) and e:GetHandler():IsStatus(STATUS_EFFECT_ENABLED)
-end
 function c71400014.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.CheckLPCost(tp,2000) end
 	Duel.PayLPCost(tp,2000)

expansions/script/c71400015.lua

 --幻异梦境-梦湖回廊
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400015.initial_effect(c)
 	--Activate
 	--See AddYumeFieldGlobal

expansions/script/c71400016.lua

 --幻异梦境-空中庭园
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400016.initial_effect(c)
 	--Activate
 	--See AddYumeFieldGlobal

expansions/script/c71400017.lua

 --幻异梦境-门扉房间
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400017.initial_effect(c)
 	--Activate
 	--See AddYumeFieldGlobal
@@ -54,13 +54,16 @@ end
 function c71400017.filter2r(c,tp)
 	return c:IsSetCard(0xe714) and c:IsAbleToRemove(tp)
 end
+function c71400017.filter2c(c)
+	return c:IsOnField() and c:IsFacedown()
+end
 function c71400017.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c71400017.filter2,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil) and Duel.GetMatchingGroupCount(c71400017.filter2r,tp,LOCATION_HAND+LOCATION_GRAVE,0,nil,tp)>4 end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,5,tp,LOCATION_HAND+LOCATION_GRAVE)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400017.filter2,tp,LOCATION_GRAVE+LOCATION_DECK+LOCATION_REMOVED,0,1,nil) and Duel.GetMatchingGroupCount(c71400017.filter2r,tp,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,0,nil,tp)>4 end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,5,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD)
 end
 function c71400017.op2(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(c71400017.filter2r,tp,LOCATION_HAND+LOCATION_GRAVE,0,nil)
+	local g=Duel.GetMatchingGroup(c71400017.filter2r,tp,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,0,nil)
 	if g:GetClassCount(Card.GetCode)<5 then return end
 	local rg=Group.CreateGroup()
 	for i=1,5 do
@@ -69,11 +72,13 @@ function c71400017.op2(e,tp,eg,ep,ev,re,r,rp)
 		rg:AddCard(sc)
 		g:Remove(Card.IsCode,nil,sc:GetCode())
 	end
+	local cg=rg:Filter(c71400017.filter2c,nil)
+	Duel.ConfirmCards(1-tp,cg)
 	Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g2=Duel.SelectMatchingCard(tp,c71400017.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
+	local g2=Duel.SelectMatchingCard(tp,c71400017.filter2,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
 	if g2:GetCount()>0 then
 		Duel.SendtoHand(g2,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
+		Duel.ConfirmCards(1-tp,g2)
 	end
 end
\ No newline at end of file

expansions/script/c71400018.lua

 --幻异梦像-电锯
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400018.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400019.lua

 --幻异梦像-魔女
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400019.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400020.lua

 --梦终
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400020.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400021.lua

 --幻异梦像-菜刀
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400021.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400022.lua

 --异梦眼药商人
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400022.initial_effect(c)
 	--link summon
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,2,yume.YumeLMGFilterFunction(c))

expansions/script/c71400023.lua

 --梦染
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400023.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(71400023,0))

expansions/script/c71400024.lua

 --幽禁异梦的狐侍与魔女
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400024.initial_effect(c)
 	--link summon
 	aux.AddLinkProcedure(c,c71400024.mfilter,2,2,yume.YumeCheck(c))

expansions/script/c71400025.lua

 --梦蚀
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400025.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400026.lua

 --幻异梦像-黑电话
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400026.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400027.lua

 --啊，擦伤啦☆
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400027.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400028.lua

 --锈蚀的异梦怪物
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400028.initial_effect(c)
 	--link summon
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,99,yume.YumeLMGFilterFunction(c))

expansions/script/c71400029.lua

 --异梦方块的女-围巾子
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400029.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400030.lua

 --腐坏的异梦怪物
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400030.initial_effect(c)
 	--link summon
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,99,yume.YumeLMGFilterFunction(c))

expansions/script/c71400031.lua

 --梦日记
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400031.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400032.lua

 --蚀异梦境-幻想植物回路
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400032.initial_effect(c)
 	--Activate
 	--See AddYumeFieldGlobal

expansions/script/c71400033.lua

 --蚀异梦像-铁管
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400033.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400034.lua

 --蚀异梦境-里梦足迹
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400034.initial_effect(c)
 	--Activate
 	--See AddYumeFieldGlobal

expansions/script/c71400035.lua

 --梦行
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400035.initial_effect(c)
 	--activate from hand
 	local e0=Effect.CreateEffect(c)

expansions/script/c71400036.lua

 --幻异梦像-狼
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400036.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400037.lua

 --幻异梦境-昭和胡同
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400037.initial_effect(c)
 	--Activate
 	--See AddYumeFieldGlobal

expansions/script/c71400038.lua

 --锖
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400038.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400039.lua

 --异梦粉红小丑
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400039.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400040.lua

 --异梦笑颜兄妹
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400040.initial_effect(c)
 	c:SetUniqueOnField(1,0,71400040)
 	--link summon

expansions/script/c71400041.lua

 --蚀异梦境-梦医院
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400041.initial_effect(c)
 	--Activate
 	--See AddYumeFieldGlobal

expansions/script/c71400042.lua

 --构异梦境-巡行病房
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400042.initial_effect(c)
 	yume.temp_card_field[c]=yume.temp_card_field[c] or {}
 	yume.temp_card_field[c].id=71400042
@@ -70,7 +70,7 @@ function c71400042.op1(e,tp,eg,ep,ev,re,r,rp)
 	Duel.SendtoGrave(sg,REASON_EFFECT)
 	local ct=sg:FilterCount(Card.IsLocation,nil,LOCATION_GRAVE)
 	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	if ct>ft then ct=ft
+	if ct>ft then ct=ft end
 	local g=Duel.GetMatchingGroup(c71400042.filter1sp,tp,LOCATION_GRAVE,0,nil,e,tp)
 	if ct<1 or g:GetCount()==0 then return end
 	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end

expansions/script/c71400043.lua

 --异梦海底的潜水员-橘黄子
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400043.initial_effect(c)
 	c:SetSPSummonOnce(71400043)
 	--link summon
@@ -64,7 +64,7 @@ function c71400043.matfilter(c)
 	return c:IsSetCard(0x714) and not c:IsLinkType(TYPE_LINK)
 end
 function c71400043.gyfilter(c)
-	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0x7714) and c:IsType(TYPE_FIELD)
+	return c:IsSetCard(0x7714) and c:IsType(TYPE_FIELD)
 end
 function c71400043.splimit(e,se,sp,st,pos,tp)
 	return yume.YumeCheck(e,se,sp) and Duel.IsExistingMatchingCard(c71400043.gyfilter,sp,LOCATION_GRAVE,0,1,nil)

expansions/script/c71400044.lua

 --幻异梦像-猫
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400044.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400045.lua

 --黑白异梦少女-黑白子
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400045.initial_effect(c)
 	--synchro summon
 	aux.AddSynchroProcedure(c,yume.YumeCheck(c,true),aux.NonTuner(nil),1)

expansions/script/c71400046.lua

 --黑白异梦少女-黑白江
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400046.initial_effect(c)
 	--synchro summon
 	aux.AddSynchroProcedure(c,yume.YumeCheck(c,true),aux.NonTuner(nil),1)

expansions/script/c71400047.lua

 --幻异梦像-信号灯
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400047.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400048.lua

 --正在磨牙的那个东西
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400048.initial_effect(c)
 	--synchro summon
 	aux.AddSynchroMixProcedure(c,aux.Tuner(yume.YumeCheck,c),nil,nil,c71400048.mfilter,1,99,c71400048.gfilter(c))

expansions/script/c71400049.lua

 --幻异梦境-黑白世界
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400049.initial_effect(c)
 	--Activate
 	--See AddYumeFieldGlobal

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:IsSetCard(0x714)) 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)
-	--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,1,nil) end
-	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,1-tp,LOCATION_ONFIELD)
-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,nil)
-	if ct>0 and g:GetCount()>0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-		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

 --蚀异梦像-机械
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400052.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400053.lua

 --梦绽
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400053.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400054.lua

 --幻异梦像-眼珠手
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400054.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400055.lua

 --幻异梦像-蛋糕
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400055.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400056.lua

 --梦寂
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400056.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400057.lua

 --剧场读书
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400057.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400058.lua

 --幻异梦境-水母水族馆
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400058.initial_effect(c)
 	--Activate
 	--See AddYumeFieldGlobal

expansions/script/c71400059.lua

 --幻异梦境-蔷薇教堂
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400059.initial_effect(c)
 	--Activate
 	--See AddYumeFieldGlobal

expansions/script/c71400060.lua

 --异梦街灯旁的舞者-跳舞子
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400060.initial_effect(c)
 	--xyz summon
 	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)

expansions/script/c71400061.lua

 --蚀异梦像-植物
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400061.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400062.lua

 --蚀异梦像-扫帚
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400062.initial_effect(c)
 	--Activate
 	local e0=Effect.CreateEffect(c)

expansions/script/c71400064.lua

 --异梦管风琴的蓝衣少女
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400064.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400066.lua

 --梦刻
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400066.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)

expansions/script/c71400067.lua

 --异梦伪像-学校泳装
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400067.initial_effect(c)
 	--summon limit
 	yume.AddYumeSummonLimit(c)

expansions/script/c71400068.lua

 --异梦刺青妹妹
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400068.initial_effect(c)
 	--link summon
 	aux.AddLinkProcedure(c,c71400068.matfilter,1,1,yume.YumeCheck(c))

expansions/script/c71400070.lua

 --幻异梦境-梦海底
-if not c71401001 then dofile("expansions/script/c71400001.lua") end
+if not c71400001 then dofile("expansions/script/c71400001.lua") end
 function c71400070.initial_effect(c)
 	--same effect send this card to grave and spsummon another card check
 	local e0=aux.AddThisCardInGraveAlreadyCheck(c)