Update c200003.lua 不能使用相关效果椿务局调整

script/c200003.lua

@@ -75,28 +75,37 @@ function c200003.op2(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
 	if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_ONFIELD) then
-		--forbidden
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_FIELD)
-		e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE)
-		e1:SetCode(EFFECT_FORBIDDEN)
-		e1:SetTargetRange(0xff,0xff)
-		e1:SetTarget(c200003.bantg)
-		e1:SetLabelObject(tc)
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		Duel.RegisterEffect(e1,tp)
-		--[[
-		local e2=Effect.CreateEffect(e:GetHandler())
-		e2:SetType(EFFECT_TYPE_FIELD)
-		e2:SetCode(EFFECT_DISABLE)
-		e2:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
-		e2:SetTarget(c200003.bantg)
-		e2:SetLabelObject(tc)
-		e2:SetReset(RESET_PHASE+PHASE_END)
-		Duel.RegisterEffect(e2,tp)
-		]]--
-	end
+        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:SetCode(EFFECT_FORBIDDEN)
+        e1:SetCondition(c200003.bancon)
+        e1:SetTarget(c200003.bantg)
+        e1:SetLabel(pos)
+        e1:SetLabelObject(tc)
+        e1:SetReset(RESET_PHASE+PHASE_END)
+        Duel.RegisterEffect(e1,tp)
+    end
+end
+function c200003.banfilter1(c,e)
+    return c==e:GetLabelObject() and c:IsFaceup() and c:IsOnField()
+end
+function c200003.banfilter2(c,e)
+    return c==e:GetLabelObject() and c:IsFacedown() and c:IsOnField()
+end
+function c200003.bancon(e)
+    local tp=e:GetHandlerPlayer()
+    local tc=e:GetLabelObject()
+    local pos=e:GetLabel()
+    if pos==1 and Duel.IsExistingMatchingCard(c200003.banfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,e) then return true
+    else e:SetLabel(0) end
+    if Duel.IsExistingMatchingCard(c200003.banfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,e) then return true end
+    e:Reset()
+    return false
 end
 function c200003.bantg(e,c)
-	return c==e:GetLabelObject()
+    return c==e:GetLabelObject()
 end
\ No newline at end of file