fix Fake Trap

https://www.db.yugioh-card.com/yugiohdb/faq_search.action?ope=4&cid=4696

■『このカードを代わりに破壊し、他の自分の罠カードは破壊されない』処理が適用される際に、自分フィールドにセットされている罠カードがある場合には、『セットされたカードが破壊される場合、そのカードを全てめくって確認する』処理が適用され、そのセットされている罠カードも破壊されない事になります。

https://www.db.yugioh-card.com/yugiohdb/faq_search.action?ope=5&fid=9539

「ジャンク・コレクター」と「偽物のわな」を除外して効果を発動する場合、「偽物のわな」の『代わりに破壊』という効果を適用する事ができないため、「ジャンク・コレクター」の効果を発動する際に、効果を発動するためのコストとして「偽物のわな」を除外する事はできません。

https://www.db.yugioh-card.com/yugiohdb/faq_search.action?ope=5&fid=13352
その場合、「偽物のわな」の効果によって破壊されない罠カードはフィールドのカードのみです。手札の罠カードは通常通り破壊される事になります。

https://www.db.yugioh-card.com/yugiohdb/faq_search.action?ope=5&fid=13581
したがって、チェーンして「スターダスト・ドラゴン」の効果を発動し、「偽物のわな」の発動を無効にする事ができます。

http://yugioh-wiki.net/index.php?%A1%D4%B5%B6%CA%AA%A4%CE%A4%EF%A4%CA%A1%D5#faq

Ｑ：《アポピスの化神》など「罠カードでもある攻撃力1500以上の罠カードモンスター」の特殊召喚に対して発動された《奈落の落とし穴》にチェーンして《偽物のわな》を発動できますか？
できる場合、《偽物のわな》は破壊されて除外されますか？
Ａ：発動すること自体ができません。(18/03/25)

Ｑ：自分フィールドにこのカードを含む罠カード２枚がセットされている状態で、相手が《ハーピィの羽根帚》を発動し、チェーンして自分が《偽物のわな》を発動し、さらにチェーンして自分が《悪魔嬢リリス》の(2)の効果を発動し、罠カードをセットした場合、そのセットされた罠カードは相手の発動した《ハーピィの羽根帚》の効果で破壊されますか？
Ａ：いいえ、破壊されません。(19/07/05)

c3027001.lua

@@ -10,51 +10,59 @@ function c3027001.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 function c3027001.cfilter(c,tp)
-	return c:IsType(TYPE_TRAP) and c:IsControler(tp)
+	return c:IsType(TYPE_TRAP) and c:IsLocation(LOCATION_SZONE) and c:IsControler(tp)
 end
 function c3027001.condition(e,tp,eg,ep,ev,re,r,rp)
 	if rp==tp then return false end
 	local ex,tg,tc=Duel.GetOperationInfo(ev,CATEGORY_DESTROY)
-	return ex and tg~=nil and tg:GetCount()==tc and tg:IsExists(c3027001.cfilter,1,e:GetHandler(),tp)
+	if ex and tg~=nil and tg:GetCount()==tc and tg:IsExists(c3027001.cfilter,1,e:GetHandler(),tp) then
+		e:SetLabelObject(re)
+		return true
+	else return false end
 end
 function c3027001.cffilter(c,tp)
 	return c:IsFacedown() and c:IsControler(tp)
 end
 function c3027001.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	local ex,tg,tc=Duel.GetOperationInfo(ev,CATEGORY_DESTROY)
-	local fg=tg:Filter(c3027001.cffilter,nil,tp)
-	Duel.ConfirmCards(1-tp,fg)
-	local reg=tg:Filter(c3027001.cfilter,e:GetHandler(),tp)
-	local tc=reg:GetFirst()
-	while tc do
-		tc:RegisterFlagEffect(3027001,RESET_EVENT+RESETS_STANDARD+RESET_CHAIN,0,1)
-		tc=reg:GetNext()
-	end
+	if chk==0 then return e:IsHasType(EFFECT_TYPE_ACTIVATE) end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
 end
 function c3027001.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_DESTROY_REPLACE)
-	e1:SetRange(LOCATION_SZONE)
-	e1:SetTarget(c3027001.reptg)
-	e1:SetValue(c3027001.repvalue)
-	e1:SetOperation(c3027001.repop)
-	e1:SetLabelObject(re)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-	c:RegisterEffect(e1)
+	if c:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_DESTROY_REPLACE)
+		e1:SetRange(LOCATION_SZONE)
+		e1:SetTarget(c3027001.reptg)
+		e1:SetValue(c3027001.repvalue)
+		e1:SetOperation(c3027001.repop)
+		e1:SetLabelObject(e:GetLabelObject())
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
+	end
 end
-function c3027001.repfilter(c)
-	return c:GetFlagEffect(3027001)~=0
+function c3027001.repfilter(c,tp)
+	return c3027001.cfilter(c,tp) and not c:IsReason(REASON_REPLACE)
 end
 function c3027001.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return re==e:GetLabelObject() and eg:IsExists(c3027001.repfilter,1,nil) end
+	local c=e:GetHandler()
+	if chk==0 then return re==e:GetLabelObject() and eg:IsExists(c3027001.repfilter,1,c,tp) end
+	local sg=eg:Filter(c3027001.repfilter,c,tp)
+	local fg=sg:Filter(c3027001.cffilter,nil,tp)
+	if fg:GetCount()>0 then
+		Duel.ConfirmCards(1-tp,fg)
+	end
+	sg:KeepAlive()
+	e:SetLabelObject(sg)
 	return true
 end
 function c3027001.repvalue(e,c)
-	return c:GetFlagEffect(3027001)~=0
+	local g=e:GetLabelObject()
+	return g:IsContains(c)
 end
 function c3027001.repop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Destroy(e:GetHandler(),REASON_EFFECT+REASON_REPLACE)
+	local g=e:GetLabelObject()
+	g:DeleteGroup()
 end