Crusadia
2 Effect Monsters, including a "Crusadia" monster
Gains ATK equal to the original ATK of any monster this card points to. A monster this card points to cannot attack. Once per turn, if an Effect Monster is Special Summoned to a zone this card points to (except during the Damage Step): You can target 1 monster in either player's Main Monster Zone, except this card; move it to another Main Monster Zone on its controller's field.
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


Crusadia
2 Effect Monsters, including a "Crusadia" monster
Gains ATK equal to the original ATK of any monster this card points to. A monster this card points to cannot attack. Once per turn, if an Effect Monster is Special Summoned to a zone this card points to (except during the Damage Step): You can target 1 monster in either player's Main Monster Zone, except this card; move it to another Main Monster Zone on its controller's field.
-- Crusadia
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

