fix:101s/119/150s/164/172/379s/473s/648s/650s/714s,fix cdb in 648,add 2filed pics

expansions/script/c10171001.lua

 --余火
-if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
+if not pcall(function() dofile("expansions/script/c10199990.lua") end) then dofile("script/c10199990.lua") end
 local m,cm=rscf.DefineCard(10171001)
 if rsds then return end
 rsds=cm 
@@ -131,11 +131,8 @@ function cm.speop(spcode)
 end
 -------------------------
 function cm.initial_effect(c)
-	--local e1=rsef.QO(c,nil,{m,1},nil,"rec","ptg",LOCATION_HAND+LOCATION_MZONE,nil,rsds.cost1,rsop.target(800,"rec"),cm.recop)
 	local e2=rsef.QO(c,nil,{m,2},nil,"sp",nil,LOCATION_HAND+LOCATION_MZONE,nil,rsds.cost1,rsop.target2(cm.resetfun,cm.spfilter,"sp",LOCATION_HAND),cm.spop)
-	--local e3=rsef.QO(c,nil,{m,3},nil,"rm",nil,LOCATION_HAND+LOCATION_MZONE,nil,rsds.cost1,rsop.target2(cm.resetfun,cm.rmfilter,"rm",LOCATION_MZONE,LOCATION_MZONE),cm.rmop)
-	local e3=rsef.QO(c,nil,{m,4},nil,"atk,def",nil,LOCATION_HAND+LOCATION_MZONE,nil,rsds.cost1,rsop.target2(cm.resetfun,cm.atkfilter,nil,LOCATION_MZONE,LOCATION_MZONE),cm.atkop)
-	--local e4=rsef.FTF(c,EVENT_LEAVE_FIELD,{m,0},{2,m},"th",nil,LOCATION_REMOVED,cm.embthcon,rscost.regflag2(),rsop.target(Card.IsAbleToHand,"th"),cm.embthop)
+	local e3=rsef.QO(c,nil,{m,4},nil,"atk,def","dsp",LOCATION_HAND+LOCATION_MZONE,nil,rsds.cost1,rsop.target(cm.atkfilter,"dum",LOCATION_MZONE,LOCATION_MZONE),cm.atkop)
 	local e4=rsef.FTF(c,EVENT_LEAVE_FIELD,{m,0},nil,"th",nil,LOCATION_REMOVED,cm.embthcon,cm.embthcost,rsop.target(Card.IsAbleToHand,"th"),cm.embthop)
 end
 function cm.recop(e,tp)
@@ -161,7 +158,7 @@ function cm.rmop(e,tp)
 	end
 end
 function cm.atkfilter(c,e,tp)
-	return c:IsFaceup() and (e:GetLabel()~=100 or c~=e:GetHandler()) and c:IsSetCard(0xa335,0xc335)
+	return c:IsFaceup() and ( not e:IsCostChecked() or c~=e:GetHandler())
 end
 function cm.atkop(e,tp)
 	local ct=rsop.SelectSolve(HINTMSG_FACEUP,tp,cm.atkfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,aux.ExceptThisCard(e),cm.solvefun,e,tp)
@@ -169,7 +166,8 @@ end
 function cm.solvefun(g,e,tp)
 	local tc=g:GetFirst()
 	local c=e:GetHandler()
-	local e1,e2=rscf.QuickBuff({c,tc},"atk+,def+",500,"reset",rsreset.est_pend)
+	Duel.HintSelection(Group.FromCards(tc))
+	local e1,e2=rscf.QuickBuff({c,tc},"atk+,def+",500,"rst",rsreset.est_pend)
 	tc:RegisterFlagEffect(m,rsreset.est_pend-RESET_LEAVE,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
 	local e3,e4=rsef.FV_CANNOT_DISABLE({c,tp},"neg,dise",cm.imval(tc),nil,nil,nil,rsreset.pend)
 	--local phase=Duel.GetCurrentPhase()

expansions/script/c11900105.lua

 --逸想妖精龙
 function c11900105.initial_effect(c)
-    --spirit
-	aux.EnableSpiritReturn(c,EVENT_FLIP)
     --summon limit
 	local e1=Effect.CreateEffect(c)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)

expansions/script/c15005131.lua

@@ -57,7 +57,7 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function cm.rmcon(e,tp,eg,ep,ev,re,r,rp)
-	return re and re:GetHandler():IsRace(RACE_MACHINE)
+	return re and re:IsActiveType(TYPE_MONSTER) and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_RACE)&RACE_MACHINE~=0
 end
 function cm.rmfilter(c)
 	return c:IsAbleToRemove() and c:IsType(TYPE_MONSTER)

