Skip to content

P
pre-release-database-cdb
You need to sign in or sign up before continuing.
Commit 22b2c7fc authored by Amiya's avatar Amiya
Browse files
Options

VJMP新卡

parent 0161e35b
Pipeline #25967 passed with stages
          in 1 minute and 20 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 183 additions and 0 deletions
          script/c100200245.lua 0 → 100644
          View file @ 22b2c7fc
          --呪炎王バースト・カースド
          local s,id,o=GetID()
          function s.initial_effect(c)
          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:SetCountLimit(1,id)
          e1:SetCondition(s.spcon)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_ATKCHANGE)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_SPSUMMON_SUCCESS)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetCountLimit(1,id+o)
          e2:SetTarget(s.atktg)
          e2:SetOperation(s.atkop)
          c:RegisterEffect(e2)
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e3:SetProperty(EFFECT_FLAG_DELAY)
          e3:SetCode(EVENT_TO_GRAVE)
          e3:SetCondition(s.atkcon)
          e3:SetTarget(s.atktg2)
          e3:SetOperation(s.atkop2)
          c:RegisterEffect(e3)
          end
          function s.cfilter(c)
          return c:IsRace(RACE_FIEND) and c:IsType(TYPE_TUNER) and c:IsFaceup()
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
          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 c:IsRelateToEffect(e) then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end
          if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
          Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
          end
          function s.atkop(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:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_UPDATE_ATTACK)
          e1:SetValue(-600)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          end
          end
          function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT)
          end
          function s.atktg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end
          if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
          Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
          end
          function s.atkop2(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:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_UPDATE_ATTACK)
          e1:SetValue(-400)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          end
          end
          \ No newline at end of file
          script/c100200246.lua 0 → 100644
          View file @ 22b2c7fc
          --ンフェルニティ・クィーン
          local s,id,o=GetID()
          function s.initial_effect(c)
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e1:SetRange(LOCATION_GRAVE)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.condition)
          e1:SetCost(s.cost)
          e1:SetTarget(s.target)
          e1:SetOperation(s.operation)
          c:RegisterEffect(e1)
          end
          function s.condition(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)==0 and Duel.IsAbleToEnterBP()
          end
          function s.cfilter(c)
          return c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToRemoveAsCost()
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
          Duel.Remove(g,POS_FACEUP,REASON_COST)
          end
          function s.filter(c)
          return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_DARK) and c:GetEffectCount(EFFECT_DIRECT_ATTACK)==0
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and s.filter(chkc) end
          if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
          Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil)
          end
          function s.operation(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:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_DIRECT_ATTACK)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          end
          end
          \ No newline at end of file
          script/c100200247.lua 0 → 100644
          View file @ 22b2c7fc
          -- 爆撃獸ファイヤ・ボンバー
          local s,id,o=GetID()
          function s.initial_effect(c)
          c:EnableReviveLimit()
          aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),aux.FilterBoolFunction(Card.IsRace,RACE_PYRO),true)
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_DESTROY)
          e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetProperty(EFFECT_FLAG_DELAY)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.destg)
          e1:SetOperation(s.desop)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_DESTROY)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_TO_GRAVE)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
          e2:SetCountLimit(1,id+o)
          e2:SetTarget(s.destg2)
          e2:SetOperation(s.desop2)
          c:RegisterEffect(e2)
          end
          function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(aux.AND(Card.IsAttackBelow,Card.IsFaceup),tp,0,LOCATION_MZONE,1,nil,1900) end
          local sg=Duel.GetMatchingGroup(aux.AND(Card.IsAttackBelow,Card.IsFaceup),tp,0,LOCATION_MZONE,nil,1900)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
          end
          function s.desop(e,tp,eg,ep,ev,re,r,rp)
          local sg=Duel.GetMatchingGroup(aux.AND(Card.IsAttackBelow,Card.IsFaceup),tp,0,LOCATION_MZONE,nil,1900)
          Duel.Destroy(sg,REASON_EFFECT)
          end
          function s.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsOnField() and chkc:IsFaceup() and chkc:IsAttackBelow(1900) end
          if chk==0 then return Duel.IsExistingTarget(aux.AND(Card.IsAttackBelow,Card.IsFaceup),tp,0,LOCATION_MZONE,1,nil,1900) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local g=Duel.SelectTarget(tp,aux.AND(Card.IsAttackBelow,Card.IsFaceup),tp,0,LOCATION_MZONE,1,1,nil,1900)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
          end
          function s.desop2(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) then
          Duel.Destroy(tc,REASON_EFFECT)
          end
          end
          \ No newline at end of file
          Markdown is supported
          0% or
          You are about to add 0 people to the discussion. Proceed with caution.
          Finish editing this message first!
          Please register or to comment