update

script/c103405.lua

+--[决斗编年史]防火墙龙
+--ファイアウォール・ドラゴン
+function c103405.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,nil,2)
+	c:EnableReviveLimit()
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(103405,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_NO_TURN_RESET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetTarget(c103405.thtg)
+	e1:SetOperation(c103405.thop)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_BATTLE_DESTROYED)
+	e2:SetCondition(c103405.regcon)
+	e2:SetOperation(c103405.regop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCondition(c103405.regcon2)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(103405,1))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e4:SetCode(EVENT_CUSTOM+103405)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetTarget(c103405.sptg)
+	e4:SetOperation(c103405.spop)
+	c:RegisterEffect(e4)
+end
+function c103405.thfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c103405.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local c=e:GetHandler()
+	local ct=c:GetMutualLinkedGroupCount()
+	if chkc then return chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c103405.thfilter(chkc) end
+	if chk==0 then return ct>0 and Duel.IsExistingTarget(c103405.thfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,c103405.thfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,ct,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0)
+	c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(103405,2))
+end
+function c103405.thop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	Duel.SendtoHand(g,nil,REASON_EFFECT)
+end
+function c103405.cfilter(c,tp,zone)
+	local seq=c:GetPreviousSequence()
+	if c:GetPreviousControler()~=tp then seq=seq+16 end
+	return c:IsPreviousLocation(LOCATION_MZONE) and bit.extract(zone,seq)~=0
+end
+function c103405.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c103405.cfilter,1,nil,tp,e:GetHandler():GetLinkedZone())
+end
+function c103405.cfilter2(c,tp,zone)
+	return not c:IsReason(REASON_BATTLE) and c103405.cfilter(c,tp,zone)
+end
+function c103405.regcon2(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c103405.cfilter2,1,nil,tp,e:GetHandler():GetLinkedZone())
+end
+function c103405.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+103405,e,0,tp,0,0)
+end
+function c103405.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(Card.IsCanBeSpecialSummoned,tp,LOCATION_HAND,0,1,nil,e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c103405.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,Card.IsCanBeSpecialSummoned,tp,LOCATION_HAND,0,1,1,nil,e,0,tp,false,false)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

script/c20010001.lua

@@ -57,10 +57,10 @@ function c20010001.operation(e,tp,eg,ep,ev,re,r,rp)
 			if ev:IsHasType(EFFECT_TYPE_ACTIONS) then
 				c:RegisterEffect(ev)
 				local f = ev:GetTarget()
-				if f(ev,tp,nil,tp,0,nil,0,tp,0) then
-					f(ev,tp,nil,tp,0,nil,0,tp,1)
+				if f == nil or f(ev,tp,nil,tp,0,nil,0,tp,0) then
+					if not f == nil then f(ev,tp,nil,tp,0,nil,0,tp,1) end
 					f = ev:GetOperation()
-					f(ev,tp,nil,tp,nil,0,tp)
+					if not f == nil then f(ev,tp,nil,tp,nil,0,tp) end
 				end
 				ev:Reset()
 			end

script/c20040001.lua

 --[决斗编年史]阿莱沃
 function c20040001.initial_effect(c)
 	--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)
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
 	--summon with 3 tribute
 	local e1=Effect.CreateEffect(c)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)

script/c20040002.lua

---无败流星
+--[决斗编年史]无败流星
 function c20040002.initial_effect(c)
 	--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)
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
 	--summon with 3 tribute
 	local e1=Effect.CreateEffect(c)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)

script/c20049999.lua

 --[决斗编年史]遗言之札
 function c20049999.initial_effect(c)
-	
+	if not c20049999.reg then
+		c20049999.reg = true
+		local orig = Card.RegisterEffect
+		Card.RegisterEffect = function(c,e,...)
+			if e:GetCode()==EFFECT_UPDATE_ATTACK or e:GetCode()==EFFECT_SET_ATTACK_FINAL then
+				local v=e:GetValue()
+				if aux.GetValueType(v)=="function" then
+					local newv = function(e,c)
+						local val = v(e,c)
+						if c:GetAttack()>0 and val == 0 then Duel.RaiseEvent(EVENT_CUSTOM+20049999) end
+						return val
+					end
+					e:SetValue(newv)
+					orig(c,e,...)
+				else if c:GetAttack()>0 and ((e:GetCode()==EFFECT_SET_ATTACK_FINAL and val == 0) or (e:GetCode()==EFFECT_UPDATE_ATTACK and c:GetAttack() + val == 0)) then
+					Duel.RaiseEvent(EVENT_CUSTOM+20049999)
+					orig(c,e,...)
+				end
+			end
+		end
+	end
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(20049999,1))
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_CUSTOM+20049999)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetTarget(c20049999.drtg)
+	e1:SetOperation(c20049999.drop)
+	c:RegisterEffect(e1)
+end
+function c20049999.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local cnt=Duel.GetCardsInZone(tp,LOCATION_HAND):GetCount()
+	if chk==0 then return cnt>=5 or not Duel.IsPlayerCanDraw(tp,5-cnt) end
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,5-cnt)
+end
+function c20049999.drop(e,tp,eg,ep,ev,re,r,rp)
+	local cnt=5-Duel.GetCardsInZone(tp,LOCATION_HAND):GetCount()
+	local _,_,_,p=Duel.GetOperationInfo(0,CATEGORY_DRAW)
+	Duel.Draw(p,cnt,REASON_EFFECT)
 end