expansions/script/c15005132.lua

@@ -40,7 +40,7 @@ function cm.synclv(e,c)
 	return (6<<16)+lv
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return re and re:GetHandler():IsRace(RACE_MACHINE)
+	return re and re:IsActiveType(TYPE_MONSTER) and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_RACE)&RACE_MACHINE~=0
 end
 function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.scfilter,tp,LOCATION_EXTRA,0,1,nil) or Duel.IsExistingMatchingCard(cm.xyzfilter,tp,LOCATION_EXTRA,0,1,nil) end

expansions/script/c15005133.lua

@@ -78,7 +78,7 @@ function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return re and re:GetHandler():IsRace(RACE_MACHINE)
+	return re and re:IsActiveType(TYPE_MONSTER) and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_RACE)&RACE_MACHINE~=0
 end
 function cm.filter(c,e,tp)
 	return c:IsCode(15005130) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c15005134.lua

@@ -53,7 +53,7 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
 end
 function cm.tfcon(e,tp,eg,ep,ev,re,r,rp)
-	return re and re:GetHandler():IsRace(RACE_MACHINE)
+	return re and re:IsActiveType(TYPE_MONSTER) and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_RACE)&RACE_MACHINE~=0
 end
 function cm.tffilter(c,tp)
 	return c:IsType(TYPE_SPELL+TYPE_TRAP) and not c:IsType(TYPE_FIELD) and aux.IsCodeListed(c,15005130) and c:IsType(TYPE_CONTINUOUS)

expansions/script/c15005136.lua

@@ -54,7 +54,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function cm.descon(e,tp,eg,ep,ev,re,r,rp)
-	return re and re:GetHandler():IsRace(RACE_MACHINE)
+	return re and re:IsActiveType(TYPE_MONSTER) and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_RACE)&RACE_MACHINE~=0
 end
 function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)

expansions/script/c15005138.lua

@@ -76,6 +76,7 @@ function cm.tnop(e,tp,eg,ep,ev,re,r,rp)
 		e3:SetCode(EVENT_CHAINING)
 		e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_NO_TURN_RESET)
 		e3:SetRange(LOCATION_MZONE)
+		e3:SetCountLimit(1)
 		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
 		e3:SetCondition(cm.discon)
 		e3:SetTarget(cm.distg)

expansions/script/c16400100.lua

@@ -31,7 +31,7 @@ function s.initial_effect(c)
 	c:RegisterEffect(e3)
 end
 function s.stfilter(c,tp)
-	return not c:IsCode(id) and c:IsAbleToHand(0xce2) and c:IsAbleToHand()
+	return not c:IsCode(id) and c:IsSetCard(0xce2) and c:IsAbleToHand()
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(s.stfilter,tp,LOCATION_DECK,0,nil)

expansions/script/c17243331.lua

@@ -73,8 +73,11 @@ function cm.checkcon(e,tp,eg,ep,ev,re,r,rp)
 	return re:IsActiveType(TYPE_MONSTER)
 end
 function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
-	local code=re:GetHandler():GetOriginalCodeRule()
-	Duel.RegisterFlagEffect(tp,m+1,RESET_PHASE+PHASE_END,0,1,code)
+	local codes={re:GetHandler():GetOriginalCodeRule()}
+	for i=1,#codes do
+		Duel.RegisterFlagEffect(tp,m+1,RESET_PHASE+PHASE_END,0,1,codes[i])
+		Duel.RegisterFlagEffect(1-tp,m+1,RESET_PHASE+PHASE_END,0,1,codes[i])
+	end
 end
 function cm.limtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
@@ -96,7 +99,8 @@ end
 ----------------------------------------------------------------------------
 
 function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
-	return r==REASON_LINK 
+	local c=e:GetHandler():GetReasonCard()
+	return r==REASON_LINK and c.SetCard_SCP
 end
 function cm.thfilter(c)
 	return c.SetCard_SCP and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()

expansions/script/c37900000.lua

 --复读姬的外包
-if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
+if not pcall(function() dofile("expansions/script/c10199990.lua") end) then dofile("script/c10199990.lua") end
\ No newline at end of file

expansions/script/c37900001.lua

 --神社
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m , cm = rscf.DefineCard(37900001)
 function cm.initial_effect(c)
 	local e1 = rsef.A(c)

