init

.vs/ProjectSettings.json

+{
+  "CurrentProjectSetting": null
+}
\ No newline at end of file

.vs/VSWorkspaceState.json

+{
+  "ExpandedNodes": [
+    ""
+  ],
+  "PreviewInSolutionExplorer": false
+}
\ No newline at end of file

script/c131182.lua

+--奇迹反转士
+function c131182.initial_effect(c)
+	
+end

script/c1711318.lua

+--キラー・スネーク
+function c1711318.initial_effect(c)
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(1711318,0))
+	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD)
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetCondition(c1711318.condition)
+	e1:SetTarget(c1711318.target)
+	e1:SetOperation(c1711318.operation)
+	c:RegisterEffect(e1)
+end
+function c1711318.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c1711318.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToHand() end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+end
+function c1711318.operation(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsRelateToEffect(e) then
+		Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT)
+	end
+end
\ No newline at end of file

script/c17207565.lua

+--D－HERO ディスクガイ
+function c17207565.initial_effect(c)
+	--draw
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(17207565,0))
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCondition(c17207565.condition)
+	e1:SetTarget(c17207565.target)
+	e1:SetOperation(c17207565.operation)
+	c:RegisterEffect(e1)
+end
+function c17207565.condition(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetSummonLocation()==LOCATION_GRAVE
+end
+function c17207565.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(2)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
+end
+function c17207565.operation(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/c17887841.lua

+--レスキューキャット
+function c17887841.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(17887841,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c17887841.spcost)
+	e1:SetTarget(c17887841.sptg)
+	e1:SetOperation(c17887841.spop)
+	c:RegisterEffect(e1)
+end
+function c17887841.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+function c17887841.filter(c,e,tp)
+	return c:IsLevelBelow(3) and c:IsRace(RACE_BEAST) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c17887841.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c17887841.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK)
+end
+function c17887841.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(c17887841.filter,tp,LOCATION_DECK,0,nil,e,tp)
+	if g:GetCount()>=2 then
+		local fid=e:GetHandler():GetFieldID()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:Select(tp,2,2,nil)
+		Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+		local tc=sg:GetFirst()
+		while tc do
+			tc:RegisterFlagEffect(17887841,RESET_EVENT+RESETS_STANDARD,0,1,fid)
+			tc=sg:GetNext()
+		end
+		sg:KeepAlive()
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e3:SetCode(EVENT_PHASE+PHASE_END)
+		e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+		e3:SetCountLimit(1)
+		e3:SetLabel(fid)
+		e3:SetLabelObject(sg)
+		e3:SetCondition(c17887841.descon)
+		e3:SetOperation(c17887841.desop)
+		Duel.RegisterEffect(e3,tp)
+	end
+end
+function c17887841.desfilter(c,fid)
+	return c:GetFlagEffectLabel(17887841)==fid
+end
+function c17887841.descon(e,tp,eg,ep,ev,re,r,rp)
+	local g=e:GetLabelObject()
+	if not g:IsExists(c17887841.desfilter,1,nil,e:GetLabel()) then
+		g:DeleteGroup()
+		e:Reset()
+		return false
+	else return true end
+end
+function c17887841.desop(e,tp,eg,ep,ev,re,r,rp)
+	local g=e:GetLabelObject()
+	local tg=g:Filter(c17887841.desfilter,nil,e:GetLabel())
+	Duel.Destroy(tg,REASON_EFFECT)
+end

script/c19851335.lua

+--合神竜ティマイオス
+function c19851335.initial_effect(c)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcCode3(c,80019195,85800949,84565800,true,true)
+	aux.AddContactFusionProcedure(c,Card.IsAbleToGraveAsCost,LOCATION_ONFIELD,0,Duel.SendtoGrave,REASON_COST)
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	c:RegisterEffect(e1)
+	--immune
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_IMMUNE_EFFECT)
+	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetValue(c19851335.efilter)
+	c:RegisterEffect(e3)
+	--atk & def
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCondition(c19851335.atkcon)
+	e4:SetTarget(c19851335.atktg)
+	e4:SetOperation(c19851335.atkop)
+	c:RegisterEffect(e4)
+	--spsummon
+	local e5=Effect.CreateEffect(c)
+	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e5:SetCode(EVENT_BATTLE_DESTROYED)
+	e5:SetTarget(c19851335.sptg)
+	e5:SetOperation(c19851335.spop)
+	c:RegisterEffect(e5)
+end
+function c19851335.efilter(e,te)
+	return te:GetOwner()~=e:GetOwner()
+end
+function c19851335.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c==Duel.GetAttacker() or c==Duel.GetAttackTarget()
+end
+function c19851335.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then
+		local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,c)
+		if g:GetCount()==0 then return false end
+		local g1,atk=g:GetMaxGroup(Card.GetAttack)
+		return not c:IsAttack(atk) and c:GetFlagEffect(19851335)==0
+	end
+	c:RegisterFlagEffect(19851335,RESET_CHAIN,0,1)
+end
+function c19851335.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,c)
+	if g:GetCount()==0 then return end
+	local g1,atk=g:GetMaxGroup(Card.GetAttack)
+	if c:IsRelateToEffect(e) and c:IsFaceup() and atk>0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e1:SetValue(atk)
+		c:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
+		c:RegisterEffect(e2)
+	end
+end
+function c19851335.spfilter(c,e,tp)
+	return c:IsSetCard(0xa0) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
+end
+function c19851335.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>=3
+		and Duel.IsExistingMatchingCard(c19851335.spfilter,tp,0x13,0,3,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,tp,0x13)
+end
+function c19851335.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<3 then return end
+	local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c19851335.spfilter),tp,0x13,0,nil,e,tp)
+	if g:GetCount()>2 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sg=g:Select(tp,3,3,nil)
+		Duel.SpecialSummon(sg,0,tp,tp,true,true,POS_FACEUP)
+	end
+end

