name: リヴェンデット・バース
card_text: 「ヴェンデット」儀式モンスターの降臨に必要。
  このカード名のカードは1ターンに1枚しか発動できない。
  1:レベルの合計が儀式召喚するモンスターと同じになるように、自分の手札・フィールドのモンスターをリリース、またはリリースの代わりにデッキから「ヴェンデット」モンスター(1体まで)を墓地へ送り、自分の手札・墓地から「ヴェンデット」儀式モンスター1体を儀式召喚する。
  この効果で儀式召喚したモンスターは、次のターンのエンドフェイズに破壊される。
external_ids: local SETCARD_ID_0 = 0x106 --ヴェンデット
  
lua: local SETCARD_ID_0 = 0x106 --ヴェンデット
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--Activate
  	local e1 = Effect.CreateEffect(c)
  	e1:SetCategory(CATEGORY_SPECIAL_SUMMON + CATEGORY_DECKDES)
  	e1:SetType(EFFECT_TYPE_ACTIVATE)
  	e1:SetCode(EVENT_FREE_CHAIN)
  	e1:SetCountLimit(1, id + EFFECT_COUNT_CODE_OATH)
  	e1:SetTarget(s.target)
  	e1:SetOperation(s.activate)
  	c:RegisterEffect(e1)
  end
  function s.dfilter(c)
  	return c:IsSetCard(SETCARD_ID_0) and c:IsLevelAbove(1) and c:IsAbleToGrave()
  end
  function s.filter(c, e, tp)
  	return c:IsSetCard(SETCARD_ID_0)
  end
  function s.rcheck(tp, g, c)
  	return g:FilterCount(Card.IsLocation, nil, LOCATION_DECK) <= 1
  end
  function s.rgcheck(g, ec)
  	return g:FilterCount(Card.IsLocation, nil, LOCATION_DECK) <= 1
  end
  function s.target(e, tp, eg, ep, ev, re, r, rp, chk)
  	if chk == 0 then
  		local mg = Duel.GetRitualMaterial(tp)
  		local dg = Duel.GetMatchingGroup(s.dfilter, tp, LOCATION_DECK, 0, nil)
  		aux.RCheckAdditional = s.rcheck
  		aux.RGCheckAdditional = s.rgcheck
  		local res = Duel.IsExistingMatchingCard(aux.RitualUltimateFilter, tp, LOCATION_HAND + LOCATION_GRAVE, 0, 1, nil, s.filter, e, tp, mg, dg, Card.GetLevel, "Equal")
  		aux.RCheckAdditional = nil
  		aux.RGCheckAdditional = nil
  		return res
  	end
  	Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, nil, 1, tp, LOCATION_HAND + LOCATION_GRAVE)
  end
  function s.activate(e, tp, eg, ep, ev, re, r, rp)
  	::cancel::
  	local m = Duel.GetRitualMaterial(tp)
  	local dg = Duel.GetMatchingGroup(s.dfilter, tp, LOCATION_DECK, 0, nil)
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SPSUMMON)
  	aux.RCheckAdditional = s.rcheck
  	aux.RGCheckAdditional = s.rgcheck
  	local tg = Duel.SelectMatchingCard(tp, aux.NecroValleyFilter(aux.RitualUltimateFilter), tp, LOCATION_HAND + LOCATION_GRAVE, 0, 1, 1, nil, s.filter, e, tp, m, dg, Card.GetLevel, "Equal")
  	local tc = tg:GetFirst()
  	if tc then
  		local mg = m:Filter(Card.IsCanBeRitualMaterial, tc, tc)
  		mg:Merge(dg)
  		if tc.mat_filter then
  			mg = mg:Filter(tc.mat_filter, tc, tp)
  		else
  			mg:RemoveCard(tc)
  		end
  		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_RELEASE)
  		aux.GCheckAdditional = aux.RitualCheckAdditional(tc, tc:GetLevel(), "Equal")
  		local mat = mg:SelectSubGroup(tp, aux.RitualCheck, true, 1, tc:GetLevel(), tp, tc, tc:GetLevel(), "Equal")
  		aux.GCheckAdditional = nil
  		if not mat then
  			aux.RCheckAdditional = nil
  			aux.RGCheckAdditional = nil
  			goto cancel
  		end
  		tc:SetMaterial(mat)
  		local dmat = mat:Filter(Card.IsLocation, nil, LOCATION_DECK)
  		if dmat:GetCount() > 0 then
  			mat:Sub(dmat)
  			Duel.SendtoGrave(dmat, REASON_EFFECT + REASON_MATERIAL + REASON_RITUAL)
  		end
  		Duel.ReleaseRitualMaterial(mat)
  		Duel.BreakEffect()
  		Duel.SpecialSummon(tc, SUMMON_TYPE_RITUAL, tp, tp, false, true, POS_FACEUP)
  		tc:CompleteProcedure()
  		tc:RegisterFlagEffect(id, RESET_EVENT + RESETS_STANDARD + RESET_PHASE + PHASE_END, 0, 2)
  		local e1 = Effect.CreateEffect(e:GetHandler())
  		e1:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS)
  		e1:SetCode(EVENT_PHASE + PHASE_END)
  		e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
  		e1:SetCondition(s.descon)
  		e1:SetOperation(s.desop)
  		e1:SetReset(RESET_PHASE + PHASE_END, 2)
  		e1:SetCountLimit(1)
  		e1:SetLabel(Duel.GetTurnCount())
  		e1:SetLabelObject(tc)
  		Duel.RegisterEffect(e1, tp)
  	end
  	aux.RCheckAdditional = nil
  	aux.RGCheckAdditional = nil
  end
  function s.descon(e, tp, eg, ep, ev, re, r, rp)
  	local tc = e:GetLabelObject()
  	return Duel.GetTurnCount() ~= e:GetLabel() and tc:GetFlagEffect(id) ~= 0
  end
  function s.desop(e, tp, eg, ep, ev, re, r, rp)
  	local tc = e:GetLabelObject()
  	Duel.Destroy(tc, REASON_EFFECT)
  end
  
  
