name: リセの蟲惑魔
card_text: このカード名の2の効果は1ターンに1度しか使用できない。
  1:このカードはモンスターゾーンに存在する限り、「ホール」通常罠カード及び「落とし穴」通常罠カードの効果を受けない。
  2:このカードをリリースして発動できる。
  自分のデッキ及び墓地から1枚ずつ、「ホール」通常罠カードか「落とし穴」通常罠カードを自分フィールドにセットする(同名カードは1枚まで)。
  この効果でセットしたカードはフィールドから離れた場合に除外される。
external_ids: local SETCARD_ID_0 = 0x4c --落とし穴
  
lua: local SETCARD_ID_0 = 0x4c --落とし穴
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--immune
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE)
  	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
  	e1:SetCode(EFFECT_IMMUNE_EFFECT)
  	e1:SetRange(LOCATION_MZONE)
  	e1:SetValue(s.efilter)
  	c:RegisterEffect(e1)
  	--set
  	local e2 = Effect.CreateEffect(c)
  	e2:SetCategory(CATEGORY_LEAVE_GRAVE)
  	e2:SetDescription(aux.Stringid(id, 0))
  	e2:SetType(EFFECT_TYPE_IGNITION)
  	e2:SetRange(LOCATION_MZONE)
  	e2:SetCountLimit(1, id)
  	e2:SetCost(s.setcost)
  	e2:SetTarget(s.settg)
  	e2:SetOperation(s.setop)
  	c:RegisterEffect(e2)
  end
  function s.efilter(e, te)
  	local c = te:GetHandler()
  	return c:GetType() == TYPE_TRAP and c:IsSetCard(SETCARD_ID_0, 0x89)
  end
  function s.setfilter(c)
  	return c:IsSetCard(SETCARD_ID_0, 0x89) and c:GetType() == TYPE_TRAP and c:IsSSetable()
  end
  function s.fselect(g)
  	return g:GetClassCount(Card.GetLocation) == g:GetCount() and aux.dncheck(g)
  end
  function s.setcost(e, tp, eg, ep, ev, re, r, rp, chk)
  	if chk == 0 then
  		return e:GetHandler():IsReleasable()
  	end
  	Duel.Release(e:GetHandler(), REASON_COST)
  end
  function s.settg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local g = Duel.GetMatchingGroup(s.setfilter, tp, LOCATION_DECK + LOCATION_GRAVE, 0, nil)
  	if chk == 0 then
  		return Duel.GetLocationCount(tp, LOCATION_SZONE) >= 2 and g:CheckSubGroup(s.fselect, 2, 2)
  	end
  	Duel.SetOperationInfo(0, CATEGORY_LEAVE_GRAVE, nil, 1, tp, 0)
  end
  function s.setop(e, tp, eg, ep, ev, re, r, rp)
  	if Duel.GetLocationCount(tp, LOCATION_SZONE) < 2 then
  		return
  	end
  	local g = Duel.GetMatchingGroup(aux.NecroValleyFilter(s.setfilter), tp, LOCATION_DECK + LOCATION_GRAVE, 0, nil)
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SET)
  	local sg = g:SelectSubGroup(tp, s.fselect, false, 2, 2)
  	if sg and #sg == 2 then
  		if Duel.SSet(tp, sg) == 0 then
  			return
  		end
  		local tc = sg:GetFirst()
  		while tc do
  			local e1 = Effect.CreateEffect(e:GetHandler())
  			e1:SetType(EFFECT_TYPE_SINGLE)
  			e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
  			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
  			e1:SetValue(LOCATION_REMOVED)
  			e1:SetReset(RESET_EVENT + RESETS_REDIRECT)
  			tc:RegisterEffect(e1)
  			tc = sg:GetNext()
  		end
  	end
  end
  
  
source_text: リセの蟲惑魔
  このカード名の2の効果は1ターンに1度しか使用できない。
  1:このカードはモンスターゾーンに存在する限り、「ホール」通常罠カード及び「落とし穴」通常罠カードの効果を受けない。
  2:このカードをリリースして発動できる。
  自分のデッキ及び墓地から1枚ずつ、「ホール」通常罠カードか「落とし穴」通常罠カードを自分フィールドにセットする(同名カードは1枚まで)。
  この効果でセットしたカードはフィールドから離れた場合に除外される。
target_text: -- リセの蟲惑魔
  local SETCARD_ID_0 = 0x4c --落とし穴
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--immune
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE)
  	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
  	e1:SetCode(EFFECT_IMMUNE_EFFECT)
  	e1:SetRange(LOCATION_MZONE)
  	e1:SetValue(s.efilter)
  	c:RegisterEffect(e1)
  	--set
  	local e2 = Effect.CreateEffect(c)
  	e2:SetCategory(CATEGORY_LEAVE_GRAVE)
  	e2:SetDescription(aux.Stringid(id, 0))
  	e2:SetType(EFFECT_TYPE_IGNITION)
  	e2:SetRange(LOCATION_MZONE)
  	e2:SetCountLimit(1, id)
  	e2:SetCost(s.setcost)
  	e2:SetTarget(s.settg)
  	e2:SetOperation(s.setop)
  	c:RegisterEffect(e2)
  end
  function s.efilter(e, te)
  	local c = te:GetHandler()
  	return c:GetType() == TYPE_TRAP and c:IsSetCard(SETCARD_ID_0, 0x89)
  end
  function s.setfilter(c)
  	return c:IsSetCard(SETCARD_ID_0, 0x89) and c:GetType() == TYPE_TRAP and c:IsSSetable()
  end
  function s.fselect(g)
  	return g:GetClassCount(Card.GetLocation) == g:GetCount() and aux.dncheck(g)
  end
  function s.setcost(e, tp, eg, ep, ev, re, r, rp, chk)
  	if chk == 0 then
  		return e:GetHandler():IsReleasable()
  	end
  	Duel.Release(e:GetHandler(), REASON_COST)
  end
  function s.settg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local g = Duel.GetMatchingGroup(s.setfilter, tp, LOCATION_DECK + LOCATION_GRAVE, 0, nil)
  	if chk == 0 then
  		return Duel.GetLocationCount(tp, LOCATION_SZONE) >= 2 and g:CheckSubGroup(s.fselect, 2, 2)
  	end
  	Duel.SetOperationInfo(0, CATEGORY_LEAVE_GRAVE, nil, 1, tp, 0)
  end
  function s.setop(e, tp, eg, ep, ev, re, r, rp)
  	if Duel.GetLocationCount(tp, LOCATION_SZONE) < 2 then
  		return
  	end
  	local g = Duel.GetMatchingGroup(aux.NecroValleyFilter(s.setfilter), tp, LOCATION_DECK + LOCATION_GRAVE, 0, nil)
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SET)
  	local sg = g:SelectSubGroup(tp, s.fselect, false, 2, 2)
  	if sg and #sg == 2 then
  		if Duel.SSet(tp, sg) == 0 then
  			return
  		end
  		local tc = sg:GetFirst()
  		while tc do
  			local e1 = Effect.CreateEffect(e:GetHandler())
  			e1:SetType(EFFECT_TYPE_SINGLE)
  			e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
  			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
  			e1:SetValue(LOCATION_REMOVED)
  			e1:SetReset(RESET_EVENT + RESETS_REDIRECT)
  			tc:RegisterEffect(e1)
  			tc = sg:GetNext()
  		end
  	end
  end
  
  