script/c19972759.lua

+--カタパルト・タートル
+function c19972759.initial_effect(c)
+	--damage
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(19972759,0))
+	e1:SetCategory(CATEGORY_DAMAGE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c19972759.cost)
+	e1:SetTarget(c19972759.target)
+	e1:SetOperation(c19972759.operation)
+	c:RegisterEffect(e1)
+end
+function c19972759.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil) end
+	local sg=Duel.SelectReleaseGroup(tp,nil,1,1,nil)
+	e:SetLabel(math.floor(sg:GetFirst():GetAttack()/2))
+	Duel.Release(sg,REASON_COST)
+end
+function c19972759.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetTargetParam(e:GetLabel())
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,e:GetLabel())
+end
+function c19972759.operation(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

script/c21173704.lua

+--混沌の黒魔術師
+function c21173704.initial_effect(c)
+	--return card
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(21173704,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(c21173704.thtg)
+	e1:SetOperation(c21173704.thop)
+	c:RegisterEffect(e1)
+	e1=e1:Clone()
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e1)
+	--remove
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_BATTLE_DESTROY_REDIRECT)
+	e2:SetValue(LOCATION_REMOVED)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetValue(LOCATION_REMOVED)
+	c:RegisterEffect(e3)
+end
+function c21173704.thfilter(c)
+	return c:IsType(TYPE_SPELL) and c:IsAbleToHand()
+end
+function c21173704.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c21173704.thfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c21173704.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectTarget(tp,c21173704.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function c21173704.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end
\ No newline at end of file

script/c2786108.lua

+--闇の訪れ
+function c2786108.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_POSITION)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c2786108.cost)
+	e1:SetTarget(c2786108.target)
+	e1:SetOperation(c2786108.activate)
+	c:RegisterEffect(e1)
+end
+function c2786108.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,2,e:GetHandler()) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,2,2,REASON_COST+REASON_DISCARD)
+end
+function c2786108.filter(c)
+	return c:IsFaceup() and c:IsCanTurnSet()
+end
+function c2786108.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c2786108.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c2786108.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	local g=Duel.SelectTarget(tp,c2786108.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
+end
+function c2786108.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		if tc:IsPosition(POS_FACEUP_ATTACK) then
+			Duel.ChangePosition(tc,POS_FACEDOWN_ATTACK)
+		else
+			Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
+		end
+	end
+end

script/c281131.lua

+--ミラクル・フリッパー
+function c281131.initial_effect(c)
+	--sumlimit
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CANNOT_SUMMON)
+	e1:SetCondition(c281131.excon)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_CANNOT_FLIP_SUMMON)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e3:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e3:SetValue(c281131.splimit)
+	c:RegisterEffect(e3)
+	--cannot be battle target
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetTargetRange(0,LOCATION_MZONE)
+	e4:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
+	e4:SetValue(c281131.atlimit)
+	c:RegisterEffect(e4)
+	--spsummon
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(281131,0))
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e5:SetCode(EVENT_BATTLE_DESTROYED)
+	e5:SetCondition(c281131.spcon)
+	e5:SetTarget(c281131.sptg)
+	e5:SetOperation(c281131.spop)
+	c:RegisterEffect(e5)
+	--destroy
+	local e7=Effect.CreateEffect(c)
+	e7:SetDescription(aux.Stringid(281131,1))
+	e7:SetCategory(CATEGORY_DESTROY)
+	e7:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e7:SetCode(EVENT_DESTROYED)
+	e7:SetCondition(c281131.descon)
+	e7:SetTarget(c281131.destg)
+	e7:SetOperation(c281131.desop)
+	c:RegisterEffect(e7)
+end
+function c281131.exfilter(c)
+	return c:IsFaceup() and c:IsCode(281131)
+end
+function c281131.excon(e)
+	local c=e:GetHandler()
+	return Duel.IsExistingMatchingCard(c281131.exfilter,c:GetControler(),LOCATION_ONFIELD,0,1,nil)
+end
+function c281131.splimit(e,se,sp,st,spos,tgp)
+	return not Duel.IsExistingMatchingCard(c281131.exfilter,tgp,LOCATION_ONFIELD,0,1,nil)
+end
+function c281131.atlimit(e,c)
+	return c:IsFaceup() and c~=e:GetHandler()
+end
+function c281131.battleop(e,tp,eg,ep,ev,re,r,rp)
+	e:GetHandler():RegisterFlagEffect(281131,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE,0,1)
+end
+function c281131.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetFlagEffect(281131)~=0
+end
+function c281131.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c281131.spop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsRelateToEffect(e) then
+		Duel.SpecialSummon(e:GetHandler(),0,tp,1-tp,false,false,POS_FACEUP)
+	end
+end
+function c281131.descon(e,tp,eg,ep,ev,re,r,rp)
+	return bit.band(r,REASON_EFFECT)~=0 and re:IsActiveType(TYPE_SPELL+TYPE_TRAP)
+end
+function c281131.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end
+	if chk==0 then return true end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c281131.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc and tc:IsRelateToEffect(e) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end

