man!

expansions/script/c16138025.lua

@@ -134,7 +134,10 @@ function s.desfilter(c)
 end
 function s.seqfilter(c,seq,tp)
 	local cseq=c:GetSequence()
-	Debug.Message(cseq)
+	local cloc=c:GetLocation()
+	if c:IsControler(tp) then
+		return sseq==5 and seq==3 or sseq==6 and seq==1
+	end
 	if cloc==LOCATION_SZONE and cseq>=5 then return false end
 	if cloc==LOCATION_MZONE and cseq>=5 and loc==LOCATION_MZONE
 		and (seq==1 and cseq==5 or seq==3 and cseq==6 or seq==cseq) then return true end
@@ -146,13 +149,13 @@ function s.seqfilter(c,seq,tp)
 end
 function s.seqtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	if chk==0 then return Duel.IsExistingMatchingCard(s.desfilter,tp,0,LOCATION_ONFIELD,1,nil) end
+	if chk==0 then return Duel.IsExistingMatchingCard(s.desfilter,tp,LOCATION_MZONE,LOCATION_ONFIELD,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,1-tp,LOCATION_ONFIELD)
 end
 function s.seqop(e,tp,eg,ep,ev,re,r,rp)
 	local filter=0
 	for i=0,6 do
-		if not Duel.IsExistingMatchingCard(s.seqfilter,tp,0,LOCATION_ONFIELD,1,nil,i,tp) then
+		if not Duel.IsExistingMatchingCard(s.seqfilter,tp,LOCATION_MZONE,LOCATION_ONFIELD,1,nil,i,tp) then
 			filter=filter|1<<(i+16)
 		end
 	end
@@ -160,6 +163,6 @@ function s.seqop(e,tp,eg,ep,ev,re,r,rp)
 	local flag=Duel.SelectField(tp,1,0,LOCATION_MZONE,filter)
 	Duel.Hint(HINT_ZONE,tp,flag)
 	local seq=math.log(flag>>16,2)
-	local g=Duel.GetMatchingGroup(s.seqfilter,tp,0,LOCATION_ONFIELD,nil,seq,tp)
+	local g=Duel.GetMatchingGroup(s.seqfilter,tp,LOCATION_MZONE,LOCATION_ONFIELD,nil,seq,tp)
 	Duel.Destroy(g,REASON_EFFECT)
 end
\ No newline at end of file