update

script/c15344307.lua

+--フォースフィールド
+function c15344307.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(15344307,0))
+	e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(c15344307.condition)
+	e1:SetTarget(c15344307.target)
+	e1:SetOperation(c15344307.activate)
+	c:RegisterEffect(e1)
+end
+function c15344307.condition(e,tp,eg,ep,ev,re,r,rp)
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	return tg and tg:GetCount()==1 and tg:GetFirst():IsType(TYPE_MONSTER)
+		and re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev)
+end
+function c15344307.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
+	end
+end
+function c15344307.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+		Duel.Destroy(eg,REASON_EFFECT)
+	end
+end

script/c17468324.lua

+--トゥーン・ヂェミナイ・エルフ
+function c17468324.initial_effect(c)
+	aux.AddCodeList(c,15259703)
+	--cannot attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetOperation(c17468324.atklimit)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	local e3=e1:Clone()
+	e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+	--destroy
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCode(EVENT_LEAVE_FIELD)
+	e4:SetCondition(c17468324.sdescon)
+	e4:SetOperation(c17468324.sdesop)
+	c:RegisterEffect(e4)
+	--direct attack
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetCode(EFFECT_DIRECT_ATTACK)
+	e5:SetCondition(c17468324.dircon)
+	c:RegisterEffect(e5)
+	--handes
+	local e6=Effect.CreateEffect(c)
+	e6:SetDescription(aux.Stringid(17468324,0))
+	e6:SetCategory(CATEGORY_HANDES)
+	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e6:SetCode(EVENT_BATTLE_DAMAGE)
+	e6:SetCondition(c17468324.condition)
+	e6:SetTarget(c17468324.target)
+	e6:SetOperation(c17468324.operation)
+	c:RegisterEffect(e6)
+end
+function c17468324.atklimit(e,tp,eg,ep,ev,re,r,rp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CANNOT_ATTACK)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	e:GetHandler():RegisterEffect(e1)
+end
+function c17468324.sfilter(c)
+	return c:IsReason(REASON_DESTROY) and c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousCodeOnField()==15259703 and c:IsPreviousLocation(LOCATION_ONFIELD)
+end
+function c17468324.sdescon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c17468324.sfilter,1,nil)
+end
+function c17468324.sdesop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+end
+function c17468324.dirfilter1(c)
+	return c:IsFaceup() and c:IsCode(15259703)
+end
+function c17468324.dirfilter2(c)
+	return c:IsFaceup() and c:IsType(TYPE_TOON)
+end
+function c17468324.dircon(e)
+	return Duel.IsExistingMatchingCard(c17468324.dirfilter1,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil)
+		and not Duel.IsExistingMatchingCard(c17468324.dirfilter2,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil)
+end
+function c17468324.condition(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp
+end
+function c17468324.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(ep,LOCATION_HAND,0)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,1-tp,1)
+end
+function c17468324.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetFieldGroup(ep,LOCATION_HAND,0)
+	if g:GetCount()==0 then return end
+	local sg=g:RandomSelect(1-tp,1)
+	Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD)
+end

script/c19465644.lua

+--平和の使者
+function c19465644.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--cannot attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e2:SetTarget(c19465644.atktarget)
+	c:RegisterEffect(e2)
+	--maintain
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c19465644.mtcon)
+	e3:SetOperation(c19465644.mtop)
+	c:RegisterEffect(e3)
+end
+function c19465644.atktarget(e,c)
+	return c:GetAttack()>=1500
+end
+function c19465644.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c19465644.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.CheckLPCost(tp,100) then
+		Duel.PayLPCost(tp,100)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end

script/c22252617.lua

+--時の魔術師
+function c22252617.initial_effect(c)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22252617,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_COIN)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c22252617.cond)
+	e1:SetTarget(c22252617.destg)
+	e1:SetOperation(c22252617.desop)
+	c:RegisterEffect(e1)
+end
+c22252617.toss_coin=true
+function c22252617.cond(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c22252617.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1)
+	if #g>0 then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+	end
+end
+function c22252617.desop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
+	local coin=Duel.AnnounceCoin(tp)
+	local res=Duel.TossCoin(tp,1)
+	if coin~=res then
+		local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
+		Duel.Destroy(g,REASON_EFFECT)
+		Duel.RaiseEvent(e:GetHandler(),EVENT_CUSTOM+71625222,e,0,0,tp,0)
+	else
+		local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
+		Duel.Destroy(g,REASON_EFFECT)
+		local dg=Duel.GetOperatedGroup()
+		local sum=0
+		for c in aux.Next(dg) do
+			sum=sum+math.max(c:GetAttack(),0)
+		end
+		if sum>0 then
+			Duel.SetLP(tp,Duel.GetLP(tp)-math.floor(sum/2))
+		end
+	end
+end