script/c36301087.lua

+--黒き森のウィッチ
+function c36301087.initial_effect(c)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(36301087,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetCondition(c36301087.condition)
+	e1:SetTarget(c36301087.target)
+	e1:SetOperation(c36301087.operation)
+	c:RegisterEffect(e1)
+end
+function c36301087.condition(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function c36301087.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c36301087.filter(c)
+	return c:IsDefenseBelow(1500) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c36301087.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c36301087.filter,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
\ No newline at end of file

script/c37604716.lua

+--王宮の勅命
+function c37604716.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--disable
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_DISABLE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
+	e2:SetTarget(c37604716.distarget)
+	c:RegisterEffect(e2)
+	--disable effect
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAIN_SOLVING)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetOperation(c37604716.disoperation)
+	c:RegisterEffect(e3)
+	--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(c37604716.mtcond)
+	e4:SetOperation(c37604716.mtop)
+	c:RegisterEffect(e4)
+end
+function c37604716.distarget(e,c)
+	return c~=e:GetHandler() and c:IsType(TYPE_SPELL)
+end
+function c37604716.disoperation(e,tp,eg,ep,ev,re,r,rp)
+	local tl=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
+	if bit.band(tl,LOCATION_SZONE)~=0 and re:IsActiveType(TYPE_SPELL) then
+		Duel.NegateEffect(ev)
+	end
+end
+function c37604716.mtcond(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer() == tp
+end
+function c37604716.mtop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.CheckLPCost(tp,700) and Duel.SelectYesNo(tp,aux.Stringid(37604716,0)) then
+		Duel.PayLPCost(tp,700)
+	else
+		Duel.Destroy(e:GetHandler(),REASON_COST)
+	end
+end

script/c40256577.lua

+--未来融合－フューチャー・フュージョン
+function c40256577.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCondition(c40256577.tgcon)
+	e1:SetOperation(c40256577.tgop)
+	c:RegisterEffect(e1)
+	--Turn 2
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c40256577.proccon)
+	e3:SetOperation(c40256577.procop)
+	e3:SetLabelObject(e1)
+	c:RegisterEffect(e3)
+	--Destroy
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
+	e4:SetCode(EVENT_LEAVE_FIELD)
+	e4:SetOperation(c40256577.desop)
+	c:RegisterEffect(e4)
+	--Destroy2
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e5:SetRange(LOCATION_SZONE)
+	e5:SetCode(EVENT_LEAVE_FIELD)
+	e5:SetCondition(c40256577.descon2)
+	e5:SetOperation(c40256577.desop2)
+	c:RegisterEffect(e5)
+end
+function c40256577.reg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local c=e:GetHandler()
+	c:SetTurnCounter(0)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_PHASE_START+PHASE_STANDBY)
+	e1:SetCountLimit(1)
+	e1:SetOperation(c40256577.ctop)
+	Duel.RegisterEffect(e1,tp)
+	c:CreateEffectRelation(e1)
+end
+function c40256577.ctop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=c:GetTurnCounter()
+	if not c:IsRelateToEffect(e) or ct>=2 then
+		c:SetTurnCounter(0)
+		e:Reset()
+		return
+	end
+	if Duel.GetTurnPlayer()~=tp then return end
+	ct=ct+1
+	c:SetTurnCounter(ct)
+end
+function c40256577.tgcon(e,tp,eg,ep,ev,re,r,rp)
+	local mg=Duel.GetMatchingGroup(c40256577.filter1,tp,LOCATION_DECK,0,nil,e)
+	local sg=Duel.GetMatchingGroup(c40256577.filter2,tp,LOCATION_EXTRA,0,nil,mg)
+	return sg:GetCount() > 0
+end
+function c40256577.filter1(c,e)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() and not c:IsImmuneToEffect(e)
+end
+function c40256577.filter2(c,m)
+	return c:IsFusionSummonableCard() and c:CheckFusionMaterial(m)
+end
+function c40256577.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	c:SetTurnCounter(0)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_PHASE_START+PHASE_STANDBY)
+	e1:SetCountLimit(1)
+	e1:SetOperation(c40256577.ctop)
+	Duel.RegisterEffect(e1,tp)
+	c:CreateEffectRelation(e1)
+	local mg=Duel.GetMatchingGroup(c40256577.filter1,tp,LOCATION_DECK,0,nil,e)
+	local sg=Duel.GetMatchingGroup(c40256577.filter2,tp,LOCATION_EXTRA,0,nil,mg)
+	if sg:GetCount()>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+		local tg=sg:Select(tp,1,1,nil)
+		local tc=tg:GetFirst()
+		Duel.ConfirmCards(1-tp,tc)
+		local code=tc:GetCode()
+		local mat=Duel.SelectFusionMaterial(tp,tc,mg)
+		mat:KeepAlive()
+		Duel.SendtoGrave(mat,REASON_EFFECT)
+		e:SetLabel(code)
+		e:SetLabelObject(mat)
+	end
+end
+function c40256577.proccon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp and e:GetHandler():GetTurnCounter()==2
+end
+function c40256577.procfilter(c,code,e,tp)
+	return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function c40256577.procop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_FMATERIAL) then return end
+	local code=e:GetLabelObject():GetLabel()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c40256577.procfilter,tp,LOCATION_EXTRA,0,1,1,nil,code,e,tp)
+	local tc=g:GetFirst()
+	if not tc then return end
+	tc:SetStatus(STATUS_FUTURE_FUSION,true)
+	tc:SetMaterial(e:GetLabelObject():GetLabelObject())
+	Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+	tc:CompleteProcedure()
+	c:SetCardTarget(tc)
+end
+function c40256577.desop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetHandler():GetFirstCardTarget()
+	if tc and tc:IsLocation(LOCATION_MZONE) then
+		Duel.Destroy(tc,REASON_EFFECT)
+	end
+end
+function c40256577.descon2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetHandler():GetFirstCardTarget()
+	return tc and eg:IsContains(tc) and tc:IsReason(REASON_DESTROY)
+end
+function c40256577.desop2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+end

