Skip to content

P
pre-release-database-cdb
Commit cf4440f1 authored by wind2009's avatar wind2009
Browse files
Options

Remove released cards

parent 792af0a8
Pipeline #43812 failed with stages
          in 2 minutes and 46 seconds
          Show whitespace changes
          Inline Side-by-side
          Showing with 1 addition and 3698 deletions
          LOCH.cdb deleted 100644 → 0
          View file @ 792af0a8
          File deleted
          MZMU.cdb deleted 100644 → 0
          View file @ 792af0a8
          File deleted
          pack/2026-02-20 MZMU.ydk deleted 100644 → 0
          View file @ 792af0a8
          #created by superpre
          100259001
          100259002
          100259003
          100259004
          100259005
          100259006
          100259007
          100259008
          100259009
          100259010
          \ No newline at end of file
          pack/2026-02-28 LOCH.ydk deleted 100644 → 0
          View file @ 792af0a8
          #created by ygomobile
          100256001
          100256002
          100256003
          100256004
          100256005
          100256006
          100256007
          100256008
          100256009
          100256010
          100256011
          100256012
          100256013
          100256014
          100256015
          100256016
          100256017
          100256018
          100256019
          100256020
          100256021
          100256022
          100256023
          100256024
          100256025
          100201001
          \ No newline at end of file
          pack/etc.ydk
          View file @ cf4440f1
          #created by ygomobile
          100200284
          #created by superpre
          100258001
          100258002
          100200288
          ......
          script-fix.cdb
          View file @ cf4440f1
          No preview for this file type
          script/c100201001.lua deleted 100644 → 0
          View file @ 792af0a8
          --W：Pファンシーボール
          local s,id,o=GetID()
          function s.initial_effect(c)
          --link summon
          aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2)
          c:EnableReviveLimit()
          --disable
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_DISABLE+CATEGORY_REMOVE)
          e1:SetType(EFFECT_TYPE_QUICK_O)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCode(EVENT_CHAINING)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.discon)
          e1:SetCost(s.discost)
          e1:SetTarget(s.distg)
          e1:SetOperation(s.disop)
          c:RegisterEffect(e1)
          --link summon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.lkcon)
          e2:SetTarget(s.lktg)
          e2:SetOperation(s.lkop)
          c:RegisterEffect(e2)
          end
          function s.discon(e,tp,eg,ep,ev,re,r,rp)
          local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
          return ep~=tp and (LOCATION_ONFIELD+LOCATION_GRAVE)&loc~=0
          and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev)
          end
          function s.discost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return c:IsStatus(STATUS_SPSUMMON_TURN) and c:IsAbleToRemoveAsCost() end
          if Duel.Remove(c,0,REASON_COST+REASON_TEMPORARY)~=0 and c:GetOriginalCode()==id then
          c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,2))
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          e1:SetCode(EVENT_PHASE+PHASE_END)
          e1:SetReset(RESET_PHASE+PHASE_END)
          e1:SetLabelObject(c)
          e1:SetCountLimit(1)
          e1:SetOperation(s.retop)
          Duel.RegisterEffect(e1,tp)
          end
          end
          function s.retop(e,tp,eg,ep,ev,re,r,rp)
          Duel.ReturnToField(e:GetLabelObject())
          end
          function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return aux.nbcon(tp,re) end
          Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
          if re:GetHandler():IsRelateToEffect(re) then
          Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0)
          end
          if re:GetActivateLocation()==LOCATION_GRAVE then
          e:SetCategory(e:GetCategory()|CATEGORY_GRAVE_ACTION)
          else
          e:SetCategory(e:GetCategory()&~CATEGORY_GRAVE_ACTION)
          end
          end
          function s.disop(e,tp,eg,ep,ev,re,r,rp)
          if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToChain(ev) then
          Duel.Remove(eg,POS_FACEUP,REASON_EFFECT)
          end
          end
          function s.lkcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetTurnPlayer()~=tp and Duel.IsMainPhase()
          end
          function s.lkfilter(c)
          return c:IsLinkSummonable(nil)
          end
          function s.mattg(e,c)
          return c:IsFaceup() and c:IsLinkBelow(2)
          end
          function s.lktg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          local fid=c:GetFieldID()
          local le=Effect.CreateEffect(c)
          le:SetType(EFFECT_TYPE_FIELD)
          le:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
          le:SetTargetRange(0,LOCATION_MZONE)
          le:SetLabel(fid)
          le:SetLabelObject(c)
          le:SetTarget(s.mattg)
          le:SetValue(s.matval)
          Duel.RegisterEffect(le,tp)
          local res=Duel.IsExistingMatchingCard(s.lkfilter,tp,LOCATION_EXTRA,0,1,nil)
          le:Reset()
          c:ResetFlagEffect(id)
          if chk==0 then return res end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
          Duel.SetChainLimit(s.chainlm)
          end
          function s.chainlm(e,rp,tp)
          return not e:GetHandler():IsAllTypes(TYPE_LINK+TYPE_MONSTER)
          end
          function s.lkop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToChain() and c:IsControler(tp) and c:IsFaceup() then
          local fid=c:GetFieldID()
          local le=Effect.CreateEffect(c)
          le:SetType(EFFECT_TYPE_FIELD)
          le:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
          le:SetTargetRange(0,LOCATION_MZONE)
          le:SetLabel(fid)
          le:SetLabelObject(c)
          le:SetTarget(s.mattg)
          le:SetValue(s.matval)
          le:SetReset(RESET_PHASE+PHASE_MAIN1+PHASE_MAIN2)
          Duel.RegisterEffect(le,tp)
          end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,s.lkfilter,tp,LOCATION_EXTRA,0,1,1,nil)
          local tc=g:GetFirst()
          if tc then
          Duel.LinkSummon(tp,tc,nil)
          end
          end
          function s.matval(e,lc,mg,c,tp)
          local wp=e:GetLabelObject()
          local fid=e:GetLabel()
          if wp:GetFieldID()~=fid then return false,nil end
          -- W：Pファンシーボール must be controlled by tp to provide its material effect
          if wp:GetControler()~=tp then
          return false,nil
          end
          -- W：Pファンシーボール only relates to opponent face-up Link<=2
          if not s.wp_eligible_opp_link2(c,tp) then
          return false,nil
          end
          -- W：Pファンシーボール must actually be used in the material group
          if not mg or not mg:IsContains(wp) then
          return true,false
          end
          -- Explicit: W：Pファンシーボール provides at most ONE opponent Link<=2.
          -- If mg already contains another opponent Link<=2 (besides this candidate), W：Pファンシーボール will not provide it.
          if mg:IsExists(s.wp_eligible_opp_link2,1,c,tp) then
          return true,false
          end
          return true,true
          end
          function s.wp_eligible_opp_link2(c,tp)
          return c:IsControler(1-tp) and c:IsFaceup() and c:IsLinkBelow(2)
          end
          script/c100256001.lua deleted 100644 → 0
          View file @ 792af0a8
          --王のしもべ－ブラック・マジシャン
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.EnableChangeCode(c,46986414,LOCATION_MZONE+LOCATION_GRAVE)
          --spsummon
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_SSET)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_HAND)
          e1:SetCountLimit(1,id)
          e1:SetCost(s.spcost)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --destroy
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_DESTROY)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_MZONE)
          e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e2:SetCountLimit(1,id)
          e2:SetCost(s.descost)
          e2:SetTarget(s.destg)
          e2:SetOperation(s.desop)
          c:RegisterEffect(e2)
          end
          function s.cfilter(c)
          return c:IsType(TYPE_SPELL) and not c:IsPublic()
          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,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
          local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND,0,1,1,nil)
          Duel.ConfirmCards(1-tp,g)
          Duel.ShuffleHand(tp)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
          end
          function s.setfilter(c)
          return aux.IsCodeListed(c,46986414) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToChain() and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0
          and Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
          Duel.BreakEffect()
          local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SSet(tp,g:GetFirst())
          end
          end
          end
          function s.costfilter(c,tp)
          return c:IsType(TYPE_SPELL) and c:IsDiscardable()
          end
          function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_HAND,0,1,nil,tp) end
          local g=Duel.GetMatchingGroup(s.costfilter,tp,LOCATION_HAND,0,nil,tp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
          local tc=g:Select(tp,1,1,nil):GetFirst()
          Duel.SendtoGrave(tc,REASON_COST+REASON_DISCARD)
          end
          function s.desfilter(c)
          return c:IsType(TYPE_SPELL+TYPE_TRAP)
          end
          function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.desfilter,tp,0,LOCATION_ONFIELD,1,nil) end
          local sg=Duel.GetMatchingGroup(s.desfilter,tp,0,LOCATION_ONFIELD,nil)
          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(s.desfilter,tp,0,LOCATION_ONFIELD,nil)
          Duel.Destroy(sg,REASON_EFFECT)
          end
          script/c100256002.lua deleted 100644 → 0
          View file @ 792af0a8
          --増殖するクリボー！
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,46986414)
          --spsummon
          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_CHAINING)
          e1:SetRange(LOCATION_HAND)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.spcon1)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          local e2=e1:Clone()
          e2:SetCode(EVENT_ATTACK_ANNOUNCE)
          e2:SetCondition(s.spcon2)
          c:RegisterEffect(e2)
          --deckdes
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,1))
          e3:SetCategory(CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_DECKDES+CATEGORY_GRAVE_ACTION+CATEGORY_GRAVE_SPSUMMON)
          e3:SetType(EFFECT_TYPE_QUICK_O)
          e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
          e3:SetCode(EVENT_CHAINING)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
          e3:SetCondition(s.thcon1)
          e3:SetTarget(s.thtg)
          e3:SetOperation(s.thop)
          c:RegisterEffect(e3)
          local e4=e3:Clone()
          e4:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
          e4:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
          e4:SetCondition(s.thcon2)
          c:RegisterEffect(e4)
          end
          function s.spcon1(e,tp,eg,ep,ev,re,r,rp)
          return ep==1-tp and re:IsActiveType(TYPE_MONSTER)
          end
          function s.spcon2(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetAttacker():IsControler(1-tp)
          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,POS_FACEUP) 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:IsRelateToChain() then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          function s.cfilter(c)
          return c:IsFaceup() and c:IsType(TYPE_FUSION)
          end
          function s.thcon1(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not (ep==1-tp and re:GetActivateLocation()==LOCATION_MZONE and re:IsActiveType(TYPE_MONSTER)) then return false end
          e:SetLabelObject(re:GetHandler())
          return true
          end
          function s.thcon2(e,tp,eg,ep,ev,re,r,rp)
          local a=Duel.GetAttacker()
          if not a:IsControler(1-tp) then return false end
          e:SetLabelObject(a)
          return true
          end
          function s.thfilter(c,e,tp)
          if not (c:IsAttack(300) and c:IsDefense(200) or c:IsCode(46986414)) then return false end
          local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
          return c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end
          Duel.SetTargetCard(e:GetLabelObject())
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
          local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
          local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
          local oc=g:GetFirst()
          if oc then
          local res=true
          if oc:IsAbleToHand() and (not oc:IsCanBeSpecialSummoned(e,0,tp,false,false) or ft<=0 or Duel.SelectOption(tp,1190,1152)==0) then
          Duel.SendtoHand(oc,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,oc)
          res=oc:IsLocation(LOCATION_HAND)
          elseif ft>0 and oc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
          res=Duel.SpecialSummon(oc,0,tp,tp,false,false,POS_FACEUP)>0
          end
          local tc=Duel.GetFirstTarget()
          if tc and res and tc:IsRelateToChain() and tc:IsControler(1-tp) and tc:IsFaceup() and tc:GetAttack()>0
          and Duel.SelectYesNo(tp,aux.Stringid(id,2)) and not tc:IsImmuneToEffect(e) then
          Duel.BreakEffect()
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_SET_ATTACK_FINAL)
          e1:SetValue(0)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          end
          end
          end
          script/c100256003.lua deleted 100644 → 0
          View file @ 792af0a8
          --黒魔導のカーテン
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,46986414,38033121)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES+CATEGORY_SEARCH+CATEGORY_TOHAND)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetHintTiming(TIMING_DRAW_PHASE,TIMING_DRAW_PHASE+TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          end
          function s.spfilter(c,e,tp)
          return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.spfilter2(c,e,tp)
          return c:IsPublic() and c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          local b1=Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) and
          Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          local b2=false
          if Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummon(1-tp) then
          if Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>0 or Duel.IsExistingMatchingCard(aux.NOT(Card.IsPublic),tp,0,LOCATION_HAND,1,nil) then
          for lv=1,12 do
          if Duel.IsPlayerCanSpecialSummonMonster(1-tp,0,0,TYPE_MONSTER,-2,-2,lv,RACE_SPELLCASTER,ATTRIBUTE_DARK,POS_FACEUP) then
          b2=true
          break
          end
          end
          end
          b2=b2 or Duel.IsExistingMatchingCard(s.spfilter2,1-tp,LOCATION_HAND,0,1,nil,e,1-tp)
          end
          if chk==0 then return b1 or b2 end
          end
          function s.thfilter(c)
          return not c:IsCode(id) and aux.IsCodeListed(c,46986414) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local res=false
          local ss=false
          for p in aux.TurnPlayers() do
          if Duel.GetLocationCount(p,LOCATION_MZONE)>0
          and Duel.IsExistingMatchingCard(s.spfilter,p,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,p)
          and Duel.SelectYesNo(p,aux.Stringid(id,1)) then
          Duel.Hint(HINT_SELECTMSG,p,HINTMSG_SPSUMMON)
          local sc=Duel.SelectMatchingCard(p,s.spfilter,p,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,p):GetFirst()
          if Duel.SpecialSummonStep(sc,0,p,p,false,false,POS_FACEUP) then
          ss=true
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_CANNOT_TRIGGER)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          sc:RegisterEffect(e1)
          if p==tp then
          res=sc:IsOriginalCodeRule(46986414,38033121)
          end
          end
          end
          end
          if ss then
          Duel.SpecialSummonComplete()
          end
          if res and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil)
          and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.BreakEffect()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          script/c100256004.lua deleted 100644 → 0
          View file @ 792af0a8
          --F・HERO シャイニング・フレア・ウィングマン
          local s,id,o=GetID()
          function s.initial_effect(c)
          --fusion material
          c:EnableReviveLimit()
          aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionType,TYPE_FUSION),s.matfilter2,true)
          --draw
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW+CATEGORY_ATKCHANGE)
          e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetProperty(EFFECT_FLAG_DELAY)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.thcon)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          --damage
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_DAMAGE)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
          e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e2:SetCode(EVENT_BATTLE_DESTROYING)
          e2:SetCondition(aux.bdcon)
          e2:SetTarget(s.damtg)
          e2:SetOperation(s.damop)
          c:RegisterEffect(e2)
          end
          function s.matfilter2(c)
          return c:IsFaceup() and c:IsLocation(LOCATION_MZONE)
          end
          function s.thcon(e,tp,eg,ep,ev,re,r,rp)
          return e:GetHandler():IsSummonLocation(LOCATION_EXTRA)
          end
          function s.tdfilter(c)
          return c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsPlayerCanDraw(tp,2)
          and Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_GRAVE,0,5,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,5,tp,LOCATION_GRAVE)
          Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_GRAVE,0,nil)
          if g:GetCount()<5 then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local dg=g:Select(tp,5,5,nil)
          Duel.HintSelection(dg)
          if Duel.SendtoDeck(dg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0
          and dg:IsExists(Card.IsLocation,5,nil,LOCATION_DECK+LOCATION_EXTRA) then
          Duel.BreakEffect()
          if Duel.Draw(tp,2,REASON_EFFECT)>0
          and c:IsRelateToChain()
          and c:IsFaceup() then
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_UPDATE_ATTACK)
          e1:SetValue(1000)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
          c:RegisterEffect(e1)
          end
          end
          end
          function s.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          local bc=e:GetHandler():GetBattleTarget()
          Duel.SetTargetCard(bc)
          local dam=bc:GetAttack()
          if dam<0 then dam=0 end
          Duel.SetTargetPlayer(1-tp)
          Duel.SetTargetParam(dam)
          if dam>0 then
          Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam)
          end
          end
          function s.damop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() then
          local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
          local dam=tc:GetAttack()
          if dam>0 then
          Duel.Damage(p,dam,REASON_EFFECT)
          end
          end
          end
          script/c100256005.lua deleted 100644 → 0
          View file @ 792af0a8
          --F・HERO フレイム・ウィングマン
          local s,id,o=GetID()
          function s.initial_effect(c)
          --fusion material
          c:EnableReviveLimit()
          aux.AddFusionProcFunRep(c,s.ffilter,2,true)
          --atk up
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCode(EVENT_ATTACK_ANNOUNCE)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.atkcon)
          e1:SetTarget(s.atktg)
          e1:SetOperation(s.atkop)
          c:RegisterEffect(e1)
          --fusion summon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetHintTiming(0,TIMING_BATTLE_END+TIMING_MAIN_END+TIMING_END_PHASE)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.fspcon)
          e2:SetTarget(s.fsptg)
          e2:SetOperation(s.fspop)
          c:RegisterEffect(e2)
          if not s.global_check then
          s.global_check=true
          local ge1=Effect.CreateEffect(c)
          ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          ge1:SetCode(EVENT_DESTROYED)
          ge1:SetOperation(s.checkop)
          Duel.RegisterEffect(ge1,0)
          end
          end
          function s.cfilter(c)
          return (c:IsPreviousLocation(LOCATION_MZONE) or c:GetOriginalType()&TYPE_MONSTER~=0)
          and c:IsReason(REASON_BATTLE)
          end
          function s.checkop(e,tp,eg,ep,ev,re,r,rp)
          if eg:IsExists(s.cfilter,1,nil) then
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
          Duel.RegisterFlagEffect(1-tp,id,RESET_PHASE+PHASE_END,0,1)
          end
          end
          function s.ffilter(c,fc,sub,mg,sg)
          return not sg or sg:FilterCount(aux.TRUE,c)==0
          or (sg:IsExists(Card.IsRace,1,c,c:GetRace())
          and not sg:IsExists(Card.IsFusionAttribute,1,c,c:GetFusionAttribute()))
          end
          function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local bc=c:GetBattleTarget()
          return bc and bc:IsFaceup() and bc:IsAttackAbove(2200)
          end
          function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
          end
          function s.spfilter(c,e,tp)
          return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
          end
          function s.atkop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsFaceup() and c:IsRelateToChain() then
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_UPDATE_ATTACK)
          e1:SetValue(1000)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
          c:RegisterEffect(e1)
          if not c:IsHasEffect(EFFECT_REVERSE_UPDATE) then
          local g=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_HAND,0,nil,e,tp)
          if #g>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.BreakEffect()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local sg=g:Select(tp,1,1,nil)
          Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
          end
          end
          end
          end
          function s.fspcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetFlagEffect(tp,id)>0
          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 (not f or f(c))
          and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
          end
          function s.fsptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then
          local chkf=tp
          local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
          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.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          end
          function s.fspop(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 ce and 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)
          elseif ce then
          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/c100256006.lua deleted 100644 → 0
          View file @ 792af0a8
          --ハネクリボー・サバティエル LV１０
          local s,id,o=GetID()
          function s.initial_effect(c)
          --search
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TODECK+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)
          --special summon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetHintTiming(0,TIMING_DRAW_PHASE+TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_ATTACK+TIMING_BATTLE_END+TIMING_END_PHASE)
          e2:SetRange(LOCATION_HAND)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.spcon)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          end
          function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return not e:GetHandler():IsPublic() end
          Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
          end
          function s.thfilter(c)
          return c:IsSetCard(0x46) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil)
          and c:IsAbleToDeck() end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          if c:IsRelateToChain() then
          Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
          end
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return not c:IsSetCard(0x8) and c:IsLocation(LOCATION_EXTRA)
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetTurnPlayer()==1-tp and Duel.GetLP(tp)<=1000
          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,POS_FACEUP) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
          end
          function s.atkfilter(c)
          return c:IsFaceup() and not c:IsAttack(0)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToChain() and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0
          and Duel.IsExistingMatchingCard(s.atkfilter,tp,0,LOCATION_MZONE,1,nil)
          and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          local g=Duel.GetMatchingGroup(s.atkfilter,tp,0,LOCATION_MZONE,nil)
          local tc=g:GetMaxGroup(Card.GetAttack):GetFirst()
          Duel.BreakEffect()
          Duel.Damage(1-tp,tc:GetAttack(),REASON_EFFECT)
          end
          end
          script/c100256007.lua deleted 100644 → 0
          View file @ 792af0a8
          --スターダスト・ドラゴン－ヴィクテム・サンクチュアリ
          local s,id,o=GetID()
          function s.initial_effect(c)
          --synchro summon
          aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
          c:EnableReviveLimit()
          --negate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
          e1:SetType(EFFECT_TYPE_QUICK_O)
          e1:SetCode(EVENT_CHAINING)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.negcon)
          e1:SetCost(s.cost)
          e1:SetTarget(s.negtg)
          e1:SetOperation(s.negop)
          c:RegisterEffect(e1)
          --special summon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.sscon)
          e2:SetCost(aux.bfgcost)
          e2:SetTarget(s.sstg)
          e2:SetOperation(s.ssop)
          c:RegisterEffect(e2)
          if not s.global_check then
          s.global_check=true
          local ge1=Effect.CreateEffect(c)
          ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          ge1:SetCode(EVENT_RELEASE)
          ge1:SetOperation(s.checkop)
          Duel.RegisterEffect(ge1,0)
          end
          end
          function s.negcon(e,tp,eg,ep,ev,re,r,rp)
          if not Duel.IsChainDisablable(ev) then return false end
          local te,p=Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
          return te and p==tp and rp==1-tp
          end
          function s.excostfilter(c,tp)
          return c:IsAbleToRemoveAsCost() and c:IsHasEffect(84012625,tp)
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          local g=Duel.GetMatchingGroup(s.excostfilter,tp,LOCATION_GRAVE,0,nil,tp)
          local c=e:GetHandler()
          if c:IsReleasable() and c:IsSetCard(0xa3) then g:AddCard(c) end
          if chk==0 then return #g>0 end
          local tc
          if #g>1 then
          Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(84012625,0))
          tc=g:Select(tp,1,1,nil):GetFirst()
          else
          tc=g:GetFirst()
          end
          local te=tc:IsHasEffect(84012625,tp)
          if te then
          Duel.Remove(tc,POS_FACEUP,REASON_COST+REASON_REPLACE)
          else
          Duel.Release(tc,REASON_COST)
          end
          end
          function s.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.GetFlagEffect(tp,id+o)==0 end
          Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
          if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
          end
          Duel.RegisterFlagEffect(tp,id+o,RESET_CHAIN,0,1)
          end
          function s.negop(e,tp,eg,ep,ev,re,r,rp)
          if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToChain(ev) then
          Duel.Destroy(eg,REASON_EFFECT)
          end
          end
          function s.chkfilter(c,p)
          return c:GetPreviousControler()==p and (c:IsPreviousLocation(LOCATION_MZONE) or c:IsType(TYPE_MONSTER))
          end
          function s.checkop(e,tp,eg,ep,ev,re,r,rp)
          for p=0,1 do
          if eg:IsExists(s.chkfilter,1,nil,p) then
          Duel.RegisterFlagEffect(p,id,RESET_PHASE+PHASE_END,0,1)
          end
          end
          end
          function s.sscon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetFlagEffect(tp,id)>0
          end
          function s.ssfilter(c,e,tp)
          return c:IsSetCard(0xa3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_SYNCHRO)
          and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
          end
          function s.sstg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.ssfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp)
          and Duel.GetFlagEffect(tp,id+o)==0 end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          Duel.RegisterFlagEffect(tp,id+o,RESET_CHAIN,0,1)
          end
          function s.ssop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,s.ssfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
          if g:GetCount()>0 then
          Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          script/c100256008.lua deleted 100644 → 0
          View file @ 792af0a8
          --スタージャンク・シンクロン
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,60800381)
          --material replace
          local e0=Effect.CreateEffect(c)
          e0:SetType(EFFECT_TYPE_SINGLE)
          e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
          e0:SetCode(20932152)
          c:RegisterEffect(e0)
          --spsummon
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e1:SetRange(LOCATION_HAND)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --Protect
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetCost(aux.bfgcost)
          e2:SetCountLimit(1,id+o)
          e2:SetOperation(s.immop)
          c:RegisterEffect(e2)
          end
          function s.spfilter(c,e,tp)
          return c:IsLevelBelow(2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          local c=e:GetHandler()
          if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.spfilter(chkc,e,tp) end
          if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
          and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
          g:AddCard(c)
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_FIELD)
          e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e3:SetTargetRange(1,0)
          e3:SetTarget(s.splimit)
          e3:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e3,tp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() and not aux.NecroValleyFilter()(tc) then return false end
          if c:IsRelateToChain()
          and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
          if tc:IsRelateToChain()
          and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
          and not Duel.IsPlayerAffectedByEffect(tp,59822133) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
          if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_DISABLE)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_DISABLE_EFFECT)
          e2:SetValue(RESET_TURN_SET)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e2)
          end
          end
          Duel.SpecialSummonComplete()
          end
          end
          function s.splimit(e,c)
          return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
          end
          function s.immop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
          e1:SetValue(aux.indoval)
          e1:SetTargetRange(LOCATION_ONFIELD,0)
          e1:SetTarget(aux.TargetBoolFunction(Card.IsCode,60800381))
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          script/c100256009.lua deleted 100644 → 0
          View file @ 792af0a8
          --シンクロ・エマージェンシー
          local s,id,o=GetID()
          function s.initial_effect(c)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --synchro summon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END+TIMING_END_PHASE)
          e2:SetCost(aux.bfgcost)
          e2:SetTarget(s.sctg)
          e2:SetOperation(s.scop)
          c:RegisterEffect(e2)
          --act in hand
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,3))
          e3:SetType(EFFECT_TYPE_SINGLE)
          e3:SetCode(EFFECT_TRAP_ACT_IN_HAND)
          e3:SetCondition(s.handcon)
          c:RegisterEffect(e3)
          end
          function s.spfilter(c,e,tp)
          return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
          end
          function s.cfilter(c)
          return c:IsSummonLocation(LOCATION_EXTRA)
          end
          function s.spfilter2(c,e,tp)
          return c:IsSetCard(0x1017) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
          local tc=g:GetFirst()
          if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_DISABLE)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_DISABLE_EFFECT)
          e2:SetValue(RESET_TURN_SET)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e2)
          Duel.SpecialSummonComplete()
          if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and Duel.IsExistingMatchingCard(s.cfilter,tp,0,LOCATION_MZONE,1,nil)
          and Duel.IsExistingMatchingCard(s.spfilter2,tp,LOCATION_DECK,0,1,nil,e,tp)
          and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.BreakEffect()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local sg=Duel.SelectMatchingCard(tp,s.spfilter2,tp,LOCATION_DECK,0,1,1,nil,e,tp)
          Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          end
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,4))
          e3:SetType(EFFECT_TYPE_FIELD)
          e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
          e3:SetTargetRange(1,0)
          e3:SetTarget(s.splimit)
          e3:SetReset(RESET_PHASE+PHASE_END,2)
          Duel.RegisterEffect(e3,tp)
          end
          function s.splimit(e,c)
          return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
          end
          function s.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          end
          function s.scop(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,nil)
          if g:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local sg=g:Select(tp,1,1,nil)
          Duel.SynchroSummon(tp,sg:GetFirst(),nil)
          end
          end
          function s.handcon(e)
          return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,0)==0
          and Duel.GetFieldGroupCount(e:GetHandlerPlayer(),0,LOCATION_MZONE)>0
          end
          script/c100256010.lua deleted 100644 → 0
          View file @ 792af0a8
          --No.39 光の使者 希望皇ホープ
          local s,id,o=GetID()
          function s.initial_effect(c)
          --xyz summon
          aux.AddXyzProcedure(c,nil,4,2)
          c:EnableReviveLimit()
          --battle indes
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
          e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e1:SetRange(LOCATION_MZONE)
          e1:SetValue(s.indes)
          c:RegisterEffect(e1)
          --indes
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,0))
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e2:SetCost(s.indcost)
          e2:SetTarget(s.indtg)
          e2:SetOperation(s.indop)
          c:RegisterEffect(e2)
          --atk
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,1))
          e3:SetCategory(CATEGORY_ATKCHANGE)
          e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e3:SetCode(EVENT_ATTACK_ANNOUNCE)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCondition(s.atkcon)
          e3:SetTarget(s.atktg)
          e3:SetOperation(s.atkop)
          c:RegisterEffect(e3)
          if not s.global_check then
          s.global_check=true
          local ge1=Effect.CreateEffect(c)
          ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          ge1:SetCode(EVENT_ATTACK_ANNOUNCE)
          ge1:SetOperation(s.checkop)
          Duel.RegisterEffect(ge1,0)
          end
          end
          function s.checkop(e,tp,eg,ep,ev,re,r,rp)
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
          Duel.RegisterFlagEffect(1-tp,id,RESET_PHASE+PHASE_END,0,1)
          end
          function s.indes(e,c)
          return not c:IsSetCard(0x48)
          end
          function s.indcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
          e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
          end
          function s.indtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsControler(tp) and chkc:IsType(TYPE_MONSTER) end
          if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
          Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,0,1,1,nil)
          end
          function s.indop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() then
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
          e1:SetCountLimit(1)
          e1:SetValue(s.valcon)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          tc:RegisterEffect(e1)
          end
          end
          function s.valcon(e,re,r,rp)
          return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
          end
          function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetFlagEffect(tp,id)==1
          end
          function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          end
          function s.atkop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsFaceup() and c:IsRelateToChain() then
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_UPDATE_ATTACK)
          e1:SetValue(2500)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
          c:RegisterEffect(e1)
          if not c:IsHasEffect(EFFECT_REVERSE_UPDATE) then
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,2))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetCode(EVENT_BATTLE_DESTROYING)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCondition(aux.bdgcon)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
          c:RegisterEffect(e2)
          c:RegisterFlagEffect(id+o,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,3))
          end
          end
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          local bc=e:GetHandler():GetBattleTarget()
          if chk==0 then
          return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and bc:IsLocation(LOCATION_GRAVE)
          and bc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
          end
          Duel.SetTargetCard(bc)
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,0)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() and aux.NecroValleyFilter()(tc) then
          Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          script/c100256011.lua deleted 100644 → 0
          View file @ 792af0a8
          --ガガガマジシャン－ガガガマジック
          local s,id,o=GetID()
          function s.initial_effect(c)
          --spsummon
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_HAND)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          end
          function s.xyzlv(e,c,rc)
          return e:GetHandler():GetLevel() | (e:GetLabel() << 16)
          end
          function s.xyzfiltr(c,g)
          return c:IsSetCard(0x8f,0x54,0x59,0x82,0x206f,0x6d,0x48,0x107e,0x207e)
          and c:IsXyzSummonable(g,2,2)
          end
          function s.CreateTempSwapLevelEffect(ec,c1,c2)
          local e1=Effect.CreateEffect(ec)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_XYZ_LEVEL)
          e1:SetValue(s.xyzlv)
          e1:SetLabel(c2:GetLevel())
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          c1:RegisterEffect(e1,true)
          return e1
          end
          function s.SetTempSwapLevel(ec,c,callback)
          local e1=nil
          local e2=nil
          if ec:IsLevelAbove(1) then
          e1=s.CreateTempSwapLevelEffect(ec,c,ec)
          end
          if c:IsLevelAbove(1) then
          e2=s.CreateTempSwapLevelEffect(c,ec,c)
          end
          local res,resetflag = callback()
          if resetflag then
          if e1 then e1:Reset() end
          if e2 then e2:Reset() end
          end
          return res
          end
          function s.spfilter(c,e,tp,ec)
          if not (not c:IsCode(id) and c:IsSetCard(0x8f,0x54,0x59,0x82) and c:IsLevelAbove(1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)) then return false end
          return s.SetTempSwapLevel(ec,c,function()
          return Duel.IsExistingMatchingCard(s.xyzfiltr,tp,LOCATION_EXTRA,0,1,nil,Group.FromCards(c,ec)), true
          end)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
          and Duel.IsPlayerCanSpecialSummonCount(tp,2)
          and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp,c) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not c:IsRelateToChain() then return end
          if not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return end
          if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
          if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp,c):GetFirst()
          if tc then
          local g=Group.FromCards(c,tc)
          if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)==2
          and g:IsExists(Card.IsLocation,2,nil,LOCATION_MZONE)
          and g:IsExists(Card.IsFaceup,2,nil) then
          s.SetTempSwapLevel(c,tc,function()
          Duel.AdjustAll()
          local xyzg=Duel.GetMatchingGroup(s.xyzfiltr,tp,LOCATION_EXTRA,0,nil,g)
          if xyzg:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
          Duel.XyzSummon(tp,xyz,g)
          return nil, false
          end
          return nil, true
          end)
          end
          end
          end
          script/c100256012.lua deleted 100644 → 0
          View file @ 792af0a8
          --ガガガガール－ゼロゼロコール
          local s,id,o=GetID()
          function s.initial_effect(c)
          --special summon
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e1:SetRange(LOCATION_HAND)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.spcon)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --atk
          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_MOVE)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.atkcon)
          e2:SetTarget(s.atktg)
          e2:SetOperation(s.atkop)
          c:RegisterEffect(e2)
          end
          function s.cfilter(c,tp)
          return c:IsSummonPlayer(tp) and c:IsPreviousLocation(LOCATION_EXTRA)
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return eg:IsExists(s.cfilter,1,nil,1-tp)
          end
          function s.CreateTempLevelEffect(ec,level_source)
          local e1=Effect.CreateEffect(ec)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_XYZ_LEVEL)
          e1:SetValue(s.xyzlv)
          e1:SetLabel(level_source:GetLevel())
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          ec:RegisterEffect(e1,true)
          return e1
          end
          function s.SetTempLevel(ec,level_source,callback)
          local e1=s.CreateTempLevelEffect(ec,level_source)
          local res,resetflag = callback()
          if resetflag and e1 then e1:Reset() end
          return res
          end
          function s.xyzlv(e,c,rc)
          return e:GetHandler():GetLevel() | (e:GetLabel() << 16)
          end
          function s.xyzfilter(c,tp,mc)
          if not c:IsFaceup() or not c:IsLevelAbove(1) then return false end
          local mg=Group.FromCards(c,mc)
          return s.SetTempLevel(mc,c,function()
          return Duel.IsExistingMatchingCard(Card.IsXyzSummonable,tp,LOCATION_EXTRA,0,1,nil,mg,2,2),true
          end)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          local c=e:GetHandler()
          if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.xyzfilter(chkc,tp,c) end
          if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2)
          and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          and Duel.IsExistingTarget(s.xyzfilter,tp,LOCATION_MZONE,0,1,nil,tp,c) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
          Duel.SelectTarget(tp,s.xyzfilter,tp,LOCATION_MZONE,0,1,1,nil,tp,c)
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,2,tp,LOCATION_EXTRA)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not c:IsRelateToChain() or Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 then return end
          local tc=Duel.GetFirstTarget()
          if not tc:IsRelateToChain() or tc:IsFacedown() or not tc:IsControler(tp) then return end
          local mg=Group.FromCards(c,tc)
          if mg:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<2 then return end
          s.SetTempLevel(c,tc,function()
          Duel.AdjustAll()
          local xyzg=Duel.GetMatchingGroup(Card.IsXyzSummonable,tp,LOCATION_EXTRA,0,nil,mg,2,2)
          if xyzg:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
          Duel.XyzSummon(tp,xyz,mg)
          return nil, false
          end
          return nil, true
          end)
          end
          function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          return c:IsReason(REASON_COST) and re:IsActivated() and re:IsActiveType(TYPE_XYZ)
          and c:IsPreviousLocation(LOCATION_OVERLAY)
          end
          function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
          local g=Duel.GetMatchingGroup(aux.nzatk,tp,0,LOCATION_MZONE,nil)
          if chk==0 then return #g>0 end
          Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,1,0,0)
          end
          function s.atkop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
          local g=Duel.GetMatchingGroup(aux.nzatk,tp,0,LOCATION_MZONE,nil):Select(tp,1,1,nil)
          local tc=g:GetFirst()
          if tc then
          Duel.HintSelection(g)
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetCode(EFFECT_SET_ATTACK_FINAL)
          e1:SetValue(0)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          end
          end
          script/c100256013.lua deleted 100644 → 0
          View file @ 792af0a8
          --四天の龍 オッドアイズ・ペンデュラム・ドラゴン
          local s,id,o=GetID()
          function s.initial_effect(c)
          --pendulum summon
          aux.EnablePendulumAttribute(c)
          --destroy & search
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_PZONE)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          --atk
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e2:SetCode(EFFECT_UPDATE_ATTACK)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCondition(s.atkcon)
          e2:SetValue(s.atkval)
          c:RegisterEffect(e2)
          --double damage
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_SINGLE)
          e3:SetCode(EFFECT_CHANGE_INVOLVING_BATTLE_DAMAGE)
          e3:SetCondition(s.atkcon)
          e3:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
          c:RegisterEffect(e3)
          --to hand
          local e4=Effect.CreateEffect(c)
          e4:SetDescription(aux.Stringid(id,1))
          e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
          e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
          e4:SetCode(EVENT_DESTROYED)
          e4:SetCountLimit(1,id+o)
          e4:SetCondition(s.thcon2)
          e4:SetTarget(s.thtg2)
          e4:SetOperation(s.thop2)
          c:RegisterEffect(e4)
          if not s.global_check then
          s.global_check=true
          local ge1=Effect.CreateEffect(c)
          ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          ge1:SetCode(EVENT_SPSUMMON_SUCCESS_G_P)
          ge1:SetOperation(s.checkop)
          Duel.RegisterEffect(ge1,0)
          end
          end
          function s.checkop(e,tp,eg,ep,ev,re,r,rp)
          Duel.RegisterFlagEffect(rp,id,RESET_PHASE+PHASE_END,0,1)
          end
          function s.thfilter(c)
          return c:IsAttackBelow(1500)
          and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return c:IsDestructable() and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,c,1,0,0)
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToChain() and Duel.Destroy(c,REASON_EFFECT)~=0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          Duel.ResetFlagEffect(tp,id)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_ACTIVATE)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetTargetRange(1,0)
          e1:SetCondition(s.discon)
          e1:SetValue(s.actlimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.discon(e)
          local tp=e:GetHandlerPlayer()
          return Duel.GetFlagEffect(tp,id)==0
          end
          function s.actlimit(e,re,tp)
          return re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsLocation(LOCATION_MZONE)
          end
          function s.atkcon(e)
          return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM)
          end
          function s.atkval(e,c)
          local l,r=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_PZONE,0),Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_PZONE,1)
          if not (l and r) then return 0 end
          local ls,rs=l:GetCurrentScale(),r:GetCurrentScale()
          if ls==rs then return 0 end
          return math.abs(rs-ls)*300
          end
          function s.thcon2(e,tp,eg,ep,ev,re,r,rp)
          return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_MZONE)
          end
          function s.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return c:IsAbleToHand() end
          if rp==1-tp and c:IsPreviousControler(tp) then
          e:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
          e:SetLabel(1)
          else
          e:SetCategory(CATEGORY_TOHAND)
          e:SetLabel(0)
          end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
          if c:IsLocation(LOCATION_GRAVE) then
          Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,c,1,0,0)
          end
          end
          function s.thop2(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToChain() and aux.NecroValleyFilter()(c) then
          Duel.SendtoHand(c,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,c)
          if e:GetLabel()==1
          and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.BreakEffect()
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          end
          script/c100256014.lua deleted 100644 → 0
          View file @ 792af0a8
          --星読みの魔術師－ホロスコープ・マジシャン
          local s,id,o=GetID()
          function s.initial_effect(c)
          --pendulum summon
          aux.EnablePendulumAttribute(c)
          --Negate
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          e1:SetCode(EVENT_CHAIN_SOLVING)
          e1:SetRange(LOCATION_PZONE)
          e1:SetCondition(s.negcon)
          e1:SetOperation(s.negop)
          c:RegisterEffect(e1)
          --spsummon1
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,0))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_HAND)
          e2:SetCountLimit(1,id)
          e2:SetCost(s.spcost)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          --search
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,1))
          e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
          e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e3:SetCode(EVENT_SPSUMMON_SUCCESS)
          e3:SetProperty(EFFECT_FLAG_DELAY)
          e3:SetCountLimit(1,id+o)
          e3:SetTarget(s.thtg)
          e3:SetOperation(s.thop)
          c:RegisterEffect(e3)
          --destroy
          local e4=Effect.CreateEffect(c)
          e4:SetDescription(aux.Stringid(id,2))
          e4:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND)
          e4:SetType(EFFECT_TYPE_IGNITION)
          e4:SetRange(LOCATION_MZONE)
          e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e4:SetCountLimit(1,id+o*2)
          e4:SetTarget(s.destg)
          e4:SetOperation(s.desop)
          c:RegisterEffect(e4)
          end
          function s.cfilter(c)
          return c:IsFaceup() and (c:IsSetCard(0x99)
          or c:IsSetCard(0x98) and c:IsType(TYPE_PENDULUM))
          end
          function s.negcon(e,tp,eg,ep,ev,re,r,rp)
          return rp==1-tp and Duel.GetFlagEffect(tp,id)==0
          and re:IsActiveType(TYPE_SPELL)
          and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
          and Duel.IsChainDisablable(ev) and not Duel.IsChainDisabled(ev)
          end
          function s.negop(e,tp,eg,ep,ev,re,r,rp)
          if Duel.GetFlagEffect(tp,id)==0
          and Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(id,4)) then
          Duel.Hint(HINT_CARD,0,id)
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
          if Duel.NegateEffect(ev) then
          Duel.BreakEffect()
          Duel.Destroy(e:GetHandler(),REASON_EFFECT)
          end
          end
          end
          function s.cfilter2(c)
          return c:IsType(TYPE_MONSTER) and (c:IsSetCard(0x99,0x9f)
          or c:IsSetCard(0x98) and c:IsType(TYPE_PENDULUM)) and c:IsDiscardable()
          end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter2,tp,LOCATION_HAND,0,1,e:GetHandler()) end
          Duel.DiscardHand(tp,s.cfilter2,1,1,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 c:IsRelateToChain() then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          function s.thfilter(c)
          return c:IsAttack(2500) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,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.thfilter,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.desfilter(c)
          return c:IsFaceup() and (c:GetOriginalType()&(TYPE_PENDULUM|TYPE_MONSTER)==TYPE_PENDULUM|TYPE_MONSTER)
          end
          function s.thfilter2(c)
          return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
          end
          function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return s.desfilter(chkc) and chkc:IsControler(tp) and chkc:IsOnField() end
          if chk==0 then return Duel.IsExistingTarget(s.desfilter,tp,LOCATION_ONFIELD,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local g=Duel.SelectTarget(tp,s.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
          end
          function s.desop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() and Duel.Destroy(tc,REASON_EFFECT)~=0
          and Duel.IsExistingMatchingCard(s.thfilter2,tp,LOCATION_EXTRA,0,1,nil)
          and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter2,tp,LOCATION_EXTRA,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.BreakEffect()
          Duel.SendtoHand(g,tp,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          end
          script/c100256015.lua deleted 100644 → 0
          View file @ 792af0a8
          --星霜の魔術師－アストログラフ・マジシャン
          local s,id,o=GetID()
          function s.initial_effect(c)
          --pendulum
          aux.EnablePendulumAttribute(c)
          --place
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_DESTROY)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_PZONE)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.ptg)
          e1:SetOperation(s.pop)
          c:RegisterEffect(e1)
          --special summon
          local custom_code=aux.RegisterMergedDelayedEvent_ToSingleCard(c,id,EVENT_DESTROYED)
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
          e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(custom_code)
          e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
          e2:SetRange(LOCATION_HAND)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.spcon1)
          e2:SetTarget(s.sptg1)
          e2:SetOperation(s.spop1)
          c:RegisterEffect(e2)
          --fusion summon
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
          e3:SetType(EFFECT_TYPE_QUICK_O)
          e3:SetCode(EVENT_FREE_CHAIN)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1,id+o*2)
          e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
          e3:SetCondition(s.fspcon)
          e3:SetTarget(s.fsptg)
          e3:SetOperation(s.fspop)
          c:RegisterEffect(e3)
          end
          function s.pfilter(c,tp)
          return c:IsType(TYPE_PENDULUM) and not c:IsCode(id) and c:GetLeftScale()==1
          and not c:IsForbidden() and c:CheckUniqueOnField(tp)
          end
          function s.ptg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return c:IsDestructable()
          and Duel.IsExistingMatchingCard(s.pfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,tp) end
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,c,1,0,0)
          end
          function s.pop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not c:IsRelateToChain() then return end
          if Duel.Destroy(c,REASON_EFFECT)==0 then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
          local g=Duel.SelectMatchingCard(tp,s.pfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,tp)
          local tc=g:GetFirst()
          if tc and Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)~=0 then
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_CANNOT_TRIGGER)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          tc:RegisterEffect(e1,true)
          end
          end
          function s.desfilter(c,tp)
          return c:IsPreviousControler(tp) and c:IsPreviousPosition(POS_FACEUP) and c:IsReason(REASON_BATTLE+REASON_EFFECT)
          and c:GetOriginalType()&TYPE_MONSTER~=0 and c:IsPreviousLocation(LOCATION_ONFIELD)
          end
          function s.spcon1(e,tp,eg,ep,ev,re,r,rp)
          return eg:IsExists(s.desfilter,1,nil,tp)
          end
          function s.spfilter1(c,e,tp)
          if not c:IsCanBeSpecialSummoned(e,0,tp,false,false) or not c:IsControler(tp) then return false end
          if c:IsLocation(LOCATION_EXTRA) then return c:IsFaceup() and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0 end
          if c:IsLocation(LOCATION_GRAVE) then return aux.NecroValleyFilter()(c) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
          return false
          end
          function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then
          return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          local desg=eg:Filter(s.desfilter,nil,tp)
          Duel.SetTargetCard(desg)
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
          end
          function s.spop1(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not c:IsRelateToChain() then return end
          if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 then return end
          local desg=Duel.GetTargetsRelateToChain():Filter(s.spfilter1,nil,e,tp)
          if #desg>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local sg=desg:Select(tp,1,1,nil)
          local tc=sg:GetFirst()
          if tc then
          Duel.BreakEffect()
          Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          end
          function s.fspcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.IsMainPhase()
          end
          function s.filter0(c,e)
          return c:IsLocation(LOCATION_MZONE) and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
          end
          function s.filter1(c,e)
          return c:IsFaceupEx() and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
          end
          function s.filter2(c,e,tp,m,f,chkf)
          return c:IsType(TYPE_FUSION) and c:IsRace(RACE_DRAGON) 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.fsptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return e:GetHandler():IsReleasable(REASON_EFFECT) end
          Duel.SetOperationInfo(0,CATEGORY_RELEASE,e:GetHandler(),1,0,0)
          end
          function s.fspop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not c:IsRelateToChain() or not c:IsReleasable(REASON_EFFECT) then return end
          Duel.Release(c,REASON_EFFECT)
          local chkf=tp
          local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter0,nil,e)
          local mg2=Duel.GetMatchingGroup(s.filter1,tp,LOCATION_EXTRA,0,nil,e)
          mg1:Merge(mg2)
          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)) and Duel.SelectYesNo(tp,aux.Stringid(id,4)) then
          Duel.BreakEffect()
          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 ce~=nil and not Duel.SelectYesNo(tp,ce:GetDescription())) then
          local mat=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
          tc:SetMaterial(mat)
          if mat:IsExists(Card.IsFacedown,1,nil) then
          local cg=mat:Filter(Card.IsFacedown,nil)
          Duel.ConfirmCards(1-tp,cg)
          end
          if mat:Filter(s.cfilter,nil):GetCount()>0 then
          local cg=mat:Filter(s.cfilter,nil)
          Duel.HintSelection(cg)
          end
          Duel.SendtoDeck(mat,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
          Duel.BreakEffect()
          Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
          elseif ce~=nil then
          local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
          local fop=ce:GetOperation()
          fop(ce,e,tp,tc,mat2)
          end
          tc:CompleteProcedure()
          end
          end
          function s.cfilter(c)
          return c:IsLocation(LOCATION_EXTRA+LOCATION_MZONE) and c:IsFaceupEx()
          end
          script/c100256016.lua deleted 100644 → 0
          View file @ 792af0a8
          --デコード・トーカー・インテグレーション
          local s,id,o=GetID()
          function s.initial_effect(c)
          --link summon
          aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2)
          c:EnableReviveLimit()
          --atk
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_UPDATE_ATTACK)
          e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCondition(s.atkcon)
          e1:SetValue(s.atkval)
          c:RegisterEffect(e1)
          --cannot target
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCondition(s.atkcon)
          e2:SetValue(aux.tgoval)
          c:RegisterEffect(e2)
          --tograve
          local e3=Effect.CreateEffect(c)
          e3:SetCategory(CATEGORY_TOGRAVE)
          e3:SetType(EFFECT_TYPE_QUICK_O)
          e3:SetCode(EVENT_FREE_CHAIN)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1,id)
          e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e3:SetCost(s.tgcost)
          e3:SetTarget(s.tgtg)
          e3:SetOperation(s.tgop)
          c:RegisterEffect(e3)
          end
          function s.atkcon(e)
          return e:GetHandler():GetSequence()>4
          end
          function s.atkfilter(c)
          return c:IsFaceupEx() and c:IsType(TYPE_LINK)
          end
          function s.atkval(e,c)
          return Duel.GetMatchingGroupCount(s.atkfilter,e:GetHandlerPlayer(),LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,e:GetHandler())*500
          end
          function s.cfilter(c,g)
          return g:IsContains(c) and not c:IsStatus(STATUS_BATTLE_DESTROYED)
          end
          function s.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local lg=e:GetHandler():GetLinkedGroup()
          if chk==0 then return Duel.CheckReleaseGroup(tp,s.cfilter,1,nil,lg) end
          local g=Duel.SelectReleaseGroup(tp,s.cfilter,1,1,nil,lg)
          Duel.Release(g,REASON_COST)
          end
          function s.tgfilter(c)
          return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_CYBERSE) and c:IsAbleToGrave()
          end
          function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_EXTRA,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_EXTRA)
          end
          function s.tgop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_EXTRA,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SendtoGrave(g,REASON_EFFECT)
          end
          if not c:IsRelateToChain() then return end
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
          e1:SetValue(1)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          c:RegisterEffect(e1)
          end
          script/c100256017.lua deleted 100644 → 0
          View file @ 792af0a8
          --サイバース・コード・マジシャン
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,34767865)
          c:EnableReviveLimit()
          --hand link
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e1:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
          e1:SetRange(LOCATION_HAND)
          e1:SetCountLimit(1,id)
          e1:SetValue(s.matval)
          c:RegisterEffect(e1)
          --To grave
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_ACTIVATE_CONDITION)
          e2:SetCode(EVENT_TO_GRAVE)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.tgcon)
          e2:SetTarget(s.tgtg)
          e2:SetOperation(s.tgop)
          c:RegisterEffect(e2)
          end
          function s.mfilter(c,tp)
          return c:IsLocation(LOCATION_MZONE) and c:IsType(TYPE_LINK) and c:IsControler(tp)
          end
          function s.exmfilter(c)
          return c:IsLocation(LOCATION_HAND) and c:IsCode(id)
          end
          function s.matval(e,lc,mg,c,tp)
          if not lc:IsRace(RACE_CYBERSE) then return false,nil end
          return true,not mg or mg:IsExists(s.mfilter,1,nil,tp) and not mg:IsExists(s.exmfilter,1,nil)
          end
          function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          e:SetLabel(0)
          if c:IsLocation(LOCATION_GRAVE) and c:IsPreviousLocation(LOCATION_ONFIELD+LOCATION_HAND) then
          if c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_RITUAL) then
          e:SetLabel(1)
          c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD+RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,2))
          end
          return true
          else
          return false
          end
          end
          function s.tgfilter(c,e,tp,label)
          local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
          return c:IsRace(RACE_CYBERSE) and (c:IsAbleToGrave()
          or label>0 and ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))
          end
          function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
          local label=e:GetLabel()
          if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil,e,tp,label) end
          if label>0 then
          e:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
          else
          e:SetCategory(CATEGORY_TOGRAVE)
          Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
          end
          end
          function s.tgop(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,0,1,1,nil,e,tp,e:GetLabel())
          local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
          local tc=g:GetFirst()
          if tc then
          local spchk=e:GetLabel()>0 and ft>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
          if tc:IsAbleToGrave() and (not spchk or Duel.SelectOption(tp,1191,1152)==0) then
          Duel.SendtoGrave(tc,REASON_EFFECT)
          elseif spchk then
          Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return not c:IsRace(RACE_CYBERSE)
          end
          script/c100256018.lua deleted 100644 → 0
          View file @ 792af0a8
          --サイバース・コントラクト・ウィッチ
          local s,id,o=GetID()
          function s.initial_effect(c)
          --link summon
          aux.AddLinkProcedure(c,nil,2,2,s.lcheck)
          c:EnableReviveLimit()
          --search
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
          e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e1:SetProperty(EFFECT_FLAG_DELAY)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.thcon)
          e1:SetCost(s.thcost)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          local e2=e1:Clone()
          e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCondition(s.thcon2)
          c:RegisterEffect(e2)
          --spsummon
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,1))
          e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e3:SetType(EFFECT_TYPE_IGNITION)
          e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1,id+o)
          e3:SetTarget(s.sptg)
          e3:SetOperation(s.spop)
          c:RegisterEffect(e3)
          end
          function s.lcheck(g)
          return aux.SameValueCheck(g,Card.GetLinkRace)
          end
          function s.thcon(e,tp,eg,ep,ev,re,r,rp)
          return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
          end
          function s.thcfilter(c,ec)
          if c:IsLocation(LOCATION_MZONE) then
          return ec:GetLinkedGroup():IsContains(c)
          else
          return bit.extract(ec:GetLinkedZone(c:GetPreviousControler()),c:GetPreviousSequence())~=0
          end
          end
          function s.thcon2(e,tp,eg,ep,ev,re,r,rp)
          return eg:IsExists(s.thcfilter,1,nil,e:GetHandler())
          end
          function s.cfilter(c)
          return c:IsFaceupEx() and c:IsType(TYPE_SPELL) and c:IsAbleToGraveAsCost()
          end
          function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
          Duel.SendtoGrave(g,REASON_COST)
          end
          function s.thfilter(c)
          return c:IsAllTypes(TYPE_RITUAL+TYPE_MONSTER) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,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.thfilter,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.cfilter2(c,e,tp,lg)
          return c:IsFaceup() and c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_RITUAL) and lg:IsContains(c)
          and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,c:GetRace(),c:GetType())
          end
          function s.spfilter(c,e,tp,rac,type)
          return c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_RITUAL)
          and c:GetType()&type&(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_RITUAL)==0
          and c:IsRace(rac)
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          local c=e:GetHandler()
          local lg=c:GetLinkedGroup()
          if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.cfilter2(chkc,e,tp,lg) end
          if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and Duel.IsExistingTarget(s.cfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,e,tp,lg) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
          local g=Duel.SelectTarget(tp,s.cfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,e,tp,lg)
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local tc=Duel.GetFirstTarget()
          if not tc:IsRelateToChain() or tc:IsFacedown() then return end
          if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local sc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp,tc:GetRace(),tc:GetType()):GetFirst()
          if sc then
          Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          script/c100256019.lua deleted 100644 → 0
          View file @ 792af0a8
          --黄泉天輪
          local s,id,o=GetID()
          function s.initial_effect(c)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_DESTROY+CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_DUEL+EFFECT_COUNT_CODE_OATH)
          e1:SetCondition(s.condition)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --Special Summon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
          e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
          e2:SetRange(LOCATION_SZONE)
          e2:SetCountLimit(1)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          end
          function s.condition(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)>=5 and Duel.GetMatchingGroupCount(Card.IsType,tp,0,LOCATION_GRAVE,nil,TYPE_MONSTER)>=5
          end
          function s.rmfilter(c,tp)
          return c:IsAbleToRemove(tp,POS_FACEDOWN) and c:IsType(TYPE_MONSTER)
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          local rm1=Duel.IsExistingMatchingCard(s.rmfilter,tp,LOCATION_DECK,0,1,nil,tp)
          local rm2=Duel.IsPlayerCanRemove(1-tp) and Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>0
          if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
          and (rm1 or rm2) end
          local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0)
          Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,PLAYER_ALL,LOCATION_DECK)
          end
          function s.spfilter1(c,e,tp)
          return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local p1=Duel.GetTurnPlayer()
          local p2=1-Duel.GetTurnPlayer()
          local g=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
          if Duel.Destroy(g,REASON_EFFECT)>0 then
          Duel.BreakEffect()
          local g1=Duel.GetMatchingGroup(Card.IsType,p1,LOCATION_DECK,0,nil,TYPE_MONSTER)
          local g2=Duel.GetMatchingGroup(Card.IsType,p2,LOCATION_DECK,0,nil,TYPE_MONSTER)
          local b1=#g1>0 and Duel.Remove(g1,POS_FACEDOWN,REASON_EFFECT,p1)>0
          local b2=#g2>0 and Duel.Remove(g2,POS_FACEDOWN,REASON_EFFECT,p2)>0
          if (b1 or b2) and Duel.GetLocationCount(p1,LOCATION_MZONE)>0
          and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(s.spfilter1),p1,LOCATION_GRAVE,0,1,nil,e,p1)
          and Duel.SelectYesNo(p1,aux.Stringid(id,2)) then
          Duel.Hint(HINT_SELECTMSG,p1,HINTMSG_SPSUMMON)
          local sg1=Duel.SelectMatchingCard(p1,aux.NecroValleyFilter(s.spfilter1),p1,LOCATION_GRAVE,0,1,1,nil,e,p1)
          Duel.HintSelection(sg1)
          local sc=sg1:GetFirst()
          Duel.BreakEffect()
          Duel.SpecialSummon(sc,0,p1,p1,false,false,POS_FACEUP)
          end
          end
          end
          function s.spfilter2(c,e,tp)
          return c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:IsType(TYPE_MONSTER)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,PLAYER_ALL,LOCATION_GRAVE)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local p1=Duel.GetTurnPlayer()
          local p2=1-Duel.GetTurnPlayer()
          local tc1=nil
          local tc2=nil
          if Duel.GetLocationCount(p1,LOCATION_MZONE)>0
          and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(s.spfilter2),p1,LOCATION_GRAVE,0,1,nil,e,p1)
          and Duel.SelectYesNo(p1,aux.Stringid(id,3)) then
          Duel.Hint(HINT_SELECTMSG,p1,HINTMSG_SPSUMMON)
          local sg1=Duel.SelectMatchingCard(p1,aux.NecroValleyFilter(s.spfilter2),p1,LOCATION_GRAVE,0,1,1,nil,e,p1)
          Duel.HintSelection(sg1)
          tc1=sg1:GetFirst()
          end
          if Duel.GetLocationCount(p2,LOCATION_MZONE)>0
          and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(s.spfilter2),p2,LOCATION_GRAVE,0,1,nil,e,p2)
          and Duel.SelectYesNo(p2,aux.Stringid(id,3)) then
          Duel.Hint(HINT_SELECTMSG,p2,HINTMSG_SPSUMMON)
          local sg2=Duel.SelectMatchingCard(p2,aux.NecroValleyFilter(s.spfilter2),p2,LOCATION_GRAVE,0,1,1,nil,e,p2)
          Duel.HintSelection(sg2)
          tc2=sg2:GetFirst()
          end
          if tc1 then
          if Duel.SpecialSummonStep(tc1,0,p1,p1,true,false,POS_FACEUP) then
          tc1:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,4))
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
          e1:SetValue(LOCATION_REMOVED)
          tc1:RegisterEffect(e1,true)
          end
          end
          if tc2 then
          if Duel.SpecialSummonStep(tc2,0,p2,p2,true,false,POS_FACEUP) then
          tc2:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,4))
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
          e1:SetValue(LOCATION_REMOVED)
          tc2:RegisterEffect(e1,true)
          end
          end
          Duel.SpecialSummonComplete()
          end
          script/c100256020.lua deleted 100644 → 0
          View file @ 792af0a8
          --オレイカルコスの魔封剣
          local s,id,o=GetID()
          function s.initial_effect(c)
          --equip
          aux.AddEquipSpellEffect(c,true,true,Card.IsFaceup,nil)
          --disable
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_EQUIP)
          e1:SetCode(EFFECT_DISABLE)
          c:RegisterEffect(e1)
          --add effect
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,0))
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_SZONE)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetCountLimit(1,id)
          e2:SetCondition(s.effcon)
          e2:SetTarget(s.efftg)
          e2:SetOperation(s.effop)
          c:RegisterEffect(e2)
          end
          function s.effcon(e)
          return Duel.IsExistingMatchingCard(aux.TRUE,e:GetHandlerPlayer(),LOCATION_FZONE,0,1,nil)
          end
          function s.cfilter(c)
          return c:IsFaceup() and c:IsType(TYPE_EFFECT)
          end
          function s.efftg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.cfilter(chkc) end
          if chk==0 then return Duel.IsExistingTarget(s.cfilter,tp,LOCATION_MZONE,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
          Duel.SelectTarget(tp,s.cfilter,tp,LOCATION_MZONE,0,1,1,nil)
          end
          function s.effop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() and tc:IsFaceup() and tc:IsType(TYPE_EFFECT)
          and not tc:IsImmuneToEffect(e) then
          tc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN+RESET_OPPO_TURN,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,1))
          local e2=Effect.CreateEffect(tc)
          e2:SetDescription(aux.Stringid(id,2))
          e2:SetCategory(CATEGORY_DESTROY)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_MZONE)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
          e2:SetCountLimit(1)
          e2:SetCost(s.descost)
          e2:SetTarget(s.destg)
          e2:SetOperation(s.desop)
          tc:RegisterEffect(e2)
          end
          end
          function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,e:GetHandler()) end
          Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
          Duel.DiscardHand(tp,Card.IsAbleToGraveAsCost,1,1,REASON_COST)
          end
          function s.desfilter(c)
          return c:IsFaceup()
          end
          function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsOnField() and s.desfilter(chkc) end
          if chk==0 then return Duel.IsExistingTarget(s.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local g=Duel.SelectTarget(tp,s.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
          end
          function s.desop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc and tc:IsRelateToChain() and tc:IsFaceup() then
          Duel.Destroy(tc,REASON_EFFECT)
          end
          end
          script/c100256021.lua deleted 100644 → 0
          View file @ 792af0a8
          --虹の橋 ビフレスト
          local s,id,o=GetID()
          function s.initial_effect(c)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetCost(s.cost)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          end
          function s.rmfilter(c)
          return c:IsLevelAbove(10) and c:IsAbleToRemoveAsCost()
          end
          function s.cfilter(c)
          return c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_LIGHT)
          end
          function s.gcheck(g)
          return g:IsExists(s.cfilter,1,nil)
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          local g=Duel.GetMatchingGroup(s.rmfilter,tp,LOCATION_EXTRA,0,nil)
          if chk==0 then return g:CheckSubGroup(s.gcheck,3,3) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local sg=g:SelectSubGroup(tp,s.gcheck,false,3,3)
          Duel.Remove(sg,POS_FACEUP,REASON_COST)
          end
          function s.thfilter(c)
          return c:IsType(TYPE_FIELD) and c:IsAbleToHand()
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          script/c100256022.lua deleted 100644 → 0
          View file @ 792af0a8
          --Sin Force
          local s,id,o=GetID()
          function s.initial_effect(c)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_EQUIP)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e1:SetCountLimit(1,id)
          e1:SetCost(s.cost)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --destroy
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_DESTROY)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.descon)
          e2:SetCost(s.descost)
          e2:SetTarget(s.destg)
          e2:SetOperation(s.desop)
          c:RegisterEffect(e2)
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          local c=e:GetHandler()
          local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_REMAIN_FIELD)
          e1:SetProperty(EFFECT_FLAG_OATH)
          e1:SetReset(RESET_CHAIN)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          e2:SetCode(EVENT_CHAIN_DISABLED)
          e2:SetOperation(s.tgop)
          e2:SetLabel(cid)
          e2:SetReset(RESET_CHAIN)
          Duel.RegisterEffect(e2,tp)
          end
          function s.tgop(e,tp,eg,ep,ev,re,r,rp)
          local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
          if cid~=e:GetLabel() then return end
          if e:GetOwner():IsRelateToChain(ev) then
          e:GetOwner():CancelToGrave(false)
          end
          end
          function s.filter(c)
          return c:IsFaceup()
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.filter(chkc) end
          if chk==0 then return e:IsCostChecked()
          and Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
          Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not c:IsLocation(LOCATION_SZONE) then return end
          if not c:IsRelateToChain() or c:IsStatus(STATUS_LEAVE_CONFIRMED) then return end
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() and tc:IsFaceup() then
          Duel.Equip(tp,c,tc)
          --immune
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_EQUIP)
          e1:SetCode(EFFECT_IMMUNE_EFFECT)
          e1:SetValue(s.efilter)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          c:RegisterEffect(e1)
          --search
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,2))
          e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SEARCH+CATEGORY_TOHAND)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_SZONE)
          e2:SetHintTiming(0,TIMING_DRAW_PHASE+TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e2:SetCountLimit(1)
          e2:SetTarget(s.thtg)
          e2:SetOperation(s.thop)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD)
          c:RegisterEffect(e2)
          --Equip limit
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_SINGLE)
          e3:SetCode(EFFECT_EQUIP_LIMIT)
          e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e3:SetValue(1)
          e3:SetReset(RESET_EVENT+RESETS_STANDARD)
          c:RegisterEffect(e3)
          else
          c:CancelToGrave(false)
          end
          end
          function s.efilter(e,te)
          return te:IsActiveType(TYPE_SPELL)
          end
          function s.thfilter(c)
          return c:IsSetCard(0x23) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not c:IsRelateToChain() or Duel.Destroy(c,REASON_EFFECT)==0 then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          function s.descon(e)
          return Duel.IsExistingMatchingCard(aux.TRUE,e:GetHandlerPlayer(),LOCATION_FZONE,LOCATION_FZONE,1,nil)
          end
          function s.cfilter(c)
          return c:IsSetCard(0x23) and c:IsAbleToRemoveAsCost()
          end
          function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return c:IsAbleToRemoveAsCost()
          and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_GRAVE,0,1,c) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_GRAVE,0,1,1,c)
          g:AddCard(c)
          Duel.Remove(g,POS_FACEUP,REASON_COST)
          end
          function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
          local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,LOCATION_MZONE)
          if chk==0 then return #g>0 end
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0)
          end
          function s.desop(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,LOCATION_MZONE)
          Duel.Destroy(g,REASON_EFFECT)
          end
          script/c100256023.lua deleted 100644 → 0
          View file @ 792af0a8
          --Sin Paradigm Shift
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,27564031)
          --activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON+CATEGORY_ATKCHANGE+CATEGORY_GRAVE_ACTION)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetHintTiming(TIMING_DRAW_PHASE,TIMING_DRAW_PHASE+TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --act in hand
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,2))
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
          e2:SetCost(s.cost)
          c:RegisterEffect(e2)
          end
          function s.thfilter(c,tp)
          return c:IsCode(27564031)
          and (c:IsAbleToHand() or (c:IsType(TYPE_FIELD) and not c:IsForbidden() and c:CheckUniqueOnField(tp)))
          end
          function s.spfilter(c,e,tp)
          return c:IsSetCard(0x23) and c:IsCanBeSpecialSummoned(e,0,tp,true,false,POS_FACEUP_DEFENSE) and c:IsType(TYPE_MONSTER)
          and (c:IsLocation(LOCATION_DECK) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0)
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp)
          and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil,e,tp) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
          end
          function s.atkfilter(c)
          return c:IsFaceup() and c:IsAttackAbove(2500)
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
          local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,tp):GetFirst()
          if tc then
          local res=false
          local tfchk=not tc:IsForbidden() and tc:CheckUniqueOnField(tp)
          if tc:IsAbleToHand() and (not tfchk or Duel.SelectOption(tp,1190,aux.Stringid(id,1))==0) then
          if Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then
          res=true
          Duel.ConfirmCards(1-tp,tc)
          end
          elseif tfchk then
          local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
          if fc then
          Duel.SendtoGrave(fc,REASON_RULE)
          Duel.BreakEffect()
          end
          res=Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
          end
          if res then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil,e,tp)
          if #g>0 then
          Duel.BreakEffect()
          if Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP_DEFENSE)~=0
          and Duel.IsExistingMatchingCard(s.atkfilter,tp,0,LOCATION_MZONE,1,nil) then
          local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
          if #sg>0 then
          Duel.BreakEffect()
          for mc in aux.Next(sg) do
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_UPDATE_ATTACK)
          e1:SetValue(-2500)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          mc:RegisterEffect(e1)
          end
          end
          end
          end
          end
          end
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
          end
          script/c100256024.lua deleted 100644 → 0
          View file @ 792af0a8
          --A BF－叢雲のクサナギ
          local s,id,o=GetID()
          function s.initial_effect(c)
          --synchro summon
          aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
          c:EnableReviveLimit()
          --add type
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetCondition(s.tncon)
          e1:SetOperation(s.tnop)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_MATERIAL_CHECK)
          e2:SetValue(s.valcheck)
          e2:SetLabelObject(e1)
          c:RegisterEffect(e2)
          --attackall
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_SINGLE)
          e3:SetCode(EFFECT_ATTACK_ALL)
          e3:SetValue(1)
          c:RegisterEffect(e3)
          --pierce
          local e4=Effect.CreateEffect(c)
          e4:SetType(EFFECT_TYPE_SINGLE)
          e4:SetCode(EFFECT_PIERCE)
          c:RegisterEffect(e4)
          end
          s.treat_itself_tuner=true
          function s.valcheck(e,c)
          local g=c:GetMaterial()
          local atk=0
          local sg=g:Filter(Card.IsType,nil,TYPE_SYNCHRO)
          if sg:GetCount()>0 then
          atk=sg:GetSum(Card.GetBaseAttack)
          end
          if g:IsExists(Card.IsSetCard,1,nil,0x33) then
          e:GetLabelObject():SetLabel(1,atk)
          else
          e:GetLabelObject():SetLabel(0,atk)
          end
          end
          function s.tncon(e,tp,eg,ep,ev,re,r,rp)
          return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
          end
          function s.tnop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local res,atk=e:GetLabel()
          if res==1 then
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetCode(EFFECT_ADD_TYPE)
          e1:SetValue(TYPE_TUNER)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          c:RegisterEffect(e1)
          end
          if atk~=0 then
          Duel.Hint(HINT_CARD,0,id)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_UPDATE_ATTACK)
          e2:SetValue(atk)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
          c:RegisterEffect(e2)
          end
          end
          script/c100256025.lua deleted 100644 → 0
          View file @ 792af0a8
          --大精霊機巧軍－ペンデュラム・ルーラー
          local s,id,o=GetID()
          function s.initial_effect(c)
          c:EnableReviveLimit()
          aux.AddFusionProcMix(c,true,true,s.matfilter1,s.matfilter2)
          aux.EnablePendulumAttribute(c,false)
          --Pendulum Effect
          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_PZONE)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.ptg)
          e1:SetOperation(s.pop)
          c:RegisterEffect(e1)
          --Indestructible
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
          e2:SetValue(1)
          c:RegisterEffect(e2)
          --Attack Restriction
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_FIELD)
          e3:SetCode(EFFECT_CANNOT_ATTACK)
          e3:SetRange(LOCATION_MZONE)
          e3:SetTargetRange(0,LOCATION_MZONE)
          e3:SetTarget(s.atktg)
          c:RegisterEffect(e3)
          --Destroy and Damage
          local e4=Effect.CreateEffect(c)
          e4:SetDescription(aux.Stringid(id,1))
          e4:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
          e4:SetType(EFFECT_TYPE_IGNITION)
          e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e4:SetRange(LOCATION_MZONE)
          e4:SetCountLimit(2,id+o)
          e4:SetCost(s.descost)
          e4:SetTarget(s.destg)
          e4:SetOperation(s.desop)
          c:RegisterEffect(e4)
          --To PZone
          local e5=Effect.CreateEffect(c)
          e5:SetDescription(aux.Stringid(id,2))
          e5:SetType(EFFECT_TYPE_IGNITION)
          e5:SetRange(LOCATION_MZONE)
          e5:SetCountLimit(1)
          e5:SetTarget(s.pztg)
          e5:SetOperation(s.pzop)
          c:RegisterEffect(e5)
          end
          function s.matfilter1(c)
          return c:IsType(TYPE_PENDULUM) and c:IsLevelAbove(7)
          end
          function s.matfilter2(c)
          return c:IsType(TYPE_PENDULUM)
          end
          function s.thfilter(c)
          return c:IsType(TYPE_PENDULUM) and c:IsLevel(7) and c:IsAbleToHand()
          and c:IsFaceupEx()
          end
          function s.ptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return e:GetHandler():IsAbleToExtra() end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
          end
          function s.pop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToChain() and Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0
          and c:IsLocation(LOCATION_EXTRA)
          and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil)
          and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil)
          if #g>0 then
          Duel.BreakEffect()
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          end
          function s.atktg(e,c)
          return not (c:IsType(TYPE_PENDULUM) and c:GetLevel()==0)
          end
          function s.desfilter(c,rc)
          return c:GetEquipTarget()~=rc and c~=rc
          end
          function s.costfilter(c,tp)
          return Duel.IsExistingTarget(s.desfilter,tp,0,LOCATION_ONFIELD,1,c,c)
          end
          function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.CheckReleaseGroup(tp,s.costfilter,1,nil,tp) end
          local g=Duel.SelectReleaseGroup(tp,s.costfilter,1,1,nil,tp)
          Duel.Release(g,REASON_COST)
          end
          function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
          if chk==0 then return Duel.IsExistingTarget(nil,tp,0,LOCATION_ONFIELD,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local g=Duel.SelectTarget(tp,nil,tp,0,LOCATION_ONFIELD,1,1,nil)
          Duel.SetTargetPlayer(1-tp)
          Duel.SetTargetParam(1600)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
          Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1600)
          end
          function s.desop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() and tc:IsOnField() and Duel.Destroy(tc,REASON_EFFECT)>0 then
          local p,dam=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
          if dam>0 then
          Duel.Damage(p,dam,REASON_EFFECT)
          end
          end
          end
          function s.pztg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
          and e:GetHandler():IsType(TYPE_PENDULUM) end
          end
          function s.pzop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToChain() then
          Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
          end
          end
          script/c100259001.lua deleted 100644 → 0
          View file @ 792af0a8
          --Pumpking the King of Grave Ghosts
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,97077563)
          --set
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SSET+CATEGORY_HANDES)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_HAND)
          e1:SetCountLimit(1,id)
          e1:SetCost(s.setcost)
          e1:SetTarget(s.settg)
          e1:SetOperation(s.setop)
          c:RegisterEffect(e1)
          --special summon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          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.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          end
          function s.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return not e:GetHandler():IsPublic() end
          end
          function s.setfilter(c)
          return c:IsCode(97077563) and c:IsSSetable()
          end
          function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil)
          and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil,REASON_DISCARD+REASON_EFFECT) end
          end
          function s.setop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
          local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.setfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
          local tc=g:GetFirst()
          if tc and Duel.SSet(tp,tc)~=0 then
          local dg=Duel.SelectMatchingCard(tp,Card.IsDiscardable,tp,LOCATION_HAND,0,1,1,nil,REASON_DISCARD+REASON_EFFECT)
          if dg:GetCount()>0 then
          Duel.ShuffleHand(tp)
          Duel.SendtoGrave(dg,REASON_EFFECT+REASON_DISCARD)
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetDescription(aux.Stringid(id,2))
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
          e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          end
          end
          function s.spfilter(c,e,tp)
          return c:IsLevel(6) and c:IsRace(RACE_ZOMBIE) and not c:IsAttack(1950) 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.GetLocationCount(tp,LOCATION_MZONE)>0
          and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
          if g:GetCount()>0 then
          Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return c:IsLocation(LOCATION_HAND+LOCATION_GRAVE) and not c:IsRace(RACE_ZOMBIE)
          end
          script/c100259002.lua deleted 100644 → 0
          View file @ 792af0a8
          --Army of the Haunted
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,97077563)
          --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+LOCATION_GRAVE)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.spcon)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --set
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SSET)
          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.settg)
          e2:SetOperation(s.setop)
          c:RegisterEffect(e2)
          end
          function s.cfilter(c)
          return c:IsCode(97077563) and c:IsFaceup()
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToChain() and aux.NecroValleyFilter()(c) then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          function s.setfilter(c)
          return c:IsCode(97077563) and c:IsSSetable()
          end
          function s.settg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and s.setfilter(chkc) end
          if chk==0 then return Duel.IsExistingTarget(s.setfilter,tp,LOCATION_GRAVE,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
          local g=Duel.SelectTarget(tp,s.setfilter,tp,LOCATION_GRAVE,0,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
          end
          function s.setop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() and aux.NecroValleyFilter()(tc) then
          Duel.SSet(tp,tc)
          end
          end
          script/c100259003.lua deleted 100644 → 0
          View file @ 792af0a8
          --Stare of the Snake Hair
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,97077563)
          --search
          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.cost)
          e1:SetTarget(s.target)
          e1:SetOperation(s.operation)
          c:RegisterEffect(e1)
          --disable
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_DISABLE)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_SPSUMMON_SUCCESS)
          e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
          e2:SetCountLimit(1,id+o)
          e2:SetTarget(s.distg)
          e2:SetOperation(s.disop)
          c:RegisterEffect(e2)
          end
          function s.cost(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:IsCode(97077563) or (aux.IsCodeListed(c,97077563) and c:IsType(TYPE_SPELL+TYPE_TRAP)))
          and c:IsAbleToHand()
          end
          function s.target(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.operation(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:IsAttackPos()
          end
          function s.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and s.tgfilter(chkc) end
          if chk==0 then return Duel.IsExistingTarget(s.tgfilter,tp,0,LOCATION_MZONE,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
          local g=Duel.SelectTarget(tp,s.tgfilter,tp,0,LOCATION_MZONE,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
          end
          function s.disop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() and tc:IsFaceup() then
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,2))
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_CANNOT_ATTACK)
          e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          Duel.NegateRelatedChain(tc,RESET_TURN_SET)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_DISABLE)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e2)
          local e3=e2:Clone()
          e3:SetCode(EFFECT_DISABLE_EFFECT)
          e3:SetValue(RESET_TURN_SET)
          tc:RegisterEffect(e3)
          if tc:IsType(TYPE_TRAPMONSTER) then
          local e4=e2:Clone()
          e4:SetCode(EFFECT_DISABLE_TRAPMONSTER)
          tc:RegisterEffect(e4)
          end
          Duel.AdjustInstantly()
          if not tc:IsImmuneToEffect(e) then
          local e5=Effect.CreateEffect(c)
          e5:SetType(EFFECT_TYPE_SINGLE)
          e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
          e5:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
          e5:SetRange(LOCATION_MZONE)
          e5:SetReset(RESET_EVENT+RESETS_STANDARD)
          e5:SetValue(1)
          tc:RegisterEffect(e5)
          local e6=e5:Clone()
          e6:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
          e6:SetValue(s.fuslimit)
          tc:RegisterEffect(e6)
          local e7=e5:Clone()
          e7:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
          tc:RegisterEffect(e7)
          local e8=e5:Clone()
          e8:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
          tc:RegisterEffect(e8)
          end
          end
          end
          function s.fuslimit(e,c,sumtype)
          return sumtype==SUMMON_TYPE_FUSION
          end
          script/c100259004.lua deleted 100644 → 0
          View file @ 792af0a8
          --Great Mammoth of the Netherworld
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,97077563)
          --destroy
          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+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_ACTIVATE_CONDITION)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.descon)
          e1:SetTarget(s.destg)
          e1:SetOperation(s.desop)
          c:RegisterEffect(e1)
          --get effect
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetType(EFFECT_TYPE_XMATERIAL)
          e2:SetCode(EFFECT_UPDATE_ATTACK)
          e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e2:SetRange(LOCATION_MZONE)
          e2:SetValue(1000)
          e2:SetCondition(s.gfcon)
          c:RegisterEffect(e2)
          end
          function s.cfilter(c)
          return c:IsFaceup() and ((c:IsRace(RACE_ZOMBIE) and c:IsType(TYPE_MONSTER) and not c:IsCode(id)) or c:IsCode(97077563))
          end
          function s.descon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
          end
          function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsOnField() end
          if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
          end
          function s.desop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() and tc:IsOnField() then
          Duel.Destroy(tc,REASON_EFFECT)
          end
          end
          function s.gfcon(e)
          return e:GetHandler():IsRace(RACE_ZOMBIE)
          end
          script/c100259005.lua deleted 100644 → 0
          View file @ 792af0a8
          --Pumpking the Great Ghost King
          local s,id,o=GetID()
          function s.initial_effect(c)
          --xyz summon
          aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_ZOMBIE),6,2)
          c:EnableReviveLimit()
          aux.AddCodeList(c,97077563)
          --cannot be target
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
          e1:SetRange(LOCATION_MZONE)
          e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
          e1:SetTargetRange(LOCATION_MZONE,0)
          e1:SetCondition(s.tgcon)
          e1:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_ZOMBIE))
          e1:SetValue(s.tgval)
          c:RegisterEffect(e1)
          --search
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_SPSUMMON_SUCCESS)
          e2:SetCountLimit(1,id)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetTarget(s.thtg)
          e2:SetOperation(s.thop)
          c:RegisterEffect(e2)
          --tohand
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_TOHAND)
          e3:SetType(EFFECT_TYPE_IGNITION)
          e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1,id+o)
          e3:SetCost(s.cost)
          e3:SetTarget(s.target)
          e3:SetOperation(s.operation)
          c:RegisterEffect(e3)
          end
          function s.indcfilter(c)
          return c:IsFaceup() and c:IsCode(97077563)
          end
          function s.tgcon(e)
          return Duel.IsExistingMatchingCard(s.indcfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil)
          end
          function s.tgval(e,re,rp)
          return rp==1-e:GetHandlerPlayer() and re:IsActiveType(TYPE_MONSTER)
          end
          function s.thfilter(c)
          return aux.IsCodeOrListed(c,97077563) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,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.thfilter,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.filter(c)
          return c:IsAbleToHand()
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_COST) end
          c:RemoveOverlayCard(tp,1,1,REASON_COST)
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and s.filter(chkc) end
          if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
          local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,2,nil)
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,#g,0,0)
          end
          function s.operation(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetTargetsRelateToChain():Filter(Card.IsOnField,nil)
          if g:GetCount()>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          end
          end
          script/c100259006.lua deleted 100644 → 0
          View file @ 792af0a8
          --The Undying Legion
          local s,id,o=GetID()
          function s.initial_effect(c)
          --xyz summon
          aux.AddXyzProcedure(c,nil,7,2,s.ovfilter,aux.Stringid(id,0),2,s.xyzop)
          c:EnableReviveLimit()
          --material
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,1))
          e1:SetType(EFFECT_TYPE_QUICK_O)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e1:SetRange(LOCATION_MZONE)
          e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
          e1:SetCountLimit(1,id)
          e1:SetCost(s.cost)
          e1:SetCondition(s.con)
          e1:SetTarget(s.target)
          e1:SetOperation(s.operation)
          c:RegisterEffect(e1)
          end
          function s.ovfilter(c)
          return c:IsFaceup() and c:IsRank(6) and c:IsRace(RACE_ZOMBIE)
          end
          function s.xyzop(e,tp,chk)
          if chk==0 then return Duel.GetFlagEffect(tp,id)==0 end
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          local g=c:GetOverlayGroup()
          local minct=2
          if not g:IsExists(aux.NOT(Card.IsType),1,nil,TYPE_XYZ) then
          minct=1
          end
          if chk==0 then return c:CheckRemoveOverlayCard(tp,minct,REASON_COST) end
          c:RemoveOverlayCard(tp,minct,2,REASON_COST)
          end
          function s.filter(c)
          return (c:IsPosition(POS_FACEUP_ATTACK) or c:IsLocation(LOCATION_GRAVE)) and c:IsType(TYPE_MONSTER) and c:IsCanOverlay()
          end
          function s.con(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetTurnPlayer()~=tp and Duel.IsMainPhase()
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsControler(1-tp) and s.filter(chkc) end
          if chk==0 then return Duel.IsExistingTarget(s.filter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
          local g=aux.SelectTargetFromFieldFirst(tp,s.filter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,1,nil)
          if g:IsExists(Card.IsLocation,1,nil,LOCATION_GRAVE) then
          Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
          end
          end
          function s.operation(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local tc=Duel.GetFirstTarget()
          if c:IsRelateToChain() and tc:IsRelateToChain()
          and not tc:IsImmuneToEffect(e) and tc:IsType(TYPE_MONSTER) and tc:IsCanOverlay() and aux.NecroValleyFilter()(tc) then
          local og=tc:GetOverlayGroup()
          if og:GetCount()>0 then
          Duel.SendtoGrave(og,REASON_RULE)
          end
          Duel.Overlay(c,Group.FromCards(tc))
          end
          end
          script/c100259007.lua deleted 100644 → 0
          View file @ 792af0a8
          --Call of the Forgotten
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,97077563)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SSET)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --tg
          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:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
          e2:SetCode(EVENT_CHAINING)
          e2:SetRange(LOCATION_FZONE)
          e2:SetCountLimit(1)
          e2:SetCondition(s.tgcon)
          e2:SetTarget(s.tgtg)
          e2:SetOperation(s.tgop)
          c:RegisterEffect(e2)
          end
          function s.setfilter(c)
          return c:IsCode(97077563) and c:IsSSetable()
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.setfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,nil)
          local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
          if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,2)) and ft>0 then
          local ct=math.min(3,ft)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
          local sg=g:Select(tp,1,ct,nil)
          Duel.SSet(tp,sg)
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetDescription(aux.Stringid(id,3))
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
          e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,1)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.slim)
          Duel.RegisterEffect(e1,tp)
          end
          end
          function s.slim(e,c,sp,st,spos,tp,se)
          return not c:IsLocation(LOCATION_GRAVE) and not c:IsRace(RACE_ZOMBIE)
          end
          function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
          return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsCode(97077563) and rp==tp
          end
          function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) end
          if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToGrave,tp,0,LOCATION_MZONE,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g=Duel.SelectTarget(tp,Card.IsAbleToGrave,tp,0,LOCATION_MZONE,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:IsRelateToChain() then
          Duel.SendtoGrave(tc,REASON_EFFECT)
          end
          end
          script/c100259008.lua deleted 100644 → 0
          View file @ 792af0a8
          --Ectoplasmic Fortification
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,97077563,100259007)
          --activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_ATKCHANGE+CATEGORY_DRAW)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          end
          function s.thfilter(c)
          return (c:IsCode(100259007) or (c:IsRace(RACE_ZOMBIE) and c:IsLevel(6))) and c:IsAbleToHand()
          end
          function s.adfilter(c)
          return c:IsFaceup() and c:IsRace(RACE_ZOMBIE)
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          local b1=Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil)
          and (not Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) or not e:IsCostChecked())
          local b2=Duel.IsExistingMatchingCard(s.adfilter,tp,LOCATION_MZONE,0,1,nil)
          if chk==0 then return b1 or b2 end
          local op=0
          if b1 or b2 then
          op=aux.SelectFromOptions(tp,
          {b1,aux.Stringid(id,1),1},
          {b2,aux.Stringid(id,2),2})
          end
          e:SetLabel(op)
          if op==1 then
          if e:IsCostChecked() then
          e:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
          end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          elseif op==2 then
          if e:IsCostChecked() then
          e:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DRAW)
          end
          end
          end
          function s.drfilter(c)
          return c:IsFaceup() and c:IsCode(97077563)
          end
          function s.atkupfilter(c)
          return not c:IsHasEffect(EFFECT_REVERSE_UPDATE)
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          if e:GetLabel()==1 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          elseif e:GetLabel()==2 then
          local g=Duel.GetMatchingGroup(s.adfilter,tp,LOCATION_MZONE,0,nil)
          if #g>0 then
          local tc=g:GetFirst()
          while tc do
          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)
          tc=g:GetNext()
          end
          if g:IsExists(s.atkupfilter,1,nil) then
          local dct=Duel.GetMatchingGroupCount(s.drfilter,tp,LOCATION_ONFIELD,0,nil)
          if dct>0 and Duel.IsPlayerCanDraw(tp,dct) and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
          Duel.BreakEffect()
          Duel.Draw(tp,dct,REASON_EFFECT)
          end
          end
          end
          end
          end
          script/c100259009.lua deleted 100644 → 0
          View file @ 792af0a8
          --Vortex of Time
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,97077563)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_COIN)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_CHAINING)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetCondition(s.condition)
          e1:SetTarget(s.chtg)
          e1:SetOperation(s.chop)
          c:RegisterEffect(e1)
          end
          function s.condition(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD,0,nil)
          local check=g:IsExists(Card.IsRace,1,nil,RACE_ZOMBIE) and g:IsExists(Card.IsCode,1,nil,97077563)
          return rp==1-tp and check and
          (re:IsActiveType(TYPE_MONSTER) or re:GetActiveType()==TYPE_SPELL or re:IsActiveType(TYPE_QUICKPLAY))
          end
          function s.chtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_MZONE,0,1,nil,tp,REASON_RULE)
          or Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,nil,1-tp,REASON_RULE)
          end
          end
          function s.chop(e,tp,eg,ep,ev,re,r,rp)
          local res=Duel.TossCoin(1-tp,1)
          local g=Group.CreateGroup()
          Duel.ChangeTargetCard(ev,g)
          if res==1 then
          Duel.ChangeChainOperation(ev,s.repop1)
          else
          Duel.ChangeChainOperation(ev,s.repop2)
          end
          end
          function s.repop1(e,tp,eg,ep,ev,re,r,rp)
          local op=1-tp
          Duel.Hint(HINT_SELECTMSG,op,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(op,Card.IsAbleToRemove,op,LOCATION_MZONE,0,1,1,nil,op,REASON_RULE)
          Duel.HintSelection(g)
          Duel.Remove(g,POS_FACEUP,REASON_RULE,op)
          end
          function s.repop2(e,tp,eg,ep,ev,re,r,rp)
          local op=tp
          local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_MZONE,0,nil,op,REASON_RULE)
          Duel.Remove(g,POS_FACEUP,REASON_RULE)
          end
          script/c100259010.lua deleted 100644 → 0
          View file @ 792af0a8
          --Deadly Zombie Breath
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,97077563)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TOGRAVE)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetHintTiming(TIMING_END_PHASE,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.condition)
          e1:SetTarget(s.target)
          e1:SetOperation(s.operation)
          c:RegisterEffect(e1)
          --tg
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_TOGRAVE)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
          e2:SetCountLimit(1,id)
          e2:SetCost(aux.bfgcost)
          e2:SetCondition(s.condition2)
          e2:SetTarget(s.tgtg)
          e2:SetOperation(s.tgop)
          c:RegisterEffect(e2)
          end
          function s.condition(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD,0,nil)
          return g:IsExists(Card.IsRace,1,nil,RACE_ZOMBIE) and g:IsExists(Card.IsCode,1,nil,97077563)
          end
          function s.tgfilter1(c)
          return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and s.tgfilter1(chkc) end
          if chk==0 then return Duel.IsExistingTarget(s.tgfilter1,tp,0,LOCATION_MZONE,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g=Duel.SelectTarget(tp,s.tgfilter1,tp,0,LOCATION_MZONE,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
          end
          function s.operation(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() then
          Duel.SendtoGrave(tc,REASON_EFFECT)
          end
          end
          function s.condition2(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
          return g:IsExists(Card.IsRace,1,nil,RACE_ZOMBIE)
          end
          function s.tgfilter(c,tp)
          return c:IsFaceup() and c:IsAbleToGrave() and c:IsControler(tp)
          end
          function s.gcheck(g,tp)
          return aux.gffcheck(g,s.tgfilter,tp,s.tgfilter,1-tp)
          end
          function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return false end
          local g=Duel.GetMatchingGroup(aux.AND(Card.IsFaceup,Card.IsAbleToGrave,Card.IsCanBeEffectTarget),tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
          if chk==0 then return g:CheckSubGroup(s.gcheck,2,2,tp) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local tg=g:SelectSubGroup(tp,s.gcheck,false,2,2,tp)
          Duel.SetTargetCard(tg)
          Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,tg,tg:GetCount(),0,0)
          end
          function s.tgop(e,tp,eg,ep,ev,re,r,rp)
          local tg=Duel.GetTargetsRelateToChain()
          if tg:GetCount()>0 then
          Duel.SendtoGrave(tg,REASON_EFFECT)
          end
          end
          script/c98127546.lua deleted 100644 → 0
          View file @ 792af0a8
          --閉ザサレシ世界ノ冥神
          function c98127546.initial_effect(c)
          --link summon
          aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),4)
          c:EnableReviveLimit()
          --extra material
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
          e1:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
          e1:SetRange(LOCATION_EXTRA)
          e1:SetTargetRange(0,LOCATION_MZONE)
          e1:SetValue(c98127546.matval)
          c:RegisterEffect(e1)
          --disable
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(98127546,0))
          e2:SetCategory(CATEGORY_DISABLE)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetCode(EVENT_SPSUMMON_SUCCESS)
          e2:SetCondition(c98127546.discon)
          e2:SetTarget(c98127546.distg)
          e2:SetOperation(c98127546.disop)
          c:RegisterEffect(e2)
          --immune
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_SINGLE)
          e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCode(EFFECT_IMMUNE_EFFECT)
          e3:SetCondition(c98127546.immcon)
          e3:SetValue(c98127546.efilter)
          c:RegisterEffect(e3)
          --negate
          local e4=Effect.CreateEffect(c)
          e4:SetDescription(aux.Stringid(98127546,1))
          e4:SetCategory(CATEGORY_NEGATE)
          e4:SetType(EFFECT_TYPE_QUICK_O)
          e4:SetCode(EVENT_CHAINING)
          e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
          e4:SetRange(LOCATION_MZONE)
          e4:SetCountLimit(1)
          e4:SetCondition(c98127546.negcon)
          e4:SetTarget(c98127546.negtg)
          e4:SetOperation(c98127546.negop)
          c:RegisterEffect(e4)
          end
          function c98127546.is_external_exmat(c,lc,mg,tp)
          local le={c:IsHasEffect(EFFECT_EXTRA_LINK_MATERIAL,tp)}
          for _,te in ipairs(le) do
          local h=te:GetHandler()
          -- external = any ex-mat effect not created by 閉ザサレシ世界ノ冥神 herself
          if h and not h:IsCode(98127546) then
          local f=te:GetValue()
          if f then
          local related,valid=f(te,lc,mg,c,tp)
          if related and valid~=false then
          return true
          end
          end
          end
          end
          return false
          end
          function c98127546.is_goddess_opp(mc,lc,mg,tp)
          return mc:IsControler(1-tp) and not c98127546.is_external_exmat(mc,lc,mg,tp)
          end
          function c98127546.matval(e,lc,mg,c,tp)
          -- Only while Link Summoning this card
          if e:GetHandler()~=lc then return false,nil end
          -- 閉ザサレシ世界ノ冥神 only concerns opponent monsters
          if not c:IsControler(1-tp) then return false,nil end
          -- related=true
          if not mg then
          return true,true
          end
          -- If this opponent monster is already permitted by some OTHER ex-mat effect,
          -- 閉ザサレシ世界ノ冥神 should not block it and should not count it as "her 1".
          if c98127546.is_external_exmat(c,lc,mg,tp) then
          return true,true
          end
          -- Otherwise this would be "via 閉ザサレシ世界ノ冥神": allow at most one such opponent monster.
          if mg:IsExists(c98127546.is_goddess_opp,1,c,lc,mg,tp) then
          return true,false
          end
          return true,true
          end
          function c98127546.discon(e,tp,eg,ep,ev,re,r,rp)
          return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
          end
          function c98127546.distg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,1,nil) end
          local g=Duel.GetMatchingGroup(aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,nil)
          Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,g:GetCount(),0,0)
          end
          function c98127546.disop(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetMatchingGroup(aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,nil)
          local tc=g:GetFirst()
          while tc do
          Duel.NegateRelatedChain(tc,RESET_TURN_SET)
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_DISABLE)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          local e2=Effect.CreateEffect(e:GetHandler())
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_DISABLE_EFFECT)
          e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD)
          e2:SetValue(RESET_TURN_SET)
          tc:RegisterEffect(e2)
          tc=g:GetNext()
          end
          end
          function c98127546.immcon(e)
          return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
          end
          function c98127546.efilter(e,te)
          if te:GetOwnerPlayer()==e:GetHandlerPlayer() or not te:IsActivated() then return false end
          if not te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return true end
          local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
          return not g or not g:IsContains(e:GetHandler())
          end
          function c98127546.cfilter(c)
          return c:IsLocation(LOCATION_GRAVE) and c:IsType(TYPE_MONSTER)
          end
          function c98127546.negcon(e,tp,eg,ep,ev,re,r,rp)
          local ex,g,gc,dp,dv=Duel.GetOperationInfo(ev,CATEGORY_SPECIAL_SUMMON)
          return Duel.IsChainNegatable(ev) and rp==1-tp
          and (ex and (dv&LOCATION_GRAVE==LOCATION_GRAVE or g and g:IsExists(c98127546.cfilter,1,nil)) or re:IsHasCategory(CATEGORY_GRAVE_SPSUMMON))
          end
          function c98127546.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
          end
          function c98127546.negop(e,tp,eg,ep,ev,re,r,rp)
          Duel.NegateActivation(ev)
          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