Darklord
You can discard 2 other "Darklord" cards; Special Summon this card from your hand. (Quick Effect): You can pay 1000 LP, then target 1 "Darklord" Spell/Trap in your GY; apply that target's effect, then shuffle that target into the Deck. You can only use this effect of "Darklord Nasten" once per turn. You can only Special Summon "Darklord Nasten(s)" once per turn.
local SETCARD_ID_0 = 0xef --Darklord

local SETCARD_ID_0 = 0xef --Darklord
local s, id, o = GetID()
function s.initial_effect(c)
	c:SetSPSummonOnce(id)
	--spsummon
	local e1 = Effect.CreateEffect(c)
	e1:SetDescription(aux.Stringid(id, 0))
	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
	e1:SetType(EFFECT_TYPE_IGNITION)
	e1:SetRange(LOCATION_HAND)
	e1:SetCost(s.spcost)
	e1:SetTarget(s.sptg)
	e1:SetOperation(s.spop)
	c:RegisterEffect(e1)
	--copy effect
	local e2 = Effect.CreateEffect(c)
	e2:SetDescription(aux.Stringid(id, 1))
	e2:SetCategory(CATEGORY_TODECK)
	e2:SetType(EFFECT_TYPE_QUICK_O)
	e2:SetRange(LOCATION_MZONE)
	e2:SetCode(EVENT_FREE_CHAIN)
	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
	e2:SetCountLimit(1, id)
	e2:SetCost(s.cpcost)
	e2:SetTarget(s.cptg)
	e2:SetOperation(s.cpop)
	c:RegisterEffect(e2)
end
function s.cfilter(c)
	return c:IsSetCard(SETCARD_ID_0) and c:IsDiscardable()