script/c40910328.lua

+--混沌帝龍 －終焉の使者－
+function c40910328.initial_effect(c)
+	c:EnableReviveLimit()
+	--cannot special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(40910328,0))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c40910328.spcon)
+	e2:SetOperation(c40910328.spop)
+	c:RegisterEffect(e2)
+	--to grave
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(40910328,1))
+	e3:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DAMAGE)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetCost(c40910328.sgcost)
+	e3:SetTarget(c40910328.sgtg)
+	e3:SetOperation(c40910328.sgop)
+	c:RegisterEffect(e3)
+end
+function c40910328.spcostfilter(c)
+	return c:IsAbleToRemoveAsCost() and c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK)
+end
+function c40910328.spcost_selector(c,tp,g,sg,i)
+	sg:AddCard(c)
+	g:RemoveCard(c)
+	local flag=false
+	if i<2 then
+		flag=g:IsExists(c40910328.spcost_selector,1,nil,tp,g,sg,i+1)
+	else
+		flag=sg:FilterCount(Card.IsAttribute,nil,ATTRIBUTE_LIGHT)>0
+			and sg:FilterCount(Card.IsAttribute,nil,ATTRIBUTE_DARK)>0
+	end
+	sg:RemoveCard(c)
+	g:AddCard(c)
+	return flag
+end
+function c40910328.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	if Duel.GetMZoneCount(tp)<=0 then return false end
+	local g=Duel.GetMatchingGroup(c40910328.spcostfilter,tp,LOCATION_GRAVE,0,nil)
+	local sg=Group.CreateGroup()
+	return g:IsExists(c40910328.spcost_selector,1,nil,tp,g,sg,1)
+end
+function c40910328.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.GetMatchingGroup(c40910328.spcostfilter,tp,LOCATION_GRAVE,0,nil)
+	local sg=Group.CreateGroup()
+	for i=1,2 do
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local g1=g:FilterSelect(tp,c40910328.spcost_selector,1,1,nil,tp,g,sg,i)
+		sg:Merge(g1)
+		g:Sub(g1)
+	end
+	Duel.Remove(sg,POS_FACEUP,REASON_COST)
+end
+function c40910328.sgcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,1000) end
+	Duel.PayLPCost(tp,1000)
+end
+function c40910328.damfilter(c,p)
+	return c:GetOwner()==p and c:IsAbleToGrave()
+end
+function c40910328.sgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=Duel.GetFieldGroup(tp,0xe,0xe)
+	local dc=g:FilterCount(c40910328.damfilter,nil,1-tp)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,1-tp,dc*300)
+end
+function c40910328.sgfilter(c,p)
+	return c:IsLocation(LOCATION_GRAVE) and c:IsControler(p)
+end
+function c40910328.sgop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetFieldGroup(tp,0xe,0xe)
+	Duel.SendtoGrave(g,REASON_EFFECT)
+	local og=Duel.GetOperatedGroup()
+	local ct=og:FilterCount(c40910328.sgfilter,nil,1-tp)
+	if ct>0 then
+		Duel.BreakEffect()
+		Duel.Damage(1-tp,ct*300,REASON_EFFECT)
+	end
+end

script/c56120262.lua

