name: ヴォルカニック・リムファイア
card_text: 1:このカードが墓地へ送られた場合、以下の効果から1つを選択して発動できる(このカード名の以下の効果はそれぞれ1ターンに1度しか選択できない)。
  ●墓地のこのカードを除外し、デッキから「ヴォルカニック・リムファイア」以外の「ヴォルカニック」モンスター1体を墓地へ送る。
  ●自分のフィールド(表側表示)・墓地から「ブレイズ・キャノン」カード1枚を除外し、手札・デッキから「ブレイズ・キャノン」永続魔法・永続罠カード1枚を自分フィールドに表側表示で置く。
external_ids: local SETCARD_ID_0 = 0xb9 --ブレイズ・キャノン
  local SETCARD_ID_1 = 0x32 --ヴォルカニック
  
lua: local SETCARD_ID_0 = 0xb9 --ブレイズ・キャノン
  local SETCARD_ID_1 = 0x32 --ヴォルカニック
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--to grave/set canon
  	local e1 = Effect.CreateEffect(c)
  	e1:SetDescription(aux.Stringid(id, 0))
  	e1:SetType(EFFECT_TYPE_SINGLE + EFFECT_TYPE_TRIGGER_O)
  	e1:SetCode(EVENT_TO_GRAVE)
  	e1:SetProperty(EFFECT_FLAG_DELAY)
  	e1:SetTarget(s.optg)
  	e1:SetOperation(s.opop)
  	c:RegisterEffect(e1)
  end
  function s.tgfilter(c, e, tp)
  	return c:IsType(TYPE_MONSTER) and c:IsSetCard(SETCARD_ID_1) and not c:IsCode(id) and c:IsAbleToGrave()
  end
  function s.rmfilter(c, tp)
  	return c:IsSetCard(SETCARD_ID_1) and c:IsFaceupEx() and c:IsAbleToRemove() and (c:IsLocation(LOCATION_SZONE) or Duel.GetLocationCount(tp, LOCATION_SZONE) > 0)
  end
  function s.setfilter(c, tp)
  	return c:IsSetCard(SETCARD_ID_1) and c:IsType(TYPE_CONTINUOUS) and not c:IsForbidden() and c:CheckUniqueOnField(tp)
  end
  function s.optg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	local b1 = Duel.GetFlagEffect(tp, id) == 0 and c:IsAbleToRemove() and Duel.IsExistingMatchingCard(s.tgfilter, tp, LOCATION_DECK, 0, 1, nil, e, tp)
  	local b2 = Duel.GetFlagEffect(tp, id + 1) == 0
  		and Duel.IsExistingMatchingCard(s.rmfilter, tp, LOCATION_ONFIELD + LOCATION_GRAVE, 0, 1, nil, tp)
  		and Duel.IsExistingMatchingCard(s.setfilter, tp, LOCATION_HAND + LOCATION_DECK, 0, 1, nil, tp)
  	if chk == 0 then
  		return b1 or b2
  	end
  	local op = 0
  	if b1 and b2 then
  		op = Duel.SelectOption(tp, aux.Stringid(id, 1), aux.Stringid(id, 2))
  	elseif b1 then
  		op = Duel.SelectOption(tp, aux.Stringid(id, 1))
  	elseif b2 then
  		op = Duel.SelectOption(tp, aux.Stringid(id, 2)) + 1
  	end
  	e:SetLabel(op)
  	if op == 0 then
  		e:SetCategory(CATEGORY_TOGRAVE + CATEGORY_REMOVE)
  		Duel.RegisterFlagEffect(tp, id, RESET_PHASE + PHASE_END, 0, 1)
  		Duel.SetOperationInfo(0, CATEGORY_REMOVE, c, 1, 0, 0)
  		Duel.SetOperationInfo(0, CATEGORY_TOGRAVE, nil, 1, tp, LOCATION_DECK)
  	else
  		e:SetCategory(CATEGORY_REMOVE)
  		Duel.RegisterFlagEffect(tp, id + 1, RESET_PHASE + PHASE_END, 0, 1)
  		Duel.SetOperationInfo(0, CATEGORY_REMOVE, nil, 1, tp, LOCATION_ONFIELD + LOCATION_GRAVE)
  	end
  end
  function s.opop(e, tp, eg, ep, ev, re, r, rp)
  	local c = e:GetHandler()
  	local op = e:GetLabel()
  	if op == 0 then
  		if c:IsRelateToEffect(e) and Duel.Remove(c, POS_FACEUP, REASON_EFFECT) ~= 0 then
  			Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOGRAVE)
  			local g1 = Duel.SelectMatchingCard(tp, s.tgfilter, tp, LOCATION_DECK, 0, 1, 1, nil)
  			if #g1 > 0 then
  				Duel.SendtoGrave(g1, REASON_EFFECT)
  			end
  		end
  	else
  		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_REMOVE)
  		local rmg = Duel.SelectMatchingCard(tp, aux.NecroValleyFilter(s.rmfilter), tp, LOCATION_ONFIELD + LOCATION_GRAVE, 0, 1, 1, nil, tp)
  		if #rmg > 0 and Duel.Remove(rmg, POS_FACEUP, REASON_EFFECT) ~= 0 then
  			Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOFIELD)
  			local g2 = Duel.SelectMatchingCard(tp, s.setfilter, tp, LOCATION_HAND + LOCATION_DECK, 0, 1, 1, nil, tp)
  			if #g2 > 0 then
  				Duel.MoveToField(g2:GetFirst(), tp, tp, LOCATION_SZONE, POS_FACEUP, true)
  			end
  		end
  	end
  end
  
  
