name: Clear
card_text: You can Tribute Summon this card by Tributing 1 monster that mentions "Clear World". Gains ATK equal to the highest original ATK among monsters your opponent controls (your choice, if tied). You are unaffected by the effects of "Clear World". While this Tribute Summoned card is in the Monster Zone, your opponent cannot activate the effects of Special Summoned monsters on the field with less ATK than this card.
external_ids: local CARD_ID_0 = 33900648 --Clear World
  
lua: local CARD_ID_0 = 33900648 --Clear World
  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
  
  
source_text: Clear
  You can Tribute Summon this card by Tributing 1 monster that mentions "Clear World". Gains ATK equal to the highest original ATK among monsters your opponent controls (your choice, if tied). You are unaffected by the effects of "Clear World". While this Tribute Summoned card is in the Monster Zone, your opponent cannot activate the effects of Special Summoned monsters on the field with less ATK than this card.
target_text: -- Clear
  local CARD_ID_0 = 33900648 --Clear World
  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
  
  