+--クリッター
+function c56120262.initial_effect(c)
+	--search
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(56120262,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetCondition(c56120262.condition)
+	e1:SetTarget(c56120262.target)
+	e1:SetOperation(c56120262.operation)
+	c:RegisterEffect(e1)
+end
+function c56120262.condition(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
+end
+function c56120262.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c56120262.filter(c)
+	return c:IsAttackBelow(1500) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c56120262.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c56120262.filter,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
\ No newline at end of file

script/c66655538.lua

+--破壊輪
+function c66655538.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetTarget(c66655538.target)
+	e1:SetOperation(c66655538.activate)
+	c:RegisterEffect(e1)
+end
+function c66655538.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local lp=Duel.GetLP(1-tp)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	local i=g:GetFirst():GetAttack()
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,i)
+end
+function c66655538.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local atk=tc:GetAttack()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() and Duel.Destroy(tc,REASON_EFFECT)~=0 then
+		Duel.Damage(tp,atk,REASON_EFFECT)
+		Duel.Damage(1-tp,atk,REASON_EFFECT)
+	end
+end

script/c66666000.lua

+--真正的决斗者
+function c66666000.initial_effect(c)
+	if c66666000.reg then return end
+	c66666000.reg = true
+	c66666000.tag = Duel.GetLP(0) > 8000
+	c66666000.active = {[0]=false,[1]=false}
+	local e2=Effect.GlobalEffect()
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_PREDRAW)
+	e2:SetOperation(c66666000.cfop)
+	Duel.RegisterEffect(e2,0)
+end
+c66666000.tag = false
+function c66666000.init(e)
+	for tp = 0,1 do
+		local g = Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_HAND,0,nil,66666000)
+		local i = g:GetCount()
+		if i > 0 then
+			if c66666000.active[tp] then
+				c66666000.active[tp+20] = true
+			end
+			c66666000.active[tp] = true
+			c66666000.active[tp+10] = true
+
+			Duel.Exile(g,REASON_RULE)
+			for p = 1,i do
+				local top = Duel.GetDecktopGroup(tp,1):GetFirst()
+				local newc = Duel.CreateToken(tp,top:GetOriginalCode())
+				Duel.SendtoHand(newc,nil,REASON_RULE)
+				Duel.Exile(top,REASON_RULE)
+			end
+		end
+		local g2 = Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_DECK,0,nil,66666000)
+		if g2:GetCount() > 0 then
+			if c66666000.active[tp] then
+				c66666000.active[tp+20] = true
+			end
+			c66666000.active[tp] = true
+			c66666000.active[tp+10] = true
+			Duel.Exile(g2,REASON_RULE)
+		end
+	end
+end
+
+function c66666000.cfop(e,tp,eg,ep,ev,re,r,rp)
+	c66666000.init(e)
+	tp = Duel.GetTurnPlayer()
+	if not c66666000.active[tp]
+		and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0
+		then return end
+	c66666000.active[tp+10] = not c66666000.active[tp+10]
+	if c66666000.tag and c66666000.active[tp+10] and c66666000.active[tp+20]==false then return end
+	Duel.Hint(HINT_MESSAGE,tp,aux.Stringid(66666000,1))
+	Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(66666000,1))
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(66666000,0))
+	local g = Duel.SelectMatchingCard(tp,nil,tp,LOCATION_DECK,0,1,1,nil)
+	Duel.MoveSequence(g:GetFirst(),0)
+end

script/c66666001.lua

+--[决斗编年史]希望的创造者
+function c66666001.initial_effect(c)
+	--deck control
+	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(c66666001.spreg)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(66666001,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCode(EVENT_PREDRAW)
+	e2:SetCondition(c66666001.spcon2)
+	e2:SetCost(c66666001.spcost)
+	e2:SetTarget(c66666001.sptg2)
+	e2:SetOperation(c66666001.spop2)
+	e1:SetLabelObject(e2)
+	c:RegisterEffect(e2)
+end
+
+function c66666001.spreg(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if rp==1-tp and c:IsReason(REASON_DESTROY) then
+		e:GetLabelObject():SetLabel(Duel.GetTurnCount()+1)
+		local turn = 2
+		if Duel.GetTurnPlayer() == tp then turn = 3 end
+		c:RegisterFlagEffect(66666001,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,turn)
+	end
+end
+
+function c66666001.spcon2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer() == tp and Duel.GetLP(tp) < Duel.GetLP(1-tp)
+		and e:GetHandler():GetFlagEffect(66666001)>0
+end
+
+function c66666001.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	return Duel.GetMatchingGroup(nil,tp,LOCATION_DECK,0,nil):GetCount() > 0
+end
+
+function c66666001.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.Hint(HINT_MESSAGE,tp,aux.Stringid(66666001,0))
+	Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(66666001,0))
+end
+
+function c66666001.spop2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(66666001,1))
+	local g = Duel.SelectMatchingCard(tp,nil,tp,LOCATION_DECK,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.MoveSequence(g:GetFirst(),0)
+	Duel.RegisterFlagEffect(tp,66666001,0,0,999)
+end
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

script/c66666002.lua

+--[决斗编年史]胜利的方程式
+function c66666002.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(c66666002.cost)
+	e1:SetTarget(c66666002.target)
+	e1:SetOperation(c66666002.activate)
+	c:RegisterEffect(e1)
+end
+
+function c66666002.filter1(c,e,tp)
+	return c:IsSetCard(0x48) and (not c:IsSetCard(0x1048)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+
+function c66666002.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.Hint(HINT_MESSAGE,tp,aux.Stringid(66666002,0))
+	Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(66666002,0))
+end
+function c66666002.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_XYZ)>0
+		and Duel.IsExistingMatchingCard(c66666002.filter1,tp,LOCATION_EXTRA,0,1,nil,e,tp)
+		and Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_MZONE,1,nil)
+		and (not Duel.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,0,1,nil)) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+
+function c66666002.activate(e,tp,eg,ep,ev,re,r,rp)
+	local c = e:GetHandler()
+	if Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_XYZ) < 1 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local tc=Duel.SelectMatchingCard(tp,c66666002.filter1,tp,LOCATION_EXTRA,0,1,1,nil,e,tp):GetFirst()
+	if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then
+		Duel.BreakEffect()
+		c:CancelToGrave()
+		Duel.Overlay(tc,c)
+	end
+	Duel.RegisterFlagEffect(tp,66666002,0,0,999)
+end
+
+
+
+
+
+
+
+
+
+
+

