クリアー・ヴィシャス・ナイト
このカードは「クリアー・ワールド」のカード名が記されたモンスター1体をリリースしてアドバンス召喚できる。
1:このカードの攻撃力は、相手フィールドのモンスターの一番高い元々の攻撃力分アップする。
2:このカードがモンスターゾーンに存在する限り、自分に「クリアー・ワールド」の効果は適用されない。
3:アドバンス召喚したこのカードがモンスターゾーンに存在する限り、相手はこのカードより低い攻撃力を持つフィールドの特殊召喚されたモンスターの効果を発動できない。
local CARD_ID_0 = 33900648 --クリアー・ワールド

local CARD_ID_0 = 33900648 --クリアー・ワールド
local s, id, o = GetID()
function s.initial_effect(c)
	aux.AddCodeList(c, CARD_ID_0)
	--summon proc
	local e1 = Effect.CreateEffect(c)
	e1:SetDescription(aux.Stringid(id, 0))
	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_UNCOPYABLE)
	e1:SetType(EFFECT_TYPE_SINGLE)
	e1:SetCode(EFFECT_SUMMON_PROC)
	e1:SetCondition(s.otcon)
	e1:SetOperation(s.otop)
	e1:SetValue(SUMMON_TYPE_ADVANCE)
	c:RegisterEffect(e1)
	local e2 = e1:Clone()
	e2:SetCode(EFFECT_SET_PROC)
	c:RegisterEffect(e2)
	--atk
	local e3 = Effect.CreateEffect(c)
	e3:SetType(EFFECT_TYPE_SINGLE)
	e3:SetCode(EFFECT_UPDATE_ATTACK)
	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE, EFFECT_FLAG2_WICKED)
	e3:SetRange(LOCATION_MZONE)
	e3:SetValue(s.adval)
	c:RegisterEffect(e3)
	--unaffected
	local e4 = Effect.CreateEffect(c)
	e4:SetType(EFFECT_TYPE_FIELD)
	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e4:SetRange(LOCATION_MZONE)
	e4:SetTargetRange(1, 0)
	e4:SetCode(97811903)
	c:RegisterEffect(e4)
	--cannot activate
	local e5 = Effect.CreateEffect(c)
	e5:SetType(EFFECT_TYPE_FIELD)
	e5:SetCode(EFFECT_CANNOT_ACTIVATE)
	e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e5:SetRange(LOCATION_MZONE)
	e5:SetTargetRange(0, 1)
	e5:SetCondition(s.thcon)
	e5:SetValue(s.limval)
	c:RegisterEffect(e5)
end
function s.otfilter(c)
	return aux.IsCodeListed(c, CARD_ID_0)
end
function s.otcon(e, c, minc)
	if c == nil then
		return true
	end
	local mg = Duel.GetMatchingGroup(s.otfilter, 0, LOCATION_MZONE, LOCATION_MZONE, nil)
	return c:IsLevelAbove(7) and minc <= 1 and Duel.CheckTribute(c, 1, 1, mg)
end
function s.otop(e, tp, eg, ep, ev, re, r, rp, c)
	local mg = Duel.GetMatchingGroup(s.otfilter, 0, LOCATION_MZONE, LOCATION_MZONE, nil)
	local sg = Duel.SelectTribute(tp, c, 1, 1, mg)
	c:SetMaterial(sg)
	Duel.Release(sg, REASON_SUMMON + REASON_MATERIAL)
end
function s.adval(e, c)
	local g = Duel.GetMatchingGroup(Card.IsFaceup, e:GetOwnerPlayer(), 0, LOCATION_MZONE, nil)
	if g:GetCount() == 0 then
		return 0
	else
		local tg, val = g:GetMaxGroup(Card.GetBaseAttack)
		return val
	end
end
function s.thcon(e, tp, eg, ep, ev, re, r, rp)
	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
end
function s.limval(e, re, rp)
	local rc = re:GetHandler()
	return rc:IsLocation(LOCATION_MZONE) and re:IsActiveType(TYPE_MONSTER) and rc:IsSummonType(SUMMON_TYPE_SPECIAL) and rc:GetAttack() < e:GetHandler():GetAttack()
