Skip to content

Y
ygopro-222DIY-cards
Commit 9219d844 authored by Tachibana's avatar Tachibana
Browse files
Options

rar

parent 56671d0e
Pipeline #3505 passed with stages
      in 32 minutes and 54 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 0 additions and 5201 deletions
      expansions/222DIY.cdb
      View file @ 9219d844
      No preview for this file type
      expansions/lflist.conf
      View file @ 9219d844
      ......@@ -4,14 +4,6 @@
      #1
      00113217 1 --小红花
      00114015 0 --后巴别塔·苏苏洛
      00114501 0 --里械仪者·地仪斧
      00114502 0 --里械仪者·天仪剑
      00114503 0 --里械仪者·到来
      00114504 0 --里械仪者·风仪弓
      00114505 0 --里械仪者·炎斩
      00114506 0 --里械仪者·天仪龙
      00114507 0 --里械仪者·血仪者
      00114508 0 --里械仪者·加速
      00119002 0 --MS-06S 夏亚专用-扎古II
      00119006 1 --海帕杰顿-完全体
      #7
      ......@@ -378,19 +370,6 @@
      16102011 1 --SCP-2000 机械降神
      16104400 0 --与天界的链接
      16104410 0 --天界的瓦尔基里
      16104600 0 --异种 达摩不倒翁
      16104602 0 --异种 白
      16104604 0 --异种 罔魂
      16104606 0 --异种 蝶
      16104608 0 --异种 刽子手
      16104610 0 --异种 番兵
      16104612 0 --异种 吞食者
      16104614 0 --异种 涂壁
      16104616 0 --异种 八姐妹
      16104618 0 --异种 泰坦
      16104620 0 --异种 绝海的巨蛟
      16104622 0 --异国的招待
      16104624 0 --异种 兔子
      16105016 1 --对Mystic的探究
      16105036 0 --记录的神因子
      16105110 1 --神秘学召唤
      ......@@ -1276,7 +1255,6 @@
      #810
      81000006 1 --甜花无敌
      81007017 2 --白雪安娜·初恋
      81008016 1 --不被吓个半死是不可能的
      81010021 2 --高空坠落
      81011003 1 --大轮之华·桑山千雪
      81011004 0 --花色幸福论·大崎甘奈
      ......@@ -1301,16 +1279,6 @@
      81058004 0 --原田秋叶·夏祭
      81060008 1 --薇薇安·伊文捷琳 θ
      #822
      82204215 0 --堕世魔镜-始源
      82204216 0 --堕世魔镜-极欲
      82204217 0 --堕世魔镜-消亡
      82204218 0 --堕世魔镜-焚尽
      82204219 0 --堕世魔镜-寂灭
      82204220 0 --堕世魔镜-虚无
      82204221 0 --堕世魔镜-尘寂
      82204222 0 --堕世魔镜-咒怨
      82204223 0 --堕世魔镜-灾厄
      82204224 0 --堕世魔镜领域-异度镜界
      82204231 1 --孤独的时之行者
      82204262 1 --灵魂锁链
      82204263 0 --充能棒
      ......
      expansions/script/c114501.lua deleted 100644 → 0
      View file @ 56671d0e
      --里械仪者·地仪斧
      local m = 114501
      local cm = _G["c"..m]
      function cm.initial_effect(c)
      c:EnableReviveLimit()
      --position
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_POSITION+CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,m)
      e1:SetTarget(cm.postg)
      e1:SetOperation(cm.posop)
      c:RegisterEffect(e1)
      --des
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,1))
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O)
      e1:SetCountLimit(1,m+100)
      e1:SetCost(cm.descost)
      e1:SetTarget(cm.destg)
      e1:SetOperation(cm.desop)
      c:RegisterEffect(e1)
      end
      function cm.pfilter(c)
      return c:IsPosition(POS_FACEDOWN_DEFENSE) and c:IsCanChangePosition()
      end
      function cm.spfilter(c,e,tp)
      return c:IsType(TYPE_FLIP) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
      end
      function cm.thfilter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0xca1) and c:IsAbleToHand()
      end
      function cm.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local b1 = Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp)
      local b2 = Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and cm.pfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.pfilter,tp,LOCATION_MZONE,0,1,nil) and (b1 or b2) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectTarget(tp,cm.pfilter,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      end
      function cm.posop(e,tp)
      local tc = Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsPosition(POS_FACEDOWN_DEFENSE) and Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) > 0 then
      local b1 = Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp)
      local b2 = Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil)
      if not b1 and not b2 then return end
      Duel.BreakEffect()
      local op = 2
      if b1 and b2 then
      op = Duel.SelectOption(tp,aux.Stringid(m,2),aux.Stringid(m,3)) + 1
      elseif b1 then op = 1
      end
      if op == 1 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg = Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
      Duel.ConfirmCards(1-tp,sg)
      else
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local tg = Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      Duel.SendtoHand(tg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tg)
      end
      end
      end
      function cm.descost(e)
      e:SetLabel(100)
      return true
      end
      function cm.desfilter(c,rc)
      return not rc:GetEquipGroup():IsContains(c)
      end
      function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c = e:GetHandler()
      if chk == 0 then
      if e:GetLabel() ~= 100 then
      return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
      else
      e:SetLabel(0)
      return c:IsReleasable() and Duel.IsExistingMatchingCard(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c,c)
      end
      end
      if e:GetLabel() == 100 then
      Duel.Release(c,REASON_COST)
      end
      e:SetLabel(0)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,PLAYER_ALL,LOCATION_ONFIELD)
      end
      function cm.desop(e,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local dg = Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,2,nil)
      if #dg > 0 then
      Duel.HintSelection(dg)
      Duel.Destroy(dg,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c114502.lua deleted 100644 → 0
      View file @ 56671d0e
      --里械仪者·天仪剑
      local m = 114502
      local cm = _G["c"..m]
      function cm.initial_effect(c)
      c:EnableReviveLimit()
      --pos
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_POSITION)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.poscon)
      e1:SetCost(cm.poscost)
      e1:SetTarget(cm.postg)
      e1:SetOperation(cm.posop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,m)
      e2:SetTarget(cm.thtg)
      e2:SetOperation(cm.thop)
      c:RegisterEffect(e2)
      end
      function cm.cfilter(c,tp)
      return c:GetSummonLocation() & LOCATION_EXTRA ~= 0 and c:GetSummonPlayer() ~= tp
      end
      function cm.poscon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,tp)
      end
      function cm.poscost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(100)
      return true
      end
      function cm.resfilter(g,rc,tp)
      if g:IsContains(rc) and not rc:IsReleasable() then return false end
      if not Duel.IsExistingMatchingCard(Card.IsCanTurnSet,tp,LOCATION_MZONE,LOCATION_MZONE,1,g) then return false end
      if rc:IsLocation(LOCATION_HAND) then return g:IsContains(rc) and #g == 2
      else
      return (#g == 1 and not g:IsContains(rc)) or (#g == 2 and g:IsContains(rc))
      end
      end
      function cm.postg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c = e:GetHandler()
      local rg = Duel.GetReleaseGroup(tp,true):Filter(Card.IsType,nil,TYPE_FLIP)
      rg:AddCard(c)
      if chk == 0 then
      if e:GetLabel() ~= 100 then
      return Duel.IsExistingMatchingCard(Card.IsCanTurnSet,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
      else
      e:SetLabel(0)
      return rg:CheckSubGroup(cm.resfilter,1,2,c,tp)
      end
      end
      if e:GetLabel() == 100 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local rg2 = rg:SelectSubGroup(tp,cm.resfilter,false,1,2,c,tp)
      Duel.Release(rg2,REASON_COST)
      end
      e:SetLabel(0)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,nil,1,PLAYER_ALL,LOCATION_MZONE)
      end
      function cm.posop(e,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g = Duel.SelectMatchingCard(tp,Card.IsCanTurnSet,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      if #g > 0 then
      Duel.HintSelection(g)
      Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)
      end
      end
      function cm.thfilter(c)
      return c:IsType(TYPE_FLIP) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk == 0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g = Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil)
      if #g > 0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      expansions/script/c114503.lua deleted 100644 → 0
      View file @ 56671d0e
      --里械仪者·到来
      local m = 114503
      local cm = _G["c"..m]
      function cm.initial_effect(c)
      local e1=aux.AddRitualProcGreater2(c,aux.FilterBoolFunction(Card.IsSetCard,0xca1),LOCATION_HAND+LOCATION_DECK,nil,aux.FilterBoolFunction(Card.IsType,TYPE_FLIP))
      e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
      end
      expansions/script/c114504.lua deleted 100644 → 0
      View file @ 56671d0e
      --里械仪者·风仪弓
      local m = 114504
      local cm = _G["c"..m]
      function cm.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_POSITION+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCountLimit(1,m)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,1))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,m+100)
      e2:SetTarget(cm.thtg)
      e2:SetOperation(cm.thop)
      c:RegisterEffect(e2)
      end
      function cm.pfilter(c)
      return c:IsPosition(POS_FACEDOWN_DEFENSE) and c:IsCanChangePosition()
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c = e:GetHandler()
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and cm.pfilter(chkc) end
      if chk == 0 then return Duel.IsExistingTarget(cm.pfilter,tp,LOCATION_MZONE,0,1,nil) and (c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)) and Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local g = Duel.SelectTarget(tp,cm.pfilter,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function cm.spop(e,tp)
      local tc = Duel.GetFirstTarget()
      local c = e:GetHandler()
      if tc:IsRelateToEffect(e) and Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) > 0 and c:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 then
      local spos=0
      if c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) then spos=spos+POS_FACEUP_ATTACK end
      if c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) then spos=spos+POS_FACEDOWN_DEFENSE end
      Duel.SpecialSummon(c,0,tp,tp,false,false,spos)
      if c:IsFacedown() then
      Duel.ConfirmCards(1-tp,c)
      end
      end
      end
      function cm.thfilter(c)
      return c:IsSetCard(0xca1) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk == 0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g = Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g > 0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      \ No newline at end of file
      expansions/script/c114505.lua deleted 100644 → 0
      View file @ 56671d0e
      --里械仪者·炎斩
      if not pcall(function() require("expansions/script/c114500") end) then require("script/c114500") end
      local m,cm = rscf.DefineCard(114505)
      function cm.initial_effect(c)
      c:EnableReviveLimit()
      local e1 = rsef.I(c,"sp",{1,m},"sp",nil,LOCATION_HAND,nil,rscost.cost(cm.cfilter,"cf",LOCATION_HAND,0,2,2,c),rsop.target(cm.spfilter,"sp"),cm.spop)
      local e2 = rsef.QO(c,nil,"eq",{1,m+100},"pos,eq",nil,LOCATION_MZONE,nil,nil,rsop.target({Card.IsCanTurnSet,"pos"},{cm.eqfilter,"eq",LOCATION_ONFIELD,LOCATION_ONFIELD }),cm.eqop)
      local e3 = rsef.QO(c,EVENT_CHAINING,"pos",{1,m+200},"atk","sa",LOCATION_MZONE,nil,rscost.cost(cm.tfilter,{"pos",cm.fun}),nil,cm.atkop)
      end
      function cm.tfilter(c)
      return c:IsFacedown() and c:IsCanChangePosition()
      end
      function cm.fun(g,e,tp)
      local pos = Duel.SelectPosition(tp,g:GetFirst(),POS_FACEUP)
      Duel.ChangePosition(g,pos)
      end
      function cm.atkop(e,tp)
      local c = rscf.GetFaceUpSelf(e)
      if not c then return end
      local e1 = rscf.QuickBuff(c,"atk+",1000)
      end
      function cm.cfilter(c)
      return c:IsType(TYPE_FLIP) and not c:IsPublic()
      end
      function cm.spfilter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      end
      function cm.spop(e,tp)
      local c = rscf.GetSelf(e)
      if c and Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) > 0 then
      c:SetMaterial(Group.FromCards())
      c:CompleteProcedure()
      end
      end
      function cm.eqfilter2(c,ec)
      return c:IsFaceup() and not c:GetEquipGroup():IsContains(ec)
      end
      function cm.eqfilter(c,e,tp)
      return c:IsFaceup() and Duel.IsExistingMatchingCard(cm.eqfilter2,tp,LOCATION_MZONE,0,1,Group.FromCards(c,e:GetHandler()),c)
      end
      function cm.eqop(e,tp)
      local c = rscf.GetFaceUpSelf(e)
      if not c or Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) <= 0 then return end
      local ec = rsop.SelectSolve(HINTMSG_EQUIP,tp,cm.eqfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,{},e,tp):GetFirst()
      if not ec then return end
      local tc = rsop.SelectSolve(HINTMSG_SELF,tp,cm.eqfilter2,tp,LOCATION_MZONE,0,1,1,ec,{},ec):GetFirst()
      if rsop.Equip(e,ec,tc) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_EQUIP)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(1000)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      ec:RegisterEffect(e1)
      end
      end
      \ No newline at end of file
      expansions/script/c114506.lua deleted 100644 → 0
      View file @ 56671d0e
      --里械仪者·天仪龙
      if not pcall(function() require("expansions/script/c114500") end) then require("script/c114500") end
      local m,cm = rscf.DefineCard(114506)
      function cm.initial_effect(c)
      local e1 = rsef.I(c,"th",{1,m},"se,th",nil,LOCATION_HAND,nil,rscost.cost(Card.IsAbleToGraveAsCost,"tg"),rsop.target(cm.thfilter,"th",LOCATION_DECK),cm.thop)
      local e2 = rsef.I(c,"sp",{1,m},"sp",nil,LOCATION_HAND,nil,rscost.cost(cm.cfilter,"cf",LOCATION_HAND),cm.rittg,cm.ritop)
      local e3 = rsef.STO_FLIP(c,"th",{1,m+100},"se,th","de",nil,nil,rsop.target({cm.thfilter,"th",LOCATION_DECK},{cm.thfilter2,"th",LOCATION_GRAVE}),cm.thop2)
      end
      function cm.thfilter(c)
      return c:IsComplexType(TYPE_RITUAL+TYPE_MONSTER) and c:IsAbleToHand() and c:IsSetCard(0xca1)
      end
      function cm.thop(e,tp)
      rsop.SelectToHand(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,{})
      end
      function cm.cfilter(c)
      return not c:IsPublic() and c:IsComplexType(TYPE_RITUAL+TYPE_MONSTER)
      end
      function cm.rcheck(gc)
      return function(tp,g,c)
      return g:IsContains(gc)
      end
      end
      function cm.ritfilter(c)
      return c:IsSetCard(0xca1)
      end
      function cm.rittg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then
      local mg=Duel.GetRitualMaterial(tp)
      aux.RCheckAdditional=cm.rcheck(c)
      local res=mg:IsContains(c) and Duel.IsExistingMatchingCard(aux.RitualUltimateFilter,tp,LOCATION_HAND,0,1,nil,cm.ritfilter,e,tp,mg,nil,Card.GetLevel,"Greater")
      aux.RCheckAdditional=nil
      return res
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
      end
      function cm.ritop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local mg=Duel.GetRitualMaterial(tp)
      if c:GetControler()~=tp or not c:IsRelateToEffect(e) or not mg:IsContains(c) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      aux.RCheckAdditional=cm.rcheck(c)
      local tg=Duel.SelectMatchingCard(tp,aux.RitualUltimateFilter,tp,LOCATION_HAND,0,1,1,nil,cm.ritfilter,e,tp,mg,nil,Card.GetLevel,"Greater")
      local tc=tg:GetFirst()
      if tc then
      mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc)
      if tc.mat_filter then
      mg=mg:Filter(tc.mat_filter,tc,tp)
      else
      mg:RemoveCard(tc)
      end
      if not mg:IsContains(c) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      Duel.SetSelectedCard(c)
      aux.GCheckAdditional=aux.RitualCheckAdditional(tc,tc:GetLevel(),"Greater")
      local mat=mg:SelectSubGroup(tp,aux.RitualCheck,false,1,tc:GetLevel(),tp,tc,tc:GetLevel(),"Greater")
      aux.GCheckAdditional=nil
      if not mat or mat:GetCount()==0 then
      aux.RCheckAdditional=nil
      return
      end
      tc:SetMaterial(mat)
      Duel.ReleaseRitualMaterial(mat)
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
      tc:CompleteProcedure()
      end
      aux.RCheckAdditional=nil
      end
      function cm.thfilter2(c)
      return c:IsComplexType(TYPE_RITUAL+TYPE_SPELL) and c:IsAbleToHand()
      end
      function cm.thop2(e,tp)
      local ct,og,tc = rsop.SelectToHand(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,{})
      if tc and tc:IsLocation(LOCATION_HAND) then
      rsop.SelectOC(nil,true)
      rsop.SelectToHand(tp,aux.NecroValleyFilter(cm.thfilter2),tp,LOCATION_GRAVE,0,1,1,nil,{})
      end
      end
      \ No newline at end of file
      expansions/script/c114507.lua deleted 100644 → 0
      View file @ 56671d0e
      --里械仪者·血仪者
      if not pcall(function() require("expansions/script/c114500") end) then require("script/c114500") end
      local m,cm = rscf.DefineCard(114507)
      function cm.initial_effect(c)
      local e1 = rsef.QO(c,EVENT_CHAINING,"dis",{1,m},"dis,des,pos,sp","dcal",LOCATION_HAND,rscon.discon(cm.disfilter,true),nil,cm.distg,cm.disop)
      local e2 = rsef.STO_FLIP(c,"sp",{1,m+100},"sp","de",nil,nil,rsop.target(rscf.spfilter2(Card.IsType,TYPE_RITUAL),"sp",LOCATION_GRAVE),cm.spop)
      end
      function cm.disfilter(e,tp,re,rp)
      local ev = Duel.GetCurrentChain()
      if ev < 2 then return false end
      local re2,rp2 = Duel.GetChainInfo(ev-1 , CHAININFO_TRIGGERING_EFFECT, CHAININFO_TRIGGERING_CONTROLER)
      return ev >= 2 and rp2 == tp and re2:IsActiveType(TYPE_FLIP)
      end
      function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c = e:GetHandler()
      if chk==0 then return (c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(Card.IsCanTurnSet,tp,LOCATION_MZONE,0,1,nil) 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,eg,1,0,0)
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,nil,1,tp,LOCATION_MZONE)
      end
      function cm.disop(e,tp,eg,ep,ev,re)
      local c = rscf.GetSelf(e)
      if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)>0 then
      local tc = rsop.SelectSolve(HINTMSG_POSCHANGE,tp,Card.IsCanTurnSet,tp,LOCATION_MZONE,0,1,1,nil,{}):GetFirst()
      if tc and Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) > 0 and c and Duel.GetLocationCount(tp,LOCATION_MZONE) > 0 then
      local spos=0
      if c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) then spos=spos+POS_FACEUP_ATTACK end
      if c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) then spos=spos+POS_FACEDOWN_DEFENSE end
      Duel.SpecialSummon(c,0,tp,tp,false,false,spos)
      if c:IsFacedown() then
      Duel.ConfirmCards(1-tp,c)
      end
      end
      end
      end
      function cm.spop(e,tp)
      rsop.SelectSpecialSummon(tp,aux.NecroValleyFilter(rscf.spfilter2(Card.IsType,TYPE_RITUAL)),tp,LOCATION_GRAVE,0,1,1,nil,{})
      end
      \ No newline at end of file
      expansions/script/c114508.lua deleted 100644 → 0
      View file @ 56671d0e
      --里械仪者·加速
      if not pcall(function() require("expansions/script/c114500") end) then require("script/c114500") end
      local m,cm = rscf.DefineCard(114508)
      function cm.initial_effect(c)
      local e2 = rsef.I(c,"pos",{1,nil,3},"pos",nil,LOCATION_SZONE,nil,nil,rsop.target(cm.posfilter,"pos",LOCATION_MZONE),cm.posop)
      local e3 = rsef.I(c,"sp",{1,nil,3},"sp",nil,LOCATION_SZONE,nil,nil,rsop.target(cm.spfilter,"sp",LOCATION_GRAVE),cm.spop)
      local e4 = rsef.FV_UPDATE(c,"atk",cm.val,aux.TargetBoolFunction(Card.IsType,TYPE_FLIP),{LOCATION_MZONE,0})
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.thfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xca1) and c:IsAbleToHand()
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetHandler():IsRelateToEffect(e) then return end
      local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)
      if g:GetCount()>0 and rsop.SelectYesNo(tp,"th") then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local sg=g:Select(tp,1,1,nil)
      Duel.SendtoHand(sg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,sg)
      end
      end
      function cm.posfilter(c)
      return c:IsFacedown() and c:IsCanChangePosition() and c:IsSetCard(0xca1)
      end
      function cm.posop(e,tp)
      local tc = rsop.SelectSolve(HINTMSG_POSCHANGE,tp,cm.posfilter,tp,LOCATION_MZONE,0,1,1,nil,{}):GetFirst()
      if tc then
      local pos = Duel.SelectPosition(tp,tc,POS_FACEUP)
      Duel.ChangePosition(tc,pos)
      end
      end
      function cm.spfilter(c,e,tp)
      return c:IsType(TYPE_FLIP) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      end
      function cm.spop(e,tp)
      local ct,og = rsop.SelectSpecialSummon(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,{0,tp,tp,false,false,POS_FACEDOWN_DEFENSE },e,tp)
      if #og > 0 then
      Duel.ConfirmCards(1-tp,og)
      end
      end
      function cm.val(e,c)
      return Duel.GetMatchingGroupCount(rscf.fufilter(Card.IsType,TYPE_FLIP),0,rsloc.mg,rsloc.mg,nil)*300
      end
      \ No newline at end of file
      expansions/script/c16104600.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 达摩不倒翁
      local m=16104600
      local cm=_G["c"..m]
      gs=gs or {}
      function gs.idget(value,tab)
      local k=0
      --Debug.Message(value)
      for j,v in ipairs(tab) do
      --Debug.Message(k)
      if v == value then
      return k
      end
      k=k+1
      end
      return false
      end
      function gs.turnup(c,code,count,con,tg,op,cate)
      local tc=c
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(code,0))
      if cate~=nil then
      e1:SetCategory(cate)
      end
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_CHAINING)
      e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e1:SetRange(LOCATION_MZONE)
      if count~=nil then
      e1:SetCountLimit(count,code)
      end
      if con==0 then
      e1:SetCondition(gs.condition0)
      end
      if con==1 then
      e1:SetCondition(gs.condition1)
      end
      if con==2 then
      e1:SetCondition(gs.condition2)
      end
      if con==3 then
      e1:SetCondition(gs.condition3)
      end
      e1:SetCost(gs.cost)
      if tg~=nil then
      e1:SetTarget(tg)
      end
      e1:SetOperation(op)
      tc:RegisterEffect(e1)
      return e1
      end
      function gs.flip(c,code,tg,op,count,cate,flag)
      local tc=c
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(code,1))
      if cate~=nil then
      e1:SetCategory(cate)
      end
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY+flag)
      e1:SetRange(LOCATION_MZONE)
      if count~=nil then
      e1:SetCountLimit(count,code)
      end
      e1:SetTarget(tg)
      e1:SetOperation(op)
      tc:RegisterEffect(e1)
      return e1
      end
      function gs.hdspm1(c,code,count) ---summonfunction 16104600~16104604
      local tc=c
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(code,2))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetRange(LOCATION_HAND)
      if count~=nil then
      e1:SetCountLimit(count,code)
      end
      e1:SetCondition(gs.con)
      e1:SetTarget(gs.hdsptg0)
      e1:SetOperation(gs.hdspop0)
      tc:RegisterEffect(e1)
      return e1
      end
      function gs.hdspm2(c,code) ---summonfunction 16104600~16104604
      local tc=c
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(code,2))
      e1:SetCategory(CATEGORY_POSITION+CATEGORY_SUMMON)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(gs.con)
      e1:SetCountLimit(1,code+100)
      e1:SetTarget(gs.hdsptg1)
      e1:SetOperation(gs.hdspop1)
      tc:RegisterEffect(e1)
      return e1
      end
      function gs.hdspm3(c,code)
      local tc=c
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(code,2))
      e1:SetCategory(CATEGORY_POSITION+CATEGORY_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(gs.con)
      e1:SetCountLimit(1,code+100)
      e1:SetTarget(gs.hdsptg1)
      e1:SetOperation(gs.hdspop2)
      tc:RegisterEffect(e1)
      return e1
      end
      function gs.hdspm4(c,code)
      local tc=c
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(code,2))
      e1:SetCategory(CATEGORY_POSITION+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetRange(LOCATION_HAND)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCondition(gs.con)
      e1:SetCountLimit(1,code+100)
      e1:SetTarget(gs.hdsptg1)
      e1:SetOperation(gs.hdspop2)
      tc:RegisterEffect(e1)
      return e1
      end
      function gs.nsp(c)
      local tc=c
      --cannot special summon
      local e1=Effect.CreateEffect(tc)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetValue(aux.FALSE)
      tc:RegisterEffect(e1)
      return e1
      end
      function gs.Cntact(c)
      local tc=c
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_TRIGGER)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1,true)
      end
      function gs.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local op=Duel.SelectOption(tp,aux.Stringid(16104600,3),aux.Stringid(16104600,4))
      if op==0 then
      Duel.ChangePosition(e:GetHandler(),POS_FACEUP_ATTACK)
      else
      Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENSE)
      end
      end
      function gs.con(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return not c:IsStatus(STATUS_CHAINING)
      end
      function gs.condition0(e,tp,eg,ep,ev,re,r,rp)
      return re:GetHandler():IsType(TYPE_MONSTER) and e:GetHandler():IsFacedown()
      end
      function gs.condition1(e,tp,eg,ep,ev,re,r,rp)
      return re:GetHandler():IsType(TYPE_SPELL) and e:GetHandler():IsFacedown()
      end
      function gs.condition2(e,tp,eg,ep,ev,re,r,rp)
      return re:GetHandler():IsType(TYPE_TRAP) and e:GetHandler():IsFacedown()
      end
      function gs.condition3(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsFacedown()
      end
      function gs.hdspfilter0(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function gs.hdsptg0(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and Duel.IsExistingTarget(gs.hdspfilter0,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectTarget(tp,gs.hdspfilter0,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function gs.hdsptg1(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and (e:GetHandler():IsSummonable(true,nil) or e:GetHandler():IsMSetable(true,nil)) and Duel.IsExistingTarget(gs.hdspfilter0,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectTarget(tp,gs.hdspfilter0,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SUMMON,e:GetHandler(),1,0,0)
      end
      function gs.hdspop0(e,cp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      local c=e:GetHandler()
      local tp=c:GetControler()
      if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then
      if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)~=0 then
      Duel.BreakEffect()
      Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
      Duel.ConfirmCards(1-tp,e:GetHandler())
      local sg=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,0,nil)
      Duel.ShuffleSetCard(sg)
      end
      end
      end
      function gs.hdspop1(e,cp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      local c=e:GetHandler()
      local code=c:GetCode()
      local tp=c:GetControler()
      local b1=c:IsSummonable(true,nil)
      local b2=c:IsMSetable(true,nil)
      local op=2
      if true then
      if b1 and b2 then
      op=Duel.SelectOption(tp,aux.Stringid(code,3),aux.Stringid(code,4))
      elseif b1 then
      op=Duel.SelectOption(tp,aux.Stringid(code,3))
      else
      op=Duel.SelectOption(tp,aux.Stringid(code,4))+1
      end
      if op==0 then
      Duel.Summon(tp,c,true,nil)
      Duel.BreakEffect()
      if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end
      Duel.ConfirmCards(1-tp,e:GetHandler())
      local sg=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,0,nil)
      Duel.ShuffleSetCard(sg)
      end
      if op==1 then
      Duel.MSet(tp,c,true,nil)
      Duel.BreakEffect()
      if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end
      Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
      Duel.ConfirmCards(1-tp,e:GetHandler())
      local sg=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,0,nil)
      Duel.ShuffleSetCard(sg)
      end
      end
      end
      function gs.hdspop2(e,cp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      local c=e:GetHandler()
      local code=c:GetCode()
      local tp=c:GetControler()
      local b1=c:IsSummonable(true,nil)
      local b2=c:IsMSetable(true,nil)
      local op=2
      if c:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then
      if b1 and b2 then
      op=Duel.SelectOption(tp,aux.Stringid(code,3),aux.Stringid(code,4))
      elseif b1 then
      op=Duel.SelectOption(tp,aux.Stringid(code,3))
      else
      op=Duel.SelectOption(tp,aux.Stringid(code,4))+1
      end
      if op==0 then
      Duel.Summon(tp,c,true,nil)
      Duel.BreakEffect()
      if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_IMMUNE_EFFECT)
      e1:SetTargetRange(LOCATION_ONFIELD,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsFacedown))
      e1:SetValue(gs.efilter)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      if op==1 then
      Duel.MSet(tp,c,true,nil)
      Duel.BreakEffect()
      if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end
      Duel.ConfirmCards(1-tp,e:GetHandler())
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_IMMUNE_EFFECT)
      e1:SetTargetRange(LOCATION_ONFIELD,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsFacedown))
      e1:SetValue(gs.efilter)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      end
      function gs.efilter(e,re)
      return e:GetOwnerPlayer()~=re:GetOwnerPlayer()
      end
      -----------------------------
      if not cm then return end
      function cm.initial_effect(c)
      local e1=gs.turnup(c,m,1,1,cm.turnrptg,cm.turnupop,CATEGORY_POSITION)
      local e2=gs.hdspm1(c,m,nil)
      local e3=gs.flip(c,m,cm.filptg,cm.flipop,nil,CATEGORY_DESTROY,EFFECT_FLAG_DAMAGE_STEP)
      end
      function cm.filter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function cm.turnrptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and cm.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler())
      Duel.HintSelection(g)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then
      Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
      end
      end
      function cm.filptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function cm.flipop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      expansions/script/c16104602.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 白
      local m=16104602
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e1=gs.turnup(c,m,1,0,cm.turnrptg,cm.turnupop,CATEGORY_POSITION+CATEGORY_DRAW)
      local e2=gs.hdspm1(c,m,1)
      local e3=gs.flip(c,m,cm.filptg,cm.flipop,nil,CATEGORY_DESTROY+CATEGORY_DRAW,EFFECT_FLAG_DAMAGE_STEP)
      end
      function cm.filter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function cm.turnrptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      if Duel.Draw(p,d,REASON_EFFECT)>0 then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local tc=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,c)
      Duel.HintSelection(tc)
      if tc:GetFirst():IsImmuneToEffect(e) then return end
      Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
      end
      end
      end
      function cm.filptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function cm.flipop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      if Duel.Destroy(g,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(Card.IsFacedown,tp,0,LOCATION_MZONE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
      p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c16104604.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 罔魂
      local m=16104604
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e1=gs.turnup(c,m,1,2,cm.turnrptg,cm.turnupop,CATEGORY_POSITION+CATEGORY_CONTROL)
      local e2=gs.hdspm1(c,m,1)
      local e3=gs.flip(c,m,cm.filptg,cm.flipop,nil,CATEGORY_DESTROY+CATEGORY_CONTROL,EFFECT_FLAG_DAMAGE_STEP)
      end
      function cm.filter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function cm.turnrptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE,0)>0 end
      Duel.SetOperationInfo(0,CATEGORY_POSITION,nil,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,1,0,0)
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      local tab={1,2,4,8,16,32,64,128,256,512}
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
      local tc=Duel.SelectMatchingCard(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.HintSelection(tc)
      local ph=Duel.GetCurrentPhase()
      local phnum=gs.idget(ph,tab)
      local num=0
      if Duel.GetLocationCount(tp,LOCATION_MZONE,0)<=0 then return end
      if phnum>1 and phnum<7 then
      num=Duel.GetControl(tc,tp,PHASE_MAIN2,1)
      else
      num=Duel.GetControl(tc,tp,PHASE_MAIN1,1)
      end
      if num>0 then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local tc=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,c)
      Duel.HintSelection(tc)
      tc=tc:GetFirst()
      if tc:IsImmuneToEffect(e) then return end
      Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
      end
      end
      end
      function cm.filptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,1,0,0)
      local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function cm.flipop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      if Duel.Destroy(g,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(Card.IsFacedown,tp,0,LOCATION_MZONE,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE,0)>0 and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
      local tc=Duel.SelectMatchingCard(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.HintSelection(tc)
      Duel.GetControl(tc,tp,PHASE_END,1)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c16104606.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 蝶
      local m=16104606
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e1=gs.turnup(c,m,1,3,cm.turnuptg,cm.turnupop,CATEGORY_SEARCH+CATEGORY_TOHAND)
      local e2=gs.hdspm2(c,m)
      local e3=gs.flip(c,m,cm.filptg,cm.flipop,nil,CATEGORY_REMOVE,EFFECT_FLAG_DAMAGE_STEP)
      end
      function cm.filter(c)
      return c:IsAbleToHand() and c:IsSetCard(0xcca)
      end
      function cm.turnuptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) then return true end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      if Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 then
      Duel.ConfirmCards(1-tp,g)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK)
      e1:SetTargetRange(0,LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      end
      function cm.filptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,1,nil) end
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,nil)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      end
      function cm.flipop(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_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      if Duel.Remove(g,POS_FACEUP,REASON_EFFECT)~=0 then
      local ttc=Duel.GetOperatedGroup():GetFirst()
      gs.Cntact(ttc)
      if Duel.GetMatchingGroupCount(Card.IsFacedown,tp,0,LOCATION_ONFIELD,nil)<=0 then return end
      local e2=Effect.CreateEffect(e:GetHandler())
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_PUBLIC)
      e2:SetReset(RESET_PHASE+PHASE_END,2)
      e2:SetTargetRange(0,LOCATION_HAND)
      Duel.RegisterEffect(e2,tp)
      end
      end
      end
      \ No newline at end of file
      expansions/script/c16104608.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 刽子手
      local m=16104608
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e1=gs.turnup(c,m,1,3,cm.turnuptg,cm.turnupop,CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SUMMON)
      local e2=gs.hdspm2(c,m)
      local e3=gs.flip(c,m,cm.filptg,cm.flipop,nil,CATEGORY_TOGRAVE+CATEGORY_TODECK,EFFECT_FLAG_DAMAGE_STEP)
      end
      function cm.filter(c)
      return c:IsAbleToHand() and c:IsSetCard(0xcca)
      end
      function cm.sumfilter(c)
      return (c:IsSummonable(true,nil) or c:IsMSetable(true,nil)) and c:IsSetCard(0xcca)
      end
      function cm.turnuptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      if Duel.SendtoHand(g,nil,REASON_EFFECT)~0 then
      Duel.ConfirmCards(1-tp,g)
      if Duel.GetLocationCount(tp,LOCATION_MZONE,0)>0 and Duel.IsExistingMatchingCard(cm.sumfilter,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,5)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.sumfilter,tp,LOCATION_HAND,0,1,1,nil)
      if g:GetCount()>0 then
      local tc=g:GetFirst()
      local b1=tc:IsSummonable(true,nil)
      local b2=tc:IsMSetable(true,nil)
      local op=2
      if b1 and b2 then
      op=Duel.SelectOption(tp,aux.Stringid(m,3),aux.Stringid(m,4))
      elseif b1 then
      op=Duel.SelectOption(tp,aux.Stringid(m,3))
      else
      op=Duel.SelectOption(tp,aux.Stringid(m,4))+1
      end
      if op==0 and tc:IsSummonable(true,nil) then
      Duel.Summon(tp,tc,true,nil)
      end
      if op==1 and tc:IsSummonable(true,nil) then
      Duel.MSet(tp,tc,true,nil)
      end
      end
      end
      end
      end
      end
      function cm.filptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,0,0)
      end
      function cm.flipop(e,tp,eg,ep,ev,re,r,rp)
      local b1=Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
      local op=2
      local b2=Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil)
      if b1 and b2 then
      op=Duel.SelectOption(tp,aux.Stringid(m,6),aux.Stringid(m,7))
      elseif b1 then
      op=Duel.SelectOption(tp,aux.Stringid(m,6))
      else
      op=Duel.SelectOption(tp,aux.Stringid(m,7))+1
      end
      if op==0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      if Duel.SendtoGrave(g,REASON_EFFECT)~=0 then
      local ttc=Duel.GetOperatedGroup():GetFirst()
      gs.Cntact(ttc)
      local dg=Duel.GetFieldGroup(tp,LOCATION_DECK,LOCATION_DECK)
      if Duel.IsExistingMatchingCard(Card.IsFacedown,tp,0,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,8)) then
      Duel.ConfirmCards(tp,dg)
      end
      end
      end
      else
      Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TODECK)
      local g=Duel.SelectMatchingCard(1-tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      if Duel.SendtoDeck(g,nil,2,REASON_RULE)~=0 then
      local dg=Duel.GetFieldGroup(tp,LOCATION_DECK,LOCATION_DECK)
      if Duel.IsExistingMatchingCard(Card.IsFacedown,tp,0,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,8)) then
      Duel.ConfirmCards(tp,dg)
      end
      end
      end
      end
      end
      \ No newline at end of file
      expansions/script/c16104610.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 番兵
      local m=16104610
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e0=gs.nsp(c)
      local e1=gs.turnup(c,m,1,1,cm.turnuptg,cm.turnupop,CATEGORY_SPECIAL_SUMMON)
      local e2=gs.hdspm3(c,m)
      local e3=gs.flip(c,m,cm.filptg,cm.flipop,nil,CATEGORY_TOGRAVE+CATEGORY_POSITION,EFFECT_FLAG_DAMAGE_STEP)
      end
      function cm.turnupfilter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and c:IsType(TYPE_MONSTER)
      end
      function cm.turnuptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.turnupfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=Duel.SelectMatchingCard(tp,cm.turnupfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
      if sg:GetCount()>0 then
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
      end
      end
      function cm.filptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,0,0)
      end
      function cm.changefilter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function cm.flipop(e,tp)
      if not Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then return end
      local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      if #sg>0 then
      if Duel.SendtoGrave(sg,REASON_EFFECT)~=0 then
      local ttc=Duel.GetOperatedGroup():GetFirst()
      gs.Cntact(ttc)
      if Duel.IsExistingMatchingCard(cm.changefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) and Duel.SelectYesNo(tp,aux.Stringid(m,5)) then
      local sc=Duel.SelectMatchingCard(tp,cm.changefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()):GetFirst()
      if not sc:IsImmuneToEffect(e) then
      local evg=Group.CreateGroup()
      if sc:IsType(TYPE_MONSTER) then
      Duel.ChangePosition(sc,POS_FACEDOWN_DEFENSE)
      else
      sc:CancelToGrave()
      if Duel.ChangePosition(sc,POS_FACEDOWN)>0 then
      evg:AddCard(sc)
      end
      end
      if #evg>0 then
      Duel.RaiseEvent(evg,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
      end
      end
      end
      end
      end
      end
      \ No newline at end of file
      expansions/script/c16104612.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 吞食者
      local m=16104612
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e0=gs.nsp(c)
      local e1=gs.turnup(c,m,1,0,cm.turnuptg,cm.turnupop,nil)
      local e2=gs.hdspm3(c,m)
      local e3=gs.flip(c,m,cm.filptg,cm.flipop,nil,CATEGORY_TOGRAVE+CATEGORY_POSITION,EFFECT_FLAG_DAMAGE_STEP)
      end
      function cm.turnupfilter(c)
      return c:IsSSetable(false) and not c:IsType(TYPE_MONSTER)
      end
      function cm.ssfilter(c)
      return c:IsFaceup() and c:IsSSetable(false) and not c:IsType(TYPE_MONSTER)
      end
      function cm.turnuptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.IsExistingMatchingCard(cm.ssfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil)
      end
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetFieldGroup(tp,LOCATION_REMOVED,LOCATION_REMOVED)
      Duel.ConfirmCards(tp,g)
      local sg=g:Filter(cm.turnupfilter,nil)
      if sg:GetCount()<1 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      sg=sg:Select(tp,1,1,nil)
      if sg:GetCount()>0 then
      Duel.SSet(tp,sg)
      end
      end
      function cm.filptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,1,nil) end
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,nil)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      end
      function cm.changefilter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function cm.flipop(e,tp)
      if not Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,1,nil) then return end
      local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,1,1,nil)
      if #sg>0 then
      if Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)~=0 then
      local ttc=Duel.GetOperatedGroup():GetFirst()
      gs.Cntact(ttc)
      if Duel.IsExistingMatchingCard(cm.changefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) and Duel.SelectYesNo(tp,aux.Stringid(m,5)) then
      local sc=Duel.SelectMatchingCard(tp,cm.changefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()):GetFirst()
      if not sc:IsImmuneToEffect(e) then
      local evg=Group.CreateGroup()
      if sc:IsType(TYPE_MONSTER) then
      Duel.ChangePosition(sc,POS_FACEDOWN_DEFENSE)
      else
      sc:CancelToGrave()
      if Duel.ChangePosition(sc,POS_FACEDOWN)>0 then
      evg:AddCard(sc)
      end
      end
      if #evg>0 then
      Duel.RaiseEvent(evg,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
      end
      end
      end
      end
      end
      end
      \ No newline at end of file
      expansions/script/c16104614.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 涂壁
      local m=16104614
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e0=gs.nsp(c)
      local e1=gs.turnup(c,m,1,3,cm.turnuptg,cm.turnupop,CATEGORY_SUMMON)
      local e2=gs.hdspm4(c,m)
      local e3=gs.flip(c,m,cm.filptg,cm.flipop,nil,CATEGORY_TOHAND+CATEGORY_POSITION,EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
      end
      function cm.turnupfilter(c)
      return c:IsMSetable(true,nil) and c:IsType(TYPE_MONSTER)
      end
      function cm.setfilter(c)
      return c:IsSSetable() and not c:IsType(TYPE_MONSTER)
      end
      function cm.turnuptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,0)
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
      getmetatable(e:GetHandler()).announce_filter={TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK,OPCODE_ISTYPE,OPCODE_NOT}
      local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
      local sg=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
      Duel.ConfirmCards(tp,sg)
      local g=Duel.GetMatchingGroup(Card.IsCode,tp,0,LOCATION_HAND,nil,ac)
      if g:GetCount()>0 then
      if g:IsExists(cm.turnupfilter,1,nil) then
      Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SUMMON)
      local sc=g:Select(1-tp,1,1,nil)
      Duel.MSet(tp,sc:GetFirst(),true,nil)
      end
      if g:IsExists(cm.setfilter,1,nil) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local sc=g:Select(1-tp,1,1,nil)
      Duel.SSet(1-tp,sc,tp)
      Duel.ConfirmCards(1-tp,sc)
      end
      end
      end
      function cm.filptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,0)
      end
      function cm.changefilter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function cm.flipop(e,tp)
      if not (Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil)) then return end
      local sg1=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      local sg2=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
      sg1:Merge(sg2)
      if #sg1>0 then
      if Duel.SendtoHand(sg1,nil,REASON_EFFECT)~=0 then
      if Duel.IsExistingMatchingCard(cm.changefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) and Duel.SelectYesNo(tp,aux.Stringid(m,5)) then
      local sc=Duel.SelectMatchingCard(tp,cm.changefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
      Duel.HintSelection(sc)
      local sc=sc:GetFirst()
      if not sc:IsImmuneToEffect(e) then
      local evg=Group.CreateGroup()
      if sc:IsType(TYPE_MONSTER) then
      Duel.ChangePosition(sc,POS_FACEDOWN_DEFENSE)
      else
      sc:CancelToGrave()
      if Duel.ChangePosition(sc,POS_FACEDOWN)>0 then
      evg:AddCard(sc)
      end
      end
      if #evg>0 then
      Duel.RaiseEvent(evg,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
      end
      end
      return
      end
      if Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,6)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      end
      end
      end
      function cm.thfilter(c)
      return c:IsAbleToHand() and c:IsSetCard(0xcca)
      end
      \ No newline at end of file
      expansions/script/c16104616.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 八姐妹
      local m=16104616
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e0=gs.nsp(c)
      local e1=gs.turnup(c,m,nil,3,cm.turnuptg,cm.turnupop,CATEGORY_SPECIAL_SUMMON)
      local e2=gs.hdspm4(c,m)
      local e3=gs.flip(c,m,cm.filptg,cm.flipop,nil,CATEGORY_TOHAND+CATEGORY_POSITION,EFFECT_FLAG_DAMAGE_STEP)
      end
      function cm.turnupfilter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and c:IsType(TYPE_MONSTER)
      end
      function cm.setfilter(c)
      return c:IsSSetable() and not c:IsType(TYPE_MONSTER)
      end
      function cm.turnuptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
      Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,0)
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      local b1=Duel.IsExistingMatchingCard(cm.turnupfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp)
      local b2=Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil)
      local op=2
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
      getmetatable(e:GetHandler()).announce_filter={TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK,OPCODE_ISTYPE,OPCODE_NOT}
      local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
      local sg=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
      Duel.ConfirmCards(tp,sg)
      Duel.ShuffleHand(1-tp)
      local g=Duel.GetMatchingGroup(Card.IsCode,tp,0,LOCATION_HAND,nil,ac)
      if g:GetCount()>0 then
      if b1 and b2 then
      op=Duel.SelectOption(tp,aux.Stringid(m,6),aux.Stringid(m,7))
      elseif b1 then
      op=Duel.SelectOption(tp,aux.Stringid(m,6))
      else
      op=Duel.SelectOption(tp,aux.Stringid(m,7))+1
      end
      if op==0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sc=Duel.SelectMatchingCard(tp,cm.turnupfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
      Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
      else
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local sc=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
      Duel.SSet(tp,sc)
      Duel.ConfirmCards(1-tp,sc)
      local tc=Duel.GetOperatedGroup():GetFirst()
      if tc:IsType(TYPE_QUICKPLAY) or tc:IsType(TYPE_TRAP) then
      Duel.BreakEffect()
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
      e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(e:GetHandler())
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
      e2:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e2)
      end
      end
      end
      end
      function cm.filptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,0,0)
      end
      function cm.changefilter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function cm.flipop(e,tp)
      if not (Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil)) then return end
      local sg1=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      local sg0=sg1
      local sg2=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
      sg1:Merge(sg2)
      if #sg1>0 then
      if Duel.SendtoHand(sg1,tp,REASON_EFFECT)~=2 or (sg0:GetFirst():IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK)) or (sg2:GetFirst():IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK)) then
      if Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(1-tp,aux.Stringid(m,5)) then
      local sc=Duel.SelectMatchingCard(1-tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
      Duel.HintSelection(sc)
      Duel.SendtoDeck(sc,nil,2,REASON_RULE)
      else
      Duel.ChangePosition(e:GetHandler(),POS_FACEDOWN_DEFENSE)
      end
      end
      end
      end
      function cm.thfilter(c)
      return c:IsAbleToHand() and c:IsSetCard(0xcca)
      end
      \ No newline at end of file
      expansions/script/c16104618.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 泰坦
      local m=16104618
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e00=Effect.CreateEffect(c)
      e00:SetDescription(aux.Stringid(m,15))
      e00:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e00:SetType(EFFECT_TYPE_SINGLE)
      e00:SetCode(EFFECT_LIMIT_SUMMON_PROC)
      e00:SetCondition(cm.ttcon1)
      e00:SetOperation(cm.ttop1)
      e00:SetValue(SUMMON_TYPE_ADVANCE)
      c:RegisterEffect(e00)
      local e01=Effect.CreateEffect(c)
      e01:SetType(EFFECT_TYPE_SINGLE)
      e01:SetCode(EFFECT_LIMIT_SET_PROC)
      e01:SetCondition(cm.ttcon1)
      e01:SetOperation(cm.ttop1)
      e01:SetValue(SUMMON_TYPE_ADVANCE)
      c:RegisterEffect(e01)
      local e0=gs.nsp(c)
      local e1=gs.turnup(c,m,nil,3,cm.turnuptg,cm.turnupop,CATEGORY_SPECIAL_SUMMON)
      local e2=gs.hdspm4(c,m)
      local e3=gs.flip(c,m,cm.filptg,cm.flipop,nil,CATEGORY_TOHAND+CATEGORY_POSITION,EFFECT_FLAG_DAMAGE_STEP)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,14))
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,m)
      e4:SetTarget(cm.changetg)
      e4:SetOperation(cm.changeop)
      c:RegisterEffect(e4)
      end
      function cm.changetg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingTarget(cm.changefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectTarget(tp,cm.changefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,2,0,0)
      end
      function cm.changeop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      local tg=g:Filter(Card.IsRelateToEffect,nil,e)
      if tg:GetCount()>0 then
      local tc=tg:GetFirst()
      while tc do
      if tc:IsLocation(LOCATION_MZONE) then
      Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
      else
      Duel.ChangePosition(tc,POS_FACEDOWN_ATTACK)
      end
      tc=tg:GetNext()
      end
      end
      end
      function cm.ttcon1(e,c,minc)
      if c==nil then return true end
      local tp=c:GetControler()
      local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      return minc<=3 and Duel.CheckTribute(c,3,3,g,tp)
      end
      function cm.ttop1(e,tp,eg,ep,ev,re,r,rp,c)
      local g=Duel.GetMatchingGroup(Card.IsFacedown,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil)
      local mg=Duel.SelectTribute(tp,c,3,3,g,tp)
      c:SetMaterial(mg)
      Duel.Release(mg,REASON_SUMMON+REASON_MATERIAL)
      end
      function cm.turnupfilter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,true,false,POS_FACEUP_ATTACK) and c:IsType(TYPE_MONSTER) and c:IsType(TYPE_FLIP)
      end
      function cm.setfilter(c)
      return c:IsSSetable() and c:IsType(TYPE_CONTINUOUS)
      end
      function cm.turnuptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsChainDisablable(ev) and (Duel.IsExistingMatchingCard(cm.turnupfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA,0,1,nil,e,tp) or Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_DECK,0,1,nil))end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
      Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,0)
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      local b1=Duel.IsExistingMatchingCard(cm.turnupfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA,0,1,nil,e,tp)
      local b2=Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_DECK,0,1,nil)
      local op=2
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
      getmetatable(e:GetHandler()).announce_filter={TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK,OPCODE_ISTYPE,OPCODE_NOT}
      local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
      local sg=Duel.GetFieldGroup(tp,0,LOCATION_DECK)
      Duel.ConfirmCards(tp,sg)
      Duel.ShuffleHand(1-tp)
      local g=Duel.GetMatchingGroup(Card.IsCode,tp,0,LOCATION_DECK,nil,ac)
      if g:GetCount()>0 then
      if Duel.NegateEffect(ev) then
      if b1 and b2 then
      op=Duel.SelectOption(tp,aux.Stringid(m,6),aux.Stringid(m,7))
      elseif b1 then
      op=Duel.SelectOption(tp,aux.Stringid(m,6))
      else
      op=Duel.SelectOption(tp,aux.Stringid(m,7))+1
      end
      if op==0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sc=Duel.SelectMatchingCard(tp,cm.turnupfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA,0,1,1,nil,e,tp)
      Duel.SpecialSummon(sc,0,tp,tp,true,false,POS_FACEUP_ATTACK)
      else
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local sc=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_DECK,0,1,1,nil)
      Duel.SSet(tp,sc)
      Duel.ConfirmCards(1-tp,sc)
      local tc=Duel.GetOperatedGroup():GetFirst()
      if tc:IsType(TYPE_TRAP) then
      Duel.BreakEffect()
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
      e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      end
      end
      end
      function cm.filptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,0,0)
      end
      function cm.changefilter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function cm.flipop(e,tp)
      if not Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,nil) then return end
      local sg1=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,1,nil)
      if #sg1>0 then
      if Duel.SendtoDeck(sg1,nil,2,REASON_EFFECT)~=0 then
      if Duel.IsExistingMatchingCard(cm.changefilter,tp,0,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,5)) then
      local sc=Duel.SelectMatchingCard(tp,cm.changefilter,tp,0,LOCATION_ONFIELD,1,1,nil)
      Duel.HintSelection(sc)
      if sc:GetFirst():IsImmuneToEffect(e) then
      Duel.SendtoDeck(sc,nil,2,REASON_RULE)
      else
      local sg=sc:GetFirst()
      local evg=Group.CreateGroup()
      if sg:IsType(TYPE_MONSTER) then
      Duel.ChangePosition(sg,POS_FACEDOWN_DEFENSE)
      else
      sg:CancelToGrave()
      if Duel.ChangePosition(sg,POS_FACEDOWN)>0 then
      evg:AddCard(sg)
      end
      end
      if #evg>0 then
      Duel.RaiseEvent(evg,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
      end
      end
      end
      end
      end
      end
      \ No newline at end of file
      expansions/script/c16104620.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 绝海的巨蛟
      local m=16104620
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e1=gs.turnup(c,m,1,3,cm.turnrptg,cm.turnupop,CATEGORY_POSITION+CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_NEGATE)
      local e3=gs.flip(c,m,cm.filptg,cm.flipop,nil,CATEGORY_REMOVE,EFFECT_FLAG_DAMAGE_STEP)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,3))
      e4:SetCategory(CATEGORY_POSITION)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e4:SetHintTiming(TIMING_BATTLE_PHASE,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_PHASE)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,m)
      e4:SetCost(cm.cost)
      e4:SetTarget(cm.target)
      e4:SetOperation(cm.activate)
      c:RegisterEffect(e4)
      end
      --e1
      function cm.thfilter(c)
      return c:IsAbleToHand()
      end
      function cm.turnrptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local b1=Duel.IsChainNegatable(ev)
      local b2=Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK+LOCATION_REMOVED,1,nil)
      if chk==0 then return b1 or b2 end
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local b1=Duel.IsChainNegatable(ev)
      local b2=Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK+LOCATION_REMOVED,1,nil)
      local op=0
      if b1 and b2 then op=Duel.SelectOption(tp,aux.Stringid(m,4),aux.Stringid(m,5))
      elseif b1 then op=Duel.SelectOption(tp,aux.Stringid(m,4))
      elseif b2 then op=Duel.SelectOption(tp,aux.Stringid(m,5))+1
      else return end
      if op==0 then
      Duel.NegateActivation(ev)
      local typ=re:GetHandler():GetType()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCondition(cm.cod)
      e1:SetOperation(cm.disop)
      e1:SetLabel(typ)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      else
      Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(m,6))--to you hand
      local nx=Duel.GetMatchingGroupCount(cm.splimit,tp,0,LOCATION_ONFIELD,nil)
      if nx<1 then nx=1 end
      local thg=Duel.SelectMatchingCard(1-tp,cm.thfilter,1-tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK+LOCATION_REMOVED,0,nx,nx,nil)
      Duel.SendtoHand(thg,tp,REASON_EFFECT)
      end
      end
      function cm.cod(e,tp,eg,ep,ev,re,r,rp)
      return re:GetHandler():IsType(e:GetLabel()) and re:GetHandler():GetControler()~=e:GetOwner():GetControler()
      end
      function cm.splimit(c)
      return c:IsPosition(POS_FACEDOWN)
      end
      function cm.splimit0(c)
      return c:IsCanTurnSet() and c:IsPosition(POS_FACEUP)
      end
      function cm.disop(e,tp,eg,ep,ev,re,r,rp)
      local tep=re:GetHandlerPlayer()
      if not Duel.IsExistingMatchingCard(cm.splimit0,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,e,tp) then return end
      if Duel.SelectYesNo(tp,aux.Stringid(m,7)) then --CATEGORY_POSITION
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local g=Duel.SelectMatchingCard(tp,cm.v,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)
      end
      end
      --e3
      function cm.overfilter(c)
      return c:IsCanOverlay()
      end
      function cm.changefilter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function cm.filptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.overfilter,tp,0,LOCATION_ONFIELD,1,nil) end
      end
      function cm.flipop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
      local g=Duel.SelectMatchingCard(tp,cm.overfilter,tp,0,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 and not g:GetFirst():IsImmuneToEffect(e) then
      Duel.Overlay(c,Group.FromCards(g:GetFirst()))
      if Duel.IsExistingMatchingCard(cm.changefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,7))--ChangePosition
      then
      local tcg=Duel.SelectMatchingCard(tp,cm.changefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      local sg=tcg:GetFirst()
      local evg=Group.CreateGroup()
      if sg:IsType(TYPE_MONSTER) then
      Duel.ChangePosition(sg,POS_FACEDOWN_DEFENSE)
      else
      sg:CancelToGrave()
      if Duel.ChangePosition(sg,POS_FACEDOWN)>0 then
      evg:AddCard(sg)
      end
      end
      if #evg>0 then
      Duel.RaiseEvent(evg,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
      end
      end
      end
      end
      --e4
      function cm.cost(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 cm.cfilter(c)
      return c:IsFaceup() and c:IsType(TYPE_SPELL)
      end
      function cm.filter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,2,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
      end
      function cm.activate(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.ChangePosition(g,POS_FACEDOWN_DEFENSE)
      end
      end
      \ No newline at end of file
      expansions/script/c16104622.lua deleted 100644 → 0
      View file @ 56671d0e
      --异国的招待
      local m=16104622
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      --
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_IMMUNE_EFFECT)
      e2:SetRange(LOCATION_FZONE)
      e2:SetCondition(cm.econ)
      e2:SetValue(cm.efilter)
      c:RegisterEffect(e2)
      --
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,2))
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_FZONE)
      e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e3:SetCountLimit(1)
      e3:SetCondition(cm.sumaddcon)
      e3:SetOperation(cm.sumaddop)
      c:RegisterEffect(e3)
      --
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,3))
      e4:SetCategory(CATEGORY_POSITION)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
      e4:SetCode(EVENT_PHASE+PHASE_END)
      e4:SetRange(LOCATION_FZONE)
      e4:SetCountLimit(1,m)
      e4:SetTarget(cm.chtg2)
      e4:SetOperation(cm.chop2)
      c:RegisterEffect(e4)
      end
      function cm.sumaddcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.chtg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsCanTurnSet,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      local g=Duel.GetMatchingGroup(Card.IsCanTurnSet,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
      end
      function cm.chop2(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(Card.IsCanTurnSet,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      local sg=g:Filter(Card.IsImmuneToEffect,nil,e)
      local sg=Group.__sub(g,sg)
      if sg:GetCount()>0 then
      Duel.ChangePosition(sg,POS_FACEDOWN_DEFENSE)
      local num=Duel.GetMatchingGroupCount(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
      if num>0 and Duel.SelectYesNo(tp,aux.Stringid(m,4)) then
      Duel.Draw(tp,1,REASON_EFFECT)
      Duel.BreakEffect()
      for i=2,num do
      if Duel.SelectYesNo(tp,aux.Stringid(m,5)) then
      Duel.Draw(tp,1,REASON_EFFECT)
      else
      return
      end
      end
      end
      end
      end
      function cm.sumaddop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_ADD_EXTRA_TRIBUTE)
      e1:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
      e1:SetTarget(function(e,rc) return rc~=e:GetHandler() and rc:IsFacedown() end)
      e1:SetValue(POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)
      local e6=Effect.CreateEffect(c)
      e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
      e6:SetRange(LOCATION_FZONE)
      e6:SetTargetRange(LOCATION_HAND,0)
      e6:SetReset(RESET_PHASE+PHASE_END+RESET_EVENT+RESETS_STANDARD)
      e6:SetTarget(cm.advtg)
      e6:SetLabelObject(e1)
      c:RegisterEffect(e6)
      end
      function cm.advtg(e,c)
      return c:IsLevelAbove(5)
      end
      function cm.otfilter(c)
      return c:IsSummonType(SUMMON_TYPE_ADVANCE)
      end
      function cm.efilter(e,re)
      return re:GetOwnerPlayer()~=e:GetHandlerPlayer()
      end
      function cm.econ(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==e:GetHandler():GetControler() and Duel.IsExistingMatchingCard(Card.IsFacedown,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function cm.thhfilter(c,mc)
      return c:IsRace(mc:GetRace())
      end
      function cm.thfilter(c,g)
      return c:IsAbleToHand() and c:IsType(TYPE_MONSTER) and c:IsSetCard(0xcca) and not g:IsExists(cm.thhfilter,1,nil,c)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetHandler():IsRelateToEffect(e) then return end
      local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_HAND,0,nil,TYPE_MONSTER)
      if not Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil,g) then return end
      if not Duel.SelectYesNo(tp,aux.Stringid(m,1)) then return end
      local cg=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
      Duel.ConfirmCards(1-tp,cg)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local tc=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,g)
      if tc:GetCount()>0 then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tc)
      end
      end
      \ No newline at end of file
      expansions/script/c16104624.lua deleted 100644 → 0
      View file @ 56671d0e
      --异种 兔子
      local m=16104624
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c16104600") end,function() require("script/c16104600") end)
      function cm.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND+LOCATION_DECK)
      e1:SetCondition(cm.sppcon)
      e1:SetOperation(cm.sppcop)
      c:RegisterEffect(e1)
      --[[local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
      e2:SetCondition(cm.actcon)
      e2:SetOperation(cm.actop)
      e2:SetLabelObject(e1)
      c:RegisterEffect(e2)]]--
      --
      local e3=gs.turnup(c,m,2,3,cm.turnuptg,cm.turnupop,CATEGORY_POSITION)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,1))
      e4:SetCategory(CATEGORY_EQUIP)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,m+1)
      e4:SetTarget(cm.eqtg)
      e4:SetOperation(cm.eqop)
      c:RegisterEffect(e4)
      --
      local e5=Effect.CreateEffect(c)
      e5:SetType(EFFECT_TYPE_SINGLE)
      e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCode(EFFECT_UPDATE_ATTACK)
      e5:SetValue(cm.atkval)
      c:RegisterEffect(e5)
      local e6=e5:Clone()
      e6:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e6)
      --
      local e02=Effect.CreateEffect(c)
      e02:SetType(EFFECT_TYPE_SINGLE)
      e02:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
      e02:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e02:SetCondition(cm.recon)
      e02:SetValue(LOCATION_REMOVED)
      c:RegisterEffect(e02)
      end
      function cm.recon(e)
      return e:GetHandler():IsFaceup()
      end
      function cm.eqfilter(c)
      return c:IsFacedown() and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and (c:IsControler(tp) or c:IsAbleToChangeControler())
      end
      function cm.eqfilter1(c)
      return c:IsCode(m)
      end
      function cm.eqfilter2(c)
      return c:IsCode(m) and c:IsFaceup()
      end
      function cm.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingTarget(cm.eqfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.IsExistingMatchingCard(cm.eqfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWN)
      Duel.SelectTarget(tp,cm.eqfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_ONFIELD)
      end
      function cm.eqop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or not Duel.IsExistingMatchingCard(cm.eqfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) then return end
      if tc:IsRelateToEffect(e) and tc:IsFacedown() then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      local g=Duel.SelectMatchingCard(tp,cm.eqfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.HintSelection(g)
      local sc=g:GetFirst()
      if Duel.Equip(tp,tc,sc)~=0 then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetLabelObject(sc)
      e1:SetValue(cm.eqlimit)
      tc:RegisterEffect(e1)
      if sc:GetEquipCount()>=3 then
      local sg=sc:GetEquipGroup()
      local tgg=sg:Select(tp,1,1,nil):GetFirst()
      if not tgg:IsType(TYPE_TRAPMONSTER) then
      local cid=sc:CopyEffect(tc:GetCode(),RESET_EVENT+RESETS_STANDARD)
      end
      end
      end
      end
      end
      function cm.eqlimit(e,c)
      return c==e:GetLabelObject()
      end
      function cm.filter(c,code)
      return c:IsFaceup() and c:IsCanTurnSet() and not c:IsCode(code)
      end
      function cm.turnuptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,e:GetHandler():GetCode()) end
      end
      function cm.turnupop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,e:GetHandler():GetCode()) then return true end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK)
      e1:SetTargetRange(0,LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local tcg=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      local sg=tcg:GetFirst()
      local evg=Group.CreateGroup()
      if sg:IsType(TYPE_MONSTER) then
      Duel.ChangePosition(sg,POS_FACEDOWN_DEFENSE)
      else
      sg:CancelToGrave()
      if Duel.ChangePosition(sg,POS_FACEDOWN)>0 then
      evg:AddCard(sg)
      end
      end
      if #evg>0 then
      Duel.RaiseEvent(evg,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
      end
      end
      function cm.spfilter(c)
      return c:IsFacedown() and c:IsReleasable()
      end
      function cm.sppcon(e,c)
      local tp=e:GetHandler():GetControler()
      if c==nil then return true end
      return Duel.IsExistingMatchingCard(Card.IsFacedown,tp,LOCATION_MZONE,0,3,nil) and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_ONFIELD,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      end
      function cm.sppcop(e,cp,eg,ep,ev,re,r,rp)
      local tp=e:GetHandler():GetControler()
      local sg=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_ONFIELD,0,nil)
      local g=sg:Select(tp,1,1,nil)
      Duel.Release(g,REASON_COST)
      end
      function cm.actcon(e,tp,eg,ep,ev,re,r,rp)
      local te=e:GetLabelObject()
      return re==te
      end
      function cm.actop(e,tp,eg,ep,ev,re,r,rp)
      Duel.ChangePosition(e:GetHandler(),POS_FACEDOWN_DEFENSE)
      Duel.ConfirmCards(1-tp,e:GetHandler())
      end
      function cm.atkval(e,c)
      local g=c:GetEquipGroup()
      return g:GetSum(Card.GetTextAttack)
      end
      \ No newline at end of file
      expansions/script/c23004001.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004001
      local cm=_G["c"..m]
      --奇妙冒险团 渡鸦织梦人
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(23004001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --damage
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetCode(EVENT_TO_DECK)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,m+100)
      e3:SetTarget(cm.tdtg)
      e3:SetOperation(cm.tdop)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0x351)
      end
      function cm.spfilter(c,e,tp)
      return c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.tdtg(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,0,LOCATION_GRAVE,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
      end
      function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,0,LOCATION_GRAVE,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      \ No newline at end of file
      expansions/script/c23004002.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004002
      local cm=_G["c"..m]
      --奇妙冒险团 糊弓的猎手
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(23004001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --damage
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e3:SetCode(EVENT_TO_DECK)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,m+100)
      e3:SetTarget(cm.tdtg)
      e3:SetOperation(cm.tdop)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0x351)
      end
      function cm.thfilter(c)
      return c:IsSetCard(0x351) and c:IsAbleToHand()
      end
      function cm.tdtg(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.tdop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      \ No newline at end of file
      expansions/script/c23004003.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004003
      local cm=_G["c"..m]
      --奇妙冒险团 荒原枪手
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(23004001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --damage
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetCode(EVENT_TO_DECK)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,m+100)
      e3:SetTarget(cm.tdtg)
      e3:SetOperation(cm.tdop)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0x351)
      end
      function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_ONFIELD)
      end
      function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c23004004.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004004
      local cm=_G["c"..m]
      --奇妙冒险团 火焰舞者
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(23004001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --damage
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetCode(EVENT_TO_DECK)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,m+100)
      e3:SetTarget(cm.tdtg)
      e3:SetOperation(cm.tdop)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0x351)
      end
      function cm.spfilter(c,e,tp)
      return c:IsSetCard(0x351) and not c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
      end
      function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
      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.tdop(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)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
      end
      end
      \ No newline at end of file
      expansions/script/c23004005.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004005
      local cm=_G["c"..m]
      --奇妙冒险团 礼物天使
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(23004001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --damage
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCategory(CATEGORY_DRAW)
      e3:SetCode(EVENT_TO_DECK)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,m+100)
      e3:SetTarget(cm.tdtg)
      e3:SetOperation(cm.tdop)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0x351)
      end
      function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,2) and Duel.IsPlayerCanDraw(1-tp,2) end
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,PLAYER_ALL,2)
      end
      function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
      local d1=Duel.Draw(tp,2,REASON_EFFECT)
      local d2=Duel.Draw(1-tp,2,REASON_EFFECT)
      end
      \ No newline at end of file
      expansions/script/c23004006.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004006
      local cm=_G["c"..m]
      --奇妙冒险团 栗帽的猎人
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(23004001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --damage
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e3:SetCode(EVENT_TO_DECK)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,m+100)
      e3:SetTarget(cm.tdtg)
      e3:SetOperation(cm.tdop)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0x351)
      end
      function cm.thfilter(c)
      return c:IsSetCard(0x351) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
      end
      function cm.tdtg(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.tdop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      \ No newline at end of file
      expansions/script/c23004007.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004007
      local cm=_G["c"..m]
      --奇妙冒险团 树林邀来的苗床
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(23004001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --damage
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCategory(CATEGORY_TOGRAVE)
      e3:SetCode(EVENT_TO_DECK)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,m+100)
      e3:SetTarget(cm.tdtg)
      e3:SetOperation(cm.tdop)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0x351)
      end
      function cm.tgfilter(c)
      return c:IsSetCard(0x351) and not c:IsCode(m) and c:IsAbleToGrave()
      end
      function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
      end
      function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c23004008.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004008
      local cm=_G["c"..m]
      --奇妙冒险团 天界少年
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(23004001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --damage
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCategory(CATEGORY_DESTROY)
      e3:SetCode(EVENT_TO_DECK)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,m+100)
      e3:SetTarget(cm.tdtg)
      e3:SetOperation(cm.tdop)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0x351)
      end
      function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      if chk==0 then return g:GetCount()>0 end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c23004009.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004009
      local cm=_G["c"..m]
      --奇妙冒险团 新手冒险者
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(23004001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --damage
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetCode(EVENT_TO_DECK)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,m+100)
      e3:SetTarget(cm.tdtg)
      e3:SetOperation(cm.tdop)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0x351)
      end
      function cm.filter(c,e,tp)
      return c:IsSetCard(0x351) and not c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
      end
      function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      expansions/script/c23004010.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004010
      local cm=_G["c"..m]
      --奇妙冒险团 渡鸦织梦人
      function cm.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(23004001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --damage
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetCode(EVENT_TO_DECK)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,m+100)
      e3:SetTarget(cm.tdtg)
      e3:SetOperation(cm.tdop)
      c:RegisterEffect(e3)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function cm.splimit(e,c)
      return not c:IsSetCard(0x351)
      end
      function cm.spfilter(c,e,tp)
      return c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
      end
      function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      \ No newline at end of file
      expansions/script/c23004011.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004011
      local cm=_G["c"..m]
      --奇妙冒险团 春天统治者
      function cm.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcFunFun(c,cm.ffilter,aux.FilterBoolFunction(Card.IsFusionSetCard,0x351),2,true)
      aux.AddContactFusionProcedure(c,Card.IsAbleToGraveAsCost,LOCATION_MZONE,0,Duel.SendtoGrave,REASON_COST)
      --immune spell
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_IMMUNE_EFFECT)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetValue(cm.efilter)
      c:RegisterEffect(e1)
      --
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCategory(CATEGORY_DISABLE)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1)
      e1:SetHintTiming(TIMINGS_CHECK_MONSTER)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.ffilter(c)
      return c:IsSetCard(0x351) and c:IsRace(RACE_PLANT)
      end
      function cm.efilter(e,te)
      return te:IsActiveType(TYPE_MONSTER) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
      end
      function cm.cfilter(c)
      return c:IsFaceup() and c:IsType(TYPE_EFFECT) and not c:IsDisabled()
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and cm.cfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.cfilter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      Duel.SelectTarget(tp,cm.cfilter,tp,0,LOCATION_MZONE,1,1,nil)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsFaceup() and tc:IsRelateToEffect(e) then
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(e:GetHandler())
      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(e:GetHandler())
      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)
      local e3=Effect.CreateEffect(e:GetHandler())
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_CANNOT_ATTACK)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e3)
      end
      end
      \ No newline at end of file
      expansions/script/c23004012.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004012
      local cm=_G["c"..m]
      --奇妙冒险团 红煌圣枪
      function cm.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      c:SetSPSummonOnce(m)
      aux.AddFusionProcFunFun(c,cm.ffilter,aux.FilterBoolFunction(Card.IsFusionSetCard,0x351),1,true)
      aux.AddContactFusionProcedure(c,Card.IsAbleToGraveAsCost,LOCATION_MZONE,0,Duel.SendtoGrave,REASON_COST)
      --indes
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD)
      e4:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
      e4:SetRange(LOCATION_MZONE)
      e4:SetTargetRange(LOCATION_MZONE,0)
      e4:SetTarget(cm.indcon)
      e4:SetValue(cm.indct)
      c:RegisterEffect(e4)
      --negate
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY+CATEGORY_TODECK)
      e5:SetType(EFFECT_TYPE_QUICK_O)
      e5:SetCode(EVENT_CHAINING)
      e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e5:SetCountLimit(1)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCondition(cm.negcon)
      e5:SetCost(cm.negcost)
      e5:SetTarget(cm.negtg)
      e5:SetOperation(cm.negop)
      c:RegisterEffect(e5)
      end
      function cm.ffilter(c)
      return c:IsSetCard(0x351) and c:IsAttribute(ATTRIBUTE_FIRE)
      end
      function cm.indcon(e,c)
      return c:IsSetCard(0x351) and c:IsFaceup()
      end
      function cm.indct(e,re,r,rp)
      if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 then
      return 1
      else return 0 end
      end
      function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if ep==tp or c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end
      return re:GetHandler():IsType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      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)
      if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
      end
      end
      function cm.negop(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
      \ No newline at end of file
      expansions/script/c23004013.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004013
      local cm=_G["c"..m]
      --奇妙冒险团 静谧守护
      function cm.initial_effect(c)
      --xyz summon
      aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x351),3,2)
      c:EnableReviveLimit()
      --negate
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_CHAINING)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(cm.discon)
      e2:SetCost(cm.discost)
      e2:SetTarget(cm.distg)
      e2:SetOperation(cm.disop)
      c:RegisterEffect(e2)
      --def
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_DEFENSE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetValue(cm.atkval)
      c:RegisterEffect(e1)
      --
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetRange(LOCATION_MZONE)
      e3:SetTargetRange(0,LOCATION_MZONE)
      e3:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
      e3:SetCondition(cm.cona2)
      e3:SetValue(cm.atlimit)
      c:RegisterEffect(e3)
      end
      function cm.atkval(e,c)
      return c:GetOverlayCount()*300
      end
      function cm.tfilter(c,tp)
      return c:IsLocation(LOCATION_MZONE) and c:IsSetCard(0x351) and c:IsControler(tp)
      end
      function cm.discon(e,tp,eg,ep,ev,re,r,rp)
      if rp==tp or e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end
      if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
      local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
      return tg and tg:IsExists(cm.tfilter,1,nil,tp) and Duel.IsChainNegatable(ev)
      end
      function cm.cfilter(c,g)
      return g:IsContains(c) and not c:IsStatus(STATUS_BATTLE_DESTROYED)
      end
      function cm.discost(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 cm.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 cm.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 cm.cona2(e)
      return e:GetHandler():IsAttackPos()
      end
      function cm.atlimit(e,c)
      return c~=e:GetHandler()
      end
      \ No newline at end of file
      expansions/script/c23004014.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004014
      local cm=_G["c"..m]
      --奇妙冒险团 终焉之灯火
      function cm.initial_effect(c)
      --xyz summon
      aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x351),4,2)
      c:EnableReviveLimit()
      --def
      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:SetValue(cm.atkval)
      c:RegisterEffect(e1)
      --to grave
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,0))
      e4:SetCategory(CATEGORY_TOGRAVE)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1)
      e4:SetCost(cm.tgcost)
      e4:SetTarget(cm.tgtg)
      e4:SetOperation(cm.tgop)
      c:RegisterEffect(e4)
      --indestructable
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetCondition(cm.incon)
      e1:SetValue(1)
      c:RegisterEffect(e1)
      end
      function cm.atkval(e,c)
      return c:GetOverlayCount()*300
      end
      function cm.tgcost(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 cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>0 end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,0,0)
      end
      function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)==0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g1=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_ONFIELD,1,1,nil)
      Duel.SendtoGrave(g1,REASON_EFFECT)
      end
      function cm.incon(e)
      return e:GetHandler():GetOverlayCount()>0
      end
      \ No newline at end of file
      expansions/script/c23004015.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004015
      local cm=_G["c"..m]
      --奇妙冒险团 火焰降临者
      function cm.initial_effect(c)
      --synchro summon
      aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x351),aux.NonTuner(cm.mfilter),1)
      c:EnableReviveLimit()
      --indes
      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:SetValue(1)
      c:RegisterEffect(e4)
      local e5=e4:Clone()
      e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      c:RegisterEffect(e5)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_TODECK+CATEGORY_DAMAGE)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,m)
      e2:SetTarget(cm.tdtg)
      e2:SetOperation(cm.tdop)
      c:RegisterEffect(e2)
      end
      function cm.mfilter(c)
      return c:IsSetCard(0x351) and c:IsRace(RACE_ZOMBIE)
      end
      function cm.tdfilter(c)
      return c:IsType(TYPE_SPELL) and c:IsAbleToDeck()
      end
      function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local g=Duel.GetMatchingGroup(cm.tdfilter,tp,0,LOCATION_GRAVE,e:GetHandler())
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
      end
      function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(cm.tdfilter,tp,0,LOCATION_GRAVE,nil)
      if #g>0 and Duel.SendtoDeck(g,nil,2,REASON_EFFECT)~=0 then
      local tt=Duel.GetOperatedGroup()
      Duel.Damage(1-tp,#tt*500,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c23004016.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004016
      local cm=_G["c"..m]
      --奇妙冒险团 真假操纵师
      function cm.initial_effect(c)
      --synchro summon
      aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x351),aux.NonTuner(cm.mfilter),1)
      c:EnableReviveLimit()
      --special summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EVENT_CHAINING)
      e3:SetCountLimit(1,m)
      e3:SetCondition(cm.spcon)
      e3:SetCost(cm.spcost)
      e3:SetTarget(cm.sptg)
      e3:SetOperation(cm.spop)
      c:RegisterEffect(e3)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,m+100)
      e2:SetCost(cm.spcost1)
      e2:SetTarget(cm.sptg1)
      e2:SetOperation(cm.spop1)
      c:RegisterEffect(e2)
      end
      function cm.mfilter(c)
      return c:IsSetCard(0x351)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsReleasable() end
      Duel.Release(e:GetHandler(),REASON_COST)
      end
      function cm.spfilter(c,e,tp,mc)
      return c:IsSetCard(0x351) and c:IsLevelBelow(8)
      and not c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,true,false,POS_FACEUP)
      and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,e:GetHandler()) and e:GetHandler():IsReleasable() end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      Duel.SetOperationInfo(0,CATEGORY_RELEASE,e:GetHandler(),1,0,0)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
      local tc=g:GetFirst()
      if tc then
      Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP)
      end
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_MZONE,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function cm.spop1(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      expansions/script/c23004017.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004017
      local cm=_G["c"..m]
      --奇妙冒险团 机械神童
      function cm.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcFunFunRep(c,cm.ffilter,aux.FilterBoolFunction(Card.IsFusionSetCard,0x351),2,63,true)
      aux.AddContactFusionProcedure(c,Card.IsAbleToGraveAsCost,LOCATION_MZONE,0,Duel.SendtoGrave,REASON_COST)
      --base atk/def
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCode(EFFECT_SET_BASE_ATTACK)
      e1:SetRange(LOCATION_MZONE)
      e1:SetValue(cm.atkval)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_SET_BASE_DEFENSE)
      c:RegisterEffect(e2)
      --
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e4:SetValue(1)
      c:RegisterEffect(e4)
      --immune spell
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_IMMUNE_EFFECT)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetValue(cm.efilter)
      c:RegisterEffect(e1)
      --chain attack
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_BATTLE_DESTROYING)
      e2:SetCountLimit(1)
      e2:SetCost(cm.atcost)
      e2:SetCondition(cm.atcon)
      e2:SetOperation(cm.atop)
      c:RegisterEffect(e2)
      end
      function cm.ffilter(c)
      return c:IsSetCard(0x351) and c:IsType(TYPE_FUSION)
      end
      function cm.atkval(e,c)
      local tt=c:GetMaterial()
      return #tt*800
      end
      function cm.efilter(e,te)
      return te:IsActiveType(TYPE_MONSTER) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.atcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.atcon(e,tp,eg,ep,ev,re,r,rp)
      return aux.bdocon(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():IsChainAttackable()
      end
      function cm.atop(e,tp,eg,ep,ev,re,r,rp)
      Duel.ChainAttack()
      end
      \ No newline at end of file
      expansions/script/c23004018.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004018
      local cm=_G["c"..m]
      --奇妙冒险团 勇气战神
      function cm.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcFunRep2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x351),3,63,false)
      aux.AddContactFusionProcedure(c,Card.IsAbleToGraveAsCost,LOCATION_MZONE,0,Duel.SendtoGrave,REASON_COST)
      --spsummon success
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      e3:SetOperation(cm.sucop)
      c:RegisterEffect(e3)
      --cananot atk p
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_CANNOT_DIRECT_ATTACK)
      c:RegisterEffect(e3)
      end
      function cm.sucop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SET_BASE_ATTACK)
      e1:SetValue(c:GetMaterialCount()*1000)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_SET_BASE_DEFENSE)
      c:RegisterEffect(e2)
      local e3=e1:Clone()
      e3:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
      e3:SetValue(c:GetMaterialCount()-1)
      c:RegisterEffect(e3)
      end
      \ No newline at end of file
      expansions/script/c23004020.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004020
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --link summon
      aux.AddLinkProcedure(c,cm.mfilter,1,1)
      c:EnableReviveLimit()
      --tohand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,m)
      e1:SetCost(cm.cost)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,m)
      e2:SetCost(cm.spcost1)
      e2:SetTarget(cm.sptg1)
      e2:SetOperation(cm.spop1)
      c:RegisterEffect(e2)
      end
      function cm.cfilter(c,tp)
      return c:IsSetCard(0x351) and c:IsAbleToDeckAsCost() and c:IsType(TYPE_MONSTER)
      end
      function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_MZONE,0,1,1,c)
      Duel.SendtoDeck(sg,nil,2,REASON_COST)
      end
      function cm.mfilter(c)
      return c:IsSetCard(0x351)
      end
      function cm.thfilter(c)
      return c:IsSetCard(0x351) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function cm.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function cm.spop1(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      expansions/script/c23004030.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004030
      local cm=_G["c"..m]
      --奇妙冒险团休憩
      function cm.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --draw
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DRAW)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_DECK)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(cm.drcon)
      e2:SetTarget(cm.drtg)
      e2:SetOperation(cm.drop)
      c:RegisterEffect(e2)
      --search
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1)
      e3:SetCost(cm.thcost)
      e3:SetTarget(cm.thtg)
      e3:SetOperation(cm.thop)
      c:RegisterEffect(e3)
      end
      function cm.rlcfilter(c,tp)
      return c:IsSetCard(0x351) and c:GetPreviousControler()==tp
      end
      function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.rlcfilter,1,nil,tp)
      end
      function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function cm.drop(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetHandler():IsRelateToEffect(e) then return end
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return 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.thfilter(c)
      return c:IsSetCard(0x351) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER)
      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)
      if not e:GetHandler():IsRelateToEffect(e) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      \ No newline at end of file
      expansions/script/c23004031.lua deleted 100644 → 0
      View file @ 56671d0e
      --奇妙冒险团誓言
      local m=23004031
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --activate limit
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_ACTIVATE)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetCondition(cm.aetcon)
      e3:SetTarget(cm.immtg)
      e3:SetOperation(cm.immop)
      c:RegisterEffect(e3)
      end
      function cm.aetcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(cm.immfilter,tp,LOCATION_MZONE,0,2,nil)
      end
      function cm.immfilter(c)
      return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsSetCard(0x351)
      end
      function cm.immtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.immfilter,tp,LOCATION_MZONE,0,1,nil) end
      end
      function cm.immop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(cm.immfilter,tp,LOCATION_MZONE,0,nil)
      local tc=g:GetFirst()
      while tc do
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCode(EFFECT_IMMUNE_EFFECT)
      e1:SetRange(LOCATION_MZONE)
      e1:SetValue(cm.efilter)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e1:SetOwnerPlayer(tp)
      tc:RegisterEffect(e1)
      tc=g:GetNext()
      end
      end
      function cm.efilter(e,re)
      return e:GetOwnerPlayer()~=re:GetOwnerPlayer()
      end
      \ No newline at end of file
      expansions/script/c23004032.lua deleted 100644 → 0
      View file @ 56671d0e
      --奇妙冒险团的圣都
      local m=23004032
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,m)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      --draw
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DRAW)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_DECK)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_FZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(cm.drcon)
      e2:SetTarget(cm.drtg)
      e2:SetOperation(cm.drop)
      c:RegisterEffect(e2)
      --disable
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetRange(LOCATION_FZONE)
      e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x351))
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetValue(300)
      c:RegisterEffect(e2)
      end
      function cm.filter(c)
      return c:IsSetCard(0x351) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetHandler():IsRelateToEffect(e) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function cm.rlcfilter(c,tp)
      return c:IsSetCard(0x351) and c:GetPreviousControler()==tp
      end
      function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.rlcfilter,1,nil,tp)
      end
      function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function cm.drop(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetHandler():IsRelateToEffect(e) then return end
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      \ No newline at end of file
      expansions/script/c23004033.lua deleted 100644 → 0
      View file @ 56671d0e
      --奇妙冒险团的祈祷
      local m=23004033
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e0=Effect.CreateEffect(c)
      e0:SetCategory(CATEGORY_TOHAND)
      e0:SetType(EFFECT_TYPE_ACTIVATE)
      e0:SetCode(EVENT_FREE_CHAIN)
      e0:SetTarget(cm.actg)
      e0:SetOperation(cm.acop)
      c:RegisterEffect(e0)
      end
      function cm.actg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_DECK,0,1,nil) and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>2 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
      getmetatable(e:GetHandler()).announce_filter={TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK,OPCODE_ISTYPE,OPCODE_NOT}
      local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
      Duel.SetTargetParam(ac)
      Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,0)
      end
      function cm.acop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.ConfirmDecktop(tp,3)
      local g=Duel.GetDecktopGroup(tp,3)
      local ac=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
      local tc=g:Filter(Card.IsCode,nil,ac)
      if #tc>0 then
      Duel.SendtoHand(tc,tp,REASON_EFFECT)
      g:Sub(tc)
      Duel.SendtoGrave(g,REASON_EFFECT)
      else
      Duel.SortDecktop(tp,tp,3)
      for i=1,3 do
      local mg=Duel.GetDecktopGroup(tp,1)
      Duel.MoveSequence(mg:GetFirst(),1)
      end
      end
      end
      expansions/script/c23004034.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=23004034
      local cm=_G["c"..m]
      --奇妙冒险团的聚集
      function cm.initial_effect(c)
      --Activate
      local e0=Effect.CreateEffect(c)
      e0:SetCategory(CATEGORY_TOHAND)
      e0:SetType(EFFECT_TYPE_ACTIVATE)
      e0:SetCode(EVENT_FREE_CHAIN)
      e0:SetTarget(cm.actg)
      e0:SetOperation(cm.acop)
      c:RegisterEffect(e0)
      end
      function cm.actg(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(0x351)
      end
      function cm.acop(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)
      else
      Duel.SortDecktop(tp,tp,3)
      for i=1,3 do
      local mg=Duel.GetDecktopGroup(tp,1)
      Duel.MoveSequence(mg:GetFirst(),1)
      end
      end
      end
      end
      \ No newline at end of file
      expansions/script/c33405100.lua deleted 100644 → 0
      View file @ 56671d0e
      --不灭的奇迹
      function c33405100.initial_effect(c)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetTarget(c33405100.settg)
      e2:SetOperation(c33405100.setop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      local e1=e2:Clone()
      e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD)
      e1:SetCountLimit(1)
      e1:SetRange(LOCATION_MZONE)
      c:RegisterEffect(e1)
      if not c33405100.global_check then
      c33405100.global_check=true
      im_miracle={}
      im_miracle[1]=0
      local ge1=Effect.CreateEffect(c)
      ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge1:SetCode(EVENT_LEAVE_FIELD)
      ge1:SetOperation(c33405100.checkop)
      Duel.RegisterEffect(ge1,0)
      end
      --removed
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_LEAVE_FIELD)
      e1:SetOperation(c33405100.rmop)
      c:RegisterEffect(e1)
      end
      function c33405100.checkop(e,tp,eg,ep,ev,re,r,rp)
      local tc=eg:GetFirst()
      while tc do
      if tc:GetOriginalCode()==33405100 then
      if tc:IsReason(REASON_BATTLE+REASON_EFFECT) then
      if tc:IsReason(REASON_BATTLE) then
      local bt=tc:GetReasonCard()
      im_miracle[#im_miracle+1]=bt:GetOriginalCode()
      end
      if tc:IsReason(REASON_EFFECT) then
      local ec=tc:GetReasonEffect()
      local ef=ec:GetHandler()
      if aux.GetValueType(ef)=="Card" and ef:GetOriginalType()&TYPE_MONSTER~=0 then
      im_miracle[#im_miracle+1]=ef:GetOriginalCode()
      end
      end
      end
      end
      tc=eg:GetNext()
      end
      end
      function c33405100.get_announce(t)
      local rt={t[1],OPCODE_ISCODE}
      for i=2,#t do
      table.insert(rt,t[i])
      table.insert(rt,OPCODE_ISCODE)
      table.insert(rt,OPCODE_OR)
      end
      --table.insert(rt,TYPE_MONSTER)
      --table.insert(rt,OPCODE_ISTYPE)
      --table.insert(rt,OPCODE_AND)
      return table.unpack(rt)
      end
      function c33405100.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return #im_miracle>1 end
      Duel.Hint(HINT_CARD,0,e:GetHandler():GetOriginalCode())
      local rcode=Duel.AnnounceCard(tp,c33405100.get_announce(im_miracle))
      Duel.SetTargetParam(rcode)
      end
      function c33405100.setop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local code=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
      local f=Card.RegisterEffect
      Card.RegisterEffect=function(tc,e,forced)
      e:SetCondition(c33405100.rcon2_2(e:GetCondition()))
      e:SetCost(c33405100.rcost2_2(e:GetCost()))
      f(tc,e,forced)
      end
      c:CopyEffect(code,RESET_EVENT+0x1fe0000,1)
      Card.RegisterEffect=f
      local ra=Duel.ReadCard(code,4)
      local lv=0
      if ra&TYPE_XYZ~=0 or ra&TYPE_LINK~=0 then
      lv=1
      else
      lv=Duel.ReadCard(code,5)
      end
      local atk=Duel.ReadCard(code,8)
      local def=Duel.ReadCard(code,9)
      local race=Duel.ReadCard(code,7)
      local att=Duel.ReadCard(code,6)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SET_BASE_ATTACK)
      e1:SetValue(atk)
      e1:SetReset(RESET_EVENT+0x1fe0000)
      c:RegisterEffect(e1,true)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_SET_BASE_DEFENSE)
      e2:SetValue(def)
      c:RegisterEffect(e2,true)
      local e4=e1:Clone()
      e4:SetCode(EFFECT_CHANGE_RACE)
      e4:SetValue(race)
      c:RegisterEffect(e4,true)
      local e5=e1:Clone()
      e5:SetCode(EFFECT_CHANGE_ATTRIBUTE)
      e5:SetValue(att)
      c:RegisterEffect(e5,true)
      local e6=e1:Clone()
      e6:SetCode(EFFECT_CHANGE_LEVEL)
      e6:SetValue(lv)
      c:RegisterEffect(e6,true)
      local e7=e1:Clone()
      e7:SetType(EFFECT_TYPE_SINGLE)
      e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e7:SetCode(EFFECT_CHANGE_CODE)
      e7:SetValue(code)
      c:RegisterEffect(e7,true)
      c:RegisterFlagEffect(33405100,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,1,aux.Stringid(33405100,1))
      end
      function c33405100.rcon2_2(con)
      return
      function(e,tp,eg,ep,ev,re,r,rp)
      return not con or con(e,tp,eg,ep,ev,re,r,rp) or e:IsHasType(0x7e0)
      end
      end
      --
      function c33405100.rcost2_2(cost)
      return
      function(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return not cost or cost(e,tp,eg,ep,ev,re,r,rp,0) or e:IsHasType(0x7e0) end
      return not cost or e:IsHasType(0x7e0) or cost(e,tp,eg,ep,ev,re,r,rp,1)
      end
      end
      function c33405100.rmop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if e:GetHandler():IsFacedown() then return end
      local tr=Duel.GetTurnCount()
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e2:SetReset(RESET_PHASE+PHASE_STANDBY,2)
      e2:SetCountLimit(1)
      e2:SetLabel(tr)
      e2:SetCondition(c33405100.condition)
      e2:SetOperation(c33405100.operation)
      Duel.RegisterEffect(e2,tp)
      end
      function c33405100.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnCount()>e:GetLabel()
      end
      function c33405100.tgfilter(c)
      return c:IsCode(33405100)
      end
      function c33405100.operation(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return e:Reset() end
      Duel.Hint(HINT_CARD,0,33405100)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,c33405100.tgfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      e:Reset()
      end
      \ No newline at end of file
      expansions/script/c81008000.lua deleted 100644 → 0
      View file @ 56671d0e
      --吓个半死
      local m=81008000
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_ATTACK_ANNOUNCE)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return tp~=Duel.GetTurnPlayer()
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      Duel.Destroy(sg,REASON_EFFECT)
      end
      expansions/script/c81008001.lua deleted 100644 → 0
      View file @ 56671d0e
      --在被吓个半死的前夜
      local m=81008001
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1)
      e1:SetCost(cm.setcost)
      e1:SetTarget(cm.settg)
      e1:SetOperation(cm.setop)
      c:RegisterEffect(e1)
      --change effect
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e3:SetCode(EVENT_CHAINING)
      e3:SetRange(LOCATION_PZONE)
      e3:SetCondition(cm.chcon1)
      e3:SetOperation(cm.chop1)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetCode(EVENT_CHAIN_SOLVING)
      e4:SetRange(LOCATION_PZONE)
      e4:SetCondition(cm.chcon2)
      e4:SetOperation(cm.chop2)
      c:RegisterEffect(e4)
      end
      function cm.setcost(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.setfilter(c)
      return c:IsSetCard(0x3816) and c:IsType(TYPE_TRAP) and c:IsSSetable()
      end
      function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function cm.setop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_DECK,0,1,1,nil)
      local tc=g:GetFirst()
      if tc and c:IsRelateToEffect(e) then
      Duel.SSet(tp,tc)
      end
      end
      function cm.chcon1(e,tp,eg,ep,ev,re,r,rp)
      return ep==tp and re:IsActiveType(TYPE_TRAP) and re:GetHandler():IsSetCard(0x3816) and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil)
      end
      function cm.chop1(e,tp,eg,ep,ev,re,r,rp)
      re:GetHandler():RegisterFlagEffect(m,RESET_CHAIN,0,1)
      end
      function cm.chcon2(e,tp,eg,ep,ev,re,r,rp)
      return re:GetHandler():GetFlagEffect(m)>0 and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil)
      end
      function cm.chop2(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) then return end
      local g=Group.CreateGroup()
      Duel.ChangeTargetCard(ev,g)
      return Duel.ChangeChainOperation(ev,cm.repop)
      end
      function cm.repop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,m)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      expansions/script/c81008002.lua deleted 100644 → 0
      View file @ 56671d0e
      --被吓个半死的人
      local m=81008002
      local cm=_G["c"..m]
      xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
      function cm.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --todeck
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,1))
      e2:SetCategory(CATEGORY_TODECK)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_PZONE)
      e2:SetCountLimit(1)
      e2:SetTarget(cm.tdtg)
      e2:SetOperation(cm.tdop)
      c:RegisterEffect(e2)
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0 end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
      e1:SetTargetRange(1,0)
      e1:SetTarget(cm.splimit)
      e1:SetLabelObject(e)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
      return se~=e:GetLabelObject()
      end
      function cm.spfilter(c,e,tp)
      return c:IsSetCard(0x3816) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_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)
      local c=e:GetHandler()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not c:IsRelateToEffect(e) 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)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function cm.tdfilter(c)
      return (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:IsSetCard(0x3816) and c:IsAbleToDeck()
      end
      function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and cm.tdfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
      end
      function cm.setfilter(c)
      return c:IsSetCard(0x3816) and c:IsType(TYPE_TRAP) and c:IsSSetable()
      end
      function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then
      local g=Duel.GetMatchingGroup(cm.setfilter,tp,LOCATION_HAND,0,nil)
      if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local sg=g:Select(tp,1,1,nil)
      Duel.SSet(tp,sg)
      end
      end
      end
      expansions/script/c81008003.lua deleted 100644 → 0
      View file @ 56671d0e
      --一不留神被吓个半死
      local m=81008003
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return rp==tp and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE))
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.Destroy(sg,REASON_EFFECT)
      end
      expansions/script/c81008004.lua deleted 100644 → 0
      View file @ 56671d0e
      --谁把谁吓个半死？！
      local m=81008004
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.cfilter(c)
      return c:GetSummonLocation()==LOCATION_EXTRA
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(cm.cfilter,tp,0,LOCATION_MZONE,1,nil)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.Destroy(g,REASON_EFFECT)
      end
      expansions/script/c81008005.lua deleted 100644 → 0
      View file @ 56671d0e
      --还是被吓个半死
      local m=81008005
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 end
      local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
      local mea=Duel.Destroy(g,REASON_EFFECT)
      if mea>0 then
      local dg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
      if dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81010015,0)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local sg=dg:Select(tp,1,mea,nil)
      Duel.HintSelection(sg)
      Duel.Destroy(sg,REASON_EFFECT)
      end
      end
      end
      expansions/script/c81008006.lua deleted 100644 → 0
      View file @ 56671d0e
      --似乎被吓个半死
      local m=81008006
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
      c:RegisterEffect(e2)
      local e3=e1:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      end
      function cm.filter(c,tp)
      return c:GetSummonPlayer()==tp
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return eg:IsExists(cm.filter,1,nil,1-tp) and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.Destroy(g,REASON_EFFECT)
      end
      expansions/script/c81008007.lua deleted 100644 → 0
      View file @ 56671d0e
      --唐突被吓个半死
      local m=81008007
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_ATTACK_ANNOUNCE)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return tp~=Duel.GetTurnPlayer()
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,0,1,nil) end
      local g=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,0,nil)
      if g:GetCount()>0 then
      Duel.Destroy(g,REASON_EFFECT)
      end
      local opt=Duel.SelectOption(1-tp,aux.Stringid(81010017,0),aux.Stringid(81010017,1))
      if opt==1 then
      Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE_STEP,1)
      else
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CHANGE_DAMAGE)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetValue(0)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_NO_EFFECT_DAMAGE)
      e2:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e2,tp)
      end
      end
      expansions/script/c81008008.lua deleted 100644 → 0
      View file @ 56671d0e
      --开局被吓个半死
      local m=81008008
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.Destroy(sg,REASON_EFFECT)
      end
      expansions/script/c81008009.lua deleted 100644 → 0
      View file @ 56671d0e
      --毫无征兆被吓个半死
      local m=81008009
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMING_TOHAND)
      e1:SetCategory(CATEGORY_DESTROY+CATEGORY_HANDES+CATEGORY_REMOVE)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.operation)
      c:RegisterEffect(e1)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0
      and Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0
      and Duel.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
      getmetatable(e:GetHandler()).announce_filter={TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK,OPCODE_ISTYPE,OPCODE_NOT}
      local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
      Duel.SetTargetParam(ac)
      Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,0)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp)
      local ac=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
      local g=Duel.GetMatchingGroup(Card.IsCode,tp,0,LOCATION_HAND,nil,ac)
      if g:GetCount()>0 then
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.Destroy(sg,REASON_EFFECT)
      else
      Duel.DiscardHand(tp,nil,2,2,REASON_EFFECT+REASON_DISCARD)
      if Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)==0 then
      local ag=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_MZONE,0,1,1,nil)
      if ag:GetCount()>0 then
      Duel.Remove(ag,POS_FACEUP,REASON_EFFECT)
      end
      end
      end
      end
      expansions/script/c81008010.lua deleted 100644 → 0
      View file @ 56671d0e
      --又被吓个半死
      local m=81008010
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 end
      local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
      if Duel.Destroy(g,REASON_EFFECT)~=0 then
      local dg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,nil)
      if dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local sg=dg:Select(tp,1,1,nil)
      Duel.HintSelection(sg)
      Duel.Remove(sg,POS_FACEDOWN,REASON_EFFECT)
      end
      end
      end
      expansions/script/c81008011.lua deleted 100644 → 0
      View file @ 56671d0e
      --惯例被吓个半死
      local m=81008011
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY+CATEGORY_HANDES)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(cm.tg)
      e1:SetOperation(cm.op)
      c:RegisterEffect(e1)
      end
      function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
      end
      function cm.op(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      if Duel.Destroy(sg,REASON_EFFECT)~=0 then
      local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_HAND,nil)
      if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
      Duel.BreakEffect()
      local sg=g:RandomSelect(tp,1)
      Duel.SendtoGrave(sg,REASON_EFFECT)
      end
      end
      end
      expansions/script/c81008012.lua deleted 100644 → 0
      View file @ 56671d0e
      --因为所以被吓个半死
      local m=81008012
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_TO_HAND)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.cfilter(c,tp)
      return c:IsControler(tp) and c:IsPreviousLocation(LOCATION_DECK)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,1-tp)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.Destroy(g,REASON_EFFECT)
      end
      expansions/script/c81008013.lua deleted 100644 → 0
      View file @ 56671d0e
      --第N次被吓个半死
      local m=81008013
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_TO_GRAVE)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.cfilter(c,tp)
      return c:IsPreviousLocation(LOCATION_ONFIELD) and c:GetPreviousControler()==1-tp
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,tp)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.Destroy(sg,REASON_EFFECT)
      end
      expansions/script/c81008014.lua deleted 100644 → 0
      View file @ 56671d0e
      --出师未捷身先吓个半死
      local m=81008014
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_ATTACK_ANNOUNCE)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      return tp==Duel.GetTurnPlayer()
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.Destroy(sg,REASON_EFFECT)
      end
      expansions/script/c81008015.lua deleted 100644 → 0
      View file @ 56671d0e
      --感动到被吓个半死
      local m=81008015
      local cm=_G["c"..m]
      Duel.LoadScript("c26800000.lua")
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCondition(cm.condition)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.condition(e,tp,eg,ep,ev,re,r,rp)
      local ex,tg,tc=Duel.GetOperationInfo(ev,CATEGORY_DESTROY)
      return ex and tg~=nil and tc+tg:FilterCount(Card.IsOnField,nil)-tg:GetCount()>0
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.Destroy(g,REASON_EFFECT)
      end
      expansions/script/c81008016.lua deleted 100644 → 0
      View file @ 56671d0e
      --不被吓个半死是不可能的
      local m=81008016
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(cm.tg)
      e1:SetOperation(cm.op)
      c:RegisterEffect(e1)
      end
      function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
      end
      function cm.op(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      if Duel.Destroy(sg,REASON_EFFECT)~=0 then
      local ct=5-Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
      if ct>0 and Duel.IsPlayerCanDraw(tp,ct)
      and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
      Duel.BreakEffect()
      Duel.Draw(tp,ct,REASON_EFFECT)
      end
      end
      end
      expansions/script/c81008017.lua deleted 100644 → 0
      View file @ 56671d0e
      --果不其然被吓个半死
      local m=81008017
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCost(cm.cost)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      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,e:GetHandler()) end
      Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.Destroy(g,REASON_EFFECT)
      end
      expansions/script/c81008018.lua deleted 100644 → 0
      View file @ 56671d0e
      --否则就会被吓个半死
      local m=81008018
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCost(cm.cost)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLPCost(tp,1000) end
      Duel.PayLPCost(tp,1000)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil)
      Duel.Destroy(g,REASON_EFFECT)
      end
      expansions/script/c81008098.lua deleted 100644 → 0
      View file @ 56671d0e
      --被吓个半死的房客
      local m=81008098
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,m)
      e1:SetCost(cm.thcost)
      e1:SetTarget(cm.thtg)
      e1:SetOperation(cm.thop)
      c:RegisterEffect(e1)
      --draw
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_DRAW)
      e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e5:SetCode(EVENT_PHASE+PHASE_END)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1,m+900)
      e5:SetTarget(cm.drtg)
      e5:SetOperation(cm.drop)
      c:RegisterEffect(e5)
      local e6=Effect.CreateEffect(c)
      e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e6:SetCode(EVENT_CHAINING)
      e6:SetRange(LOCATION_MZONE)
      e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e6:SetLabelObject(e5)
      e6:SetOperation(cm.regop)
      c:RegisterEffect(e6)
      local e7=e6:Clone()
      e7:SetCode(EVENT_CHAIN_NEGATED)
      e7:SetOperation(cm.regop2)
      c:RegisterEffect(e7)
      local e8=e6:Clone()
      e8:SetCode(EVENT_PHASE_START+PHASE_DRAW)
      e8:SetOperation(cm.clearop)
      c:RegisterEffect(e8)
      end
      function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsDiscardable() end
      Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
      end
      function cm.thfilter(c)
      return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsLevel(4) and c:IsType(TYPE_NORMAL) and c:IsType(TYPE_PENDULUM)
      and (c:IsFaceup() or not c:IsLocation(LOCATION_EXTRA)) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_EXTRA)
      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_GRAVE+LOCATION_EXTRA,0,1,1,nil)
      local tc=g:GetFirst()
      if not tc then return end
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tc)
      end
      function cm.regop(e,tp,eg,ep,ev,re,r,rp)
      if re:GetHandler():IsSetCard(0x3816) and rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_TRAP) then
      local val=e:GetLabelObject():GetLabel()
      e:GetLabelObject():SetLabel(val+1)
      end
      end
      function cm.regop2(e,tp,eg,ep,ev,re,r,rp)
      if re:GetHandler():IsSetCard(0x3816) and rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_TRAP) then
      local val=e:GetLabelObject():GetLabel()
      if val==0 then val=1 end
      e:GetLabelObject():SetLabel(val-1)
      end
      end
      function cm.clearop(e,tp,eg,ep,ev,re,r,rp)
      e:GetLabelObject():SetLabel(0)
      end
      function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local d=e:GetLabel()
      if chk==0 then return d>0 and Duel.IsPlayerCanDraw(tp,d) end
      Duel.SetTargetPlayer(tp)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,d)
      end
      function cm.drop(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetHandler():IsRelateToEffect(e) then return end
      local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
      local d=e:GetLabel()
      if d>0 then
      Duel.Draw(p,d,REASON_EFFECT)
      end
      end
      expansions/script/c81008099.lua deleted 100644 → 0
      View file @ 56671d0e
      --被吓个半死的斧头女仆
      local m=81008099
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,m)
      e1:SetCost(cm.cost)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.operation)
      c:RegisterEffect(e1)
      --set
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,1))
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetCountLimit(1,m+900)
      e3:SetCost(aux.bfgcost)
      e3:SetTarget(cm.settg)
      e3:SetOperation(cm.setop)
      c:RegisterEffect(e3)
      end
      function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsDiscardable() end
      Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
      end
      function cm.filter(c)
      return c:IsSetCard(0x3816) and not c:IsCode(m) and c:IsAbleToHand()
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.operation(e,tp,eg,ep,ev,re,r,rp,chk)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function cm.setfilter(c)
      return c:IsSetCard(0x3816) and c:IsSSetable()
      end
      function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,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,aux.NecroValleyFilter(cm.setfilter),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil)
      local tc=g:GetFirst()
      if tc and Duel.SSet(tp,tc)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
      e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      expansions/script/c82204215.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=82204215
      local cm=_G["c"..m]
      cm.name="堕世魔镜-始源"
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_LEAVE_GRAVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(cm.con)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.con(e,tp,eg,ep,ev,re,r,rp)
      local tp=e:GetHandler():GetControler()
      return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      end
      function cm.setfilter(c)
      return c:IsSetCard(0x3298) and (c:IsType(TYPE_SPELL) or c:IsType(TYPE_TRAP)) and c:IsSSetable() and not c:IsCode(m)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.setfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SSet(tp,g:GetFirst())
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      Duel.RegisterEffect(e1,tp)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      Duel.RegisterEffect(e2,tp)
      local e3=e1:Clone()
      e3:SetCode(EFFECT_CANNOT_MSET)
      Duel.RegisterEffect(e3,tp)
      end
      \ No newline at end of file
      expansions/script/c82204216.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=82204216
      local cm=_G["c"..m]
      cm.name="堕世魔镜-极欲"
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(cm.actcon)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      Duel.AddCustomActivityCounter(m,ACTIVITY_CHAIN,cm.chainfilter)
      end
      function cm.actcon(e,tp,eg,ep,ev,re,r,rp)
      local tp=e:GetHandler():GetControler()
      return Duel.GetCustomActivityCount(m,tp,ACTIVITY_CHAIN)~=0
      end
      function cm.chainfilter(re,tp,cid)
      return not (re:GetHandler():IsSetCard(0x3298) and (re:IsActiveType(TYPE_SPELL) or re:IsActiveType(TYPE_TRAP)) and re:IsHasType(EFFECT_TYPE_ACTIVATE))
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(2)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      \ No newline at end of file
      expansions/script/c82204217.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=82204217
      local cm=_G["c"..m]
      cm.name="堕世魔镜-消亡"
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_REMOVE+CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCondition(cm.con)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.con(e,tp,eg,ep,ev,re,r,rp)
      local tp=e:GetHandler():GetControler()
      return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,e:GetHandler(),1-tp,POS_FACEDOWN,REASON_RULE) end
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,1-tp,0,LOCATION_ONFIELD,e:GetHandler(),tp,POS_FACEDOWN,REASON_RULE)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil,1-tp,POS_FACEDOWN,REASON_RULE)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      if Duel.Remove(g,POS_FACEDOWN,REASON_RULE)~=0 then
      Duel.Damage(1-tp,800,REASON_EFFECT)
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      Duel.RegisterEffect(e1,tp)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      Duel.RegisterEffect(e2,tp)
      local e3=e1:Clone()
      e3:SetCode(EFFECT_CANNOT_MSET)
      Duel.RegisterEffect(e3,tp)
      end
      \ No newline at end of file
      expansions/script/c82204218.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=82204218
      local cm=_G["c"..m]
      cm.name="堕世魔镜-焚尽"
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetHintTiming(TIMING_END_PHASE)
      e1:SetCondition(cm.con)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.con(e,tp,eg,ep,ev,re,r,rp)
      local tp=e:GetHandler():GetControler()
      return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetTargetPlayer(1-tp)
      Duel.SetTargetParam(800)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Damage(p,d,REASON_EFFECT)
      Duel.BreakEffect()
      Duel.Damage(p,d,REASON_EFFECT)
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_FIELD)
      e0:SetCode(EFFECT_CANNOT_BP)
      e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e0:SetReset(RESET_PHASE+PHASE_END)
      e0:SetTargetRange(0,1)
      Duel.RegisterEffect(e0,tp)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      Duel.RegisterEffect(e1,tp)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      Duel.RegisterEffect(e2,tp)
      local e3=e1:Clone()
      e3:SetCode(EFFECT_CANNOT_MSET)
      Duel.RegisterEffect(e3,tp)
      end
      \ No newline at end of file
      expansions/script/c82204219.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=82204219
      local cm=_G["c"..m]
      cm.name="堕世魔镜-寂灭"
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_NEGATE+CATEGORY_TODECK+CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCondition(cm.con)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.con(e,tp,eg,ep,ev,re,r,rp)
      local tp=e:GetHandler():GetControler()
      return Duel.IsChainNegatable(ev) and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      end
      function cm.target(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():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,1,0,0)
      end
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
      re:GetHandler():CancelToGrave()
      if Duel.SendtoDeck(eg,nil,2,REASON_EFFECT)~=0 then
      Duel.Damage(1-tp,800,REASON_EFFECT)
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      Duel.RegisterEffect(e1,tp)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      Duel.RegisterEffect(e2,tp)
      local e3=e1:Clone()
      e3:SetCode(EFFECT_CANNOT_MSET)
      Duel.RegisterEffect(e3,tp)
      end
      \ No newline at end of file
      expansions/script/c82204220.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=82204220
      local cm=_G["c"..m]
      cm.name="堕世魔镜-虚无"
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_TOGRAVE+CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_SUMMON)
      e1:SetCondition(cm.con)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_FLIP_SUMMON)
      c:RegisterEffect(e2)
      local e3=e1:Clone()
      e3:SetCode(EVENT_SPSUMMON)
      c:RegisterEffect(e3)
      end
      function cm.con(e,tp,eg,ep,ev,re,r,rp)
      local tp=e:GetHandler():GetControler()
      return tp~=ep and Duel.GetCurrentChain()==0 and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,eg,eg:GetCount(),0,0)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.NegateSummon(eg)
      if Duel.SendtoGrave(eg,REASON_EFFECT)~=0 then
      Duel.Damage(1-tp,800,REASON_EFFECT)
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      Duel.RegisterEffect(e1,tp)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e2:SetTargetRange(1,0)
      Duel.RegisterEffect(e2,tp)
      end
      \ No newline at end of file
      expansions/script/c82204221.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=82204221
      local cm=_G["c"..m]
      cm.name="堕世魔镜-尘寂"
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_DISABLE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetHintTiming(TIMING_END_PHASE)
      e1:SetCondition(cm.con)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      end
      function cm.con(e,tp,eg,ep,ev,re,r,rp)
      local tp=e:GetHandler():GetControler()
      return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chkc then return chkc:IsOnField() and aux.disfilter1(chkc) end
      if chk==0 then return Duel.IsExistingTarget(aux.disfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectTarget(tp,aux.disfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if Duel.Damage(1-tp,800,REASON_EFFECT)~=0 then
      local tc=Duel.GetFirstTarget()
      if ((tc:IsFaceup() and not tc:IsDisabled()) or tc:IsType(TYPE_TRAPMONSTER)) and tc:IsRelateToEffect(e) then
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e2)
      if tc:IsType(TYPE_TRAPMONSTER) then
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e3)
      end
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      Duel.RegisterEffect(e1,tp)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      Duel.RegisterEffect(e2,tp)
      local e3=e1:Clone()
      e3:SetCode(EFFECT_CANNOT_MSET)
      Duel.RegisterEffect(e3,tp)
      end
      \ No newline at end of file
      expansions/script/c82204222.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=82204222
      local cm=_G["c"..m]
      cm.name="堕世魔镜-咒怨"
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(cm.con)
      c:RegisterEffect(e1)
      --indes
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
      e2:SetRange(LOCATION_SZONE)
      e2:SetTargetRange(LOCATION_ONFIELD,0)
      e2:SetCondition(cm.con)
      e2:SetTarget(cm.indestg)
      e2:SetValue(1)
      c:RegisterEffect(e2)
      --set
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_PHASE+PHASE_END)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetRange(LOCATION_SZONE)
      e3:SetTarget(cm.settg)
      e3:SetOperation(cm.setop)
      c:RegisterEffect(e3)
      end
      function cm.indestg(e,c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP)
      end
      function cm.con(e,tp,eg,ep,ev,re,r,rp)
      local tp=e:GetHandler():GetControler()
      return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      end
      function cm.setfilter(c)
      return c:IsSetCard(0x3298) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
      end
      function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and cm.setfilter(chkc) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingTarget(cm.setfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectTarget(tp,cm.setfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
      end
      function cm.setop(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetHandler():IsRelateToEffect(e) then return end
      local tc=Duel.GetFirstTarget()
      local g=Group.CreateGroup()
      g:AddCard(tc)
      if tc:IsRelateToEffect(e) and Duel.SSet(tp,g)~=0 then
      Duel.Damage(1-tp,800,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c82204223.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=82204223
      local cm=_G["c"..m]
      cm.name="堕世魔镜-灾厄"
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(cm.con)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,0))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1)
      e2:SetCondition(cm.con)
      e2:SetTarget(cm.destg)
      e2:SetOperation(cm.desop)
      c:RegisterEffect(e2)
      --damage reduce
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
      e3:SetRange(LOCATION_SZONE)
      e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e3:SetTargetRange(1,0)
      e3:SetValue(HALF_DAMAGE)
      c:RegisterEffect(e3)
      end
      function cm.con(e,tp,eg,ep,ev,re,r,rp)
      local tp=e:GetHandler():GetControler()
      return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      end
      function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
      end
      function cm.desop(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetHandler():IsRelateToEffect(e) then return end
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
      Duel.Damage(1-tp,800,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      expansions/script/c82204224.lua deleted 100644 → 0
      View file @ 56671d0e
      local m=82204224
      local cm=_G["c"..m]
      cm.name="堕世魔镜领域-异度镜界"
      function cm.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE+EFFECT_FLAG_CANNOT_INACTIVATE)
      c:RegisterEffect(e1)
      --search
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(m,0))
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE+EFFECT_FLAG_CANNOT_INACTIVATE)
      e3:SetRange(LOCATION_FZONE)
      e3:SetCountLimit(1,m)
      e3:SetCondition(cm.con)
      e3:SetTarget(cm.thtg)
      e3:SetOperation(cm.thop)
      c:RegisterEffect(e3)
      --inactivatable
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD)
      e4:SetCode(EFFECT_CANNOT_INACTIVATE)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
      e4:SetRange(LOCATION_FZONE)
      e4:SetValue(cm.effectfilter)
      c:RegisterEffect(e4)
      local e5=Effect.CreateEffect(c)
      e5:SetType(EFFECT_TYPE_FIELD)
      e5:SetCode(EFFECT_CANNOT_DISEFFECT)
      e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
      e5:SetRange(LOCATION_FZONE)
      e5:SetValue(cm.effectfilter)
      c:RegisterEffect(e5)
      local e6=Effect.CreateEffect(c)
      e6:SetType(EFFECT_TYPE_FIELD)
      e6:SetCode(EFFECT_CANNOT_DISABLE)
      e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
      e6:SetRange(LOCATION_FZONE)
      e6:SetTargetRange(0xff,0)
      e6:SetTarget(cm.tgfilter)
      c:RegisterEffect(e6)
      end
      function cm.con(e,tp,eg,ep,ev,re,r,rp)
      local tp=e:GetHandler():GetControler()
      return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      end
      function cm.thfilter(c)
      return c:IsSetCard(0x3298) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      Duel.RegisterEffect(e1,tp)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      Duel.RegisterEffect(e2,tp)
      local e3=e1:Clone()
      e3:SetCode(EFFECT_CANNOT_MSET)
      Duel.RegisterEffect(e3,tp)
      end
      function cm.effectfilter(e,ct)
      local p=e:GetHandler():GetControler()
      local te,tp=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
      return p==tp and te:GetHandler():IsSetCard(0x3298)
      end
      function cm.tgfilter(e,c)
      local tp=e:GetHandler()
      return c:IsControler(tp) and c:IsSetCard(0x3298)
      end
      \ No newline at end of file
      expansions/strings.conf
      View file @ 9219d844
      ......@@ -5,7 +5,6 @@
      # 禁用 0x100-0x1ff 区间避免 OCG 卡字段上浮冲突
      #某失智の刀客塔 3529764274 1 0xca0-0xcaf
      !setname 0xca1 里械仪者
      !setname 0xca2 Operatives
      !setname 0xca3 后巴别塔
      !setname 0xca4 玩家
      ......@@ -986,7 +985,6 @@
      #祖母暗 1319407497 778 0xdc0-0xdcf
      #Camellia 1967836697 810 0x810-0x81f
      !setname 0x3816 吓个半死
      !setname 0x6816 淡野美妙子
      !setname 0x9816 淡野晴
      !setname 0xa816 梦前菜菜
      ......@@ -1018,7 +1016,6 @@
      !setname 0x296 幻晶兽
      !setname 0x297 亡灵舰队
      !setname 0xc298 荒兽
      !setname 0x3298 堕世魔镜
      !setname 0x5298 时之行者
      !setname 0x6298 虚妄灵
      !setname 0xc299 妖狐
      ......
      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