傀儡葬儀-パペット・パレード
このカード名のカードは1ターンに1枚しか発動できない。
1:相手フィールドのモンスターの数が自分フィールドのモンスターより多い場合、その差の数までデッキから「ギミック・パペット」モンスターを特殊召喚する(同名カードは1枚まで)。
自分のLPが相手より2000以上少ない場合、さらにデッキから「RUM」通常魔法カード1枚を選んで自分の魔法&罠ゾーンにセットできる。
このカードの発動後、ターン終了時まで自分は「ギミック・パペット」モンスターしか特殊召喚できない。
local CARD_ID_0 = 59822133 --青眼の精霊龍
local SETCARD_ID_0 = 0x95 --RUM
local SETCARD_ID_1 = 0x1083 --ギミック・パペット

local CARD_ID_0 = 59822133 --青眼の精霊龍
local SETCARD_ID_0 = 0x95 --RUM
local SETCARD_ID_1 = 0x1083 --ギミック・パペット
local s, id, o = GetID()
function s.initial_effect(c)
	--Activate
	local e1 = Effect.CreateEffect(c)
	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
	e1:SetType(EFFECT_TYPE_ACTIVATE)
	e1:SetCode(EVENT_FREE_CHAIN)
	e1:SetCountLimit(1, id + EFFECT_COUNT_CODE_OATH)
	e1:SetHintTiming(0, TIMING_END_PHASE)
	e1:SetTarget(s.target)
	e1:SetOperation(s.activate)
	c:RegisterEffect(e1)
end
function s.spfilter(c, e, tp)
	return c:IsSetCard(SETCARD_ID_1) and c:IsCanBeSpecialSummoned(e, 0, tp, false, false)
end
function s.target(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.GetLocationCount(tp, LOCATION_MZONE) > 0
			and Duel.GetFieldGroupCount(tp, LOCATION_MZONE, 0) < Duel.GetFieldGroupCount(tp, 0, LOCATION_MZONE)
			and Duel.IsExistingMatchingCard(s.spfilter, tp, LOCATION_DECK, 0, 1, nil, e, tp)
	end
	Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, nil, 1, tp, LOCATION_DECK)
end
function s.setfilter(c)
	return c:IsSetCard(SETCARD_ID_1) and c:GetType() == TYPE_SPELL and c:IsSSetable()
end
function s.activate(e, tp, eg, ep, ev, re, r, rp)
	local ft = Duel.GetLocationCount(tp, LOCATION_MZONE)
	local ct = Duel.GetFieldGroupCount(tp, 0, LOCATION_MZONE) - Duel.GetFieldGroupCount(tp, LOCATION_MZONE, 0)
	if ft > 0 and ct > 0 then
		if Duel.IsPlayerAffectedByEffect(tp, CARD_ID_0) then
			ft = 1
		end
		ct = math.min(ct, ft)
		local g = Duel.GetMatchingGroup(s.spfilter, tp, LOCATION_DECK, 0, nil, e, tp)
		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SPSUMMON)
		local sg = g:SelectSubGroup(tp, aux.dncheck, false, 1, ct)
		if
			sg
			and Duel.SpecialSummon(sg, 0, tp, tp, false, false, POS_FACEUP) > 0
			and Duel.GetLP(tp) <= Duel.GetLP(1 - tp) - 2000
			and Duel.IsExistingMatchingCard(s.setfilter, tp, LOCATION_DECK, 0, 1, nil)
			and Duel.SelectYesNo(tp, aux.Stringid(id, 0))
		then
			Duel.BreakEffect()
			Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SET)
			local tg = Duel.SelectMatchingCard(tp, s.setfilter, tp, LOCATION_DECK, 0, 1, 1, nil)
			Duel.SSet(tp, tg)
		end
	end
	if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then
		return
	end
	local e1 = Effect.CreateEffect(e:GetHandler())
	e1:SetType(EFFECT_TYPE_FIELD)
	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e1:SetTargetRange(1, 0)
	e1:SetTarget(s.splimit)
	e1:SetReset(RESET_PHASE + PHASE_END)
	Duel.RegisterEffect(e1, tp)