script/c20050001.lua

---无败流星
+--[决斗编年史]破坏王XEXEX
 function c20050001.initial_effect(c)
 	--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)
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
 	--summon with 3 tribute
 	local e1=Effect.CreateEffect(c)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)

script/c20050002.lua

 --[决斗编年史]命运之女王 永恒
 function c20050002.initial_effect(c)
 	--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)
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
 	--summon with 3 tribute
 	local e1=Effect.CreateEffect(c)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)

script/c20059999.lua

---[决斗编年史]阿莱沃
-function c20040001.initial_effect(c)
-	--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)
-	--summon with 3 tribute
-	local e1=Effect.CreateEffect(c)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
-	e1:SetCondition(c20040001.ttcon)
-	e1:SetOperation(c20040001.ttop)
-	e1:SetValue(SUMMON_TYPE_ADVANCE)
-	c:RegisterEffect(e1)
+--[决斗编年史]奥利哈刚的结界
+function c20059999.initial_effect(c)
+	--Activate
+	local e10=Effect.CreateEffect(c)
+	e10:SetType(EFFECT_TYPE_ACTIVATE)
+	e10:SetCode(EVENT_FREE_CHAIN)
+	e10:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
+	c:RegisterEffect(e10)
+	--cannot disable
+	local e11=Effect.CreateEffect(c)
+	e11:SetType(EFFECT_TYPE_SINGLE)
+	e11:SetCode(EFFECT_CANNOT_DISABLE)
+	c:RegisterEffect(e11)
+	--indestructable
+	local e12=Effect.CreateEffect(c)
+	e12:SetType(EFFECT_TYPE_SINGLE)
+	e12:SetCode(EFFECT_INDESTRUCTABLE)
+	c:RegisterEffect(e12)
+	--cannot remove
+	local e13=Effect.CreateEffect(c)
+	e13:SetType(EFFECT_TYPE_SINGLE)
+	e13:SetCode(EFFECT_CANNOT_REMOVE)
+	c:RegisterEffect(e13)
 	local e2=Effect.CreateEffect(c)
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_LIMIT_SET_PROC)
-	e2:SetCondition(c20040001.ttcon)
-	e2:SetOperation(c20040001.ttop)
-	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetValue(500)
 	c:RegisterEffect(e2)
-	--tribute limit
+	--attack target
 	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetCode(EFFECT_TRIBUTE_LIMIT)
-	e3:SetValue(c20040001.tlimit)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetRange(LOCATION_FZONE)
+	e3:SetCode(EFFECT_PATRICIAN_OF_DARKNESS)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetTargetRange(0,1)
 	c:RegisterEffect(e3)
-	--match kill
+	--negate
 	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE)
-	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e4:SetCode(EFFECT_MATCH_KILL)
+	e4:SetCategory(CATEGORY_DISABLE)
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetCode(EVENT_CHAINING)
+	e4:SetRange(LOCATION_HAND)
+	e4:SetCost(c20059999.discost)
+	e4:SetTarget(c20059999.distg)
+	e4:SetOperation(c20059999.disop)
 	c:RegisterEffect(e4)
+	--match kill
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetRange(LOCATION_MZONE,0)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e5:SetCode(EFFECT_MATCH_KILL)
+	c:RegisterEffect(e5)
 end
-function c20040001.ttcon(e,c,minc)
-	if c==nil then return true end
-	return minc<=3 and Duel.CheckTribute(c,3)
+function c20059999.discost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsDiscardable() end
+	Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
 end
-function c20040001.ttop(e,tp,eg,ep,ev,re,r,rp,c)
-	local g=Duel.SelectTribute(tp,c,3,3)
-	c:SetMaterial(g)
-	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+function c20059999.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return not re:GetHandler():IsStatus(STATUS_DISABLED) and Duel.IsChainDisablable(ev) end
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
 end
-function c20040001.tlimit(e,c)
-	return not c:IsRace(RACE_WINDBEAST)
+function c20059999.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateEffect(ev)
 end

script/c20060001.lua

 --[决斗编年史]魔导神之雕像
 function c20060001.initial_effect(c)
 	--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)
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
 	--summon with 3 tribute
 	local e1=Effect.CreateEffect(c)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)

