閃刀起動-リンケージ
1:自分のメインモンスターゾーンにモンスターが存在しない場合に発動できる。
自分フィールドの他のカード1枚を墓地へ送り、EXデッキから「閃刀姫」モンスター1体をEXモンスターゾーンに特殊召喚する。
自分のフィールド・墓地に、光属性と闇属性の「閃刀姫」モンスターがそれぞれ存在する場合、この効果で特殊召喚したモンスターの攻撃力は1000アップする。
このカードの発動後、ターン終了時まで自分は「閃刀姫」モンスターしかEXデッキから特殊召喚できない。
local SETCARD_ID_0 = 0x1115 --閃刀姫

local SETCARD_ID_0 = 0x1115 --閃刀姫
local s, id, o = GetID()
function s.initial_effect(c)
	--activate
	local e1 = Effect.CreateEffect(c)
	e1:SetCategory(CATEGORY_TOGRAVE + CATEGORY_SPECIAL_SUMMON)
	e1:SetType(EFFECT_TYPE_ACTIVATE)
	e1:SetCode(EVENT_FREE_CHAIN)
	e1:SetCondition(s.condition)
	e1:SetTarget(s.target)
	e1:SetOperation(s.activate)
	c:RegisterEffect(e1)
end
function s.cfilter(c)
	return c:GetSequence() < 5
end
function s.condition(e, tp, eg, ep, ev, re, r, rp)
	return not Duel.IsExistingMatchingCard(s.cfilter, tp, LOCATION_MZONE, 0, 1, nil)
end
function s.tgfilter1(c, e, tp)
	return c:IsAbleToGrave() and Duel.IsExistingMatchingCard(s.spfilter1, tp, LOCATION_EXTRA, 0, 1, nil, e, tp, c)
end
function s.spfilter1(c, e, tp, mc)
	return c:IsSetCard(SETCARD_ID_0) and c:IsCanBeSpecialSummoned(e, 0, tp, false, false) and Duel.GetLocationCountFromEx(tp, tp, mc, c, 0x60) > 0
end
function s.target(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.IsExistingMatchingCard(s.tgfilter1, tp, LOCATION_ONFIELD, 0, 1, e:GetHandler(), e, tp)
	end
	Duel.SetOperationInfo(0, CATEGORY_TOGRAVE, nil, 1, tp, LOCATION_ONFIELD)
	Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, nil, 1, tp, LOCATION_EXTRA)
end
function s.tgfilter2(c, e, tp)
	return c:IsAbleToGrave() and Duel.IsExistingMatchingCard(s.exfilter, tp, LOCATION_EXTRA, 0, 1, nil, e, tp, c)
end
function s.exfilter(c, e, tp, mc)
	return c:IsSetCard(SETCARD_ID_0) and Duel.GetLocationCountFromEx(tp, tp, mc, c, 0x60) > 0
end
function s.spfilter2(c, e, tp)
	return c:IsSetCard(SETCARD_ID_0) and c:IsCanBeSpecialSummoned(e, 0, tp, false, false, POS_FACEUP, tp, 0x60)
end
function s.tgfilter3(c, tp)
	return c:IsAbleToGrave() and Duel.GetLocationCountFromEx(tp, tp, c, nil, 0x60) > 0
end
function s.tgfilter4(c)
	return c:IsAbleToGrave()