script/c22252618.lua

+--時の魔術師
+function c22252618.initial_effect(c)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(22252618,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_COIN)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c22252618.destg)
+	e1:SetOperation(c22252618.desop)
+	c:RegisterEffect(e1)
+end
+c22252618.toss_coin=true
+function c22252618.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1)
+	if #g>0 then
+		Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+	end
+end
+function c22252618.desop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
+	local coin=Duel.AnnounceCoin(tp)
+	local res=Duel.TossCoin(tp,1)
+	if coin~=res then
+		local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
+		Duel.Destroy(g,REASON_EFFECT)
+		Duel.RaiseEvent(e:GetHandler(),EVENT_CUSTOM+71625222,e,0,0,tp,0)
+	else
+		local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
+		Duel.Destroy(g,REASON_EFFECT)
+		local dg=Duel.GetOperatedGroup()
+		local sum=0
+		for c in aux.Next(dg) do
+			sum=sum+math.max(c:GetAttack(),0)
+		end
+		if sum>0 then
+			Duel.SetLP(tp,Duel.GetLP(tp)-math.floor(sum/2))
+		end
+	end
+end

script/c24098561.lua

+--疾風の暗黒騎士ガイア
+function c16589042.initial_effect(c)
+	--summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(16589042,0))
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SUMMON_PROC)
+	e1:SetCondition(c16589042.ntcon)
+	c:RegisterEffect(e1)
+end
+function c16589042.ntcon(e,c,minc)
+	if c==nil then return true end
+	return minc==0 and c:IsLevelAbove(5) and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_HAND,0)==1
+		and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+end

script/c24398799.lua

+--黒魔術のカーテン
+function c24398799.initial_effect(c)
+	aux.AddCodeList(c,46986414)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c24398799.cost)
+	e1:SetTarget(c24398799.target)
+	e1:SetOperation(c24398799.activate)
+	c:RegisterEffect(e1)
+end
+function c24398799.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_SUMMON)==0
+		and Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0 end
+	Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c24398799.sumlimit)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e2:SetCode(EFFECT_CANNOT_SUMMON)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	e2:SetTargetRange(1,0)
+	Duel.RegisterEffect(e2,tp)
+end
+function c24398799.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return e:GetHandler()~=se:GetHandler()
+end
+function c24398799.filter(c,e,tp)
+	return c:IsCode(46986414) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c24398799.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c24398799.filter,tp,LOCATION_DECK,0,1,nil,e,tp)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c24398799.activate(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c24398799.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c30420327.lua

+--光の護封剣
+function c30420327.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_POSITION)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c30420327.target)
+	e1:SetOperation(c30420327.activate)
+	c:RegisterEffect(e1)
+	--cannot attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(0,LOCATION_MZONE)
+	e2:SetCondition(c30420327.cacon)
+	c:RegisterEffect(e2)
+	--remain field
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e3:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e3)
+end
+function c30420327.cacon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetTurnCounter()<3
+end
+function c30420327.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	e:GetHandler():SetTurnCounter(0)
+	local sg=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,sg,sg:GetCount(),0,0)
+	--destroy
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCondition(c30420327.descon)
+	e1:SetOperation(c30420327.desop)
+	e:GetHandler():RegisterEffect(e1)
+	e:GetHandler():RegisterFlagEffect(1082946,RESET_PHASE+PHASE_END+RESET_OPPO_TURN,0,99)
+	c30420327[e:GetHandler()]=e1
+end
+function c30420327.activate(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	if sg:GetCount()>0 then
+		Duel.ChangePosition(sg,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE)
+	end
+end
+function c30420327.descon(e,tp,eg,ep,ev,re,r,rp)
+	return tp~=Duel.GetTurnPlayer()
+end
+function c30420327.desop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=c:GetTurnCounter()
+	ct=ct+1
+	c:SetTurnCounter(ct)
+end

script/c30420328.lua

+--光の護封剣
+function c30420328.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_POSITION)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c30420328.target)
+	e1:SetOperation(c30420328.activate)
+	c:RegisterEffect(e1)
+	--cannot attack
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(0,LOCATION_MZONE)
+	e2:SetCondition(c30420328.cacon)
+	c:RegisterEffect(e2)
+	--remain field
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e3:SetCode(EFFECT_REMAIN_FIELD)
+	c:RegisterEffect(e3)
+end
+function c30420328.cacon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetTurnCounter()<3
+end
+function c30420328.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	e:GetHandler():SetTurnCounter(0)
+	local sg=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,sg,sg:GetCount(),0,0)
+	--destroy
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCondition(c30420328.descon)
+	e1:SetOperation(c30420328.desop)
+	e:GetHandler():RegisterEffect(e1)
+	e:GetHandler():RegisterFlagEffect(1082946,RESET_PHASE+PHASE_END+RESET_OPPO_TURN,0,99)
+	c30420328[e:GetHandler()]=e1
+end
+function c30420328.activate(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_MZONE,nil)
+	if sg:GetCount()>0 then
+		Duel.ChangePosition(sg,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE)
+	end
+end
+function c30420328.descon(e,tp,eg,ep,ev,re,r,rp)
+	return tp~=Duel.GetTurnPlayer()
+end
+function c30420328.desop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=c:GetTurnCounter()
+	ct=ct+1
+	c:SetTurnCounter(ct)
+end

