fix

expansions/script/c11410000.lua

@@ -13,17 +13,28 @@ if not apricot_nightfall then
 	apricot_nightfall=true
 	--Debug.Message("Protocol Request Complete. 杏花宵®漏洞解决方案已上线。")
 end
+--[[function aux.GetMustMaterialGroup(tp,code)
+	local g=Group.CreateGroup()
+	local ce={Duel.IsPlayerAffectedByEffect(tp,code)}
+	for _,te in ipairs(ce) do
+		local tc=te:GetHandler()
+		if tc then g:AddCard(tc) end
+	end
+	return g
+end--]]
 if not aux.GetMustMaterialGroup then
 	aux.GetMustMaterialGroup=Duel.GetMustMaterial
-	--[[function aux.GetMustMaterialGroup(tp,code)
-		local g=Group.CreateGroup()
-		local ce={Duel.IsPlayerAffectedByEffect(tp,code)}
-		for _,te in ipairs(ce) do
-			local tc=te:GetHandler()
-			if tc then g:AddCard(tc) end
-		end
-		return g
-	end--]]
+end
+local release_set={"CheckReleaseGroup","SelectReleaseGroup","CheckReleaseGroupEx","SelectReleaseGroupEx"}
+for i,fname in pairs(release_set) do
+	local temp_f=Duel[fname]
+	Duel[fname]=function(...)
+					local params={...}
+					local old_minc=params[3]
+					local typ=type(old_minc)
+					if typ=="number" then return temp_f(REASON_COST,...) end
+					return temp_f(...)
+				end
 end
 local _IsTuner=Card.IsTuner
 function Card.IsTuner(c,...)
@@ -53,7 +64,7 @@ local KOISHI_CHECK=false
 if Duel.Exile then KOISHI_CHECK=true end
 local A=1103515245
 local B=12345
-local M=1073741824
+local M=32767
 function cm.roll(min,max)
 	min=tonumber(min)
 	max=tonumber(max)
@@ -68,7 +79,7 @@ function cm.roll(min,max)
 	end
 	return cm.r
 end
-if Duel.GetRandomNumber then cm.roll=Duel.GetRandomNumber end
+--if Duel.GetRandomNumber then cm.roll=Duel.GetRandomNumber end
 if not require and loadfile then
 	function require(str)
 		require_list=require_list or {}

expansions/script/c11450900.lua

@@ -55,7 +55,7 @@ function cm.filter(c,e)
 	if e:GetCode()==EVENT_MOVE then
 		local b1,g1=Duel.CheckEvent(EVENT_SUMMON_SUCCESS,true)
 		local b2,g2=Duel.CheckEvent(EVENT_SPSUMMON_SUCCESS,true)
-		return (not b1 or not g1:IsContains(c)) and (not b2 or not g2:IsContains(c))
+		return not c:IsPreviousLocation(LOCATION_ONFIELD) and (not b1 or not g1:IsContains(c)) and (not b2 or not g2:IsContains(c))
 	end
 	return not (e:GetCode()==EVENT_SUMMON_SUCCESS and c:GetFlagEffect(m)>0)
 end
@@ -96,7 +96,7 @@ function cm.ntfilter(c,p)
 end
 local A=1103515245
 local B=12345
-local M=1073741824
+local M=32767
 function cm.roll(min,max)
 	min=tonumber(min)
 	max=tonumber(max)
@@ -111,7 +111,7 @@ function cm.roll(min,max)
 	end
 	return cm.r
 end
