fix 37009

Signed-off-by: wyykak <wyy_1414@126.com>

script/c37009.lua

@@ -42,17 +42,23 @@ function c37009.activate(e,tp,eg,ep,ev,re,r,rp)
 	local g1=Duel.GetMatchingGroup(c37009.filter1,tp,0x12,0x12,nil)
 	Duel.Remove(g1,POS_FACEUP,REASON_EFFECT)
 	
-	local g=Duel.GetMatchingGroup(c37009.banfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler())
-	local tc=g:GetFirst()
-    while tc do
-        local e1=Effect.CreateEffect(e:GetHandler())
+	local g=Duel.GetMatchingGroup(c37009.banfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c)
+	g:KeepAlive()
+
+	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
 	e1:SetCode(EFFECT_FORBIDDEN)
-        e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-        tc:RegisterEffect(e1,true)
-    end
+
+	local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+    e2:SetRange(LOCATION_SZONE)
+    e2:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
+    e2:SetTarget(function(ee, cc) return g:IsContains(cc) end)
+    e2:SetLabelObject(e1)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+    c:RegisterEffect(e2)
 end
-function c37009.banfilter(e,c)
+function c37009.banfilter(c)
     return not (c:IsAttribute(ATTRIBUTE_WATER) and c:GetDefense()==900)
 end