source_text: リヴェンデット・バース
  「ヴェンデット」儀式モンスターの降臨に必要。
  このカード名のカードは1ターンに1枚しか発動できない。
  1:レベルの合計が儀式召喚するモンスターと同じになるように、自分の手札・フィールドのモンスターをリリース、またはリリースの代わりにデッキから「ヴェンデット」モンスター(1体まで)を墓地へ送り、自分の手札・墓地から「ヴェンデット」儀式モンスター1体を儀式召喚する。
  この効果で儀式召喚したモンスターは、次のターンのエンドフェイズに破壊される。
target_text: -- リヴェンデット・バース
  local SETCARD_ID_0 = 0x106 --ヴェンデット
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--Activate
  	local e1 = Effect.CreateEffect(c)
  	e1:SetCategory(CATEGORY_SPECIAL_SUMMON + CATEGORY_DECKDES)
  	e1:SetType(EFFECT_TYPE_ACTIVATE)
  	e1:SetCode(EVENT_FREE_CHAIN)
  	e1:SetCountLimit(1, id + EFFECT_COUNT_CODE_OATH)
  	e1:SetTarget(s.target)
  	e1:SetOperation(s.activate)
  	c:RegisterEffect(e1)
  end
  function s.dfilter(c)
  	return c:IsSetCard(SETCARD_ID_0) and c:IsLevelAbove(1) and c:IsAbleToGrave()
  end
  function s.filter(c, e, tp)
  	return c:IsSetCard(SETCARD_ID_0)
  end
  function s.rcheck(tp, g, c)
  	return g:FilterCount(Card.IsLocation, nil, LOCATION_DECK) <= 1
  end
  function s.rgcheck(g, ec)
  	return g:FilterCount(Card.IsLocation, nil, LOCATION_DECK) <= 1
  end
  function s.target(e, tp, eg, ep, ev, re, r, rp, chk)
  	if chk == 0 then
  		local mg = Duel.GetRitualMaterial(tp)
  		local dg = Duel.GetMatchingGroup(s.dfilter, tp, LOCATION_DECK, 0, nil)
  		aux.RCheckAdditional = s.rcheck
  		aux.RGCheckAdditional = s.rgcheck
  		local res = Duel.IsExistingMatchingCard(aux.RitualUltimateFilter, tp, LOCATION_HAND + LOCATION_GRAVE, 0, 1, nil, s.filter, e, tp, mg, dg, Card.GetLevel, "Equal")
  		aux.RCheckAdditional = nil
  		aux.RGCheckAdditional = nil
  		return res
  	end
  	Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, nil, 1, tp, LOCATION_HAND + LOCATION_GRAVE)
  end
  function s.activate(e, tp, eg, ep, ev, re, r, rp)
  	::cancel::
  	local m = Duel.GetRitualMaterial(tp)
  	local dg = Duel.GetMatchingGroup(s.dfilter, tp, LOCATION_DECK, 0, nil)
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SPSUMMON)
  	aux.RCheckAdditional = s.rcheck
  	aux.RGCheckAdditional = s.rgcheck
  	local tg = Duel.SelectMatchingCard(tp, aux.NecroValleyFilter(aux.RitualUltimateFilter), tp, LOCATION_HAND + LOCATION_GRAVE, 0, 1, 1, nil, s.filter, e, tp, m, dg, Card.GetLevel, "Equal")
  	local tc = tg:GetFirst()
  	if tc then
  		local mg = m:Filter(Card.IsCanBeRitualMaterial, tc, tc)
  		mg:Merge(dg)
  		if tc.mat_filter then
  			mg = mg:Filter(tc.mat_filter, tc, tp)
  		else
  			mg:RemoveCard(tc)
  		end
  		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_RELEASE)
  		aux.GCheckAdditional = aux.RitualCheckAdditional(tc, tc:GetLevel(), "Equal")
  		local mat = mg:SelectSubGroup(tp, aux.RitualCheck, true, 1, tc:GetLevel(), tp, tc, tc:GetLevel(), "Equal")
  		aux.GCheckAdditional = nil
  		if not mat then
  			aux.RCheckAdditional = nil
  			aux.RGCheckAdditional = nil
  			goto cancel
  		end
  		tc:SetMaterial(mat)
  		local dmat = mat:Filter(Card.IsLocation, nil, LOCATION_DECK)
  		if dmat:GetCount() > 0 then
  			mat:Sub(dmat)
  			Duel.SendtoGrave(dmat, REASON_EFFECT + REASON_MATERIAL + REASON_RITUAL)
  		end
  		Duel.ReleaseRitualMaterial(mat)
  		Duel.BreakEffect()
  		Duel.SpecialSummon(tc, SUMMON_TYPE_RITUAL, tp, tp, false, true, POS_FACEUP)
  		tc:CompleteProcedure()
  		tc:RegisterFlagEffect(id, RESET_EVENT + RESETS_STANDARD + RESET_PHASE + PHASE_END, 0, 2)
  		local e1 = Effect.CreateEffect(e:GetHandler())
  		e1:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS)
  		e1:SetCode(EVENT_PHASE + PHASE_END)
  		e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
  		e1:SetCondition(s.descon)
  		e1:SetOperation(s.desop)
  		e1:SetReset(RESET_PHASE + PHASE_END, 2)
  		e1:SetCountLimit(1)
  		e1:SetLabel(Duel.GetTurnCount())
  		e1:SetLabelObject(tc)
  		Duel.RegisterEffect(e1, tp)
  	end
  	aux.RCheckAdditional = nil
  	aux.RGCheckAdditional = nil
  end
  function s.descon(e, tp, eg, ep, ev, re, r, rp)
  	local tc = e:GetLabelObject()
  	return Duel.GetTurnCount() ~= e:GetLabel() and tc:GetFlagEffect(id) ~= 0
  end
  function s.desop(e, tp, eg, ep, ev, re, r, rp)
  	local tc = e:GetLabelObject()
  	Duel.Destroy(tc, REASON_EFFECT)
  end
  
  