Skip to content

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

byd

parent e7176395
Pipeline #30114 passed with stages
      in 40 minutes and 55 seconds
      Expand all Hide whitespace changes
      Inline Side-by-side
      Showing with 0 additions and 6164 deletions
      expansions/FiNALE.cdb
      View file @ 16492cf3
      No preview for this file type
      expansions/lflist.conf
      View file @ 16492cf3
      ......@@ -828,10 +828,6 @@
      24562476 1 --呼啸猛毒性 东西南北
      #257
      25750003 0 --昏黄之熔岩虫
      #266
      26640001 0 --颜彩-水丽之彩
      26640002 1 --颜彩-巡游之彩
      26640015 1 --颜彩-守望的银河
      #300
      30000200 0 --暗魔力的爆发
      30000205 0 --不灭的黑暗
      ......
      expansions/script/c18021001.lua deleted 100644 → 0
      View file @ e7176395
      --穿彻的铁炮子
      local s,id,o=GetID()
      function c18021001.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(18021001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_LEAVE_FIELD_P)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetOperation(s.regop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(18021001,1))
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e3:SetCode(EVENT_LEAVE_FIELD)
      e3:SetCountLimit(1,18021001)
      e3:SetLabelObject(e2)
      e3:SetCondition(s.thcon)
      e3:SetTarget(s.thtg)
      e3:SetOperation(s.thop)
      c:RegisterEffect(e3)
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=0
      if c:GetOwner()==1-tp then
      ct=1
      end
      e:SetLabel(ct)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local zone=s.getzone(tp)
      if chk==0 then return (Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,tp,zone))
      or (Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,1-tp,zone)) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.cfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup() and bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0
      end
      function s.getzone(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD,0,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      zone=zone|(1<<(aux.MZoneSequence(seq)-1))
      zone=zone|(1<<(aux.MZoneSequence(seq)+1))
      end
      return zone
      end
      function s.getzone2(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,0,LOCATION_ONFIELD,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      if aux.MZoneSequence(seq)==0 then seq1=4 end
      if aux.MZoneSequence(seq)==1 then seq1=3 end
      if aux.MZoneSequence(seq)==2 then seq1=2 end
      if aux.MZoneSequence(seq)==3 then seq1=1 end
      if aux.MZoneSequence(seq)==4 then seq1=0 end
      zone=zone|(1<<aux.MZoneSequence(seq1))
      end
      return zone
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local zone={}
      local flag={}
      for p=0,1 do
      if p==tp then
      zone[p]=s.getzone(p)&0xff
      else
      zone[p]=s.getzone2(p)&0xff
      end
      local _,flag_tmp=Duel.GetLocationCount(p,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone[p])
      flag[p]=(~flag_tmp)&0x7f
      end
      if not c:IsRelateToEffect(e) then return end
      local ava_zone=0
      for p=0,1 do
      if c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,p,zone[p]) then
      ava_zone=ava_zone|(flag[p]<<(p==tp and 0 or 16))
      end
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
      local sel_zone=Duel.SelectDisableField(tp,1,LOCATION_MZONE,LOCATION_MZONE,0x00ff00ff&(~ava_zone))
      local sump=0
      if sel_zone&0xff>0 then
      sump=tp
      else
      sump=1-tp
      sel_zone=sel_zone>>16
      end
      Duel.SpecialSummonStep(c,0,tp,sump,false,false,POS_FACEUP_DEFENSE,sel_zone)
      Duel.SpecialSummonComplete()
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.thfilter(c)
      return c:IsSetCard(0x96e1) and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      local ct=e:GetLabelObject():GetLabel()
      local rg=Duel.GetMatchingGroup(aux.NecroValleyFilter(Card.IsAbleToRemove),tp,0,LOCATION_GRAVE,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 and ct==1 and #rg>0 and Duel.SelectYesNo(tp,aux.Stringid(18021001,2)) then
      Duel.BreakEffect()
      local tg=rg:Select(tp,1,1,nil)
      Duel.Remove(tg,POS_FACEUP,REASON_EFFECT)
      end
      end
      expansions/script/c18021002.lua deleted 100644 → 0
      View file @ e7176395
      --发烟的铁炮子
      local s,id,o=GetID()
      function c18021002.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(18021002,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_LEAVE_FIELD_P)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetOperation(s.regop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(18021002,1))
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e3:SetCode(EVENT_LEAVE_FIELD)
      e3:SetCountLimit(1,18021002)
      e3:SetLabelObject(e2)
      e3:SetCondition(s.pccon)
      e3:SetTarget(s.pctg)
      e3:SetOperation(s.pcop)
      c:RegisterEffect(e3)
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=0
      if c:GetOwner()==1-tp then
      ct=1
      end
      e:SetLabel(ct)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local zone=s.getzone(tp)
      if chk==0 then return (Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,tp,zone))
      or (Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,1-tp,zone)) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.cfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup() and bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0
      end
      function s.getzone(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD,0,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      zone=zone|(1<<(aux.MZoneSequence(seq)-1))
      zone=zone|(1<<(aux.MZoneSequence(seq)+1))
      end
      return zone
      end
      function s.getzone2(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,0,LOCATION_ONFIELD,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      if aux.MZoneSequence(seq)==0 then seq1=4 end
      if aux.MZoneSequence(seq)==1 then seq1=3 end
      if aux.MZoneSequence(seq)==2 then seq1=2 end
      if aux.MZoneSequence(seq)==3 then seq1=1 end
      if aux.MZoneSequence(seq)==4 then seq1=0 end
      zone=zone|(1<<aux.MZoneSequence(seq1))
      end
      return zone
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local zone={}
      local flag={}
      for p=0,1 do
      if p==tp then
      zone[p]=s.getzone(p)&0xff
      else
      zone[p]=s.getzone2(p)&0xff
      end
      local _,flag_tmp=Duel.GetLocationCount(p,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone[p])
      flag[p]=(~flag_tmp)&0x7f
      end
      if not c:IsRelateToEffect(e) then return end
      local ava_zone=0
      for p=0,1 do
      if c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,p,zone[p]) then
      ava_zone=ava_zone|(flag[p]<<(p==tp and 0 or 16))
      end
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
      local sel_zone=Duel.SelectDisableField(tp,1,LOCATION_MZONE,LOCATION_MZONE,0x00ff00ff&(~ava_zone))
      local sump=0
      if sel_zone&0xff>0 then
      sump=tp
      else
      sump=1-tp
      sel_zone=sel_zone>>16
      end
      Duel.SpecialSummonStep(c,0,tp,sump,false,false,POS_FACEUP_DEFENSE,sel_zone)
      Duel.SpecialSummonComplete()
      end
      function s.pccon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.pcfilter(c)
      return c:IsSetCard(0x96e1) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
      end
      function s.pctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
      and Duel.IsExistingMatchingCard(s.pcfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x96e1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.pcop(e,tp,eg,ep,ev,re,r,rp)
      local ct=e:GetLabelObject():GetLabel()
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local g=Duel.SelectMatchingCard(tp,s.pcfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      local spg=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
      if ct==1 and spg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(1621413,2)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=spg:Select(tp,1,1,nil)
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c18021003.lua deleted 100644 → 0
      View file @ e7176395
      --高爆的铁炮子
      local s,id,o=GetID()
      function c18021003.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(18021003,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_LEAVE_FIELD_P)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetOperation(s.regop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(18021003,1))
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e3:SetCode(EVENT_LEAVE_FIELD)
      e3:SetCountLimit(1,18021003)
      e3:SetLabelObject(e2)
      e3:SetCondition(s.pccon)
      e3:SetTarget(s.pctg)
      e3:SetOperation(s.pcop)
      c:RegisterEffect(e3)
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=0
      if c:GetOwner()==1-tp then
      ct=1
      end
      e:SetLabel(ct)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local zone=s.getzone(tp)
      if chk==0 then return (Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,tp,zone))
      or (Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,1-tp,zone)) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.cfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup() and bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0
      end
      function s.getzone(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD,0,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      zone=zone|(1<<(aux.MZoneSequence(seq)-1))
      zone=zone|(1<<(aux.MZoneSequence(seq)+1))
      end
      return zone
      end
      function s.getzone2(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,0,LOCATION_ONFIELD,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      if aux.MZoneSequence(seq)==0 then seq1=4 end
      if aux.MZoneSequence(seq)==1 then seq1=3 end
      if aux.MZoneSequence(seq)==2 then seq1=2 end
      if aux.MZoneSequence(seq)==3 then seq1=1 end
      if aux.MZoneSequence(seq)==4 then seq1=0 end
      zone=zone|(1<<aux.MZoneSequence(seq1))
      end
      return zone
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local zone={}
      local flag={}
      for p=0,1 do
      if p==tp then
      zone[p]=s.getzone(p)&0xff
      else
      zone[p]=s.getzone2(p)&0xff
      end
      local _,flag_tmp=Duel.GetLocationCount(p,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone[p])
      flag[p]=(~flag_tmp)&0x7f
      end
      if not c:IsRelateToEffect(e) then return end
      local ava_zone=0
      for p=0,1 do
      if c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,p,zone[p]) then
      ava_zone=ava_zone|(flag[p]<<(p==tp and 0 or 16))
      end
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
      local sel_zone=Duel.SelectDisableField(tp,1,LOCATION_MZONE,LOCATION_MZONE,0x00ff00ff&(~ava_zone))
      local sump=0
      if sel_zone&0xff>0 then
      sump=tp
      else
      sump=1-tp
      sel_zone=sel_zone>>16
      end
      Duel.SpecialSummonStep(c,0,tp,sump,false,false,POS_FACEUP_DEFENSE,sel_zone)
      Duel.SpecialSummonComplete()
      end
      function s.pccon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.pcfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x96e1) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
      end
      function s.pctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
      and Duel.IsExistingMatchingCard(s.pcfilter,tp,LOCATION_EXTRA,0,1,nil) end
      end
      function s.pcop(e,tp,eg,ep,ev,re,r,rp)
      local ct=e:GetLabelObject():GetLabel()
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local g=Duel.SelectMatchingCard(tp,s.pcfilter,tp,LOCATION_EXTRA,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      local dg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_ONFIELD,nil)
      if ct==1 and dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(18021003,2)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local sg=dg:Select(tp,1,1,nil)
      Duel.Destroy(sg,REASON_EFFECT)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c18021004.lua deleted 100644 → 0
      View file @ e7176395
      --轰鸣的铁炮武装
      local s,id,o=GetID()
      function c18021004.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x96e1),2,true)
      aux.AddContactFusionProcedure(c,Card.IsReleasable,LOCATION_MZONE,0,Duel.Release,REASON_COST+REASON_MATERIAL)
      --pendulum summon
      aux.EnablePendulumAttribute(c,false)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(18021004,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1,18021004)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(18021004,1))
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e2:SetCode(EVENT_LEAVE_FIELD)
      e2:SetLabelObject(e2)
      e2:SetCondition(s.pencon)
      e2:SetTarget(s.pentg)
      e2:SetOperation(s.penop)
      c:RegisterEffect(e2)
      --pendulum set
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(18021004,2))
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,18021004+o)
      e3:SetTarget(s.pctg)
      e3:SetOperation(s.pcop)
      c:RegisterEffect(e3)
      --to grave
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(18021004,3))
      e4:SetCategory(CATEGORY_TOGRAVE)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_SPSUMMON_SUCCESS)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,18021004+100+o)
      e4:SetCondition(s.tgcon)
      e4:SetTarget(s.tgtg)
      e4:SetOperation(s.tgop)
      c:RegisterEffect(e4)
      end
      function s.pencon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function s.penop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      function s.cfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup()
      end
      function s.mnfilter(c,g)
      return g:IsExists(s.mnfilter2,1,c,c)
      end
      function s.mnfilter2(c,mc)
      local seq1=c:GetSequence()
      local seq2=mc:GetSequence()
      local seq3=0
      if aux.MZoneSequence(seq2)==0 then seq3=4 end
      if aux.MZoneSequence(seq2)==1 then seq3=3 end
      if aux.MZoneSequence(seq2)==2 then seq3=2 end
      if aux.MZoneSequence(seq2)==3 then seq3=1 end
      if aux.MZoneSequence(seq2)==4 then seq3=0 end
      return aux.MZoneSequence(seq1)==aux.MZoneSequence(seq3)
      end
      function s.fselect(g,tp)
      return g:IsExists(s.mnfilter,1,nil,g)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:CheckSubGroup(s.fselect,2,2,tp)
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,c)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local tg=g:SelectSubGroup(tp,s.fselect,false,2,2,tp)
      Duel.Release(tg,REASON_EFFECT)
      end
      end
      function s.pcfilter(c)
      return c:IsSetCard(0x96e1) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
      end
      function s.pctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
      and Duel.IsExistingMatchingCard(s.pcfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function s.pcop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local g=Duel.SelectMatchingCard(tp,s.pcfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      function s.scfilter(c,tp)
      return c:IsFaceup() and c:IsSetCard(0x96e1)
      end
      function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.scfilter,1,nil,tp)
      end
      function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,0,0)
      end
      function s.tgop(e,tp,eg,ep,ev,re,r,rp)
      local g=Group.CreateGroup()
      local sg=eg:Filter(s.scfilter,nil)
      g:Merge(sg)
      local tc=sg:GetFirst()
      local seq=nil
      while tc do
      seq=tc:GetColumnGroup()
      g:Merge(seq)
      tc=sg:GetNext()
      end
      if g:GetCount()>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local tg=g:Select(tp,1,1,nil)
      Duel.SendtoGrave(tg,REASON_EFFECT)
      end
      end
      expansions/script/c18021005.lua deleted 100644 → 0
      View file @ e7176395
      --咆哮的铁炮武装
      local s,id,o=GetID()
      function c18021005.initial_effect(c)
      --xyz summon
      aux.AddXyzProcedure(c,nil,4,2)
      c:EnableReviveLimit()
      --pendulum summon
      aux.EnablePendulumAttribute(c,false)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(18021005,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1,18021005)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(18021005,1))
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e2:SetCode(EVENT_LEAVE_FIELD)
      e2:SetLabelObject(e2)
      e2:SetCondition(s.pencon)
      e2:SetTarget(s.pentg)
      e2:SetOperation(s.penop)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(18021005,0))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,18021005+o)
      e3:SetCost(s.spcost1)
      e3:SetTarget(s.sptg1)
      e3:SetOperation(s.spop1)
      c:RegisterEffect(e3)
      --destroy
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(18021005,1))
      e4:SetCategory(CATEGORY_DESTROY)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,18021005+100+o)
      e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e4:SetTarget(s.destg)
      e4:SetOperation(s.desop)
      c:RegisterEffect(e4)
      end
      s.pendulum_level=8
      function s.pencon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function s.penop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      function s.cfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup() and c:IsCanOverlay()
      end
      function s.mnfilter(c,g)
      return g:IsExists(s.mnfilter2,1,c,c)
      end
      function s.mnfilter2(c,mc)
      local seq1=c:GetSequence()
      local seq2=mc:GetSequence()
      local seq3=0
      if aux.MZoneSequence(seq2)==0 then seq3=4 end
      if aux.MZoneSequence(seq2)==1 then seq3=3 end
      if aux.MZoneSequence(seq2)==2 then seq3=2 end
      if aux.MZoneSequence(seq2)==3 then seq3=1 end
      if aux.MZoneSequence(seq2)==4 then seq3=0 end
      return aux.MZoneSequence(seq1)==aux.MZoneSequence(seq3)
      end
      function s.fselect(g,tp)
      return g:IsExists(s.mnfilter,1,nil,g)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:CheckSubGroup(s.fselect,2,2,tp)
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,c)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local tg=g:SelectSubGroup(tp,s.fselect,false,2,2,tp)
      local tc=tg:GetFirst()
      while tc do
      local og=tc:GetOverlayGroup()
      if og:GetCount()>0 then
      Duel.SendtoGrave(og,REASON_RULE)
      end
      Duel.Overlay(c,Group.FromCards(tc))
      tc=tg:GetNext()
      end
      end
      end
      function s.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
      e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
      end
      function s.filter(c,e,tp)
      return c:IsSetCard(0x96e1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp)
      end
      function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
      end
      function s.spop1(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,1-tp,false,false,POS_FACEUP)
      end
      end
      function s.dcfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x96e1)
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and s.dcfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.dcfilter,Duel.GetTurnPlayer(),LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELECT)
      local g=Duel.SelectTarget(tp,s.dcfilter,Duel.GetTurnPlayer(),LOCATION_MZONE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      local g=tc:GetColumnGroup()
      g:AddCard(tc)
      if tc:IsRelateToEffect(e) and #g>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local tg=g:FilterSelect(tp,Card.IsType,1,2,nil,TYPE_MONSTER)
      Duel.Destroy(tg,REASON_EFFECT)
      end
      end
      expansions/script/c18021006.lua deleted 100644 → 0
      View file @ e7176395
      --起动的铁炮武装
      local s,id,o=GetID()
      function c18021006.initial_effect(c)
      --link summon
      c:EnableReviveLimit()
      aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0x96e1),2,2)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(18021006,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,18021006)
      e2:SetCondition(s.spcon)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      --special summon
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EVENT_LEAVE_FIELD)
      e3:SetCondition(s.regcon)
      e3:SetOperation(s.regop)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(18021006,2))
      e4:SetCategory(CATEGORY_DRAW)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
      e4:SetCode(EVENT_CUSTOM+18021006)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,18021006+o)
      e4:SetTarget(c18021006.destg)
      e4:SetOperation(c18021006.desop)
      c:RegisterEffect(e4)
      end
      function s.cfilter(c,lg)
      return lg:IsContains(c)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      local lg=e:GetHandler():GetLinkedGroup()
      return eg:IsExists(s.cfilter,1,nil,lg)
      end
      function s.spfilter(c,e,tp)
      if not (c:IsSetCard(0x96e1) and c:IsFaceup())then return false end
      local ok=false
      for p=0,1 do
      local zone=Duel.GetLinkedZone(p)&0xff
      ok=ok or (Duel.GetLocationCount(p,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,p,zone))
      end
      return ok
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsRelateToEffect(e)
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local zone={}
      local flag={}
      for p=0,1 do
      zone[p]=Duel.GetLinkedZone(p)&0xff
      local _,flag_tmp=Duel.GetLocationCount(p,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone[p])
      flag[p]=(~flag_tmp)&0x7f
      end
      local ft1=Duel.GetLocationCount(0,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone[0])
      local ft2=Duel.GetLocationCount(1,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone[1])
      if ft1+ft2<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      local tc=g:GetFirst()
      if tc then
      local ava_zone=0
      for p=0,1 do
      if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,p,zone[p]) then
      ava_zone=ava_zone|(flag[p]<<(p==tp and 0 or 16))
      end
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
      local sel_zone=Duel.SelectDisableField(tp,1,LOCATION_MZONE,LOCATION_MZONE,0x00ff00ff&(~ava_zone))
      local sump=0
      if sel_zone&0xff>0 then
      sump=tp
      else
      sump=1-tp
      sel_zone=sel_zone>>16
      end
      Duel.SpecialSummon(tc,0,tp,sump,false,false,POS_FACEUP,sel_zone)
      end
      end
      end
      function s.fcfilter(c,tp,zone)
      local seq=c:GetPreviousSequence()
      if c:IsPreviousControler(1-tp) then seq=seq+16 end
      return c:IsPreviousLocation(LOCATION_MZONE) and bit.extract(zone,seq)~=0
      end
      function s.regcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.fcfilter,1,nil,tp,e:GetHandler():GetLinkedZone())
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+18021006,e,0,tp,0,0)
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local lg=e:GetHandler():GetLinkedGroup()
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,lg,lg:GetCount(),0,0)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local lg=e:GetHandler():GetLinkedGroup()
      Duel.Destroy(lg,REASON_EFFECT)
      end
      \ No newline at end of file
      expansions/script/c18021007.lua deleted 100644 → 0
      View file @ e7176395
      --燃烧的铁炮子
      local s,id,o=GetID()
      function c18021007.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(18021007,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_LEAVE_FIELD_P)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetOperation(s.regop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(18021007,1))
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e3:SetCode(EVENT_LEAVE_FIELD)
      e3:SetCountLimit(1,18021007)
      e3:SetLabelObject(e2)
      e3:SetCondition(s.tecon)
      e3:SetTarget(s.tetg)
      e3:SetOperation(s.teop)
      c:RegisterEffect(e3)
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=0
      if c:GetOwner()==1-tp then
      if c:IsLocation(LOCATION_MZONE) then
      ct=2
      else
      ct=1
      end
      end
      e:SetLabel(ct)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local zone=s.getzone(tp)
      if chk==0 then return (Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,tp,zone))
      or (Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,1-tp,zone)) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.cfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup() and bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0
      end
      function s.getzone(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD,0,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      zone=zone|(1<<(aux.MZoneSequence(seq)-1))
      zone=zone|(1<<(aux.MZoneSequence(seq)+1))
      end
      return zone
      end
      function s.getzone2(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,0,LOCATION_ONFIELD,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      if aux.MZoneSequence(seq)==0 then seq1=4 end
      if aux.MZoneSequence(seq)==1 then seq1=3 end
      if aux.MZoneSequence(seq)==2 then seq1=2 end
      if aux.MZoneSequence(seq)==3 then seq1=1 end
      if aux.MZoneSequence(seq)==4 then seq1=0 end
      zone=zone|(1<<aux.MZoneSequence(seq1))
      end
      return zone
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local zone={}
      local flag={}
      for p=0,1 do
      if p==tp then
      zone[p]=s.getzone(p)&0xff
      else
      zone[p]=s.getzone2(p)&0xff
      end
      local _,flag_tmp=Duel.GetLocationCount(p,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone[p])
      flag[p]=(~flag_tmp)&0x7f
      end
      if not c:IsRelateToEffect(e) then return end
      local ava_zone=0
      for p=0,1 do
      if c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,p,zone[p]) then
      ava_zone=ava_zone|(flag[p]<<(p==tp and 0 or 16))
      end
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
      local sel_zone=Duel.SelectDisableField(tp,1,LOCATION_MZONE,LOCATION_MZONE,0x00ff00ff&(~ava_zone))
      local sump=0
      if sel_zone&0xff>0 then
      sump=tp
      else
      sump=1-tp
      sel_zone=sel_zone>>16
      end
      Duel.SpecialSummonStep(c,0,tp,sump,false,false,POS_FACEUP_DEFENSE,sel_zone)
      Duel.SpecialSummonComplete()
      end
      function s.tecon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.tefilter(c)
      return c:IsSetCard(0x96e1) and c:IsType(TYPE_PENDULUM)
      end
      function s.tetg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.tefilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,nil,1,tp,LOCATION_DECK)
      end
      function s.teop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=e:GetLabelObject():GetLabel()
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(24094258,3))
      local g=Duel.SelectMatchingCard(tp,s.tefilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoExtraP(g,tp,REASON_EFFECT)
      if ct>0 and Duel.SelectYesNo(tp,aux.Stringid(18021007,2)) then
      local loc=LOCATION_SZONE if ct==2 then loc=LOCATION_MZONE end
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD)
      e4:SetCode(EFFECT_DISABLE)
      e4:SetTargetRange(0,loc)
      e4:SetTarget(s.distg)
      e4:SetReset(RESET_PHASE+PHASE_END)
      e4:SetLabel(c:GetSequence())
      Duel.RegisterEffect(e4,tp)
      local e5=Effect.CreateEffect(c)
      e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e5:SetCode(EVENT_CHAIN_SOLVING)
      e5:SetOperation(s.disop)
      e5:SetReset(RESET_PHASE+PHASE_END)
      e5:SetLabel(c:GetSequence())
      Duel.RegisterEffect(e5,tp)
      local e6=Effect.CreateEffect(c)
      e6:SetType(EFFECT_TYPE_FIELD)
      e6:SetCode(EFFECT_DISABLE_TRAPMONSTER)
      e6:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e6:SetTarget(s.distg)
      e6:SetReset(RESET_PHASE+PHASE_END)
      e6:SetLabel(c:GetSequence())
      Duel.RegisterEffect(e6,tp)
      Duel.Hint(HINT_ZONE,tp,0x1<<(c:GetSequence()+8))
      end
      end
      end
      function s.distg(e,c)
      local seq=e:GetLabel()
      local seq1=0
      if aux.MZoneSequence(seq)==0 then seq1=4 end
      if aux.MZoneSequence(seq)==1 then seq1=3 end
      if aux.MZoneSequence(seq)==2 then seq1=2 end
      if aux.MZoneSequence(seq)==3 then seq1=1 end
      if aux.MZoneSequence(seq)==4 then seq1=0 end
      local tp=e:GetHandlerPlayer()
      return aux.GetColumn(c,tp)==seq1
      end
      function s.disop(e,tp,eg,ep,ev,re,r,rp)
      local tseq=e:GetLabel()
      local loc,seq=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION,CHAININFO_TRIGGERING_SEQUENCE)
      if seq<=4 and ((rp==tp and seq==tseq) or (rp==1-tp and seq==4-tseq)) then
      Duel.NegateEffect(ev)
      end
      end
      \ No newline at end of file
      expansions/script/c18021008.lua deleted 100644 → 0
      View file @ e7176395
      --碎甲的铁炮子
      local s,id,o=GetID()
      function c18021008.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(18021008,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_LEAVE_FIELD_P)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetOperation(s.regop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(18021008,1))
      e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DRAW)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e3:SetCode(EVENT_LEAVE_FIELD)
      e3:SetCountLimit(1,18021008)
      e3:SetLabelObject(e2)
      e3:SetCondition(s.drcon)
      e3:SetTarget(s.drtg)
      e3:SetOperation(s.drop)
      c:RegisterEffect(e3)
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=0
      if c:GetOwner()==1-tp then
      ct=1
      end
      e:SetLabel(ct)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local zone=s.getzone(tp)
      if chk==0 then return (Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,tp,zone))
      or (Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,1-tp,zone)) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.cfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup() and bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0
      end
      function s.getzone(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD,0,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      zone=zone|(1<<(aux.MZoneSequence(seq)-1))
      zone=zone|(1<<(aux.MZoneSequence(seq)+1))
      end
      return zone
      end
      function s.getzone2(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,0,LOCATION_ONFIELD,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      if aux.MZoneSequence(seq)==0 then seq1=4 end
      if aux.MZoneSequence(seq)==1 then seq1=3 end
      if aux.MZoneSequence(seq)==2 then seq1=2 end
      if aux.MZoneSequence(seq)==3 then seq1=1 end
      if aux.MZoneSequence(seq)==4 then seq1=0 end
      zone=zone|(1<<aux.MZoneSequence(seq1))
      end
      return zone
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local zone={}
      local flag={}
      for p=0,1 do
      if p==tp then
      zone[p]=s.getzone(p)&0xff
      else
      zone[p]=s.getzone2(p)&0xff
      end
      local _,flag_tmp=Duel.GetLocationCount(p,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone[p])
      flag[p]=(~flag_tmp)&0x7f
      end
      if not c:IsRelateToEffect(e) then return end
      local ava_zone=0
      for p=0,1 do
      if c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,p,zone[p]) then
      ava_zone=ava_zone|(flag[p]<<(p==tp and 0 or 16))
      end
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
      local sel_zone=Duel.SelectDisableField(tp,1,LOCATION_MZONE,LOCATION_MZONE,0x00ff00ff&(~ava_zone))
      local sump=0
      if sel_zone&0xff>0 then
      sump=tp
      else
      sump=1-tp
      sel_zone=sel_zone>>16
      end
      Duel.SpecialSummonStep(c,0,tp,sump,false,false,POS_FACEUP_DEFENSE,sel_zone)
      Duel.SpecialSummonComplete()
      end
      function s.dcfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup()
      end
      function s.drcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(s.dcfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      if chk==0 then return g:GetCount()>0 and Duel.IsPlayerCanDiscardDeck(tp,2) end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function s.drop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=e:GetLabelObject():GetLabel()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,s.dcfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Destroy(g,REASON_EFFECT)
      Duel.Draw(tp,2,REASON_EFFECT)
      local rg=Duel.GetMatchingGroup(aux.NegateMonsterFilter,tp,0,LOCATION_ONFIELD,nil)
      if ct==1 and #rg>0 and Duel.SelectYesNo(tp,aux.Stringid(18021008,2)) then
      Duel.BreakEffect()
      local tc=rg:Select(tp,1,1,nil):GetFirst()
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e2)
      end
      end
      end
      expansions/script/c18021009.lua deleted 100644 → 0
      View file @ e7176395
      --铁炮冲击
      local s,id,o=GetID()
      function c18021009.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,18021009+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.filter(c,e,tp)
      return c:IsFaceup() and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp)
      and Duel.GetLocationCountFromEx(tp,1-tp,nil,c)>0
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local ft=Duel.GetLocationCountFromEx(1-tp,1-tp,nil,TYPE_PENDULUM)
      if ft<=0 then return end
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_EXTRA,0,1,ft,nil,e,tp)
      if g:GetCount()>0 then
      local tc=g:GetFirst()
      while tc do
      Duel.SpecialSummonStep(tc,0,1-tp,1-tp,false,false,POS_FACEUP)
      tc=g:GetNext()
      end
      Duel.SpecialSummonComplete()
      Duel.Draw(tp,#g,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c18021010.lua deleted 100644 → 0
      View file @ e7176395
      --铁炮回火
      local s,id,o=GetID()
      function c18021010.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCountLimit(1,18021010+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(s.condition)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --act in hand
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
      e2:SetCondition(s.handcon)
      c:RegisterEffect(e2)
      end
      function s.cfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x96e1)
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.cfilter,tp,0,LOCATION_ONFIELD,1,nil)
      and Duel.IsChainNegatable(ev) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return aux.nbcon(tp,re) end
      Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
      if re:GetHandler():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0)
      end
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c)
      if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) and Duel.Remove(eg,POS_FACEUP,REASON_EFFECT)~=0 and #g>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local tg=g:Select(tp,1,1,c)
      Duel.Destroy(tg,REASON_EFFECT)
      end
      end
      function s.mnfilter(c,g)
      return g:IsExists(s.mnfilter2,1,c,c)
      end
      function s.mnfilter2(c,mc)
      local seq1=c:GetSequence()
      local seq2=mc:GetSequence()
      local seq3=0
      if aux.MZoneSequence(seq2)==0 then seq3=4 end
      if aux.MZoneSequence(seq2)==1 then seq3=3 end
      if aux.MZoneSequence(seq2)==2 then seq3=2 end
      if aux.MZoneSequence(seq2)==3 then seq3=1 end
      if aux.MZoneSequence(seq2)==4 then seq3=0 end
      return aux.MZoneSequence(seq1)==aux.MZoneSequence(seq3)
      end
      function s.handcon(e)
      local g=Duel.GetMatchingGroup(s.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,LOCATION_MZONE,nil)
      return g:IsExists(s.mnfilter,1,nil,g)
      end
      expansions/script/c18021011.lua deleted 100644 → 0
      View file @ e7176395
      --铁炮机动
      local s,id,o=GetID()
      function c18021011.initial_effect(c)
      --rec or dam
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,18021011+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(s.target)
      e1:SetOperation(s.operation)
      c:RegisterEffect(e1)
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x96e1) and (c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      or c:IsCanBeSpecialSummoned(e,0,tp,false,false,1-tp))
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local g=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
      return not Duel.IsPlayerAffectedByEffect(tp,59822133)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>1 and g:GetClassCount(Card.GetCode)>=2 end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      local ft2=Duel.GetLocationCount(tp,LOCATION_MZONE)
      local g=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
      if not Duel.IsPlayerAffectedByEffect(tp,59822133) and ft>1 and ft2>1 and g:GetClassCount(Card.GetCode)>1 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g1=g:SelectSubGroup(tp,aux.dncheck,false,2,2)
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(18021011,1))
      local tg1=g1:Select(tp,1,1,nil)
      Duel.SpecialSummonStep(tg1:GetFirst(),0,tp,tp,false,false,POS_FACEUP)
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(18021011,2))
      local tg2=g1:Select(tp,1,1,tg1:GetFirst())
      Duel.SpecialSummonStep(tg2:GetFirst(),0,tp,1-tp,false,false,POS_FACEUP)
      Duel.SpecialSummonComplete()
      end
      end
      expansions/script/c18021012.lua deleted 100644 → 0
      View file @ e7176395
      --铁炮战线
      local s,id,o=GetID()
      function c18021012.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,3875465+EFFECT_COUNT_CODE_OATH)
      c:RegisterEffect(e1)
      --pendulum set
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(86238081,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_FZONE)
      e2:SetCountLimit(1)
      e2:SetTarget(s.pctg)
      e2:SetOperation(s.pcop)
      c:RegisterEffect(e2)
      --sp summon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetDescription(aux.Stringid(86238081,0))
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_FZONE)
      e3:SetCountLimit(1)
      e3:SetTarget(s.sptg)
      e3:SetOperation(s.spop)
      c:RegisterEffect(e3)
      end
      function s.pcfilter(c)
      return c:IsSetCard(0x96e1) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
      end
      function s.pctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
      and Duel.IsExistingMatchingCard(s.pcfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function s.cfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup() and bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0
      end
      function s.pcop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local pg=Duel.SelectMatchingCard(tp,s.pcfilter,tp,LOCATION_DECK,0,1,1,nil)
      if pg:GetCount()>0 and Duel.MoveToField(pg:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)~=0 then
      g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      local tc=g:GetFirst()
      local seq=nil
      while tc do
      seq=tc:GetColumnGroup():Filter(s.cfilter,nil)
      if #seq>0 then
      c:RegisterFlagEffect(18021012,RESET_CHAIN,0,1)
      end
      tc=g:GetNext()
      end
      if c:GetFlagEffect(18021012)>0 and #pg>0 and Duel.SelectYesNo(tp,aux.Stringid(18021012,2))then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local pg2=Duel.SelectMatchingCard(tp,s.pcfilter,tp,LOCATION_DECK,0,1,1,nil)
      if pg2:GetCount()>0 then
      Duel.MoveToField(pg2:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      end
      end
      function s.rhfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup() and c:IsAbleToHand() and bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and s.rhfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.rhfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,s.rhfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x96e1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      local g=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_HAND,0,nil,e,tp)
      if g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.SelectYesNo(tp,aux.Stringid(12289247,4)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g:Select(tp,1,1,nil)
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c18021013.lua deleted 100644 → 0
      View file @ e7176395
      --无畏的铁炮武装
      local s,id,o=GetID()
      function c18021013.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c,false)
      --synchro summon
      aux.AddSynchroMixProcedure(c,aux.Tuner(nil),nil,nil,aux.FilterBoolFunction(Card.IsSetCard,0x96e1),1,99)
      c:EnableReviveLimit()
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(18021013,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1,18021013)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(18021013,1))
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e2:SetCode(EVENT_LEAVE_FIELD)
      e2:SetLabelObject(e2)
      e2:SetCondition(s.pencon)
      e2:SetTarget(s.pentg)
      e2:SetOperation(s.penop)
      c:RegisterEffect(e2)
      --pendulum set
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(18021013,0))
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,18021013+o)
      e3:SetTarget(s.pctg)
      e3:SetOperation(s.pcop)
      c:RegisterEffect(e3)
      --set
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
      e4:SetDescription(aux.Stringid(18021013,1))
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_CHAINING)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,18021013+100+o)
      e4:SetCondition(s.discon)
      e4:SetTarget(s.distg)
      e4:SetOperation(s.disop)
      c:RegisterEffect(e4)
      local ee=Effect.CreateEffect(c)
      ee:SetType(EFFECT_TYPE_SINGLE)
      ee:SetCode(EFFECT_MATERIAL_CHECK)
      ee:SetValue(s.valcheck)
      c:RegisterEffect(ee)
      end
      function s.valcheck(e,c)
      local g=c:GetMaterial()
      if g:IsExists(Card.IsType,2,nil,TYPE_TUNER) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(21142671)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      end
      end
      function s.pencon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function s.penop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      function s.cfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup()
      end
      function s.mnfilter(c,g)
      return g:IsExists(s.mnfilter2,1,c,c)
      end
      function s.mnfilter2(c,mc)
      local seq1=c:GetSequence()
      local seq2=mc:GetSequence()
      local seq3=0
      if aux.MZoneSequence(seq2)==0 then seq3=4 end
      if aux.MZoneSequence(seq2)==1 then seq3=3 end
      if aux.MZoneSequence(seq2)==2 then seq3=2 end
      if aux.MZoneSequence(seq2)==3 then seq3=1 end
      if aux.MZoneSequence(seq2)==4 then seq3=0 end
      return aux.MZoneSequence(seq1)==aux.MZoneSequence(seq3)
      end
      function s.fselect(g,tp)
      return g:IsExists(s.mnfilter,1,nil,g)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:CheckSubGroup(s.fselect,2,2,tp)
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,c)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local tg=g:SelectSubGroup(tp,s.fselect,false,2,2,tp)
      Duel.Destroy(tg,REASON_EFFECT)
      end
      end
      function s.pcfilter(c)
      return c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
      end
      function s.pctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return (Duel.CheckLocation(1-tp,LOCATION_PZONE,0) or Duel.CheckLocation(1-tp,LOCATION_PZONE,1))
      and Duel.IsExistingMatchingCard(s.pcfilter,tp,LOCATION_PZONE,0,1,nil) end
      end
      function s.pcop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local g=Duel.SelectMatchingCard(tp,s.pcfilter,tp,LOCATION_PZONE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.MoveToField(g:GetFirst(),tp,1-tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      function s.discon(e,tp,eg,ep,ev,re,r,rp)
      local g=re:GetHandler():GetColumnGroup():Filter(s.cfilter,nil)
      return bit.band(Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION),LOCATION_ONFIELD)~=0 and #g>0
      end
      function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return aux.nbcon(tp,re) end
      Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
      if re:GetHandler():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0)
      end
      end
      function s.disop(e,tp,eg,ep,ev,re,r,rp)
      local g=re:GetHandler():GetColumnGroup():Filter(s.cfilter,nil)
      if #g>0 then
      local tg=g:Select(tp,1,1,nil)
      if Duel.Destroy(tg,REASON_EFFECT)~=0 and Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
      Duel.Remove(eg,POS_FACEUP,REASON_EFFECT)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c18021014.lua deleted 100644 → 0
      View file @ e7176395
      --永恒的铁炮武装
      local s,id,o=GetID()
      function c18021014.initial_effect(c)
      --link summon
      aux.AddLinkProcedure(c,nil,2)
      c:EnableReviveLimit()
      --atk
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCondition(s.atkcon)
      e1:SetValue(s.atkval)
      c:RegisterEffect(e1)
      --extra attack
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
      e2:SetCondition(s.exattkcon)
      e2:SetValue(2)
      c:RegisterEffect(e2)
      --negate
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(18021014,1))
      e3:SetCategory(CATEGORY_NEGATE)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_CHAINING)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCondition(s.discon)
      e3:SetTarget(s.distg)
      e3:SetOperation(s.disop)
      c:RegisterEffect(e3)
      --immune
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetCode(EFFECT_IMMUNE_EFFECT)
      e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCondition(s.econ)
      e4:SetValue(s.efilter)
      c:RegisterEffect(e4)
      end
      function s.atkfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x96e1)
      end
      function s.atkcon(e)
      local lg=e:GetHandler():GetLinkedGroup():Filter(s.atkfilter,nil)
      return #lg>=1
      end
      function s.atkval(e,c)
      return c:GetLinkedGroupCount()*500
      end
      function s.exattkcon(e)
      local lg=e:GetHandler():GetLinkedGroup():Filter(s.atkfilter,nil)
      return #lg>=2
      end
      function s.discon(e,tp,eg,ep,ev,re,r,rp)
      local lg=e:GetHandler():GetLinkedGroup():Filter(s.atkfilter,nil)
      return #lg>=3
      and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev)
      end
      function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
      if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
      end
      end
      function s.disop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
      Duel.Destroy(eg,REASON_EFFECT)
      end
      end
      function s.econ(e)
      local lg=e:GetHandler():GetLinkedGroup():Filter(s.atkfilter,nil)
      return #lg==4
      end
      function s.efilter(e,te)
      return te:GetOwner()~=e:GetOwner()
      end
      \ No newline at end of file
      expansions/script/c18021015.lua deleted 100644 → 0
      View file @ e7176395
      --照明的铁炮子
      local s,id,o=GetID()
      function c18021015.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(18021015,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_LEAVE_FIELD_P)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetOperation(s.regop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(18021015,1))
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e3:SetCode(EVENT_LEAVE_FIELD)
      e3:SetCountLimit(1,18021015)
      e3:SetLabelObject(e2)
      e3:SetCondition(s.thcon)
      e3:SetTarget(s.thtg)
      e3:SetOperation(s.thop)
      c:RegisterEffect(e3)
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=0
      if c:GetOwner()==1-tp then
      ct=1
      end
      e:SetLabel(ct)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local zone=s.getzone(tp)
      if chk==0 then return (Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,tp,zone))
      or (Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,1-tp,zone)) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.cfilter(c)
      return c:IsSetCard(0x96e1) and c:IsFaceup() and bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0
      end
      function s.getzone(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD,0,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      zone=zone|(1<<(aux.MZoneSequence(seq)-1))
      zone=zone|(1<<(aux.MZoneSequence(seq)+1))
      end
      return zone
      end
      function s.getzone2(tp)
      local zone=0
      local seq1=0
      local g=Duel.GetMatchingGroup(s.cfilter,tp,0,LOCATION_ONFIELD,nil)
      for tc in aux.Next(g) do
      local seq=tc:GetSequence()
      if aux.MZoneSequence(seq)==0 then seq1=4 end
      if aux.MZoneSequence(seq)==1 then seq1=3 end
      if aux.MZoneSequence(seq)==2 then seq1=2 end
      if aux.MZoneSequence(seq)==3 then seq1=1 end
      if aux.MZoneSequence(seq)==4 then seq1=0 end
      zone=zone|(1<<aux.MZoneSequence(seq1))
      end
      return zone
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local zone={}
      local flag={}
      for p=0,1 do
      if p==tp then
      zone[p]=s.getzone(p)&0xff
      else
      zone[p]=s.getzone2(p)&0xff
      end
      local _,flag_tmp=Duel.GetLocationCount(p,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone[p])
      flag[p]=(~flag_tmp)&0x7f
      end
      if not c:IsRelateToEffect(e) then return end
      local ava_zone=0
      for p=0,1 do
      if c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,p,zone[p]) then
      ava_zone=ava_zone|(flag[p]<<(p==tp and 0 or 16))
      end
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
      local sel_zone=Duel.SelectDisableField(tp,1,LOCATION_MZONE,LOCATION_MZONE,0x00ff00ff&(~ava_zone))
      local sump=0
      if sel_zone&0xff>0 then
      sump=tp
      else
      sump=1-tp
      sel_zone=sel_zone>>16
      end
      Duel.SpecialSummonStep(c,0,tp,sump,false,false,POS_FACEUP_DEFENSE,sel_zone)
      Duel.SpecialSummonComplete()
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.thfilter(c)
      return c:IsSetCard(0x96e1) and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      local ct=e:GetLabelObject():GetLabel()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      if ct==1 and Duel.IsPlayerCanDraw(tp,1)
      and Duel.SelectYesNo(tp,aux.Stringid(2857636,1)) then
      Duel.BreakEffect()
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c26640001.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-水丽之彩
      local m=26640001
      local cm=_G["c"..m]
      function c26640001.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_REMOVE)
      e1:SetCode(EVENT_DISCARD)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,26640201)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.rectg)
      e1:SetOperation(cm.recop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_HANDES)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetCost(cm.spcost)
      e2:SetCountLimit(1,26640301)
      e2:SetTarget(cm.sptg)
      e2:SetOperation(cm.spop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_REMOVE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,26640401)
      e3:SetTarget(cm.thtg)
      e3:SetOperation(cm.thop)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,0))
      e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetCountLimit(1,26640501)
      e4:SetCondition(cm.thcon)
      e4:SetTarget(cm.ntg)
      e4:SetOperation(cm.nop)
      c:RegisterEffect(e4)
      end
      function cm.cfilter(c,tp)
      return c:IsPreviousControler(tp)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,tp)
      end
      function cm.thfilter(c)
      return c:IsLevelBelow(4) and c:IsSetCard(0xe51) and c:IsAbleToHand()
      end
      function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      if chk==0 then return g:GetCount()>0 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.recop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      Duel.BreakEffect()
      local tg=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg:GetCount()>0 and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil)then
      Duel.SendtoHand(tg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tg)
      end
      end
      end
      ------灵摆效果
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return not e:GetHandler():IsPublic() end
      end
      function cm.spfilter(c,e,tp)
      return not c:IsCode(26640001) and c:IsDiscardable(REASON_EFFECT)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 then
      Duel.DiscardHand(tp,cm.spfilter,1,1,REASON_EFFECT+REASON_DISCARD)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      Duel.BreakEffect()
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      ------一效果
      function cm.tfilter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0xe51) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      if chk==0 then return g:GetCount()>0 and Duel.IsExistingMatchingCard(cm.tfilter,tp,LOCATION_DECK,0,1,nil)end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      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_REMOVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local tg=Duel.SelectMatchingCard(tp,cm.tfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg:GetCount()>0 then
      Duel.SendtoHand(tg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tg)
      end
      end
      end
      ----二效果
      function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.ntg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToHand()end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.nfilter(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
      end
      function cm.nop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsAbleToHand() then
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.nfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
      and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.nfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      Duel.BreakEffect()
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0xe51) and c:IsLocation(LOCATION_EXTRA)
      end
      -----三效果
      \ No newline at end of file
      expansions/script/c26640002.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-巡游之彩
      local m=26640002
      local cm=_G["c"..m]
      function c26640002.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
      e1:SetCode(EVENT_DISCARD)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,26640202)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.rectg)
      e1:SetOperation(cm.recop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_REMOVE+CATEGORY_HANDES)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,26640302)
      e2:SetTarget(cm.thtg)
      e2:SetOperation(cm.thop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,26640402)
      e3:SetCondition(cm.negcon)
      e3:SetTarget(cm.negtg)
      e3:SetOperation(cm.negop)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_DESTROY)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_REMOVE)
      e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,26640302)
      e4:SetTarget(cm.target)
      e4:SetOperation(cm.operation)
      c:RegisterEffect(e4)
      end
      function cm.cfilter(c,tp)
      return c:IsPreviousControler(tp)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,tp)
      end
      function cm.thfilter(c)
      return not c:IsCode(26640002) and c:IsSetCard(0xe51) and c:IsType(TYPE_MONSTER)
      end
      function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      if chk==0 then return g:GetCount()>0 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED)
      end
      function cm.recop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      Duel.BreakEffect()
      local tg=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
      local tc=tg:GetFirst()
      if tc then
      Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      Duel.SpecialSummonComplete()
      end
      end
      ---灵摆效果
      function cm.tfilter(c)
      return c:IsSetCard(0xe51) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      if chk==0 then return g:GetCount()>0 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local tg=Duel.SelectMatchingCard(tp,cm.tfilter,tp,LOCATION_REMOVED,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      if tg:GetCount()>0 then
      Duel.SendtoHand(tg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tg)
      Duel.BreakEffect()
      Duel.DiscardHand(tp,aux.TRUE,1,1,REASON_EFFECT+REASON_DISCARD)
      end
      end
      end
      ----一效果
      function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)
      end
      function cm.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToHand() end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.nfilter(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
      end
      function cm.negop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsAbleToHand() then
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.nfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
      and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.nfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      Duel.BreakEffect()
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0xe51) and c:IsLocation(LOCATION_EXTRA)
      end
      ------二效果
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      if chk==0 then return g:GetCount()>0 and Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
      local tg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      Duel.BreakEffect()
      local tg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
      if tg:GetCount()>0 then
      Duel.HintSelection(tg)
      Duel.Destroy(tg,REASON_EFFECT)
      end
      end
      end
      -----三效果
      expansions/script/c26640003.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-通灵之彩
      local m=26640003
      local cm=_G["c"..m]
      function c26640003.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(26640003,0))
      e1:SetCategory(CATEGORY_TOEXTRA+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1,26640003)
      e1:SetTarget(cm.sctg)
      e1:SetOperation(cm.scop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_DECKDES+CATEGORY_REMOVE)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,26640103)
      e2:SetTarget(cm.thtg)
      e2:SetOperation(cm.thop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,26640203)
      e3:SetCondition(cm.negcon)
      e3:SetTarget(cm.negtg)
      e3:SetOperation(cm.negop)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,1))
      e4:SetCategory(CATEGORY_REMOVE)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_REMOVE)
      e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,26640103)
      e4:SetTarget(cm.target)
      e4:SetOperation(cm.activate)
      c:RegisterEffect(e4)
      end
      function cm.hfilter(c,tp)
      return c:IsSetCard(0xe51) and Duel.IsExistingMatchingCard(cm.adfilter,tp,LOCATION_REMOVED,0,1,nil,c:GetCurrentScale())
      end
      function cm.adfilter(c,scale,tp)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_MONSTER) and c:IsLevelBelow(scale)
      end
      function cm.sctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and cm.hfilter(chkc,tp) and chkc~=e:GetHandler() and chkc:IsAbleToExtra()end
      if chk==0 then return Duel.IsExistingTarget(cm.hfilter,tp,LOCATION_PZONE,0,1,e:GetHandler(),tp)
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectTarget(tp,cm.hfilter,tp,LOCATION_PZONE,0,1,1,e:GetHandler())
      Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.scop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      local scale=tc:GetCurrentScale()
      Duel.SendtoExtraP(tc,tp,REASON_EFFECT)
      Duel.BreakEffect()
      local ng=Duel.SelectMatchingCard(tp,cm.adfilter,tp,LOCATION_REMOVED,0,1,1,nil,scale,tp)
      local yc=ng:GetFirst()
      if yc then
      Duel.SpecialSummon(yc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      ----灵摆效果
      function cm.tfilter(c)
      return c:IsSetCard(0xe51) and c:IsAbleToGrave()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      if chk==0 then return g:GetCount()>0 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,1,tp,LOCATION_DECK)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local tg=Duel.SelectMatchingCard(tp,cm.tfilter,tp,LOCATION_DECK,0,1,1,nil)
      if tg:GetCount()>0 then
      Duel.SendtoGrave(tg,REASON_EFFECT)
      end
      end
      end
      ----一效果
      function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
      return ((Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) and Duel.GetTurnPlayer()==tp )
      or (Duel.GetCurrentPhase()==PHASE_END and Duel.GetTurnPlayer()==1-tp)
      end
      function cm.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToHand()end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.nfilter(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
      end
      function cm.negop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsAbleToHand() then
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.nfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
      and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.nfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      Duel.BreakEffect()
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0xe51) and c:IsLocation(LOCATION_EXTRA)
      end
      -----二效果
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>2 end
      end
      function cm.thfilter(c,lv)
      return c:IsSetCard(0xe51)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=3 then
      Duel.ConfirmDecktop(tp,3)
      local g=Duel.GetDecktopGroup(tp,3)
      local ct=g:GetCount()
      if ct>0 and g:FilterCount(cm.thfilter,nil,ct)>0 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.DisableShuffleCheck()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local sg=g:FilterSelect(tp,cm.thfilter,1,1,nil,ct)
      Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
      end
      Duel.ShuffleDeck(tp)
      end
      end
      -----三效果
      \ No newline at end of file
      expansions/script/c26640004.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-华丽之彩
      local m=26640004
      local cm=_G["c"..m]
      function c26640004.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCategory(CATEGORY_HANDES)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,26640004)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCondition(cm.thcon)
      e1:SetTarget(cm.rectg)
      e1:SetOperation(cm.recop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_REMOVE)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,26640104)
      e2:SetTarget(cm.thtg)
      e2:SetOperation(cm.thop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,26640204)
      e3:SetCondition(cm.negcon)
      e3:SetTarget(cm.negtg)
      e3:SetOperation(cm.negop)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,1))
      e4:SetCategory(CATEGORY_REMOVE)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_REMOVE)
      e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,26640104)
      e4:SetTarget(cm.pentg)
      e4:SetOperation(cm.penop)
      c:RegisterEffect(e4)
      end
      function cm.spfilter(c,e,tp)
      return c:IsDiscardable(REASON_EFFECT)
      end
      function cm.penfilter(c)
      return c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
      end
      function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToHand() end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
      end
      function cm.recop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsAbleToHand() then
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      Duel.BreakEffect()
      local g=Duel.SelectMatchingCard(tp,cm.penfilter,tp,LOCATION_HAND,0,1,1,nil)
      local tc=g:GetFirst()
      if tc then
      Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      Duel.DiscardHand(tp,cm.spfilter,1,1,REASON_EFFECT+REASON_DISCARD)
      end
      end
      end
      ----灵摆效果
      function cm.tfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xe51) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      if chk==0 then return g:GetCount()>0 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      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_REMOVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,0))then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      Duel.BreakEffect()
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetCountLimit(1)
      e1:SetCondition(cm.ncon)
      e1:SetOperation(cm.nop)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.ncon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(cm.tfilter,tp,LOCATION_DECK,0,1,nil)
      end
      function cm.nop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,m)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.tfilter,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
      -----1效果
      function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
      return ((Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) and Duel.GetTurnPlayer()==1-tp )
      or (Duel.GetCurrentPhase()==PHASE_END and Duel.GetTurnPlayer()==tp)
      end
      function cm.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToHand() and Duel.IsExistingMatchingCard(cm.nfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.nfilter(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
      end
      function cm.negop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsAbleToHand() then
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.nfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
      and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.nfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      Duel.BreakEffect()
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0xe51) and c:IsLocation(LOCATION_EXTRA)
      end
      -----二效果
      function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function cm.penop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      -----三效果
      \ No newline at end of file
      expansions/script/c26640005.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-新生之彩
      local m=26640005
      local cm=_G["c"..m]
      function c26640005.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCategory(CATEGORY_REMOVE+CATEGORY_DRAW)
      e1:SetCode(EVENT_DISCARD)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,26640005)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.rectg)
      e1:SetOperation(cm.recop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_HANDES)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,26640105)
      e2:SetCost(cm.spcost)
      e2:SetTarget(cm.thtg)
      e2:SetOperation(cm.thop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetCountLimit(1,26640205)
      e3:SetCondition(cm.thcon)
      e3:SetTarget(cm.ntg)
      e3:SetOperation(cm.nop)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,1))
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_REMOVE)
      e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,26640105)
      e4:SetTarget(cm.sptg)
      e4:SetOperation(cm.spop)
      c:RegisterEffect(e4)
      end
      function cm.cfilter(c,tp)
      return c:IsPreviousControler(tp)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,tp)
      end
      function cm.thfilter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0xe51) and c:IsSSetable()
      end
      function cm.nfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xe51) and c:IsFaceup()
      end
      function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      local ng=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)
      if chk==0 then return g:GetCount()>1 and ng:GetCount()>0 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,2,0,0)
      end
      function cm.recop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,2,2,nil)
      if g:GetCount()>1 then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      if Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) then
      Duel.BreakEffect()
      local ng=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      Duel.SSet(tp,ng:GetFirst())
      Duel.ConfirmCards(1-tp,ng:GetFirst())
      if Duel.GetMatchingGroupCount(cm.nfilter,tp,LOCATION_ONFIELD,0,nil)>=3 and Duel.IsPlayerCanDraw(tp,1) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
      Duel.ShuffleDeck(tp)
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      end
      end
      ----灵摆效果
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
      Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3)
      and Duel.GetDecktopGroup(tp,3):FilterCount(Card.IsAbleToHand,nil)>0 end
      end
      function cm.filter(c)
      return c:IsAbleToHand() and c:IsSetCard(0xe51)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.IsPlayerCanDiscardDeck(tp,3) then return end
      Duel.ConfirmDecktop(tp,3)
      local g=Duel.GetDecktopGroup(tp,3)
      if g:GetCount()>0 then
      Duel.DisableShuffleCheck()
      if g:IsExists(cm.filter,1,nil) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local sg=g:FilterSelect(tp,cm.filter,1,1,nil)
      Duel.SendtoHand(sg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,sg)
      Duel.ShuffleHand(tp)
      g:Sub(sg)
      end
      Duel.SendtoGrave(g,REASON_EFFECT+REASON_REVEAL)
      end
      end
      ---1效果
      function cm.hnfilter(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
      end
      function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_STANDBY
      end
      function cm.ntg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToHand() end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.nop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsAbleToHand() then
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.hnfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
      and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.hnfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      Duel.BreakEffect()
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0xe51) and c:IsLocation(LOCATION_EXTRA)
      end
      ----2效果
      function cm.spfilter(c,e,tp)
      return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
      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_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      local tc=g:GetFirst()
      if tc then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      local fid=e:GetHandler():GetFieldID()
      tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1,fid)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetCountLimit(1)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetLabel(fid)
      e1:SetLabelObject(tc)
      e1:SetCondition(cm.thecon)
      e1:SetOperation(cm.theop)
      Duel.RegisterEffect(e1,tp)
      local e3=Effect.CreateEffect(e:GetHandler())
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_DISABLE)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e3,true)
      local e2=Effect.CreateEffect(e:GetHandler())
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e2,true)
      end
      Duel.SpecialSummonComplete()
      end
      function cm.thecon(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      if tc:GetFlagEffectLabel(m)~=e:GetLabel() then
      e:Reset()
      return false
      else return true end
      end
      function cm.theop(e,tp,eg,ep,ev,re,r,rp)
      Duel.SendtoHand(e:GetLabelObject(),nil,REASON_EFFECT)
      end
      expansions/script/c26640006.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-秋忆之彩
      local m=26640006
      local cm=_G["c"..m]
      function c26640006.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_REMOVE)
      e1:SetCode(EVENT_DISCARD)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,26640006)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.rectg)
      e1:SetOperation(cm.recop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_REMOVE)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,26640106)
      e2:SetTarget(cm.target)
      e2:SetOperation(cm.activate)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetCountLimit(1,26640206)
      e3:SetCondition(cm.thcon)
      e3:SetTarget(cm.ntg)
      e3:SetOperation(cm.nop)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,1))
      e4:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_HANDES)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_REMOVE)
      e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,26640106)
      e4:SetTarget(cm.thtg)
      e4:SetOperation(cm.thop)
      c:RegisterEffect(e4)
      end
      function cm.cfilter(c,tp)
      return c:IsPreviousControler(tp)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,tp)
      end
      function cm.ntgfilter(c,e,tp)
      return c:IsFaceup() and c:GetCode()~=0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,c:GetCode()) and c:IsSetCard(0xe51)
      end
      function cm.spfilter(c,e,tp,code1,code2)
      return not c:IsCode(code1,code2)
      end
      function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_REMOVED) and cm.ntgfilter(chkc,e,tp) end
      if chk==0 then return Duel.IsExistingTarget(cm.ntgfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,1))
      local g=Duel.SelectTarget(tp,cm.ntgfilter,tp,LOCATION_REMOVED,0,1,2,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
      end
      function cm.recop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      local sg=tg:Filter(Card.IsRelateToEffect,nil,e)
      if sg:GetCount()>0 then
      local code1=sg:GetFirst():GetCode()
      local code2=sg:GetFirst():GetCode() if #sg>1 then code2=sg:GetNext():GetCode() end
      Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)
      Duel.BreakEffect()
      local bg=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp,code1,code2)
      if #bg>0 then
      Duel.BreakEffect()
      local th=bg:Select(tp,1,1,nil)
      Duel.Remove(th,POS_FACEUP,REASON_EFFECT)
      end
      end
      end
      ----灵摆效果
      function cm.hfilter(c)
      return c:IsSetCard(0xe51) and c:IsAbleToHand()
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local ng=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and cm.hfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.hfilter,tp,LOCATION_GRAVE,0,1,nil) and ng:GetCount()>0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,cm.hfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,ng,1,0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.BreakEffect()
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      end
      end
      end
      -----1效果
      function cm.hnfilter(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
      end
      function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_END
      end
      function cm.ntg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToHand() end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.nop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsAbleToHand() then
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.hnfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
      and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.hnfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      local sg=g:GetFirst()
      Duel.BreakEffect()
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0xe51) and c:IsLocation(LOCATION_EXTRA)
      end
      ----2效果
      function cm.thfilter(c)
      return c:IsSetCard(0xe51) and c:IsAbleToHand() and c:IsType(TYPE_SPELL+TYPE_TRAP)
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,0)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK+LOCATION_REMOVED,0,1,1,nil)
      if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 then
      Duel.ConfirmCards(1-tp,g)
      if g:GetFirst():IsLocation(LOCATION_HAND) and Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0 then
      Duel.BreakEffect()
      Duel.ShuffleHand(tp)
      Duel.DiscardHand(tp,aux.TRUE,1,1,REASON_EFFECT+REASON_DISCARD,nil)
      end
      end
      end
      ----3效果
      \ No newline at end of file
      expansions/script/c26640007.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-蔚澜之彩
      local m=26640007
      local cm=_G["c"..m]
      function c26640007.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
      e1:SetCode(EVENT_DISCARD)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,26640007)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.rectg)
      e1:SetOperation(cm.recop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_TO_HAND)
      e2:SetCountLimit(1,26640107)
      e2:SetCondition(cm.spcon)
      e2:SetTarget(cm.sptg)
      e2:SetOperation(cm.spop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetCategory(CATEGORY_DISABLE+CATEGORY_REMOVE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,26640207)
      e3:SetTarget(cm.target)
      e3:SetOperation(cm.activate)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetCountLimit(1,26640307)
      e4:SetCondition(cm.negcon)
      e4:SetTarget(cm.negtg)
      e4:SetOperation(cm.negop)
      c:RegisterEffect(e4)
      end
      function cm.cfilter(c,tp)
      return c:IsPreviousControler(tp)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,tp)
      end
      function cm.thfilter(c)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_MONSTER)
      end
      function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      local ng=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,nil)
      if chk==0 then return g:GetCount()>0 and ng:GetCount()>0 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND)
      end
      function cm.recop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      Duel.BreakEffect()
      local tg=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil)
      local tc=tg:GetFirst()
      if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) and tc:IsPreviousLocation(LOCATION_GRAVE) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_TRIGGER)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      end
      Duel.SpecialSummonComplete()
      end
      end
      ----灵摆效果
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return bit.band(r,REASON_EFFECT)~=0 and re:GetHandler():IsSetCard(0xe51)
      and c:IsPreviousControler(tp) and not re:GetHandler():IsCode(m)
      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 e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetMZoneCount(tp)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) then
      Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
      end
      end
      ----1效果
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local ng=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and aux.NegateMonsterFilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,1,nil)and ng:GetCount()>0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
      Duel.SelectTarget(tp,aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,ng,1,0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsDisabled() and not tc:IsImmuneToEffect(e) then
      Duel.BreakEffect()
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e2)
      end
      end
      end
      ----2效果
      function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return ( (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) and Duel.GetTurnPlayer()==tp )
      or ((Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) and Duel.GetTurnPlayer()==1-tp)
      end
      function cm.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToHand() end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.nfilter(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
      end
      function cm.negop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsAbleToHand() then
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.nfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
      and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.nfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      Duel.BreakEffect()
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0xe51) and c:IsLocation(LOCATION_EXTRA)
      end
      ----3效果
      \ No newline at end of file
      expansions/script/c26640008.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-鲜艳之彩
      local m=26640008
      local cm=_G["c"..m]
      function c26640008.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
      e1:SetCode(EVENT_DISCARD)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,26640007)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.rectg)
      e1:SetOperation(cm.recop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_REMOVE)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,26640107)
      e2:SetTarget(cm.dstg)
      e2:SetOperation(cm.dsop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetCountLimit(1,26640207)
      e3:SetCondition(cm.negcon)
      e3:SetTarget(cm.negtg)
      e3:SetOperation(cm.negop)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,1))
      e4:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_HANDES)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_REMOVE)
      e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,26640107)
      e4:SetTarget(cm.thtg)
      e4:SetOperation(cm.thop)
      c:RegisterEffect(e4)
      end
      function cm.cilter(c,tp)
      return c:IsPreviousControler(tp)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cilter,1,nil,tp)
      end
      function cm.thfilter(c)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_PENDULUM) and c:IsFaceup()
      end
      function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil)
      if chk==0 then return g:GetCount()>0 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function cm.recop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      local nc=g:GetFirst()
      if nc then
      Duel.Remove(nc,POS_FACEUP,REASON_EFFECT)
      Duel.BreakEffect()
      local tg=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_EXTRA,0,1,1,nil)
      local tc=tg:GetFirst()
      if tc then
      Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      Duel.SpecialSummonComplete()
      end
      end
      ----灵摆效果
      function cm.dstg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_ONFIELD) and chkc:IsAbleToRemove() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,nil)
      and Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g1=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g2=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      g1:Merge(g2)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g1,2,0,0)
      end
      function cm.dsop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      local tg=g:Filter(Card.IsRelateToEffect,nil,e,tp)
      if tg:GetCount()>0 then
      Duel.Remove(tg,POS_FACEUP,REASON_EFFECT)
      end
      end
      ---1效果
      function cm.nfilter(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
      end
      function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return ( (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) and Duel.GetTurnPlayer()==1-tp )
      or ((Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) and Duel.GetTurnPlayer()==tp)
      end
      function cm.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToHand() end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.negop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsAbleToHand() then
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.nfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
      and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.nfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      Duel.BreakEffect()
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0xe51) and c:IsLocation(LOCATION_EXTRA)
      end
      ---2效果
      function cm.cfilter(c)
      return c:IsSetCard(0xe51) and c:IsFaceup() and c:IsType(TYPE_MONSTER)
      end
      function cm.chfilter(c)
      return c:IsSetCard(0xe51) and c:IsAbleToHand()
      end
      function cm.hfilter(c)
      return c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local ct=Duel.GetMatchingGroupCount(cm.cfilter,tp,LOCATION_ONFIELD,0,nil)
      if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=ct
      and Duel.GetDecktopGroup(tp,ct):IsExists(Card.IsAbleToHand,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 ct=Duel.GetMatchingGroupCount(cm.cfilter,tp,LOCATION_ONFIELD,0,nil)
      Duel.ConfirmDecktop(tp,ct)
      local g=Duel.GetDecktopGroup(tp,ct)
      if g:GetCount()>0 then
      local tg=g:Filter(cm.hfilter,nil)
      if tg:GetCount()>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local sg=tg:Select(tp,1,1,nil)
      Duel.SendtoHand(sg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,sg)
      end
      Duel.ShuffleDeck(tp)
      end
      end
      ---3效果
      \ No newline at end of file
      expansions/script/c26640009.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-融绘双彩
      local m=26640009
      local cm=_G["c"..m]
      function c26640009.initial_effect(c)
      c:EnableReviveLimit()
      aux.AddLinkProcedure(c,cm.matfilter,2,2)
      --to extra
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_TOHAND)
      e1:SetCountLimit(1,26640009)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_TO_HAND)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCondition(cm.spcon)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetCountLimit(1,26640109)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(cm.con)
      e2:SetTarget(cm.rettg)
      e2:SetOperation(cm.retop)
      c:RegisterEffect(e2)
      end
      function cm.matfilter(c)
      return c:IsLinkSetCard(0xe51)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return eg:IsExists(cm.spfilter,1,nil)
      end
      function cm.spfilter(c)
      return c:IsReason(REASON_EFFECT) and c:IsPreviousControler(tp)
      and c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsAbleToHand() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      end
      end
      ---1效果
      function cm.con(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()~=tp
      end
      function cm.filter(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK)
      end
      function cm.nfilter(c,e,tp)
      return (c:IsPreviousLocation(LOCATION_GRAVE) or c:IsPreviousLocation(LOCATION_REMOVED))
      end
      function cm.rettg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if e:GetHandler():GetSequence()<5 then ft=ft+1 end
      return ft>0
      and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED,0,2,nil,e,tp)
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
      end
      function cm.retop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
      Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
      if c:IsLocation(LOCATION_EXTRA) then
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      if Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED,0,1,2,nil,e,tp)
      local tc=g:GetFirst()
      if tc then
      while tc do
      Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
      tc=g:GetNext()
      end
      local ng=g:Filter(cm.nfilter,nil)
      local hg=ng:GetFirst()
      while hg do
      local e1=Effect.CreateEffect(hg)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_TRIGGER)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      hg:RegisterEffect(e1)
      hg=ng:GetNext()
      end
      Duel.SpecialSummonComplete()
      end
      end
      end
      end
      \ No newline at end of file
      expansions/script/c26640010.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-碎彩舞台
      local m=26640010
      local cm=_G["c"..m]
      function c26640010.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,26640010+EFFECT_COUNT_CODE_OATH)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,1))
      e2:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES+CATEGORY_TODECK)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetCountLimit(1,26640110)
      e2:SetRange(LOCATION_FZONE)
      e2:SetTarget(cm.rectg)
      e2:SetOperation(cm.recop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,2))
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetCountLimit(1,26640210)
      e3:SetRange(LOCATION_FZONE)
      e3:SetTarget(cm.sctg)
      e3:SetOperation(cm.scop)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,3))
      e4:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
      e4:SetRange(LOCATION_FZONE)
      e4:SetCountLimit(1,26640310)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetTarget(cm.nptg)
      e4:SetOperation(cm.npop)
      c:RegisterEffect(e4)
      end
      function cm.cfilter(c)
      return c:GetSequence()<5
      end
      function cm.thfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xe51) and c:IsAbleToHand()
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil):GetCount()>0
      and not Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,0))then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      ---1效果
      function cm.penfilter(c)
      return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsAbleToDeck() and c:IsSetCard(0xe51)
      end
      function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.penfilter,tp,LOCATION_EXTRA,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
      end
      function cm.recop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectMatchingCard(tp,cm.penfilter,tp,LOCATION_EXTRA,0,1,1,nil)
      local tc=g:GetFirst()
      if tc and Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_DECK) then
      Duel.BreakEffect()
      Duel.Draw(tp,1,REASON_EFFECT)
      Duel.DiscardHand(tp,aux.TRUE,1,1,REASON_EFFECT+REASON_DISCARD)
      end
      end
      ---2效果
      function cm.scfilter(c)
      return c:IsFaceup() and c:IsSetCard(0xe51) and c:IsLevelAbove(0)
      end
      function cm.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.scfilter,tp,LOCATION_PZONE,0,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      end
      function cm.scop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectMatchingCard(tp,cm.scfilter,tp,LOCATION_PZONE,0,1,1,nil)
      local sc=g:GetFirst()
      if sc then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_LSCALE)
      e1:SetValue(sc:GetLevel())
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      sc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_UPDATE_RSCALE)
      sc:RegisterEffect(e2)
      end
      end
      ----3效果
      function cm.spfilter(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_PENDULUM)
      end
      function cm.gcheck(g)
      return g:GetSum(Card.GetCurrentScale)>=9
      end
      function cm.nptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and g:GetCount()>0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_PZONE,0,1,nil,e,tp)
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_PZONE)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,0)
      end
      function cm.npop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp)
      if #g==0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local ng=g:SelectWithSumGreater(tp,Card.GetCurrentScale,9)
      Duel.Remove(ng,POS_FACEUP,REASON_EFFECT)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_PZONE,0,nil,e,tp):GetCount()>0 then
      Duel.BreakEffect()
      local yg=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_PZONE,0,1,1,nil,e,tp)
      local sg=yg:GetFirst()
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      ---4效果
      \ No newline at end of file
      expansions/script/c26640011.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-祥瑞之彩
      local m=26640011
      local cm=_G["c"..m]
      function c26640011.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(cm.atktg)
      e1:SetOperation(cm.atkop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_REMOVE)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,26640011)
      e2:SetCost(cm.cost)
      e2:SetTarget(cm.settg)
      e2:SetOperation(cm.setop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_REMOVE)
      e3:SetCost(cm.cost)
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,26640111)
      e3:SetTarget(cm.thtg)
      e3:SetOperation(cm.thop)
      c:RegisterEffect(e3)
      end
      function cm.indval(e,c)
      return c:IsFaceup() and not c:IsAttack(c:GetBaseAttack())
      end
      function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      end
      function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc and tc:IsFaceup() then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(500)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(e:GetHandler())
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_UPDATE_DEFENSE)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      e2:SetValue(500)
      tc:RegisterEffect(e2)
      end
      end
      ----1效果
      function cm.setfilter(c)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_TRAP+TYPE_SPELL) and c:IsSSetable() and not c:IsCode(26640011)
      end
      function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      local b1=Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_REMOVED,0,1,nil)
      if chk==0 then return b1 end
      end
      function cm.setop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_REMOVED,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SSet(tp,g:GetFirst())
      end
      end
      ---2效果
      function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:GetFlagEffect(26640011)==0 end
      c:RegisterFlagEffect(26640011,RESET_CHAIN,0,1)
      end
      function cm.thfilter(c)
      return c:IsSetCard(0xe51) and c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local b2=Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_EXTRA,0,1,nil)
      if chk==0 then return b2 end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_EXTRA,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      ---三效果
      \ No newline at end of file
      expansions/script/c26640012.lua deleted 100644 → 0
      View file @ e7176395
      --下午茶时间
      local m=26640012
      local cm=_G["c"..m]
      function c26640012.initial_effect(c)
      local e0=Effect.CreateEffect(c)
      e0:SetDescription(aux.Stringid(m,0))
      e0:SetType(EFFECT_TYPE_ACTIVATE)
      e0:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e0)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,1))
      e1:SetCategory(CATEGORY_HANDES+CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCountLimit(1,26640012)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCost(cm.descost)
      e1:SetTarget(cm.drtg)
      e1:SetOperation(cm.drop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,26640112)
      e2:SetTarget(cm.sctg)
      e2:SetOperation(cm.spop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_REMOVE)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,26640212)
      e3:SetTarget(cm.tg)
      e3:SetOperation(cm.activate)
      c:RegisterEffect(e3)
      end
      function cm.dfilter(c)
      return c:IsAbleToGrave()
      end
      function cm.descost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
      Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
      end
      function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function cm.drop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.Draw(tp,1,REASON_EFFECT)~=0 then
      if Duel.GetFirstMatchingCard(cm.dfilter,tp,LOCATION_REMOVED,0,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
      Duel.BreakEffect()
      local sg=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_REMOVED,0,1,1,nil,tp)
      Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)
      end
      end
      end
      -----发动效果
      function cm.tdfilter(c)
      return c:IsAbleToDeck() and c:IsFaceup() and c:IsSetCard(0xe51)
      end
      function cm.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local g=Duel.GetMatchingGroup(cm.tdfilter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
      end
      function cm.thfilter1(c)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_MONSTER)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.SelectMatchingCard(tp,cm.tdfilter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,3,nil)
      local ct=Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
      local hg1=Duel.GetMatchingGroup(cm.thfilter1,tp,LOCATION_GRAVE,0,nil)
      if ct>=1 then
      Duel.BreakEffect()
      Duel.DiscardHand(tp,aux.TRUE,1,1,REASON_EFFECT+REASON_DISCARD)
      if ct>=2 and hg1:GetCount()>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local ag=Duel.SelectMatchingCard(tp,cm.thfilter1,tp,LOCATION_GRAVE,0,1,1,nil)
      local tc=ag:GetFirst()
      if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+0x1fe0000)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(e:GetHandler())
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetReset(RESET_EVENT+0x1fe0000)
      tc:RegisterEffect(e2)
      end
      Duel.SpecialSummonComplete()
      if ct>=3 then
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      end
      end
      ----2效果
      function cm.filter(c)
      return c:IsFaceup() and c:IsSetCard(0xe51) and not c:IsCode(26640012)
      end
      function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_REMOVED) and cm.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,LOCATION_REMOVED,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,0))
      local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_REMOVED,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      local sg=tg:Filter(Card.IsRelateToEffect,nil,e)
      if sg:GetCount()>0 then
      Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)
      if Duel.IsPlayerCanDiscardDeck(tp,1) then
      Duel.BreakEffect()
      Duel.DiscardDeck(tp,1,REASON_EFFECT)
      end
      end
      end
      expansions/script/c26640013.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-星空下的守望
      local m=26640013
      local cm=_G["c"..m]
      function c26640013.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --Atk
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_UPDATE_DEFENSE)
      e2:SetRange(LOCATION_SZONE)
      e2:SetTargetRange(LOCATION_MZONE,0)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_MONSTER))
      e2:SetValue(500)
      c:RegisterEffect(e2)
      --Def
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetRange(LOCATION_SZONE)
      e3:SetTargetRange(0,LOCATION_MZONE)
      e3:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_MONSTER))
      e3:SetValue(-500)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,0))
      e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetRange(LOCATION_SZONE)
      e4:SetCountLimit(1,26640013)
      e4:SetTarget(cm.thtg1)
      e4:SetOperation(cm.thop1)
      c:RegisterEffect(e4)
      local e5=Effect.CreateEffect(c)
      e5:SetDescription(aux.Stringid(m,0))
      e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e5:SetCode(EVENT_REMOVE)
      e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e5:SetCountLimit(1,26640113)
      e5:SetTarget(cm.settg)
      e5:SetOperation(cm.setop)
      c:RegisterEffect(e5)
      end
      function cm.thfilter1(c)
      return c:IsFaceup() and c:IsSetCard(0xe51) and c:IsAbleToHand()
      end
      function cm.thfilter2(c)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_PENDULUM)
      end
      function cm.thfilter4(c)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_MONSTER)
      end
      function cm.thfilter3(c)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_LINK)
      end
      function cm.thtg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.thfilter1(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.thfilter1,tp,LOCATION_MZONE,0,1,nil)
      end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,cm.thfilter1,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,tp,LOCATION_ONFIELD)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
      end
      function cm.thop1(e,tp,eg,ep,ev,re,r,rp)
      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.thfilter3,tp,LOCATION_MZONE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      local ng=Duel.SelectMatchingCard(tp,cm.thfilter4,tp,LOCATION_DECK,0,1,1,nil)
      local nc=ng:GetFirst()
      if nc then
      Duel.SpecialSummon(nc,0,tp,tp,false,false,POS_FACEUP)
      end
      else
      local tg=Duel.SelectMatchingCard(tp,cm.thfilter2,tp,LOCATION_HAND,0,1,1,nil)
      local tc=tg:GetFirst()
      if tc then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      end
      ----2效果
      function cm.setfilter(c)
      return c:IsCode(26640014)
      end
      function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_REMOVED+LOCATION_DECK,0,1,nil) end
      end
      function cm.setop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_REMOVED+LOCATION_DECK,0,1,1,nil)
      local tc=g:GetFirst()
      if g:GetCount()>0 then
      Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      end
      end
      \ No newline at end of file
      expansions/script/c26640014.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-晨初时分
      local m=26640014
      local cm=_G["c"..m]
      function c26640014.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --Atk
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetRange(LOCATION_SZONE)
      e2:SetTargetRange(LOCATION_MZONE,0)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_MONSTER))
      e2:SetValue(500)
      c:RegisterEffect(e2)
      --Def
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetRange(LOCATION_SZONE)
      e3:SetTargetRange(0,LOCATION_MZONE)
      e3:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_MONSTER))
      e3:SetValue(-500)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_DESTROYED)
      e4:SetRange(LOCATION_SZONE)
      e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1)
      e4:SetCost(cm.descost)
      e4:SetCondition(cm.spcon)
      e4:SetTarget(cm.sptg)
      e4:SetOperation(cm.spop)
      c:RegisterEffect(e4)
      local e5=e4:Clone()
      e5:SetCode(EVENT_REMOVE)
      c:RegisterEffect(e5)
      local e6=Effect.CreateEffect(c)
      e6:SetDescription(aux.Stringid(34664411,0))
      e6:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e6:SetCode(EVENT_DESTROYED)
      e6:SetCondition(cm.drcon)
      e6:SetTarget(cm.sptg2)
      e6:SetOperation(cm.spop2)
      c:RegisterEffect(e4)
      end
      function cm.cfilter(c,tp)
      return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE)
      and c:IsPreviousControler(tp) and c:IsSetCard(0xe51)
      and c:GetOriginalAttribute()~=0 and c:GetLevel()~=0 and c:GetOriginalRace()~=0
      end
      function cm.chfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
      end
      function cm.descost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.chfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,cm.chfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,tp)
      end
      function cm.spfilter(c,e,tp,lev,rac,att)
      return c:IsAttribute(att) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) and not c:IsLevel(lev) and c:IsRace(rac)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end
      local g=eg:Filter(cm.cfilter,nil,tp)
      local att=ATTRIBUTE_ALL
      local rac=RACE_ALL
      local tc=g:GetFirst()
      while tc do
      att=bit.band(att,tc:GetOriginalAttribute())
      rac=bit.band(rac,tc:GetOriginalRace())
      lev=bit.band(lev,tc:GetLevel())
      tc=g:GetNext()
      end
      att=ATTRIBUTE_ALL-att
      rac=RACE_ALL-rac
      lev=lev
      e:SetLabel(lev,rac,att)
      return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,lev,rac,att)
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      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_DECK,0,1,1,nil,e,tp,e:GetLabel())
      local tc=g:GetFirst()
      if tc then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      -----2效果
      function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return rp==1-tp and c:IsReason(REASON_DESTROY)
      and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp
      end
      function cm.spfilter2(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLinkBelow(4)
      end
      function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCountFromEx(tp)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.spfilter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END,2)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0xe51)
      end
      expansions/script/c26640015.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-守望的银河
      local m=26640015
      local cm=_G["c"..m]
      function c26640015.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,1))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCountLimit(1,26640015)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCost(cm.descost)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOEXTRA)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_REMOVE)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,26640015)
      e2:SetTarget(cm.sptg)
      e2:SetOperation(cm.spop)
      c:RegisterEffect(e2)
      end
      function cm.chfilter(c)
      return c:IsAbleToRemoveAsCost()
      end
      function cm.descost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.chfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,cm.chfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function cm.thfilter(c)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function cm.filter(c)
      return c:IsFaceup() and c:IsSetCard(0xe51)
      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)
      local hg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_REMOVED,0,nil)
      if hg:GetClassCount(Card.GetCode)>=3 and Duel.SelectYesNo(tp,aux.Stringid(m,0))then
      Duel.BreakEffect()
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      end
      ----1效果
      function cm.tefilter(c)
      return c:IsType(TYPE_PENDULUM) and c:IsSetCard(0xe51)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.tefilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,nil,1,tp,LOCATION_DECK)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELECT)
      local g=Duel.SelectMatchingCard(tp,cm.tefilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoExtraP(g,tp,REASON_EFFECT)
      local hg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_EXTRA,0,nil)
      if not Duel.IsPlayerAffectedByEffect(tp,59822133) and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and
      hg:GetClassCount(Card.GetCode)>=5 and hg:GetClassCount(Card.GetCode)>=2 and Duel.SelectYesNo(tp,aux.Stringid(m,1))then
      local sg1=hg:Select(tp,1,1,nil)
      hg:Remove(Card.IsCode,nil,sg1:GetFirst():GetCode())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg2=hg:Select(tp,1,1,nil)
      hg:Remove(Card.IsCode,nil,sg2:GetFirst():GetCode())
      sg1:Merge(sg2)
      local fid=e:GetHandler():GetFieldID()
      local tc=sg1:GetFirst()
      while tc do
      Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
      tc:RegisterFlagEffect(26640015,RESET_EVENT+0x1fe0000,0,1,fid)
      tc=sg1:GetNext()
      end
      Duel.SpecialSummonComplete()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0xe51) and c:IsLocation(LOCATION_EXTRA)
      end
      ---2效果
      \ No newline at end of file
      expansions/script/c26640016.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-壮烈成仁
      local m=26640016
      local cm=_G["c"..m]
      function c26640016.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCountLimit(1,m)
      e1:SetCost(cm.discost)
      e1:SetCondition(cm.negcon)
      e1:SetTarget(cm.negtg)
      e1:SetOperation(cm.negop)
      c:RegisterEffect(e1)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_REMOVE)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,26640113)
      e3:SetTarget(cm.settg)
      e3:SetOperation(cm.setop)
      c:RegisterEffect(e3)
      end
      function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsChainNegatable(ev) and rp==1-tp
      end
      function cm.discfilter(c)
      return c:IsSetCard(0xe51) and c:IsAbleToRemoveAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.discost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.discfilter,tp,LOCATION_ONFIELD,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,cm.discfilter,tp,LOCATION_ONFIELD,0,1,1,c)
      local sg=g:GetFirst()
      Duel.Remove(sg,POS_Faceup,REASON_COST)
      end
      function cm.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return aux.nbcon(tp,re) end
      Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
      if re:GetHandler():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0)
      end
      end
      function cm.negop(e,tp,eg,ep,ev,re,r,rp)
      local tc=re:GetHandler()
      if Duel.NegateActivation(tc) and re:GetHandler():IsRelateToEffect(re) then
      Duel.Remove(eg,POS_FACEUP,REASON_EFFECT)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
      e1:SetTarget(cm.distg)
      e1:SetLabelObject(tc)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_CHAIN_SOLVING)
      e2:SetCondition(cm.discon)
      e2:SetOperation(cm.disop)
      e2:SetLabelObject(tc)
      e2:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e2,tp)
      end
      end
      function cm.distg(e,c)
      local tc=e:GetLabelObject()
      return c:IsOriginalCodeRule(tc:GetOriginalCodeRule()) and (c:IsType(TYPE_EFFECT) or c:GetOriginalType()&TYPE_EFFECT~=0)
      end
      function cm.discon(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      return re:GetHandler():IsOriginalCodeRule(tc:GetOriginalCodeRule())
      end
      function cm.disop(e,tp,eg,ep,ev,re,r,rp)
      Duel.NegateEffect(ev)
      end
      ----1效果
      function cm.filter(c)
      return not c:IsPosition(POS_FACEUP_DEFENSE) and c:IsCanChangePosition()
      end
      function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,0,LOCATION_MZONE,1,nil) end
      end
      function cm.setop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(cm.filter,tp,0,LOCATION_MZONE,nil)
      local c=e:GetHandler()
      local tc=g:GetFirst()
      while tc do
      Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE,true)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      tc=g:GetNext()
      end
      end
      ----2效果
      \ No newline at end of file
      expansions/script/c26640017.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-紊乱之彩
      local m=26640017
      local cm=_G["c"..m]
      function c26640017.initial_effect(c)
      aux.AddSynchroMixProcedure(c,cm.matfilter1,nil,nil,cm.matfilter2,1,99)
      c:EnableReviveLimit()
      aux.EnablePendulumAttribute(c,false)
      --pendulum summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetRange(LOCATION_PZONE)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_MONSTER))
      e1:SetValue(-500)
      c:RegisterEffect(e1)
      --Def
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_UPDATE_DEFENSE)
      e2:SetRange(LOCATION_PZONE)
      e2:SetTargetRange(LOCATION_MZONE,0)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_MONSTER))
      e2:SetValue(-500)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_LEAVE_FIELD)
      e3:SetRange(LOCATION_PZONE)
      e3:SetCountLimit(1,26640117)
      e3:SetCondition(cm.spcon2)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop2)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD)
      e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e4:SetRange(LOCATION_MZONE)
      e4:SetTargetRange(LOCATION_MZONE,0)
      e4:SetTarget(cm.indtg)
      e4:SetValue(1)
      c:RegisterEffect(e4)
      local e5=Effect.CreateEffect(c)
      e5:SetDescription(aux.Stringid(m,0))
      e5:SetCategory(CATEGORY_REMOVE)
      e5:SetType(EFFECT_TYPE_QUICK_O)
      e5:SetCode(EVENT_FREE_CHAIN)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1,m)
      e5:SetTarget(cm.destg)
      e5:SetOperation(cm.desop)
      c:RegisterEffect(e5)
      local e6=Effect.CreateEffect(c)
      e6:SetDescription(aux.Stringid(m,0))
      e6:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
      e6:SetType(EFFECT_TYPE_QUICK_O)
      e6:SetCode(EVENT_CHAINING)
      e6:SetRange(LOCATION_GRAVE)
      e6:SetCondition(cm.spcon)
      e6:SetTarget(cm.sptg)
      e6:SetOperation(cm.spop)
      c:RegisterEffect(e6)
      end
      c26640017.pendulum_level=8
      function cm.matfilter2(c)
      return c:IsSynchroType(TYPE_PENDULUM) and c:IsSetCard(0xe51)
      end
      function cm.matfilter1(c)
      return c:IsSynchroType(TYPE_TUNER) or c:IsSetCard(0xe51)
      end
      function cm.penfilter(c)
      return c:IsType(TYPE_PENDULUM) and not c:IsForbidden() and c:IsFaceup() and c:IsSetCard(0xe51)
      end
      function cm.cfilter(c,tp,rp)
      return c:GetPreviousControler()==tp
      and c:IsPreviousSetCard(0xe51) and (rp==1-tp and c:IsReason(REASON_EFFECT)) and c:IsType(TYPE_MONSTER)
      end
      function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,tp,rp) and e:GetHandler():IsLocation(LOCATION_PZONE)
      end
      function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then
      c:CompleteProcedure()
      if Duel.GetMatchingGroup(cm.penfilter,tp,LOCATION_EXTRA,0,nil):GetCount()>0 and not Duel.GetMatchingGroup(cm.penfilter,tp,LOCATION_EXTRA,0,nil):GetCount()==2 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.BreakEffect()
      local g=Duel.SelectMatchingCard(tp,cm.penfilter,tp,LOCATION_EXTRA,0,1,1,nil)
      local tc=g:GetFirst()
      Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      Duel.DiscardHand(tp,cm.aux.TRUE,1,1,REASON_EFFECT+REASON_DISCARD)
      end
      end
      end
      ---灵摆效果
      function cm.indtg(e,c)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_MONSTER)
      end
      ---1效果
      function cm.desfilter1(c)
      return Duel.IsExistingMatchingCard(nil,tp,LOCATION_ONFIELD,0,1,nil) and Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil)
      end
      function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.desfilter1,tp,LOCATION_ONFIELD,0,1,nil) and Duel.IsExistingMatchingCard(cm.desfilter1,tp,0,LOCATION_ONFIELD,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,2,0,0)
      end
      function cm.desop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g1=Duel.SelectMatchingCard(tp,cm.desfilter1,tp,LOCATION_ONFIELD,0,1,1,nil)
      if #g1==0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g2=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_ONFIELD,1,1,g1)
      g1:Merge(g2)
      Duel.HintSelection(g1)
      Duel.Remove(g1,POS_FACEUP,REASON_EFFECT)
      end
      ----2效果
      function cm.peenfilter(c)
      return c:IsType(TYPE_PENDULUM) and not c:IsForbidden() and c:IsFaceup() and c:IsSetCard(0xe51)
      and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetCurrentScale())
      end
      function cm.spfilter1(c,e,tp,lv)
      return c:IsSetCard(0xe51) and c:IsLevel(lv) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsFaceup()
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return re:IsActiveType(TYPE_PENDULUM) and re:IsLocation(LOCATION_PZONE) and re:IsControler(tp) and re:IsSetCard(0xe51)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.peenfilter,tp,LOCATION_PZONE,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectMatchingCard(tp,cm.peenfilter,tp,LOCATION_PZONE,0,1,1,nil)
      local tc=g:GetFirst()
      local lv=tc:GetCurrentScale()
      if tc and Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_DECK) then
      Duel.BreakEffect()
      local ng=Duel.SelectMatchingCard(tp,cm.spfilter1,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,lv)
      local yc=ng:GetFirst()
      if yc then
      Duel.SpecialSummon(yc,0,tp,tp,false,false,POS_FACEUP)
      end
      Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      \ No newline at end of file
      expansions/script/c26640018.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-未晓之彩
      local m=26640018
      local cm=_G["c"..m]
      function c26640018.initial_effect(c)
      aux.AddSynchroMixProcedure(c,cm.matfilter1,nil,nil,cm.matfilter2,1,99)
      c:EnableReviveLimit()
      aux.EnablePendulumAttribute(c,false)
      --pendulum summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetRange(LOCATION_PZONE)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xe51))
      e1:SetValue(500)
      c:RegisterEffect(e1)
      --Def
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_UPDATE_DEFENSE)
      e2:SetRange(LOCATION_PZONE)
      e2:SetTargetRange(LOCATION_MZONE,0)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xe51))
      e2:SetValue(500)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_CHAINING)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCondition(cm.condition)
      e3:SetTarget(cm.target)
      e3:SetOperation(cm.operation)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
      e4:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e4:SetType(EFFECT_TYPE_FIELD)
      e4:SetRange(LOCATION_MZONE)
      e4:SetTargetRange(LOCATION_MZONE,0)
      e4:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xcda4))
      e4:SetValue(aux.tgoval)
      c:RegisterEffect(e4)
      local e5=Effect.CreateEffect(c)
      e5:SetDescription(aux.Stringid(m,0))
      e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e5:SetType(EFFECT_TYPE_QUICK_O)
      e5:SetCode(EVENT_FREE_CHAIN)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1,26640018)
      e5:SetTarget(cm.thtarget)
      e5:SetOperation(cm.thoperation)
      c:RegisterEffect(e5)
      local e8=Effect.CreateEffect(c)
      e8:SetDescription(aux.Stringid(m,3))
      e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e8:SetCode(EVENT_DESTROYED)
      e8:SetProperty(EFFECT_FLAG_DELAY)
      e8:SetCondition(cm.pencon)
      e8:SetTarget(cm.pentg)
      e8:SetOperation(cm.penop)
      c:RegisterEffect(e8)
      end
      c26640018.pendulum_level=8
      function cm.matfilter2(c)
      return c:IsSynchroType(TYPE_PENDULUM) and c:IsSetCard(0xe51)
      end
      function cm.matfilter1(c)
      return c:IsSynchroType(TYPE_TUNER) or c:IsSetCard(0xe51)
      end
      function cm.spfilter1(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsLevelBelow(8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsFaceup()
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) or not Duel.IsChainNegatable(ev) then return false end
      if re:IsHasCategory(CATEGORY_NEGATE)
      and Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT):IsHasType(EFFECT_TYPE_ACTIVATE) then return false end
      local ex,tg,tc=Duel.GetOperationInfo(ev,CATEGORY_DESTROY)
      local ex2,tg2,tc2=Duel.GetOperationInfo(ev,CATEGORY_REMOVE)
      return (ex and tg~=nil and tc+tg:FilterCount(Card.IsOnField,nil)-tg:GetCount()>0)
      or (ex2 and tg2~=nil and tc2+tg2:FilterCount(Card.IsOnField,nil)-tg2:GetCount()>0)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return end
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
      if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      local ec=re:GetHandler()
      if Duel.NegateActivation(ev) and ec:IsRelateToEffect(re) then
      Duel.Destroy(e:GetHandler(),REASON_EFFECT)
      Duel.BreakEffect()
      local ng=Duel.SelectMatchingCard(tp,cm.spfilter1,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
      local yc=ng:GetFirst()
      if yc then
      Duel.SpecialSummon(yc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      ---灵摆效果
      function cm.thtarget(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsFaceup() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,0,1,nil) and Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil):GetCount()>0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,0)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,0,1,1,nil)
      end
      function cm.thoperation(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsFaceup() then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_IMMUNE_EFFECT)
      e1:SetValue(cm.efilter)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      Duel.BreakEffect()
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      end
      end
      function cm.efilter(e,re)
      return e:GetOwnerPlayer()~=re:GetOwnerPlayer()
      end
      ------1效果
      function cm.pencon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
      end
      function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function cm.penop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      \ No newline at end of file
      expansions/script/c26640019.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-朦萌之彩
      local m=26640019
      local cm=_G["c"..m]
      function c26640019.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetRange(LOCATION_HAND)
      e1:SetCost(cm.cost)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetCountLimit(1)
      e2:SetHintTiming(0,TIMING_END_PHASE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetTarget(cm.tg)
      e2:SetOperation(cm.op)
      c:RegisterEffect(e2)
      end
      function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return not c:IsPublic() and c:GetFlagEffect(26640019)==0 end
      c:RegisterFlagEffect(26640019,RESET_CHAIN,0,1)
      end
      function cm.spfilter1(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsFaceup() and c:IsAbleToHand() and c:IsType(TYPE_MONSTER) and not c:IsCode(26640019)
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and chkc:IsAbleToHand() end
      if chk==0 then return Duel.IsExistingTarget(cm.spfilter1,tp,LOCATION_ONFIELD,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,cm.spfilter1,tp,LOCATION_ONFIELD,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      local c=e:GetHandler()
      if tc:IsRelateToEffect(e) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)
      end
      end
      ----1效果
      function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local lv=e:GetHandler():GetLevel()
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,0))
      e:SetLabel(Duel.AnnounceLevel(tp,2,8,lv))
      end
      function cm.op(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsFaceup() and c:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LEVEL)
      e1:SetValue(e:GetLabel())
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      end
      end
      ---2效果
      function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return ( ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE and Duel.GetTurnPlayer()==tp )
      or (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2 and Duel.GetTurnPlayer()==tp)
      end
      function cm.scfilter1(c,e,tp,mc)
      local mg=Group.FromCards(c,mc)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0xe51)
      and not c:IsCode(26640019)
      and Duel.IsExistingMatchingCard(cm.scfilter2,tp,LOCATION_EXTRA,0,1,nil,mg)
      end
      function cm.scfilter2(c,mg)
      return c:IsSynchroSummonable(nil,mg)
      end
      function cm.sctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and cm.scfilter1(chkc,e,tp,c) end
      if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(cm.scfilter1,tp,LOCATION_REMOVED,0,1,nil,e,tp,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,cm.scfilter1,tp,LOCATION_REMOVED,0,1,1,nil,e,tp,c)
      Duel.SetOperationInfo(g,CATEGORY_SPECIAL_SUMMON,g,2,tp,LOCATION_EXTRA)
      end
      function cm.scop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) or not Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then return end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      tc:RegisterEffect(e2)
      Duel.SpecialSummonComplete()
      if not c:IsRelateToEffect(e) then return end
      Duel.RaiseEvent(c,EVENT_ADJUST,nil,0,PLAYER_NONE,PLAYER_NONE,0)
      local mg=Group.FromCards(c,tc)
      if mg:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<2 then return end
      local g=Duel.GetMatchingGroup(cm.scfilter2,tp,LOCATION_EXTRA,0,nil,mg)
      if g:GetCount()>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g:Select(tp,1,1,nil)
      Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg)
      Duel.BreakEffect()
      Duel.DiscardHand(tp,aux.TRUE,1,1,REASON_EFFECT+REASON_DISCARD)
      end
      end
      expansions/script/c26640020.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-水殇之彩
      local m=26640020
      local cm=_G["c"..m]
      function c26640020.initial_effect(c)
      c:EnableReviveLimit()
      aux.AddLinkProcedure(c,nil,2,4,cm.lcheck)
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_REMOVE)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,26640020)
      e1:SetTarget(cm.rmtg)
      e1:SetOperation(cm.rmop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCode(EFFECT_SPSUMMON_CONDITION)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetRange(LOCATION_REMOVED)
      e3:SetCode(EFFECT_SPSUMMON_CONDITION)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_CHAINING)
      e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,26640120)
      e4:SetCondition(cm.discon)
      e4:SetTarget(cm.distg)
      e4:SetOperation(cm.disop)
      c:RegisterEffect(e4)
      local e5=Effect.CreateEffect(c)
      e5:SetDescription(aux.Stringid(m,1))
      e5:SetCategory(CATEGORY_DESTROY)
      e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e5:SetCode(EVENT_LEAVE_FIELD)
      e5:SetProperty(EFFECT_FLAG_DELAY)
      e5:SetCondition(cm.descon)
      e4:SetTarget(cm.sptg2)
      e5:SetOperation(cm.spop2)
      c:RegisterEffect(e5)
      end
      function cm.lcheck(g,lc)
      return g:IsExists(Card.IsLinkSetCard,1,nil,0xe51)
      end
      function cm.rmfilter(c)
      return c:IsAbleToRemove()
      end
      function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_ONFIELD) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE+LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE+LOCATION_ONFIELD,1,2,nil)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),1-tp,LOCATION_GRAVE+LOCATION_ONFIELD)
      end
      function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      if g:GetCount()~=0 then
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      if Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil) then
      Duel.BreakEffect()
      local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      local ng=sg:GetFirst()
      Duel.Remove(ng,POS_FACEUP,REASON_EFFECT)
      end
      end
      end
      ---1效果
      function cm.discon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp and re:GetHandler()~=e:GetHandler() and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
      and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev)
      end
      function cm.disfilter(c)
      return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsAbleToGrave() and c:IsSetCard(0xe51)
      end
      function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.disfilter,tp,LOCATION_EXTRA,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_EXTRA)
      Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
      if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
      end
      end
      function cm.disop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectMatchingCard(tp,cm.disfilter,tp,LOCATION_EXTRA,0,1,1,nil)
      if Duel.SendtoGrave(g,REASON_EFFECT)~=0 then
      if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
      Duel.Destroy(eg,REASON_EFFECT)
      end
      end
      end
      ---2效果
      function cm.descon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_MZONE)
      and c:IsPreviousControler(tp)
      end
      function cm.spfilter2(c,e,tp)
      return c:IsSetCard(0xe51) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(26640020)
      end
      function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if Duel.GetLocationCountFromEx(tp)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.spfilter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0xe51)
      end
      expansions/script/c26640021.lua deleted 100644 → 0
      View file @ e7176395
      --颜彩-彩福双子星
      local m=26640021
      local cm=_G["c"..m]
      function c26640021.initial_effect(c)
      c:EnableReviveLimit()
      aux.AddLinkProcedure(c,nil,3,7,cm.lcheck)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
      e1:SetRange(LOCATION_EXTRA)
      e1:SetTargetRange(0,LOCATION_MZONE)
      e1:SetValue(cm.matval)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsSummonType,SUMMON_TYPE_LINK))
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_IMMUNE_EFFECT)
      e3:SetValue(cm.efilter)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD)
      e4:SetRange(LOCATION_MZONE)
      e4:SetTargetRange(0,LOCATION_MZONE)
      e4:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
      e4:SetValue(cm.atlimit)
      c:RegisterEffect(e4)
      local e5=Effect.CreateEffect(c)
      e5:SetDescription(aux.Stringid(m,0))
      e5:SetCategory(CATEGORY_NEGATE)
      e5:SetType(EFFECT_TYPE_QUICK_O)
      e5:SetCode(EVENT_CHAINING)
      e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1,m)
      e5:SetCondition(cm.negcon)
      e5:SetTarget(cm.negtg)
      e5:SetOperation(cm.negop)
      c:RegisterEffect(e5)
      end
      function cm.lcheck(g,lc)
      return g:IsExists(Card.IsLinkSetCard,1,nil,0xe51)
      end
      function cm.matval(e,lc,mg,c,tp)
      if e:GetHandler()~=lc then return false,nil end
      return true,not mg or not mg:IsExists(Card.IsControler,1,nil,1-tp)
      end
      ----连接召唤素材
      function cm.efilter(e,te)
      if te:GetHandlerPlayer()==e:GetHandlerPlayer() or not te:IsActivated() then return false end
      if not te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return true end
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      return not g or not g:IsContains(e:GetHandler())
      end
      function cm.atlimit(e,c)
      return c~=e:GetHandler()
      end
      ----永续效果
      function cm.cfilter(c)
      return c:IsFaceup() and c:IsSetCard(0xe51) and not c:IsCode(m)
      end
      function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
      return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) and rp==1-tp and e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
      end
      function cm.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
      end
      function cm.negop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.NegateActivation(ev) then
      local g1=Duel.GetMatchingGroup(cm.cfilter,tp,LOCATION_MZONE,0,nil)
      if g1:GetCount()>0 then
      Duel.BreakEffect()
      local nc=g1:GetFirst()
      while nc do
      local e3=Effect.CreateEffect(e:GetHandler())
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_IMMUNE_EFFECT)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e3:SetValue(cm.ehfilter)
      e3:SetOwnerPlayer(tp)
      nc:RegisterEffect(e3)
      nc=g1:GetNext()
      end
      end
      end
      end
      function cm.ehfilter(e,re)
      return e:GetOwnerPlayer()~=re:GetOwnerPlayer() and re:IsActivated() and re:IsActiveType(TYPE_MONSTER)
      end
      \ No newline at end of file
      expansions/script/c26640022.lua deleted 100644 → 0
      View file @ e7176395
      --交界间的颜彩使
      local m=26640022
      local cm=_G["c"..m]
      function c26640022.initial_effect(c)
      c:EnableReviveLimit()
      aux.AddLinkProcedure(c,nil,2,3,cm.lcheck)
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,26640022)
      e1:SetCost(cm.atkcost)
      e1:SetTarget(cm.rectg)
      e1:SetOperation(cm.recop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetCategory(CATEGORY_REMOVE+CATEGORY_TOHAND)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetCountLimit(1)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCost(cm.kcost)
      e2:SetCondition(cm.discon)
      e2:SetTarget(cm.nrectg)
      e2:SetOperation(cm.nrecop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetCategory(CATEGORY_REMOVE+CATEGORY_TOHAND)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetCountLimit(1)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCost(cm.cost)
      e3:SetCondition(cm.iscon)
      e3:SetTarget(cm.ectg)
      e3:SetOperation(cm.ecop)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e4:SetCondition(cm.niscon)
      e4:SetValue(1)
      c:RegisterEffect(e4)
      local e5=e4:Clone()
      e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      c:RegisterEffect(e5)
      local e6=Effect.CreateEffect(c)
      e6:SetType(EFFECT_TYPE_SINGLE)
      e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e6:SetRange(LOCATION_MZONE)
      e6:SetCode(EFFECT_UPDATE_ATTACK)
      e6:SetValue(600)
      e6:SetCondition(cm.hniscon)
      c:RegisterEffect(e6)
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_SINGLE)
      e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e7:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
      e7:SetRange(LOCATION_MZONE)
      e7:SetCondition(cm.hniscon)
      e7:SetValue(aux.tgoval)
      c:RegisterEffect(e7)
      end
      function cm.cfilter(c)
      return (c:IsSetCard(0xe51) or c:IsSetCard(0xb81) ) and c:IsType(TYPE_SYNCHRO)
      end
      ----同调素材
      function cm.filter(c)
      return (c:IsSetCard(0xe51) or c:IsSetCard(0xb81) ) and c:IsType(TYPE_MONSTER)
      end
      function cm.lcheck(g,lc)
      return g:IsExists(cm.cfilter,1,nil)
      end
      function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
      local ng=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_REMOVED,0,nil)
      if chk==0 then return ng:GetCount()>0 end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED)
      end
      function cm.recop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp)
      local tc=g:GetFirst()
      if tc then
      while tc do
      Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
      local e1=Effect.CreateEffect(tc)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_TRIGGER)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      hg:RegisterEffect(e1)
      tc=g:GetNext()
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.splimit(e,c)
      return not (c:IsSetCard(0xe51) or c:IsSetCard(0xb81) )
      end
      ----1效果
      function cm.kcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
      Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
      end
      function cm.ccfilter1(c)
      return c:IsSetCard(0xe51) and c:IsType(TYPE_SYNCHRO)
      end
      function cm.discon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():GetMaterial():FilterCount(cm.ccfilter1,nil)>0
      end
      function cm.nrectg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>2 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,3,tp,LOCATION_DECK)
      end
      function cm.thfilter(c,lv)
      return c:IsSetCard(0xe51) or c:IsSetCard(0xb81)
      end
      function cm.nrecop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=3 then
      Duel.ConfirmDecktop(tp,3)
      local g=Duel.GetDecktopGroup(tp,3)
      local ct=g:GetCount()
      if ct>0 and g:FilterCount(cm.thfilter,nil,ct)>0 then
      Duel.DisableShuffleCheck()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local sg=g:FilterSelect(tp,cm.thfilter,1,1,nil,ct)
      Duel.SendtoHand(sg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,sg)
      Duel.ShuffleHand(tp)
      g:Sub(sg)
      end
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      if Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil) then
      Duel.BreakEffect()
      local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,1,nil)
      local ng=sg:GetFirst()
      Duel.Remove(ng,POS_FACEUP,REASON_EFFECT)
      end
      end
      end
      --颜彩同调怪兽为素材
      function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
      Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
      end
      function cm.ccfilter2(c)
      return c:IsSetCard(0xb81) and c:IsType(TYPE_SYNCHRO)
      end
      function cm.iscon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():GetMaterial():FilterCount(cm.ccfilter2,nil)>0
      end
      function cm.ectg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      if chk==0 then return g:GetCount()>0 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      end
      function cm.ecop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      end
      if Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,nil) then
      Duel.BreakEffect()
      local sg=Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,1,nil)
      local ng=sg:GetFirst()
      Duel.Remove(ng,POS_FACEUP,REASON_EFFECT)
      end
      end
      ----交界同调怪兽为素材
      function cm.ccfilter3(c)
      return c:IsSetCard(0xe51) and not c:IsType(TYPE_SYNCHRO)
      end
      function cm.niscon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():GetMaterial():FilterCount(cm.ccfilter3,nil)>0
      end
      --同调以外的颜彩同调怪兽为素材
      function cm.ccfilter4(c)
      return c:IsSetCard(0xe51) and not c:IsType(TYPE_SYNCHRO)
      end
      function cm.hniscon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():GetMaterial():FilterCount(cm.ccfilter4,nil)>0
      end
      \ No newline at end of file
      expansions/script/c26640023.lua deleted 100644 → 0
      View file @ e7176395
      This diff is collapsed.
      expansions/script/c26640024.lua deleted 100644 → 0
      View file @ e7176395
      This diff is collapsed.
      expansions/script/c26640025.lua deleted 100644 → 0
      View file @ e7176395
      This diff is collapsed.
      expansions/script/c26640026.lua deleted 100644 → 0
      View file @ e7176395
      This diff is collapsed.
      expansions/script/c98630711.lua deleted 100644 → 0
      View file @ e7176395
      This diff is collapsed.
      expansions/script/c98630721.lua deleted 100644 → 0
      View file @ e7176395
      This diff is collapsed.
      expansions/script/c98630731.lua deleted 100644 → 0
      View file @ e7176395
      This diff is collapsed.
      expansions/script/c98630741.lua deleted 100644 → 0
      View file @ e7176395
      This diff is collapsed.
      expansions/script/c98630751.lua deleted 100644 → 0
      View file @ e7176395
      This diff is collapsed.
      expansions/script/c98630761.lua deleted 100644 → 0
      View file @ e7176395
      This diff is collapsed.
      expansions/script/c98630771.lua deleted 100644 → 0
      View file @ e7176395
      This diff is collapsed.
      expansions/strings.conf
      View file @ 16492cf3
      ......@@ -560,9 +560,6 @@
      !setname 0x252 融合势力
      !counter 0x251 过载指示物
      #◇逸轩 1246660891 266 0xe50-0xe5f
      !setname 0xe51 颜彩
      #胆小的兔子 2490482695 299 0x750-0x75f
      !setname 0x751 净怜异灵
      ......@@ -1484,7 +1481,6 @@
      ##◇星空璀璨之地 3077843411 280-281
      #cm.Koyuki 三水小雪（仅魔陷）
      ##◇識之梦 1073149304 307
      !setname 0x874 L·R
      ##虹霓文花 2538420075 395
      ##雾羽小姐 185591910 471
      ##◇花糖 2236141431 573-574
      ......
      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