script/c66666003.lua

+--[决斗编年史]奇迹的创造者
+function c66666003.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetCountLimit(1)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCost(c66666003.cost)
+	e1:SetTarget(c66666003.target)
+	e1:SetOperation(c66666003.activate)
+	c:RegisterEffect(e1)
+end
+
+function c66666003.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.Hint(HINT_MESSAGE,tp,aux.Stringid(66666003,0))
+	Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(66666003,0))
+end
+function c66666003.tgfilter(c)
+	return c:IsSetCard(0x1048) and c:IsSetCard(0x107f) and c:IsType(TYPE_XYZ) and c:IsFaceup()
+end
+function c66666003.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingTarget(c66666003.tgfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.SelectTarget(tp,c66666003.tgfilter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c66666003.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc = Duel.GetFirstTarget()
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DIRECT_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(tc)
+		e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e2:SetCode(EVENT_BATTLE_DAMAGE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		e2:SetCondition(c66666003.condition)
+		e2:SetOperation(c66666003.operation)
+		tc:RegisterEffect(e2,true)
+	end
+end
+
+function c66666003.condition(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp and Duel.GetAttackTarget()==nil
+		and Duel.GetFlagEffect(tp,66666001) ~= 0
+		and Duel.GetFlagEffect(tp,66666002) ~= 0
+end
+
+function c66666003.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SetLP(1-tp,0)
+end
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

script/c68828769.lua

+--メンタルマスター
+function c68828769.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(68828769,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c68828769.cost)
+	e1:SetTarget(c68828769.target)
+	e1:SetOperation(c68828769.operation)
+	c:RegisterEffect(e1)
+end
+function c68828769.costfilter(c,ft,tp)
+	return c:IsRace(RACE_PSYCHO)
+		and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
+end
+function c68828769.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if chk==0 then return Duel.CheckLPCost(tp,800)
+		and ft>-1 and Duel.CheckReleaseGroup(tp,c68828769.costfilter,1,nil,ft,tp) end
+	Duel.PayLPCost(tp,800)
+	local sg=Duel.SelectReleaseGroup(tp,c68828769.costfilter,1,1,nil,ft,tp)
+	Duel.Release(sg,REASON_COST)
+end
+function c68828769.filter(c,e,tp)
+	return c:IsRace(RACE_PSYCHO) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c68828769.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c68828769.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c68828769.operation(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,c68828769.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_ATTACK) end
+end

script/c69812305.lua

+--氷結界の龍 ブリューナク
+function c69812305.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(69812305,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c69812305.cost)
+	e1:SetTarget(c69812305.target)
+	e1:SetOperation(c69812305.operation)
+	c:RegisterEffect(e1)
+end
+function c69812305.costfilter(c)
+	return c:IsDiscardable() and c:IsAbleToGraveAsCost()
+end
+function c69812305.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c69812305.costfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	local rt=Duel.GetTargetCount(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+	local cg=Duel.SelectMatchingCard(tp,c69812305.costfilter,tp,LOCATION_HAND,0,1,rt,nil)
+	Duel.SendtoGrave(cg,REASON_COST+REASON_DISCARD)
+	e:SetLabel(cg:GetCount())
+end
+function c69812305.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsAbleToHand() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	local ct=e:GetLabel()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local tg=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct,ct,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,tg,ct,0,0)
+end
+function c69812305.operation(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local rg=tg:Filter(Card.IsRelateToEffect,nil,e)
+	if rg:GetCount()>0 then 
+		Duel.SendtoHand(rg,nil,REASON_EFFECT)
+	end
+end

script/c70426792.lua

+--王家の神殿
+function c70426792.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--Trap activate in set turn
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+	e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(LOCATION_SZONE,0)
+	c:RegisterEffect(e2)
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetDescription(aux.Stringid(70426792,0))
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCost(c70426792.cost)
+	e3:SetTarget(c70426792.target)
+	e3:SetOperation(c70426792.operation)
+	c:RegisterEffect(e3)
+end
+function c70426792.cfilter(c,e,tp)
+	return c:IsFaceup() and c:IsCode(89194033) and c:IsAbleToGraveAsCost()
+		and Duel.IsExistingMatchingCard(c70426792.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA,0,1,nil,e,tp,Group.FromCards(c,e:GetHandler()))
+end
+function c70426792.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost()
+		and Duel.IsExistingMatchingCard(c70426792.cfilter,tp,LOCATION_ONFIELD,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c70426792.cfilter,tp,LOCATION_ONFIELD,0,1,1,nil,e,tp)
+	g:AddCard(e:GetHandler())
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c70426792.filter(c,e,tp,tg)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+		and (c:IsLocation(LOCATION_HAND+LOCATION_DECK) and Duel.GetMZoneCount(tp,tg)>0
+			or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,tg,c)>0)
+end
+function c70426792.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA)
+end
+function c70426792.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c70426792.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c73286664.lua

+--[决斗编年史]森之番人 绿狒狒
+function c46668237.initial_effect(c)
+	
+end

script/c74549673.lua

+--歯車街
+function c74549673.initial_effect(c)
+	--activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--decrease tribute
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_DECREASE_TRIBUTE)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetTargetRange(LOCATION_HAND,LOCATION_HAND)
+	e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x7))
+	e2:SetValue(0x1)
+	c:RegisterEffect(e2)
+	--special summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetDescription(aux.Stringid(74549673,0))
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCondition(c74549673.spcon)
+	e3:SetTarget(c74549673.sptg)
+	e3:SetOperation(c74549673.spop)
+	c:RegisterEffect(e3)
+end
+function c74549673.spexcon(e)
+	local c = e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_FZONE)
+		and (not c:IsReason(REASON_EFFECT))
+end
+
+function c74549673.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsReason(REASON_DESTROY) or c74549673.spexcon(e)
+end
+function c74549673.filter(c,e,tp)
+	return c:IsSetCard(0x7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c74549673.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c74549673.filter,tp,0x13,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13)
+end
+function c74549673.spop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c74549673.filter),tp,0x13,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		Duel.ShuffleDeck(tp)
+	end
+end

