name: ヴェルスパーダ・パラディオン
card_text: 「パラディオン」モンスターを含む効果モンスター2体
  1:このカードの攻撃力は、このカードのリンク先のモンスターの元々の攻撃力分アップする。
  2:このカードのリンク先のモンスターは攻撃できない。
  3:1ターンに1度、このカードのリンク先に効果モンスターが特殊召喚された場合、このカード以外の自分または相手のメインモンスターゾーンのモンスター1体を対象として発動できる。
  そのモンスターの位置を、他のメインモンスターゾーンに移動する(そのモンスターから見て相手のフィールドには移動できない)。
lua: local s, id, o = GetID()
  function s.initial_effect(c)
  	--link summon
  	c:EnableReviveLimit()
  	aux.AddLinkProcedure(c, aux.FilterBoolFunction(Card.IsLinkType, TYPE_EFFECT), 2, 99, s.matcheck)
  	--atk up
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE)
  	e1:SetCode(EFFECT_UPDATE_ATTACK)
  	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
  	e1:SetRange(LOCATION_MZONE)
  	e1:SetValue(s.atkval)
  	c:RegisterEffect(e1)
  	--cannot attack
  	local e2 = Effect.CreateEffect(c)
  	e2:SetType(EFFECT_TYPE_FIELD)
  	e2:SetCode(EFFECT_CANNOT_ATTACK)
  	e2:SetRange(LOCATION_MZONE)
  	e2:SetTargetRange(LOCATION_MZONE, LOCATION_MZONE)
  	e2:SetTarget(s.atklimit)
  	c:RegisterEffect(e2)
  	--move
  	local e3 = Effect.CreateEffect(c)
  	e3:SetDescription(aux.Stringid(id, 0))
  	e3:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_TRIGGER_O)
  	e3:SetProperty(EFFECT_FLAG_DELAY + EFFECT_FLAG_CARD_TARGET)
  	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
  	e3:SetRange(LOCATION_MZONE)
  	e3:SetCountLimit(1)
  	e3:SetCondition(s.seqcon)
  	e3:SetTarget(s.seqtg)
  	e3:SetOperation(s.seqop)
  	c:RegisterEffect(e3)
  end
  function s.matcheck(g)
  	return g:IsExists(Card.IsLinkSetCard, 1, nil, 0x116)
  end
  function s.atkval(e, c)
  	local g = e:GetHandler():GetLinkedGroup():Filter(Card.IsFaceup, nil)
  	return g:GetSum(Card.GetBaseAttack)
  end
  function s.atklimit(e, c)
  	return e:GetHandler():GetLinkedGroup():IsContains(c)
  end
  function s.seqcfilter(c, tp, lg)
  	return c:IsType(TYPE_EFFECT) and lg:IsContains(c)
  end
  function s.seqcon(e, tp, eg, ep, ev, re, r, rp)
  	local lg = e:GetHandler():GetLinkedGroup()
  	return eg:IsExists(s.seqcfilter, 1, nil, tp, lg)
  end
  function s.seqfilter(c)
  	local tp = c:GetControler()
  	return c:GetSequence() < 5 and Duel.GetLocationCount(tp, LOCATION_MZONE, PLAYER_NONE, 0) > 0
  end
  function s.seqtg(e, tp, eg, ep, ev, re, r, rp, chk, chkc)
  	local c = e:GetHandler()
  	if chkc then
  		return chkc:IsLocation(LOCATION_MZONE) and s.seqfilter(chkc) and chkc ~= c
  	end
  	if chk == 0 then
  		return Duel.IsExistingTarget(s.seqfilter, tp, LOCATION_MZONE, LOCATION_MZONE, 1, c)
  	end
  	Duel.Hint(HINT_SELECTMSG, tp, aux.Stringid(id, 1))
  	Duel.SelectTarget(tp, s.seqfilter, tp, LOCATION_MZONE, LOCATION_MZONE, 1, 1, c)
  end
  function s.seqop(e, tp, eg, ep, ev, re, r, rp)
  	local tc = Duel.GetFirstTarget()
  	local ttp = tc:GetControler()
  	if not tc:IsRelateToEffect(e) or tc:IsImmuneToEffect(e) or Duel.GetLocationCount(ttp, LOCATION_MZONE, PLAYER_NONE, 0) <= 0 then
  		return
  	end
  	local p1, p2
  	if tc:IsControler(tp) then
  		p1 = LOCATION_MZONE
  		p2 = 0
  	else
  		p1 = 0
  		p2 = LOCATION_MZONE
  	end
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOZONE)
  	local seq = math.log(Duel.SelectDisableField(tp, 1, p1, p2, 0), 2)
  	if tc:IsControler(1 - tp) then
  		seq = seq - 16
  	end
  	Duel.MoveSequence(tc, seq)
  end
  
  
