EMエクストラ・シューター
【Pスケール:青6/赤6】
「EMエクストラ・シューター」のP効果は1ターンに1度しか使用できず、この効果を発動するターン、自分はP召喚できない。
1:自分メインフェイズに発動できる。
自分のエクストラデッキの表側表示のPモンスターの数×300ダメージを相手に与える。
【モンスター効果】
1:1ターンに1度、自分のエクストラデッキからモンスター1体を除外し、自分または相手のPゾーンのカード1枚を対象として発動できる。
そのカードを破壊し、相手に300ダメージを与える。
local s, id, o = GetID()
function s.initial_effect(c)
	aux.EnablePendulumAttribute(c)
	--Damage
	local e1 = Effect.CreateEffect(c)
	e1:SetDescription(aux.Stringid(id, 0))
	e1:SetCategory(CATEGORY_DAMAGE)
	e1:SetType(EFFECT_TYPE_IGNITION)
	e1:SetRange(LOCATION_PZONE)
	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e1:SetCountLimit(1, id)
	e1:SetCost(s.dmcost)
	e1:SetTarget(s.dmtg)
	e1:SetOperation(s.dmop)
	c:RegisterEffect(e1)
	--Destroy & Damage
	local e2 = Effect.CreateEffect(c)
	e2:SetDescription(aux.Stringid(id, 1))
	e2:SetCategory(CATEGORY_DESTROY + CATEGORY_DAMAGE)
	e2:SetType(EFFECT_TYPE_IGNITION)
	e2:SetRange(LOCATION_MZONE)
	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
	e2:SetCountLimit(1)
	e2:SetCost(s.descost)
	e2:SetTarget(s.destg)
	e2:SetOperation(s.desop)
	c:RegisterEffect(e2)
	Duel.AddCustomActivityCounter(id, ACTIVITY_SPSUMMON, s.counterfilter)
end
function s.counterfilter(c)
	return not c:IsSummonType(SUMMON_TYPE_PENDULUM)
end
function s.dmcost(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.GetCustomActivityCount(id, tp, ACTIVITY_SPSUMMON) == 0
	end
	local e1 = Effect.CreateEffect(e:GetHandler())
	e1:SetType(EFFECT_TYPE_FIELD)
	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET + EFFECT_FLAG_OATH)
	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
	e1:SetReset(RESET_PHASE + PHASE_END)
	e1:SetTargetRange(1, 0)
	e1:SetTarget(s.splimit)
	Duel.RegisterEffect(e1, tp)
end
function s.splimit(e, c, sump, sumtype, sumpos, targetp, se)
	return bit.band(sumtype, SUMMON_TYPE_PENDULUM) == SUMMON_TYPE_PENDULUM
end
function s.dmfilter(c)
	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
end
function s.dmtg(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.IsExistingMatchingCard(s.dmfilter, tp, LOCATION_EXTRA, 0, 1, nil)
	end
	local dam = Duel.GetMatchingGroupCount(s.dmfilter, tp, LOCATION_EXTRA, 0, nil) * 300
	Duel.SetTargetPlayer(1 - tp)
	Duel.SetTargetParam(dam)
	Duel.SetOperationInfo(0, CATEGORY_DAMAGE, nil, 0, 1 - tp, dam)
end
function s.dmop(e, tp, eg, ep, ev, re, r, rp)
	local p = Duel.GetChainInfo(0, CHAININFO_TARGET_PLAYER)
	local d = Duel.GetMatchingGroupCount(s.dmfilter, tp, LOCATION_EXTRA, 0, nil) * 300
	Duel.Damage(p, d, REASON_EFFECT)
end
function s.descost(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost, tp, LOCATION_EXTRA, 0, 1, nil)
	end
	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_REMOVE)
	local g = Duel.SelectMatchingCard(tp, Card.IsAbleToRemoveAsCost, tp, LOCATION_EXTRA, 0, 1, 1, nil)
	Duel.Remove(g, POS_FACEUP, REASON_COST)
end
function s.destg(e, tp, eg, ep, ev, re, r, rp, chk, chkc)
	if chkc then
		return chkc:IsLocation(LOCATION_PZONE)
	end
	if chk == 0 then
		return Duel.IsExistingTarget(nil, tp, LOCATION_PZONE, LOCATION_PZONE, 1, nil)
	end
	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_DESTROY)
	local g = Duel.SelectTarget(tp, nil, tp, LOCATION_PZONE, LOCATION_PZONE, 1, 1, nil)
	Duel.SetOperationInfo(0, CATEGORY_DESTROY, g, 1, 0, 0)
	Duel.SetOperationInfo(0, CATEGORY_DAMAGE, nil, 0, 1 - tp, 300)
end
function s.desop(e, tp, eg, ep, ev, re, r, rp)
	local tc = Duel.GetFirstTarget()
	if tc:IsRelateToEffect(e) and Duel.Destroy(tc, REASON_EFFECT) ~= 0 then
		Duel.Damage(1 - tp, 300, REASON_EFFECT)
	end
end


