name: 熾天龍
card_text: チューナー+チューナー以外のモンスター1体以上
  このカードをS召喚する場合、S素材モンスターは全て同じ属性のモンスターでなければならない。
  1:自分の墓地にチューナーが4種類以上存在し、このカードがS召喚されている場合、1ターンに1度、LPを半分払って発動できる。
  このカード以外のフィールドのカードを全て破壊する。
  この効果の発動後、ターン終了時まで自分はドラゴン族モンスターしか特殊召喚できない。
  2:自分エンドフェイズに発動する。
  自分のデッキの上からカードを4枚除外する。
lua: local s, id, o = GetID()
  function s.initial_effect(c)
  	--synchro summon
  	aux.AddSynchroMixProcedure(c, aux.Tuner(nil), nil, nil, aux.NonTuner(nil), 1, 99, s.syncheck)
  	c:EnableReviveLimit()
  	--spsummon condition
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE)
  	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_UNCOPYABLE)
  	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
  	e1:SetValue(s.sumlimit)
  	c:RegisterEffect(e1)
  	--destroy
  	local e2 = Effect.CreateEffect(c)
  	e2:SetDescription(aux.Stringid(id, 0))
  	e2:SetType(EFFECT_TYPE_IGNITION)
  	e2:SetCategory(CATEGORY_DESTROY)
  	e2:SetRange(LOCATION_MZONE)
  	e2:SetCountLimit(1)
  	e2:SetCondition(s.condition)
  	e2:SetCost(s.cost)
  	e2:SetTarget(s.target)
  	e2:SetOperation(s.operation)
  	c:RegisterEffect(e2)
  	--discard deck
  	local e3 = Effect.CreateEffect(c)
  	e3:SetDescription(aux.Stringid(id, 1))
  	e3:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_TRIGGER_F)
  	e3:SetCategory(CATEGORY_REMOVE)
  	e3:SetCountLimit(1)
  	e3:SetCode(EVENT_PHASE + PHASE_END)
  	e3:SetRange(LOCATION_MZONE)
  	e3:SetCondition(s.condition2)
  	e3:SetTarget(s.target2)
  	e3:SetOperation(s.operation2)
  	c:RegisterEffect(e3)
  end
  function s.syncheck(g)
  	return aux.SameValueCheck(g, Card.GetAttribute)
  end
  function s.sumlimit(e, se, sp, st)
  	return bit.band(st, SUMMON_TYPE_SYNCHRO) ~= SUMMON_TYPE_SYNCHRO or not se
  end
  function s.condition(e, tp, eg, ep, ev, re, r, rp)
  	local g = Duel.GetMatchingGroup(Card.IsType, tp, LOCATION_GRAVE, 0, nil, TYPE_TUNER)
  	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) and g:GetClassCount(Card.GetCode) > 3
  end
  function s.cost(e, tp, eg, ep, ev, re, r, rp, chk)
  	if chk == 0 then
  		return true
  	end
  	Duel.PayLPCost(tp, math.floor(Duel.GetLP(tp) / 2))
  end
  function s.target(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	if chk == 0 then
  		return Duel.IsExistingMatchingCard(aux.TRUE, tp, LOCATION_ONFIELD, LOCATION_ONFIELD, 1, c)
  	end
  	local sg = Duel.GetMatchingGroup(aux.TRUE, tp, LOCATION_ONFIELD, LOCATION_ONFIELD, c)
  	Duel.SetOperationInfo(0, CATEGORY_DESTROY, sg, sg:GetCount(), 0, 0)
  end
  function s.operation(e, tp, eg, ep, ev, re, r, rp)
  	local sg = Duel.GetMatchingGroup(aux.TRUE, tp, LOCATION_ONFIELD, LOCATION_ONFIELD, aux.ExceptThisCard(e))
  	Duel.Destroy(sg, REASON_EFFECT)
  	local e1 = Effect.CreateEffect(e:GetHandler())
  	e1:SetType(EFFECT_TYPE_FIELD)
  	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
  	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
  	e1:SetReset(RESET_PHASE + PHASE_END)
  	e1:SetTargetRange(1, 0)
  	e1:SetTarget(s.splimit)
  	Duel.RegisterEffect(e1, tp)
  end
  function s.splimit(e, c, sump, sumtype, sumpos, targetp, se)
  	return not c:IsRace(RACE_DRAGON)
  end
  function s.condition2(e, tp, eg, ep, ev, re, r, rp)
  	return tp == Duel.GetTurnPlayer()
  end
  function s.target2(e, tp, eg, ep, ev, re, r, rp, chk)
  	if chk == 0 then
  		return true
  	end
  	local rg = Duel.GetDecktopGroup(tp, 4)
  	Duel.SetOperationInfo(0, CATEGORY_REMOVE, rg, 4, 0, 0)
  end
  function s.operation2(e, tp, eg, ep, ev, re, r, rp)
  	local rg = Duel.GetDecktopGroup(tp, 4)
  	Duel.DisableShuffleCheck()
  	Duel.Remove(rg, POS_FACEUP, REASON_EFFECT)
  end
  
  
source_text: 熾天龍
  チューナー+チューナー以外のモンスター1体以上
  このカードをS召喚する場合、S素材モンスターは全て同じ属性のモンスターでなければならない。
  1:自分の墓地にチューナーが4種類以上存在し、このカードがS召喚されている場合、1ターンに1度、LPを半分払って発動できる。
  このカード以外のフィールドのカードを全て破壊する。
  この効果の発動後、ターン終了時まで自分はドラゴン族モンスターしか特殊召喚できない。
  2:自分エンドフェイズに発動する。
  自分のデッキの上からカードを4枚除外する。
target_text: -- 熾天龍
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--synchro summon
  	aux.AddSynchroMixProcedure(c, aux.Tuner(nil), nil, nil, aux.NonTuner(nil), 1, 99, s.syncheck)
  	c:EnableReviveLimit()
  	--spsummon condition
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE)
  	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_UNCOPYABLE)
  	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
  	e1:SetValue(s.sumlimit)
  	c:RegisterEffect(e1)
  	--destroy
  	local e2 = Effect.CreateEffect(c)
  	e2:SetDescription(aux.Stringid(id, 0))
  	e2:SetType(EFFECT_TYPE_IGNITION)
  	e2:SetCategory(CATEGORY_DESTROY)
  	e2:SetRange(LOCATION_MZONE)
  	e2:SetCountLimit(1)
  	e2:SetCondition(s.condition)
  	e2:SetCost(s.cost)
  	e2:SetTarget(s.target)
  	e2:SetOperation(s.operation)
  	c:RegisterEffect(e2)
  	--discard deck
  	local e3 = Effect.CreateEffect(c)
  	e3:SetDescription(aux.Stringid(id, 1))
  	e3:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_TRIGGER_F)
  	e3:SetCategory(CATEGORY_REMOVE)
  	e3:SetCountLimit(1)
  	e3:SetCode(EVENT_PHASE + PHASE_END)
  	e3:SetRange(LOCATION_MZONE)
  	e3:SetCondition(s.condition2)
  	e3:SetTarget(s.target2)
  	e3:SetOperation(s.operation2)
  	c:RegisterEffect(e3)
  end
  function s.syncheck(g)
  	return aux.SameValueCheck(g, Card.GetAttribute)
  end
  function s.sumlimit(e, se, sp, st)
  	return bit.band(st, SUMMON_TYPE_SYNCHRO) ~= SUMMON_TYPE_SYNCHRO or not se
  end
  function s.condition(e, tp, eg, ep, ev, re, r, rp)
  	local g = Duel.GetMatchingGroup(Card.IsType, tp, LOCATION_GRAVE, 0, nil, TYPE_TUNER)
  	return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) and g:GetClassCount(Card.GetCode) > 3
  end
  function s.cost(e, tp, eg, ep, ev, re, r, rp, chk)
  	if chk == 0 then
  		return true
  	end
  	Duel.PayLPCost(tp, math.floor(Duel.GetLP(tp) / 2))
  end
  function s.target(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	if chk == 0 then
  		return Duel.IsExistingMatchingCard(aux.TRUE, tp, LOCATION_ONFIELD, LOCATION_ONFIELD, 1, c)
  	end
  	local sg = Duel.GetMatchingGroup(aux.TRUE, tp, LOCATION_ONFIELD, LOCATION_ONFIELD, c)
  	Duel.SetOperationInfo(0, CATEGORY_DESTROY, sg, sg:GetCount(), 0, 0)
  end
  function s.operation(e, tp, eg, ep, ev, re, r, rp)
  	local sg = Duel.GetMatchingGroup(aux.TRUE, tp, LOCATION_ONFIELD, LOCATION_ONFIELD, aux.ExceptThisCard(e))
  	Duel.Destroy(sg, REASON_EFFECT)
  	local e1 = Effect.CreateEffect(e:GetHandler())
  	e1:SetType(EFFECT_TYPE_FIELD)
  	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
  	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
  	e1:SetReset(RESET_PHASE + PHASE_END)
  	e1:SetTargetRange(1, 0)
  	e1:SetTarget(s.splimit)
  	Duel.RegisterEffect(e1, tp)
  end
  function s.splimit(e, c, sump, sumtype, sumpos, targetp, se)
  	return not c:IsRace(RACE_DRAGON)
  end
  function s.condition2(e, tp, eg, ep, ev, re, r, rp)
  	return tp == Duel.GetTurnPlayer()
  end
  function s.target2(e, tp, eg, ep, ev, re, r, rp, chk)
  	if chk == 0 then
  		return true
  	end
  	local rg = Duel.GetDecktopGroup(tp, 4)
  	Duel.SetOperationInfo(0, CATEGORY_REMOVE, rg, 4, 0, 0)
  end
  function s.operation2(e, tp, eg, ep, ev, re, r, rp)
  	local rg = Duel.GetDecktopGroup(tp, 4)
  	Duel.DisableShuffleCheck()
  	Duel.Remove(rg, POS_FACEUP, REASON_EFFECT)
  end
  
  