-if Duel.GetRandomNumber then cm.roll=Duel.GetRandomNumber end
+--if Duel.GetRandomNumber then cm.roll=Duel.GetRandomNumber end
 function cm.evoperation(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local ct=c:GetTurnCounter()

expansions/script/c11451001.lua

@@ -52,20 +52,20 @@ function cm.initial_effect(c)
 				return _SelectMatchingCard(sp,f,p,s,o,min,max,nc,...)
 			end
 		end
-		function Duel.SelectReleaseGroup(sp,f,min,max,nc,...)
+		function Duel.SelectReleaseGroup(r,sp,f,min,max,nc,...)
 			if Duel.GetFlagEffect(0,m)>0 and min==1 and max==1 then
-				local g=cm.filter(Duel.GetReleaseGroup(sp),f,nil,...)
+				local g=cm.filter(Duel.GetReleaseGroup(sp,false,r),f,nil,...)
 				return g:Select(sp,min,max,nc)
 			else
-				return _SelectReleaseGroup(sp,f,min,max,nc,...)
+				return _SelectReleaseGroup(r,sp,f,min,max,nc,...)
 			end
 		end
-		function Duel.SelectReleaseGroupEx(sp,f,min,max,nc,...)
+		function Duel.SelectReleaseGroupEx(r,sp,f,min,max,nc,...)
 			if Duel.GetFlagEffect(0,m)>0 and min==1 and max==1 then
-				local g=cm.filter(Duel.GetReleaseGroup(sp,true),f,nil,...)
+				local g=cm.filter(Duel.GetReleaseGroup(sp,true,r),f,nil,...)
 				return g:Select(sp,min,max,nc)
 			else
-				return _SelectReleaseGroupEx(sp,f,min,max,nc,...)
+				return _SelectReleaseGroupEx(r,sp,f,min,max,nc,...)
 			end
 		end
 		function Duel.SelectTarget(sp,f,p,s,o,min,max,nc,...)
@@ -204,7 +204,7 @@ function cm.scop(e,tp,eg,ep,ev,re,r,rp)
 end
 local A=1103515245
 local B=12345
-local M=1073741824 --32767
+local M=32767 --1073741824
 function cm.roll(min,max)
 	min=tonumber(min)
 	max=tonumber(max)
@@ -219,7 +219,7 @@ function cm.roll(min,max)
 	end
 	return cm.r
 end
-if Duel.GetRandomNumber then cm.roll=Duel.GetRandomNumber end
+--if Duel.GetRandomNumber then cm.roll=Duel.GetRandomNumber end
 function cm.list(code)
 	for _,codes in pairs(cm.blacklist) do
 		if codes==code then return true end

expansions/script/c11451015.lua

@@ -179,7 +179,7 @@ function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 		else
 			res=(c:CheckActivateEffect(false,false,false)~=nil)
 		end
-		return res and Duel.CheckReleaseGroup(tp,cm.rfilter,1,nil) and Duel.CheckReleaseGroup(tp,cm.rfilter2,1,nil,tp,c)
+		return res and Duel.CheckReleaseGroup(REASON_COST,tp,cm.rfilter,1,nil) and Duel.CheckReleaseGroup(REASON_COST,tp,cm.rfilter2,1,nil,tp,c)
 	end
 end
 function cm.rfilter(c)

expansions/script/c11451488.lua

 --魔人★双子使徒 小雪
-local m=11451488
-local cm=_G["c"..m]
+local cm,m=GetID()
 function cm.initial_effect(c)
 	--effect1
 	local e1=Effect.CreateEffect(c)
@@ -38,10 +37,10 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e6)
 end
 function cm.recost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroupEx(tp,Card.IsRace,2,nil,RACE_FAIRY) or (Duel.CheckReleaseGroupEx(tp,Card.IsRace,1,nil,RACE_FAIRY) and Duel.IsPlayerAffectedByEffect(tp,11451482)) end
+	if chk==0 then return Duel.CheckReleaseGroupEx(REASON_COST,tp,Card.IsRace,2,nil,RACE_FAIRY) or (Duel.CheckReleaseGroupEx(REASON_COST,tp,Card.IsRace,1,nil,RACE_FAIRY) and Duel.IsPlayerAffectedByEffect(tp,11451482)) end
 	local op=0
 	if Duel.IsPlayerAffectedByEffect(tp,11451482) then