script/c30795251.lua

+--トゥーン・ワールド
+function c30795251.initial_effect(c)
+	--maintain
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetCountLimit(1)
+	e4:SetOperation(c30795251.mtcond)
+	e4:SetOperation(c30795251.mtop)
+	c:RegisterEffect(e4)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c30795251.cost)
+	c:RegisterEffect(e1)
+	--recover
+	e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(30795251,0))
+	e1:SetCategory(CATEGORY_RECOVER)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetCondition(c30795251.reccon)
+	e1:SetTarget(c30795251.target)
+	e1:SetOperation(c30795251.operation)
+	c:RegisterEffect(e1)
+	local ge1=Effect.CreateEffect(c)
+	ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	ge1:SetCode(EVENT_PAY_LPCOST)
+	ge1:SetOperation(c30795251.checkop)
+	Duel.RegisterEffect(ge1,0)
+	if not c30795251.costcounter then c30795251.costcounter={} end
+	c30795251.costcounter[e:GetHandler()]=0
+end
+function c30795251.reccon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
+		and e:GetHandler():IsPreviousPosition(POS_FACEUP) end
+end
+function c30795251.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(c30795251.costcounter[e:GetHandler()])
+	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,c30795251.costcounter[e:GetHandler()])
+end
+function c30795251.operation(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Recover(p,c30795251.costcounter[e:GetHandler()],REASON_EFFECT)
+	c30795251.costcounter[e:GetHandler()]=0
+end
+
+function c30795251.checkop(e,tp,eg,ep,ev,re,r,rp)
+	if re and re:GetHandler()==e:GetHandler() then
+		c30795251.costcounter[e:GetHandler()]=c30795251.costcounter[e:GetHandler()] + val
+	end
+end
+function c30795251.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,1000) end
+	c30795251.costcounter[e:GetHandler()]=0
+	Duel.PayLPCost(tp,1000)
+end
+
+function c30795251.mtcond(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer() == tp
+end
+function c30795251.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.CheckLPCost(tp,500) and Duel.SelectYesNo(tp,aux.Stringid(30795251,0)) then
+		Duel.PayLPCost(tp,500)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end
\ No newline at end of file

script/c36951096.lua

+--デビル・フランケン
+function c36951096.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetDescription(aux.Stringid(36951096,0))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c36951096.cost)
+	e1:SetTarget(c36951096.target)
+	e1:SetOperation(c36951096.operation)
+	c:RegisterEffect(e1)
+end
+function c36951096.filter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function c36951096.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,5000) end
+	Duel.PayLPCost(tp,5000)
+end
+function c36951096.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c36951096.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c36951096.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c36951096.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c54536582.lua

+--竜殺者
+function c54536582.initial_effect(c)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(54536582,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(c54536582.target)
+	e1:SetOperation(c54536582.operation)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+end
+function c54536582.filter(c)
+	return c:IsFaceup() and c:IsRace(RACE_DRAGON)
+end
+function c54536582.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c54536582.filter(chkc) end
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,c54536582.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c54536582.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) and c54536582.filter(tc) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end

script/c58192813.lua

