name: 星逢の神籬
card_text: 1:1ターンに1度、発動できる。
  自分フィールドのスピリットモンスター及び「霊魂鳥トークン」の中から、レベルの合計が儀式召喚するモンスターのレベル以上になるようにリリースし、デッキから風属性の儀式モンスター1体を儀式召喚する。
  2:1ターンに2度まで、自分フィールドの表側表示の風属性モンスターが自分の手札に戻った場合、以下の効果から1つを選択して発動できる。
  ●自分の墓地・除外状態の、スピリットモンスター1体か儀式魔法カード1枚を手札に加える。
  ●デッキから「星逢の天河」1枚を自分フィールドにセットする。
external_ids: local CARD_ID_0 = 20417688 --星逢の天河
  local CARD_ID_1 = 25415053 --霊魂鳥トークン
  
lua: local CARD_ID_0 = 20417688 --星逢の天河
  local CARD_ID_1 = 25415053 --霊魂鳥トークン
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--Activate
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_ACTIVATE)
  	e1:SetCode(EVENT_FREE_CHAIN)
  	c:RegisterEffect(e1)
  	--ritual summon
  	local t = { aux.FilterBoolFunction(Card.IsAttribute, ATTRIBUTE_WIND), Card.GetOriginalLevel, "Greater", LOCATION_DECK, nil, s.mfilter }
  	local e2 = Effect.CreateEffect(c)
  	e2:SetDescription(aux.Stringid(id, 0))
  	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
  	e2:SetType(EFFECT_TYPE_IGNITION)
  	e2:SetRange(LOCATION_FZONE)
  	e2:SetCountLimit(1)
  	e2:SetTarget(aux.RitualUltimateTarget(table.unpack(t)))
  	e2:SetOperation(aux.RitualUltimateOperation(table.unpack(t)))
  	c:RegisterEffect(e2)
  	--retrieve/sset, on bounce
  	local e3 = Effect.CreateEffect(c)
  	e3:SetDescription(aux.Stringid(id, 1))
  	e3:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_TRIGGER_O)
  	e3:SetCode(EVENT_TO_HAND)
  	e3:SetRange(LOCATION_FZONE)
  	e3:SetCountLimit(2)
  	e3:SetProperty(EFFECT_FLAG_DELAY)
  	e3:SetCondition(s.condition)
  	e3:SetTarget(s.target)
  	c:RegisterEffect(e3)
  end
  s.has_text_type = TYPE_SPIRIT
  function s.mfilter(c, tp)
  	return (c:IsType(TYPE_SPIRIT) or c:IsCode(CARD_ID_1)) and c:IsLocation(LOCATION_MZONE)
  end
  function s.cfilter(c, tp)
  	return c:IsPreviousPosition(POS_FACEUP)
  		and bit.band(c:GetPreviousAttributeOnField(), ATTRIBUTE_WIND) ~= 0
  		and c:IsPreviousControler(tp)
  		and c:IsPreviousLocation(LOCATION_MZONE)
  		and c:IsControler(tp)
  end
  function s.condition(e, tp, eg, ep, ev, re, r, rp)
  	return eg:IsExists(s.cfilter, 1, nil, tp)
  end
  function s.filter(c)
  	return c:IsFaceupEx() and (c:IsType(TYPE_SPIRIT) or c:GetType() & 0x82 == 0x82) and c:IsAbleToHand()
  end
  function s.sfilter(c)
  	return c:IsCode(CARD_ID_0) and c:IsSSetable()
  end
  function s.target(e, tp, eg, ep, ev, re, r, rp, chk)
  	local b1 = Duel.IsExistingMatchingCard(s.filter, tp, LOCATION_GRAVE + LOCATION_REMOVED, 0, 1, nil)
  	local b2 = Duel.IsExistingMatchingCard(s.sfilter, tp, LOCATION_DECK, 0, 1, nil)
  	if chk == 0 then
  		return b1 or b2
  	end
  	local op = aux.SelectFromOptions(tp, { b1, 1190 }, { b2, 1153 })
  	if op == 1 then
  		e:SetCategory(CATEGORY_TOHAND)
  		e:SetOperation(s.retrieve)
  		Duel.SetOperationInfo(0, CATEGORY_TOHAND, nil, 1, tp, LOCATION_GRAVE + LOCATION_REMOVED)
  	else
  		e:SetCategory(0)
  		e:SetOperation(s.ssettrap)
  	end
  end
  function s.retrieve(e, tp, eg, ep, ev, re, r, rp)
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_ATOHAND)
  	local g = Duel.SelectMatchingCard(tp, aux.NecroValleyFilter(s.filter), tp, LOCATION_GRAVE + LOCATION_REMOVED, 0, 1, 1, nil)
  	if #g > 0 then
  		Duel.SendtoHand(g, nil, REASON_EFFECT)
  		Duel.ConfirmCards(1 - tp, g)
  	end
  end
  function s.ssettrap(e, tp, eg, ep, ev, re, r, rp)
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SET)
  	local tc = Duel.SelectMatchingCard(tp, s.sfilter, tp, LOCATION_DECK, 0, 1, 1, nil):GetFirst()
  	if tc then
  		Duel.SSet(tp, tc)
  	end
  end
  
  
