Skip to content

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

byd

parent b5096be1
Pipeline #30133 failed with stages
      in 31 minutes and 54 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 10 additions and 2521 deletions
      expansions/FiNALE.cdb
      View file @ ad8864a6
      No preview for this file type
      expansions/lflist.conf
      View file @ ad8864a6
      #[2024.10.DIY]
      !2024.10.DIY
      #[2024.10.DIY.]
      !2024.10.DIY.
      #002
      00200001 1 --魔王的剑
      ......@@ -1908,8 +1908,6 @@
      81046030 1 --虚拟YouTuber 大空琴璃
      81046034 0 --虚拟主播 西园千草
      81049013 0 --淡野美妙子·度假
      81057000 0 --水晶艾蕾娜
      81057009 0 --水晶艾蕾娜·无意义
      81066003 1 --万圣狂欢夜 千幽
      81066012 0 --生日快乐 千幽
      81066013 0 --新年 千幽
      ......
      expansions/script/c18700001.lua
      View file @ ad8864a6
      ......@@ -7,6 +7,7 @@ function cm.initial_effect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,18700001)
      ......
      expansions/script/c18700009.lua
      View file @ ad8864a6
      ......@@ -22,6 +22,7 @@ function cm.initial_effect(c)
      e2:SetCategory(CATEGORY_REMOVE)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,18700010)
      e2:SetTarget(cm.sptg2)
      e2:SetOperation(cm.spop2)
      ......
      expansions/script/c18700036.lua
      View file @ ad8864a6
      ......@@ -39,7 +39,8 @@ function cm.initial_effect(c)
      e4:SetDescription(aux.Stringid(m,2))
      e4:SetCategory(CATEGORY_SEARCH)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_SUMMON_SUCCESS)
      e4:SetCode(EVENT_SUMMON_SUCCESS)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,18700038)
      e4:SetTarget(cm.eqtg)
      e4:SetOperation(cm.eqop)
      ......
      expansions/script/c18700046.lua
      View file @ ad8864a6
      ......@@ -53,6 +53,7 @@ function cm.initial_effect(c)
      e7:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e7:SetCode(EVENT_SUMMON_SUCCESS)
      e7:SetProperty(EFFECT_FLAG_DELAY)
      e7:SetCountLimit(1,m+3)
      e7:SetTarget(cm.thtg)
      e7:SetOperation(cm.thop)
      ......
      expansions/script/c18700055.lua
      View file @ ad8864a6
      ......@@ -47,6 +47,7 @@ function cm.initial_effect(c)
      e7:SetCategory(CATEGORY_REMOVE)
      e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e7:SetCode(EVENT_SUMMON_SUCCESS)
      e7:SetProperty(EFFECT_FLAG_DELAY)
      e7:SetCountLimit(1,18700058)
      e7:SetTarget(cm.thtg)
      e7:SetOperation(cm.thop)
      ......
      expansions/script/c65035199.lua deleted 100644 → 0
      View file @ b5096be1
      --宫之鼓
      function c65035199.initial_effect(c)
      --damage
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035199,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(c65035199.damcon2)
      e2:SetOperation(c65035199.damop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      --token
      local e6=Effect.CreateEffect(c)
      e6:SetDescription(aux.Stringid(65035199,1))
      e6:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e6:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_ACTIVATE_CONDITION)
      e6:SetCode(EVENT_CHAINING)
      e6:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e6:SetCountLimit(1,65035199)
      e6:SetTarget(c65035199.sptg)
      e6:SetOperation(c65035199.spop)
      c:RegisterEffect(e6)
      if c65035199.counter==nil then
      c65035199.counter=true
      c65035199.count=0
      c65035199.list={}
      local ge2=Effect.CreateEffect(c)
      ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
      ge2:SetOperation(c65035199.resetcount)
      Duel.RegisterEffect(ge2,0)
      local ge3=Effect.CreateEffect(c)
      ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge3:SetCode(EVENT_BECOME_TARGET)
      ge3:SetOperation(c65035199.addcount)
      Duel.RegisterEffect(ge3,0)
      end
      end
      function c65035199.resetcount(e,tp,eg,ep,ev,re,r,rp)
      c65035199.count=0
      c65035199.list={}
      end
      function c65035199.addf(c,re)
      return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
      end
      function c65035199.addcount(e,tp,eg,ep,ev,re,r,rp)
      local g=eg:Filter(c65035199.addf,nil,re)
      if g:GetCount()>0 then
      local gc=g:GetFirst()
      while gc do
      local yes=true
      if c65035199.count>0 then
      for i=0,c65035199.count-1 do
      if gc:GetCode()==c65035199.list[i] then yes=false end
      end
      end
      if yes then
      c65035199.list[c65035199.count]=gc:GetCode()
      c65035199.count=c65035199.count+1
      end
      gc=g:GetNext()
      end
      end
      end
      function c65035199.damop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,65035199)
      Duel.Damage(1-tp,800,REASON_EFFECT)
      end
      function c65035199.cfilter(c)
      local yes=false
      if c65035199.count>0 then
      for i=0,c65035199.count do
      if c:GetCode()==c65035199.list[i] then yes=true end
      end
      end
      return yes
      end
      function c65035199.damcon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c65035199.cfilter,1,nil) and not eg:IsContains(e:GetHandler())
      end
      function c65035199.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) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsSetCard(0xcdab) and ep==tp end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c65035199.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      \ No newline at end of file
      expansions/script/c65035200.lua deleted 100644 → 0
      View file @ b5096be1
      --商之笛
      function c65035200.initial_effect(c)
      --damage
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035200,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(c65035200.damcon2)
      e2:SetOperation(c65035200.damop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(65035200,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCountLimit(1,65035200)
      e1:SetTarget(c65035200.thtg)
      e1:SetOperation(c65035200.thop)
      c:RegisterEffect(e1)
      local e10=e1:Clone()
      e10:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e10)
      if c65035200.counter==nil then
      c65035200.counter=true
      c65035200.count=0
      c65035200.list={}
      local ge2=Effect.CreateEffect(c)
      ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
      ge2:SetOperation(c65035200.resetcount)
      Duel.RegisterEffect(ge2,0)
      local ge3=Effect.CreateEffect(c)
      ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge3:SetCode(EVENT_BECOME_TARGET)
      ge3:SetOperation(c65035200.addcount)
      Duel.RegisterEffect(ge3,0)
      end
      end
      function c65035200.resetcount(e,tp,eg,ep,ev,re,r,rp)
      c65035200.count=0
      c65035200.list={}
      end
      function c65035200.addf(c,re)
      return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
      end
      function c65035200.addcount(e,tp,eg,ep,ev,re,r,rp)
      local g=eg:Filter(c65035200.addf,nil,re)
      if g:GetCount()>0 then
      local gc=g:GetFirst()
      while gc do
      local yes=true
      if c65035200.count>0 then
      for i=0,c65035200.count-1 do
      if gc:GetCode()==c65035200.list[i] then yes=false end
      end
      end
      if yes then
      c65035200.list[c65035200.count]=gc:GetCode()
      c65035200.count=c65035200.count+1
      end
      gc=g:GetNext()
      end
      end
      end
      function c65035200.damop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,65035200)
      local g=eg:FilterSelect(1-tp,c65035200.damofil,1,1,nil,e,1-tp)
      if g:GetCount()>0 then
      local sg=Duel.SelectMatchingCard(1-tp,c65035200.damspfil,1-tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,1-tp,g:GetFirst():GetCode())
      Duel.SpecialSummon(sg,0,1-tp,1-tp,false,false,POS_FACEUP)
      end
      end
      function c65035200.damofil(c,e,tp)
      return c65035200.cfilter(c) and Duel.IsExistingMatchingCard(c65035200.damspfil,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp,c:GetCode())
      end
      function c65035200.damspfil(c,e,tp,code)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCode(code)
      end
      function c65035200.cfilter(c)
      local yes=false
      if c65035200.count>0 then
      for i=0,c65035200.count do
      if c:GetCode()==c65035200.list[i] then yes=true end
      end
      end
      return yes
      end
      function c65035200.damcon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c65035200.cfilter,1,nil) and Duel.GetMZoneCount(1-tp)>0 and not eg:IsContains(e:GetHandler())
      end
      function c65035200.thfilter(c)
      return c:IsSetCard(0xcdab) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
      end
      function c65035200.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035200.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c65035200.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c65035200.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,tp,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      expansions/script/c65035201.lua deleted 100644 → 0
      View file @ b5096be1
      --角之钟
      function c65035201.initial_effect(c)
      --damage
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035201,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(c65035201.damcon2)
      e2:SetOperation(c65035201.damop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(65035201,0))
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,65035201)
      e1:SetCost(c65035201.thcost)
      e1:SetTarget(c65035201.thtg)
      e1:SetOperation(c65035201.thop)
      c:RegisterEffect(e1)
      if c65035201.counter==nil then
      c65035201.counter=true
      c65035201.count=0
      c65035201.list={}
      local ge2=Effect.CreateEffect(c)
      ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
      ge2:SetOperation(c65035201.resetcount)
      Duel.RegisterEffect(ge2,0)
      local ge3=Effect.CreateEffect(c)
      ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge3:SetCode(EVENT_BECOME_TARGET)
      ge3:SetOperation(c65035201.addcount)
      Duel.RegisterEffect(ge3,0)
      end
      end
      function c65035201.resetcount(e,tp,eg,ep,ev,re,r,rp)
      c65035201.count=0
      c65035201.list={}
      end
      function c65035201.addf(c,re)
      return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
      end
      function c65035201.addcount(e,tp,eg,ep,ev,re,r,rp)
      local g=eg:Filter(c65035201.addf,nil,re)
      if g:GetCount()>0 then
      local gc=g:GetFirst()
      while gc do
      local yes=true
      if c65035201.count>0 then
      for i=0,c65035201.count-1 do
      if gc:GetCode()==c65035201.list[i] then yes=false end
      end
      end
      if yes then
      c65035201.list[c65035201.count]=gc:GetCode()
      c65035201.count=c65035201.count+1
      end
      gc=g:GetNext()
      end
      end
      end
      function c65035201.damop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,65035201)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil)
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      end
      function c65035201.cfilter(c)
      local yes=false
      if c65035201.count>0 then
      for i=0,c65035201.count do
      if c:GetCode()==c65035201.list[i] then yes=true end
      end
      end
      return yes
      end
      function c65035201.damcon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c65035201.cfilter,1,nil) and Duel.GetMatchingGroupCount(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,nil)>0 and not eg:IsContains(e:GetHandler())
      end
      function c65035201.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsDiscardable() end
      Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
      end
      function c65035201.thfilter(c)
      return c:IsSetCard(0xcdab) and c:IsSSetable()
      end
      function c65035201.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035201.thfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c65035201.thop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.SelectMatchingCard(tp,c65035201.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg then
      Duel.SSet(tp,tg)
      end
      end
      expansions/script/c65035202.lua deleted 100644 → 0
      View file @ b5096be1
      --徵之琴
      function c65035202.initial_effect(c)
      --damage
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035202,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(c65035202.damcon2)
      e2:SetOperation(c65035202.damop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(65035202,0))
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,65035202)
      e1:SetCost(c65035202.thcost)
      e1:SetTarget(c65035202.thtg)
      e1:SetOperation(c65035202.thop)
      c:RegisterEffect(e1)
      if c65035202.counter==nil then
      c65035202.counter=true
      c65035202.count=0
      c65035202.list={}
      local ge2=Effect.CreateEffect(c)
      ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
      ge2:SetOperation(c65035202.resetcount)
      Duel.RegisterEffect(ge2,0)
      local ge3=Effect.CreateEffect(c)
      ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge3:SetCode(EVENT_BECOME_TARGET)
      ge3:SetOperation(c65035202.addcount)
      Duel.RegisterEffect(ge3,0)
      end
      end
      function c65035202.resetcount(e,tp,eg,ep,ev,re,r,rp)
      c65035202.count=0
      c65035202.list={}
      end
      function c65035202.addf(c,re)
      return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
      end
      function c65035202.addcount(e,tp,eg,ep,ev,re,r,rp)
      local g=eg:Filter(c65035202.addf,nil,re)
      if g:GetCount()>0 then
      local gc=g:GetFirst()
      while gc do
      local yes=true
      if c65035202.count>0 then
      for i=0,c65035202.count-1 do
      if gc:GetCode()==c65035202.list[i] then yes=false end
      end
      end
      if yes then
      c65035202.list[c65035202.count]=gc:GetCode()
      c65035202.count=c65035202.count+1
      end
      gc=g:GetNext()
      end
      end
      end
      function c65035202.damop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,65035202)
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      function c65035202.cfilter(c)
      local yes=false
      if c65035202.count>0 then
      for i=0,c65035202.count do
      if c:GetCode()==c65035202.list[i] then yes=true end
      end
      end
      return yes
      end
      function c65035202.damcon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c65035202.cfilter,1,nil) and not eg:IsContains(e:GetHandler())
      end
      function c65035202.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsReleasable() end
      Duel.Release(c,REASON_COST)
      end
      function c65035202.thfilter(c)
      return c:IsSetCard(0xcdab) and c:IsAbleToHand()
      end
      function c65035202.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035202.thfilter,tp,LOCATION_DECK,0,2,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK)
      end
      function c65035202.thop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.SelectMatchingCard(tp,c65035202.thfilter,tp,LOCATION_DECK,0,2,2,nil)
      if tg then
      Duel.SendtoHand(tg,tp,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tg)
      end
      end
      expansions/script/c65035203.lua deleted 100644 → 0
      View file @ b5096be1
      --羽之角
      function c65035203.initial_effect(c)
      --damage
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035203,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(c65035203.damcon2)
      e2:SetOperation(c65035203.damop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(65035203,0))
      e1:SetCategory(CATEGORY_TOHAND)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_GRAVE)
      e1:SetCountLimit(1,65035203)
      e1:SetCost(aux.bfgcost)
      e1:SetTarget(c65035203.thtg)
      e1:SetOperation(c65035203.thop)
      c:RegisterEffect(e1)
      if c65035203.counter==nil then
      c65035203.counter=true
      c65035203.count=0
      c65035203.list={}
      local ge2=Effect.CreateEffect(c)
      ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
      ge2:SetOperation(c65035203.resetcount)
      Duel.RegisterEffect(ge2,0)
      local ge3=Effect.CreateEffect(c)
      ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge3:SetCode(EVENT_BECOME_TARGET)
      ge3:SetOperation(c65035203.addcount)
      Duel.RegisterEffect(ge3,0)
      end
      end
      function c65035203.resetcount(e,tp,eg,ep,ev,re,r,rp)
      c65035203.count=0
      c65035203.list={}
      end
      function c65035203.addf(c,re)
      return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
      end
      function c65035203.addcount(e,tp,eg,ep,ev,re,r,rp)
      local g=eg:Filter(c65035203.addf,nil,re)
      if g:GetCount()>0 then
      local gc=g:GetFirst()
      while gc do
      local yes=true
      if c65035203.count>0 then
      for i=0,c65035203.count-1 do
      if gc:GetCode()==c65035203.list[i] then yes=false end
      end
      end
      if yes then
      c65035203.list[c65035203.count]=gc:GetCode()
      c65035203.count=c65035203.count+1
      end
      gc=g:GetNext()
      end
      end
      end
      function c65035203.damop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,65035203)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,0,LOCATION_EXTRA,1,1,nil)
      local sg=g:RandomSelect(tp,1)
      Duel.HintSelection(sg)
      Duel.SendtoGrave(sg,REASON_EFFECT)
      end
      function c65035203.cfilter(c)
      local yes=false
      if c65035203.count>0 then
      for i=0,c65035203.count do
      if c:GetCode()==c65035203.list[i] then yes=true end
      end
      end
      return yes
      end
      function c65035203.damcon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c65035203.cfilter,1,nil) and Duel.GetMatchingGroupCount(Card.IsAbleToGrave,tp,0,LOCATION_EXTRA,nil)>0 and not eg:IsContains(e:GetHandler())
      end
      function c65035203.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsDiscardable() end
      Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
      end
      function c65035203.fil(c)
      return c:IsSetCard(0xcdab) and c:IsAbleToHand()
      end
      function c65035203.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return c65035203.fil(chkc) and chkc:IsLocation(LOCATION_GRAVE) and chkc~=e:GetHandler() and chkc:IsControler(tp) end
      if chk==0 then return Duel.IsExistingTarget(c65035203.fil,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
      local g=Duel.SelectTarget(tp,c65035203.fil,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c65035203.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SendtoHand(tc,tp,REASON_EFFECT)
      end
      end
      expansions/script/c65035204.lua deleted 100644 → 0
      View file @ b5096be1
      --千幻曲之间
      function c65035204.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:SetTarget(c65035204.target)
      e1:SetOperation(c65035204.activate)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035204,0))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_FZONE)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetCountLimit(1,65035204)
      e2:SetTarget(c65035204.thtg)
      e2:SetOperation(c65035204.thop)
      c:RegisterEffect(e2)
      --immune spell
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetCode(EFFECT_IMMUNE_EFFECT)
      e3:SetRange(LOCATION_FZONE)
      e3:SetTargetRange(0xff,0)
      e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xcdab))
      e3:SetValue(c65035204.efilter)
      c:RegisterEffect(e3)
      if c65035204.counter==nil then
      c65035204.counter=true
      c65035204.count=0
      c65035204.list={}
      local ge2=Effect.CreateEffect(c)
      ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
      ge2:SetOperation(c65035204.resetcount)
      Duel.RegisterEffect(ge2,0)
      local ge3=Effect.CreateEffect(c)
      ge3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      ge3:SetCode(EVENT_BECOME_TARGET)
      ge3:SetOperation(c65035204.addcount)
      Duel.RegisterEffect(ge3,0)
      end
      end
      function c65035204.cfilter(c)
      local yes=false
      if c65035204.count>0 then
      for i=0,c65035204.count do
      if c:GetCode()==c65035204.list[i] then yes=true end
      end
      end
      return yes
      end
      function c65035204.efilter(e,te)
      return c65035204.cfilter(te:GetHandler()) and te:IsActiveType(TYPE_MONSTER)
      end
      function c65035204.resetcount(e,tp,eg,ep,ev,re,r,rp)
      c65035204.count=0
      c65035204.list={}
      end
      function c65035204.addf(c,re)
      return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0xcdab)
      end
      function c65035204.addcount(e,tp,eg,ep,ev,re,r,rp)
      local g=eg:Filter(c65035204.addf,nil,re)
      if g:GetCount()>0 then
      local gc=g:GetFirst()
      while gc do
      local yes=true
      if c65035204.count>0 then
      for i=0,c65035204.count-1 do
      if gc:GetCode()==c65035204.list[i] then yes=false end
      end
      end
      if yes then
      c65035204.list[c65035204.count]=gc:GetCode()
      c65035204.count=c65035204.count+1
      end
      gc=g:GetNext()
      end
      end
      end
      function c65035204.thfilter(c)
      return c:IsSetCard(0xcdab) and c:IsSSetable()
      end
      function c65035204.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035204.thfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c65035204.thop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.SelectMatchingCard(tp,c65035204.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg then
      Duel.SSet(tp,tg)
      end
      end
      function c65035204.filter(c)
      return c:IsSetCard(0xcdab) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c65035204.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035204.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c65035204.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c65035204.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
      expansions/script/c65035205.lua deleted 100644 → 0
      View file @ b5096be1
      --千幻曲的记谱
      function c65035205.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(c65035205.target)
      e1:SetOperation(c65035205.activate)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035205,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,65035205)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c65035205.thtg)
      e2:SetOperation(c65035205.thop)
      c:RegisterEffect(e2)
      end
      function c65035205.thfilter(c)
      return c:IsSetCard(0xcdab) and c:IsSSetable()
      end
      function c65035205.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035205.thfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c65035205.thop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.SelectMatchingCard(tp,c65035205.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg then
      Duel.SSet(tp,tg)
      end
      end
      function c65035205.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
      end
      function c65035205.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      local code=tc:GetCode()
      local c=e:GetHandler()
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_FIELD)
      e0:SetCode(EFFECT_CHANGE_CODE)
      e0:SetValue(code)
      e0:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e0:SetTarget(c65035205.ooo)
      e0:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e0,tp)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetReset(RESET_PHASE+PHASE_END)
      e1:SetLabel(code)
      e1:SetLabelObject(e0)
      e1:SetOperation(c65035205.disop)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function c65035205.ooo(e,c)
      return c:IsSummonType(SUMMON_TYPE_SPECIAL)
      end
      function c65035205.disop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,65035205)
      local ec=eg:GetFirst()
      while ec do
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_CHANGE_CODE)
      e1:SetValue(e:GetLabel())
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      ec:RegisterEffect(e1)
      ec=eg:GetNext()
      end
      e:Reset()
      e:GetLabelObject():Reset()
      end
      \ No newline at end of file
      expansions/script/c65035206.lua deleted 100644 → 0
      View file @ b5096be1
      --千幻曲的试奏
      function c65035206.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(c65035206.target)
      e1:SetOperation(c65035206.activate)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035206,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,65035206)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c65035206.thtg)
      e2:SetOperation(c65035206.thop)
      c:RegisterEffect(e2)
      end
      function c65035206.thfilter(c)
      return c:IsSetCard(0xcdab) and c:IsSSetable()
      end
      function c65035206.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035206.thfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c65035206.thop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.SelectMatchingCard(tp,c65035206.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg then
      Duel.SSet(tp,tg)
      end
      end
      function c65035206.spfil(c,e,tp)
      return c:IsSetCard(0xcdab) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c65035206.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) and Duel.IsExistingMatchingCard(c65035206.spfil,tp,LOCATION_DECK,0,1,nil,e,tp) and Duel.GetMZoneCount(tp)>0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function c65035206.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.GetMZoneCount(tp)>0 then
      local code=tc:GetCode()
      local c=e:GetHandler()
      local g=Duel.SelectMatchingCard(tp,c65035206.spfil,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      local gc=g:GetFirst()
      Duel.SpecialSummonStep(gc,0,tp,tp,false,false,POS_FACEUP)
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetCode(EFFECT_CHANGE_CODE)
      e0:SetValue(code)
      e0:SetReset(RESET_EVENT+RESETS_STANDARD)
      gc:RegisterEffect(e0)
      Duel.SpecialSummonComplete()
      end
      end
      end
      \ No newline at end of file
      expansions/script/c65035207.lua deleted 100644 → 0
      View file @ b5096be1
      --千幻曲的编织
      function c65035207.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(c65035207.target)
      e1:SetOperation(c65035207.activate)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035207,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,65035207)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c65035207.thtg)
      e2:SetOperation(c65035207.thop)
      c:RegisterEffect(e2)
      end
      function c65035207.thfilter(c)
      return c:IsSetCard(0xcdab) and c:IsSSetable()
      end
      function c65035207.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035207.thfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c65035207.thop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.SelectMatchingCard(tp,c65035207.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg then
      Duel.SSet(tp,tg)
      end
      end
      function c65035207.spfil(c,e,tp,code)
      return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c65035207.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) and Duel.IsPlayerCanSpecialSummon(1-tp) and Duel.GetMZoneCount(1-tp)>0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,1-tp,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA+LOCATION_GRAVE)
      end
      function c65035207.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.GetMZoneCount(1-tp)>0 then
      local code=tc:GetCode()
      local g=Duel.SelectMatchingCard(1-tp,c65035207.spfil,1-tp,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil,e,1-tp,tc:GetCode())
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,1-tp,1-tp,false,false,POS_FACEUP)
      end
      end
      end
      expansions/script/c65035208.lua deleted 100644 → 0
      View file @ b5096be1
      --灿滥的千幻曲
      function c65035208.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_REMOVE+CATEGORY_GRAVE_ACTION)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,65035208)
      e1:SetTarget(c65035208.target)
      e1:SetOperation(c65035208.activate)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035208,0))
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,65035209)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c65035208.thtg)
      e2:SetOperation(c65035208.thop)
      c:RegisterEffect(e2)
      end
      function c65035208.thfilter(c)
      return c:IsSetCard(0xcdab) and c:IsSSetable()
      end
      function c65035208.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035208.thfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c65035208.thop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.SelectMatchingCard(tp,c65035208.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg then
      Duel.SSet(tp,tg)
      end
      end
      function c65035208.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
      end
      function c65035208.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      local code=tc:GetCode()
      local c=e:GetHandler()
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035208,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetLabel(code)
      e2:SetReset(RESET_PHASE+PHASE_END)
      e2:SetCondition(c65035208.damcon2)
      e2:SetOperation(c65035208.damop)
      Duel.RegisterEffect(e2,tp)
      end
      end
      function c65035208.damop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,65035208)
      local g=Duel.SelectMatchingCard(1-tp,Card.IsAbleToRemove,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_EXTRA,1,1,nil)
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      end
      function c65035208.cfilter(c,code)
      return c:IsFaceup() and c:IsCode(code)
      end
      function c65035208.damcon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c65035208.cfilter,1,nil,e:GetLabel()) and Duel.GetMatchingGroupCount(Card.IsAbleToRemove,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_EXTRA,nil)>0
      end
      \ No newline at end of file
      expansions/script/c65035210.lua deleted 100644 → 0
      View file @ b5096be1
      --至理的千幻曲
      function c65035210.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,65035210)
      e1:SetTarget(c65035210.target)
      e1:SetOperation(c65035210.activate)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035210,0))
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,65035211)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c65035210.thtg)
      e2:SetOperation(c65035210.thop)
      c:RegisterEffect(e2)
      end
      function c65035210.thfilter(c)
      return c:IsSetCard(0xcdab) and c:IsSSetable()
      end
      function c65035210.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035210.thfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c65035210.thop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.SelectMatchingCard(tp,c65035210.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg then
      Duel.SSet(tp,tg)
      end
      end
      function c65035210.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
      end
      function c65035210.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      local code=tc:GetCode()
      local c=e:GetHandler()
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035210,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetLabel(code)
      e2:SetReset(RESET_PHASE+PHASE_END)
      e2:SetCondition(c65035210.damcon2)
      e2:SetOperation(c65035210.damop)
      Duel.RegisterEffect(e2,tp)
      end
      end
      function c65035210.damop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,65035210)
      local g=Duel.SelectMatchingCard(tp,c65035210.tdfil,tp,LOCATION_REMOVED,0,3,3,nil)
      Duel.HintSelection(g)
      Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
      Duel.ShuffleDeck(tp)
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      function c65035210.cfilter(c,code)
      return c:IsFaceup() and c:IsCode(code)
      end
      function c65035210.tdfil(c)
      return c:IsFaceup() and c:IsSetCard(0xcdab) and c:IsAbleToDeck()
      end
      function c65035210.damcon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c65035210.cfilter,1,nil,e:GetLabel()) and Duel.GetMatchingGroupCount(c65035210.tdfil,tp,LOCATION_REMOVED,0,nil)>=3
      end
      expansions/script/c65035212.lua deleted 100644 → 0
      View file @ b5096be1
      --入魂的千幻曲
      function c65035212.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,65035212)
      e1:SetTarget(c65035212.target)
      e1:SetOperation(c65035212.activate)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035212,0))
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,65035213)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c65035212.thtg)
      e2:SetOperation(c65035212.thop)
      c:RegisterEffect(e2)
      end
      function c65035212.thfilter(c)
      return c:IsSetCard(0xcdab) and c:IsSSetable()
      end
      function c65035212.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035212.thfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c65035212.thop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.SelectMatchingCard(tp,c65035212.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg then
      Duel.SSet(tp,tg)
      end
      end
      function c65035212.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
      end
      function c65035212.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      local code=tc:GetCode()
      local c=e:GetHandler()
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035212,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetLabel(code)
      e2:SetReset(RESET_PHASE+PHASE_END)
      e2:SetCondition(c65035212.damcon2)
      e2:SetOperation(c65035212.damop)
      Duel.RegisterEffect(e2,tp)
      end
      end
      function c65035212.damop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,65035212)
      local g=Duel.GetMatchingGroup(c65035212.tdfil,tp,LOCATION_MZONE,0,nil)
      local gc=g:GetFirst()
      while gc do
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
      e1:SetValue(800)
      gc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_UPDATE_DEFENSE)
      gc:RegisterEffect(e2)
      gc=g:GetNext()
      end
      end
      function c65035212.cfilter(c,code)
      return c:IsFaceup() and c:IsCode(code)
      end
      function c65035212.tdfil(c)
      return c:IsFaceup()
      end
      function c65035212.damcon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c65035212.cfilter,1,nil,e:GetLabel()) and Duel.GetMatchingGroupCount(c65035212.tdfil,tp,LOCATION_MZONE,0,nil)>0
      end
      expansions/script/c65035214.lua deleted 100644 → 0
      View file @ b5096be1
      --希声的千幻曲
      function c65035214.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,65035214)
      e1:SetTarget(c65035214.target)
      e1:SetOperation(c65035214.activate)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035214,0))
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,65035215)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c65035214.thtg)
      e2:SetOperation(c65035214.thop)
      c:RegisterEffect(e2)
      end
      function c65035214.thfilter(c)
      return c:IsSetCard(0xcdab) and c:IsSSetable()
      end
      function c65035214.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(c65035214.thfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c65035214.thop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.SelectMatchingCard(tp,c65035214.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg then
      Duel.SSet(tp,tg)
      end
      end
      function c65035214.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
      end
      function c65035214.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      local code=tc:GetCode()
      local c=e:GetHandler()
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65035214,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetLabel(code)
      e2:SetReset(RESET_PHASE+PHASE_END)
      e2:SetCondition(c65035214.damcon2)
      e2:SetOperation(c65035214.damop)
      Duel.RegisterEffect(e2,tp)
      end
      end
      function c65035214.damop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.SelectYesNo(tp,aux.Stringid(65035214,0)) then return end
      Duel.Hint(HINT_CARD,0,65035214)
      local g=Duel.SelectMatchingCard(tp,c65035214.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      function c65035214.cfilter(c,code)
      return c:IsFaceup() and c:IsCode(code)
      end
      function c65035214.spfilter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0xcdab)
      end
      function c65035214.damcon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c65035214.cfilter,1,nil,e:GetLabel()) and Duel.GetMZoneCount(tp)>0 and Duel.IsExistingMatchingCard(c65035214.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)
      end
      expansions/script/c65830000.lua deleted 100644 → 0
      View file @ b5096be1
      --植物娘·向日葵
      function c65830000.initial_effect(c)
      aux.AddLinkProcedure(c,c65830000.mat,1,1)
      c:EnableReviveLimit()
      --连接召唤效果
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetCountLimit(1,65830000)
      e1:SetCondition(c65830000.scon)
      e1:SetTarget(c65830000.target1)
      e1:SetOperation(c65830000.activate1)
      c:RegisterEffect(e1)
      --加通召
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetCondition(c65830000.scon)
      e2:SetOperation(c65830000.sumop)
      c:RegisterEffect(e2)
      end
      function c65830000.mat(c)
      return c:IsLinkSetCard(0xa33) and c:IsType(TYPE_MONSTER) and not c:IsLinkType(TYPE_LINK)
      end
      function c65830000.scon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
      end
      function c65830000.filter(c)
      return c:IsSetCard(0xa33) and c:IsAbleToHand()
      end
      function c65830000.target1(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c65830000.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c65830000.activate1(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c65830000.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 c65830000.sumop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetFlagEffect(tp,65830000)~=0 then return end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetDescription(aux.Stringid(65830000,0))
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0)
      e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xa33))
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      Duel.RegisterFlagEffect(tp,65830000,RESET_PHASE+PHASE_END,0,1)
      end
      \ No newline at end of file
      expansions/script/c65830005.lua deleted 100644 → 0
      View file @ b5096be1
      --植物娘·睡莲
      function c65830005.initial_effect(c)
      --墓地跳
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(65830005,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetRange(LOCATION_GRAVE)
      e1:SetCountLimit(1,65830005)
      e1:SetLabelObject(e0)
      e1:SetCondition(c65830005.spcon)
      e1:SetTarget(c65830005.sptg)
      e1:SetOperation(c65830005.spop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --特招
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_EQUIP)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,65830006)
      e3:SetTarget(c65830005.target)
      e3:SetOperation(c65830005.operation)
      c:RegisterEffect(e3)
      end
      function c65830005.cfilter(c,tp,se)
      return c:IsFaceup() and c:IsSummonPlayer(tp) and c:IsSetCard(0xa33)
      end
      function c65830005.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c65830005.cfilter,1,nil,tp)
      end
      function c65830005.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c65830005.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      function c65830005.filter(c,e,tp)
      return c:IsSetCard(0xa33) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c65830005.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingMatchingCard(c65830005.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
      end
      function c65830005.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g = Duel.SelectMatchingCard(tp,c65830005.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) and c:IsRelateToEffect(e) then
      local tc=g:GetFirst()
      Duel.BreakEffect()
      Duel.Equip(tp,c,tc)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetLabelObject(tc)
      e1:SetValue(c65830005.eqlimit)
      c:RegisterEffect(e1)
      end
      end
      function c65830005.eqlimit(e,c)
      return c==e:GetLabelObject()
      end
      expansions/script/c65830010.lua deleted 100644 → 0
      View file @ b5096be1
      --植物娘·香蒲
      function c65830010.initial_effect(c)
      c:SetSPSummonOnce(65830010)
      --特招手续
      c:EnableReviveLimit()
      aux.AddFusionProcFunRep(c,c65830010.ffilter,1,false)
      aux.AddContactFusionProcedure(c,Card.IsAbleToGraveAsCost,LOCATION_ONFIELD,0,Duel.SendtoGrave,REASON_COST)
      --不能融合
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      c:RegisterEffect(e1)
      --炸场上
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(65830010,0))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,65830010)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetTarget(c65830010.destg)
      e2:SetOperation(c65830010.desop)
      c:RegisterEffect(e2)
      --炸连锁
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(65830010,1))
      e3:SetCategory(CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_CHAINING)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,65830010)
      e3:SetCondition(c65830010.condition)
      e3:SetTarget(c65830010.target)
      e3:SetOperation(c65830010.operation)
      c:RegisterEffect(e3)
      end
      function c65830010.ffilter(c,fc,sub,mg,sg)
      return c:IsCode(65830005)
      end
      function c65830010.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() end
      if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function c65830010.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then Duel.Destroy(tc,REASON_EFFECT) end
      end
      function c65830010.condition(e,tp,eg,ep,ev,re,r,rp)
      local tc=re:GetHandler()
      return tc:IsControler(1-tp) and tc:IsRelateToEffect(re)
      end
      function c65830010.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return re:GetHandler():IsDestructable() end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
      end
      function c65830010.operation(e,tp,eg,ep,ev,re,r,rp)
      if re:GetHandler():IsRelateToEffect(re) then
      Duel.Destroy(eg,REASON_EFFECT)
      end
      end
      expansions/script/c65830015.lua deleted 100644 → 0
      View file @ b5096be1
      --植物娘·玉米投手
      function c65830015.initial_effect(c)
      --特招
      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:SetCountLimit(1,65830015+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(c65830015.spcon)
      c:RegisterEffect(e1)
      --无效
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DISABLE)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_CHAINING)
      e2:SetCountLimit(1,65830016)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(c65830015.discon)
      e2:SetCost(c65830015.discost)
      e2:SetTarget(c65830015.distg)
      e2:SetOperation(c65830015.disop)
      c:RegisterEffect(e2)
      end
      function c65830015.filter(c)
      return c:IsSetCard(0xa33) and c:IsFaceup()
      end
      function c65830015.spcon(e,c)
      if c==nil then return true end
      return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c65830015.filter,c:GetControler(),LOCATION_MZONE,0,1,nil)
      end
      function c65830015.discon(e,tp,eg,ep,ev,re,r,rp)
      return ep~=tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev)
      end
      function c65830015.discost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsReleasable() end
      Duel.Release(e:GetHandler(),REASON_COST)
      end
      function c65830015.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
      end
      function c65830015.disop(e,tp,eg,ep,ev,re,r,rp)
      local rc=re:GetHandler()
      Duel.NegateEffect(ev)
      end
      expansions/script/c65830020.lua deleted 100644 → 0
      View file @ b5096be1
      --植物娘·火爆辣椒
      function c65830020.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCondition(c65830020.setcon)
      e1:SetTarget(c65830020.target)
      e1:SetOperation(c65830020.activate)
      c:RegisterEffect(e1)
      end
      function c65830020.filter(c,e,tp)
      return c:IsSetCard(0xa33) and c:IsFaceup()
      end
      function c65830020.setcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c65830020.filter,tp,LOCATION_MZONE,0,1,nil)
      end
      function c65830020.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end
      if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELECT)
      local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function c65830020.filter1(c,e,tp)
      return c:IsControler(1-tp)
      end
      function c65830020.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      local g=tc:GetColumnGroup():Filter(Card.IsControler,nil,1-tp)
      if tc:IsRelateToEffect(e) then
      if tc:IsControler(1-tp) then
      Duel.Destroy(tc,REASON_EFFECT)
      end
      if g:GetCount()>0 then
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c65830025.lua deleted 100644 → 0
      View file @ b5096be1
      --植物娘·双发射手
      function c65830025.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,65830025)
      e1:SetTarget(c65830025.target)
      e1:SetOperation(c65830025.activate)
      c:RegisterEffect(e1)
      --extra attack
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetCode(EFFECT_EXTRA_ATTACK)
      e4:SetValue(1)
      c:RegisterEffect(e4)
      end
      function c65830025.filter(c,e,tp)
      return c:IsSetCard(0xa33) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND+LOCATION_GRAVE)
      end
      function c65830025.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c65830025.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
      end
      function c65830025.activate(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,aux.NecroValleyFilter(c65830025.filter),tp,LOCATION_HAND+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
      \ No newline at end of file
      expansions/script/c65830030.lua deleted 100644 → 0
      View file @ b5096be1
      --植物娘·胆小菇
      function c65830030.initial_effect(c)
      --自己特招
      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:SetCountLimit(1,65830030+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(c65830030.spcon)
      c:RegisterEffect(e1)
      --手卡特招
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,65830031)
      e3:SetCost(c65830030.cost3)
      e3:SetTarget(c65830030.target3)
      e3:SetOperation(c65830030.activate3)
      c:RegisterEffect(e3)
      end
      function c65830030.filter(c)
      return c:IsSetCard(0xa33) and c:IsFaceup()
      end
      function c65830030.spcon(e,c)
      if c==nil then return true end
      return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
      and (Duel.IsExistingMatchingCard(c65830030.filter,c:GetControler(),LOCATION_MZONE,0,1,nil) or Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0)
      end
      function c65830030.cost3(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToHandAsCost()
      end
      Duel.SendtoHand(e:GetHandler(),tp,REASON_COST)
      end
      function c65830030.spfilter(c,e,tp)
      return c:IsSetCard(0xa33) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c65830030.target3(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
      and Duel.IsExistingMatchingCard(c65830030.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
      end
      function c65830030.activate3(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,c65830030.spfilter,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
      \ No newline at end of file
      expansions/script/c65830035.lua deleted 100644 → 0
      View file @ b5096be1
      --植物娘·大嘴花
      function c65830035.initial_effect(c)
      --装备
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_REMOVE)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,65830035)
      e1:SetTarget(c65830035.Target1)
      e1:SetOperation(c65830035.activate1)
      c:RegisterEffect(e1)
      end
      function c65830035.nbfilter(c)
      return c:IsAbleToRemove(tp,POS_FACEDOWN,REASON_EFFECT) and c:IsType(TYPE_MONSTER)
      end
      function c65830035.Target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsOnField() and c65830035.nbfilter(chkc) and c~=chkc end
      if chk==0 then return Duel.IsExistingTarget(c65830035.nbfilter,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectTarget(tp,c65830035.nbfilter,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE,1,1,c)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      end
      function c65830035.activate1(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and c:IsType(TYPE_MONSTER) then
      Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c65830040.lua deleted 100644 → 0
      View file @ b5096be1
      --植物娘·大蒜
      function c65830040.initial_effect(c)
      --destroy
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(65830040,0))
      e1:SetCategory(CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e1:SetCode(EVENT_BATTLE_START)
      e1:SetTarget(c65830040.destg)
      e1:SetOperation(c65830040.desop)
      c:RegisterEffect(e1)
      --atk limit
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetRange(LOCATION_MZONE)
      e2:SetTargetRange(0,LOCATION_MZONE)
      e2:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
      e2:SetValue(c65830040.atlimit)
      c:RegisterEffect(e2)
      end
      function c65830040.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local tc=Duel.GetAttacker()
      if tc==c then tc=Duel.GetAttackTarget() end
      if chk==0 then return tc end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,tc,1,0,0)
      end
      function c65830040.desop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetAttacker()
      if tc==c then tc=Duel.GetAttackTarget() end
      if tc:IsRelateToBattle() then Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT) end
      end
      function c65830040.atlimit(e,c)
      return c~=e:GetHandler()
      end
      \ No newline at end of file
      expansions/script/c65830045.lua deleted 100644 → 0
      View file @ b5096be1
      --种子雨
      function c65830045.initial_effect(c)
      --检索
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(65830045,0))
      e1:SetCategory(CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCountLimit(1,65830045+EFFECT_COUNT_CODE_OATH)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetOperation(c65830045.activate)
      c:RegisterEffect(e1)
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_HANDES+CATEGORY_SEARCH)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1)
      e3:SetTarget(c65830045.drawtg)
      e3:SetOperation(c65830045.drawop)
      c:RegisterEffect(e3)
      end
      function c65830045.thfilter(c)
      return c:IsSetCard(0xa33) and c:IsAbleToHand()
      end
      function c65830045.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(c65830045.thfilter,tp,LOCATION_DECK,0,nil)
      if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(65830045,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local sg=g:Select(tp,1,1,nil)
      Duel.SendtoHand(sg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,sg)
      end
      end
      function c65830045.filter2(e,c)
      return c:IsSetCard(0xa33) and c:IsAbleToHand()
      end
      function c65830045.filter1(c)
      return c:IsDiscardable(REASON_EFFECT)
      end
      function c65830045.drawtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(c65830045.filter2,tp,LOCATION_DECK,0,1,nil,c) and Duel.IsExistingMatchingCard(c65830045.filter1,tp,LOCATION_HAND,0,1,nil,c) end
      Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,1,tp,LOCATION_HAND)
      Duel.SetOperationInfo(0,CATEGORY_SEARCH,nil,1,tp,LOCATION_DECK)
      end
      function c65830045.drawop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c65830045.thfilter,tp,LOCATION_DECK,0,1,1,nil,c)
      if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_HAND) then
      Duel.ConfirmCards(1-tp,g)
      Duel.ShuffleHand(tp)
      Duel.BreakEffect()
      Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD,nil,c)
      end
      end
      \ No newline at end of file
      expansions/script/c65830050.lua deleted 100644 → 0
      View file @ b5096be1
      --植物娘·咖啡豆
      function c65830050.initial_effect(c)
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DECKDES+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetCountLimit(1,65830050)
      e2:SetCost(c65830050.cost2)
      e2:SetTarget(c65830050.target2)
      e2:SetOperation(c65830050.activate2)
      c:RegisterEffect(e2)
      end
      function c65830050.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
      Duel.SendtoGrave(e:GetHandler(),REASON_COST)
      end
      function c65830050.spfilter(c,e,tp)
      return c:IsSetCard(0xa33) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c65830050.target2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c65830050.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
      end
      function c65830050.activate2(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,c65830050.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      \ No newline at end of file
      expansions/script/c65830055.lua deleted 100644 → 0
      View file @ b5096be1
      --超乎寻常的压力
      function c65830055.initial_effect(c)
      c:SetUniqueOnField(1,0,65830055)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --negate
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_CHAIN_SOLVING)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(c65830055.negcon)
      e2:SetOperation(c65830055.negop)
      c:RegisterEffect(e2)
      end
      function c65830055.cfilter(c)
      return c:IsFaceup() and c:IsSetCard(0xa33) and c:IsType(TYPE_MONSTER)
      end
      function c65830055.negcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c65830055.cfilter,tp,LOCATION_MZONE,0,1,nil)
      and rp==1-tp and (re:IsActiveType(TYPE_TRAP) or re:IsActiveType(TYPE_SPELL))
      end
      function c65830055.negop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,65830055)
      local rc=re:GetHandler()
      if Duel.NegateEffect(ev,true) and rc:IsRelateToEffect(re) then
      Duel.Destroy(rc,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c71400020.lua
      View file @ ad8864a6
      ......@@ -7,7 +7,7 @@ function c71400020.initial_effect(c)
      e1:SetDescription(aux.Stringid(71400020,0))
      e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCondition(c71400020.con1)
      e1:SetTarget(c71400020.tg1)
      e1:SetOperation(c71400020.op1)
      ......
      expansions/script/c81057000.lua deleted 100644 → 0
      View file @ b5096be1
      --水晶艾蕾娜
      local m=81057000
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      c:EnableReviveLimit()
      --link summon
      aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsSummonType,SUMMON_TYPE_ADVANCE),1,1)
      --cannot be link material
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e0:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
      e0:SetValue(1)
      c:RegisterEffect(e0)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_RELEASE)
      e2:SetCountLimit(1,m)
      e2:SetCondition(cm.thcon)
      e2:SetTarget(cm.thtg)
      e2:SetOperation(cm.thop)
      c:RegisterEffect(e2)
      end
      function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsReason(REASON_SUMMON)
      end
      function cm.filter(c)
      return c:IsLevelAbove(5) and c:IsAbleToHand()
      end
      function cm.thtg(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.thop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,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
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e2:SetReset(RESET_PHASE+PHASE_END)
      e2:SetTargetRange(1,0)
      Duel.RegisterEffect(e2,tp)
      end
      expansions/script/c81057001.lua deleted 100644 → 0
      View file @ b5096be1
      --水晶艾蕾娜·换衣
      local m=81057001
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      c:EnableReviveLimit()
      --link summon
      aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsSummonType,SUMMON_TYPE_NORMAL),1,1)
      --cannot be link material
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e0:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
      e0:SetValue(1)
      c:RegisterEffect(e0)
      --double tribute
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetCode(EFFECT_DOUBLE_TRIBUTE)
      e0:SetValue(1)
      c:RegisterEffect(e0)
      --return
      local e1=Effect.CreateEffect(c)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_GRAVE)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.condition)
      e1:SetCost(aux.bfgcost)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.operation)
      c:RegisterEffect(e1)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.filter(c)
      return c:IsFaceup() and c:IsSummonType(SUMMON_TYPE_NORMAL) and c:IsLevelAbove(5) and c:IsAbleToHand()
      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(tp) and cm.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function cm.sumfilter(c)
      return c:IsLevelAbove(7) and c:IsSummonable(true,nil)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) then
      if Duel.IsExistingMatchingCard(cm.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil)
      and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
      Duel.Summon(tp,g:GetFirst(),true,nil)
      end
      end
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e2:SetReset(RESET_PHASE+PHASE_END)
      e2:SetTargetRange(1,0)
      Duel.RegisterEffect(e2,tp)
      end
      expansions/script/c81057002.lua deleted 100644 → 0
      View file @ b5096be1
      --水晶艾蕾娜·旧约
      local m=81057002
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcFunRep(c,cm.ffilter,2,false)
      --todeck
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_BATTLE_START)
      e1:SetCountLimit(1)
      e1:SetCondition(cm.tdcon)
      e1:SetTarget(cm.tdtg)
      e1:SetOperation(cm.tdop)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_DESTROYED)
      e2:SetCountLimit(1,m)
      e2:SetCondition(cm.srcon)
      e2:SetCost(cm.srcost)
      e2:SetTarget(cm.srtg)
      e2:SetOperation(cm.srop)
      c:RegisterEffect(e2)
      --destroy replace
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e3:SetCode(EFFECT_DESTROY_REPLACE)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetTarget(cm.reptg)
      e3:SetValue(cm.repval)
      e3:SetOperation(cm.repop)
      c:RegisterEffect(e3)
      Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
      end
      function cm.counterfilter(c)
      return (c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_DARK)) or c:IsSummonableCard()
      end
      function cm.ffilter(c)
      return c:IsFusionType(TYPE_EFFECT) and c:IsSummonType(SUMMON_TYPE_NORMAL) and c:IsOnField()
      end
      function cm.tdcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local bc=c:GetBattleTarget()
      return bc and bc:IsSummonType(SUMMON_TYPE_SPECIAL)
      end
      function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local bc=c:GetBattleTarget()
      if chk==0 then return bc and bc:IsRelateToBattle() and bc:IsAbleToDeck() end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,bc,1,0,0)
      end
      function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local bc=c:GetBattleTarget()
      if not bc:IsRelateToBattle() then return false end
      Duel.SendtoDeck(bc,nil,2,REASON_EFFECT)
      end
      function cm.repfilter(c,tp)
      return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsType(TYPE_MONSTER) and c:IsSummonType(SUMMON_TYPE_NORMAL)
      and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
      end
      function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(cm.repfilter,1,nil,tp) end
      return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
      end
      function cm.repval(e,c)
      return cm.repfilter(c,e:GetHandlerPlayer())
      end
      function cm.repop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
      end
      function cm.srcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsReason(REASON_BATTLE+REASON_EFFECT)
      end
      function cm.srcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetReset(RESET_PHASE+PHASE_END)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
      return not ((c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_DARK)) or c:IsSummonableCard())
      end
      function cm.srfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsSummonableCard() and c:IsAbleToHand()
      end
      function cm.srtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.srfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.srop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.srfilter,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
      expansions/script/c81057003.lua deleted 100644 → 0
      View file @ b5096be1
      --水晶艾蕾娜·烟花
      local m=81057003
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      --summon proc
      local e0=Effect.CreateEffect(c)
      e0:SetDescription(aux.Stringid(m,0))
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetCode(EFFECT_SUMMON_PROC)
      e0:SetCondition(cm.sumcon)
      e0:SetOperation(cm.sumop)
      e0:SetValue(SUMMON_TYPE_ADVANCE)
      c:RegisterEffect(e0)
      --disable effect
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_CHAIN_SOLVING)
      e1:SetRange(LOCATION_MZONE)
      e1:SetOperation(cm.disop)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,m)
      e2:SetCondition(cm.descon)
      e2:SetTarget(cm.destg)
      e2:SetOperation(cm.desop)
      c:RegisterEffect(e2)
      end
      function cm.refil(c)
      return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_LINK)
      end
      function cm.sumcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
      end
      function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
      local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function cm.disop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_REMOVED and re:IsActiveType(TYPE_MONSTER) then
      Duel.NegateEffect(ev)
      end
      end
      function cm.descon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
      end
      function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetFieldGroup(tp,0,LOCATION_MZONE)
      if chk==0 then return #g>0 end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0)
      end
      function cm.desop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local tc=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_MZONE,1,1,nil):GetFirst()
      if tc and Duel.Destroy(tc,REASON_EFFECT)~=0 then
      Duel.Damage(1-tp,tc:GetBaseAttack(),REASON_EFFECT)
      end
      end
      expansions/script/c81057004.lua deleted 100644 → 0
      View file @ b5096be1
      --水晶艾蕾娜·沉浮
      local m=81057004
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      --summon proc
      local e0=Effect.CreateEffect(c)
      e0:SetDescription(aux.Stringid(m,0))
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetCode(EFFECT_SUMMON_PROC)
      e0:SetCondition(cm.sumcon)
      e0:SetOperation(cm.sumop)
      e0:SetValue(SUMMON_TYPE_ADVANCE)
      c:RegisterEffect(e0)
      --disable effect
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_CHAIN_SOLVING)
      e1:SetRange(LOCATION_MZONE)
      e1:SetOperation(cm.disop)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,m)
      e2:SetCondition(cm.thcon)
      e2:SetTarget(cm.thtg)
      e2:SetOperation(cm.thop)
      c:RegisterEffect(e2)
      end
      function cm.refil(c)
      return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_PENDULUM)
      end
      function cm.sumcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
      end
      function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
      local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function cm.disop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_REMOVED and re:IsActiveType(TYPE_MONSTER) then
      Duel.NegateEffect(ev)
      end
      end
      function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
      end
      function cm.thfilter(c)
      return c:GetType()==TYPE_TRAP and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local dg=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)
      return dg:GetClassCount(Card.GetCode)>=3
      end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)
      if g:GetClassCount(Card.GetCode)>=3 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
      local sg1=g:SelectSubGroup(tp,aux.dncheck,false,3,3)
      Duel.ConfirmCards(1-tp,sg1)
      local cg=sg1:RandomSelect(1-tp,1)
      local tc=cg:GetFirst()
      tc:SetStatus(STATUS_TO_HAND_WITHOUT_CONFIRM,true)
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ShuffleDeck(tp)
      end
      end
      \ No newline at end of file
      expansions/script/c81057005.lua deleted 100644 → 0
      View file @ b5096be1
      --水晶艾蕾娜·夜蝶
      local m=81057005
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,m)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --summon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,m)
      e3:SetCost(cm.cost)
      e3:SetTarget(cm.target)
      e3:SetOperation(cm.operation)
      c:RegisterEffect(e3)
      end
      function cm.spfilter(c)
      return c:IsFaceup() and c:IsSummonType(SUMMON_TYPE_ADVANCE)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.spfilter(chkc) end
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingTarget(cm.spfilter,tp,LOCATION_MZONE,0,1,nil)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,1))
      Duel.SelectTarget(tp,cm.spfilter,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsImmuneToEffect(e) then return end
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
      e1:SetValue(1)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
      e2:SetValue(1)
      tc:RegisterEffect(e2)
      end
      end
      function cm.cfilter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemoveAsCost()
      end
      function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function cm.filter(c)
      return c:IsLevelAbove(5) and c:IsSummonable(true,nil)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil)
      local tc=g:GetFirst()
      if tc then
      Duel.Summon(tp,tc,true,nil)
      end
      end
      expansions/script/c81057006.lua deleted 100644 → 0
      View file @ b5096be1
      --水晶艾蕾娜·断罪
      local m=81057006
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_RELEASE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCondition(cm.spcon)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --tribute summon
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetHintTiming(0,TIMING_BATTLE_START+TIMING_BATTLE_END)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,m)
      e2:SetCondition(cm.sumcon)
      e2:SetTarget(cm.sumtg)
      e2:SetOperation(cm.sumop)
      c:RegisterEffect(e2)
      --
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_RELEASE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_RELEASE)
      e3:SetCountLimit(1,m+900)
      e3:SetCondition(cm.con)
      e3:SetTarget(cm.tg)
      e3:SetOperation(cm.op)
      c:RegisterEffect(e3)
      end
      function cm.spcfilter(c,tp)
      return c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp and c:IsReason(REASON_SUMMON)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return not eg:IsContains(e:GetHandler()) and eg:IsExists(cm.spcfilter,1,nil,tp)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function 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)
      Duel.Hint(HINT_MUSIC,0,aux.Stringid(81019004,0))
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetReset(RESET_PHASE+PHASE_END)
      e1:SetTargetRange(1,0)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.sumcon(e,tp,eg,ep,ev,re,r,rp)
      return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)
      end
      function cm.sumfilter(c)
      return c:IsSummonable(true,nil,1)
      end
      function cm.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.sumfilter,tp,LOCATION_HAND,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
      end
      function cm.sumop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.sumfilter,tp,LOCATION_HAND,0,1,1,nil)
      local tc=g:GetFirst()
      if tc then
      Duel.Summon(tp,tc,true,nil,1)
      end
      end
      function cm.con(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsReason(REASON_SUMMON)
      end
      function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsReleasable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      local g=Duel.GetMatchingGroup(Card.IsReleasable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_RELEASE,g,1,0,0)
      end
      function cm.op(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local g=Duel.SelectMatchingCard(tp,Card.IsReleasable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoGrave(g,REASON_EFFECT+REASON_RELEASE)
      end
      end
      expansions/script/c81057007.lua deleted 100644 → 0
      View file @ b5096be1
      --水晶艾蕾娜·纸飞机
      local m=81057007
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      --summon proc
      local e0=Effect.CreateEffect(c)
      e0:SetDescription(aux.Stringid(m,0))
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetCode(EFFECT_SUMMON_PROC)
      e0:SetCondition(cm.sumcon)
      e0:SetOperation(cm.sumop)
      e0:SetValue(SUMMON_TYPE_ADVANCE)
      c:RegisterEffect(e0)
      --disable effect
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_CHAIN_SOLVING)
      e1:SetRange(LOCATION_MZONE)
      e1:SetOperation(cm.disop)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,m)
      e2:SetCondition(cm.descon)
      e2:SetTarget(cm.destg)
      e2:SetOperation(cm.desop)
      c:RegisterEffect(e2)
      end
      function cm.refil(c)
      return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_FUSION)
      end
      function cm.sumcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
      end
      function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
      local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function cm.disop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_REMOVED and re:IsActiveType(TYPE_MONSTER) then
      Duel.NegateEffect(ev)
      end
      end
      function cm.descon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
      end
      function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsType,tp,0,LOCATION_ONFIELD,nil,TYPE_SPELL+TYPE_TRAP)
      if chk==0 then return #g>0 end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function cm.desop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,Card.IsType,tp,0,LOCATION_ONFIELD,1,2,nil,TYPE_SPELL+TYPE_TRAP)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      expansions/script/c81057008.lua deleted 100644 → 0
      View file @ b5096be1
      --水晶艾蕾娜·青梅
      local m=81057008
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      --summon proc
      local e0=Effect.CreateEffect(c)
      e0:SetDescription(aux.Stringid(m,0))
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetCode(EFFECT_SUMMON_PROC)
      e0:SetCondition(cm.sumcon)
      e0:SetOperation(cm.sumop)
      e0:SetValue(SUMMON_TYPE_ADVANCE)
      c:RegisterEffect(e0)
      --disable effect
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_CHAIN_SOLVING)
      e1:SetRange(LOCATION_MZONE)
      e1:SetOperation(cm.disop)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,m)
      e2:SetCondition(cm.spcon)
      e2:SetTarget(cm.sptg)
      e2:SetOperation(cm.spop)
      c:RegisterEffect(e2)
      end
      function cm.refil(c)
      return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_SYNCHRO)
      end
      function cm.sumcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
      end
      function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
      local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function cm.disop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_REMOVED and re:IsActiveType(TYPE_MONSTER) then
      Duel.NegateEffect(ev)
      end
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
      end
      function cm.spfilter(c,e,tp)
      return c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      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.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
      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.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
      expansions/script/c81057009.lua deleted 100644 → 0
      View file @ b5096be1
      --水晶艾蕾娜·无意义
      local m=81057009
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      --summon proc
      local e0=Effect.CreateEffect(c)
      e0:SetDescription(aux.Stringid(m,0))
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetCode(EFFECT_SUMMON_PROC)
      e0:SetCondition(cm.sumcon)
      e0:SetOperation(cm.sumop)
      e0:SetValue(SUMMON_TYPE_ADVANCE)
      c:RegisterEffect(e0)
      --disable effect
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_CHAIN_SOLVING)
      e1:SetRange(LOCATION_MZONE)
      e1:SetOperation(cm.disop)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,m)
      e2:SetCondition(cm.thcon)
      e2:SetTarget(cm.thtg)
      e2:SetOperation(cm.thop)
      c:RegisterEffect(e2)
      end
      function cm.refil(c)
      return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_XYZ)
      end
      function cm.sumcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
      end
      function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
      local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function cm.disop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_REMOVED and re:IsActiveType(TYPE_MONSTER) then
      Duel.NegateEffect(ev)
      end
      end
      function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
      end
      function cm.thfilter(c)
      return c:IsLevelAbove(5) and c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_DARK) 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,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.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
      expansions/strings.conf
      View file @ ad8864a6
      ......@@ -1184,7 +1184,6 @@
      !setname 0x5dab 大械鬼
      !setname 0x6dab 晶生花
      !setname 0x9dab 拘灵警差
      !setname 0xcdab 千幻曲
      !setname 0x6dac 神魔
      !setname 0x9dac 仙石守护灵
      !setname 0x3dad 灾兽
      ......@@ -1208,9 +1207,9 @@
      #AddCodeList(c,65710000) 万象笔记卡名记述
      #乳主份子 858329915 658 0xa30-0xa3f
      #【2025年6月30日前禁止投稿】
      !setname 0xa31 盛夏回忆
      !setname 0xa32 工坊武器
      !setname 0xa33 植物娘
      #今晚有宵夜吗 3080579137 666 0x660-0x66f
      !setname 0x5660 百鬼夜行
      ......
      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