source_text: ヴォルカニック・リムファイア
  1:このカードが墓地へ送られた場合、以下の効果から1つを選択して発動できる(このカード名の以下の効果はそれぞれ1ターンに1度しか選択できない)。
  ●墓地のこのカードを除外し、デッキから「ヴォルカニック・リムファイア」以外の「ヴォルカニック」モンスター1体を墓地へ送る。
  ●自分のフィールド(表側表示)・墓地から「ブレイズ・キャノン」カード1枚を除外し、手札・デッキから「ブレイズ・キャノン」永続魔法・永続罠カード1枚を自分フィールドに表側表示で置く。
target_text: -- ヴォルカニック・リムファイア
  local SETCARD_ID_0 = 0xb9 --ブレイズ・キャノン
  local SETCARD_ID_1 = 0x32 --ヴォルカニック
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--to grave/set canon
  	local e1 = Effect.CreateEffect(c)
  	e1:SetDescription(aux.Stringid(id, 0))
  	e1:SetType(EFFECT_TYPE_SINGLE + EFFECT_TYPE_TRIGGER_O)
  	e1:SetCode(EVENT_TO_GRAVE)
  	e1:SetProperty(EFFECT_FLAG_DELAY)
  	e1:SetTarget(s.optg)
  	e1:SetOperation(s.opop)
  	c:RegisterEffect(e1)
  end
  function s.tgfilter(c, e, tp)
  	return c:IsType(TYPE_MONSTER) and c:IsSetCard(SETCARD_ID_1) and not c:IsCode(id) and c:IsAbleToGrave()
  end
  function s.rmfilter(c, tp)
  	return c:IsSetCard(SETCARD_ID_1) and c:IsFaceupEx() and c:IsAbleToRemove() and (c:IsLocation(LOCATION_SZONE) or Duel.GetLocationCount(tp, LOCATION_SZONE) > 0)
  end
  function s.setfilter(c, tp)
  	return c:IsSetCard(SETCARD_ID_1) and c:IsType(TYPE_CONTINUOUS) and not c:IsForbidden() and c:CheckUniqueOnField(tp)
  end
  function s.optg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	local b1 = Duel.GetFlagEffect(tp, id) == 0 and c:IsAbleToRemove() and Duel.IsExistingMatchingCard(s.tgfilter, tp, LOCATION_DECK, 0, 1, nil, e, tp)
  	local b2 = Duel.GetFlagEffect(tp, id + 1) == 0
  		and Duel.IsExistingMatchingCard(s.rmfilter, tp, LOCATION_ONFIELD + LOCATION_GRAVE, 0, 1, nil, tp)
  		and Duel.IsExistingMatchingCard(s.setfilter, tp, LOCATION_HAND + LOCATION_DECK, 0, 1, nil, tp)
  	if chk == 0 then
  		return b1 or b2
  	end
  	local op = 0
  	if b1 and b2 then
  		op = Duel.SelectOption(tp, aux.Stringid(id, 1), aux.Stringid(id, 2))
  	elseif b1 then
  		op = Duel.SelectOption(tp, aux.Stringid(id, 1))
  	elseif b2 then
  		op = Duel.SelectOption(tp, aux.Stringid(id, 2)) + 1
  	end
  	e:SetLabel(op)
  	if op == 0 then
  		e:SetCategory(CATEGORY_TOGRAVE + CATEGORY_REMOVE)
  		Duel.RegisterFlagEffect(tp, id, RESET_PHASE + PHASE_END, 0, 1)
  		Duel.SetOperationInfo(0, CATEGORY_REMOVE, c, 1, 0, 0)
  		Duel.SetOperationInfo(0, CATEGORY_TOGRAVE, nil, 1, tp, LOCATION_DECK)
  	else
  		e:SetCategory(CATEGORY_REMOVE)
  		Duel.RegisterFlagEffect(tp, id + 1, RESET_PHASE + PHASE_END, 0, 1)
  		Duel.SetOperationInfo(0, CATEGORY_REMOVE, nil, 1, tp, LOCATION_ONFIELD + LOCATION_GRAVE)
  	end
  end
  function s.opop(e, tp, eg, ep, ev, re, r, rp)
  	local c = e:GetHandler()
  	local op = e:GetLabel()
  	if op == 0 then
  		if c:IsRelateToEffect(e) and Duel.Remove(c, POS_FACEUP, REASON_EFFECT) ~= 0 then
  			Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOGRAVE)
  			local g1 = Duel.SelectMatchingCard(tp, s.tgfilter, tp, LOCATION_DECK, 0, 1, 1, nil)
  			if #g1 > 0 then
  				Duel.SendtoGrave(g1, REASON_EFFECT)
  			end
  		end
  	else
  		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_REMOVE)
  		local rmg = Duel.SelectMatchingCard(tp, aux.NecroValleyFilter(s.rmfilter), tp, LOCATION_ONFIELD + LOCATION_GRAVE, 0, 1, 1, nil, tp)
  		if #rmg > 0 and Duel.Remove(rmg, POS_FACEUP, REASON_EFFECT) ~= 0 then
  			Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOFIELD)
  			local g2 = Duel.SelectMatchingCard(tp, s.setfilter, tp, LOCATION_HAND + LOCATION_DECK, 0, 1, 1, nil, tp)
  			if #g2 > 0 then
  				Duel.MoveToField(g2:GetFirst(), tp, tp, LOCATION_SZONE, POS_FACEUP, true)
  			end
  		end
  	end
  end
  
  