Skip to content

P
pre-release-database-cdb
Commit 56632dc2 authored by Amiya's avatar Amiya
Browse files
Options

魔刻新卡

parent c30be8a4
Pipeline #25742 passed with stages
          in 1 minute and 19 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 745 additions and 0 deletions
          INFO.cdb
          View file @ 56632dc2
          No preview for this file type
          script/c101205017.lua 0 → 100644
          View file @ 56632dc2
          --刻魔者德蒙史密斯
          local s,id,o=GetID()
          function s.initial_effect(c)
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_HAND)
          e1:SetCountLimit(1,id)
          e1:SetCost(s.thcost)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_TOGRAVE)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetCountLimit(1,id+o)
          e2:SetRange(LOCATION_MZONE)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e2:SetTarget(s.tgtg)
          e2:SetOperation(s.tgop)
          c:RegisterEffect(e2)
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE)
          e3:SetType(EFFECT_TYPE_IGNITION)
          e3:SetRange(LOCATION_GRAVE)
          e3:SetCountLimit(1,id+o*2)
          e3:SetCost(s.spcost)
          e3:SetTarget(s.sptg)
          e3:SetOperation(s.spop)
          c:RegisterEffect(e3)
          end
          function s.thcost(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 s.filter(c)
          return c:IsSetCard(0x2b0) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
          if #g>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          function s.tgfilter(c)
          return c:IsFaceup() and c:IsSetCard(0x2b0) and c:IsType(TYPE_EQUIP)
          end
          function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return false end
          if chk==0 then return Duel.IsExistingTarget(s.tgfilter,tp,LOCATION_SZONE,0,1,nil)
          and Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local g1=Duel.SelectTarget(tp,s.tgfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local g2=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
          g1:Merge(g2)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,g1:GetCount(),0,0)
          end
          function s.tgop(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
          local tg=g:Filter(Card.IsRelateToEffect,nil,e)
          if tg:GetCount()>0 then
          Duel.Destroy(tg,REASON_EFFECT)
          end
          end
          function s.costfilter(c)
          return c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_LIGHT)
          end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_GRAVE,0,1,c) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_GRAVE,0,1,1,c)
          Duel.SendtoDeck(g,nil,2,REASON_COST)
          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
          \ No newline at end of file
          script/c101205035.lua 0 → 100644
          View file @ 56632dc2
          --镌刻魔 末日之泪
          local s,id,o=GetID()
          function s.initial_effect(c)
          c:EnableReviveLimit()
          aux.AddFusionProcFunRep(c,s.ffilter,2,true)
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.thcon)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetCode(EFFECT_UPDATE_ATTACK)
          e2:SetRange(LOCATION_MZONE)
          e2:SetTargetRange(0,LOCATION_MZONE)
          e2:SetValue(600)
          c:RegisterEffect(e2)
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,1))
          e3:SetCategory(CATEGORY_DAMAGE)
          e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e3:SetCode(EVENT_TO_GRAVE)
          e3:SetProperty(EFFECT_FLAG_DELAY)
          e3:SetCountLimit(1,id+o)
          e3:SetCost(s.damcost)
          e3:SetTarget(s.damtg)
          e3:SetOperation(s.damop)
          c:RegisterEffect(e3)
          end
          function s.ffilter(c)
          return c:IsFusionAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_FIEND)
          end
          function s.thcon(e,tp,eg,ep,ev,re,r,rp)
          return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
          end
          function s.filter(c,e,tp,ft)
          return c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsType(TYPE_MONSTER)
          and (c:IsAbleToHand() or ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP))
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
          if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.filter(chkc,e,tp,ft) end
          if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp,ft) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
          Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,ft)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToEffect(e) then
          if aux.NecroValleyNegateCheck(tc) then return end
          if not aux.NecroValleyFilter()(tc) then return end
          if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
          and (not tc:IsAbleToHand() or Duel.SelectOption(tp,1190,1152)==1) then
          Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
          else
          Duel.SendtoHand(tc,nil,REASON_EFFECT)
          end
          end
          end
          function s.costfilter(c)
          return c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_LIGHT)
          end
          function s.damcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_GRAVE,0,1,c) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_GRAVE,0,1,1,c)
          Duel.SendtoDeck(g,nil,2,REASON_COST)
          end
          function s.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          Duel.SetTargetPlayer(1-tp)
          Duel.SetTargetParam(1200)
          Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1200)
          end
          function s.damop(e,tp,eg,ep,ev,re,r,rp)
          local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
          Duel.Damage(p,d,REASON_EFFECT)
          end
          script/c101205036.lua 0 → 100644
          View file @ 56632dc2
          --镌刻魔 震怒之日
          local s,id,o=GetID()
          function s.initial_effect(c)
          c:EnableReviveLimit()
          aux.AddFusionProcCodeFun(c,101205017,s.ffilter,2,true,true)
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_DISABLE)
          e1:SetType(EFFECT_TYPE_QUICK_O)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.distg)
          e1:SetOperation(s.disop)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_TOGRAVE)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_TO_GRAVE)
          e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
          e2:SetCountLimit(1,id+o)
          e2:SetCost(s.tgcost)
          e2:SetTarget(s.tgtg)
          e2:SetOperation(s.tgop)
          c:RegisterEffect(e2)
          end
          function s.ffilter(c)
          return c:IsFusionAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_FIEND)
          end
          function s.cfilter(c)
          return c:IsLinkAbove(1) and c:IsFaceup()
          end
          function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          local g=c:GetEquipGroup():Filter(s.cfilter,nil)
          local ct=g:GetSum(Card.GetLink)
          if chk==0 then return Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and ct>0 end
          local g=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
          end
          function s.disop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local g=c:GetEquipGroup():Filter(s.cfilter,nil)
          local ct=g:GetSum(Card.GetLink)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
          local g=Duel.SelectMatchingCard(tp,aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil)
          if not c:IsRelateToEffect(e) or g:GetCount()<1 then return end
          for tc in aux.Next(g) do
          if tc:IsCanBeDisabledByEffect(e,false) then
          Duel.NegateRelatedChain(tc,RESET_TURN_SET)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetCode(EFFECT_DISABLE)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          tc:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e2:SetCode(EFFECT_DISABLE_EFFECT)
          e2:SetValue(RESET_TURN_SET)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          tc:RegisterEffect(e2)
          if tc:IsType(TYPE_TRAPMONSTER) then
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_SINGLE)
          e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
          e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          tc:RegisterEffect(e3)
          end
          end
          end
          end
          function s.costfilter(c)
          return c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_LIGHT)
          end
          function s.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_GRAVE,0,1,c) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_GRAVE,0,1,1,c)
          Duel.SendtoDeck(g,nil,2,REASON_COST)
          end
          function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsOnField() end
          if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
          end
          function s.tgop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToEffect(e) then
          Duel.SendtoGrave(tc,REASON_EFFECT)
          end
          end
          \ No newline at end of file
          script/c101205046.lua 0 → 100644
          View file @ 56632dc2
          --镌刻魔的镇魂棺
          local s,id,o=GetID()
          function s.initial_effect(c)
          c:SetSPSummonOnce(id)
          aux.AddLinkProcedure(c,s.mfilter,1,1)
          c:EnableReviveLimit()
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_QUICK_O)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetRange(LOCATION_MZONE)
          e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e1:SetCondition(s.spcon)
          e1:SetCost(s.spcost)
          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_EQUIP)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetRange(LOCATION_GRAVE+LOCATION_MZONE)
          e2:SetCountLimit(1,id)
          e2:SetTarget(s.eqtg)
          e2:SetOperation(s.eqop)
          c:RegisterEffect(e2)
          end
          function s.mfilter(c)
          return c:IsLinkRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_LIGHT)
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
          end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return c:IsReleasable() and Duel.GetMZoneCount(tp,c)>0 end
          Duel.Release(c,REASON_COST)
          end
          function s.filter(c,e,tp)
          return c:IsSetCard(0x2b0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
          end
          function s.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,s.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
          if #g>0 then
          Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          function s.eqfilter(c)
          return c:IsFaceup() and c:IsSetCard(0x2b0) and not c:IsType(TYPE_LINK)
          end
          function s.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.eqfilter(chkc) end
          if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
          and Duel.IsExistingTarget(s.eqfilter,tp,LOCATION_MZONE,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
          Duel.SelectTarget(tp,s.eqfilter,tp,LOCATION_MZONE,0,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
          Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
          end
          function s.eqop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local tc=Duel.GetFirstTarget()
          if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsControler(tp) then
          if not Duel.Equip(tp,c,tc) then return end
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_EQUIP_LIMIT)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetLabelObject(tc)
          e1:SetValue(s.eqlimit)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_EQUIP)
          e2:SetCode(EFFECT_UPDATE_ATTACK)
          e2:SetValue(600)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD)
          c:RegisterEffect(e2)
          end
          end
          function s.eqlimit(e,c)
          return c==e:GetLabelObject()
          end
          \ No newline at end of file
          script/c101205047.lua 0 → 100644
          View file @ 56632dc2
          --镌刻魔的大圣棺
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddLinkProcedure(c,nil,2,2,s.lcheck)
          c:EnableReviveLimit()
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCountLimit(1,id)
          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_EQUIP)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetRange(LOCATION_GRAVE+LOCATION_MZONE)
          e2:SetCountLimit(1,id+o)
          e2:SetTarget(s.eqtg)
          e2:SetOperation(s.eqop)
          c:RegisterEffect(e2)
          end
          function s.lcheck(g)
          return g:IsExists(s.mfilter,1,nil)
          end
          function s.mfilter(c)
          return c:IsLinkRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_LIGHT)
          end
          function s.filter0(c)
          return c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
          end
          function s.filter1(c,e)
          return c:IsType(TYPE_MONSTER) and not c:IsImmuneToEffect(e) and c:IsAbleToDeck()
          end
          function s.filter2(c,e,tp,m,f,chkf)
          return c:IsType(TYPE_FUSION) and c:IsRace(RACE_FIEND) and (not f or f(c))
          and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then
          local chkf=tp
          local mg1=Duel.GetMatchingGroup(s.filter0,tp,LOCATION_GRAVE,0,nil)
          local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
          if not res then
          local ce=Duel.GetChainMaterial(tp)
          if ce~=nil then
          local fgroup=ce:GetTarget()
          local mg3=fgroup(ce,e,tp)
          local mf=ce:GetValue()
          res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf)
          end
          end
          return res
          end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local chkf=tp
          local mg1=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.filter1),tp,LOCATION_GRAVE,0,nil,e)
          local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
          local mg3=nil
          local sg2=nil
          local ce=Duel.GetChainMaterial(tp)
          if ce~=nil then
          local fgroup=ce:GetTarget()
          mg3=fgroup(ce,e,tp)
          local mf=ce:GetValue()
          sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf)
          end
          if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
          local sg=sg1:Clone()
          if sg2 then sg:Merge(sg2) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local tg=sg:Select(tp,1,1,nil)
          local tc=tg:GetFirst()
          if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
          local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
          tc:SetMaterial(mat1)
          if mat1:IsExists(s.fdfilter,1,nil) then
          local cg=mat1:Filter(s.fdfilter,nil)
          Duel.ConfirmCards(1-tp,cg)
          end
          if mat1:IsExists(s.gdfilter,1,nil) then
          local gg=mat1:Filter(s.gdfilter,nil)
          Duel.HintSelection(gg)
          end
          Duel.SendtoDeck(mat1,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
          Duel.BreakEffect()
          Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
          else
          local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
          local fop=ce:GetOperation()
          fop(ce,e,tp,tc,mat2)
          end
          end
          end
          function s.eqfilter(c)
          return c:IsFaceup() and c:IsSetCard(0x2b0) and not c:IsType(TYPE_LINK)
          end
          function s.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.eqfilter(chkc) end
          if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
          and Duel.IsExistingTarget(s.eqfilter,tp,LOCATION_MZONE,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
          Duel.SelectTarget(tp,s.eqfilter,tp,LOCATION_MZONE,0,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
          Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
          end
          function s.eqop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local tc=Duel.GetFirstTarget()
          if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsControler(tp) then
          if not Duel.Equip(tp,c,tc) then return end
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_EQUIP_LIMIT)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetLabelObject(tc)
          e1:SetValue(s.eqlimit)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_EQUIP)
          e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
          e2:SetValue(aux.tgoval)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD)
          c:RegisterEffect(e2)
          end
          end
          function s.eqlimit(e,c)
          return c==e:GetLabelObject()
          end
          function s.fdfilter(c)
          return c:IsLocation(LOCATION_MZONE) and c:IsFacedown() or c:IsLocation(LOCATION_HAND)
          end
          function s.gdfilter(c)
          return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)
          end
          \ No newline at end of file
          script/c101205061.lua 0 → 100644
          View file @ 56632dc2
          --镌刻魔的咏圣
          local s,id,o=GetID()
          function s.initial_effect(c)
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_HANDES)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetCountLimit(1,id+o)
          e2:SetCost(aux.bfgcost)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          end
          function s.filter(c)
          return c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_HAND) then
          Duel.ConfirmCards(1-tp,g)
          Duel.ShuffleHand(tp)
          Duel.BreakEffect()
          Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD,nil)
          end
          end
          function s.filter1(c,e)
          return not c:IsImmuneToEffect(e)
          end
          function s.filter2(c,e,tp,m,f,chkf)
          return c:IsType(TYPE_FUSION) and c:IsRace(RACE_FIEND) and (not f or f(c))
          and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then
          local chkf=tp
          local mg1=Duel.GetFusionMaterial(tp)
          local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
          if not res then
          local ce=Duel.GetChainMaterial(tp)
          if ce~=nil then
          local fgroup=ce:GetTarget()
          local mg2=fgroup(ce,e,tp)
          local mf=ce:GetValue()
          res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
          end
          end
          return res
          end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local chkf=tp
          local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
          local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
          local mg2=nil
          local sg2=nil
          local ce=Duel.GetChainMaterial(tp)
          if ce~=nil then
          local fgroup=ce:GetTarget()
          mg2=fgroup(ce,e,tp)
          local mf=ce:GetValue()
          sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
          end
          if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
          local sg=sg1:Clone()
          if sg2 then sg:Merge(sg2) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local tg=sg:Select(tp,1,1,nil)
          local tc=tg:GetFirst()
          if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
          local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
          tc:SetMaterial(mat1)
          Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
          Duel.BreakEffect()
          Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
          else
          local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
          local fop=ce:GetOperation()
          fop(ce,e,tp,tc,mat2)
          end
          tc:CompleteProcedure()
          end
          end
          script/c101205062.lua 0 → 100644
          View file @ 56632dc2
          --镌刻魔的赞圣
          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+CATEGORY_TOKEN)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          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:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetCode(EVENT_DESTROYED)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.setcon)
          e2:SetTarget(s.settg)
          e2:SetOperation(s.setop)
          c:RegisterEffect(e2)
          end
          function s.cfilter(c)
          return not (c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_LIGHT)) and c:IsFaceup()
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return not Duel.IsExistingMatchingCard(s.cfilter,to,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
          Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0,TYPES_TOKEN_MONSTER,0,0,1,RACE_FIEND,ATTRIBUTE_LIGHT) end
          Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
          or not Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0,TYPES_TOKEN_MONSTER,0,0,1,RACE_FIEND,ATTRIBUTE_LIGHT) then return end
          local token=Duel.CreateToken(tp,id+o)
          Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
          e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
          e1:SetTargetRange(LOCATION_MZONE,0)
          e1:SetTarget(s.atktg)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.atktg(e,c)
          return not c:IsRace(RACE_FIEND)
          end
          function s.cfilter(c,tp)
          return c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_FACEUP)
          and c:IsSetCard(0x2b0)
          end
          function s.setcon(e,tp,eg,ep,ev,re,r,rp)
          return rp==1-tp and eg:IsExists(s.cfilter,1,e:GetHandler(),tp)
          end
          function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return c:IsSSetable() end
          Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,c,1,0,0)
          end
          function s.setop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToEffect(e) then Duel.SSet(tp,c) end
          end
          \ No newline at end of file
          script/c101205072.lua 0 → 100644
          View file @ 56632dc2
          --镌刻魔的乐园
          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_ACTIVATE)
          e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetTarget(s.tgtg)
          e1:SetOperation(s.tgop)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_TOGRAVE)
          e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_SPSUMMON_SUCCESS)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetCountLimit(1,id+o)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetCondition(s.tgcon2)
          e2:SetCost(aux.bfgcost)
          e2:SetTarget(s.tgtg2)
          e2:SetOperation(s.tgop2)
          c:RegisterEffect(e2)
          end
          function s.filter(c,tp)
          return c:IsFaceup() and c:IsLevelAbove(7) and c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_LIGHT) and Duel.IsExistingTarget(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c)
          end
          function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.filter(chkc,tp) end
          if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,0,1,nil,tp) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
          local tc=Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil,tp)
          local dg=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,tc)
          end
          function s.tgop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if not tc:IsRelateToEffect(e) then return end
          if tc then
          local dg=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,tc)
          Duel.SendtoGrave(dg,REASON_EFFECT)
          end
          end
          function s.tgcon2(e,tp,eg,ep,ev,re,r,rp)
          return eg:IsExists(Card.IsControler,1,nil,1-tp)
          end
          function s.tgfilter(c)
          return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() and c:IsSetCard(0x2b0)
          end
          function s.tgtg2(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
          end
          function s.tgop2(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SendtoGrave(g,REASON_EFFECT)
          end
          end
          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