script/c7582775.lua

+--siのデッキ破壊ウイルス
+function c7582775.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_TOHAND+TIMINGS_CHECK_MONSTER)
+	e1:SetCost(c7582775.cost)
+	e1:SetTarget(c7582775.target)
+	e1:SetOperation(c7582775.activate)
+	c:RegisterEffect(e1)
+end
+function c7582775.costfilter(c)
+	return c:IsAttribute(ATTRIBUTE_DARK) and c:IsAttackBelow(1000)
+end
+function c7582775.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,c7582775.costfilter,1,nil) end
+	local g=Duel.SelectReleaseGroup(tp,c7582775.costfilter,1,1,nil)
+	Duel.Release(g,REASON_COST)
+end
+function c7582775.tgfilter(c)
+	return c:IsFaceup() and c:IsAttackAbove(1500)
+end
+function c7582775.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=Duel.GetMatchingGroup(c7582775.tgfilter,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function c7582775.filter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAttackAbove(1500)
+end
+function c7582775.activate(e,tp,eg,ep,ev,re,r,rp)
+	local conf=Duel.GetFieldGroup(tp,0,LOCATION_MZONE+LOCATION_HAND)
+	if conf:GetCount()>0 then
+		Duel.ConfirmCards(tp,conf)
+		local dg=conf:Filter(c7582775.filter,nil)
+		Duel.Destroy(dg,REASON_EFFECT)
+		Duel.ShuffleHand(1-tp)
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_DRAW)
+	e1:SetOperation(c7582775.desop)
+	e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,3)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_PHASE+PHASE_END)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c7582775.turncon)
+	e2:SetOperation(c7582775.turnop)
+	e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,3)
+	Duel.RegisterEffect(e2,tp)
+	e2:SetLabelObject(e1)
+	e:GetHandler():RegisterFlagEffect(1082946,RESET_PHASE+PHASE_END+RESET_OPPO_TURN,0,3)
+	c7582775[e:GetHandler()]=e2
+end
+function c7582775.desop(e,tp,eg,ep,ev,re,r,rp)
+	if ep==e:GetOwnerPlayer() then return end
+	local hg=eg:Filter(Card.IsLocation,nil,LOCATION_HAND)
+	if hg:GetCount()==0 then return end
+	Duel.ConfirmCards(1-ep,hg)
+	local dg=hg:Filter(c7582775.filter,nil)
+	Duel.Destroy(dg,REASON_EFFECT)
+	Duel.ShuffleHand(ep)
+end
+function c7582775.turncon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()~=tp
+end
+function c7582775.turnop(e,tp,eg,ep,ev,re,r,rp)
+	local ct=e:GetLabel()
+	ct=ct+1
+	e:SetLabel(ct)
+	e:GetHandler():SetTurnCounter(ct)
+	if ct==3 then
+		e:GetLabelObject():Reset()
+		e:GetOwner():ResetFlagEffect(1082946)
+	end
+end

script/c77464623.lua

+--ダーク・ダイブ・ボンバー
+function c77464623.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--damage
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(77464623,0))
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCategory(CATEGORY_DAMAGE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c77464623.cost)
+	e1:SetTarget(c77464623.target)
+	e1:SetOperation(c77464623.operation)
+	c:RegisterEffect(e1)
+end
+function c77464623.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsLevelAbove,1,nil,1) end
+	local g=Duel.SelectReleaseGroup(tp,Card.IsLevelAbove,1,1,nil,1)
+	e:SetLabel(g:GetFirst():GetLevel()*200)
+	Duel.Release(g,REASON_COST)
+end
+function c77464623.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetTargetParam(e:GetLabel())
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,e:GetLabel())
+	e:SetLabel(0)
+end
+function c77464623.operation(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

script/c77939512.lua

+--処刑人－マキュラ
+function c77939512.initial_effect(c)
+	--activate trap in hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetOperation(c77939512.operation)
+	c:RegisterEffect(e1)
+end
+function c77939512.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_TRAP_ACT_IN_HAND)
+	e1:SetTargetRange(LOCATION_HAND,0)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end

