update Nanahira pendulum procedure

expansions/script/c37564765.lua

@@ -1037,12 +1037,14 @@ function cm.PendConditionNanahira()
 				return #g>0
 			end
 end
-function cm.PendCheckNanahira(g,mft,maxlist)
+function cm.PendCheckAdditionalNanahira(mft,maxlist)
+	return function(g)
 		if mft>0 and g:IsExists(Card.IsLocation,mft+1,nil,0xbf) then return false end
 		for loc,lct in pairs(maxlist) do
 			if lct>0 and g:IsExists(Card.IsLocation,lct+1,nil,loc) then return false end
 		end
 		return true
+	end
 end
 function cm.PendOperationNanahira()
 	return  function(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
@@ -1122,7 +1124,9 @@ function cm.PendOperationNanahira()
 				if ce then
 					tg=tg:Filter(aux.PConditionExtraFilterSpecific,nil,e,tp,lscale,rscale,ce)
 				end
-				local g=cm.SelectGroupWithCancel(tp,HINTMSG_SPSUMMON,tg,cm.PendCheckNanahira,nil,1,ft,mft,maxlist)
+				Auxiliary.GCheckAdditional=cm.PendCheckAdditionalNanahira(mft,maxlist)
+				local g=cm.SelectGroupWithCancel(tp,HINTMSG_SPSUMMON,tg,aux.TRUE,nil,1,ft)
+				Auxiliary.GCheckAdditional=nil
 				if not g then return end
 				if ce then
 					Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())