name: 魔力の枷
card_text: お互いのプレイヤーは500ライフポイントを払わなければ、手札からカードを召喚・特殊召喚・発動・セットする事ができない。
lua: local s, id, o = GetID()
  function s.initial_effect(c)
  	--Activate
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_ACTIVATE)
  	e1:SetCode(EVENT_FREE_CHAIN)
  	c:RegisterEffect(e1)
  	--activate cost
  	local e2 = Effect.CreateEffect(c)
  	e2:SetType(EFFECT_TYPE_FIELD)
  	e2:SetCode(EFFECT_ACTIVATE_COST)
  	e2:SetRange(LOCATION_SZONE)
  	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
  	e2:SetTargetRange(1, 1)
  	e2:SetTarget(s.actarget)
  	e2:SetCost(s.costchk)
  	e2:SetOperation(s.costop)
  	c:RegisterEffect(e2)
  	--summon cost
  	local e3 = Effect.CreateEffect(c)
  	e3:SetType(EFFECT_TYPE_FIELD)
  	e3:SetCode(EFFECT_SUMMON_COST)
  	e3:SetRange(LOCATION_SZONE)
  	e3:SetTargetRange(LOCATION_HAND, LOCATION_HAND)
  	e3:SetCost(s.costchk)
  	e3:SetOperation(s.costop)
  	c:RegisterEffect(e3)
  	local e4 = e3:Clone()
  	e4:SetCode(EFFECT_SPSUMMON_COST)
  	c:RegisterEffect(e4)
  	--set cost
  	local e5 = e3:Clone()
  	e5:SetCode(EFFECT_MSET_COST)
  	c:RegisterEffect(e5)
  	local e6 = e3:Clone()
  	e6:SetCode(EFFECT_SSET_COST)
  	c:RegisterEffect(e6)
  	--accumulate
  	local e7 = Effect.CreateEffect(c)
  	e7:SetType(EFFECT_TYPE_FIELD)
  	e7:SetCode(EFFECT_FLAG_EFFECT + id)
  	e7:SetRange(LOCATION_SZONE)
  	e7:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
  	e7:SetTargetRange(1, 1)
  	c:RegisterEffect(e7)
  end
  function s.actarget(e, te, tp)
  	return te:GetHandler():IsLocation(LOCATION_HAND)
  end
  function s.costchk(e, te_or_c, tp)
  	local ct = Duel.GetFlagEffect(tp, id)
  	return Duel.CheckLPCost(tp, ct * 500)
  end
  function s.costop(e, tp, eg, ep, ev, re, r, rp)
  	Duel.Hint(HINT_CARD, 0, id)
  	Duel.PayLPCost(tp, 500)
  end
  
  
source_text: 魔力の枷
  お互いのプレイヤーは500ライフポイントを払わなければ、手札からカードを召喚・特殊召喚・発動・セットする事ができない。
target_text: -- 魔力の枷
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--Activate
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_ACTIVATE)
  	e1:SetCode(EVENT_FREE_CHAIN)
  	c:RegisterEffect(e1)
  	--activate cost
  	local e2 = Effect.CreateEffect(c)
  	e2:SetType(EFFECT_TYPE_FIELD)
  	e2:SetCode(EFFECT_ACTIVATE_COST)
  	e2:SetRange(LOCATION_SZONE)
  	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
  	e2:SetTargetRange(1, 1)
  	e2:SetTarget(s.actarget)
  	e2:SetCost(s.costchk)
  	e2:SetOperation(s.costop)
  	c:RegisterEffect(e2)
  	--summon cost
  	local e3 = Effect.CreateEffect(c)
  	e3:SetType(EFFECT_TYPE_FIELD)
  	e3:SetCode(EFFECT_SUMMON_COST)
  	e3:SetRange(LOCATION_SZONE)
  	e3:SetTargetRange(LOCATION_HAND, LOCATION_HAND)
  	e3:SetCost(s.costchk)
  	e3:SetOperation(s.costop)
  	c:RegisterEffect(e3)
  	local e4 = e3:Clone()
  	e4:SetCode(EFFECT_SPSUMMON_COST)
  	c:RegisterEffect(e4)
  	--set cost
  	local e5 = e3:Clone()
  	e5:SetCode(EFFECT_MSET_COST)
  	c:RegisterEffect(e5)
  	local e6 = e3:Clone()
  	e6:SetCode(EFFECT_SSET_COST)
  	c:RegisterEffect(e6)
  	--accumulate
  	local e7 = Effect.CreateEffect(c)
  	e7:SetType(EFFECT_TYPE_FIELD)
  	e7:SetCode(EFFECT_FLAG_EFFECT + id)
  	e7:SetRange(LOCATION_SZONE)
  	e7:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
  	e7:SetTargetRange(1, 1)
  	c:RegisterEffect(e7)
  end
  function s.actarget(e, te, tp)
  	return te:GetHandler():IsLocation(LOCATION_HAND)
  end
  function s.costchk(e, te_or_c, tp)
  	local ct = Duel.GetFlagEffect(tp, id)
  	return Duel.CheckLPCost(tp, ct * 500)
  end
  function s.costop(e, tp, eg, ep, ev, re, r, rp)
  	Duel.Hint(HINT_CARD, 0, id)
  	Duel.PayLPCost(tp, 500)
  end
  
  