EMエクストラ・シューター
【Pスケール:青6/赤6】
「EMエクストラ・シューター」のP効果は1ターンに1度しか使用できず、この効果を発動するターン、自分はP召喚できない。
1:自分メインフェイズに発動できる。
自分のエクストラデッキの表側表示のPモンスターの数×300ダメージを相手に与える。
【モンスター効果】
1:1ターンに1度、自分のエクストラデッキからモンスター1体を除外し、自分または相手のPゾーンのカード1枚を対象として発動できる。
そのカードを破壊し、相手に300ダメージを与える。
-- EMエクストラ・シューター
local s, id, o = GetID()
function s.initial_effect(c)
	aux.EnablePendulumAttribute(c)
	--Damage
	local e1 = Effect.CreateEffect(c)
	e1:SetDescription(aux.Stringid(id, 0))
	e1:SetCategory(CATEGORY_DAMAGE)
	e1:SetType(EFFECT_TYPE_IGNITION)
	e1:SetRange(LOCATION_PZONE)
	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e1:SetCountLimit(1, id)
	e1:SetCost(s.dmcost)
	e1:SetTarget(s.dmtg)
	e1:SetOperation(s.dmop)
	c:RegisterEffect(e1)
	--Destroy & Damage
	local e2 = Effect.CreateEffect(c)
	e2:SetDescription(aux.Stringid(id, 1))
	e2:SetCategory(CATEGORY_DESTROY + CATEGORY_DAMAGE)
	e2:SetType(EFFECT_TYPE_IGNITION)
	e2:SetRange(LOCATION_MZONE)
	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
	e2:SetCountLimit(1)
	e2:SetCost(s.descost)
	e2:SetTarget(s.destg)
	e2:SetOperation(s.desop)
	c:RegisterEffect(e2)
	Duel.AddCustomActivityCounter(id, ACTIVITY_SPSUMMON, s.counterfilter)
end
function s.counterfilter(c)
	return not c:IsSummonType(SUMMON_TYPE_PENDULUM)
end
function s.dmcost(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.GetCustomActivityCount(id, tp, ACTIVITY_SPSUMMON) == 0
	end
	local e1 = Effect.CreateEffect(e:GetHandler())
	e1:SetType(EFFECT_TYPE_FIELD)
	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET + EFFECT_FLAG_OATH)
	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
	e1:SetReset(RESET_PHASE + PHASE_END)
	e1:SetTargetRange(1, 0)
	e1:SetTarget(s.splimit)
	Duel.RegisterEffect(e1, tp)
end
function s.splimit(e, c, sump, sumtype, sumpos, targetp, se)
	return bit.band(sumtype, SUMMON_TYPE_PENDULUM) == SUMMON_TYPE_PENDULUM
end
function s.dmfilter(c)
	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
end
function s.dmtg(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.IsExistingMatchingCard(s.dmfilter, tp, LOCATION_EXTRA, 0, 1, nil)
	end
	local dam = Duel.GetMatchingGroupCount(s.dmfilter, tp, LOCATION_EXTRA, 0, nil) * 300
	Duel.SetTargetPlayer(1 - tp)
	Duel.SetTargetParam(dam)
	Duel.SetOperationInfo(0, CATEGORY_DAMAGE, nil, 0, 1 - tp, dam)
end
function s.dmop(e, tp, eg, ep, ev, re, r, rp)
	local p = Duel.GetChainInfo(0, CHAININFO_TARGET_PLAYER)
	local d = Duel.GetMatchingGroupCount(s.dmfilter, tp, LOCATION_EXTRA, 0, nil) * 300
	Duel.Damage(p, d, REASON_EFFECT)
end
function s.descost(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost, tp, LOCATION_EXTRA, 0, 1, nil)
	end
	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_REMOVE)
	local g = Duel.SelectMatchingCard(tp, Card.IsAbleToRemoveAsCost, tp, LOCATION_EXTRA, 0, 1, 1, nil)
	Duel.Remove(g, POS_FACEUP, REASON_COST)
end
function s.destg(e, tp, eg, ep, ev, re, r, rp, chk, chkc)
	if chkc then
		return chkc:IsLocation(LOCATION_PZONE)
	end
	if chk == 0 then
		return Duel.IsExistingTarget(nil, tp, LOCATION_PZONE, LOCATION_PZONE, 1, nil)
	end
	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_DESTROY)
	local g = Duel.SelectTarget(tp, nil, tp, LOCATION_PZONE, LOCATION_PZONE, 1, 1, nil)
	Duel.SetOperationInfo(0, CATEGORY_DESTROY, g, 1, 0, 0)
	Duel.SetOperationInfo(0, CATEGORY_DAMAGE, nil, 0, 1 - tp, 300)
end
function s.desop(e, tp, eg, ep, ev, re, r, rp)
	local tc = Duel.GetFirstTarget()
	if tc:IsRelateToEffect(e) and Duel.Destroy(tc, REASON_EFFECT) ~= 0 then
		Duel.Damage(1 - tp, 300, REASON_EFFECT)
	end
end