script/c20060002.lua

 --[决斗编年史]武道神的甲胄
 function c20060002.initial_effect(c)
 	--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)
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
 	--summon with 3 tribute
 	local e1=Effect.CreateEffect(c)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)

script/c20070001.lua

+--[决斗编年史]兽王奇美拉
+function c20070001.initial_effect(c)
+	--cannot special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
+	--summon with 3 tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e1:SetCondition(c20070001.ttcon)
+	e1:SetOperation(c20070001.ttop)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LIMIT_SET_PROC)
+	e2:SetCondition(c20070001.ttcon)
+	e2:SetOperation(c20070001.ttop)
+	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e2)
+	--tribute limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_TRIBUTE_LIMIT)
+	e3:SetValue(c20070001.tlimit)
+	c:RegisterEffect(e3)
+	--match kill
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_MATCH_KILL)
+	c:RegisterEffect(e4)
+end
+function c20070001.ttcon(e,c,minc)
+	if c==nil then return true end
+	return minc<=3 and Duel.CheckTribute(c,3)
+end
+function c20070001.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectTribute(tp,c,3,3)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+function c20070001.tlimit(e,c)
+	return not c:IsRace(RACE_BEAST)
+end
\ No newline at end of file

script/c20070002.lua

+--[决斗编年史]闪电皇帝
+function c20070002.initial_effect(c)
+	--cannot special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
+	--summon with 3 tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e1:SetCondition(c20070002.ttcon)
+	e1:SetOperation(c20070002.ttop)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LIMIT_SET_PROC)
+	e2:SetCondition(c20070002.ttcon)
+	e2:SetOperation(c20070002.ttop)
+	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e2)
+	--tribute limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_TRIBUTE_LIMIT)
+	e3:SetValue(c20070002.tlimit)
+	c:RegisterEffect(e3)
+	--match kill
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_MATCH_KILL)
+	c:RegisterEffect(e4)
+end
+function c20070002.ttcon(e,c,minc)
+	if c==nil then return true end
+	return minc<=3 and Duel.CheckTribute(c,3)
+end
+function c20070002.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectTribute(tp,c,3,3)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+function c20070002.tlimit(e,c)
+	return not c:IsRace(RACE_THUNDER)
+end
\ No newline at end of file

script/c20079999.lua

+--[决斗编年史]开始游戏吧！
+function c20079999.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--atk up
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetTarget(c20079999.tgfilter)
+	e2:SetValue(c20079999.val)
+	c:RegisterEffect(e2)
+end
+function c20079999.tgfilter(e,c)
+	return c:IsSetCard(0x3008) or c:IsSetCard(0x9)
+end
+function c20079999.filter(c)
+	return c:IsFaceup() and c:IsRace(RACE_WARRIOR+RACE_SPELLCASTER)
+end
+function c20079999.val(e,c)
+	return c:GetBaseAttack()
+end
+

script/c20080001.lua

+--[决斗编年史]军神提尔
+function c20080001.initial_effect(c)
+	--cannot special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
+	--summon with 3 tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e1:SetCondition(c20080001.ttcon)
+	e1:SetOperation(c20080001.ttop)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LIMIT_SET_PROC)
+	e2:SetCondition(c20080001.ttcon)
+	e2:SetOperation(c20080001.ttop)
+	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e2)
+	--tribute limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_TRIBUTE_LIMIT)
+	e3:SetValue(c20080001.tlimit)
+	c:RegisterEffect(e3)
+	--match kill
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_MATCH_KILL)
+	c:RegisterEffect(e4)
+end
+function c20080001.ttcon(e,c,minc)
+	if c==nil then return true end
+	return minc<=3 and Duel.CheckTribute(c,3)
+end
+function c20080001.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectTribute(tp,c,3,3)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+function c20080001.tlimit(e,c)
+	return not c:IsRace(RACE_FAIRY)
+end
\ No newline at end of file

script/c20080002.lua

+--[决斗编年史]音响兵器 罗蕾莱
+function c20080002.initial_effect(c)
+	--cannot special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
+	--summon with 3 tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e1:SetCondition(c20080002.ttcon)
+	e1:SetOperation(c20080002.ttop)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LIMIT_SET_PROC)
+	e2:SetCondition(c20080002.ttcon)
+	e2:SetOperation(c20080002.ttop)
+	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e2)
+	--tribute limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_TRIBUTE_LIMIT)
+	e3:SetValue(c20080002.tlimit)
+	c:RegisterEffect(e3)
+	--match kill
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_MATCH_KILL)
+	c:RegisterEffect(e4)
+end
+function c20080002.ttcon(e,c,minc)
+	if c==nil then return true end
+	return minc<=3 and Duel.CheckTribute(c,3)
+end
+function c20080002.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectTribute(tp,c,3,3)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+function c20080002.tlimit(e,c)
+	return not c:IsRace(RACE_MACHINE)
+end
\ No newline at end of file

script/c20090001.lua

