攻略
Combo
考据
好物分享
卡图故事
支缓
盘点整理
Duel Links
--ヴァンパイア・グレイス function c40607210.initial_effect(c) --spsummon local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(40607210,0)) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e1:SetRange(LOCATION_GRAVE) e1:SetCode(EVENT_SPSUMMON_SUCCESS) e1:SetCountLimit(1,40607210) e1:SetCondition(c40607210.condition) e1:SetCost(c40607210.cost) e1:SetTarget(c40607210.target) e1:SetOperation(c40607210.operation) c:RegisterEffect(e1) -- local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(40607210,1)) e2:SetCategory(CATEGORY_TOGRAVE) e2:SetType(EFFECT_TYPE_IGNITION) e2:SetRange(LOCATION_MZONE) e2:SetCountLimit(1) e2:SetTarget(c40607210.tgtg) e2:SetOperation(c40607210.tgop) c:RegisterEffect(e2) end function c40607210.cfilter(c,tp) return c:IsLevelAbove(5) and c:IsRace(RACE_ZOMBIE) and c:IsControler(tp) end function c40607210.condition(e,tp,eg,ep,ev,re,r,rp) local rc=re:GetHandler() return rc and rc:IsRace(RACE_ZOMBIE) and eg:IsExists(c40607210.cfilter,1,nil,tp) and (re:GetCode()~=EFFECT_SPSUMMON_PROC or not rc:IsHasEffect(EFFECT_REVIVE_LIMIT)) end function c40607210.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckLPCost(tp,2000) end Duel.PayLPCost(tp,2000) end function c40607210.target(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 c40607210.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) end end function c40607210.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE) local op=Duel.AnnounceType(tp) e:SetLabel(op) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_DECK) end function c40607210.tgfilter(c,ty) return c:IsType(ty) and c:IsAbleToGrave() end function c40607210.tgop(e,tp,eg,ep,ev,re,r,rp) local g=nil Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) if e:GetLabel()==0 then g=Duel.SelectMatchingCard(1-tp,c40607210.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_MONSTER) elseif e:GetLabel()==1 then g=Duel.SelectMatchingCard(1-tp,c40607210.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_SPELL) else g=Duel.SelectMatchingCard(1-tp,c40607210.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_TRAP) end if g:GetCount()~=0 then Duel.SendtoGrave(g,REASON_EFFECT) end end