expansions/script/c37900002.lua

 --神隐之地
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m , cm = rscf.DefineCard(37900002,"ShenYing")
 function cm.initial_effect(c)
 	local e1 = rsef.A(c)

expansions/script/c37900003.lua

 --神隐的奇迹
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m , cm = rscf.DefineCard(37900003,"ShenYing")
 function cm.initial_effect(c)
 	local e1 = rsef.A(c,nil,nil,nil,nil,"dis~,dise~,neg~",cm.con,nil,nil,cm.act)

expansions/script/c37900004.lua

 --现世的神隐事件
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m , cm = rscf.DefineCard(37900004,"ShenYing")
 function cm.initial_effect(c)
 	local e1 = rsef.A(c,nil,nil,{1,m},"sp,se,th",nil,nil,nil,rsop.target({ cm.spfilter,"sp",LOCATION_HAND },{ aux.TRUE,"dum",LOCATION_DECK,0,5 }),cm.act)

expansions/script/c37900006.lua

 --神隐事件·符卡重构
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m,cm = rscf.DefineCard(37900006)
 function cm.initial_effect(c)
 	local e2 = rsef.I(c,"td",{1,m},"td,dr",nil,LOCATION_GRAVE,nil,nil,rsop.target(Card.IsAbleToDeck,"td"),cm.tdop)

expansions/script/c37900011.lua

 --黑白魔法使
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m,cm = rscf.DefineCard(37900011)
 function cm.initial_effect(c)
 	--xyz summon

expansions/script/c37900012.lua

 --色彩艳丽的门卫
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m,cm = rscf.DefineCard(37900012)
 function cm.initial_effect(c)
 	--xyz summon

expansions/script/c37900013.lua

 --隐居地上的月球公主
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m,cm = rscf.DefineCard(37900013)
 function cm.initial_effect(c)
 	c:SetSPSummonOnce(m)

expansions/script/c37900014.lua

 --永远的巫女
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m,cm = rscf.DefineCard(37900014)
 function cm.initial_effect(c)
 	--xyz summon

expansions/script/c37900015.lua

 --幽人的庭师
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m,cm = rscf.DefineCard(37900015)
 function cm.initial_effect(c)
 	--xyz summon

expansions/script/c37900016.lua

 --完美潇洒的女仆长
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m,cm = rscf.DefineCard(37900016)
 function cm.initial_effect(c)
 	c:SetSPSummonOnce(m)

expansions/script/c37900017.lua

 --不明的魔法之元
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m,cm = rscf.DefineCard(37900017)
 function cm.initial_effect(c)
 	--xyz summon
@@ -14,21 +14,8 @@ function cm.initial_effect(c)
 	local e2 = rsef.FV_Card(c,"im",cm.imval,
 		aux.TargetBoolFunction(Card.IsType,TYPE_SPELL+TYPE_TRAP),
 		{LOCATION_ONFIELD,0},nil,LOCATION_MZONE)
-	--immune effect
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetCode(EFFECT_IMMUNE_EFFECT)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetTargetRange(LOCATION_SZONE,0)
-	e3:SetTarget(cm.etarget)
-	e3:SetValue(cm.efilter)
-	c:RegisterEffect(e3)
-end
-function cm.etarget(e,c)
-	return c:IsSetCard(0x389)
-end
-function cm.efilter(e,re)
-	return te:GetOwner()~=e:GetOwner()
+	local e3 = rsef.SV_Card(c,"indct",rsval.indbae(),"sr",LOCATION_MZONE,
+		nil,nil,nil,2)
 end
 function cm.atkop(e,tp)
 	local e1 = rsef.FV_Card({e:GetHandler(),tp},"def+",500,

expansions/script/c37900029.lua

 --不老不死的魔女
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m,cm = rscf.DefineCard(37900029)
 function cm.initial_effect(c)
 	c:EnableReviveLimit()

expansions/script/c37900030.lua

 --护界神·提露密努斯·艾斯特
-if not pcall(function() require("expansions/script/c37900000") end) then require("script/c37900000") end
+if not pcall(function() dofile("expansions/script/c37900000.lua") end) then dofile("script/c37900000.lua") end
 local m,cm = rscf.DefineCard(37900030)
 function cm.initial_effect(c)
 	--xyz summon

expansions/script/c47320010.lua

@@ -14,7 +14,7 @@ function s.indes(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
-	e1:SetRange(LOCATION_MZONE)
+	e1:SetRange(LOCATION_FZONE)
 	e1:SetTargetRange(LOCATION_MZONE,0)
 	e1:SetTarget(s.indtg)
 	e1:SetValue(s.indct)

expansions/script/c47320012.lua

@@ -18,7 +18,7 @@ function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsOnField() and s.filter(chkc) end
 	if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,0,1,nil)
 		and Duel.IsExistingMatchingCard(s.sumfilter,tp,LOCATION_HAND,0,1,nil) end
-	local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,nil)
+	local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil)
 	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,0,tp,LOCATION_HAND)
 	Duel.SetOperationInfo(0,CATEGORY_RELEASE,g,0,0,0)
 end