+--[决斗编年史]罗阿邪神将 阿善波
+function c20090001.initial_effect(c)
+	--cannot special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
+	--summon with 3 tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e1:SetCondition(c20090001.ttcon)
+	e1:SetOperation(c20090001.ttop)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LIMIT_SET_PROC)
+	e2:SetCondition(c20090001.ttcon)
+	e2:SetOperation(c20090001.ttop)
+	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e2)
+	--tribute limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_TRIBUTE_LIMIT)
+	e3:SetValue(c20090001.tlimit)
+	c:RegisterEffect(e3)
+	--match kill
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_MATCH_KILL)
+	c:RegisterEffect(e4)
+end
+function c20090001.ttcon(e,c,minc)
+	if c==nil then return true end
+	return minc<=3 and Duel.CheckTribute(c,3)
+end
+function c20090001.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectTribute(tp,c,3,3)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+function c20090001.tlimit(e,c)
+	return not c:IsRace(RACE_FIEND)
+end
\ No newline at end of file

script/c20090002.lua

+--[决斗编年史]罗汉狮子 宿难
+function c20090002.initial_effect(c)
+	--cannot special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e0)
+	--summon with 3 tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e1:SetCondition(c20090002.ttcon)
+	e1:SetOperation(c20090002.ttop)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LIMIT_SET_PROC)
+	e2:SetCondition(c20090002.ttcon)
+	e2:SetOperation(c20090002.ttop)
+	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e2)
+	--tribute limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_TRIBUTE_LIMIT)
+	e3:SetValue(c20090002.tlimit)
+	c:RegisterEffect(e3)
+	--match kill
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_MATCH_KILL)
+	c:RegisterEffect(e4)
+end
+function c20090002.ttcon(e,c,minc)
+	if c==nil then return true end
+	return minc<=3 and Duel.CheckTribute(c,3)
+end
+function c20090002.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectTribute(tp,c,3,3)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+function c20090002.tlimit(e,c)
+	return not c:IsRace(RACE_BEASTWARRIOR)
+end
\ No newline at end of file

script/c20100001.lua

+--[决斗编年史]星屑之巨神
+function c20100001.initial_effect(c)
+	aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_LIGHT),aux.NonTuner(Card.IsRace,RACE_FAIRY),2)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.synlimit)
+	c:RegisterEffect(e1)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	c:RegisterEffect(e2)
+end

script/c20100002.lua

+--[决斗编年史]赤色星兽 灰熊
+function c20100002.initial_effect(c)
+	aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_EARTH),aux.NonTuner(Card.IsRace,RACE_BEAST),2)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.synlimit)
+	c:RegisterEffect(e1)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	c:RegisterEffect(e2)
+end

script/c20110001.lua

+--[决斗编年史]金牙之王 兰迪亚
+function c20110001.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,8,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.xyzlimit)
+	c:RegisterEffect(e1)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20110001.cond)
+	c:RegisterEffect(e2)
+end
+function c20110001.cond(e,tp,eg,ep,ev,re,r,rp)
+	 return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
+		and e:GetHandler():GetOverlayGroup():IsExists(Card.IsRace,1,nil,RACE_BEASTWARRIOR)
+end
\ No newline at end of file

script/c20110002.lua

+--[决斗编年史]银冠之女王 涅瑞娅
+function c20110002.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,6,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.xyzlimit)
+	c:RegisterEffect(e1)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20110002.cond)
+	c:RegisterEffect(e2)
+end
+function c20110002.cond(e,tp,eg,ep,ev,re,r,rp)
+	 return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
+		and e:GetHandler():GetOverlayGroup():IsExists(Card.IsRace,1,nil,RACE_PLANT)
+end
\ No newline at end of file

script/c20120001.lua

+--[决斗编年史]传说的白龙
+function c20120001.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,8,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.xyzlimit)
+	c:RegisterEffect(e1)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20120001.cond)
+	c:RegisterEffect(e2)
+end
+function c20120001.cond(e,tp,eg,ep,ev,re,r,rp)
+	 return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
+		and e:GetHandler():GetOverlayGroup():IsExists(Card.IsRace,1,nil,RACE_DRAGON)
+end
\ No newline at end of file

script/c20120002.lua

+--[决斗编年史]传说的暗之魔导师
+function c20120002.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,7,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.xyzlimit)
+	c:RegisterEffect(e1)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20120002.cond)
+	c:RegisterEffect(e2)
+end
+function c20120002.cond(e,tp,eg,ep,ev,re,r,rp)
+	 return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
+		and e:GetHandler():GetOverlayGroup():IsExists(Card.IsRace,1,nil,RACE_SPELLCASTER)
+end
\ No newline at end of file

script/c20130001.lua

