name: 剛鬼ザ・グレート・オーガ
card_text: 「剛鬼」モンスター2体以上
  1:このカードがモンスターゾーンに存在する限り、フィールドのモンスターの攻撃力は、そのモンスターの元々の守備力分ダウンする。
  2:このカードが戦闘・効果で破壊される場合、代わりにこのカードのリンク先の自分のモンスター1体を破壊できる。
external_ids: local SETCARD_ID_0 = 0xfc --剛鬼
  
lua: local SETCARD_ID_0 = 0xfc --剛鬼
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--link summon
  	aux.AddLinkProcedure(c, aux.FilterBoolFunction(Card.IsLinkSetCard, SETCARD_ID_0), 2)
  	c:EnableReviveLimit()
  	--atkdown
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_FIELD)
  	e1:SetCode(EFFECT_UPDATE_ATTACK)
  	e1:SetRange(LOCATION_MZONE)
  	e1:SetTargetRange(LOCATION_MZONE, LOCATION_MZONE)
  	e1:SetValue(s.atkval)
  	c:RegisterEffect(e1)
  	--destroy replace
  	local e2 = Effect.CreateEffect(c)
  	e2:SetType(EFFECT_TYPE_CONTINUOUS + EFFECT_TYPE_SINGLE)
  	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
  	e2:SetCode(EFFECT_DESTROY_REPLACE)
  	e2:SetRange(LOCATION_MZONE)
  	e2:SetTarget(s.desreptg)
  	e2:SetOperation(s.desrepop)
  	c:RegisterEffect(e2)
  end
  function s.atkval(e, c)
  	local val = math.max(c:GetBaseDefense(), 0)
  	return val * -1
  end
  function s.repfilter(c, e, tp)
  	return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsDestructable(e) and not c:IsStatus(STATUS_DESTROY_CONFIRMED)
  end
  function s.desreptg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	if chk == 0 then
  		local g = c:GetLinkedGroup()
  		return c:IsReason(REASON_EFFECT + REASON_BATTLE) and not c:IsReason(REASON_REPLACE) and g:IsExists(s.repfilter, 1, nil, e, tp)
  	end
  	if Duel.SelectEffectYesNo(tp, c, 96) then
  		local g = c:GetLinkedGroup()
  		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_DESREPLACE)
  		local sg = g:FilterSelect(tp, s.repfilter, 1, 1, nil, e, tp)
  		e:SetLabelObject(sg:GetFirst())
  		sg:GetFirst():SetStatus(STATUS_DESTROY_CONFIRMED, true)
  		return true
  	else
  		return false
  	end
  end
  function s.desrepop(e, tp, eg, ep, ev, re, r, rp)
  	local tc = e:GetLabelObject()
  	tc:SetStatus(STATUS_DESTROY_CONFIRMED, false)
  	Duel.Destroy(tc, REASON_EFFECT + REASON_REPLACE)
  end
  
  
source_text: 剛鬼ザ・グレート・オーガ
  「剛鬼」モンスター2体以上
  1:このカードがモンスターゾーンに存在する限り、フィールドのモンスターの攻撃力は、そのモンスターの元々の守備力分ダウンする。
  2:このカードが戦闘・効果で破壊される場合、代わりにこのカードのリンク先の自分のモンスター1体を破壊できる。
target_text: -- 剛鬼ザ・グレート・オーガ
  local SETCARD_ID_0 = 0xfc --剛鬼
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--link summon
  	aux.AddLinkProcedure(c, aux.FilterBoolFunction(Card.IsLinkSetCard, SETCARD_ID_0), 2)
  	c:EnableReviveLimit()
  	--atkdown
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_FIELD)
  	e1:SetCode(EFFECT_UPDATE_ATTACK)
  	e1:SetRange(LOCATION_MZONE)
  	e1:SetTargetRange(LOCATION_MZONE, LOCATION_MZONE)
  	e1:SetValue(s.atkval)
  	c:RegisterEffect(e1)
  	--destroy replace
  	local e2 = Effect.CreateEffect(c)
  	e2:SetType(EFFECT_TYPE_CONTINUOUS + EFFECT_TYPE_SINGLE)
  	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
  	e2:SetCode(EFFECT_DESTROY_REPLACE)
  	e2:SetRange(LOCATION_MZONE)
  	e2:SetTarget(s.desreptg)
  	e2:SetOperation(s.desrepop)
  	c:RegisterEffect(e2)
  end
  function s.atkval(e, c)
  	local val = math.max(c:GetBaseDefense(), 0)
  	return val * -1
  end
  function s.repfilter(c, e, tp)
  	return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsDestructable(e) and not c:IsStatus(STATUS_DESTROY_CONFIRMED)
  end
  function s.desreptg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	if chk == 0 then
  		local g = c:GetLinkedGroup()
  		return c:IsReason(REASON_EFFECT + REASON_BATTLE) and not c:IsReason(REASON_REPLACE) and g:IsExists(s.repfilter, 1, nil, e, tp)
  	end
  	if Duel.SelectEffectYesNo(tp, c, 96) then
  		local g = c:GetLinkedGroup()
  		Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_DESREPLACE)
  		local sg = g:FilterSelect(tp, s.repfilter, 1, 1, nil, e, tp)
  		e:SetLabelObject(sg:GetFirst())
  		sg:GetFirst():SetStatus(STATUS_DESTROY_CONFIRMED, true)
  		return true
  	else
  		return false
  	end
  end
  function s.desrepop(e, tp, eg, ep, ev, re, r, rp)
  	local tc = e:GetLabelObject()
  	tc:SetStatus(STATUS_DESTROY_CONFIRMED, false)
  	Duel.Destroy(tc, REASON_EFFECT + REASON_REPLACE)
  end
  
  