+--ダーク・ネクロフィア
+function c58192813.initial_effect(c)
+	c:EnableReviveLimit()
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(c58192813.spcon)
+	e1:SetOperation(c58192813.spop)
+	c:RegisterEffect(e1)
+	--reg
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetOperation(c58192813.tgop)
+	c:RegisterEffect(e2)
+	--equip
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c58192813.eqcon)
+	e3:SetTarget(c58192813.eqtg)
+	e3:SetOperation(c58192813.eqop)
+	c:RegisterEffect(e3)
+end
+function c58192813.spfilter(c)
+	return c:IsRace(RACE_FIEND) and c:IsAbleToRemoveAsCost()
+end
+function c58192813.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c58192813.spfilter,tp,LOCATION_GRAVE,0,3,nil)
+end
+function c58192813.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c58192813.spfilter,tp,LOCATION_GRAVE,0,3,3,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c58192813.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsPreviousControler(tp) and not c:IsPreviousLocation(LOCATION_SZONE)
+		and rp==1-tp and bit.band(r,REASON_DESTROY)~=0 then
+		c:RegisterFlagEffect(58192813,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+	end
+end
+function c58192813.eqcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetFlagEffect(58192813)>0
+end
+function c58192813.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+	local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
+end
+function c58192813.eqlimit(e,c)
+	return e:GetOwner()==c
+end
+function c58192813.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
+	local tc=Duel.GetFirstTarget()
+	if tc and c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		Duel.Equip(tp,c,tc)
+		--Add Equip limit
+		local e1=Effect.CreateEffect(tc)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_EQUIP_LIMIT)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(c58192813.eqlimit)
+		c:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_EQUIP)
+		e2:SetCode(EFFECT_SET_CONTROL)
+		e2:SetValue(tp)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
+		c:RegisterEffect(e2)
+	end
+end

script/c58575.lua

+--魂の解放
+function c58575.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c58575.target)
+	e1:SetOperation(c58575.activate)
+	c:RegisterEffect(e1)
+end
+function c58575.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:IsAbleToRemove() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,5,nil)
+		and Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,5,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,5,5,nil)
+	local g2=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,5,5,nil)
+	g:Merge(g2)
+	Duel.SetTargetCard(g)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,#g,PLAYER_ALL,LOCATION_GRAVE)
+end
+function c58575.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local sg=g:Filter(Card.IsRelateToEffect,nil,e)
+	Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+end

script/c61088766.lua

+--地割れ
+function c61088766.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c61088766.target)
+	e1:SetOperation(c61088766.activate)
+	c:RegisterEffect(e1)
+end
+function c61088766.filter(c)
+	return true
+end
+function c61088766.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c61088766.filter,tp,0,LOCATION_MZONE,1,nil) end
+	local g=Duel.GetMatchingGroup(c61088766.filter,tp,0,LOCATION_MZONE,nil)
+	local tg=g:GetMinGroup(Card.GetAttack)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0)
+end
+function c61088766.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c61088766.filter,tp,0,LOCATION_MZONE,nil)
+	if g:GetCount()>0 then
+		local tg=g:GetMinGroup(Card.GetAttack)
+		if tg:GetCount()>1 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+			local sg=tg:Select(tp,1,1,nil)
+			Duel.HintSelection(sg)
+			Duel.Destroy(sg,REASON_EFFECT)
+		else Duel.Destroy(tg,REASON_EFFECT) end
+	end
+end

script/c62968534.lua

+--ドル・ドラ
+function c62968534.initial_effect(c)
+	--to grave
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetOperation(c62968534.regop)
+	c:RegisterEffect(e1)
+end
+function c62968534.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsReason(REASON_DESTROY) and c:IsPreviousLocation(LOCATION_ONFIELD) then
+		--spsummon
+		local e1=Effect.CreateEffect(c)
+		e1:SetDescription(aux.Stringid(62968534,0))
+		e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+		e1:SetRange(LOCATION_GRAVE)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetCountLimit(1)
+		e1:SetCost(c62968534.cost)
+		e1:SetTarget(c62968534.sptg)
+		e1:SetOperation(c62968534.spop)
+		e1:SetLabelObject(e)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1)
+	end
+end
+function c62968534.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	e:GetLabelObject():Reset()
+end
+function c62968534.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c62968534.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_ATTACK)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetValue(1000)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_SET_DEFENSE)
+		c:RegisterEffect(e2)
+	end
+	Duel.SpecialSummonComplete()
+end

script/c62968535.lua