script/c8441937.lua

+--ゴヨウ・ガーディアン
+function c8441937.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
+	c:EnableReviveLimit()
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(8441937,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetCode(EVENT_BATTLE_DESTROYING)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCondition(aux.bdogcon)
+	e1:SetTarget(c8441937.sptg)
+	e1:SetOperation(c8441937.spop)
+	c:RegisterEffect(e1)
+end
+function c8441937.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local bc=e:GetHandler():GetBattleTarget()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and bc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE) end
+	Duel.SetTargetCard(bc)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,0)
+end
+function c8441937.spop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
+	end
+end

script/c87901978.lua

+--洗脳－ブレインコントロール
+function c87901978.initial_effect(c)
+    --Activate
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_CONTROL)
+    e1:SetType(EFFECT_TYPE_ACTIVATE)
+    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+    e1:SetCode(EVENT_FREE_CHAIN)
+    e1:SetCost(c87901978.cost)
+    e1:SetTarget(c87901978.target)
+    e1:SetOperation(c87901978.activate)
+    c:RegisterEffect(e1)
+end
+function c87901978.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.CheckLPCost(tp,800) end
+    Duel.PayLPCost(tp,800)
+end
+function c87901978.filter(c)
+    return c:IsControlerCanBeChanged() and c:IsFaceup()
+end
+function c87901978.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c87901978.filter(chkc) end
+    if chk==0 then return Duel.IsExistingTarget(c87901978.filter,tp,0,LOCATION_MZONE,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+    local g=Duel.SelectTarget(tp,c87901978.filter,tp,0,LOCATION_MZONE,1,1,nil)
+    Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
+end
+function c87901978.activate(e,tp,eg,ep,ev,re,r,rp)
+    local tc=Duel.GetFirstTarget()
+    if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+        Duel.GetControl(tc,tp,PHASE_END,1)
+    end
+end

script/c87946288.lua

+--レッドアイズ・ダークネスメタルドラゴン
+function c87946288.initial_effect(c)
+	--spsummon proc
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(c87946288.hspcon)
+	e1:SetOperation(c87946288.hspop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(87946288,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetCountLimit(1)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTarget(c87946288.sptg)
+	e2:SetOperation(c87946288.spop)
+	c:RegisterEffect(e2)
+end
+function c87946288.spfilter(c,ft)
+	return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsAbleToRemoveAsCost()
+		and (ft>0 or c:GetSequence()<5)
+end
+function c87946288.hspcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	return ft>-1 and Duel.IsExistingMatchingCard(c87946288.spfilter,tp,LOCATION_MZONE,0,1,nil,ft)
+end
+function c87946288.hspop(e,tp,eg,ep,ev,re,r,rp,c)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c87946288.spfilter,tp,LOCATION_MZONE,0,1,1,nil,ft)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+function c87946288.filter(c,e,tp)
+	return c:IsRace(RACE_DRAGON) and not c:IsCode(87946288) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c87946288.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c87946288.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND)
+end
+function c87946288.spop(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,aux.NecroValleyFilter(c87946288.filter),tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c97786416.lua

+--地霊神グランソイル
+function c97786416.initial_effect(c)
+	c:EnableReviveLimit()
+	--cannot special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c97786416.spcon)
+	c:RegisterEffect(e2)
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(97786416,0))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetTarget(c97786416.sptg)
+	e3:SetOperation(c97786416.spop)
+	c:RegisterEffect(e3)
+	--leave
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EVENT_LEAVE_FIELD_P)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e4:SetOperation(c97786416.leaveop)
+	c:RegisterEffect(e4)
+end
+function c97786416.spcon(e,c)
+	if c==nil then return true end
+	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and
+		Duel.GetMatchingGroupCount(Card.IsAttribute,c:GetControler(),LOCATION_GRAVE,0,nil,ATTRIBUTE_EARTH)==5
+end
+function c97786416.filter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c97786416.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c97786416.filter(chkc,e,tp) end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingTarget(c97786416.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c97786416.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c97786416.spop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c97786416.leaveop(e,tp,eg,ep,ev,re,r,rp)
+	if e:GetHandler():IsFacedown() then return end
+	local effp=e:GetHandler():GetControler()
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SKIP_BP)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	if Duel.GetTurnPlayer()==effp then
+		e1:SetLabel(Duel.GetTurnCount())
+		e1:SetCondition(c97786416.skipcon)
+		e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,2)
+	else
+		e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,1)
+	end
+	Duel.RegisterEffect(e1,effp)
+end
+function c97786416.skipcon(e)
+	return Duel.GetTurnCount()~=e:GetLabel()
+end

script/c99448471.lua

+--現世と冥界の逆転
+function c99448471.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_DRAW_PHASE)
+	e1:SetCondition(c99448471.condition)
+	e1:SetCost(c99448471.cost)
+	e1:SetOperation(c99448471.activate)
+	c:RegisterEffect(e1)
+end
+function c99448471.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFieldGroupCount(tp,LOCATION_GRAVE,0)>=15
+end
+function c99448471.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,1000) end
+	Duel.PayLPCost(tp,1000)
+end
+function c99448471.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SwapDeckAndGrave(tp)
+	Duel.SwapDeckAndGrave(1-tp)
+end