Fixed some cards using Group.CheckWithSumEqual with wrong parameters

Numbers Eveil and Clear Wing Fast Dragon

Author: edo9300

official/c90036274.lua

@@ -44,11 +44,16 @@ function s.initial_effect(c)
 	c:RegisterEffect(e3)
 end
 s.listed_series={SET_SPEEDROID}
+function s.filter(filter_func)
+	return function(c)
+		return c:IsFaceup() and c:IsLevelAbove(0) and c:IsAbleToGraveAsCost() and filter_func(c)
+	end
+end
 function s.cfilter1(c)
-	return c:IsFaceup() and c:IsSetCard(SET_SPEEDROID) and c:IsType(TYPE_TUNER) and c:IsAbleToGraveAsCost()
+	return c:IsSetCard(SET_SPEEDROID) and c:IsType(TYPE_TUNER)
 end
 function s.cfilter2(c)
-	return c:IsFaceup() and (not c:IsType(TYPE_TUNER) or c:IsHasEffect(EFFECT_NONTUNER)) and c:IsAbleToGraveAsCost()
+	return (not c:IsType(TYPE_TUNER) or c:IsHasEffect(EFFECT_NONTUNER))
 end
 function s.rescon(sg,e,tp,mg)
 	return aux.ChkfMMZ(1)(sg,e,tp,mg) and sg:IsExists(s.chk,1,nil,sg) and sg:CheckWithSumEqual(Card.GetLevel,7,2,2)
@@ -57,13 +62,11 @@ function s.chk(c,sg)
 	return s.cfilter1(c) and sg:IsExists(s.cfilter2,1,c)
 end
 function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local g1=Duel.GetMatchingGroup(s.cfilter1,tp,LOCATION_MZONE,0,nil)
-	local g2=Duel.GetMatchingGroup(s.cfilter2,tp,LOCATION_MZONE,0,nil)
-	local g=g1:Clone()
-	g:Merge(g2)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 and #g1>0 and #g2>0 
-		and aux.SelectUnselectGroup(g,e,tp,2,2,s.rescon,0) end
-	local sg=aux.SelectUnselectGroup(g,e,tp,2,2,s.rescon,1,tp,HINTMSG_TOGRAVE)
+	local g1=Duel.GetMatchingGroup(s.filter(s.cfilter1),tp,LOCATION_MZONE,0,nil)
+	local g2=Duel.GetMatchingGroup(s.filter(s.cfilter2),tp,LOCATION_MZONE,0,nil)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 and #g1>0 and #g2>0
+		and aux.SelectUnselectGroup(g1+g2,e,tp,2,2,s.rescon,0) end
+	local sg=aux.SelectUnselectGroup(g1+g2,e,tp,2,2,s.rescon,1,tp,HINTMSG_TOGRAVE)
 	Duel.SendtoGrave(sg,REASON_COST)
 end
 function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
@@ -122,4 +125,4 @@ function s.penop(e,tp,eg,ep,ev,re,r,rp)
 	if c:IsRelateToEffect(e) then
 		Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
 	end
-end
+end

unofficial/c511001611.lua

@@ -1,5 +1,5 @@
 --ナンバーズ・エヴァイユ
---Numbers Evaille
+--Numbers Eveil (Manga)
 --Rescripted by edo9300
 local s,id=GetID()
 function s.initial_effect(c)
@@ -16,20 +16,20 @@ s.listed_series={0x48}
 function s.spfilter(c,e,p,mg)
 	return Duel.GetLocationCountFromEx(p,p,mg,c)>0 and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,p,false,false)
 end
-function s.filter(c,mg,p,e)
+function s.filter(c,mg,mg0,p,e)
 	if not c:IsSetCard(SET_NUMBER) or not c:IsType(TYPE_XYZ) or type(c.xyz_number)~="number" or not s.spfilter(c,e,p,mg-c) then return false end
-	if c.xyz_number==0 then 
-		return mg:IsExists(function(c)return c.xyz_number==0 end,1,c)
+	if c.xyz_number==0 then
+		return #mg0>0
 	else
-		return (mg-c):CheckWithSumEqual(function(c)return c.xyz_number end,c.xyz_number,1,99999)
+		return (mg-c):CheckWithSumEqual(function(c)return c.xyz_number end,c.xyz_number,1,#mg)
 	end
 end
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		local pg=aux.GetMustBeMaterialGroup(tp,Group.CreateGroup(),tp,nil,nil,REASON_XYZ)
-		local mg=Duel.GetMatchingGroup(function(c) return type(c.xyz_number)=="number" end,tp,LOCATION_EXTRA,0,nil)
-		if #(pg-mg)>0 then return false end
-		return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_EXTRA,0,1,nil,mg,tp,e)
+		local mg,mg0=Duel.GetMatchingGroup(function(c) return type(c.xyz_number)=="number" end,tp,LOCATION_EXTRA,0,nil):Split(function(c)return c.xyz_number>0 end,nil)
+		if (#pg-(#mg+#mg0))>0 then return false end
+		return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_EXTRA,0,1,nil,mg,mg0,tp,e)
 	end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_EXTRA)
 end
@@ -43,7 +43,7 @@ end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local pg=aux.GetMustBeMaterialGroup(tp,Group.CreateGroup(),tp,nil,nil,REASON_XYZ)
 	local mg,mg0=Duel.GetMatchingGroup(function(c) return type(c.xyz_number)=="number" end,tp,LOCATION_EXTRA,0,nil):Split(function(c)return c.xyz_number>0 end,nil)
-	if #(pg-(mg+mg0))>0 then return false end
+	if (#pg-(#mg+#mg0))>0 then return false end
 	local mat=Group.CreateGroup()
 	if #mg==0 and #mg0>1 then
 		mat=aux.SelectUnselectGroup(mg0,e,tp,1,#mg0-1,s.rescon,1,tp,HINTMSG_XMATERIAL)
@@ -80,4 +80,4 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Overlay(spc,mat)
 		spc:CompleteProcedure()
 	end
-end
+end