+--ドル・ドラ
+function c62968535.initial_effect(c)
+	--to grave
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetOperation(c62968535.regop)
+	c:RegisterEffect(e1)
+end
+function c62968535.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsReason(REASON_DESTROY) and c:IsPreviousLocation(LOCATION_ONFIELD) then
+		--spsummon
+		local e1=Effect.CreateEffect(c)
+		e1:SetDescription(aux.Stringid(62968535,0))
+		e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+		e1:SetRange(LOCATION_GRAVE)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetCountLimit(1,62968535+EFFECT_COUNT_CODE_DUEL)
+		e1:SetTarget(c62968535.sptg)
+		e1:SetOperation(c62968535.spop)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		c:RegisterEffect(e1)
+	end
+end
+function c62968535.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c62968535.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_ATTACK)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetValue(1000)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_SET_DEFENSE)
+		c:RegisterEffect(e2)
+	end
+	Duel.SpecialSummonComplete()
+end

script/c63442311.lua

+--エレクトリック・スネーク
+function c63442311.initial_effect(c)
+	--draw
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(63442311,0))
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetCondition(c63442311.drcon)
+	e1:SetTarget(c63442311.drtg)
+	e1:SetOperation(c63442311.drop)
+	c:RegisterEffect(e1)
+end
+function c63442311.drcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_HAND) and bit.band(r,REASON_EFFECT)>0 and rp==1-tp
+end
+function c63442311.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(2)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
+end
+function c63442311.drop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Draw(p,d,REASON_EFFECT)
+end

script/c6360197.lua