end
function s.activate(e, tp, eg, ep, ev, re, r, rp)
	local c = e:GetHandler()
	local tg2 = Duel.GetMatchingGroup(s.tgfilter2, tp, LOCATION_ONFIELD, 0, c, e, tp)
	local tg3 = (#tg2 == 0) and Duel.GetMatchingGroup(s.tgfilter3, tp, LOCATION_ONFIELD, 0, c, tp) or nil
	local tg4 = (tg3 and #tg3 == 0) and Duel.GetMatchingGroup(s.tgfilter4, tp, LOCATION_ONFIELD, 0, c) or nil
	if #tg2 > 0 then
		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOGRAVE)
		local tc = tg2:Select(tp, 1, 1, c):GetFirst()
		if Duel.SendtoGrave(tc, REASON_EFFECT) > 0 and tc:IsLocation(LOCATION_GRAVE) then
			Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SPSUMMON)
			local sc = Duel.SelectMatchingCard(tp, s.spfilter2, tp, LOCATION_EXTRA, 0, 1, 1, nil, e, tp):GetFirst()
			if sc then
				Duel.SpecialSummon(sc, 0, tp, tp, false, false, POS_FACEUP, 0x60)
				local fg = Duel.GetMatchingGroup(s.atkfilter, tp, LOCATION_MZONE + LOCATION_GRAVE, 0, nil)
				if fg:CheckSubGroup(aux.gfcheck, 2, 2, Card.IsAttribute, ATTRIBUTE_LIGHT, ATTRIBUTE_DARK) then
					local e1 = Effect.CreateEffect(c)
					e1:SetType(EFFECT_TYPE_SINGLE)
					e1:SetCode(EFFECT_UPDATE_ATTACK)
					e1:SetValue(1000)
					e1:SetReset(RESET_EVENT + RESETS_STANDARD)
					sc:RegisterEffect(e1)
				end
			end
		end
	elseif tg3 and #tg3 > 0 then
		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOGRAVE)
		local tc = tg3:Select(tp, 1, 1, c):GetFirst()
		Duel.SendtoGrave(tc, REASON_EFFECT)
	elseif tg4 and #tg4 > 0 then
		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOGRAVE)
		local tc = tg4:Select(tp, 1, 1, c):GetFirst()
		Duel.SendtoGrave(tc, REASON_EFFECT)
	end
	if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then
		return
	end
	local e2 = Effect.CreateEffect(c)
	e2:SetType(EFFECT_TYPE_FIELD)
	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e2:SetTargetRange(1, 0)
	e2:SetTarget(s.splimit)
	e2:SetReset(RESET_PHASE + PHASE_END)
	Duel.RegisterEffect(e2, tp)
end
function s.atkfilter(c)
	return c:IsSetCard(SETCARD_ID_0) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
end
function s.splimit(e, c)
	return not c:IsSetCard(SETCARD_ID_0) and c:IsLocation(LOCATION_EXTRA)
end


閃刀起動-リンケージ
1:自分のメインモンスターゾーンにモンスターが存在しない場合に発動できる。
自分フィールドの他のカード1枚を墓地へ送り、EXデッキから「閃刀姫」モンスター1体をEXモンスターゾーンに特殊召喚する。
自分のフィールド・墓地に、光属性と闇属性の「閃刀姫」モンスターがそれぞれ存在する場合、この効果で特殊召喚したモンスターの攻撃力は1000アップする。
このカードの発動後、ターン終了時まで自分は「閃刀姫」モンスターしかEXデッキから特殊召喚できない。
-- 閃刀起動-リンケージ
local SETCARD_ID_0 = 0x1115 --閃刀姫
local s, id, o = GetID()
function s.initial_effect(c)
	--activate
	local e1 = Effect.CreateEffect(c)
	e1:SetCategory(CATEGORY_TOGRAVE + CATEGORY_SPECIAL_SUMMON)
	e1:SetType(EFFECT_TYPE_ACTIVATE)
	e1:SetCode(EVENT_FREE_CHAIN)
	e1:SetCondition(s.condition)
	e1:SetTarget(s.target)
	e1:SetOperation(s.activate)
	c:RegisterEffect(e1)
end
function s.cfilter(c)
	return c:GetSequence() < 5
end
function s.condition(e, tp, eg, ep, ev, re, r, rp)
	return not Duel.IsExistingMatchingCard(s.cfilter, tp, LOCATION_MZONE, 0, 1, nil)
end
function s.tgfilter1(c, e, tp)
	return c:IsAbleToGrave() and Duel.IsExistingMatchingCard(s.spfilter1, tp, LOCATION_EXTRA, 0, 1, nil, e, tp, c)
end
function s.spfilter1(c, e, tp, mc)
	return c:IsSetCard(SETCARD_ID_0) and c:IsCanBeSpecialSummoned(e, 0, tp, false, false) and Duel.GetLocationCountFromEx(tp, tp, mc, c, 0x60) > 0
