【1回合有3次可以从以下效果把1个发动。
●可以把自己场上1只怪兽送去墓地,对方场上怪兽全部回到卡组。
●可以把自己场上1张魔法·陷阱卡送去墓地,对方场上的魔法·陷阱卡全部回到卡组。
●可以把自己卡组最上面1张卡送去墓地,对方墓地的卡全部回到卡组。】
--to deck
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(201940,1))
e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetCategory(CATEGORY_TODECK)
e4:SetRange(LOCATION_MZONE)
e4:SetCountLimit(3,EFFECT_COUNT_CODE_SINGLE)
e4:SetCost(c201940.tdcost1)
e4:SetTarget(c201940.tdtg1)
e4:SetOperation(c201940.tdop1)
c:RegisterEffect(e4)
local e3=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(201940,2))
e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetCategory(CATEGORY_TODECK)
e5:SetRange(LOCATION_MZONE)
e5:SetCountLimit(3,EFFECT_COUNT_CODE_SINGLE)
e5:SetCost(c201940.tdcost2)
e5:SetTarget(c201940.tdtg2)
e5:SetOperation(c201940.tdop2)
c:RegisterEffect(e5)
local e6=Effect.CreateEffect(c)
e6:SetDescription(aux.Stringid(201940,3))
e6:SetType(EFFECT_TYPE_IGNITION)
e6:SetCategory(CATEGORY_TODECK)
e6:SetRange(LOCATION_MZONE)
e6:SetCountLimit(3,EFFECT_COUNT_CODE_SINGLE)
e6:SetCost(c201940.tdcost3)
e6:SetTarget(c201940.tdtg3)
e6:SetOperation(c201940.tdop3)
c:RegisterEffect(e6)
function c201940.cfilter1(c)--to songzou
return c:IsAbleToGraveAsCost()
end
function c201940.tdcost1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c201940.cfilter1,tp,LOCATION_MZONE,0,1,nil) end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c201940.cfilter1,tp,LOCATION_MZONE,0,1,1,nil)
Duel.SendtoGrave(g,REASON_COST)
end
function c201940.tdtg1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,1,nil) end
local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,nil)
Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
end
function c201940.tdop1(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,nil)
Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
end
function c201940.cfilter2(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGraveAsCost()
end
function c201940.tdcost2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c201940.cfilter2,tp,LOCATION_ONFIELD,0,1,nil) end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c201940.cfilter2,tp,LOCATION_ONFIELD,0,1,1,nil)
Duel.SendtoGrave(g,REASON_COST)
end
function c201940.filter2(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck()
end
function c201940.tdtg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c201940.filter2,tp,0,LOCATION_ONFIELD,1,nil) end
local g=Duel.GetMatchingGroup(c201940.filter2,tp,0,LOCATION_ONFIELD,nil)
Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
end
function c201940.tdop2(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c201940.filter2,tp,0,LOCATION_ONFIELD,nil)
Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
end
function c201940.tdcost3(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDiscardDeckAsCost(tp,1) end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
Duel.DiscardDeck(tp,1,REASON_COST)
end
function c201940.tdtg3(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,nil) end
local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,nil)
Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
end
function c201940.tdop3(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,nil)
Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
end