end
function s.spcost(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.IsExistingMatchingCard(s.cfilter, tp, LOCATION_HAND, 0, 2, e:GetHandler())
	end
	Duel.DiscardHand(tp, s.cfilter, 2, 2, REASON_COST + REASON_DISCARD, e:GetHandler())
end
function s.sptg(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.GetLocationCount(tp, LOCATION_MZONE) > 0 and e:GetHandler():IsCanBeSpecialSummoned(e, 0, tp, false, false)
	end
	Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, e:GetHandler(), 1, 0, 0)
end
function s.spop(e, tp, eg, ep, ev, re, r, rp)
	local c = e:GetHandler()
	if not c:IsRelateToEffect(e) then
		return
	end
	Duel.SpecialSummon(c, 0, tp, tp, false, false, POS_FACEUP)
end
function s.cpcost(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 s.cpfilter(c)
	return c:IsSetCard(SETCARD_ID_0) and c:IsType(TYPE_SPELL + TYPE_TRAP) and c:IsAbleToDeck() and c:CheckActivateEffect(false, true, false) ~= nil
end
function s.cptg(e, tp, eg, ep, ev, re, r, rp, chk, chkc)
	if chkc then
		local te = e:GetLabelObject()
		local tg = te:GetTarget()
		return tg and tg(e, tp, eg, ep, ev, re, r, rp, 0, chkc)
	end
	if chk == 0 then
		return Duel.IsExistingTarget(s.cpfilter, tp, LOCATION_GRAVE, 0, 1, nil)
	end
	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TARGET)
	local g = Duel.SelectTarget(tp, s.cpfilter, tp, LOCATION_GRAVE, 0, 1, 1, nil)
	local te, ceg, cep, cev, cre, cr, crp = g:GetFirst():CheckActivateEffect(false, true, true)
	Duel.ClearTargetCard()
	g:GetFirst():CreateEffectRelation(e)
	local tg = te:GetTarget()
	if tg then
		tg(e, tp, ceg, cep, cev, cre, cr, crp, 1)
	end
	te:SetLabelObject(e:GetLabelObject())
	e:SetLabelObject(te)
	Duel.ClearOperationInfo(0)
	Duel.SetOperationInfo(0, CATEGORY_TODECK, g, 1, 0, 0)
end
function s.cpop(e, tp, eg, ep, ev, re, r, rp)
	local te = e:GetLabelObject()
	if not te then
		return
	end
	if not te:GetHandler():IsRelateToEffect(e) then
		return
	end
	e:SetLabelObject(te:GetLabelObject())
	local op = te:GetOperation()
	if op then
		op(e, tp, eg, ep, ev, re, r, rp)
	end
	Duel.BreakEffect()
	Duel.SendtoDeck(te:GetHandler(), nil, SEQ_DECKSHUFFLE, REASON_EFFECT)
end


Darklord
You can discard 2 other "Darklord" cards; Special Summon this card from your hand. (Quick Effect): You can pay 1000 LP, then target 1 "Darklord" Spell/Trap in your GY; apply that target's effect, then shuffle that target into the Deck. You can only use this effect of "Darklord Nasten" once per turn. You can only Special Summon "Darklord Nasten(s)" once per turn.
-- Darklord
local SETCARD_ID_0 = 0xef --Darklord
local s, id, o = GetID()
function s.initial_effect(c)
	c:SetSPSummonOnce(id)
	--spsummon
	local e1 = Effect.CreateEffect(c)
	e1:SetDescription(aux.Stringid(id, 0))
	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
	e1:SetType(EFFECT_TYPE_IGNITION)
	e1:SetRange(LOCATION_HAND)
	e1:SetCost(s.spcost)
	e1:SetTarget(s.sptg)
	e1:SetOperation(s.spop)
	c:RegisterEffect(e1)
	--copy effect
	local e2 = Effect.CreateEffect(c)
	e2:SetDescription(aux.Stringid(id, 1))
	e2:SetCategory(CATEGORY_TODECK)
	e2:SetType(EFFECT_TYPE_QUICK_O)
	e2:SetRange(LOCATION_MZONE)
	e2:SetCode(EVENT_FREE_CHAIN)
	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
	e2:SetCountLimit(1, id)
	e2:SetCost(s.cpcost)
	e2:SetTarget(s.cptg)
	e2:SetOperation(s.cpop)
	c:RegisterEffect(e2)
end
function s.cfilter(c)
	return c:IsSetCard(SETCARD_ID_0) and c:IsDiscardable()
end
function s.spcost(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.IsExistingMatchingCard(s.cfilter, tp, LOCATION_HAND, 0, 2, e:GetHandler())
	end
	Duel.DiscardHand(tp, s.cfilter, 2, 2, REASON_COST + REASON_DISCARD, e:GetHandler())
end
function s.sptg(e, tp, eg, ep, ev, re, r, rp, chk)
	if chk == 0 then
		return Duel.GetLocationCount(tp, LOCATION_MZONE) > 0 and e:GetHandler():IsCanBeSpecialSummoned(e, 0, tp, false, false)
	end
	Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, e:GetHandler(), 1, 0, 0)
end
function s.spop(e, tp, eg, ep, ev, re, r, rp)
	local c = e:GetHandler()
	if not c:IsRelateToEffect(e) then
		return
	end
	Duel.SpecialSummon(c, 0, tp, tp, false, false, POS_FACEUP)
end
function s.cpcost(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 s.cpfilter(c)
	return c:IsSetCard(SETCARD_ID_0) and c:IsType(TYPE_SPELL + TYPE_TRAP) and c:IsAbleToDeck() and c:CheckActivateEffect(false, true, false) ~= nil
end
function s.cptg(e, tp, eg, ep, ev, re, r, rp, chk, chkc)
	if chkc then
		local te = e:GetLabelObject()
		local tg = te:GetTarget()
		return tg and tg(e, tp, eg, ep, ev, re, r, rp, 0, chkc)
	end
	if chk == 0 then
		return Duel.IsExistingTarget(s.cpfilter, tp, LOCATION_GRAVE, 0, 1, nil)
	end
	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_TARGET)
	local g = Duel.SelectTarget(tp, s.cpfilter, tp, LOCATION_GRAVE, 0, 1, 1, nil)
	local te, ceg, cep, cev, cre, cr, crp = g:GetFirst():CheckActivateEffect(false, true, true)
	Duel.ClearTargetCard()
	g:GetFirst():CreateEffectRelation(e)
	local tg = te:GetTarget()
	if tg then
		tg(e, tp, ceg, cep, cev, cre, cr, crp, 1)
	end
	te:SetLabelObject(e:GetLabelObject())
	e:SetLabelObject(te)
	Duel.ClearOperationInfo(0)
	Duel.SetOperationInfo(0, CATEGORY_TODECK, g, 1, 0, 0)
end
function s.cpop(e, tp, eg, ep, ev, re, r, rp)
	local te = e:GetLabelObject()
	if not te then
		return
	end
	if not te:GetHandler():IsRelateToEffect(e) then
		return
	end
	e:SetLabelObject(te:GetLabelObject())
	local op = te:GetOperation()
	if op then
		op(e, tp, eg, ep, ev, re, r, rp)
	end
	Duel.BreakEffect()
	Duel.SendtoDeck(te:GetHandler(), nil, SEQ_DECKSHUFFLE, REASON_EFFECT)
end

