byd

expansions/script/c33201460.lua

@@ -16,7 +16,7 @@ function s.initial_effect(c)
 	e1:SetOperation(s.rmop)
 	c:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_PHASE+PHASE_END)
 	e2:SetRange(LOCATION_MZONE)

expansions/script/c33720900.lua

@@ -57,49 +57,31 @@ function s.initial_effect(c)
 	c:RegisterEffect(e6)
 end
 --E1
-function s.hascopy(c,g)
+function s.rmfilter(c,g)
 	return g:IsExists(Card.IsCode,1,c,c:GetCode())
 end
-function s.namecheck(g)
-	local c1,c2=g:GetFirst(),g:GetNext()
-	return c1:IsCode(c2:GetCode())
-end
-function s.gcheck(og)
+function s.rescon(og)
 	return	function(g,e,tp,mg,c)
-				for tc in aux.Next(og) do
-					local codes={tc:GetCode()}
-					for _,code in ipairs(codes) do
-						local ct=g:FilterCount(Card.IsCode,nil,code)
-						local ct1=og:FilterCount(Card.IsCode,nil,code)
-						if ct~=ct1-1 then
-							return false,ct>ct1-1
-						end
-					end
+				local cg=og:Filter(aux.TRUE,g)
+				if c and not cg:IsExists(Card.IsCode,1,nil,c:GetCode()) then
+					return false,true
 				end
-				local cg=og:Clone()
-				cg:Sub(g)
-				local res=cg:CheckSubGroup(s.namecheck,2,2)
-				return not res, not c:IsAbleToRemove()
+				return true
 			end
 end
-function s.finishcon(og)
+function s.finishcon(ct,og)
 	return	function(g,e,tp,mg)
-				for tc in aux.Next(og) do
-					local codes={tc:GetCode()}
-					for _,code in ipairs(codes) do
-						local ct=g:FilterCount(Card.IsCode,nil,code)
-						local ct1=og:FilterCount(Card.IsCode,nil,code)
-						if ct~=ct1-1 then
-							return false
-						end
-					end
-				end
-				local cg=og:Clone()
-				cg:Sub(g)
-				local res=cg:CheckSubGroup(s.namecheck,2,2)
-				return not res
+				local cg=og:Filter(aux.TRUE,g)
+				local dnct=g:GetClassCount(Card.GetCode)
+				local cdnct=cg:GetClassCount(Card.GetCode)
+				return dnct==ct and cdnct==ct
 			end
 end
+function s.hasSameCodeButNotOtherOnes(c,code)
+	local codes={c:GetCode()}
+	if #codes>1 then return false end
+	return codes[1]==code
+end
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		if not (e:IsCostChecked()
@@ -108,20 +90,62 @@ function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 			return false
 		end
 		local gy=Duel.GetGY(1-tp)
-		local g=gy:Filter(s.hascopy,nil,gy)
-		if #g==0 then return false end
-		return aux.SelectUnselectGroup(g,e,tp,1,#g-1,s.gcheck(g),0)
+		local g=gy:Filter(s.rmfilter,nil,gy)
+		local ct=#g
+		if ct<=0 then return false end
+		local tc=g:GetFirst()
+		while tc do
+			local sg=g:Filter(s.hasSameCodeButNotOtherOnes,nil,tc:GetCode())
+			if not sg:IsContains(tc) then
+				sg:AddCard(tc)
+			end
+			local nrg=sg:Filter(aux.NOT(Card.IsAbleToRemove),nil)
+			if #nrg>0 then
+				if #nrg>=2 then
+					return false
+				end
+				g:Sub(nrg)
+				tc=g:GetFirst()
+			else
+				tc=g:GetNext()
+			end
+		end
+		return true
 	end
 	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_GRAVE)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
+	local b1=true
 	local gy=Duel.GetGY(1-tp)
-	local g=gy:Filter(s.hascopy,nil,gy)
-	if #g>0 then
-		local rg=aux.SelectUnselectGroup(g,e,tp,1,#g-1,s.gcheck(g),1,tp,HINTMSG_REMOVE,s.finishcon(g))
+	local g=gy:Filter(s.rmfilter,nil,gy)
+	local ct=#g
+	if ct<=0 then b1=false end
+	if b1 then
+		local tc=g:GetFirst()
+		while tc do
+			local sg=g:Filter(s.hasSameCodeButNotOtherOnes,nil,tc:GetCode())
+			if not sg:IsContains(tc) then
+				sg:AddCard(tc)
+			end
+			local nrg=sg:Filter(aux.NOT(Card.IsAbleToRemove),nil)
+			if #nrg>0 then
+				if #nrg>=2 then
+					b1=false
+					break
+				end
+				g:Sub(nrg)
+				tc=g:GetFirst()
+			else
+				tc=g:GetNext()
+			end
+		end
+	end
+	if b1 and #g>0 then
+		local dnct=g:GetClassCount(Card.GetCode)
+		local rescon=s.rescon(g)
+		local rg=aux.SelectUnselectGroup(g,e,tp,ct-dnct,ct-1,rescon,1,tp,HINTMSG_REMOVE,s.finishcon(dnct,g))
 		if #rg>0 then
-			Duel.HintSelection(rg)
 			Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)
 		end
 	end
@@ -140,7 +164,7 @@ function s.damcon(e)
 end
 
 --E6
-function s.sgcheck(g)
+function s.srescon(g)
 	local c1,c2=g:GetFirst(),g:GetNext()
 	return c1:IsCode(c2:GetCode())
 end
@@ -148,5 +172,5 @@ function s.sdcon(e)
 	if not aux.ProcSummonedCond(e) then return false end
 	local tp=e:GetHandlerPlayer()
 	local sg=Duel.GetGY(tp)
-	return not sg:CheckSubGroup(s.sgcheck,2,2)
+	return not sg:CheckSubGroup(s.srescon,2,2)
 end
\ No newline at end of file

expansions/script/c5012607.lua

@@ -101,7 +101,7 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
 end
 function s.aclimit(e,re,tp)
 	local rc=re:GetHandler()
-	return not c.MoJin==true
+	return not rc.MoJin==true
 end
 function s.retop(e,tp,eg,ep,ev,re,r,rp)
 	local g=e:GetLabelObject()