アルカナフォースVI-THE
このカードが召喚・反転召喚・特殊召喚に成功した時、コイントスを1回行い以下の効果を得る。
●表:「アルカナフォース」と名のついたモンスターを生け贄召喚する場合、このモンスター1体で2体分の生け贄とする事ができる。
●裏:「アルカナフォース」と名のついたモンスターを生け贄召喚する事はできない。
local SETCARD_ID_0 = 0x5 --アルカナフォース

local SETCARD_ID_0 = 0x5 --アルカナフォース
local s, id, o = GetID()
function s.initial_effect(c)
	--coin
	aux.EnableArcanaCoin(c, EVENT_SUMMON_SUCCESS, EVENT_FLIP_SUMMON_SUCCESS, EVENT_SPSUMMON_SUCCESS)
	--coin effect
	local e1 = Effect.CreateEffect(c)
	e1:SetType(EFFECT_TYPE_SINGLE)
	e1:SetCode(EFFECT_DOUBLE_TRIBUTE)
	e1:SetCondition(s.dtcon)
	e1:SetValue(s.dtval)
	c:RegisterEffect(e1)
	--
	local e2 = Effect.CreateEffect(c)
	e2:SetType(EFFECT_TYPE_FIELD)
	e2:SetRange(LOCATION_MZONE)
	e2:SetCode(EFFECT_CANNOT_SUMMON)
	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e2:SetTargetRange(1, 1)
	e2:SetCondition(s.sumcon)
	e2:SetTarget(s.sumtg)
	c:RegisterEffect(e2)
	local e3 = e2:Clone()
	e3:SetCode(EFFECT_CANNOT_MSET)
	c:RegisterEffect(e3)
end
function s.dtcon(e)
	return e:GetHandler():GetFlagEffectLabel(FLAG_ID_ARCANA_COIN) == 1
end
function s.dtval(e, c)
	return c:IsSetCard(SETCARD_ID_0)
end
function s.sumcon(e)
	return e:GetHandler():GetFlagEffectLabel(FLAG_ID_ARCANA_COIN) == 0
end
function s.sumtg(e, c, tp, sumtp)
	return bit.band(sumtp, SUMMON_TYPE_ADVANCE) == SUMMON_TYPE_ADVANCE and c:IsSetCard(SETCARD_ID_0)
end


アルカナフォースVI-THE
このカードが召喚・反転召喚・特殊召喚に成功した時、コイントスを1回行い以下の効果を得る。
●表:「アルカナフォース」と名のついたモンスターを生け贄召喚する場合、このモンスター1体で2体分の生け贄とする事ができる。
●裏:「アルカナフォース」と名のついたモンスターを生け贄召喚する事はできない。
-- アルカナフォースVI-THE
local SETCARD_ID_0 = 0x5 --アルカナフォース
local s, id, o = GetID()
function s.initial_effect(c)
	--coin
	aux.EnableArcanaCoin(c, EVENT_SUMMON_SUCCESS, EVENT_FLIP_SUMMON_SUCCESS, EVENT_SPSUMMON_SUCCESS)
	--coin effect
	local e1 = Effect.CreateEffect(c)
	e1:SetType(EFFECT_TYPE_SINGLE)
	e1:SetCode(EFFECT_DOUBLE_TRIBUTE)
	e1:SetCondition(s.dtcon)
	e1:SetValue(s.dtval)
	c:RegisterEffect(e1)
	--
	local e2 = Effect.CreateEffect(c)
	e2:SetType(EFFECT_TYPE_FIELD)
	e2:SetRange(LOCATION_MZONE)
	e2:SetCode(EFFECT_CANNOT_SUMMON)
	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e2:SetTargetRange(1, 1)
	e2:SetCondition(s.sumcon)
	e2:SetTarget(s.sumtg)
	c:RegisterEffect(e2)
	local e3 = e2:Clone()
	e3:SetCode(EFFECT_CANNOT_MSET)
	c:RegisterEffect(e3)
end
function s.dtcon(e)
	return e:GetHandler():GetFlagEffectLabel(FLAG_ID_ARCANA_COIN) == 1
end
function s.dtval(e, c)
	return c:IsSetCard(SETCARD_ID_0)
end
function s.sumcon(e)
	return e:GetHandler():GetFlagEffectLabel(FLAG_ID_ARCANA_COIN) == 0
end
function s.sumtg(e, c, tp, sumtp)
	return bit.band(sumtp, SUMMON_TYPE_ADVANCE) == SUMMON_TYPE_ADVANCE and c:IsSetCard(SETCARD_ID_0)
end