end


クリアー・ヴィシャス・ナイト
このカードは「クリアー・ワールド」のカード名が記されたモンスター1体をリリースしてアドバンス召喚できる。
1:このカードの攻撃力は、相手フィールドのモンスターの一番高い元々の攻撃力分アップする。
2:このカードがモンスターゾーンに存在する限り、自分に「クリアー・ワールド」の効果は適用されない。
3:アドバンス召喚したこのカードがモンスターゾーンに存在する限り、相手はこのカードより低い攻撃力を持つフィールドの特殊召喚されたモンスターの効果を発動できない。
-- クリアー・ヴィシャス・ナイト
local CARD_ID_0 = 33900648 --クリアー・ワールド
local s, id, o = GetID()
function s.initial_effect(c)
	aux.AddCodeList(c, CARD_ID_0)
	--summon proc
	local e1 = Effect.CreateEffect(c)
	e1:SetDescription(aux.Stringid(id, 0))
	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_UNCOPYABLE)
	e1:SetType(EFFECT_TYPE_SINGLE)
	e1:SetCode(EFFECT_SUMMON_PROC)
	e1:SetCondition(s.otcon)
	e1:SetOperation(s.otop)
	e1:SetValue(SUMMON_TYPE_ADVANCE)
	c:RegisterEffect(e1)
	local e2 = e1:Clone()
	e2:SetCode(EFFECT_SET_PROC)
	c:RegisterEffect(e2)
	--atk
	local e3 = Effect.CreateEffect(c)
	e3:SetType(EFFECT_TYPE_SINGLE)
	e3:SetCode(EFFECT_UPDATE_ATTACK)
	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE, EFFECT_FLAG2_WICKED)
	e3:SetRange(LOCATION_MZONE)
	e3:SetValue(s.adval)
	c:RegisterEffect(e3)
	--unaffected
	local e4 = Effect.CreateEffect(c)
	e4:SetType(EFFECT_TYPE_FIELD)
	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e4:SetRange(LOCATION_MZONE)
	e4:SetTargetRange(1, 0)
	e4:SetCode(97811903)
	c:RegisterEffect(e4)
	--cannot activate
	local e5 = Effect.CreateEffect(c)
	e5:SetType(EFFECT_TYPE_FIELD)
	e5:SetCode(EFFECT_CANNOT_ACTIVATE)
	e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
	e5:SetRange(LOCATION_MZONE)
	e5:SetTargetRange(0, 1)
	e5:SetCondition(s.thcon)
	e5:SetValue(s.limval)
	c:RegisterEffect(e5)
end
function s.otfilter(c)
	return aux.IsCodeListed(c, CARD_ID_0)
end
function s.otcon(e, c, minc)
	if c == nil then
		return true
	end
	local mg = Duel.GetMatchingGroup(s.otfilter, 0, LOCATION_MZONE, LOCATION_MZONE, nil)
	return c:IsLevelAbove(7) and minc <= 1 and Duel.CheckTribute(c, 1, 1, mg)
end
function s.otop(e, tp, eg, ep, ev, re, r, rp, c)
	local mg = Duel.GetMatchingGroup(s.otfilter, 0, LOCATION_MZONE, LOCATION_MZONE, nil)
	local sg = Duel.SelectTribute(tp, c, 1, 1, mg)
	c:SetMaterial(sg)
	Duel.Release(sg, REASON_SUMMON + REASON_MATERIAL)
end
function s.adval(e, c)
	local g = Duel.GetMatchingGroup(Card.IsFaceup, e:GetOwnerPlayer(), 0, LOCATION_MZONE, nil)
	if g:GetCount() == 0 then
		return 0
	else
		local tg, val = g:GetMaxGroup(Card.GetBaseAttack)
		return val
	end
end
function s.thcon(e, tp, eg, ep, ev, re, r, rp)
	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
end
function s.limval(e, re, rp)
	local rc = re:GetHandler()
	return rc:IsLocation(LOCATION_MZONE) and re:IsActiveType(TYPE_MONSTER) and rc:IsSummonType(SUMMON_TYPE_SPECIAL) and rc:GetAttack() < e:GetHandler():GetAttack()
end