expansions/script/c47320013.lua

@@ -4,18 +4,22 @@ function s.active(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_RELEASE+CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_DISABLE)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCode(EVENT_CHAINING)
 	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.condition)
 	e1:SetTarget(s.target)
 	e1:SetOperation(s.activate)
 	c:RegisterEffect(e1)
 end
+function s.condition(e,tp,eg,ep,ev,re,r,rp)
+	return rp~=tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
+end
 function s.rfilter(c)
 	return c:IsReleasable() and c:IsType(TYPE_MONSTER)
 end
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(s.rfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_RELEASE,nil,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_RELEASE,nil,1,tp,LOCATION_HAND+LOCATION_ONFIELD)
 	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c64800051.lua

@@ -64,6 +64,7 @@ function cm.regop(e,tp,eg,ep,ev,re,r,rp)
 	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
 	e2:SetTarget(cm.distg)
 	c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
+	c:RegisterEffect(e2)
 end
 function cm.aclimit(e,re,tp)
 	return re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsLocation(LOCATION_GRAVE+LOCATION_REMOVED)

expansions/script/c64800181.lua

@@ -92,17 +92,17 @@ function cm.seqop(e,tp,eg,ep,ev,re,r,rp)
 	if tc and tc:IsLocation(LOCATION_MZONE) then
 		local e3=Effect.CreateEffect(c)
 		e3:SetType(EFFECT_TYPE_EQUIP)
-		e3:SetCode(EFFECT_UPDATE_LEVEL)
+		e3:SetCode(EFFECT_CHANGE_LEVEL)
 		e3:SetValue(10)
 		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e3)
+		c:RegisterEffect(e3)
 		--direct attack
 		local e2=Effect.CreateEffect(c)
 		e2:SetType(EFFECT_TYPE_EQUIP)
 		e2:SetCode(EFFECT_DIRECT_ATTACK)
 		e2:SetCondition(cm.dircon)
 		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e2)
+		c:RegisterEffect(e2)
 	end
 end
 function cm.dircon(e)

expansions/script/c64800182.lua

@@ -92,17 +92,17 @@ function cm.seqop(e,tp,eg,ep,ev,re,r,rp)
 	if tc and tc:IsLocation(LOCATION_MZONE) then
 		local e3=Effect.CreateEffect(c)
 		e3:SetType(EFFECT_TYPE_EQUIP)
-		e3:SetCode(EFFECT_UPDATE_LEVEL)
+		e3:SetCode(EFFECT_CHANGE_LEVEL)
 		e3:SetValue(10)
 		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e3)
+		c:RegisterEffect(e3)
 		--indestructable
 		local e5=Effect.CreateEffect(c)
 		e5:SetType(EFFECT_TYPE_EQUIP)
 		e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
 		e5:SetValue(1)
-		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e5)
+		e5:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e5)
 	end
 end
 

expansions/script/c64800188.lua

@@ -46,7 +46,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local ct=Duel.GetOperatedGroup():GetFirst()
 	if ct:IsSetCard(0x412) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 	and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,nil,e,tp)
-	and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+	and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
 		Duel.BreakEffect()
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)

expansions/script/c64800189.lua

@@ -29,6 +29,7 @@ function cm.actcfilter(c)
 	return c:IsSetCard(0x412) and c:IsFaceup() and c:IsType(TYPE_XYZ)
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
 	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
 	if g:GetCount()>0 then

expansions/script/c64800190.lua

@@ -29,6 +29,7 @@ function cm.actcfilter(c)
 	return c:IsSetCard(0x412) and c:IsFaceup() and c:IsType(TYPE_XYZ)
 end
 function cm.activate(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) then
 		local e1=Effect.CreateEffect(e:GetHandler())

expansions/script/c64800191.lua

@@ -33,6 +33,7 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	end
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
 	if  Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
 		Duel.Destroy(eg,REASON_EFFECT)
 	end

expansions/script/c64800193.lua

