Update c37009.lua

script/c37009.lua

@@ -45,40 +45,14 @@ function c37009.activate(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(c37009.banfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler())
 	local tc=g:GetFirst()
     while tc do
-        local pos=0
-        if tc:IsFacedown() then pos=1 end
-        --forbidden
         local e1=Effect.CreateEffect(e:GetHandler())
-        e1:SetType(EFFECT_TYPE_FIELD)
-        e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE)
+        e1:SetType(EFFECT_TYPE_SINGLE)
+        e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
         e1:SetCode(EFFECT_FORBIDDEN)
-        e1:SetCondition(c37009.bancon)
-        e1:SetTarget(c37009.bantg)
-        e1:SetLabel(pos)
-        e1:SetLabelObject(tc)
-        Duel.RegisterEffect(e1,tp)
-        tc=g:GetNext()
+        e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+        tc:RegisterEffect(e1,true)
     end
 end
 function c37009.banfilter(e,c)
     return not (c:IsAttribute(ATTRIBUTE_WATER) and c:GetDefense()==900)
 end
-function c37009.banfilter1(c,e)
-    return c==e:GetLabelObject() and c:IsFaceup() and c:IsOnField()
-end
-function c37009.banfilter2(c,e)
-    return c==e:GetLabelObject() and c:IsFacedown() and c:IsOnField()
-end
-function c37009.bancon(e)
-    local tp=e:GetHandlerPlayer()
-    local tc=e:GetLabelObject()
-    local pos=e:GetLabel()
-    if pos==1 and Duel.IsExistingMatchingCard(c37009.banfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,e) then return true
-    else e:SetLabel(0) end
-    if Duel.IsExistingMatchingCard(c37009.banfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,e) then return true end
-    e:Reset()
-    return false
-end
-function c37009.bantg(e,c)
-    return c==e:GetLabelObject()
-end