+--カオスポッド
+function c6360197.initial_effect(c)
+	--flip
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP)
+	e1:SetTarget(c6360197.target)
+	e1:SetOperation(c6360197.operation)
+	c:RegisterEffect(e1)
+end
+function c6360197.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+end
+function c6360197.filter(c)
+	return not c:IsStatus(STATUS_BATTLE_DESTROYED) and c:IsAbleToDeck()
+end
+function c6360197.operation(e,tp,eg,ep,ev,re,r,rp)
+	local rg=Duel.GetMatchingGroup(c6360197.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	Duel.SendtoDeck(rg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+	local ct1=0
+	local ct2=0
+	rg=Duel.GetOperatedGroup()
+	local tc=rg:GetFirst()
+	while tc do
+		if tc:IsLocation(LOCATION_DECK) and tc:IsType(TYPE_MONSTER) then
+			if tc:GetControler()==tp then ct1=ct1+1
+			else ct2=ct2+1 end
+		end
+		tc=rg:GetNext()
+	end
+	if ct1>0 then Duel.ShuffleDeck(tp) end
+	if ct2>0 then Duel.ShuffleDeck(1-tp) end
+	Duel.BreakEffect()
+	local g1=nil
+	local g2=nil
+	if ct1>0 then g1=c6360197.sp(e,tp,ct1) end
+	if ct2>0 then g2=c6360197.sp(e,1-tp,ct2) end
+	Duel.SpecialSummonComplete()
+	if g1 then Duel.ShuffleSetCard(g1) end
+	if g2 then Duel.ShuffleSetCard(g2) end
+end
+function c6360197.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
+end
+function c6360197.sp(e,tp,ct)
+	local g=Duel.GetFieldGroup(tp,LOCATION_DECK,0)
+	local dt=g:GetCount()
+	if dt==0 then return false end
+	local dlist={}
+	local tc=g:GetFirst()
+	while tc do
+		if tc:IsType(TYPE_MONSTER) then dlist[tc:GetSequence()]=tc end
+		tc=g:GetNext()
+	end
+	local i=dt-1
+	local a=0
+	local last=nil
+	g=Group.CreateGroup()
+	while a<ct and i>=0 do
+		tc=dlist[i]
+		if tc then
+			g:AddCard(tc)
+			last=tc
+			a=a+1
+		end
+		i=i-1
+	end
+	local conf=dt-last:GetSequence()
+	Duel.ConfirmDecktop(tp,conf)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	g=g:Filter(c6360197.spfilter,nil,e,tp)
+	if g:GetCount()>ft then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		g=g:Select(tp,ft,ft,nil)
+	end
+	tc=g:GetFirst()
+	while tc do
+		Duel.DisableShuffleCheck()
+		Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
+		tc=g:GetNext()
+	end
+	if conf-g:GetCount()>0 then
+		Duel.DiscardDeck(tp,conf-g:GetCount(),REASON_EFFECT+REASON_REVEAL)
+	end
+	return g
+end

script/c66666004.lua

@@ -2,6 +2,7 @@
 function c66666004.initial_effect(c)
 	if c66666004.reg then return end
 	c66666004.reg = true
+	c66666004.tag = Duel.GetLP(0) > 8000
 	c66666004.active = {[0]=false,[1]=false}
 	local e1=Effect.GlobalEffect()
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)

script/c66666005.lua

+--[决斗编年史]规则的超越者
+function c66666005.initial_effect(c)
+	if c66666005.reg then return end
+	c66666005.reg = true
+	c66666005.tag = Duel.GetLP(0) > 8000
+	c66666005.active = {[0]=false,[1]=false}
+	local e1=Effect.GlobalEffect()
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_ADJUST)
+	e1:SetOperation(c66666005.init)
+	Duel.RegisterEffect(e1,0)
+	local e2=Effect.GlobalEffect()
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_PREDRAW)
+	e2:SetCondition(c66666005.cfcon)
+	e2:SetOperation(c66666005.cfop)
+	Duel.RegisterEffect(e2,0)
+end
+c66666005.tag = true
+function c66666005.init(e)
+	for tp = 0,1 do
+		local g = Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_HAND,0,nil,66666005)
+		local i = g:GetCount()
+		if i > 0 then
+			c66666005.active[tp] = true
+			c66666005.active[tp+10] = true
+			Duel.Exile(g,REASON_RULE)
+			local top = Duel.GetDecktopGroup(tp,i)
+			top:ForEach(c66666005.exile)
+			Duel.Exile(top,REASON_RULE)
+		end
+		local g2 = Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_DECK,0,nil,66666005)
+		if g2:GetCount() > 0 then
+			c66666005.active[tp] = true
+			c66666005.active[tp+10] = true
+			Duel.Exile(g2,REASON_RULE)
+		end
+	end
+	e:Reset()
+end
+
+function c66666005.exile(c)
+	local tp = c:GetOwner()
+	Duel.SendtoHand(Duel.CreateToken(tp,c:GetOriginalCode()),tp,REASON_RULE)
+end
+function c66666005.cfcon(e,tp,eg,ep,ev,re,r,rp)
+	tp = Duel.GetTurnPlayer()
+	return c66666005.active[tp]
+end
+function c66666005.filter(c,code)
+	return c:GetOriginalCode()==code and c:GetOwner() == c:GetControler()
+end
+function c66666005.cfop(e,tp,eg,ep,ev,re,r,rp)
+	tp = Duel.GetTurnPlayer()
+	c66666005.active[tp+10] = not c66666005.active[tp+10]
+	if c66666005.tag and c66666005.active[tp+10] then return end
+	Duel.Hint(HINT_MESSAGE,tp,aux.Stringid(66666005,0))
+	Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(66666005,0))
+	--Draw
+	local e2=Effect.GlobalEffect()
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_DRAW_COUNT)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,0)
+	e2:SetValue(c66666005.DrawCount)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+	--Summon Limit
+	local e4=Effect.GlobalEffect()
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_SET_SUMMON_COUNT_LIMIT)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetTargetRange(1,0)
+	e4:SetValue(100)
+	e4:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e4,tp)
+end
+
+function c66666005.DrawCount(e)
+	local p=Duel.GetTurnPlayer()
+	local ct=Duel.GetFieldGroupCount(p,LOCATION_HAND,0)
+	if ct>4 then return 1
+	else return 5-ct end
+end
\ No newline at end of file

script/c6913773.lua

+--異次元の偵察機
+function c6913773.initial_effect(c)
+	--removed
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_REMOVE)
+	e1:SetOperation(c6913773.rmop)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(6913773,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_PHASE+PHASE_END)
+	e2:SetRange(LOCATION_REMOVED)
+	e2:SetTarget(c6913773.target)
+	e2:SetOperation(c6913773.operation)
+	c:RegisterEffect(e2)
+end
+function c6913773.rmop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsFacedown() then return end
+end
+function c6913773.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetFlagEffect(3773197)==0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c6913773.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then
+			Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT)
+			return
+		end
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK)
+	end
+end

script/c69678908.lua

