name: 百景戦都ゴルディロックス
card_text: 1:このカードは中央以外のメインモンスターゾーンに召喚・特殊召喚した場合、破壊される。
  2:このカードがメインモンスターゾーンの中央に存在する限り、このカードの攻撃力は3000アップする。
  3:1ターンに1度、使用していない自分のメインモンスターゾーンを1ヵ所指定して発動できる。
  自分のメインモンスターゾーンのこのカードの位置を、指定したゾーンに移動する。
  その後、移動する前と移動した後のモンスターゾーン及びその間のモンスターゾーンと同じ縦列に存在する、このカード以外のカードを全て破壊する。
lua: local s, id, o = GetID()
  function s.initial_effect(c)
  	--self destroy
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE + EFFECT_TYPE_CONTINUOUS)
  	e1:SetCode(EVENT_SUMMON_SUCCESS)
  	e1:SetCondition(s.descon)
  	e1:SetOperation(s.desop)
  	c:RegisterEffect(e1)
  	local e2 = e1:Clone()
  	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
  	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)
  	e3:SetRange(LOCATION_MZONE)
  	e3:SetCondition(s.atkcon)
  	e3:SetValue(3000)
  	c:RegisterEffect(e3)
  	--move
  	local e4 = Effect.CreateEffect(c)
  	e4:SetDescription(aux.Stringid(id, 0))
  	e4:SetCategory(CATEGORY_DESTROY)
  	e4:SetType(EFFECT_TYPE_IGNITION)
  	e4:SetRange(LOCATION_MZONE)
  	e4:SetCountLimit(1)
  	e4:SetCondition(s.seqcon)
  	e4:SetTarget(s.seqtg)
  	e4:SetOperation(s.seqop)
  	c:RegisterEffect(e4)
  end
  function s.descon(e, tp, eg, ep, ev, re, r, rp)
  	return e:GetHandler():GetSequence() ~= 2
  end
  function s.desop(e, tp, eg, ep, ev, re, r, rp)
  	Duel.Destroy(e:GetHandler(), REASON_EFFECT)
  end
  function s.atkcon(e)
  	return e:GetHandler():GetSequence() == 2
  end
  function s.seqcon(e, tp, eg, ep, ev, re, r, rp)
  	return e:GetHandler():GetSequence() < 5
  end
  function s.seqtg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	if chk == 0 then
  		return Duel.GetLocationCount(tp, LOCATION_MZONE, PLAYER_NONE, 0) > 0
  	end
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOZONE)
  	local fd = Duel.SelectDisableField(tp, 1, LOCATION_MZONE, 0, 0)
  	Duel.Hint(HINT_ZONE, tp, fd)
  	local seq = math.log(fd, 2)
  	e:SetLabel(seq)
  	local pseq = c:GetSequence()
  	if pseq > seq then
  		pseq, seq = seq, pseq
  	end
  	local dg = Group.CreateGroup()
  	local g = nil
  	local exg = nil
  	for i = pseq, seq do
  		g = Duel.GetMatchingGroup(s.seqfilter, tp, LOCATION_ONFIELD, LOCATION_ONFIELD, c, tp, i)
  		dg:Merge(g)
  		if i == 1 or i == 3 then
  			exg = Duel.GetMatchingGroup(s.exfilter, tp, LOCATION_MZONE, LOCATION_MZONE, c, tp, i)
  			dg:Merge(exg)
  		end
  	end
  	Duel.SetOperationInfo(0, CATEGORY_DESTROY, dg, dg:GetCount(), 0, 0)
  end
  function s.seqfilter(c, tp, seq)
  	if c:IsControler(tp) then
  		return c:GetSequence() == seq
  	else
  		return c:GetSequence() == 4 - seq
  	end
  end
  function s.exfilter(c, tp, seq)
  	if seq == 1 then
  		seq = 5
  	end
  	if seq == 3 then
  		seq = 6
  	end
  	if c:IsControler(tp) then
  		return c:GetSequence() == seq
  	else
  		return c:GetSequence() == 11 - seq
  	end
  end
  function s.seqop(e, tp, eg, ep, ev, re, r, rp)
  	local seq = e:GetLabel()
  	local c = e:GetHandler()
  	if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) or not c:IsControler(tp) or not Duel.CheckLocation(tp, LOCATION_MZONE, seq) then
  		return
  	end
  	local pseq = c:GetSequence()
  	if pseq > 4 then
  		return
  	end
  	Duel.MoveSequence(c, seq)
  	if c:GetSequence() == seq then
  		if pseq > seq then
  			pseq, seq = seq, pseq
  		end
  		local dg = Group.CreateGroup()
  		local g = nil
  		local exg = nil
  		for i = pseq, seq do
  			g = Duel.GetMatchingGroup(s.seqfilter, tp, LOCATION_ONFIELD, LOCATION_ONFIELD, c, tp, i)
  			dg:Merge(g)
  			if i == 1 or i == 3 then
  				exg = Duel.GetMatchingGroup(s.exfilter, tp, LOCATION_MZONE, LOCATION_MZONE, c, tp, i)
  				dg:Merge(exg)
  			end
  		end
  		if dg:GetCount() > 0 then
  			Duel.BreakEffect()
  			Duel.Destroy(dg, REASON_EFFECT)
  		end
  	end
  end
  
  
