Skip to content

Y
ygopro-222DIY-cards
Commit f232ab6b authored by 聖園ミカ's avatar 聖園ミカ 🐟
Browse files
Options

reupdate

parent f19ba0d6
Pipeline #28895 canceled with stages
      in 3 minutes and 20 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 7 additions and 4216 deletions
      expansions/FiNALE.cdb
      View file @ f232ab6b
      No preview for this file type
      expansions/script/c12400091.lua
      View file @ f232ab6b
      ......@@ -72,7 +72,7 @@ function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      local ss=Duel.GetFlagEffect(tp,id)
      if tc:IsRelateToEffect(e) and tc:IsFaceup() then
      ......@@ -92,6 +92,9 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
      e4:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e4)
      end
      end
      if e:GetHandler():IsRelateToEffect(e) then
      Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_EFFECT)
      end
      Duel.RegisterFlagEffect(tp,id,0,0,0)
      end
      ......
      expansions/script/c16114201.lua
      View file @ f232ab6b
      ......@@ -65,7 +65,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      if e:GetLabel()==1 then Duel.RegisterFlagEffect(tp,15248873,RESET_CHAIN,0,1) end
      local b2=te:IsActivatable(tp,true,true)
      Duel.ResetFlagEffect(tp,15248873)
      if b1 and (not b2 or Duel.SelectOption(tp,1190,1150)==0) then
      if b1 and (not b2 or Duel.SelectOption(tp,1153,1150)==0) then
      Duel.SSet(tp,tc)
      else
      local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
      ......
      expansions/script/c16114263.lua
      View file @ f232ab6b
      --白银仙精 小雪
      xpcall(function() dofile("expansions/script/c16199990.lua") end,function() dofile("script/c16199990.lua") end)
      local m,cm=rk.set(16114258)
      local m,cm=rk.set(16114263)
      function cm.initial_effect(c)
      --summon with no tribute
      local e0=Effect.CreateEffect(c)
      ......
      expansions/script/c16114265.lua
      View file @ f232ab6b
      ......@@ -24,7 +24,7 @@ function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.SelectMatchingCard(tp,cm.tgcheck,tp,LOCATION_DECK,0,1,1,nil,tp)
      Duel.SendtoGrave(g,REASON_COST)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.tfcheck,tp,LOCATION_DECK,0,1,nil,tp) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      ......
      expansions/script/c60002149.lua deleted 100644 → 0
      View file @ f19ba0d6
      --创始生命的世界树
      local m=60002149
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --Evolve
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetCategory(CATEGORY_TOKEN+CATEGORY_SEARCH+CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetTarget(cm.sptg)
      e3:SetOperation(cm.spop)
      c:RegisterEffect(e3)
      --attackup
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      end
      function cm.filter(c)
      return c:IsCode(m+1) and c:IsAbleToHand()
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      if Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      end
      end
      \ No newline at end of file
      expansions/script/c60002150.lua deleted 100644 → 0
      View file @ f19ba0d6
      --森罗万象的爱
      local m=60002150
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --recover
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCategory(CATEGORY_RECOVER+CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW+CATEGORY_TOKEN)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(cm.rectg)
      e1:SetOperation(cm.recop)
      c:RegisterEffect(e1)
      end
      function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(500)
      Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,500)
      end
      function cm.thfilter(c,e,tp)
      return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.recop(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Recover(p,d,REASON_EFFECT)
      Duel.RegisterFlagEffect(tp,60002150,RESET_PHASE+PHASE_END,0,1)
      local x=Duel.GetFlagEffect(tp,60002150)
      if math.floor(x/3)==x/3 then ---0
      local c=e:GetHandler()
      local g1=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      local g2=Duel.GetMatchingGroupCount(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      for i=1,g2 do
      local gm=g1:GetFirst()
      if Card.IsCanAddCounter(gm,0x624,1) and gm:IsFaceup() then
      gm:AddCounter(0x624,1)
      end
      g1:RemoveCard(g1:GetFirst())
      end
      elseif math.floor((x/3)+0.5)==math.floor(x/3)+1 then ---2
      Duel.Draw(tp,1,REASON_EFFECT)
      else ---1
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c60002151.lua deleted 100644 → 0
      View file @ f19ba0d6
      --神铁锻造师 蕾妮
      local m=60002151
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableReviveLimit()
      c:EnableCounterPermit(0x624)
      aux.AddLinkProcedure(c,cm.matfilter,2)
      --search
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetCategory(CATEGORY_TOKEN+CATEGORY_DRAW)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e3:SetCountLimit(1,m)
      e3:SetTarget(cm.thtg)
      e3:SetOperation(cm.thop)
      c:RegisterEffect(e3)
      --Evolve
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetCategory(CATEGORY_TOKEN)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCost(cm.spcost)
      e3:SetTarget(cm.sptg)
      e3:SetOperation(cm.spop)
      c:RegisterEffect(e3)
      --attackup
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      end
      function cm.matfilter(c)
      return c:GetCounter(0x624)>0
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x624)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local sr=Duel.GetFlagEffect(tp,60002148)
      if e:GetHandler():IsRelateToEffect(e) and sr~=0 then
      e:GetHandler():AddCounter(0x624,sr)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      if sr>=5 and Duel.IsPlayerCanDraw(tp,1) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.filter(c)
      return c:IsCanHaveCounter(0x624) and Duel.IsCanAddCounter(tp,0x624,1,c) and c:IsFaceup()
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      if Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_ONFIELD,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COUNTER)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_ONFIELD,0,1,1,nil)
      if g:GetCount()>0 then
      g:GetFirst():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      end
      end
      expansions/script/c60002153.lua deleted 100644 → 0
      View file @ f19ba0d6
      --超越音速
      local m=60002153
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.operation)
      c:RegisterEffect(e1)
      end
      function cm.filter(c)
      return c:IsCanHaveCounter(0x624) and Duel.IsCanAddCounter(tp,0x624,1,c) and c:IsAbleToHand()
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.cfilter(c)
      return c:IsCode(m) and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then
      Duel.ConfirmCards(1-tp,g)
      local ct=Duel.GetMatchingGroupCount(cm.cfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil)
      if ct>0 and Duel.GetMatchingGroupCount(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,0,nil,0x624,1)>0
      and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      while ct>0 do
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COUNTER)
      local tc=Duel.SelectMatchingCard(tp,Card.IsCanAddCounter,tp,LOCATION_ONFIELD,0,1,1,nil,0x624,1):GetFirst()
      if not tc then break end
      tc:AddCounter(0x624,1)
      ct=ct-1
      end
      end
      end
      end
      expansions/script/c60002155.lua deleted 100644 → 0
      View file @ f19ba0d6
      --盛放舞者
      local m=60002155
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --search
      local e5=Effect.CreateEffect(c)
      e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e5:SetCode(EVENT_LEAVE_FIELD_P)
      e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e5:SetOperation(cm.regop)
      c:RegisterEffect(e5)
      local e7=Effect.CreateEffect(c)
      e7:SetDescription(aux.Stringid(28929131,2))
      e7:SetCategory(CATEGORY_DRAW)
      e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e7:SetProperty(EFFECT_FLAG_DELAY)
      e7:SetCode(EVENT_TO_GRAVE)
      e7:SetCountLimit(1)
      e7:SetCondition(cm.drcon)
      e7:SetTarget(cm.drtg)
      e7:SetOperation(cm.drop)
      e7:SetLabelObject(e5)
      c:RegisterEffect(e7)
      --attackup
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsCanRemoveCounter(tp,1,0,0x624,1,REASON_RULE)
      end
      function cm.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 cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      c:AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      function cm.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=c:GetCounter(0x624)
      e:SetLabel(ct)
      end
      function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=e:GetLabelObject():GetLabel()
      return ct>0 and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
      end
      function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function cm.drop(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      \ No newline at end of file
      expansions/script/c60002156.lua deleted 100644 → 0
      View file @ f19ba0d6
      --血艳领主 夕月
      local m=60002156
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --Evolve
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetCategory(CATEGORY_TOKEN+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCost(cm.spcost)
      e3:SetTarget(cm.sptg)
      e3:SetOperation(cm.spop)
      c:RegisterEffect(e3)
      --attackup
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.filter(c,e,tp)
      return c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local sr=Duel.GetFlagEffect(tp,60002148)
      if sr>=3 then
      local num=1
      if sr>=5 then
      num=2
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,0,num,nil)
      Duel.Destroy(g,REASON_EFFECT)
      Duel.Draw(tp,num,REASON_EFFECT)
      end
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      g:GetFirst():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      g:GetFirst():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
      local e2=Effect.CreateEffect(e:GetHandler())
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_PHASE+PHASE_END)
      e2:SetCountLimit(1)
      e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e2:SetLabelObject(g:GetFirst())
      e2:SetCondition(cm.descon)
      e2:SetOperation(cm.desop)
      Duel.RegisterEffect(e2,tp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_TRIGGER)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      g:GetFirst():RegisterEffect(e1,true)
      end
      end
      end
      function cm.descon(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      if tc:GetFlagEffect(m)~=0 then
      return true
      else
      e:Reset()
      return false
      end
      end
      function cm.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      Duel.Destroy(tc,REASON_EFFECT)
      end
      expansions/script/c60002158.lua deleted 100644 → 0
      View file @ f19ba0d6
      --残酷的媚猫·帷
      local m=60002158
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_DRAW+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --Evolve
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetCategory(CATEGORY_TOKEN)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCost(cm.spcost)
      e3:SetTarget(cm.sptg)
      e3:SetOperation(cm.spop)
      c:RegisterEffect(e3)
      --attackup
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      --to grave
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,1))
      e4:SetCategory(CATEGORY_DAMAGE+CATEGORY_TOGRAVE)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e4:SetCode(EVENT_BATTLE_START)
      e4:SetTarget(cm.tgtg)
      e4:SetOperation(cm.tgop)
      c:RegisterEffect(e4)
      --maintain
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e4:SetCode(EVENT_PHASE+PHASE_END)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1)
      e4:SetCondition(cm.mtcon)
      e4:SetOperation(cm.mtop)
      c:RegisterEffect(e4)
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local d=Duel.GetAttackTarget()
      if chk==0 then return Duel.GetAttacker()==e:GetHandler() and d end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,d,1,0,0)
      end
      function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
      local d=Duel.GetAttackTarget()
      if d:IsRelateToBattle() then
      Duel.SendtoGrave(d,REASON_EFFECT)
      end
      end
      function cm.mtcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==tp
      end
      function cm.mtop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetFlagEffect(tp,60002148)>=5 then
      Duel.Recover(tp,1200,REASON_EFFECT)
      Duel.Damage(1-tp,1200,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c60002160.lua deleted 100644 → 0
      View file @ f19ba0d6
      --憧憬的飞跃 苇剑
      local m=60002160
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --Evolve
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetCategory(CATEGORY_TOKEN)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCost(cm.spcost)
      e3:SetTarget(cm.sptg)
      e3:SetOperation(cm.spop)
      c:RegisterEffect(e3)
      --attackup
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      end
      function cm.thfilter(c)
      return c:IsCode(m+1) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      \ No newline at end of file
      expansions/script/c60002161.lua deleted 100644 → 0
      View file @ f19ba0d6
      --幼狼的奋战
      local m=60002161
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --damage
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(cm.damtg)
      e1:SetOperation(cm.damop)
      c:RegisterEffect(e1)
      end
      function cm.filter(c,e,tp)
      return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetTargetPlayer(1-tp)
      Duel.SetTargetParam(400)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,400)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
      end
      function cm.damop(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Damage(p,d,REASON_EFFECT)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      if Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,0,1,nil,e,tp,m-1) then
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      if Duel.GetFlagEffect(tp,60002148)>=5 then
      Duel.Damage(1-tp,1600,REASON_EFFECT)
      end
      end
      expansions/script/c60002162.lua deleted 100644 → 0
      View file @ f19ba0d6
      --奇幻之梦 爱丽丝
      local m=60002162
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(cm.spcon)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --attackup
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      --extra summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,2))
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0)
      e2:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
      e2:SetCondition(cm.incon)
      e2:SetRange(LOCATION_MZONE)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_EXTRA_SET_COUNT)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_HAND,0,1,c)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
      local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.filter(c,e,tp)
      return c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local sr=Duel.GetFlagEffect(tp,60002148)
      if sr>=3 then
      if Duel.Draw(tp,2,REASON_EFFECT)~=0 then
      Duel.ShuffleHand(tp)
      Duel.DiscardHand(tp,aux.TRUE,1,1,REASON_EFFECT+REASON_DISCARD)
      if e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      if sr>=5 then
      if e:GetHandler():IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_DIRECT_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e:GetHandler():RegisterEffect(e1)
      end
      end
      end
      end
      \ No newline at end of file
      expansions/script/c60002163.lua deleted 100644 → 0
      View file @ f19ba0d6
      --庭院追忆 奥莉薇&希尔薇娅
      local m=60002163
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_TOKEN+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,m)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --Evolve
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetCategory(CATEGORY_TOKEN+CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCost(cm.spcost)
      e3:SetTarget(cm.sptg)
      e3:SetOperation(cm.spop)
      c:RegisterEffect(e3)
      --attackup
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCode(EFFECT_UPDATE_ATTACK)
      e4:SetCondition(cm.incon)
      e4:SetValue(800)
      c:RegisterEffect(e4)
      local e5=Effect.CreateEffect(c)
      e5:SetType(EFFECT_TYPE_SINGLE)
      e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCode(EFFECT_UPDATE_DEFENSE)
      e5:SetCondition(cm.incon)
      e5:SetValue(800)
      c:RegisterEffect(e5)
      end
      function cm.filter(c,e,tp)
      return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.filter2(c,e,tp)
      return not c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x624)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local sr=Duel.GetFlagEffect(tp,60002148)
      if e:GetHandler():IsRelateToEffect(e) and sr~=0 then
      e:GetHandler():AddCounter(0x624,sr)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      if Duel.SelectYesNo(tp,aux.Stringid(m,0))==0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      if sr>=5 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      local dmg=Card.GetCounter(e:GetHandler(),0x624)*400
      local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil)
      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(-dmg)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      if tc:GetAttack()==0 then
      Duel.Destroy(tc,REASON_EFFECT)
      end
      tc=g:GetNext()
      end
      end
      end
      \ No newline at end of file
      expansions/script/c60002165.lua deleted 100644 → 0
      View file @ f19ba0d6
      --失落武士 景光
      local m=60002165
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_TOKEN+CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --special summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCondition(cm.regcon)
      e3:SetOperation(cm.regop)
      c:RegisterEffect(e3)
      --to grave
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,2))
      e4:SetCategory(CATEGORY_DAMAGE+CATEGORY_TOGRAVE)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e4:SetCode(EVENT_BATTLE_START)
      e4:SetCondition(cm.incon)
      e4:SetTarget(cm.tgtg)
      e4:SetOperation(cm.tgop)
      c:RegisterEffect(e4)
      if not cm.global_check then
      cm.global_check=true
      local ge1=Effect.CreateEffect(c)
      ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge1:SetCode(EVENT_SUMMON_SUCCESS)
      ge1:SetOperation(cm.checkop)
      Duel.RegisterEffect(ge1,0)
      local ge2=ge1:Clone()
      ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
      Duel.RegisterEffect(ge2,0)
      end
      end
      function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
      local tc=eg:GetFirst()
      while tc do
      Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1000)
      tc=eg:GetNext()
      end
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetFlagEffect(tp,m)>=10 then
      if e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
      end
      function cm.regop(e,tp,eg,ep,ev,re,r,rp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e1:SetCountLimit(1)
      e1:SetLabel(Duel.GetTurnCount())
      e1:SetCondition(cm.spcon)
      e1:SetOperation(cm.spop)
      if Duel.GetCurrentPhase()<=PHASE_STANDBY then
      e1:SetReset(RESET_PHASE+PHASE_STANDBY,2)
      else
      e1:SetReset(RESET_PHASE+PHASE_STANDBY)
      end
      Duel.RegisterEffect(e1,tp)
      end
      function cm.spfilter(c,e,tp)
      return c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnCount()~=e:GetLabel() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,m)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1)
      end
      function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local dmg=0
      if Duel.GetFlagEffect(tp,60002148)>=5 then
      dmg=800
      if Duel.GetFlagEffect(tp,60002148)>=7 then
      dmg=1600
      end
      end
      Duel.Damage(1-tp,dmg,REASON_EFFECT)
      local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil)
      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(-dmg)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      if tc:GetAttack()==0 then
      Duel.Destroy(tc,REASON_EFFECT)
      end
      tc=g:GetNext()
      end
      end
      expansions/script/c60002167.lua deleted 100644 → 0
      View file @ f19ba0d6
      --肃清之器 梅希亚
      local m=60002167
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      aux.AddLinkProcedure(c,cm.matfilter,2)
      c:EnableReviveLimit()
      --search
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e3:SetCountLimit(1,m)
      e3:SetTarget(cm.thtg)
      e3:SetOperation(cm.thop)
      c:RegisterEffect(e3)
      --attackup
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(cm.attackup)
      c:RegisterEffect(e3)
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.attackup(e,c)
      local atkup=(Duel.GetFieldGroupCount(tp,LOCATION_GRAVE,0)*200)+(Duel.GetFlagEffect(tp,60002148)*400)+(Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)*800)
      if Duel.GetTurnCount()>=8 then
      atkup=atkup+(Duel.GetTurnCount()-8)*10000
      end
      return atkup
      end
      function cm.matfilter(c)
      return c:IsCanHaveCounter(0x624) and Duel.IsCanAddCounter(tp,0x624,1,c)
      end
      function cm.thfilter(c,tp)
      return c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c63288573.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local sg=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,1,0,0)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      if Card.IsCanHaveCounter(tc,0x624) and e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      end
      expansions/script/c60002171.lua deleted 100644 → 0
      View file @ f19ba0d6
      --约定的荣耀 高文
      local m=60002171
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --attackup
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      if not cm.global_check then
      cm.global_check=true
      local ge1=Effect.CreateEffect(c)
      ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge1:SetCode(EVENT_SUMMON_SUCCESS)
      ge1:SetOperation(cm.checkop)
      Duel.RegisterEffect(ge1,0)
      local ge2=ge1:Clone()
      ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
      Duel.RegisterEffect(ge2,0)
      end
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetFlagEffect(tp,m)>=5 then
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      if Duel.GetFlagEffect(tp,m)>=10 then
      if e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      if Duel.GetFlagEffect(tp,m)>=15 then
      if e:GetHandler():IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_DIRECT_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e:GetHandler():RegisterEffect(e1)
      end
      end
      if Duel.GetFlagEffect(tp,m)>=20 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_INDESTRUCTABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e:GetHandler():RegisterEffect(e1)
      end
      end
      function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
      local tc=eg:GetFirst()
      while tc do
      Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1000)
      tc=eg:GetNext()
      end
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      \ No newline at end of file
      expansions/script/c60002172.lua deleted 100644 → 0
      View file @ f19ba0d6
      --荣光剑士 奥蕾莉亚
      local m=60002172
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --sp summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_CHAINING)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1)
      e1:SetCondition(cm.tgcon)
      e1:SetTarget(cm.tgtg)
      e1:SetOperation(cm.tgop)
      c:RegisterEffect(e1)
      --disable spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCondition(cm.incon)
      e1:SetTargetRange(0,1)
      e1:SetTarget(cm.sumlimit)
      c:RegisterEffect(e1)
      --attackup
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(cm.incon)
      e2:SetValue(2)
      c:RegisterEffect(e2)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --to grave
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,2))
      e4:SetCategory(CATEGORY_DAMAGE+CATEGORY_TOGRAVE)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e4:SetCode(EVENT_BATTLE_START)
      e4:SetCondition(cm.incon)
      e4:SetTarget(cm.tgtg2)
      e4:SetOperation(cm.tgop2)
      c:RegisterEffect(e4)
      if not cm.global_check then
      cm.global_check=true
      local ge1=Effect.CreateEffect(c)
      ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge1:SetCode(EVENT_SUMMON_SUCCESS)
      ge1:SetOperation(cm.checkop)
      Duel.RegisterEffect(ge1,0)
      local ge2=ge1:Clone()
      ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
      Duel.RegisterEffect(ge2,0)
      end
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
      local tc=eg:GetFirst()
      while tc do
      Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1000)
      tc=eg:GetNext()
      end
      end
      function cm.tgcon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp and re:IsActiveType(TYPE_MONSTER) and re:GetActivateLocation()==LOCATION_MZONE
      end
      function cm.tgtg(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 cm.tgop(e,tp,eg,ep,ev,re,r,rp)
      Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetFlagEffect(tp,m)>=7 then
      Duel.Draw(tp,1,REASON_EFFECT)
      if e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      end
      function cm.tgtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1)
      end
      function cm.tgop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Recover(tp,800,REASON_EFFECT)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(800)
      c:RegisterEffect(e1)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_DEFENSE)
      e1:SetValue(800)
      c:RegisterEffect(e1)
      end
      function cm.sumlimit(e,c,sump,sumtype,sumpos,targetp)
      return c:GetRace()==RACE_WARRIOR
      end
      expansions/script/c60002178.lua deleted 100644 → 0
      View file @ f19ba0d6
      --绿宝石圣女
      local m=60002178
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
      --summon with s/t
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
      e1:SetTargetRange(LOCATION_SZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
      e1:SetValue(POS_FACEUP_ATTACK)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetTarget(cm.thtg2)
      e2:SetOperation(cm.thop2)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DRAW)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCondition(cm.spcon2)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop2)
      c:RegisterEffect(e3)
      --tohand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,1))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.operation)
      c:RegisterEffect(e1)
      local e3=e1:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      --selfdes
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_SINGLE)
      e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e7:SetRange(LOCATION_SZONE)
      e7:SetCode(EFFECT_SELF_DESTROY)
      e7:SetCondition(cm.descon)
      c:RegisterEffect(e7)
      end
      function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
      end
      function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c then
      Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      e:GetHandler():AddCounter(0x625,3)
      Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
      --cost
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e4:SetCountLimit(1)
      e4:SetRange(LOCATION_SZONE)
      e4:SetOperation(cm.ccost)
      e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
      c:RegisterEffect(e4)
      end
      end
      function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
      if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
      Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
      end
      end
      function cm.descon(e)
      return Card.GetCounter(e:GetHandler(),0x625)==0
      end
      function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
      end
      function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(2)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
      end
      function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      function cm.filter(c)
      return c:IsCanHaveCounter(0x625) and Duel.IsCanAddCounter(tp,0x625,1,c) and c:IsType(TYPE_MONSTER) and not c:IsCode(m) and c:IsAbleToHand()
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,_,exc)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,exc) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      if Duel.GetFlagEffect(tp,60002177)>=5 then
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c60002179.lua deleted 100644 → 0
      View file @ f19ba0d6
      --荒天雷神
      local m=60002179
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
      --summon with s/t
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
      e1:SetTargetRange(LOCATION_SZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
      e1:SetValue(POS_FACEUP_ATTACK)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetTarget(cm.thtg2)
      e2:SetOperation(cm.thop2)
      c:RegisterEffect(e2)
      --selfdes
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_SINGLE)
      e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e7:SetRange(LOCATION_SZONE)
      e7:SetCode(EFFECT_SELF_DESTROY)
      e7:SetCondition(cm.descon)
      c:RegisterEffect(e7)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DRAW)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCondition(cm.spcon2)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop2)
      c:RegisterEffect(e3)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,1))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetCost(cm.thcost)
      e2:SetTarget(cm.thtg)
      e2:SetOperation(cm.thop)
      c:RegisterEffect(e2)
      end
      function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
      end
      function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c then
      Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      e:GetHandler():AddCounter(0x625,1)
      Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
      --cost
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e4:SetCountLimit(1)
      e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
      e4:SetRange(LOCATION_SZONE)
      e4:SetOperation(cm.ccost)
      e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
      c:RegisterEffect(e4)
      end
      end
      function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
      if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
      Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
      end
      end
      function cm.descon(e)
      return Card.GetCounter(e:GetHandler(),0x625)==0
      end
      function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
      end
      function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsDiscardable() end
      Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
      end
      function cm.filter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP)
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chkc then return chkc:IsOnField() and cm.filter(chkc) and chkc~=e:GetHandler() end
      if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,0,LOCATION_SZONE,1,e:GetHandler()) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,cm.filter,tp,0,LOCATION_SZONE,1,1,e:GetHandler())
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.Destroy(tc,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c60002180.lua deleted 100644 → 0
      View file @ f19ba0d6
      --灵鼠族小丑
      local m=60002180
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
      --summon with s/t
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
      e1:SetTargetRange(LOCATION_SZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
      e1:SetValue(POS_FACEUP_ATTACK)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetTarget(cm.thtg2)
      e2:SetOperation(cm.thop2)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCondition(cm.spcon2)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop2)
      c:RegisterEffect(e3)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --selfdes
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_SINGLE)
      e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e7:SetRange(LOCATION_SZONE)
      e7:SetCode(EFFECT_SELF_DESTROY)
      e7:SetCondition(cm.descon)
      c:RegisterEffect(e7)
      end
      function cm.filter(c,e,tp)
      return c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      g:GetFirst():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_TRIGGER)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      g:GetFirst():RegisterEffect(e1,true)
      end
      end
      function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
      end
      function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c then
      Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      e:GetHandler():AddCounter(0x625,3)
      Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
      --cost
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e4:SetCountLimit(1)
      e4:SetRange(LOCATION_SZONE)
      e4:SetOperation(cm.ccost)
      e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
      c:RegisterEffect(e4)
      end
      end
      function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
      if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
      Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
      end
      end
      function cm.descon(e)
      return Card.GetCounter(e:GetHandler(),0x625)==0
      end
      function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
      end
      function cm.sptg2(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 cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_TRIGGER)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e:GetHandler():RegisterEffect(e1,true)
      end
      \ No newline at end of file
      expansions/script/c60002181.lua deleted 100644 → 0
      View file @ f19ba0d6
      --蓝宝石祭司
      local m=60002181
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --tohand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,1))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetCost(cm.acost)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.operation)
      c:RegisterEffect(e1)
      local e3=e1:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      --return
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCategory(CATEGORY_DRAW)
      e2:SetCode(EVENT_ATTACK_ANNOUNCE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(cm.rtcon)
      e2:SetTarget(cm.rttg)
      e2:SetOperation(cm.rtop)
      c:RegisterEffect(e2)
      --atk up
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1,m)
      e2:SetTarget(cm.atktg1)
      e2:SetOperation(cm.atkop1)
      c:RegisterEffect(e2)
      end
      function cm.acost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.filter(c)
      return (c:IsCanHaveCounter(0x625) and Duel.IsCanAddCounter(tp,0x625,1,c) and c:IsType(TYPE_MONSTER)) or c:IsCode(m+2) and c:IsAbleToHand()
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,_,exc)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      if Duel.GetFlagEffect(tp,60002177)>=5 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.filter,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
      end
      function cm.tgfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsFaceup()
      end
      function cm.rtcon(e,tp,eg,ep,ev,re,r,rp)
      local at=Duel.GetAttacker()
      return at and at:IsControler(tp) and Duel.GetFlagEffect(tp,60002177)>=5
      end
      function cm.rttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function cm.rtop(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      function cm.filter1(c)
      return c:IsFaceup() and not c:IsCode(m)
      end
      function cm.atktg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.filter1(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_MZONE,0,1,1,nil)
      end
      function cm.atkop1(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsFaceup() and tc:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_DIRECT_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetDescription(aux.Stringid(m,2))
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      expansions/script/c60002182.lua deleted 100644 → 0
      View file @ f19ba0d6
      --俱灭之白骨圣堂教主
      local m=60002182
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(cm.spcon)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_DRAW+CATEGORY_RECOVER+CATEGORY_DAMAGE)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetCost(cm.thcost)
      e2:SetOperation(cm.thop2)
      c:RegisterEffect(e2)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --overlay
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,2))
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_DESTROYED)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCondition(cm.ovcon)
      e2:SetTarget(cm.ovtg)
      e2:SetOperation(cm.ovop)
      c:RegisterEffect(e2)
      end
      function cm.spcon(e,c)
      if c==nil then return true end
      return Duel.GetFlagEffect(tp,m)>=4
      end
      function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsDiscardable() and Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
      Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
      Duel.Damage(1-tp,500,REASON_EFFECT)
      Duel.Recover(tp,500,REASON_EFFECT)
      Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1000)
      end
      function cm.filter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP)
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end
      local sg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
      Duel.Destroy(sg,REASON_EFFECT)
      local c=e:GetHandler()
      local dmg=1600
      Duel.Damage(tp,dmg,REASON_EFFECT)
      local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil)
      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(-dmg)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      if tc:GetAttack()==0 then
      Duel.Destroy(tc,REASON_EFFECT)
      end
      tc=g:GetNext()
      end
      end
      function cm.cfilter(c,tp)
      return c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function cm.ovcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,tp) and not eg:IsContains(e:GetHandler())
      end
      function cm.ovtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToHand() and Duel.GetFlagEffect(tp,m+10000000)==0 end
      Duel.RegisterFlagEffect(tp,m+10000000,RESET_CHAIN,0,1)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
      end
      function cm.ovop(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c60002183.lua deleted 100644 → 0
      View file @ f19ba0d6
      --宝石圣堂
      local m=60002183
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,5))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DRAW+CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCost(cm.accost)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,6))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DRAW+CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --return
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_ATTACK_ANNOUNCE)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCondition(cm.rtcon)
      e2:SetOperation(cm.rtop)
      c:RegisterEffect(e2)
      --immune
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetRange(LOCATION_SZONE)
      e1:SetValue(1)
      c:RegisterEffect(e1)
      end
      function cm.accost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.filter1(c)
      return c:IsLevelBelow(4) and c:IsRace(RACE_SPELLCASTER) and c:IsAbleToHand()
      end
      function cm.filter2(c)
      return c:IsLevelAbove(7) and c:IsRace(RACE_FAIRY) and c:IsAbleToGrave()
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local op=0
      op=Duel.SelectOption(tp,aux.Stringid(m,1),aux.Stringid(m,2),aux.Stringid(m,3))
      if op==0 then
      Duel.Draw(tp,1,REASON_EFFECT)
      elseif op==1 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.filter1,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 op==2 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      end
      function cm.rtcon(e,tp,eg,ep,ev,re,r,rp)
      local at=Duel.GetAttacker()
      return at and at:IsControler(tp)
      end
      function cm.rtop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local dmg=0
      if Duel.GetFlagEffect(tp,60002177)>=5 then
      dmg=1200
      else
      dmg=400
      end
      local g1=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      local tc=g1:GetFirst()
      while tc do
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(dmg)
      tc:RegisterEffect(e1)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_DEFENSE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(dmg)
      tc:RegisterEffect(e1)
      tc=g1:GetNext()
      end
      end
      \ No newline at end of file
      expansions/script/c60002185.lua deleted 100644 → 0
      View file @ f19ba0d6
      --璀钻之主
      local m=60002185
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(cm.spcon)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetCountLimit(1,m)
      e2:SetTarget(cm.thtg2)
      e2:SetOperation(cm.thop2)
      c:RegisterEffect(e2)
      --change battle target
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCode(EVENT_BE_BATTLE_TARGET)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,m+10000000)
      e2:SetTarget(cm.cbtg)
      e2:SetOperation(cm.cbop)
      c:RegisterEffect(e2)
      --change effect target
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCode(EVENT_CHAINING)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,m+10000000)
      e3:SetCondition(cm.cecon)
      e3:SetTarget(cm.cbtg)
      e3:SetOperation(cm.cbop)
      c:RegisterEffect(e3)
      --to grave
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,2))
      e4:SetCategory(CATEGORY_DESTROY)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e4:SetCode(EVENT_BATTLE_START)
      e4:SetOperation(cm.tgop)
      c:RegisterEffect(e4)
      end
      function cm.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.filter(c)
      return c:IsCanHaveCounter(0x625) and Duel.IsCanAddCounter(tp,0x625,1,c) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.filter,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 cm.filter1(c)
      return c:IsFaceup() and not c:IsCode(m)
      end
      function cm.cbtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.filter1(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_MZONE,0,1,1,nil)
      end
      function cm.cbop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsFaceup() and tc:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_DIRECT_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetDescription(aux.Stringid(m,2))
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      function cm.cecon(e,tp,eg,ep,ev,re,r,rp)
      if e==re or rp==tp or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
      local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
      return g and g:GetCount()==1 and g:GetFirst()==e:GetHandler()
      end
      function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
      Duel.Destroy(sg,REASON_EFFECT)
      end
      \ No newline at end of file
      expansions/script/c60002186.lua deleted 100644 → 0
      View file @ f19ba0d6
      --雷导神鸟
      local m=60002186
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
      --summon with s/t
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
      e1:SetTargetRange(LOCATION_SZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
      e1:SetValue(POS_FACEUP_ATTACK)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetTarget(cm.thtg2)
      e2:SetOperation(cm.thop2)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCondition(cm.spcon2)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop2)
      c:RegisterEffect(e3)
      --selfdes
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_SINGLE)
      e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e7:SetRange(LOCATION_SZONE)
      e7:SetCode(EFFECT_SELF_DESTROY)
      e7:SetCondition(cm.descon)
      c:RegisterEffect(e7)
      --tohand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,1))
      e1:SetCategory(CATEGORY_DRAW+CATEGORY_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetCost(cm.acost)
      e1:SetOperation(cm.operation)
      c:RegisterEffect(e1)
      local e3=e1:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      end
      function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
      end
      function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c then
      Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      e:GetHandler():AddCounter(0x625,2)
      Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
      --cost
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e4:SetCountLimit(1)
      e4:SetRange(LOCATION_SZONE)
      e4:SetOperation(cm.ccost)
      e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
      c:RegisterEffect(e4)
      end
      end
      function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
      if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
      Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
      end
      end
      function cm.descon(e)
      return Card.GetCounter(e:GetHandler(),0x625)==0
      end
      function cm.xfilter(c)
      return c:IsType(TYPE_MONSTER)
      end
      function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
      end
      function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToHand() end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
      end
      function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT)
      if Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,cm.xfilter,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.Destroy(g:GetFirst(),REASON_EFFECT)
      end
      end
      end
      function cm.acost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,_,exc)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function cm.sumfilter(c)
      return c:IsSummonable(true,nil)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      Duel.Draw(tp,1,REASON_EFFECT)
      if Duel.GetFlagEffect(tp,60002177)>=5 then
      if Duel.IsExistingMatchingCard(cm.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil)
      and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
      Duel.BreakEffect()
      Duel.ShuffleHand(tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
      local sg=Duel.SelectMatchingCard(tp,cm.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
      if sg:GetCount()>0 then
      Duel.Summon(tp,sg:GetFirst(),true,nil)
      end
      end
      end
      end
      expansions/script/c60002187.lua deleted 100644 → 0
      View file @ f19ba0d6
      --恶浊神父
      local m=60002187
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
      --summon with s/t
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
      e1:SetTargetRange(LOCATION_SZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
      e1:SetValue(POS_FACEUP_ATTACK)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetTarget(cm.thtg2)
      e2:SetOperation(cm.thop2)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_RECOVER)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCondition(cm.spcon2)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop2)
      c:RegisterEffect(e3)
      --selfdes
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_SINGLE)
      e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e7:SetRange(LOCATION_SZONE)
      e7:SetCode(EFFECT_SELF_DESTROY)
      e7:SetCondition(cm.descon)
      c:RegisterEffect(e7)
      --spsummon
      local e8=Effect.CreateEffect(c)
      e8:SetDescription(aux.Stringid(m,1))
      e8:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e8:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
      e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e8:SetCode(EVENT_SUMMON_SUCCESS)
      e8:SetTarget(cm.sptg)
      e8:SetOperation(cm.spop)
      c:RegisterEffect(e8)
      local e2=e8:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      end
      function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
      end
      function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local r=0
      if math.floor(Duel.GetTurnCount()/2)==Duel.GetTurnCount()/2 then
      r=1
      else
      r=3
      end
      if c then
      Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      e:GetHandler():AddCounter(0x625,r)
      Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
      --cost
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e4:SetCountLimit(1)
      e4:SetRange(LOCATION_SZONE)
      e4:SetOperation(cm.ccost)
      e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
      c:RegisterEffect(e4)
      end
      end
      function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
      if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
      Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
      end
      end
      function cm.descon(e)
      return Card.GetCounter(e:GetHandler(),0x625)==0
      end
      function cm.xfilter(c)
      return c:IsType(TYPE_MONSTER)
      end
      function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
      end
      function cm.sptg2(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 cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
      end
      function cm.filter(c,e,tp)
      return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.filter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(cm.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
      Duel.Recover(tp,1500,REASON_EFFECT)
      end
      Duel.SpecialSummonComplete()
      end
      \ No newline at end of file
      expansions/script/c60002188.lua deleted 100644 → 0
      View file @ f19ba0d6
      --隐秘的代行者
      local m=60002188
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
      --summon with s/t
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
      e1:SetTargetRange(LOCATION_SZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
      e1:SetValue(POS_FACEUP_ATTACK)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetTarget(cm.thtg2)
      e2:SetOperation(cm.thop2)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCondition(cm.spcon2)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop2)
      c:RegisterEffect(e3)
      --selfdes
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_SINGLE)
      e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e7:SetRange(LOCATION_SZONE)
      e7:SetCode(EFFECT_SELF_DESTROY)
      e7:SetCondition(cm.descon)
      c:RegisterEffect(e7)
      --spsummon
      local e8=Effect.CreateEffect(c)
      e8:SetDescription(aux.Stringid(m,1))
      e8:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY)
      e8:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
      e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e8:SetCode(EVENT_SUMMON_SUCCESS)
      e8:SetTarget(cm.sptg2)
      e8:SetOperation(cm.spop)
      c:RegisterEffect(e8)
      local e2=e8:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCondition(cm.spcon)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop)
      c:RegisterEffect(e3)
      end
      function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
      end
      function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c then
      Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      e:GetHandler():AddCounter(0x625,2)
      Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
      --cost
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e4:SetCountLimit(1)
      e4:SetRange(LOCATION_SZONE)
      e4:SetOperation(cm.ccost)
      e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
      c:RegisterEffect(e4)
      end
      end
      function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
      if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
      Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
      end
      end
      function cm.descon(e)
      return Card.GetCounter(e:GetHandler(),0x625)==0
      end
      function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
      end
      function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end
      if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,e:GetHandler()) end
      end
      function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
      Duel.Destroy(g:GetFirst(),REASON_EFFECT)
      end
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
      Duel.Destroy(g:GetFirst(),REASON_EFFECT)
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_MZONE)
      end
      expansions/script/c60002189.lua deleted 100644 → 0
      View file @ f19ba0d6
      --绚彩瑰石 文奇
      local m=60002189
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(cm.spcon)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --tohand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,1))
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetOperation(cm.operation)
      c:RegisterEffect(e1)
      local e3=e1:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      local tcr=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
      local tcc=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)
      for i=1,tcc do
      local tc=tcr:GetFirst()
      if tc:IsFaceup() and tc:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_DIRECT_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      if Duel.GetFlagEffect(tp,60002177)>=5 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetDescription(aux.Stringid(m,2))
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      tcr:RemoveCard(tc)
      end
      end
      \ No newline at end of file
      expansions/script/c60002191.lua deleted 100644 → 0
      View file @ f19ba0d6
      --月晖圣骑士 阿斯托尔福
      local m=60002191
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624,LOCATION_ONFIELD)
      c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
      --summon with s/t
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
      e1:SetTargetRange(LOCATION_SZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
      e1:SetValue(POS_FACEUP_ATTACK)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetTarget(cm.thtg2)
      e2:SetOperation(cm.thop2)
      c:RegisterEffect(e2)
      --selfdes
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_SINGLE)
      e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e7:SetRange(LOCATION_SZONE)
      e7:SetCode(EFFECT_SELF_DESTROY)
      e7:SetCondition(cm.descon)
      c:RegisterEffect(e7)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DRAW)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCondition(cm.spcon2)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop2)
      c:RegisterEffect(e3)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCountLimit(1,m)
      e1:SetCost(cm.acost)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --to hand2
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCountLimit(1,m)
      e1:SetCost(cm.acost)
      e1:SetTarget(cm.thtg2)
      e1:SetOperation(cm.thop2)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetCondition(cm.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      end
      function cm.acost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.thfilter(c,e,tp)
      return c:IsCanHaveCounter(0x625) and Duel.IsCanAddCounter(tp,0x625,1,c) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(m)
      end
      function cm.thfilter2(c,e,tp)
      return c:IsCanHaveCounter(0x624) and Duel.IsCanAddCounter(tp,0x624,1,c) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(m)
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1
      and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,2,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK)
      end
      function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1
      and Duel.IsExistingMatchingCard(cm.thfilter2,tp,LOCATION_DECK,0,2,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,2,2,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter2,tp,LOCATION_DECK,0,2,2,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      g:GetFirst():GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      g:RemoveCard(g:GetFirst())
      g:GetFirst():GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
      end
      function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c then
      Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      e:GetHandler():AddCounter(0x625,1)
      Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
      --cost
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e4:SetCountLimit(1)
      e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
      e4:SetRange(LOCATION_SZONE)
      e4:SetOperation(cm.ccost)
      e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
      c:RegisterEffect(e4)
      if Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,cm.xfilter,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.Destroy(g:GetFirst(),REASON_EFFECT)
      end
      end
      end
      function cm.xfilter(c)
      return c:IsType(TYPE_MONSTER)
      end
      function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
      if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
      Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
      end
      end
      function cm.descon(e)
      return Card.GetCounter(e:GetHandler(),0x625)==0
      end
      function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
      end
      function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      \ No newline at end of file
      expansions/script/c60002205.lua deleted 100644 → 0
      View file @ f19ba0d6
      --崇高圣体
      local m=60002205
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --attackup
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(cm.incon)
      e3:SetValue(1600)
      c:RegisterEffect(e3)
      --untargetable
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCode(EFFECT_IGNORE_BATTLE_TARGET)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCondition(cm.rincon)
      e1:SetValue(1)
      c:RegisterEffect(e1)
      --search
      local e5=Effect.CreateEffect(c)
      e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e5:SetCode(EVENT_LEAVE_FIELD_P)
      e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e5:SetOperation(cm.regop)
      c:RegisterEffect(e5)
      local e7=Effect.CreateEffect(c)
      e7:SetDescription(aux.Stringid(m,2))
      e7:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e7:SetProperty(EFFECT_FLAG_DELAY)
      e7:SetCode(EVENT_TO_GRAVE)
      e7:SetCountLimit(1)
      e7:SetCondition(cm.drcon)
      e7:SetTarget(cm.drtg)
      e7:SetOperation(cm.drop)
      e7:SetLabelObject(e5)
      c:RegisterEffect(e7)
      end
      function cm.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.rincon(e)
      return not Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      function cm.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=c:GetCounter(0x624)
      e:SetLabel(ct)
      end
      function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=e:GetLabelObject():GetLabel()
      return ct==0 and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
      end
      function cm.drtg(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 cm.drop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
      c:AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      if not e:GetHandler():IsCanRemoveCounter(tp,0x624,1,REASON_COST) then
      Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_RULE)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c60002206.lua deleted 100644 → 0
      View file @ f19ba0d6
      --红宝石飞鹰
      local m=60002178
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      c:EnableCounterPermit(0x625,LOCATION_ONFIELD)
      --summon with s/t
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
      e1:SetTargetRange(LOCATION_SZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_CONTINUOUS))
      e1:SetValue(POS_FACEUP_ATTACK)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetTarget(cm.thtg2)
      e2:SetOperation(cm.thop2)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DRAW)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCondition(cm.spcon2)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop2)
      c:RegisterEffect(e3)
      --spsummon
      local e8=Effect.CreateEffect(c)
      e8:SetDescription(aux.Stringid(m,1))
      e8:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e8:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
      e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e8:SetCode(EVENT_SUMMON_SUCCESS)
      e8:SetTarget(cm.sptg)
      e8:SetOperation(cm.spop)
      c:RegisterEffect(e8)
      local e2=e8:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --direct attack
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_DIRECT_ATTACK)
      e1:SetRange(LOCATION_SZONE)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetTarget(cm.datg)
      c:RegisterEffect(e1)
      end
      function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
      end
      function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c then
      Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      e:GetHandler():AddCounter(0x625,1)
      Duel.RegisterFlagEffect(tp,60002177,RESET_PHASE+PHASE_END,0,1000) --结晶
      --cost
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e4:SetCountLimit(1)
      e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
      e4:SetRange(LOCATION_SZONE)
      e4:SetOperation(cm.ccost)
      e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
      c:RegisterEffect(e4)
      --selfdes
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_SINGLE)
      e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e7:SetRange(LOCATION_SZONE)
      e7:SetCode(EFFECT_SELF_DESTROY)
      e7:SetCondition(cm.descon)
      c:RegisterEffect(e7)
      end
      end
      function cm.ccost(e,tp,eg,ep,ev,re,r,rp)
      if Card.IsCanRemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT) then
      Card.RemoveCounter(e:GetHandler(),tp,0x625,1,REASON_EFFECT)
      end
      end
      function cm.descon(e)
      return Card.GetCounter(e:GetHandler(),0x625)==0
      end
      function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
      end
      function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      function cm.filter(c,e,tp)
      return ((c:IsCanHaveCounter(0x625) and Duel.IsCanAddCounter(tp,0x625,1,c) and c:IsType(TYPE_MONSTER)) or c:IsLevelBelow(2)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(m)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_HAND)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      local tc=g:GetFirst()
      if tc then
      Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
      Duel.SpecialSummonComplete()
      end
      end
      function cm.datg(e,c)
      return c:IsPosition(POS_FACEUP)
      end
      \ No newline at end of file
      expansions/script/c60002207.lua deleted 100644 → 0
      View file @ f19ba0d6
      --紫水晶雄狮
      local m=60002207
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(cm.spcon)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --tohand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,1))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetOperation(cm.operation)
      c:RegisterEffect(e1)
      local e3=e1:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,1,REASON_COST)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      local count=Duel.GetMatchingGroupCount(aux.TRUE,tp,LOCATION_SZONE,0,nil)
      local num={}
      local i=1
      while i<=count do
      num[i]=i
      i=i+1
      end
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,1))
      count=Duel.AnnounceNumber(tp,table.unpack(num))
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x625,count,REASON_COST)
      end
      \ No newline at end of file
      expansions/script/c60002223.lua deleted 100644 → 0
      View file @ f19ba0d6
      --机锋的罪人 卡特斯罗特
      local cm,m,o=GetID()
      function cm.initial_effect(c)
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e0:SetCode(EVENT_TO_HAND)
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e0:SetOperation(cm.op0)
      c:RegisterEffect(e0)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(cm.con1)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_SUMMON_PROC)
      e2:SetValue(SUMMON_TYPE_ADVANCE)
      e2:SetCondition(cm.con2)
      e2:SetOperation(cm.op2)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DRAW)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_SUMMON_SUCCESS)
      e3:SetOperation(cm.op3)
      c:RegisterEffect(e3)
      local e4=e3:Clone()
      e4:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e4)
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_DAMAGE+CATEGORY_ATKCHANGE)
      e5:SetType(EFFECT_TYPE_IGNITION)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1)
      e5:SetCost(cm.cos5)
      e5:SetTarget(cm.tg5)
      e5:SetOperation(cm.op5)
      c:RegisterEffect(e5)
      end
      --e0
      function cm.op0(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():GetFieldID()<=172 then return end
      e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
      end
      --e1
      function cm.con1(e,c)
      if c==nil then return true end
      return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and c:GetFlagEffect(m)>0
      end
      --e2
      function cm.con2(e,c,minc)
      if c==nil then return true end
      return minc<=1 and Duel.CheckTribute(c,1)
      end
      function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
      g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
      c:SetMaterial(g)
      Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
      for tc in aux.Next(g) do
      if tc:IsLocation(LOCATION_GRAVE) then
      tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
      end
      end
      end
      --e3
      function cm.op3f1(c,mc)
      return not aux.IsCodeListed(c,mc:GetCode())
      end
      function cm.op3con1f(c,tp)
      return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(tp) and (c:IsReason(REASON_COST) or c:IsReason(REASON_SUMMON+REASON_MATERIAL))
      end
      function cm.op3con1(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.op3con1f,1,nil,tp)
      end
      function cm.op3op1(e,tp,eg,ep,ev,re,r,rp)
      if #eg-1<=0 then return end
      Duel.Draw(tp,#eg-1,REASON_EFFECT)
      end
      function cm.op3(e,tp,eg,ep,ev,re,r,rp)
      local c,g=e:GetHandler(),Duel.GetFieldGroup(tp,LOCATION_DECK,0)
      Duel.ConfirmCards(1-tp,g)
      g=g:Filter(cm.op3f1,nil,c)
      if g:GetClassCount(Card.GetCode)==#g then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      e1:SetCode(EVENT_RELEASE)
      e1:SetCondition(cm.op3con1)
      e1:SetOperation(cm.op3op1)
      Duel.RegisterEffect(e1,tp)
      end
      end
      --e5
      function cm.cos5f1(c)
      return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
      end
      function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,2,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,2,99,nil)
      e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
      end
      function cm.tg5(e,tp,eg,ep,ev,re,r,rp,chk)
      local dam=e:GetLabel()>2 and 4000 or 2000
      if chk==0 then return true end
      Duel.SetTargetPlayer(1-tp)
      Duel.SetTargetParam(dam)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam)
      end
      function cm.op5(e,tp,eg,ep,ev,re,r,rp)
      local dam=e:GetLabel()>2 and 4000 or 2000
      if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(dam)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e:GetHandler():RegisterEffect(e1)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Damage(p,d,REASON_EFFECT)
      end
      expansions/script/c60002227.lua deleted 100644 → 0
      View file @ f19ba0d6
      --熔铁亲信
      local m=60002227
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      aux.AddCodeList(c,60002223)
      --爆能强化
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_SUMMON_PROC)
      e2:SetValue(SUMMON_TYPE_ADVANCE)
      e2:SetCondition(cm.con2)
      e2:SetOperation(cm.op2)
      c:RegisterEffect(e2)
      --进化
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE+CATEGORY_TOHAND+CATEGORY_SEARCH)
      e5:SetType(EFFECT_TYPE_IGNITION)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1)
      e5:SetCost(cm.cos5)
      e5:SetOperation(cm.op5)
      c:RegisterEffect(e5)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      end
      function cm.con2(e,c,minc)
      if c==nil then return true end
      return minc<=1 and Duel.CheckTribute(c,1)
      end
      function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
      g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
      c:SetMaterial(g)
      Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
      for tc in aux.Next(g) do
      if tc:IsLocation(LOCATION_GRAVE) then
      tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
      end
      end
      end
      function cm.cos5f1(c)
      return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
      end
      function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,1,99,nil)
      e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
      end
      function cm.op5(e,tp,eg,ep,ev,re,r,rp)
      local dam=e:GetLabel()
      if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
      if dam>=1 then
      local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil)
      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(-800)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      if tc:GetAttack()==0 then
      Duel.Destroy(tc,REASON_EFFECT)
      end
      tc=g:GetNext()
      end
      if dam>=2 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.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
      end
      end
      function cm.thfilter(c)
      return c:IsCanHaveCounter(0x624) and Duel.IsCanAddCounter(tp,0x624,1,c) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function cm.thfilter2(c)
      return c:IsLevel(1) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter2,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter2,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      if not g:GetFirst():IsCode(60002223) and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_HAND) then
      Duel.ConfirmCards(1-tp,g)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.sumlimit)
      e1:SetLabel(g:GetFirst():GetCode())
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      Duel.RegisterEffect(e2,tp)
      local e3=e1:Clone()
      e3:SetCode(EFFECT_CANNOT_MSET)
      Duel.RegisterEffect(e3,tp)
      local e4=e1:Clone()
      e4:SetCode(EFFECT_CANNOT_ACTIVATE)
      e4:SetValue(cm.aclimit)
      Duel.RegisterEffect(e4,tp)
      end
      end
      end
      function cm.sumlimit(e,c)
      return c:IsCode(e:GetLabel())
      end
      function cm.aclimit(e,re,tp)
      return re:GetHandler():IsCode(e:GetLabel()) and re:IsActiveType(TYPE_MONSTER)
      end
      \ No newline at end of file
      expansions/script/c60002228.lua deleted 100644 → 0
      View file @ f19ba0d6
      --镀黑小卒
      local m=60002228
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      aux.AddCodeList(c,60002223)
      --爆能强化
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_SUMMON_PROC)
      e2:SetValue(SUMMON_TYPE_ADVANCE)
      e2:SetCondition(cm.con2)
      e2:SetOperation(cm.op2)
      c:RegisterEffect(e2)
      --进化
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_ATKCHANGE)
      e5:SetType(EFFECT_TYPE_IGNITION)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1)
      e5:SetCost(cm.cos5)
      e5:SetOperation(cm.op5)
      c:RegisterEffect(e5)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,2))
      e1:SetCategory(CATEGORY_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      end
      function cm.con2(e,c,minc)
      if c==nil then return true end
      return minc<=1 and Duel.CheckTribute(c,1)
      end
      function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
      g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
      c:SetMaterial(g)
      Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
      for tc in aux.Next(g) do
      if tc:IsLocation(LOCATION_GRAVE) then
      tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
      end
      end
      end
      function cm.cos5f1(c)
      return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
      end
      function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,1,99,nil)
      e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
      end
      function cm.op5(e,tp,eg,ep,ev,re,r,rp)
      local dam=e:GetLabel()
      if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
      if dam==1 then
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      if dam>=2 then
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,2,2,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      local g1=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      local tc=g1:GetFirst()
      while tc do
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(1000)
      tc:RegisterEffect(e1)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_DEFENSE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(1000)
      tc:RegisterEffect(e1)
      tc=g1:GetNext()
      end
      end
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
      Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
      Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,0,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      Duel.Summon(tp,c,true,nil)
      if Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,0,1,nil,60002223) then
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c60002229.lua deleted 100644 → 0
      View file @ f19ba0d6
      --精炼保镳
      local m=60002229
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      aux.AddCodeList(c,60002223)
      --爆能强化
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_SUMMON_PROC)
      e2:SetValue(SUMMON_TYPE_ADVANCE)
      e2:SetCondition(cm.con2)
      e2:SetOperation(cm.op2)
      c:RegisterEffect(e2)
      --进化
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_DRAW+CATEGORY_RECOVER)
      e5:SetType(EFFECT_TYPE_IGNITION)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1)
      e5:SetCost(cm.cos5)
      e5:SetOperation(cm.op5)
      c:RegisterEffect(e5)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_DRAW+CATEGORY_RECOVER+CATEGORY_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_HAND)
      e2:SetCost(cm.cost)
      e2:SetOperation(cm.operation)
      c:RegisterEffect(e2)
      end
      function cm.con2(e,c,minc)
      if c==nil then return true end
      return minc<=1 and Duel.CheckTribute(c,1)
      end
      function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
      g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
      c:SetMaterial(g)
      Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
      for tc in aux.Next(g) do
      if tc:IsLocation(LOCATION_GRAVE) then
      tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
      end
      end
      end
      function cm.cos5f1(c)
      return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
      end
      function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,2,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,2,2,nil)
      e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
      end
      function cm.op5(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
      Duel.Draw(tp,2,REASON_EFFECT)
      Duel.Recover(tp,2000,REASON_EFFECT)
      end
      function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsDiscardable() end
      Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
      end
      function cm.filter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      if Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,0,1,nil,60002223) then
      Duel.Draw(tp,1,REASON_EFFECT)
      Duel.Recover(tp,1000,REASON_EFFECT)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c60002230.lua deleted 100644 → 0
      View file @ f19ba0d6
      --冲沙滑板手
      local m=60002230
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --爆能强化
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_SUMMON_PROC)
      e2:SetValue(SUMMON_TYPE_ADVANCE)
      e2:SetCondition(cm.con2)
      e2:SetOperation(cm.op2)
      c:RegisterEffect(e2)
      --进化
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_DAMAGE)
      e5:SetType(EFFECT_TYPE_IGNITION)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1)
      e5:SetCost(cm.cos5)
      e5:SetOperation(cm.op5)
      c:RegisterEffect(e5)
      end
      function cm.con2(e,c,minc)
      if c==nil then return true end
      return minc<=1 and Duel.CheckTribute(c,1)
      end
      function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
      g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
      c:SetMaterial(g)
      Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
      for tc in aux.Next(g) do
      if tc:IsLocation(LOCATION_GRAVE) then
      tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
      end
      end
      end
      function cm.xfilter(c)
      return c:IsType(TYPE_MONSTER)
      end
      function cm.cos5f1(c)
      return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
      end
      function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,2,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,2,2,nil)
      e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
      end
      function cm.op5(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,cm.xfilter,tp,LOCATION_MZONE,,1,1,nil)
      local dmg=g:GetFirst():GetAttack()
      Duel.Damage(1-tp,dmg,REASON_EFFECT)
      end
      \ No newline at end of file
      expansions/script/c60002231.lua deleted 100644 → 0
      View file @ f19ba0d6
      --宣告的天使
      local m=60002231
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --爆能强化
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_SUMMON_PROC)
      e2:SetValue(SUMMON_TYPE_ADVANCE)
      e2:SetCondition(cm.con2)
      e2:SetOperation(cm.op2)
      c:RegisterEffect(e2)
      --进化
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_DAMAGE)
      e5:SetType(EFFECT_TYPE_IGNITION)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1)
      e5:SetCost(cm.cos5)
      e5:SetOperation(cm.op5)
      c:RegisterEffect(e5)
      end
      function cm.con2(e,c,minc)
      if c==nil then return true end
      return minc<=1 and Duel.CheckTribute(c,1)
      end
      function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
      g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
      c:SetMaterial(g)
      Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
      for tc in aux.Next(g) do
      if tc:IsLocation(LOCATION_GRAVE) then
      tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
      end
      end
      end
      function cm.xfilter(c)
      return c:IsType(TYPE_MONSTER)
      end
      function cm.cos5f1(c)
      return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
      end
      function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,2,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,2,2,nil)
      e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
      end
      function cm.op5(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(2000)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e:GetHandler():RegisterEffect(e1)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_DEFENSE)
      e1:SetValue(2000)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e:GetHandler():RegisterEffect(e1)
      Duel.Damage(1-tp,2000,REASON_EFFECT)
      end
      expansions/script/c60002232.lua deleted 100644 → 0
      View file @ f19ba0d6
      --喷射炮手
      local m=60002232
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      aux.AddCodeList(c,60002223)
      --爆能强化
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_SUMMON_PROC)
      e2:SetValue(SUMMON_TYPE_ADVANCE)
      e2:SetCondition(cm.con2)
      e2:SetOperation(cm.op2)
      c:RegisterEffect(e2)
      --进化
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE+CATEGORY_TOHAND+CATEGORY_SEARCH)
      e5:SetType(EFFECT_TYPE_IGNITION)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1)
      e5:SetCost(cm.cos5)
      e5:SetOperation(cm.op5)
      c:RegisterEffect(e5)
      end
      function cm.con2(e,c,minc)
      if c==nil then return true end
      return minc<=1 and Duel.CheckTribute(c,1)
      end
      function cm.op2(e,tp,eg,ep,ev,re,r,rp,c)
      g=Duel.SelectTribute(tp,c,1,Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE))
      c:SetMaterial(g)
      Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
      for tc in aux.Next(g) do
      if tc:IsLocation(LOCATION_GRAVE) then
      tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
      end
      end
      end
      function cm.cos5f1(c)
      return c:GetFlagEffect(m)>0 and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
      end
      function cm.cos5(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cos5f1,tp,LOCATION_GRAVE,0,2,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectMatchingCard(tp,cm.cos5f1,tp,LOCATION_GRAVE,0,2,99,nil)
      e:SetLabel(Duel.SendtoDeck(g,tp,2,REASON_COST))
      end
      function cm.op5(e,tp,eg,ep,ev,re,r,rp)
      local dam=e:GetLabel()
      if not e:GetHandler():IsRelateToEffect(e) or not e:GetHandler():IsFaceup() then return end
      if dam==2 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(1600)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e:GetHandler():RegisterEffect(e1)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_DEFENSE)
      e1:SetValue(1600)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e:GetHandler():RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
      e2:SetValue(1)
      c:RegisterEffect(e2)
      end
      if dam>=3 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(3200)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e:GetHandler():RegisterEffect(e1)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_DEFENSE)
      e1:SetValue(3200)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e:GetHandler():RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
      e2:SetValue(2)
      c:RegisterEffect(e2)
      end
      end
      \ No newline at end of file
      expansions/script/c60002255.lua deleted 100644 → 0
      View file @ f19ba0d6
      --和平维系者·宾森特
      local m=60002255
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE_START+PHASE_DRAW)
      e1:SetRange(LOCATION_DECK)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.con)
      e1:SetOperation(cm.op)
      c:RegisterEffect(e1)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE_START+PHASE_DRAW)
      e1:SetRange(LOCATION_DECK)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.con2)
      e1:SetOperation(cm.op2)
      c:RegisterEffect(e1)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      end
      function cm.con(e,c)
      local tp=e:GetHandlerPlayer()
      if c==nil then return true end
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLP(tp)>=Duel.GetLP(1-tp)*4 and Duel.GetTurnPlayer()==tp
      end
      function cm.con2(e,c)
      local tp=e:GetHandlerPlayer()
      if c==nil then return true end
      return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and Duel.GetLP(1-tp)>=Duel.GetLP(tp)*4 and Duel.GetTurnPlayer()==tp
      end
      function cm.op(e,tp)
      local c=e:GetHandler()
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      function cm.op2(e,tp)
      local c=e:GetHandler()
      Duel.SpecialSummon(c,0,tp,1-tp,false,false,POS_FACEUP)
      end
      function cm.thfilter(c)
      return c:IsCode(60002256)
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,1,tp,LOCATION_MZONE)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
      local g=Duel.SelectMatchingCard(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)
      if #g>0 then
      Duel.HintSelection(g)
      Duel.GetControl(g:GetFirst(),tp,PHASE_END,1)
      if e:GetHandler():IsPreviousLocation(LOCATION_HAND) and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil)and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.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
      end
      end
      \ No newline at end of file
      expansions/script/c60002256.lua deleted 100644 → 0
      View file @ f19ba0d6
      --宣判之词
      local m=60002256
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DISABLE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and aux.NegateMonsterFilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
      Duel.SelectTarget(tp,aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,1,1,nil)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsCanBeDisabledByEffect(e) then
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e2)
      if Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,0,1,nil,60002255) and Duel.IsPlayerCanDraw(tp,1) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c60002278.lua deleted 100644 → 0
      View file @ f19ba0d6
      --飓风天枪·格里姆尼尔
      function c60002278.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --to e1
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(c60002278.ddtg)
      e1:SetOperation(c60002278.ddop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --to e3
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(60002278,1))
      e3:SetCategory(CATEGORY_COUNTER+CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCost(c60002278.spcost)
      e3:SetTarget(c60002278.sptg)
      e3:SetOperation(c60002278.spop)
      c:RegisterEffect(e3)
      --to e4
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCode(EFFECT_UPDATE_ATTACK)
      e4:SetCondition(c60002278.incon)
      e4:SetValue(800)
      c:RegisterEffect(e4)
      local e5=e4:Clone()
      e5:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e5)
      end
      --exto e1
      function c60002278.bigbaka(c)
      return c:IsAttackBelow(800) and c:IsFaceup()
      end
      function c60002278.zhuzhu(c)
      return c:IsAttackBelow(2000) and c:IsFaceup()
      end
      function c60002278.ddtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c60002278.bigbaka,tp,0,LOCATION_MZONE,2,nil) or Duel.IsExistingMatchingCard(c60002278.zhuzhu,tp,0,LOCATION_MZONE,2,nil) end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,2,1-tp,LOCATION_MZONE)
      end
      function c60002278.ddop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetMatchingGroup(c60002278.bigbaka,tp,0,LOCATION_MZONE,nil)
      local g1=Duel.GetMatchingGroup(c60002278.zhuzhu,tp,0,LOCATION_MZONE,nil)
      if Duel.GetFlagEffect(tp,60002148)<=5 and g:GetCount()>=2 then
      local dg=g:Select(tp,2,2,nil)
      if Duel.Destroy(dg,REASON_EFFECT)~=0 then
      Duel.Damage(1-tp,800,REASON_EFFECT)
      end
      elseif Duel.GetFlagEffect(tp,60002148)>=5 and g1:GetCount()>=2 then
      local xg=g1:Select(tp,2,2,nil)
      if Duel.Destroy(xg,REASON_EFFECT)~=0 then
      Duel.Damage(1-tp,2000,REASON_EFFECT)
      end
      end
      end
      --exto e3
      function c60002278.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
      end
      function c60002278.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c60002278.bigbaka,tp,0,LOCATION_MZONE,2,nil) end
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,2,1-tp,LOCATION_MZONE)
      end
      function c60002278.spop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(c60002278.bigbaka,tp,0,LOCATION_MZONE,nil)
      if e:GetHandler():IsRelateToEffect(e) and g:GetCount()>=2 then
      if e:GetHandler():AddCounter(0x624,1)~=0 then
      local dg=g:Select(tp,2,2,nil)
      Duel.Destroy(dg,REASON_EFFECT)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      end
      --exto e4
      function c60002278.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      expansions/script/c60002280.lua deleted 100644 → 0
      View file @ f19ba0d6
      --饥饿之王·嘉德路
      function c60002280.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --to e1
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DRAW+CATEGORY_COUNTER)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(c60002280.ddtg)
      e1:SetOperation(c60002280.ddop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --to e3
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(c60002280.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e4=e3:Clone()
      e4:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e4)
      --to e5
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_RECOVER)
      e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e5:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
      e5:SetCondition(c60002280.rccon)
      e5:SetTarget(c60002280.rctg)
      e5:SetOperation(c60002280.rcop)
      c:RegisterEffect(e5)
      end
      --exto e1
      function c60002280.ddtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,0,1,e:GetHandler(),e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_MZONE)
      end
      function c60002280.ddop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,c,e,tp):GetFirst()
      if tc:GetCounter(0x624)==0 then
      if Duel.Destroy(tc,REASON_EFFECT)~=0 then
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      elseif tc:GetCounter(0x624)~=0 then
      if Duel.Destroy(tc,REASON_EFFECT)~=0 then
      c:AddCounter(0x624,1)
      Duel.Draw(tp,2,REASON_EFFECT)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      end
      --exto e3
      function c60002280.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      --exto e5
      function c60002280.rccon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsRelateToBattle() and c:IsStatus(STATUS_OPPO_BATTLE) and c:GetCounter(0x624)>=1
      end
      function c60002280.rctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local atk=e:GetHandler():GetAttack()
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(atk)
      Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,atk)
      end
      function c60002280.rcop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local atk=e:GetHandler():GetAttack()
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Recover(p,atk,REASON_EFFECT)
      end
      \ No newline at end of file
      expansions/script/c60002281.lua deleted 100644 → 0
      View file @ f19ba0d6
      --希望的断片·奇利烨
      function c60002281.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --to e1
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(c60002281.thtg)
      e1:SetOperation(c60002281.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --to e3
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(60002281,1))
      e3:SetCategory(CATEGORY_COUNTER+CATEGORY_TOHAND+CATEGORY_SEARCH)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCost(c60002281.spcost)
      e3:SetTarget(c60002281.sptg)
      e3:SetOperation(c60002281.spop)
      c:RegisterEffect(e3)
      --to e4
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCode(EFFECT_UPDATE_ATTACK)
      e4:SetCondition(c60002281.incon)
      e4:SetValue(800)
      c:RegisterEffect(e4)
      local e5=e4:Clone()
      e5:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e5)
      end
      --exto e1
      function c60002281.thfilter(c)
      return c:IsAbleToHand() and c:IsType(TYPE_MONSTER)
      end
      function c60002281.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(c60002281.thfilter,tp,LOCATION_DECK,0,nil)
      if chk==0 then return g:GetClassCount(Card.GetCode)>=3 end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
      end
      function c60002281.thop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetMatchingGroup(c60002281.thfilter,tp,LOCATION_DECK,0,nil)
      if g:GetClassCount(Card.GetCode)>=3 then
      local cg=Group.CreateGroup()
      for i=1,3 do
      local sg=g:RandomSelect(tp,1,1,nil)
      g:Remove(Card.IsCode,nil,sg:GetFirst():GetCode())
      cg:Merge(sg)
      end
      Duel.ShuffleDeck(tp)
      Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND)
      Duel.ConfirmCards(1-tp,cg)
      local tg=cg:Select(1-tp,1,1,nil)
      local tc=tg:GetFirst()
      if tc:IsAbleToHand() and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then
      Duel.ConfirmCards(1-tp,tc)
      cg:RemoveCard(tc)
      end
      Duel.SendtoDeck(cg,tp,SEQ_DECKSHUFFLE,REASON_EFFECT)
      end
      end
      --exto e3
      function c60002281.cao(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevelBelow(4) and c:IsType(TYPE_MONSTER)
      end
      function c60002281.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST) end
      Duel.RemoveCounter(tp,LOCATION_ONFIELD,0,0x624,2,REASON_COST)
      end
      function c60002281.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(c60002281.thfilter,tp,LOCATION_DECK,0,nil)
      if chk==0 then return g:GetClassCount(Card.GetCode)>=3 end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
      end
      function c60002281.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetMatchingGroup(c60002281.thfilter,tp,LOCATION_DECK,0,nil)
      if c:IsRelateToEffect(e) and c:AddCounter(0x624,1)~=0 then
      if g:GetClassCount(Card.GetCode)>=3 then
      local cg=Group.CreateGroup()
      for i=1,3 do
      local sg=g:RandomSelect(tp,1,1,nil)
      g:Remove(Card.IsCode,nil,sg:GetFirst():GetCode())
      cg:Merge(sg)
      end
      Duel.ShuffleDeck(tp)
      Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND)
      local tg=cg:Select(1-tp,1,1,nil)
      local tc=tg:GetFirst()
      if tc:IsAbleToHand() and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then
      Duel.ConfirmCards(1-tp,tc)
      cg:RemoveCard(tc)
      end
      Duel.SendtoDeck(cg,tp,SEQ_DECKSHUFFLE,REASON_EFFECT)
      end
      if Duel.IsExistingMatchingCard(c60002281.cao,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(60002281,0)) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      local g1=Duel.SelectMatchingCard(tp,c60002281.cao,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP)
      end
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      --exto e4
      function c60002281.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      \ No newline at end of file
      expansions/script/c60002282.lua deleted 100644 → 0
      View file @ f19ba0d6
      --混沌的终幕·辛恩
      function c60002282.initial_effect(c)
      c:EnableCounterPermit(0x624)
      --to e1
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_COUNTER)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCondition(c60002282.con)
      e1:SetTarget(c60002282.ddtg)
      e1:SetOperation(c60002282.ddop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --to e3
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetCondition(c60002282.incon)
      e3:SetValue(800)
      c:RegisterEffect(e3)
      local e4=e3:Clone()
      e4:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e4)
      --to e5
      local e5=Effect.CreateEffect(c)
      e5:SetDescription(aux.Stringid(60002282,0))
      e5:SetCategory(CATEGORY_DAMAGE)
      e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e5:SetCode(EVENT_PHASE+PHASE_END)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCondition(c60002282.excon)
      e5:SetTarget(c60002282.damtg)
      e5:SetOperation(c60002282.damop)
      c:RegisterEffect(e5)
      end
      --exto e1
      function c60002282.con(e,tp)
      return Duel.GetFlagEffect(tp,60002148)>=5
      end
      function c60002282.ddtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x624)
      end
      function c60002282.ddop(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      e:GetHandler():AddCounter(0x624,1)
      Duel.RegisterFlagEffect(tp,60002148,RESET_PHASE+PHASE_END,0,1000)
      end
      end
      --exto e3
      function c60002282.incon(e)
      return Card.GetCounter(e:GetHandler(),0x624)>=1
      end
      --exto e5
      function c60002282.excon(e,tp)
      return Duel.GetFlagEffect(tp,60002148)>=10 and Card.GetCounter(e:GetHandler(),0x624)>=1 and Duel.GetTurnPlayer()==tp
      end
      function c60002282.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,3) end
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,1-tp,4000)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,3)
      Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,4000)
      end
      function c60002282.damop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
      if Duel.Damage(1-tp,4000,REASON_EFFECT)~=0 then
      if Duel.Recover(tp,4000,REASON_EFFECT)~=0 then
      if Duel.Draw(tp,3,REASON_EFFECT)~=0 then
      if g:GetCount()>=3 then
      Duel.DiscardHand(1-tp,nil,3,3,REASON_EFFECT+REASON_DISCARD)
      elseif g:GetCount()<3 then
      Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD)
      end
      end
      end
      end
      end
      \ No newline at end of file
      Markdown is supported
      0% or
      You are about to add 0 people to the discussion. Proceed with caution.
      Finish editing this message first!
      Please register or to comment