end
function s.target(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.IsExistingMatchingCard(s.tgfilter1, tp, LOCATION_ONFIELD, 0, 1, e:GetHandler(), e, tp)
	end
	Duel.SetOperationInfo(0, CATEGORY_TOGRAVE, nil, 1, tp, LOCATION_ONFIELD)
	Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, nil, 1, tp, LOCATION_EXTRA)
end
function s.tgfilter2(c, e, tp)
	return c:IsAbleToGrave() and Duel.IsExistingMatchingCard(s.exfilter, tp, LOCATION_EXTRA, 0, 1, nil, e, tp, c)
end
function s.exfilter(c, e, tp, mc)
	return c:IsSetCard(SETCARD_ID_0) and Duel.GetLocationCountFromEx(tp, tp, mc, c, 0x60) > 0
end
function s.spfilter2(c, e, tp)
	return c:IsSetCard(SETCARD_ID_0) and c:IsCanBeSpecialSummoned(e, 0, tp, false, false, POS_FACEUP, tp, 0x60)
end
function s.tgfilter3(c, tp)
	return c:IsAbleToGrave() and Duel.GetLocationCountFromEx(tp, tp, c, nil, 0x60) > 0
end
function s.tgfilter4(c)
	return c:IsAbleToGrave()
end
function s.activate(e, tp, eg, ep, ev, re, r, rp)
	local c = e:GetHandler()
	local tg2 = Duel.GetMatchingGroup(s.tgfilter2, tp, LOCATION_ONFIELD, 0, c, e, tp)
	local tg3 = (#tg2 == 0) and Duel.GetMatchingGroup(s.tgfilter3, tp, LOCATION_ONFIELD, 0, c, tp) or nil
	local tg4 = (tg3 and #tg3 == 0) and Duel.GetMatchingGroup(s.tgfilter4, tp, LOCATION_ONFIELD, 0, c) or nil
	if #tg2 > 0 then
		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOGRAVE)
		local tc = tg2:Select(tp, 1, 1, c):GetFirst()
		if Duel.SendtoGrave(tc, REASON_EFFECT) > 0 and tc:IsLocation(LOCATION_GRAVE) then
			Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SPSUMMON)
			local sc = Duel.SelectMatchingCard(tp, s.spfilter2, tp, LOCATION_EXTRA, 0, 1, 1, nil, e, tp):GetFirst()
			if sc then
				Duel.SpecialSummon(sc, 0, tp, tp, false, false, POS_FACEUP, 0x60)
				local fg = Duel.GetMatchingGroup(s.atkfilter, tp, LOCATION_MZONE + LOCATION_GRAVE, 0, nil)
				if fg:CheckSubGroup(aux.gfcheck, 2, 2, Card.IsAttribute, ATTRIBUTE_LIGHT, ATTRIBUTE_DARK) then
					local e1 = Effect.CreateEffect(c)
					e1:SetType(EFFECT_TYPE_SINGLE)
					e1:SetCode(EFFECT_UPDATE_ATTACK)
					e1:SetValue(1000)
					e1:SetReset(RESET_EVENT + RESETS_STANDARD)
					sc:RegisterEffect(e1)
				end
			end
		end
	elseif tg3 and #tg3 > 0 then
		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOGRAVE)
		local tc = tg3:Select(tp, 1, 1, c):GetFirst()
		Duel.SendtoGrave(tc, REASON_EFFECT)
	elseif tg4 and #tg4 > 0 then
		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOGRAVE)
		local tc = tg4:Select(tp, 1, 1, c):GetFirst()
		Duel.SendtoGrave(tc, REASON_EFFECT)
	end
	if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then
		return
	end
	local e2 = Effect.CreateEffect(c)
	e2:SetType(EFFECT_TYPE_FIELD)
	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e2:SetTargetRange(1, 0)
	e2:SetTarget(s.splimit)
	e2:SetReset(RESET_PHASE + PHASE_END)
	Duel.RegisterEffect(e2, tp)
end
function s.atkfilter(c)
	return c:IsSetCard(SETCARD_ID_0) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
end
function s.splimit(e, c)
	return not c:IsSetCard(SETCARD_ID_0) and c:IsLocation(LOCATION_EXTRA)
end