-		if Duel.CheckReleaseGroupEx(tp,Card.IsRace,2,nil,RACE_FAIRY) then
+		if Duel.CheckReleaseGroupEx(REASON_COST,tp,Card.IsRace,2,nil,RACE_FAIRY) then
 			op=Duel.SelectOption(tp,aux.Stringid(11451483,2),aux.Stringid(11451483,3))
 			Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(11451483,op+2))
 			if op==1 then
@@ -54,7 +53,7 @@ function cm.recost(e,tp,eg,ep,ev,re,r,rp,chk)
 			Duel.ResetFlagEffect(tp,11451481)
 		end
 	end
-	local g=Duel.SelectReleaseGroupEx(tp,Card.IsRace,2-op,2-op,nil,RACE_FAIRY)
+	local g=Duel.SelectReleaseGroupEx(REASON_COST,tp,Card.IsRace,2-op,2-op,nil,RACE_FAIRY)
 	aux.UseExtraReleaseCount(g,tp)
 	Duel.Release(g,REASON_COST)
 end

expansions/script/c11451602.lua

@@ -65,9 +65,9 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil) end
+	if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,nil,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=Duel.SelectReleaseGroup(tp,nil,1,1,nil)
+	local g=Duel.SelectReleaseGroup(REASON_COST,tp,nil,1,1,nil)
 	Duel.Release(g,REASON_COST)
 end
 function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)

expansions/script/c11451618.lua

@@ -85,9 +85,9 @@ function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
 end
 function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,c) end
+	if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,nil,1,c) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=Duel.SelectReleaseGroup(tp,nil,1,1,c)
+	local g=Duel.SelectReleaseGroup(REASON_COST,tp,nil,1,1,c)
 	Duel.Release(g,REASON_COST)
 end
 function cm.thfilter(c)

expansions/script/c11451655.lua

@@ -164,8 +164,8 @@ function cm.thfilter(c,lv)
 	return c:GetOriginalLevel()<lv and c:IsRace(RACE_INSECT) and c:IsAbleToHand()
 end
 function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,cm.cfilter,1,nil,tp) end
-	local g=Duel.SelectReleaseGroup(tp,cm.cfilter,1,1,nil,tp)
+	if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,cm.cfilter,1,nil,tp) end
+	local g=Duel.SelectReleaseGroup(REASON_COST,tp,cm.cfilter,1,1,nil,tp)
 	local lv=g:GetFirst():GetOriginalLevel()
 	e:SetLabel(lv)
 	Duel.Release(g,REASON_COST)

expansions/script/c11451694.lua

 --猎龙者的挽歌
-local m=11451694
-local cm=_G["c"..m]
+local cm,m=GetID()
 function cm.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
@@ -102,9 +101,9 @@ function cm.dfilter(c)
 end
 function cm.damcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local g=Duel.GetFieldGroup(tp,LOCATION_EXTRA,LOCATION_EXTRA)
-	if chk==0 then return Duel.CheckReleaseGroup(tp,cm.rfilter,1,nil) and #g>0 and not g:IsExists(cm.ncostfilter,1,nil) end
+	if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,cm.rfilter,1,nil) and #g>0 and not g:IsExists(cm.ncostfilter,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local rg=Duel.SelectReleaseGroup(tp,cm.rfilter,1,1,nil)
+	local rg=Duel.SelectReleaseGroup(REASON_COST,tp,cm.rfilter,1,1,nil)
 	Duel.Release(rg,REASON_COST)
 	g=Duel.GetFieldGroup(tp,LOCATION_EXTRA,LOCATION_EXTRA)
 	Duel.SendtoGrave(g,REASON_COST)

expansions/script/c11451748.lua

@@ -24,9 +24,9 @@ function cm.kfilter(c)
 end
 function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,c) end