+--[决斗编年史]悠久之黄金都市 大都市国
+function c20130001.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,8,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.xyzlimit)
+	c:RegisterEffect(e1)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20130001.cond)
+	c:RegisterEffect(e2)
+end
+function c20130001.cond(e,tp,eg,ep,ev,re,r,rp)
+	 return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
+		and e:GetHandler():GetOverlayGroup():IsExists(Card.IsRace,1,nil,RACE_MACHINE)
+end

script/c20130002.lua

+--[决斗编年史]娱乐英雄 盘面之执行者
+function c20130002.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,6,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.xyzlimit)
+	c:RegisterEffect(e1)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20130002.cond)
+	c:RegisterEffect(e2)
+end
+function c20130002.cond(e,tp,eg,ep,ev,re,r,rp)
+	 return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
+		and e:GetHandler():GetOverlayGroup():IsExists(Card.IsRace,1,nil,RACE_SPELLCASTER)
+end
\ No newline at end of file

script/c20140001.lua

+--[决斗编年史]牙狼之双王 罗慕路斯-雷穆斯
+function c20140001.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--pendulum effect
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(20140001,0))
+	e0:SetType(EFFECT_TYPE_IGNITION)
+	e0:SetRange(LOCATION_PZONE)
+	e0:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e0:SetCountLimit(1,20140001)
+	e0:SetTarget(c20140001.mkcost)
+	e0:SetTarget(c20140001.mktg)
+	e0:SetOperation(c20140001.mkop)
+	c:RegisterEffect(e0)
+	--summon with 3 tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e1:SetCondition(c20140001.ttcon)
+	e1:SetOperation(c20140001.ttop)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LIMIT_SET_PROC)
+	e2:SetCondition(c20140001.ttcon)
+	e2:SetOperation(c20140001.ttop)
+	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e2)
+	--tribute limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_TRIBUTE_LIMIT)
+	e3:SetValue(c20140001.tlimit)
+	c:RegisterEffect(e3)
+	--match kill
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_MATCH_KILL)
+	e4:SetCondition(c20140001.mkcon)
+	c:RegisterEffect(e4)
+	--spsummon condition
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e5:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e5:SetValue(aux.penlimit)
+	c:RegisterEffect(e5)
+end
+function c20140001.mkcon(e,c)
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1
+end
+function c20140001.ttcon(e,c,minc)
+	if c==nil then return true end
+	return minc<=3 and Duel.CheckTribute(c,3)
+end
+function c20140001.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectTribute(tp,c,3,3)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+function c20140001.tlimit(e,c)
+	return not c:IsRace(RACE_BEAST)
+end
+function c20140001.mkcostfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+		and c:IsRace(RACE_BEAST) and c:IsAbleToRemoveAsCost()
+end
+function c20140001.mkcostfilter2(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsCanBeEffectTarget(e)
+		Duel.IsExistingMatchingCard(c20140001.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+end
+function c20140001.mktgfilter(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+end
+function c20140001.mkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c20140001.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local c=Duel.SelectMatchingCard(c20140001.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(c20140001.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+	e:SetLabel(1)
+	e:SetLabelObject(c)
+end
+function c20140001.mktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return e:GetLabel()==1 or
+			Duel.IsExistingTarget(c20140001.mktgfilter,tp,LOCATION_MZONE,0,1,nil)
+	end
+	local g=nil
+	if e:GetLabel()==1 then
+		g=Duel.SetTargetCard(e:GetLabelObject())
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+		g=Duel.SelectTarget(c20140001.mktgfilter,tp,LOCATION_MZONE,0,3,c)
+	end
+end
+function c20140001.mkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc or not tc:IsRelateToEffect(e) then return end
+	--match kill
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_MATCH_KILL)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	tc:RegisterEffect(e1)
+end
\ No newline at end of file

script/c20140002.lua

+--[决斗编年史]辉银之天空船-莱昂号
+function c20140002.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--pendulum effect
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(20140002,0))
+	e0:SetType(EFFECT_TYPE_IGNITION)
+	e0:SetRange(LOCATION_PZONE)
+	e0:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e0:SetCountLimit(1,20140002)
+	e0:SetTarget(c20140002.mkcost)
+	e0:SetTarget(c20140002.mktg)
+	e0:SetOperation(c20140002.mkop)
+	c:RegisterEffect(e0)
+end
+
+function c20140002.mkcostfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+		and c:IsRace(RACE_MACHINE) and c:IsAbleToRemoveAsCost()
+end
+function c20140002.mkcostfilter2(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsCanBeEffectTarget(e)
+		Duel.IsExistingMatchingCard(c20140002.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+end
+function c20140002.mktgfilter(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+end
+function c20140002.mkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c20140002.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local c=Duel.SelectMatchingCard(c20140002.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(c20140002.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+	e:SetLabel(1)
+	e:SetLabelObject(c)
+end
+function c20140002.mktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return e:GetLabel()==1 or
+			Duel.IsExistingTarget(c20140002.mktgfilter,tp,LOCATION_MZONE,0,1,nil)
+	end
+	local g=nil
+	if e:GetLabel()==1 then
+		g=Duel.SetTargetCard(e:GetLabelObject())
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+		g=Duel.SelectTarget(c20140002.mktgfilter,tp,LOCATION_MZONE,0,3,c)
+	end
+end
+function c20140002.mkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc or not tc:IsRelateToEffect(e) then return end
+	--match kill
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_MATCH_KILL)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	tc:RegisterEffect(e1)
+end
\ No newline at end of file

script/c20150001.lua

+--[决斗编年史]阴阳神 葛之叶
+function c20150001.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--pendulum effect
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(20150001,0))
+	e0:SetType(EFFECT_TYPE_IGNITION)
+	e0:SetRange(LOCATION_PZONE)
+	e0:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e0:SetCountLimit(1,20150001)
+	e0:SetTarget(c20150001.mkcost)
+	e0:SetTarget(c20150001.mktg)
+	e0:SetOperation(c20150001.mkop)
+	c:RegisterEffect(e0)
+	--summon with 3 tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e1:SetCondition(c20150001.ttcon)
+	e1:SetOperation(c20150001.ttop)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LIMIT_SET_PROC)
+	e2:SetCondition(c20150001.ttcon)
+	e2:SetOperation(c20150001.ttop)
+	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e2)
+	--tribute limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_TRIBUTE_LIMIT)
+	e3:SetValue(c20150001.tlimit)
+	c:RegisterEffect(e3)
+	--match kill
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_MATCH_KILL)
+	e4:SetCondition(c20150001.mkcon)
+	c:RegisterEffect(e4)
+	--spsummon condition
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e5:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e5:SetValue(aux.penlimit)
+	c:RegisterEffect(e5)
+end
+function c20150001.mkcon(e,c)
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1
+end
+function c20150001.ttcon(e,c,minc)
+	if c==nil then return true end
+	return minc<=3 and Duel.CheckTribute(c,3)
+end
+function c20150001.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectTribute(tp,c,3,3)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+function c20150001.tlimit(e,c)
+	return not c:IsRace(RACE_BEAST)
+end
+function c20150001.mkcostfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+		and c:IsRace(RACE_BEAST) and c:IsAbleToRemoveAsCost()
+end
+function c20150001.mkcostfilter2(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsCanBeEffectTarget(e)
+		Duel.IsExistingMatchingCard(c20150001.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+end
+function c20150001.mktgfilter(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+end
+function c20150001.mkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c20150001.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local c=Duel.SelectMatchingCard(c20150001.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(c20150001.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+	e:SetLabel(1)
+	e:SetLabelObject(c)
+end
+function c20150001.mktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return e:GetLabel()==1 or
+			Duel.IsExistingTarget(c20150001.mktgfilter,tp,LOCATION_MZONE,0,1,nil)
+	end
+	local g=nil
+	if e:GetLabel()==1 then
+		g=Duel.SetTargetCard(e:GetLabelObject())
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+		g=Duel.SelectTarget(c20150001.mktgfilter,tp,LOCATION_MZONE,0,3,c)
+	end
+end
+function c20150001.mkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc or not tc:IsRelateToEffect(e) then return end
+	--match kill
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_MATCH_KILL)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	tc:RegisterEffect(e1)
+end
\ No newline at end of file

script/c20150002.lua

+--[决斗编年史]极刀之武者 左京
+function c20150002.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--pendulum effect
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(20150002,0))
+	e0:SetType(EFFECT_TYPE_IGNITION)
+	e0:SetRange(LOCATION_PZONE)
+	e0:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e0:SetCountLimit(1,20150002)
+	e0:SetTarget(c20150002.mkcost)
+	e0:SetTarget(c20150002.mktg)
+	e0:SetOperation(c20150002.mkop)
+	c:RegisterEffect(e0)
+end
+
+function c20150002.mkcostfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+		and c:IsRace(RACE_WARRIOR) and c:IsAbleToRemoveAsCost()
+end
+function c20150002.mkcostfilter2(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsCanBeEffectTarget(e)
+		Duel.IsExistingMatchingCard(c20150002.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+end
+function c20150002.mktgfilter(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+end
+function c20150002.mkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c20150002.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local c=Duel.SelectMatchingCard(c20150002.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(c20150002.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+	e:SetLabel(1)
+	e:SetLabelObject(c)
+end
+function c20150002.mktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return e:GetLabel()==1 or
+			Duel.IsExistingTarget(c20150002.mktgfilter,tp,LOCATION_MZONE,0,1,nil)
+	end
+	local g=nil
+	if e:GetLabel()==1 then
+		g=Duel.SetTargetCard(e:GetLabelObject())
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+		g=Duel.SelectTarget(c20150002.mktgfilter,tp,LOCATION_MZONE,0,3,c)
+	end
+end
+function c20150002.mkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc or not tc:IsRelateToEffect(e) then return end
+	--match kill
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_MATCH_KILL)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	tc:RegisterEffect(e1)
+end
\ No newline at end of file

script/c20160001.lua

+--[决斗编年史]天空之女神 朱诺
+--[决斗编年史]阴阳神 葛之叶
+function c20160001.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--pendulum effect
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(20160001,0))
+	e0:SetType(EFFECT_TYPE_IGNITION)
+	e0:SetRange(LOCATION_PZONE)
+	e0:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e0:SetCountLimit(1,20160001)
+	e0:SetTarget(c20160001.mkcost)
+	e0:SetTarget(c20160001.mktg)
+	e0:SetOperation(c20160001.mkop)
+	c:RegisterEffect(e0)
+	--summon with 3 tribute
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
+	e1:SetCondition(c20160001.ttcon)
+	e1:SetOperation(c20160001.ttop)
+	e1:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LIMIT_SET_PROC)
+	e2:SetCondition(c20160001.ttcon)
+	e2:SetOperation(c20160001.ttop)
+	e2:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e2)
+	--tribute limit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_TRIBUTE_LIMIT)
+	e3:SetValue(c20160001.tlimit)
+	c:RegisterEffect(e3)
+	--match kill
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e4:SetCode(EFFECT_MATCH_KILL)
+	e4:SetCondition(c20160001.mkcon)
+	c:RegisterEffect(e4)
+	--spsummon condition
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e5:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e5:SetValue(aux.penlimit)
+	c:RegisterEffect(e5)
+end
+function c20160001.mkcon(e,c)
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1
+end
+function c20160001.ttcon(e,c,minc)
+	if c==nil then return true end
+	return minc<=3 and Duel.CheckTribute(c,3)
+end
+function c20160001.ttop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectTribute(tp,c,3,3)
+	c:SetMaterial(g)
+	Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
+end
+function c20160001.tlimit(e,c)
+	return not c:IsRace(RACE_FAIRY)
+end
+function c20160001.mkcostfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+		and c:IsRace(RACE_FAIRY) and c:IsAbleToRemoveAsCost()
+end
+function c20160001.mkcostfilter2(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsCanBeEffectTarget(e)
+		Duel.IsExistingMatchingCard(c20160001.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+end
+function c20160001.mktgfilter(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+end
+function c20160001.mkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c20160001.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local c=Duel.SelectMatchingCard(c20160001.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(c20160001.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+	e:SetLabel(1)
+	e:SetLabelObject(c)
+end
+function c20160001.mktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return e:GetLabel()==1 or
+			Duel.IsExistingTarget(c20160001.mktgfilter,tp,LOCATION_MZONE,0,1,nil)
+	end
+	local g=nil
+	if e:GetLabel()==1 then
+		g=Duel.SetTargetCard(e:GetLabelObject())
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+		g=Duel.SelectTarget(c20160001.mktgfilter,tp,LOCATION_MZONE,0,3,c)
+	end
+end
+function c20160001.mkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc or not tc:IsRelateToEffect(e) then return end
+	--match kill
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_MATCH_KILL)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	tc:RegisterEffect(e1)
+end
\ No newline at end of file

script/c20160002.lua

+--[决斗编年史]自异界而来的谢尔戈
+function c20160002.initial_effect(c)
+	--pendulum summon
+	aux.EnablePendulumAttribute(c)
+	--pendulum effect
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(20160002,0))
+	e0:SetType(EFFECT_TYPE_IGNITION)
+	e0:SetRange(LOCATION_PZONE)
+	e0:SetProperty(EFFECT_FLAG_CARD_TARGET)
+s	e0:SetTarget(c20160002.mkcost)
+	e0:SetTarget(c20160002.mktg)
+	e0:SetOperation(c20160002.mkop)
+	c:RegisterEffect(e0)
+end
+
+function c20160002.mkcostfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+		and c:IsRace(RACE_WARRIOR) and c:IsAbleToRemoveAsCost()
+end
+function c20160002.mkcostfilter2(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsCanBeEffectTarget(e)
+		Duel.IsExistingMatchingCard(c20160002.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+end
+function c20160002.mktgfilter(c,e,tp)
+	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
+end
+function c20160002.mkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c20160002.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local c=Duel.SelectMatchingCard(c20160002.mkcostfilter2,tp,LOCATION_MZONE,0,1,nil,e,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(c20160002.mkcostfilter,tp,LOCATION_MZONE,0,3,c)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+	e:SetLabel(1)
+	e:SetLabelObject(c)
+end
+function c20160002.mktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		return e:GetLabel()==1 or
+			Duel.IsExistingTarget(c20160002.mktgfilter,tp,LOCATION_MZONE,0,1,nil)
+	end
+	local g=nil
+	if e:GetLabel()==1 then
+		g=Duel.SetTargetCard(e:GetLabelObject())
+	else
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+		g=Duel.SelectTarget(c20160002.mktgfilter,tp,LOCATION_MZONE,0,3,c)
+	end
+end
+function c20160002.mkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc or not tc:IsRelateToEffect(e) then return end
+	--match kill
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_MATCH_KILL)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	tc:RegisterEffect(e1)
+end
\ No newline at end of file

script/c20170001.lua

+--[决斗编年史]团结龙
+function c20170001.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,c20170001.matfilter,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetValue(aux.lnklimit)
+	c:RegisterEffect(e0)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20170001.cond)
+	c:RegisterEffect(e2)
+end
+function c20170001.cond(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsExtraLinkState()
+end
+function c20170001.matfilter(c)
+	return c:IsLinkType(TYPE_EFFECT) and c:IsLinkRace(RACE_DRAGON)
+end
\ No newline at end of file

script/c20170002.lua

+--[决斗编年史]革命之铁骑士
+function c20170002.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,c20170002.matfilter,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetValue(aux.lnklimit)
+	c:RegisterEffect(e0)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20170002.cond)
+	c:RegisterEffect(e2)
+end
+function c20170002.cond(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsExtraLinkState()
+end
+function c20170002.matfilter(c)
+	return c:IsLinkType(TYPE_EFFECT) and c:IsLinkRace(RACE_MACHINE)
+end
\ No newline at end of file

script/c20180001.lua

+--[决斗编年史]黒衣之诏刀师
+function c20180001.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,c20180001.matfilter,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetValue(aux.lnklimit)
+	c:RegisterEffect(e0)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20180001.cond)
+	c:RegisterEffect(e2)
+end
+function c20180001.cond(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsExtraLinkState()
+end
+function c20180001.matfilter(c)
+	return c:IsLinkType(TYPE_EFFECT) and c:IsLinkRace(RACE_SPELLCASTER)
+end
\ No newline at end of file

script/c20180002.lua

+--[决斗编年史]神峰之天津靇
+function c20180002.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,c20180002.matfilter,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetValue(aux.lnklimit)
+	c:RegisterEffect(e0)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20180002.cond)
+	c:RegisterEffect(e2)
+end
+function c20180002.cond(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsExtraLinkState()
+end
+function c20180002.matfilter(c)
+	return c:IsLinkType(TYPE_EFFECT) and c:IsLinkRace(RACE_DRAGON)
+end
\ No newline at end of file

script/c20190001.lua

+--[决斗编年史]天元之荒鹫王
+function c20190001.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,c20190001.matfilter,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetValue(aux.lnklimit)
+	c:RegisterEffect(e0)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20190001.cond)
+	c:RegisterEffect(e2)
+end
+function c20190001.cond(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsExtraLinkState()
+end
+function c20190001.matfilter(c)
+	return c:IsLinkType(TYPE_EFFECT) and c:IsLinkRace(RACE_WINDBEAST)
+end
\ No newline at end of file

script/c20190002.lua

+--[决斗编年史]黒森之航天阁
+function c20190002.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,c20190002.matfilter,3)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetValue(aux.lnklimit)
+	c:RegisterEffect(e0)
+	--match kill
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_MATCH_KILL)
+	e2:SetCondition(c20190002.cond)
+	c:RegisterEffect(e2)
+end
+function c20190002.cond(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsExtraLinkState()
+end
+function c20190002.matfilter(c)
+	return c:IsLinkType(TYPE_EFFECT) and c:IsLinkRace(RACE_ROCK)
+end
\ No newline at end of file

script/c68938507.lua

+--[决斗编年史]冰结界的虎王 雪虎
+function c68938507.initial_effect(c)
+	--synchro summon
+	aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsAttribute,ATTRIBUTE_WATER),1)
+	c:EnableReviveLimit()
+	--to hand, atkup
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(68938507,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetCountLimit(1)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(c68938507.target)
+	e1:SetOperation(c68938507.operation)
+	c:RegisterEffect(e1)
+end
+function c68938507.filter(c)
+	return c:IsFaceup() and c:IsAbleToHand()
+end
+function c68938507.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c68938507.filter(chkc) and chkc~=e:GetHandler() end
+	if chk==0 then return Duel.IsExistingTarget(c68938507.filter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,c68938507.filter,tp,LOCATION_ONFIELD,0,1,12,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0)
+end
+function c68938507.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local rg=tg:Filter(Card.IsRelateToEffect,nil,e)
+	Duel.SendtoHand(rg,nil,REASON_EFFECT)
+	if c:IsRelateToEffect(e) and c:IsFaceup() then
+		Duel.BreakEffect()
+		local og=Duel.GetOperatedGroup()
+		local ct=og:FilterCount(Card.IsLocation,nil,LOCATION_HAND)
+		if ct>0 then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+			e1:SetValue(ct*500)
+			c:RegisterEffect(e1)
+		end
+	end
+end