+--時の機械－タイム・マシーン
+function c69678908.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_BATTLE_DESTROYED)
+	e1:SetTarget(c69678908.target)
+	e1:SetOperation(c69678908.activate)
+	c:RegisterEffect(e1)
+end
+function c69678908.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tc=eg:GetFirst()
+	if chk==0 then return Duel.GetLocationCount(tc:GetPreviousControler(),LOCATION_MZONE)>0 and eg:GetCount()==1
+		and tc:IsLocation(LOCATION_GRAVE) and tc:IsReason(REASON_BATTLE) end
+	tc:CreateEffectRelation(e)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,eg,1,0,0)
+end
+function c69678908.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	if tc:IsRelateToEffect(e) then
+		Duel.MoveToField(tc,tp,tc:GetPreviousControler(),LOCATION_MZONE,tc:GetPreviousPosition(),true)
+	end
+end

script/c76291135.lua

+--魔力の棘
+function c76291135.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--damage
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetOperation(c76291135.damop)
+	c:RegisterEffect(e2)
+end
+function c76291135.filter(c,tp)
+	return c:GetControler()~=tp and c:IsPreviousControler(1-tp) and not c:IsPreviousLocation(LOCATION_ONFIELD)
+		and c:IsReason(REASON_EFFECT) and not c:IsReason(REASON_DESTROY) and not c:IsReason(REASON_BATTLE)
+end
+function c76291135.damop(e,tp,eg,ep,ev,re,r,rp)
+	local ct=eg:FilterCount(c76291135.filter,nil,tp)
+	Duel.Damage(1-tp,ct*500,REASON_EFFECT)
+end

script/c88606465.lua

+--異次元隔離マシーン
+function c88606465.initial_effect(c)
+	--remove
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c88606465.target)
+	e1:SetOperation(c88606465.operation)
+	c:RegisterEffect(e1)
+	--return
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetCondition(c88606465.retcon)
+	e2:SetOperation(c88606465.retop)
+	e2:SetLabelObject(e1)
+	c:RegisterEffect(e2)
+	if not c88606465.removed then c88606465.removed={} end
+end
+function c88606465.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return false end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g1=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g2=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,1,nil)
+	g1:Merge(g2)
+	if e:GetLabelObject() then
+		e:GetLabelObject():DeleteGroup()
+		e:SetLabelObject(nil)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g1,2,0,0)
+end
+function c88606465.gfe(c)
+	c88606465.removed[c]={}
+	c88606465.removed[c].pos=c:GetPosition()
+	c88606465.removed[c].player=c:GetControler()
+end
+function c88606465.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	tg:ForEach(c88606465.gfe)
+	if Duel.Remove(tg,0,REASON_EFFECT)~=0 then
+		local g=Duel.GetOperatedGroup()
+		local tc=g:GetFirst()
+		while tc do
+			tc:RegisterFlagEffect(88606465,RESET_EVENT+RESETS_STANDARD,0,1)
+			tc=g:GetNext()
+		end
+		c:RegisterFlagEffect(88606465,RESET_EVENT+0x17a0000,0,1)
+		g:KeepAlive()
+		e:SetLabelObject(g)
+	end
+end
+function c88606465.retcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetFlagEffect(88606465)~=0 and bit.band(r,REASON_DESTROY)~=0
+		and e:GetLabelObject():GetLabelObject()~=nil
+end
+function c88606465.retop(e,tp,eg,ep,ev,re,r,rp)
+	local g=e:GetLabelObject():GetLabelObject()
+	local tc=g:GetFirst()
+	while tc do
+		if tc:GetFlagEffect(88606465)>0 then
+			Duel.SpecialSummon(tc,0,tp,c88606465.removed[c].player,false,false,c88606465.removed[c].pos)
+			c88606465.removed[c]=nil
+		end
+		tc=g:GetNext()
+	end
+	g:DeleteGroup()
+	e:GetLabelObject():SetLabelObject(nil)
+end

script/c92037199.lua

+--霊子エネルギー固定装置
+function c92037199.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--spirit do not return
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SPIRIT_DONOT_RETURN)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	c:RegisterEffect(e2)
+	--maintain
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EVENT_PHASE+PHASE_END)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetCountLimit(1)
+	e4:SetCondition(c92037199.mtcon)
+	e4:SetOperation(c92037199.mtop)
+	c:RegisterEffect(e4)
+end
+function c92037199.mtcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c92037199.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0 and Duel.SelectYesNo(tp,aux.Stringid(92037199,0)) then
+		Duel.DiscardHand(tp,nil,1,1,REASON_COST+REASON_DISCARD)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end

script/c96828006.lua

