水精鱗-アビスマンダー
墓地のこのカードをゲームから除外し、以下の効果から1つを選択して発動できる。
●自分フィールド上の全ての「水精鱗」と名のついたモンスターのレベルを1つ上げる。
●自分フィールド上の全ての「水精鱗」と名のついたモンスターのレベルを2つ上げる。
local SETCARD_ID_0 = 0x74 --水精鱗(マーメイル)

local SETCARD_ID_0 = 0x74 --水精鱗(マーメイル)
local s, id, o = GetID()
function s.initial_effect(c)
	--lvup
	local e1 = Effect.CreateEffect(c)
	e1:SetDescription(aux.Stringid(id, 0))
	e1:SetType(EFFECT_TYPE_IGNITION)
	e1:SetRange(LOCATION_GRAVE)
	e1:SetCost(aux.bfgcost)
	e1:SetTarget(s.lvtg)
	e1:SetOperation(s.lvop)
	c:RegisterEffect(e1)
end
function s.filter(c)
	return c:IsFaceup() and c:IsSetCard(SETCARD_ID_0) and c:IsLevelAbove(0)
end
function s.lvtg(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.IsExistingMatchingCard(s.filter, tp, LOCATION_MZONE, 0, 1, nil)
	end
	local opt = Duel.SelectOption(tp, aux.Stringid(id, 1), aux.Stringid(id, 2))
	e:SetLabel(opt)
end
function s.lvop(e, tp, eg, ep, ev, re, r, rp)
	local opt = e:GetLabel()
	local g = Duel.GetMatchingGroup(s.filter, tp, LOCATION_MZONE, 0, nil)
	local tc = g:GetFirst()
	while tc do
		local e1 = Effect.CreateEffect(e:GetHandler())
		e1:SetType(EFFECT_TYPE_SINGLE)
		e1:SetCode(EFFECT_UPDATE_LEVEL)
		e1:SetValue(opt + 1)
		e1:SetReset(RESET_EVENT + RESETS_STANDARD)
		tc:RegisterEffect(e1)
		tc = g:GetNext()
	end
end


水精鱗-アビスマンダー
墓地のこのカードをゲームから除外し、以下の効果から1つを選択して発動できる。
●自分フィールド上の全ての「水精鱗」と名のついたモンスターのレベルを1つ上げる。
●自分フィールド上の全ての「水精鱗」と名のついたモンスターのレベルを2つ上げる。
-- 水精鱗-アビスマンダー
local SETCARD_ID_0 = 0x74 --水精鱗(マーメイル)
local s, id, o = GetID()
function s.initial_effect(c)
	--lvup
	local e1 = Effect.CreateEffect(c)
	e1:SetDescription(aux.Stringid(id, 0))
	e1:SetType(EFFECT_TYPE_IGNITION)
	e1:SetRange(LOCATION_GRAVE)
	e1:SetCost(aux.bfgcost)
	e1:SetTarget(s.lvtg)
	e1:SetOperation(s.lvop)
	c:RegisterEffect(e1)
end
function s.filter(c)
	return c:IsFaceup() and c:IsSetCard(SETCARD_ID_0) and c:IsLevelAbove(0)
end
function s.lvtg(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.IsExistingMatchingCard(s.filter, tp, LOCATION_MZONE, 0, 1, nil)
	end
	local opt = Duel.SelectOption(tp, aux.Stringid(id, 1), aux.Stringid(id, 2))
	e:SetLabel(opt)
end
function s.lvop(e, tp, eg, ep, ev, re, r, rp)
	local opt = e:GetLabel()
	local g = Duel.GetMatchingGroup(s.filter, tp, LOCATION_MZONE, 0, nil)
	local tc = g:GetFirst()
	while tc do
		local e1 = Effect.CreateEffect(e:GetHandler())
		e1:SetType(EFFECT_TYPE_SINGLE)
		e1:SetCode(EFFECT_UPDATE_LEVEL)
		e1:SetValue(opt + 1)
		e1:SetReset(RESET_EVENT + RESETS_STANDARD)
		tc:RegisterEffect(e1)
		tc = g:GetNext()
	end
end