@@ -92,11 +92,11 @@ function s.seqop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=c:GetFirstCardTarget()
 	if tc and tc:IsLocation(LOCATION_MZONE) then
 		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetType(EFFECT_TYPE_EQUIP)
 		e3:SetCode(EFFECT_CHANGE_LEVEL)
 		e3:SetValue(10)
 		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e3)
+		c:RegisterEffect(e3)
 		--cannot be target
 		local e7=Effect.CreateEffect(c)
 		e7:SetType(EFFECT_TYPE_SINGLE)
@@ -105,11 +105,11 @@ function s.seqop(e,tp,eg,ep,ev,re,r,rp)
 		e7:SetRange(LOCATION_MZONE)
 		e7:SetValue(aux.imval1)
 		e7:SetReset(RESET_EVENT+RESETS_STANDARD)	
-		tc:RegisterEffect(e7)
+		c:RegisterEffect(e7)
 		local e8=e7:Clone()
 		e8:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
 		e8:SetValue(aux.tgoval)
-		tc:RegisterEffect(e8)
+		c:RegisterEffect(e8)
 	end
 end
 

expansions/script/c64800194.lua

@@ -16,11 +16,10 @@ function s.filter(c,e,tp)
 	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(s.eqfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,c)
 end
 function s.eqfilter(c,tc)
-	return not c:IsRace(tc:GetRace()) and  not c:IsAttribute(tc:GetAttribute())  and c:IsSetCard(0x412)
+	return (not c:IsRace(tc:GetRace())) and (not c:IsAttribute(tc:GetAttribute())) and c:IsSetCard(0x412)
 end
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_HAND,0,1,nil,e,tp)  end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
 function s.filter2(c,e,tp)

expansions/script/c64800212.lua

@@ -23,6 +23,7 @@ function s.initial_effect(c)
 	e2:SetCode(EVENT_CHAINING)
 	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
 	e2:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,id+10000)
 	e2:SetCondition(s.negcon)
 	e2:SetTarget(s.negtg)
 	e2:SetOperation(s.negop)
@@ -44,7 +45,7 @@ function s.thop(e,tp,eg,ep,ev,re,r,rp)
 			if g:IsExists(s.thfilter,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
 				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 				local sg=g:FilterSelect(tp,s.thfilter,1,1,nil,e,tp)
-				Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)			
+				Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)		   
 				g:Sub(sg)
 			end
 			Duel.Destroy(g,REASON_EFFECT)
@@ -53,7 +54,7 @@ end
 
 function s.negcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if c:IsStatus(STATUS_BATTLE_DESTROYED) or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end
 	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return true end
 	local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
 	return g and not g:IsContains(c)
@@ -74,7 +75,7 @@ function s.negop(e,tp,eg,ep,ev,re,r,rp)
 	if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)~=0 then
 		if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
 		Duel.Destroy(eg,REASON_EFFECT)
-		end	
+		end 
 	end
 	
 end
\ No newline at end of file

expansions/script/c64800213.lua

@@ -36,7 +36,7 @@ function s.checkop2(e,tp,eg,ep,ev,re,r,rp)
 	local tc=eg:GetFirst()
 	while tc do
 		local tp=tc:GetPreviousControler()
-		if   tc:GetPreviousPosition()&POS_FACEUP~=0 and tc:IsType(TYPE_MONSTER) and tc:IsRace(RACE_FIEND) and Duel.GetFlagEffect(tp,id)==0 then	  
+		if   tc:GetPreviousPosition()&POS_FACEUP~=0 and tc:IsType(TYPE_MONSTER) and tc:IsRace(RACE_FIEND) and Duel.GetFlagEffect(tp,id)==0 then   
 			Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
 			Duel.RegisterFlagEffect(1-tp,id,RESET_PHASE+PHASE_END,0,1)
 		end
@@ -60,8 +60,8 @@ function s.regop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.RegisterEffect(e1,tp)
 end
 function s.efilter(e,re)
-	local tp=e:GetHandler()
-	local rp=re:GetHandler()
+	local tp=e:GetOwnerPlayer()
+	local rp=re:GetOwnerPlayer()
 	return rp==1-tp and ((re:GetActivateLocation()~=LOCATION_MZONE and re:GetActivateLocation()~=LOCATION_SZONE) and not re:IsHasType(EFFECT_TYPE_ACTIVATE)) 
 end
 

expansions/script/c64800214.lua

@@ -58,10 +58,10 @@ function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SendtoDeck(c,nil,SEQ_DECKTOP,REASON_COST)
 end
 function s.spfilter1(c,e,tp)