source_text: ヴェルスパーダ・パラディオン
  「パラディオン」モンスターを含む効果モンスター2体
  1:このカードの攻撃力は、このカードのリンク先のモンスターの元々の攻撃力分アップする。
  2:このカードのリンク先のモンスターは攻撃できない。
  3:1ターンに1度、このカードのリンク先に効果モンスターが特殊召喚された場合、このカード以外の自分または相手のメインモンスターゾーンのモンスター1体を対象として発動できる。
  そのモンスターの位置を、他のメインモンスターゾーンに移動する(そのモンスターから見て相手のフィールドには移動できない)。
target_text: -- ヴェルスパーダ・パラディオン
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--link summon
  	c:EnableReviveLimit()
  	aux.AddLinkProcedure(c, aux.FilterBoolFunction(Card.IsLinkType, TYPE_EFFECT), 2, 99, s.matcheck)
  	--atk up
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE)
  	e1:SetCode(EFFECT_UPDATE_ATTACK)
  	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
  	e1:SetRange(LOCATION_MZONE)
  	e1:SetValue(s.atkval)
  	c:RegisterEffect(e1)
  	--cannot attack
  	local e2 = Effect.CreateEffect(c)
  	e2:SetType(EFFECT_TYPE_FIELD)
  	e2:SetCode(EFFECT_CANNOT_ATTACK)
  	e2:SetRange(LOCATION_MZONE)
  	e2:SetTargetRange(LOCATION_MZONE, LOCATION_MZONE)
  	e2:SetTarget(s.atklimit)
  	c:RegisterEffect(e2)
  	--move
  	local e3 = Effect.CreateEffect(c)
  	e3:SetDescription(aux.Stringid(id, 0))
  	e3:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_TRIGGER_O)
  	e3:SetProperty(EFFECT_FLAG_DELAY + EFFECT_FLAG_CARD_TARGET)
  	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
  	e3:SetRange(LOCATION_MZONE)
  	e3:SetCountLimit(1)
  	e3:SetCondition(s.seqcon)
  	e3:SetTarget(s.seqtg)
  	e3:SetOperation(s.seqop)
  	c:RegisterEffect(e3)
  end
  function s.matcheck(g)
  	return g:IsExists(Card.IsLinkSetCard, 1, nil, 0x116)
  end
  function s.atkval(e, c)
  	local g = e:GetHandler():GetLinkedGroup():Filter(Card.IsFaceup, nil)
  	return g:GetSum(Card.GetBaseAttack)
  end
  function s.atklimit(e, c)
  	return e:GetHandler():GetLinkedGroup():IsContains(c)
  end
  function s.seqcfilter(c, tp, lg)
  	return c:IsType(TYPE_EFFECT) and lg:IsContains(c)
  end
  function s.seqcon(e, tp, eg, ep, ev, re, r, rp)
  	local lg = e:GetHandler():GetLinkedGroup()
  	return eg:IsExists(s.seqcfilter, 1, nil, tp, lg)
  end
  function s.seqfilter(c)
  	local tp = c:GetControler()
  	return c:GetSequence() < 5 and Duel.GetLocationCount(tp, LOCATION_MZONE, PLAYER_NONE, 0) > 0
  end
  function s.seqtg(e, tp, eg, ep, ev, re, r, rp, chk, chkc)
  	local c = e:GetHandler()
  	if chkc then
  		return chkc:IsLocation(LOCATION_MZONE) and s.seqfilter(chkc) and chkc ~= c
  	end
  	if chk == 0 then
  		return Duel.IsExistingTarget(s.seqfilter, tp, LOCATION_MZONE, LOCATION_MZONE, 1, c)
  	end
  	Duel.Hint(HINT_SELECTMSG, tp, aux.Stringid(id, 1))
  	Duel.SelectTarget(tp, s.seqfilter, tp, LOCATION_MZONE, LOCATION_MZONE, 1, 1, c)
  end
  function s.seqop(e, tp, eg, ep, ev, re, r, rp)
  	local tc = Duel.GetFirstTarget()
  	local ttp = tc:GetControler()
  	if not tc:IsRelateToEffect(e) or tc:IsImmuneToEffect(e) or Duel.GetLocationCount(ttp, LOCATION_MZONE, PLAYER_NONE, 0) <= 0 then
  		return
  	end
  	local p1, p2
  	if tc:IsControler(tp) then
  		p1 = LOCATION_MZONE
  		p2 = 0
  	else
  		p1 = 0
  		p2 = LOCATION_MZONE
  	end
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOZONE)
  	local seq = math.log(Duel.SelectDisableField(tp, 1, p1, p2, 0), 2)
  	if tc:IsControler(1 - tp) then
  		seq = seq - 16
  	end
  	Duel.MoveSequence(tc, seq)
  end
  
  