source_text: 百景戦都ゴルディロックス
  1:このカードは中央以外のメインモンスターゾーンに召喚・特殊召喚した場合、破壊される。
  2:このカードがメインモンスターゾーンの中央に存在する限り、このカードの攻撃力は3000アップする。
  3:1ターンに1度、使用していない自分のメインモンスターゾーンを1ヵ所指定して発動できる。
  自分のメインモンスターゾーンのこのカードの位置を、指定したゾーンに移動する。
  その後、移動する前と移動した後のモンスターゾーン及びその間のモンスターゾーンと同じ縦列に存在する、このカード以外のカードを全て破壊する。
target_text: -- 百景戦都ゴルディロックス
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--self destroy
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE + EFFECT_TYPE_CONTINUOUS)
  	e1:SetCode(EVENT_SUMMON_SUCCESS)
  	e1:SetCondition(s.descon)
  	e1:SetOperation(s.desop)
  	c:RegisterEffect(e1)
  	local e2 = e1:Clone()
  	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
  	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)
  	e3:SetRange(LOCATION_MZONE)
  	e3:SetCondition(s.atkcon)
  	e3:SetValue(3000)
  	c:RegisterEffect(e3)
  	--move
  	local e4 = Effect.CreateEffect(c)
  	e4:SetDescription(aux.Stringid(id, 0))
  	e4:SetCategory(CATEGORY_DESTROY)
  	e4:SetType(EFFECT_TYPE_IGNITION)
  	e4:SetRange(LOCATION_MZONE)
  	e4:SetCountLimit(1)
  	e4:SetCondition(s.seqcon)
  	e4:SetTarget(s.seqtg)
  	e4:SetOperation(s.seqop)
  	c:RegisterEffect(e4)
  end
  function s.descon(e, tp, eg, ep, ev, re, r, rp)
  	return e:GetHandler():GetSequence() ~= 2
  end
  function s.desop(e, tp, eg, ep, ev, re, r, rp)
  	Duel.Destroy(e:GetHandler(), REASON_EFFECT)
  end
  function s.atkcon(e)
  	return e:GetHandler():GetSequence() == 2
  end
  function s.seqcon(e, tp, eg, ep, ev, re, r, rp)
  	return e:GetHandler():GetSequence() < 5
  end
  function s.seqtg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	if chk == 0 then
  		return Duel.GetLocationCount(tp, LOCATION_MZONE, PLAYER_NONE, 0) > 0
  	end
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TOZONE)
  	local fd = Duel.SelectDisableField(tp, 1, LOCATION_MZONE, 0, 0)
  	Duel.Hint(HINT_ZONE, tp, fd)
  	local seq = math.log(fd, 2)
  	e:SetLabel(seq)
  	local pseq = c:GetSequence()
  	if pseq > seq then
  		pseq, seq = seq, pseq
  	end
  	local dg = Group.CreateGroup()
  	local g = nil
  	local exg = nil
  	for i = pseq, seq do
  		g = Duel.GetMatchingGroup(s.seqfilter, tp, LOCATION_ONFIELD, LOCATION_ONFIELD, c, tp, i)
  		dg:Merge(g)
  		if i == 1 or i == 3 then
  			exg = Duel.GetMatchingGroup(s.exfilter, tp, LOCATION_MZONE, LOCATION_MZONE, c, tp, i)
  			dg:Merge(exg)
  		end
  	end
  	Duel.SetOperationInfo(0, CATEGORY_DESTROY, dg, dg:GetCount(), 0, 0)
  end
  function s.seqfilter(c, tp, seq)
  	if c:IsControler(tp) then
  		return c:GetSequence() == seq
  	else
  		return c:GetSequence() == 4 - seq
  	end
  end
  function s.exfilter(c, tp, seq)
  	if seq == 1 then
  		seq = 5
  	end
  	if seq == 3 then
  		seq = 6
  	end
  	if c:IsControler(tp) then
  		return c:GetSequence() == seq
  	else
  		return c:GetSequence() == 11 - seq
  	end
  end
  function s.seqop(e, tp, eg, ep, ev, re, r, rp)
  	local seq = e:GetLabel()
  	local c = e:GetHandler()
  	if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) or not c:IsControler(tp) or not Duel.CheckLocation(tp, LOCATION_MZONE, seq) then
  		return
  	end
  	local pseq = c:GetSequence()
  	if pseq > 4 then
  		return
  	end
  	Duel.MoveSequence(c, seq)
  	if c:GetSequence() == seq then
  		if pseq > seq then
  			pseq, seq = seq, pseq
  		end
  		local dg = Group.CreateGroup()
  		local g = nil
  		local exg = nil
  		for i = pseq, seq do
  			g = Duel.GetMatchingGroup(s.seqfilter, tp, LOCATION_ONFIELD, LOCATION_ONFIELD, c, tp, i)
  			dg:Merge(g)
  			if i == 1 or i == 3 then
  				exg = Duel.GetMatchingGroup(s.exfilter, tp, LOCATION_MZONE, LOCATION_MZONE, c, tp, i)
  				dg:Merge(exg)
  			end
  		end
  		if dg:GetCount() > 0 then
  			Duel.BreakEffect()
  			Duel.Destroy(dg, REASON_EFFECT)
  		end
  	end
  end
  
  