+	if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,nil,1,c) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
-	local g=Duel.SelectReleaseGroup(tp,nil,1,2,c)
+	local g=Duel.SelectReleaseGroup(REASON_COST,tp,nil,1,2,c)
 	Duel.Release(g,REASON_COST)
 	g=g:Filter(cm.kfilter,nil)
 	g:ForEach(Card.RegisterFlagEffect,m,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,0))

expansions/script/c15000094.lua

@@ -52,11 +52,20 @@ function cm.initial_effect(c)
 	e4:SetCode(EVENT_REMOVE)
 	c:RegisterEffect(e4)
 end
-function cm.ntfilter(c,sc,tp)  
-	return ((c:IsSynchroType(TYPE_TUNER) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup()) or (c:IsSetCard(0x103) and (c:IsLocation(LOCATION_HAND) or (c:IsLocation(LOCATION_MZONE) and c:IsFaceup())))) and c:GetLevel()~=0 and Duel.IsExistingMatchingCard(cm.dtfilter,tp,LOCATION_MZONE,0,1,c,c:GetSynchroLevel(sc),sc)
-end  
-function cm.dtfilter(c,x,sc)
-	return c:IsSetCard(0x103) and c:IsFaceup() and c:GetSynchroLevel(sc)==sc:GetLevel()-x
+function cm.matfilter(c,mc,sc,tp)
+	return c:IsCanBeSynchroMaterial(sc,mc) and not c:IsSynchroType(TYPE_TUNER) and c:IsSetCard(0x103) and c:IsFaceup() and c:GetSynchroLevel(sc)>0 and aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL)
+end
+function cm.getsynclevel(c,sc)
+	return c:GetSynchroLevel(sc)
+end
+function cm.slcheck(g,tp,mc,sc)
+	local synclevel=sc:GetLevel()-mc:GetSynchroLevel(sc)
+	return (Duel.GetLocationCountFromEx(tp,tp,g,sc)>0 or Duel.GetLocationCountFromEx(tp,tp,mc,sc)>0) and g:GetSum(cm.getsynclevel,sc)==synclevel
+end
+function cm.ntfilter(c,sc,tp)
+	local mg=Duel.GetMatchingGroup(cm.matfilter,tp,LOCATION_MZONE,0,c,c,sc,tp)
+	return ((c:IsSynchroType(TYPE_TUNER) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup()) or (c:IsSetCard(0x103) and (c:IsLocation(LOCATION_HAND) or (c:IsLocation(LOCATION_MZONE) and c:IsFaceup()))))
+	and c:GetSynchroLevel(sc)>0 and c:GetSynchroLevel(sc)<sc:GetLevel() and mg:CheckSubGroup(cm.slcheck,1,(sc:GetLevel()-1),tp,c,sc)
 end
 function cm.sprcon(e)
 	local c=e:GetHandler()
@@ -67,11 +76,12 @@ end
 function cm.sprop(e,tp,eg,ep,ev,re,r,rp,c)
 	local c=e:GetHandler()
 	local tp=c:GetControler()  
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)  
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)  
 	local g1=Duel.SelectMatchingCard(tp,cm.ntfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,1,nil,c,tp)
-	local x=g1:GetFirst():GetLevel()
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)  
-	local g2=Duel.SelectMatchingCard(tp,cm.dtfilter,tp,LOCATION_MZONE,0,1,1,nil,x,c)
+	local mc=g1:GetFirst()
+	local mg=Duel.GetMatchingGroup(cm.matfilter,tp,LOCATION_MZONE,0,mc,mc,c,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
+	local g2=mg:SelectSubGroup(tp,cm.slcheck,false,1,(c:GetLevel()-1),tp,mc,c)
 	g1:Merge(g2)
 	c:SetMaterial(g1) 
 	Duel.SendtoGrave(g1,REASON_MATERIAL+REASON_SYNCHRO+REASON_COST)