-	return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCanBeEffectTarget(e)
+	return c:IsRace(RACE_FIEND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCanBeEffectTarget(e)  
 end
 function s.fselect1(g,tp)
-	return Duel.IsExistingMatchingCard(s.synfilter,tp,LOCATION_EXTRA,0,1,nil,g) 
+	return   Duel.IsExistingMatchingCard(s.synfilter,tp,LOCATION_EXTRA,0,1,nil,g) 
 end
 function s.synfilter(c,g)
 	return c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_FIEND) and c:IsSynchroSummonable(nil,g,g:GetCount()-1,g:GetCount()-1)
@@ -102,7 +102,7 @@ function s.spop2(e,tp,eg,ep,ev,re,r,rp)
 	Duel.RaiseEvent(e:GetHandler(),EVENT_ADJUST,nil,0,PLAYER_NONE,PLAYER_NONE,0)
 	if og:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<g:GetCount() then return end
 	local tg=Duel.GetMatchingGroup(s.synfilter,tp,LOCATION_EXTRA,0,nil,og)
-	if og:GetCount()==g:GetCount() and tg:GetCount()>0 then	
+	if og:GetCount()==g:GetCount() and tg:GetCount()>0 then 
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 		local rg=tg:Select(tp,1,1,nil)
 		Duel.SynchroSummon(tp,rg:GetFirst(),nil,og,og:GetCount()-1,og:GetCount()-1)

expansions/script/c65050129.lua

@@ -55,7 +55,7 @@ function c65050129.rfil(c)
 	return c:IsLevel(6) and c:IsSetCard(0x5da8) and bit.band(c:GetType(),0x81)==0x81
 end
 function c65050129.filter(c,e,tp)
-	return(c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) and c65050129.rfil(c)
+	return c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) and c65050129.rfil(c)
 end
 function c65050129.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then

expansions/script/c65050131.lua

@@ -68,8 +68,9 @@ function c65050131.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		local mg1=Duel.GetMatchingGroup(c65050131.rtfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,e:GetHandler())
 		local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-		return c65050131.filter(e:GetHandler(),e,tp,mg1,ft) 
+		return c65050131.filter(e:GetHandler(),e,tp,mg1,ft) and Duel.GetFlagEffect(tp,65050131)==0
 	end
+	Duel.RegisterFlagEffect(tp,65050131,RESET_CHAIN,0,1)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE)
 end
@@ -79,7 +80,7 @@ function c65050131.activate(e,tp,eg,ep,ev,re,r,rp)
 	local mg=Duel.GetMatchingGroup(c65050131.rtfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,e:GetHandler())
 	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	if c65050131.filter(tc,e,tp,mg1,ft) then
+	if c65050131.filter(tc,e,tp,mg,ft) then
 			local mat=nil
 			if ft>0 then
 				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)

expansions/script/c65050138.lua

@@ -66,7 +66,7 @@ function c65050138.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) then return end
 	if Duel.IsExistingMatchingCard(c65050138.filter,tp,LOCATION_ONFIELD,0,2,nil,e) then
-		local g=Duel.SelectMatchingCard(tp,c65050138.filter,tp,LOCATION_MZONE,0,2,2,e:GetHandler(),e)
+		local g=Duel.SelectMatchingCard(tp,c65050138.filter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,2,2,e:GetHandler(),e)
 		if Duel.SendtoDeck(g,nil,2,REASON_EFFECT)==2 then
 			Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
 		end

expansions/script/c71401003.lua

@@ -9,7 +9,7 @@ function c71401003.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
 	e2:SetCountLimit(1,71501003)
 	e2:SetCondition(c71401003.con2)
 	e2:SetCost(c71401003.cost2)

expansions/script/c71401018.lua

@@ -46,7 +46,6 @@ end
 function c71401018.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
 	local g=Duel.GetDecktopGroup(tp,2)
 	if chk==0 then return g:FilterCount(Card.IsAbleToRemoveAsCost,nil,POS_FACEUP)==2 and Duel.GetCustomActivityCount(71401001,tp,ACTIVITY_CHAIN)==0 end
-	Duel.DiscardDeck(tp,3,REASON_COST)
 	Duel.DisableShuffleCheck()
 	Duel.Remove(g,POS_FACEUP,REASON_COST)
 	yume.RegButterflyCostLimit(e,tp)

update/version.txt

-2023/12/15 13:04:11
+2023/12/22 9:25:44
\ No newline at end of file