+--砂塵の大竜巻
+function c96828006.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
+	e1:SetTarget(c96828006.target)
+	e1:SetOperation(c96828006.activate)
+	c:RegisterEffect(e1)
+end
+function c96828006.filter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and not c:IsLocation(LOCATION_FZONE)
+end
+function c96828006.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c96828006.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c96828006.filter,tp,0,LOCATION_SZONE,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,c96828006.filter,tp,0,LOCATION_ONFIELD,1,1,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c96828006.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
+		local g=Duel.GetMatchingGroup(Card.IsSSetable,tp,LOCATION_HAND,0,nil)
+		if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(96828006,0)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+			local sg=g:Select(tp,1,1,nil)
+			Duel.SSet(tp,sg,tp,false)
+		end
+	end
+end

script/c96864422.lua

+--水精鱗－ディニクアビス
+function c96864422.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(96864422,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCost(c96864422.spcost)
+	e1:SetTarget(c96864422.sptg)
+	e1:SetOperation(c96864422.spop)
+	c:RegisterEffect(e1)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(96864422,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetCountLimit(1,22446869)
+	e2:SetCondition(c96864422.thcon)
+	e2:SetTarget(c96864422.thtg)
+	e2:SetOperation(c96864422.thop)
+	c:RegisterEffect(e2)
+end
+function c96864422.cfilter(c)
+	return c:IsAttribute(ATTRIBUTE_WATER) and c:IsDiscardable() and c:IsAbleToGraveAsCost()
+end
+function c96864422.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c96864422.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	Duel.DiscardHand(tp,c96864422.cfilter,1,1,REASON_COST+REASON_DISCARD,e:GetHandler())
+end
+function c96864422.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c96864422.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,SUMMON_VALUE_SELF,tp,tp,false,false,POS_FACEUP)
+end
+function c96864422.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+SUMMON_VALUE_SELF
+end
+function c96864422.thfilter(c)
+	return c:IsSetCard(0x74) and c:IsLevelBelow(4) and c:IsAbleToHand()
+end
+function c96864422.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c96864422.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c96864422.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c96864422.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end

script/c97540603.lua

+--極神皇トール
+function c97540603.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,c97540603.tfilter,aux.NonTuner(nil),2)
+	c:EnableReviveLimit()
+	--negate
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(97540603,0))
+	e1:SetCategory(CATEGORY_DISABLE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(c97540603.distg)
+	e1:SetOperation(c97540603.disop)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetOperation(c97540603.regop)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(97540603,1))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_PHASE+PHASE_END)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c97540603.spcon)
+	e3:SetCost(c97540603.spcost)
+	e3:SetTarget(c97540603.sptg)
+	e3:SetOperation(c97540603.spop)
+	c:RegisterEffect(e3)
+	--damage
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(97540603,2))
+	e4:SetCategory(CATEGORY_DAMAGE)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e4:SetCondition(c97540603.damcon)
+	e4:SetTarget(c97540603.damtg)
+	e4:SetOperation(c97540603.damop)
+	c:RegisterEffect(e4)
+end
+function c97540603.tfilter(c)
+	return c:IsSetCard(0x6042) or c:IsHasEffect(61777313)
+end
+function c97540603.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
+end
+function c97540603.disop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
+	local tc=g:GetFirst()
+	local c=e:GetHandler()
+	while tc do
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_DISABLE_EFFECT)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e2)
+		tc=g:GetNext()
+	end
+end
+function c97540603.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local pos=c:GetPreviousPosition()
+	if c:IsReason(REASON_BATTLE) then pos=c:GetBattlePosition() end
+	if rp==1-tp and c:IsPreviousControler(tp) and c:IsReason(REASON_DESTROY)
+		and c:IsPreviousLocation(LOCATION_ONFIELD) and bit.band(pos,POS_FACEUP)~=0 then
+		c:RegisterFlagEffect(97540603,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+	end
+end
+function c97540603.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetFlagEffect(97540603)~=0
+end
+function c97540603.cfilter(c)
+	return c:IsSetCard(0x6042) and c:IsType(TYPE_TUNER) and c:IsAbleToRemoveAsCost()
+end
+function c97540603.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c97540603.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c97540603.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c97540603.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c97540603.spop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsRelateToEffect(e) then
+		Duel.SpecialSummon(e:GetHandler(),SUMMON_VALUE_SELF,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c97540603.damcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+SUMMON_VALUE_SELF
+end
+function c97540603.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetTargetParam(800)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
+end
+function c97540603.damop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Damage(p,d,REASON_EFFECT)
+end