end
function s.splimit(e, c)
	return not c:IsSetCard(SETCARD_ID_1)
end


傀儡葬儀-パペット・パレード
このカード名のカードは1ターンに1枚しか発動できない。
1:相手フィールドのモンスターの数が自分フィールドのモンスターより多い場合、その差の数までデッキから「ギミック・パペット」モンスターを特殊召喚する(同名カードは1枚まで)。
自分のLPが相手より2000以上少ない場合、さらにデッキから「RUM」通常魔法カード1枚を選んで自分の魔法&罠ゾーンにセットできる。
このカードの発動後、ターン終了時まで自分は「ギミック・パペット」モンスターしか特殊召喚できない。
-- 傀儡葬儀-パペット・パレード
local CARD_ID_0 = 59822133 --青眼の精霊龍
local SETCARD_ID_0 = 0x95 --RUM
local SETCARD_ID_1 = 0x1083 --ギミック・パペット
local s, id, o = GetID()
function s.initial_effect(c)
	--Activate
	local e1 = Effect.CreateEffect(c)
	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
	e1:SetType(EFFECT_TYPE_ACTIVATE)
	e1:SetCode(EVENT_FREE_CHAIN)
	e1:SetCountLimit(1, id + EFFECT_COUNT_CODE_OATH)
	e1:SetHintTiming(0, TIMING_END_PHASE)
	e1:SetTarget(s.target)
	e1:SetOperation(s.activate)
	c:RegisterEffect(e1)
end
function s.spfilter(c, e, tp)
	return c:IsSetCard(SETCARD_ID_1) and c:IsCanBeSpecialSummoned(e, 0, tp, false, false)
end
function s.target(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.GetLocationCount(tp, LOCATION_MZONE) > 0
			and Duel.GetFieldGroupCount(tp, LOCATION_MZONE, 0) < Duel.GetFieldGroupCount(tp, 0, LOCATION_MZONE)
			and Duel.IsExistingMatchingCard(s.spfilter, tp, LOCATION_DECK, 0, 1, nil, e, tp)
	end
	Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, nil, 1, tp, LOCATION_DECK)
end
function s.setfilter(c)
	return c:IsSetCard(SETCARD_ID_1) and c:GetType() == TYPE_SPELL and c:IsSSetable()
end
function s.activate(e, tp, eg, ep, ev, re, r, rp)
	local ft = Duel.GetLocationCount(tp, LOCATION_MZONE)
	local ct = Duel.GetFieldGroupCount(tp, 0, LOCATION_MZONE) - Duel.GetFieldGroupCount(tp, LOCATION_MZONE, 0)
	if ft > 0 and ct > 0 then
		if Duel.IsPlayerAffectedByEffect(tp, CARD_ID_0) then
			ft = 1
		end
		ct = math.min(ct, ft)
		local g = Duel.GetMatchingGroup(s.spfilter, tp, LOCATION_DECK, 0, nil, e, tp)
		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SPSUMMON)
		local sg = g:SelectSubGroup(tp, aux.dncheck, false, 1, ct)
		if
			sg
			and Duel.SpecialSummon(sg, 0, tp, tp, false, false, POS_FACEUP) > 0
			and Duel.GetLP(tp) <= Duel.GetLP(1 - tp) - 2000
			and Duel.IsExistingMatchingCard(s.setfilter, tp, LOCATION_DECK, 0, 1, nil)
			and Duel.SelectYesNo(tp, aux.Stringid(id, 0))
		then
			Duel.BreakEffect()
			Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SET)
			local tg = Duel.SelectMatchingCard(tp, s.setfilter, tp, LOCATION_DECK, 0, 1, 1, nil)
			Duel.SSet(tp, tg)
		end
	end
	if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then
		return
	end
	local e1 = Effect.CreateEffect(e:GetHandler())
	e1:SetType(EFFECT_TYPE_FIELD)
	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e1:SetTargetRange(1, 0)
	e1:SetTarget(s.splimit)
	e1:SetReset(RESET_PHASE + PHASE_END)
	Duel.RegisterEffect(e1, tp)
end
function s.splimit(e, c)
	return not c:IsSetCard(SETCARD_ID_1)
end