source_text: 星逢の神籬
  1:1ターンに1度、発動できる。
  自分フィールドのスピリットモンスター及び「霊魂鳥トークン」の中から、レベルの合計が儀式召喚するモンスターのレベル以上になるようにリリースし、デッキから風属性の儀式モンスター1体を儀式召喚する。
  2:1ターンに2度まで、自分フィールドの表側表示の風属性モンスターが自分の手札に戻った場合、以下の効果から1つを選択して発動できる。
  ●自分の墓地・除外状態の、スピリットモンスター1体か儀式魔法カード1枚を手札に加える。
  ●デッキから「星逢の天河」1枚を自分フィールドにセットする。
target_text: -- 星逢の神籬
  local CARD_ID_0 = 20417688 --星逢の天河
  local CARD_ID_1 = 25415053 --霊魂鳥トークン
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--Activate
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_ACTIVATE)
  	e1:SetCode(EVENT_FREE_CHAIN)
  	c:RegisterEffect(e1)
  	--ritual summon
  	local t = { aux.FilterBoolFunction(Card.IsAttribute, ATTRIBUTE_WIND), Card.GetOriginalLevel, "Greater", LOCATION_DECK, nil, s.mfilter }
  	local e2 = Effect.CreateEffect(c)
  	e2:SetDescription(aux.Stringid(id, 0))
  	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
  	e2:SetType(EFFECT_TYPE_IGNITION)
  	e2:SetRange(LOCATION_FZONE)
  	e2:SetCountLimit(1)
  	e2:SetTarget(aux.RitualUltimateTarget(table.unpack(t)))
  	e2:SetOperation(aux.RitualUltimateOperation(table.unpack(t)))
  	c:RegisterEffect(e2)
  	--retrieve/sset, on bounce
  	local e3 = Effect.CreateEffect(c)
  	e3:SetDescription(aux.Stringid(id, 1))
  	e3:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_TRIGGER_O)
  	e3:SetCode(EVENT_TO_HAND)
  	e3:SetRange(LOCATION_FZONE)
  	e3:SetCountLimit(2)
  	e3:SetProperty(EFFECT_FLAG_DELAY)
  	e3:SetCondition(s.condition)
  	e3:SetTarget(s.target)
  	c:RegisterEffect(e3)
  end
  s.has_text_type = TYPE_SPIRIT
  function s.mfilter(c, tp)
  	return (c:IsType(TYPE_SPIRIT) or c:IsCode(CARD_ID_1)) and c:IsLocation(LOCATION_MZONE)
  end
  function s.cfilter(c, tp)
  	return c:IsPreviousPosition(POS_FACEUP)
  		and bit.band(c:GetPreviousAttributeOnField(), ATTRIBUTE_WIND) ~= 0
  		and c:IsPreviousControler(tp)
  		and c:IsPreviousLocation(LOCATION_MZONE)
  		and c:IsControler(tp)
  end
  function s.condition(e, tp, eg, ep, ev, re, r, rp)
  	return eg:IsExists(s.cfilter, 1, nil, tp)
  end
  function s.filter(c)
  	return c:IsFaceupEx() and (c:IsType(TYPE_SPIRIT) or c:GetType() & 0x82 == 0x82) and c:IsAbleToHand()
  end
  function s.sfilter(c)
  	return c:IsCode(CARD_ID_0) and c:IsSSetable()
  end
  function s.target(e, tp, eg, ep, ev, re, r, rp, chk)
  	local b1 = Duel.IsExistingMatchingCard(s.filter, tp, LOCATION_GRAVE + LOCATION_REMOVED, 0, 1, nil)
  	local b2 = Duel.IsExistingMatchingCard(s.sfilter, tp, LOCATION_DECK, 0, 1, nil)
  	if chk == 0 then
  		return b1 or b2
  	end
  	local op = aux.SelectFromOptions(tp, { b1, 1190 }, { b2, 1153 })
  	if op == 1 then
  		e:SetCategory(CATEGORY_TOHAND)
  		e:SetOperation(s.retrieve)
  		Duel.SetOperationInfo(0, CATEGORY_TOHAND, nil, 1, tp, LOCATION_GRAVE + LOCATION_REMOVED)
  	else
  		e:SetCategory(0)
  		e:SetOperation(s.ssettrap)
  	end
  end
  function s.retrieve(e, tp, eg, ep, ev, re, r, rp)
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_ATOHAND)
  	local g = Duel.SelectMatchingCard(tp, aux.NecroValleyFilter(s.filter), tp, LOCATION_GRAVE + LOCATION_REMOVED, 0, 1, 1, nil)
  	if #g > 0 then
  		Duel.SendtoHand(g, nil, REASON_EFFECT)
  		Duel.ConfirmCards(1 - tp, g)
  	end
  end
  function s.ssettrap(e, tp, eg, ep, ev, re, r, rp)
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SET)
  	local tc = Duel.SelectMatchingCard(tp, s.sfilter, tp, LOCATION_DECK, 0, 1, 1, nil):GetFirst()
  	if tc then
  		Duel.SSet(tp, tc)
  	end
  end
  
  