Skip to content

Y
ygopro-pre-data
Commit 2aa50ee3 authored by mercury233's avatar mercury233
Browse files
Options

rm

parent eebb6834
Pipeline #21910 passed with stages
      in 38 seconds
      Show whitespace changes
      Inline Side-by-side
      Showing with 78 additions and 10335 deletions
      deck/23-04-22 DUNE(1201).ydk deleted 100644 → 0
      View file @ eebb6834
      #created by ...
      #main
      101201000
      101201001
      101201002
      101201003
      101201004
      101201005
      101201006
      101201007
      101201008
      101201009
      101201010
      101201011
      101201012
      101201013
      101201014
      101201015
      101201016
      101201017
      101201018
      101201019
      101201020
      101201021
      101201022
      101201023
      101201024
      101201025
      101201026
      101201027
      101201028
      101201029
      101201030
      101201031
      101201032
      101201205
      101201206
      101201052
      101201053
      101201054
      101201055
      101201056
      101201057
      101201058
      101201059
      101201060
      101201061
      101201062
      101201063
      101201064
      101201065
      101201066
      101201067
      101201207
      101201069
      101201070
      101201071
      101201072
      101201073
      101201074
      101201075
      101201076
      #extra
      101201033
      101201034
      101201035
      101201036
      101201203
      101201204
      101201039
      101201040
      101201041
      101201042
      101201043
      101201044
      101201045
      101201046
      !side
      101201047
      101201048
      101201049
      101201077
      101201078
      101201079
      101201080
      deck/23-05-18 new cards.ydk → deck/23-05-28 new cards.ydk
      View file @ 2aa50ee3
      #created by ...
      #main
      100428001
      100200002
      101202001
      100200236
      100207008
      100207009
      100207010
      ......@@ -29,7 +29,6 @@
      100428033
      100428034
      100428038
      100200235
      #extra
      100428004
      100428005
      ......@@ -39,15 +38,3 @@
      100428035
      100428036
      !side
      101112081
      101112082
      101112083
      101112084
      101112085
      101112086
      101112087
      101112088
      101112089
      101112090
      101112091
      101112092
      expansions/pre-strings.conf
      View file @ 2aa50ee3
      #The first line is used for comment
      !setname 0x17 同调 シンクロ
      !setname 0x607a 焰圣剑 焔聖剣
      !setname 0x21 地缚 地縛
      !setname 0x1021 地缚神 地縛神
      #setname 0x84 燃烧拳 バーニングナック
      !setname 0x1084 燃烧拳击手 BK（バーニングナックラー）
      !setname 0x2084 燃烧拳 バーニングナックル
      !setname 0x298 维萨斯 ヴィサス
      !setname 0x299 反击 カウンター
      script/c100200235.lua deleted 100644 → 0
      View file @ eebb6834
      --キラー・ポテト
      --Mystic Potato
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_TO_GRAVE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCondition(s.condition)
      e1:SetTarget(s.target)
      e1:SetOperation(s.operation)
      c:RegisterEffect(e1)
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:GetReason()&0x41==0x41 and c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.filter(c,e,tp)
      return c:IsAttribute(ATTRIBUTE_DARK) and c:IsAttackBelow(1500) and not c:IsCode(id)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function s.operation(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,s.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_ATTACK)
      end
      end
      script/c100200236.lua deleted 100644 → 0
      View file @ eebb6834
      --ダンディ・ホワイトライオン
      --Dandy White Lion
      --Script by StupidStudiosN
      local s,id,o=GetID()
      function s.initial_effect(c)
      --token
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_TO_GRAVE)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCondition(s.condition)
      e1:SetCost(s.spcost)
      e1:SetTarget(s.target)
      e1:SetOperation(s.operation)
      c:RegisterEffect(e1)
      Duel.AddCustomActivityCounter(id,ACTIVITY_SPSUMMON,s.counterfilter)
      end
      function s.counterfilter(c)
      return not c:IsSummonLocation(LOCATION_EXTRA)
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_HAND+LOCATION_ONFIELD)
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetCustomActivityCount(id,tp,ACTIVITY_SPSUMMON)==0 end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetReset(RESET_PHASE+PHASE_END)
      e1:SetTargetRange(1,0)
      e1:SetTarget(s.splimit)
      Duel.RegisterEffect(e1,tp)
      end
      function s.splimit(e,c,sump,sumtype,sumpos,targetp,se)
      return c:IsLocation(LOCATION_EXTRA)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>=3
      and not Duel.IsPlayerAffectedByEffect(tp,59822133)
      and Duel.IsPlayerCanSpecialSummonMonster(tp,100200336,0,TYPES_TOKEN_MONSTER,0,0,1,RACE_PLANT,ATTRIBUTE_WIND,POS_FACEUP_DEFENSE) end
      Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,3,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<3
      or Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
      if not Duel.IsPlayerCanSpecialSummonMonster(tp,100200336,0,TYPES_TOKEN_MONSTER,0,0,1,RACE_PLANT,ATTRIBUTE_WIND,POS_FACEUP_DEFENSE) then return end
      for i=1,3 do
      local token=Duel.CreateToken(tp,100200336)
      Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
      end
      Duel.SpecialSummonComplete()
      end
      script/c101201039.lua → script/c100428001.lua
      View file @ 2aa50ee3
      --ヴィサス＝アムリターラ
      --サラマングレイト・オブ・ファイア
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.EnableChangeCode(c,56099748)
      --synchro summon
      aux.AddSynchroMixProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_LIGHT),nil,nil,aux.Tuner(nil),1,99)
      c:EnableReviveLimit()
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.thcon)
      e1:SetTarget(s.thtg)
      e1:SetOperation(s.thop)
      c:RegisterEffect(e1)
      --destroy & atkup
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.destg)
      e2:SetOperation(s.desop)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
      --destroy
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_BATTLE_START)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetCountLimit(1,id+o)
      e3:SetCondition(s.descon)
      e3:SetCost(aux.bfgcost)
      e3:SetTarget(s.destg)
      e3:SetOperation(s.desop)
      c:RegisterEffect(e3)
      end
      function s.thfilter(c)
      return aux.IsCodeListed(c,56099748) and c:IsAbleToHand() and c:IsType(TYPE_SPELL+TYPE_TRAP)
      return c:IsLevelBelow(4) and c:IsSetCard(0x119) and c:IsType(TYPE_MONSTER) and not c:IsCode(id) and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
      ......@@ -45,27 +44,32 @@ function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_MZONE)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
      if #g>0 then
      Duel.HintSelection(g)
      Duel.Destroy(g,REASON_EFFECT)
      end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetTarget(s.atktg)
      e1:SetValue(800)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(s.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function s.atktg(e,c)
      return c:IsType(TYPE_SYNCHRO)
      function s.splimit(e,c)
      return not c:IsAttribute(ATTRIBUTE_FIRE)
      end
      function s.descon(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetAttacker()
      if tc:IsControler(1-tp) then tc=Duel.GetAttackTarget() end
      e:SetLabelObject(tc)
      return tc and tc:IsFaceup() and tc:IsRace(RACE_CYBERSE)
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      local bc=e:GetLabelObject()
      if chk==0 then return bc end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,bc,1,0,0)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local bc=e:GetLabelObject()
      if bc:IsRelateToBattle() and bc:IsControler(tp) then
      Duel.Destroy(bc,REASON_EFFECT)
      end
      end
      script/c100428003.lua
      View file @ 2aa50ee3
      ......@@ -31,20 +31,6 @@ function s.initial_effect(c)
      e3:SetOperation(s.lvop)
      c:RegisterEffect(e3)
      end
      function Auxiliary.SelectFromOptions(tp,...)
      local options={...}
      local ops={}
      local opvals={}
      for i=1,#options do
      if options[i][1] then
      table.insert(ops,options[i][2])
      table.insert(opvals,options[i][3] or i)
      end
      end
      if #ops==0 then return nil end
      local select=Duel.SelectOption(tp,table.unpack(ops))
      return opvals[select+1]
      end
      function s.costfilter(c)
      return c:IsSetCard(0x119) and c:IsDiscardable()
      end
      ......
      script/c100428032.lua
      View file @ 2aa50ee3
      ......@@ -29,7 +29,7 @@ function c100428032.initial_effect(c)
      end
      function c100428032.thfilter(c)
      return (c:IsSetCard(0x1084) and c:IsType(TYPE_MONSTER) and not c:IsCode(100428032)
      or c:IsSetCard(0x299) and c:IsType(TYPE_COUNTER)) and c:IsAbleToHand()
      or c:IsSetCard(0x199) and c:IsType(TYPE_COUNTER)) and c:IsAbleToHand()
      end
      function c100428032.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100428032.thfilter,tp,LOCATION_DECK,0,1,nil) end
      ......@@ -50,7 +50,7 @@ function c100428032.spfilter(c,e,tp)
      return c:IsSetCard(0x1084) and c:IsType(TYPE_MONSTER) and not c:IsCode(100428032) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c100428032.setfilter(c)
      return c:IsSetCard(0x299) and c:IsType(TYPE_COUNTER) and c:IsSSetable()
      return c:IsSetCard(0x199) and c:IsType(TYPE_COUNTER) and c:IsSSetable()
      end
      function c100428032.lgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      ......
      script/c101112081.lua deleted 100644 → 0
      View file @ eebb6834
      --Moissa Knight, the Comet General
      --Script by StupidStudiosN
      local s,id,o=GetID()
      function s.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --return to deck
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCondition(s.tdcon)
      e1:SetTarget(s.tdtg)
      e1:SetOperation(s.tdop)
      c:RegisterEffect(e1)
      --second pendulum summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,3))
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_DRAW)
      e2:SetCost(s.expcost)
      e2:SetTarget(s.exptg)
      e2:SetOperation(s.expop)
      c:RegisterEffect(e2)
      end
      function Auxiliary.SelectFromOptions(tp,...)
      local options={...}
      local ops={}
      local opvals={}
      for i=1,#options do
      if options[i][1] then
      table.insert(ops,options[i][2])
      table.insert(opvals,options[i][3] or i)
      end
      end
      if #ops==0 then return nil end
      local select=Duel.SelectOption(tp,table.unpack(ops))
      return opvals[select+1]
      end
      function s.cfilter(c,tp)
      return c:IsSummonPlayer(tp) and c:IsSummonType(SUMMON_TYPE_PENDULUM)
      end
      function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
      end
      function s.tdop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      local opt=aux.SelectFromOptions(tp,
      {true,aux.Stringid(id,1),SEQ_DECKTOP},
      {true,aux.Stringid(id,2),SEQ_DECKBOTTOM})
      Duel.SendtoDeck(c,nil,opt,REASON_EFFECT)
      end
      end
      function s.expcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return not e:GetHandler():IsPublic() end
      end
      function s.exptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFlagEffect(tp,id)==0 end
      end
      function s.expop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,4))
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_EXTRA_PENDULUM_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetCountLimit(1,id)
      e1:SetValue(s.pendvalue)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
      end
      function s.pendvalue(e,c)
      return c:IsLocation(LOCATION_HAND)
      end
      \ No newline at end of file
      script/c101112082.lua deleted 100644 → 0
      View file @ eebb6834
      --Golden Cloud Beast - Malong
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --material
      aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
      --change level
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetOperation(s.lvop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetCountLimit(1,id)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e2:SetTarget(s.thtg)
      e2:SetOperation(s.thop)
      c:RegisterEffect(e2)
      end
      function Auxiliary.SelectFromOptions(tp,...)
      local options={...}
      local ops={}
      local opvals={}
      for i=1,#options do
      if options[i][1] then
      table.insert(ops,options[i][2])
      table.insert(opvals,options[i][3] or i)
      end
      end
      if #ops==0 then return nil end
      local select=Duel.SelectOption(tp,table.unpack(ops))
      return opvals[select+1]
      end
      function s.lvop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToChain() or c:IsFacedown() then return end
      local down=c:IsLevelAbove(2)
      local lv=aux.SelectFromOptions(tp,{true,aux.Stringid(id,2)},{down,aux.Stringid(id,3),-1})
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_LEVEL)
      e1:SetValue(lv)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      c:RegisterEffect(e1)
      end
      function s.filter(c)
      return c:IsFaceup() and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and s.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,0,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,s.filter,tp,0,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) end
      end
      script/c101112083.lua deleted 100644 → 0
      View file @ eebb6834
      --Imperial Princess Quinquery
      --Script by StupidStudiosN
      local s,id,o=GetID()
      function s.initial_effect(c)
      --xyz summon
      aux.AddXyzProcedure(c,nil,5,2)
      c:EnableReviveLimit()
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCost(s.spcost)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --add or special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_LEAVE_FIELD)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(s.spcon)
      e2:SetTarget(s.sptg2)
      e2:SetOperation(s.spop2)
      c:RegisterEffect(e2)
      end
      function Auxiliary.SelectFromOptions(tp,...)
      local options={...}
      local ops={}
      local opvals={}
      for i=1,#options do
      if options[i][1] then
      table.insert(ops,options[i][2])
      table.insert(opvals,options[i][3] or i)
      end
      end
      if #ops==0 then return nil end
      local select=Duel.SelectOption(tp,table.unpack(ops))
      return opvals[select+1]
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
      e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
      end
      function s.spfilter(c,e,tp)
      return c:IsLevel(5) and (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      or Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp))
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and s.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) then return end
      local s1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
      local s2=Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp)
      local toplayer=aux.SelectFromOptions(tp,
      {s1,aux.Stringid(id,1),tp},
      {s2,aux.Stringid(id,2),1-tp})
      if toplayer~=nil then
      Duel.SpecialSummon(tc,0,tp,toplayer,false,false,POS_FACEUP)
      end
      end
      function s.cfilter(c,tp)
      return c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_MZONE)
      and c:GetPreviousLevelOnField()==5 and (c:IsReason(REASON_BATTLE) or c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()==1-tp)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return not eg:IsContains(e:GetHandler()) and eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.dfilter(c,e,tp,ft)
      return c:IsLevel(5) and (c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
      end
      function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if chk==0 then return Duel.IsExistingMatchingCard(s.dfilter,tp,LOCATION_DECK,0,1,nil,e,tp,ft) end
      end
      function s.spop2(e,tp,eg,ep,ev,re,r,rp)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      local g=Duel.SelectMatchingCard(tp,s.dfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,ft)
      local tc=g:GetFirst()
      if tc then
      if ft>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and (not tc:IsAbleToHand() or Duel.SelectOption(tp,1190,1152)==1) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      else
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tc)
      end
      end
      end
      \ No newline at end of file
      script/c101112084.lua deleted 100644 → 0
      View file @ eebb6834
      --Pendulum Pendant
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_LIMIT_ZONE)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetCost(s.cost)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      e1:SetValue(s.zones)
      c:RegisterEffect(e1)
      --reduce scale
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.rstg)
      e2:SetOperation(s.rsop)
      c:RegisterEffect(e2)
      end
      function s.zones(e,tp,eg,ep,ev,re,r,rp)
      local zone=0xff
      local p0=Duel.CheckLocation(tp,LOCATION_PZONE,0)
      local p1=Duel.CheckLocation(tp,LOCATION_PZONE,1)
      local b=e:IsHasType(EFFECT_TYPE_ACTIVATE) and not e:GetHandler():IsLocation(LOCATION_SZONE)
      if not b or p0 and p1 then return zone end
      if p0 then zone=zone-0x1 end
      if p1 then zone=zone-0x10 end
      return zone
      end
      function s.cfilter(c)
      return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsAbleToRemoveAsCost()
      end
      function s.check(g,tp)
      return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,g)
      end
      function s.filter(c)
      return c:IsFaceupEx() and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_EXTRA,0,nil)
      if chk==0 then return #g>4 and g:CheckSubGroup(s.check,5,5,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local sg=g:SelectSubGroup(tp,s.check,false,5,5,tp)
      Duel.Remove(sg,POS_FACEUP,REASON_COST)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return (e:IsCostChecked()
      or Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil))
      and (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1)) end
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      if not (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1)) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local tc=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil):GetFirst()
      if tc then Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true) end
      end
      function s.rfilter(c)
      return c:GetCurrentScale()>0
      end
      function s.rstg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_PZONE) end
      if chk==0 then return Duel.IsExistingTarget(s.rfilter,tp,LOCATION_PZONE,LOCATION_PZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      Duel.SelectTarget(tp,s.rfilter,tp,LOCATION_PZONE,LOCATION_PZONE,1,1,nil)
      end
      function s.rsop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_LSCALE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(-1)
      tc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_UPDATE_RSCALE)
      tc:RegisterEffect(e2)
      end
      end
      script/c101112085.lua deleted 100644 → 0
      View file @ eebb6834
      --How Did Dai Get Here?
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_DESTROYED)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
      e1:SetCondition(s.condition)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.cfilter(c,tp)
      return c:IsPreviousControler(tp) and c:GetReasonPlayer()==1-tp and c:IsPreviousLocation(LOCATION_MZONE)
      and c:IsReason(REASON_BATTLE+REASON_EFFECT)
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.xfilter(c,code)
      return c:IsFaceup() and c:IsCode(code)
      end
      function s.filter(c,tp)
      return c:IsType(TYPE_FIELD) and not c:IsForbidden() and c:CheckUniqueOnField(tp)
      and not Duel.IsExistingMatchingCard(s.xfilter,tp,LOCATION_FZONE,0,1,nil,c:GetCode())
      end
      function s.sfilter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(s.sfilter,tp,LOCATION_DECK,0,nil,e,tp)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil,tp)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:GetClassCount(Card.GetCode)>4 end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local tc=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
      if not tc then return end
      local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
      if fc then
      Duel.SendtoGrave(fc,REASON_RULE)
      Duel.BreakEffect()
      end
      Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
      local g=Duel.GetMatchingGroup(s.sfilter,tp,LOCATION_DECK,0,nil,e,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local mg=g:SelectSubGroup(tp,aux.dncheck,false,5,5)
      if mg then
      Duel.BreakEffect()
      Duel.ConfirmCards(1-tp,mg)
      local sg=mg:RandomSelect(1-tp,1)
      Duel.ConfirmCards(tp,sg)
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c101112086.lua deleted 100644 → 0
      View file @ eebb6834
      --Gold Pride - Roller Baller
      --Script by bobtmann
      local s,id,o=GetID()
      function s.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --Fusion summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_MZONE)
      e2:SetHintTiming(0,TIMING_MAIN_END)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(s.fscon)
      e2:SetTarget(s.fstg)
      e2:SetOperation(s.fsop)
      c:RegisterEffect(e2)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetLP(tp)<Duel.GetLP(1-tp)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) end
      end
      function s.fscon(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
      end
      function c101112086.spfilter1(c,e)
      return not c:IsImmuneToEffect(e)
      end
      function c101112086.spfilter2(c,e,tp,m,f,chkf)
      return c:IsType(TYPE_FUSION) and c:IsSetCard(0x192) and (not f or f(c))
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
      end
      function s.fstg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp)
      local res=Duel.IsExistingMatchingCard(c101112086.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
      if not res then
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      local mg2=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      res=Duel.IsExistingMatchingCard(c101112086.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
      end
      end
      return res
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.fsop(e,tp,eg,ep,ev,re,r,rp)
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp):Filter(c101112086.spfilter1,nil,e)
      local sg1=Duel.GetMatchingGroup(c101112086.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
      local mg2=nil
      local sg2=nil
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      mg2=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      sg2=Duel.GetMatchingGroup(c101112086.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
      end
      if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
      local sg=sg1:Clone()
      if sg2 then sg:Merge(sg2) end
      ::cancel::
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tg=sg:Select(tp,1,1,nil)
      local tc=tg:GetFirst()
      if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
      local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
      if #mat1==0 then goto cancel end
      tc:SetMaterial(mat1)
      Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
      else
      local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
      if #mat2==0 then goto cancel end
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat2)
      end
      tc:CompleteProcedure()
      end
      end
      script/c101112087.lua deleted 100644 → 0
      View file @ eebb6834
      --Gold Pride - Pin Baller
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --material
      aux.AddFusionProcCodeFunRep(c,101112086,aux.FilterBoolFunction(Card.IsFusionSetCard,0x192),1,63,true,true)
      --equip
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_EQUIP)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCondition(s.eqcon)
      e1:SetTarget(s.eqtg)
      e1:SetOperation(s.eqop)
      c:RegisterEffect(e1)
      --to deck
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_TOEXTRA+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
      e2:SetCode(EVENT_PHASE+PHASE_END)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(s.tdcon)
      e2:SetTarget(s.tdtg)
      e2:SetOperation(s.tdop)
      c:RegisterEffect(e2)
      end
      function s.eqcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
      end
      function s.filter(c)
      return c:IsFaceup() and c:IsAbleToChangeControler()
      end
      function s.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local ct=c:GetMaterialCount()
      if chk==0 then return ct>0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingMatchingCard(s.filter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,0,LOCATION_MZONE)
      c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
      if Duel.GetLP(tp)<Duel.GetLP(1-tp) then
      e:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_NEGATE)
      else e:SetProperty(EFFECT_FLAG_DELAY) end
      end
      function s.eqlimit(e,c)
      return e:GetOwner()==c and not c:IsDisabled()
      end
      function s.eqop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=c:GetMaterialCount()
      local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
      if ft<=0 or not c:IsRelateToEffect(e) or c:IsFacedown() then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,0,LOCATION_MZONE,1,math.min(ft,ct),nil)
      if #g==0 then return end
      for tc in aux.Next(g) do
      if Duel.Equip(tp,tc,c,true,true) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(s.eqlimit)
      tc:RegisterEffect(e1,true)
      end
      end
      Duel.EquipComplete()
      end
      function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():GetFlagEffect(id)>0
      end
      function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
      end
      function s.sfilter(c,e,tp)
      return c:IsCode(101112086) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.tdop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,SEQ_DECKTOP,REASON_EFFECT)>0
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.sfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      script/c101112088.lua deleted 100644 → 0
      View file @ eebb6834
      --Gold Pride - Chariot Carrie
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,96305350)
      c:EnableReviveLimit()
      --material
      aux.AddXyzProcedure(c,nil,3,2)
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_DECKDES)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,id)
      e1:SetCost(s.cost)
      e1:SetTarget(s.thtg)
      e1:SetOperation(s.thop)
      c:RegisterEffect(e1)
      --todeck
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_TOEXTRA+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
      e2:SetCode(EVENT_PHASE+PHASE_END)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(s.tdcon)
      e2:SetTarget(s.tdtg)
      e2:SetOperation(s.tdop)
      c:RegisterEffect(e2)
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_COST) end
      c:RemoveOverlayCard(tp,1,1,REASON_COST)
      end
      function s.filter(c)
      return c:IsSetCard(0x192) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
      end
      function s.gfilter(c)
      return c:IsSetCard(0x192) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
      if Duel.SendtoHand(g,nil,REASON_EFFECT)<1 then return end
      Duel.ConfirmCards(1-tp,g)
      Duel.ShuffleHand(tp)
      local tg=Duel.GetMatchingGroup(s.gfilter,tp,LOCATION_DECK,0,1,nil)
      if Duel.GetLP(tp)<Duel.GetLP(1-tp) and #g>0
      and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local sg=tg:Select(tp,1,1,nil)
      Duel.BreakEffect()
      Duel.SendtoGrave(sg,REASON_EFFECT)
      end
      end
      function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():GetFlagEffect(id)>0
      end
      function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
      end
      function s.sfilter(c,e,tp)
      return c:IsCode(96305350) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.tdop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,SEQ_DECKTOP,REASON_EFFECT)>0
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.sfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      script/c101112089.lua deleted 100644 → 0
      View file @ eebb6834
      --Gold Pride - That Came Out of Nowhere!
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.filter(c,e,tp)
      return c:IsSetCard(0x192) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.filter),tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp)
      local tg=Duel.GetMatchingGroup(aux.NecroValleyFilter(Card.IsCanBeSpecialSummoned),tp,0,LOCATION_GRAVE+LOCATION_HAND,nil,e,0,1-tp,false,false)
      if #g>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0
      and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and #tg>0
      and Duel.SelectYesNo(1-tp,aux.Stringid(id,1)) then
      Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
      local tc=tg:Select(1-tp,1,1,nil):GetFirst()
      Duel.BreakEffect()
      if Duel.SpecialSummonStep(tc,0,1-tp,1-tp,false,false,POS_FACEUP) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      tc:RegisterEffect(e2)
      end
      Duel.SpecialSummonComplete()
      end
      end
      script/c101112090.lua deleted 100644 → 0
      View file @ eebb6834
      --Gold Pride - Pedal to the Metal!
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_ATKCHANGE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
      e1:SetHintTiming(TIMING_DAMAGE_STEP)
      e1:SetCondition(aux.dscon)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --set
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_PHASE+PHASE_END)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id)
      e2:SetCondition(s.setcon)
      e2:SetTarget(s.settg)
      e2:SetOperation(s.setop)
      c:RegisterEffect(e2)
      if not s.global_check then
      s.global_check=true
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetOperation(s.check)
      Duel.RegisterEffect(e3,0)
      end
      end
      function s.filter(c)
      return c:IsFaceup() and c:IsSetCard(0x192)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) then return end
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetValue(1)
      e1:SetReset(RESET_PHASE+PHASE_END+RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      tc:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_CANNOT_TRIGGER)
      e3:SetReset(RESET_PHASE+PHASE_END+RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e3)
      if tc:IsFaceup() then
      local e4=e1:Clone()
      e4:SetCode(EFFECT_UPDATE_ATTACK)
      e4:SetValue(500)
      tc:RegisterEffect(e4)
      end
      end
      function s.setcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetFlagEffect(tp,id)>0
      end
      function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsSSetable() end
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,c,1,0,0)
      end
      function s.setop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then Duel.SSet(tp,c) end
      end
      function s.cfilter(c,tp)
      return c:IsPreviousSetCard(0x192) and c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_MZONE)
      and c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsPreviousPosition(POS_FACEUP)
      end
      function s.check(e,tp,eg,ep,ev,re,r,rp)
      for p=0,1 do
      if eg:IsExists(s.cfilter,1,nil,p) then Duel.RegisterFlagEffect(p,id,RESET_PHASE+PHASE_END,0,1) end
      end
      end
      script/c101112091.lua deleted 100644 → 0
      View file @ eebb6834
      --Gold Pride - Better Luck Next Time!
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --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,id+EFFECT_COUNT_CODE_OATH)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --draw
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_DRAW)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_DECK)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
      e2:SetCondition(s.drcon)
      e2:SetTarget(s.drtg)
      e2:SetOperation(s.drop)
      c:RegisterEffect(e2)
      end
      function s.filter(c)
      return c:IsSetCard(0x192) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(s.filter,tp,LOCATION_DECK,0,nil)
      if #g==0 or not Duel.SelectYesNo(tp,aux.Stringid(id,1)) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local tc=g:Select(tp,1,1,nil):GetFirst()
      if Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 then
      Duel.ConfirmCards(1-tp,tc)
      local lp=Duel.GetLP(tp)
      Duel.SetLP(tp,lp-tc:GetAttack())
      end
      end
      function s.cfilter(c,tp)
      return c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousSetCard(0x192) and c:IsPreviousControler(tp)
      and c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonLocation(LOCATION_EXTRA)
      and c:IsLocation(LOCATION_EXTRA) and c:IsSummonType(SUMMON_TYPE_SPECIAL)
      end
      function s.drcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.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 s.drop(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      script/c101112092.lua deleted 100644 → 0
      View file @ eebb6834
      --Gold Pride - It's Neck and Neck!
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id)
      e1:SetHintTiming(TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetHintTiming(TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCondition(s.spcon)
      e2:SetCost(s.cost)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.filter(c)
      return c:IsFaceupEx() and c:IsSetCard(0x192) and c:IsAbleToHand() and not c:IsCode(id)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_MZONE) and chkc:IsControler(tp) and s.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE+LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE+LOCATION_MZONE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) end
      end
      function s.cfilter(c,lp)
      return c:IsFaceup() and c:GetAttack()>lp
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.cfilter,tp,0,LOCATION_MZONE,1,nil,Duel.GetLP(tp))
      end
      function s.rfilter(c,e,tp)
      return c:IsSetCard(0x192) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
      and Duel.IsExistingMatchingCard(s.sfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetCode())
      end
      function s.sfilter(c,e,tp,code)
      return c:IsSetCard(0x192) and aux.IsCodeListed(c,code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return aux.bfgcost(e,tp,eg,ep,ev,re,r,rp,0)
      and Duel.IsExistingMatchingCard(s.rfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,s.rfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      e:SetLabel(g:GetFirst():GetCode())
      g:AddCard(e:GetHandler())
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:IsCostChecked() end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.sfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,e:GetLabel())
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c101201000.lua deleted 100644 → 0
      View file @ eebb6834
      --結束と絆の魔導師
      --Magicians of Bonds and Unity
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --special summon condition
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_SPSUMMON_PROC)
      e2:SetRange(LOCATION_HAND)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e2:SetCondition(s.condition)
      c:RegisterEffect(e2)
      --atk up
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetRange(LOCATION_MZONE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetCondition(s.atkcon)
      e3:SetValue(2500)
      c:RegisterEffect(e3)
      --def up
      local e4=e3:Clone()
      e4:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e4)
      end
      function s.condition(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetFieldGroupCount(tp,LOCATION_GRAVE,0)>=25
      end
      function s.atkcon(e)
      return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),0,LOCATION_GRAVE)>=25
      end
      script/c101201001.lua deleted 100644 → 0
      View file @ eebb6834
      --ホイール・シンクロン
      --Wheel Synchron
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --nontuner
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCode(EFFECT_NONTUNER)
      e1:SetValue(s.tnval)
      c:RegisterEffect(e1)
      --summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id)
      e2:SetTarget(s.nstg)
      e2:SetOperation(s.nsop)
      c:RegisterEffect(e2)
      --reduce level
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCountLimit(1,id+o)
      e3:SetCost(aux.bfgcost)
      e3:SetTarget(s.lvtg)
      e3:SetOperation(s.lvop)
      c:RegisterEffect(e3)
      end
      function s.tnval(e,c)
      return e:GetHandler():IsControler(c:GetControler())
      end
      function s.filter(c)
      return c:IsLevelBelow(4) and c:IsSummonable(true,nil)
      end
      function s.nstg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
      end
      function s.nsop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
      local tc=g:GetFirst()
      if tc then
      Duel.Summon(tp,tc,true,nil)
      end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(s.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function s.splimit(e,c)
      return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
      end
      function s.lvfilter(c)
      return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsLevelAbove(2)
      end
      function s.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.lvfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.lvfilter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,s.lvfilter,tp,LOCATION_MZONE,0,1,1,nil)
      end
      function s.lvop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then
      local t={}
      for i=1,4 do
      if tc:GetLevel()-i>0 then table.insert(t,i) end
      end
      if #t==0 then return end
      local lv=Duel.AnnounceNumber(tp,table.unpack(t))
      local e1=Effect.CreateEffect(c)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_LEVEL)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(-lv)
      tc:RegisterEffect(e1)
      end
      end
      script/c101201002.lua deleted 100644 → 0
      View file @ eebb6834
      --レボリューション・シンクロン
      --Revolution Synchron
      --coded by Lyris & chronogenexx & Mercury233
      --not fully implemented
      local s,id,o=GetID()
      function s.initial_effect(c)
      --hand synchro
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EXTRA_SYNCHRO_MATERIAL)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetValue(s.matval)
      c:RegisterEffect(e1)
      --register HOpT
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e0:SetCode(EVENT_BE_PRE_MATERIAL)
      e0:SetProperty(EFFECT_FLAG_EVENT_PLAYER+EFFECT_FLAG_CANNOT_DISABLE)
      e0:SetLabelObject(e1)
      e0:SetCondition(s.hsyncon)
      e0:SetOperation(s.hsynreg)
      c:RegisterEffect(e0)
      --spsum self
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_DECKDES+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id+1+EFFECT_COUNT_CODE_DUEL)
      e2:SetCondition(s.spcon)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.matval(e,c)
      return c:IsType(TYPE_SYNCHRO) and (c:IsLevel(7,8) and c:IsRace(RACE_DRAGON) or c:IsSetCard(0xc2))
      end
      function s.hsyncon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return r==REASON_SYNCHRO and s.matval(nil,c:GetReasonCard()) and c:IsPreviousLocation(LOCATION_HAND)
      end
      function s.hsynreg(e,tp,eg,ep,ev,re,r,rp)
      e:GetLabelObject():UseCountLimit(tp)
      end
      function s.cfilter(c)
      return c:IsFaceup() and c:IsLevelAbove(7) and c:IsType(TYPE_SYNCHRO)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,1)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.DiscardDeck(tp,1,REASON_EFFECT)~=0 then
      local oc=Duel.GetOperatedGroup():GetFirst()
      local c=e:GetHandler()
      if oc:IsLocation(LOCATION_GRAVE) and c:IsRelateToEffect(e)
      and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LEVEL)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e1,true)
      end
      Duel.SpecialSummonComplete()
      end
      end
      script/c101201003.lua deleted 100644 → 0
      View file @ eebb6834
      --幻爪の王ガゼル
      --Gazelle the King of Mythical Claws
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,101201052)
      --add fusion/fiend
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetTarget(s.thtg(s.filter))
      e1:SetOperation(s.thop(s.filter))
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --add illusionist
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_BE_MATERIAL)
      e3:SetCountLimit(1,id+o)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCondition(s.condition)
      e3:SetTarget(s.thtg(s.ifilter))
      e3:SetOperation(s.thop(s.ifilter))
      c:RegisterEffect(e3)
      end
      RACE_ILLUSION=0x2000000
      function s.filter(c)
      return (c:IsCode(101201052) or c:IsLevel(5) and c:IsRace(RACE_FIEND)) and c:IsAbleToHand()
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local rc=c:GetReasonCard()
      return rc:IsSummonType(SUMMON_TYPE_FUSION) and c:IsLocation(LOCATION_GRAVE)
      end
      function s.ifilter(c)
      return c:IsRace(RACE_ILLUSION) and c:IsAbleToHand()
      end
      function s.thtg(f)
      return function(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(f,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      end
      function s.thop(f)
      return function(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,f,tp,LOCATION_DECK,0,1,1,nil)
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      script/c101201004.lua deleted 100644 → 0
      View file @ eebb6834
      --大翼のバフォメット
      --Berfomet the Great Wings
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,101201052)
      --tohand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetTarget(s.thtg)
      e1:SetOperation(s.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_BE_MATERIAL)
      e3:SetCountLimit(1,id+o)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e3:SetCondition(s.spcon)
      e3:SetTarget(s.sptg)
      e3:SetOperation(s.spop)
      c:RegisterEffect(e3)
      end
      RACE_ILLUSION=0x2000000
      function s.filter(c)
      return (c:IsLevel(4) and c:IsRace(RACE_BEAST) or c:IsCode(101201052)) and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.check(g)
      return g:FilterCount(Card.IsLevel,nil,4)<2 and g:FilterCount(Card.IsCode,nil,101201052)<2
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.GetMatchingGroup(s.filter,tp,LOCATION_DECK,0,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=tg:SelectSubGroup(tp,s.check,false,1,2)
      if g then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(s.limit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function s.limit(e,c)
      return c:IsLocation(LOCATION_EXTRA) and not c:IsType(TYPE_FUSION)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local rc=c:GetReasonCard()
      return c:IsLocation(LOCATION_GRAVE) and rc:IsSummonType(SUMMON_TYPE_FUSION)
      end
      function s.sfilter(c,e,tp)
      return c:IsRace(RACE_ILLUSION) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.sfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(s.sfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.sfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) end
      end
      script/c101201005.lua deleted 100644 → 0
      View file @ eebb6834
      --コーンフィールド コアトル
      --Cornfield Koator
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,101201052)
      --indes
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e1:SetTarget(s.indtg)
      e1:SetValue(1)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetCountLimit(1,id)
      e2:SetCost(s.cost)
      e2:SetTarget(s.thtg)
      e2:SetOperation(s.thop)
      c:RegisterEffect(e2)
      --disable
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_CHAINING)
      e3:SetRange(LOCATION_GRAVE+LOCATION_MZONE)
      e3:SetCountLimit(1,id+o)
      e3:SetCondition(s.discon)
      e3:SetCost(aux.bfgcost)
      e3:SetTarget(s.distg)
      e3:SetOperation(s.disop)
      c:RegisterEffect(e3)
      end
      function s.indtg(e,c)
      local tc=e:GetHandler()
      return c==tc or c==tc:GetBattleTarget()
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsDiscardable() end
      Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
      end
      function s.filter(c)
      return c:IsType(TYPE_MONSTER) and aux.IsCodeListed(c,101201052) and c:IsAbleToHand() and not c:IsCode(id)
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function s.cfilter(c)
      return c:IsFaceup() and c:IsCode(4796100)
      end
      function s.dfilter(c,tp)
      return c:IsOnField() and c:IsControler(tp)
      end
      function s.discon(e,tp,eg,ep,ev,re,r,rp)
      if rp==tp or e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
      or not Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
      or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
      local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
      return g and g:IsExists(s.dfilter,1,nil,tp) and Duel.IsChainDisablable(ev)
      end
      function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
      local rc=re:GetHandler()
      if rc:IsDestructable() and rc:IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
      end
      end
      function s.disop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) then
      Duel.Destroy(eg,REASON_EFFECT)
      end
      end
      script/c101201006.lua deleted 100644 → 0
      View file @ eebb6834
      --ミラー ソードナイト
      --Mirror Swordsman
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,101201052)
      --indes
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e1:SetTarget(s.indtg)
      e1:SetValue(1)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_MZONE)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCountLimit(1,id)
      e2:SetCost(s.spcost)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      --disable
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_DISABLE)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_CHAINING)
      e3:SetRange(LOCATION_GRAVE+LOCATION_MZONE)
      e3:SetCountLimit(1,id+o)
      e3:SetCondition(s.discon)
      e3:SetCost(aux.bfgcost)
      e3:SetTarget(s.distg)
      e3:SetOperation(s.disop)
      c:RegisterEffect(e3)
      end
      function s.indtg(e,c)
      local tc=e:GetHandler()
      return c==tc or c==tc:GetBattleTarget()
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsReleasable() and Duel.GetMZoneCount(tp,c)>0 end
      Duel.Release(c,REASON_COST)
      end
      function s.filter(c,e,tp)
      return aux.IsCodeListed(c,101201052) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(id)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.cfilter(c)
      return c:IsFaceup() and c:IsCode(4796100)
      end
      function s.discon(e,tp,eg,ep,ev,re,r,rp)
      local tgp,loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CONTROLER,CHAININFO_TRIGGERING_LOCATION)
      return tgp==1-tp and loc==LOCATION_MZONE and Duel.IsChainDisablable(ev)
      and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
      end
      function s.disop(e,tp,eg,ep,ev,re,r,rp)
      Duel.NegateEffect(ev)
      end
      script/c101201007.lua deleted 100644 → 0
      View file @ eebb6834
      --双頭竜キング・レックス
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(s.spcon)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      end
      function s.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0,nil)==0
      end
      function s.atkfilter(c)
      return c:IsFaceup() and c:IsRace(RACE_DINOSAUR)
      end
      function s.filter(c,atk)
      return c:IsFaceup() and c:GetAttack()<atk
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local atk=Duel.GetMatchingGroup(s.atkfilter,tp,LOCATION_MZONE,0,nil):GetSum(Card.GetAttack)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.filter(chkc,atk) end
      if chk==0 then return atk>0
      and Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,atk) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,atk)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.Destroy(tc,REASON_EFFECT)
      end
      end
      script/c101201008.lua deleted 100644 → 0
      View file @ eebb6834
      --竜王キング・レックス
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --extra attack
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_BATTLE_DESTROYING)
      e1:SetCondition(s.atkcon)
      e1:SetTarget(s.atktg)
      e1:SetOperation(s.atkop)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(s.condition)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      end
      function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetAttacker()==e:GetHandler() and aux.bdocon(e,tp,eg,ep,ev,re,r,rp)
      end
      function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsRelateToBattle() and not c:IsHasEffect(EFFECT_EXTRA_ATTACK) end
      end
      function s.atkop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) or not c:IsRelateToBattle() or not c:IsFaceup() then return end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EXTRA_ATTACK)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
      c:RegisterEffect(e1)
      end
      function s.condition(e)
      return not e:GetHandler():IsStatus(STATUS_SUMMON_TURN+STATUS_FLIP_SUMMON_TURN+STATUS_SPSUMMON_TURN)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,2,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetTargetsRelateToChain()
      if #g>0 then
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      script/c101201009.lua deleted 100644 → 0
      View file @ eebb6834
      --オルターガイスト・マルウィスプ
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_TO_HAND)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.sptg2)
      e2:SetOperation(s.spop2)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return not e:GetHandler():IsReason(REASON_DRAW)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) end
      end
      function s.filter(c,e,tp)
      return c:IsSetCard(0x103) and not c:IsCode(id)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
      end
      function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.filter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function s.spop2(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetDescription(aux.Stringid(id,2))
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_TRIGGER)
      e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      end
      Duel.SpecialSummonComplete()
      end
      script/c101201010.lua deleted 100644 → 0
      View file @ eebb6834
      --オルターガイスト・ペリネトレータ
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      --direct attack
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DIRECT_ATTACK)
      c:RegisterEffect(e1)
      --to grave
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_DRAW)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_BATTLE_DAMAGE)
      e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e2:SetCountLimit(1,id)
      e2:SetCondition(s.drcon)
      e2:SetTarget(s.drtg)
      e2:SetOperation(s.drop)
      c:RegisterEffect(e2)
      --to hand
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_TOGRAVE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_TO_GRAVE)
      e3:SetCountLimit(1,id+o)
      e3:SetCondition(s.tgcon)
      e3:SetTarget(s.tgtg)
      e3:SetOperation(s.tgop)
      c:RegisterEffect(e3)
      end
      function s.drcon(e,tp,eg,ep,ev,re,r,rp)
      return ep~=tp
      end
      function s.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 s.drop(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.tgfilter(c)
      return c:IsSetCard(0x103) and not c:IsCode(id) and c:IsFaceupEx() and c:IsAbleToGrave()
      end
      function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_ONFIELD)
      end
      function s.tgop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      script/c101201011.lua deleted 100644 → 0
      View file @ eebb6834
      --マナドゥム・トリッド
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,56099748)
      --special summon rule
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetRange(LOCATION_HAND)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(s.sprcon)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_DESTROYED)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(s.spcon)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.filter(c)
      local b1=c:IsCode(56099748)
      local b2=c:IsAttack(1500) and c:IsDefense(2100) and c:IsType(TYPE_MONSTER)
      return c:IsFaceup() and (b1 or b2)
      end
      function s.sprcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x190) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      local tc=g:GetFirst()
      if tc then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c101201012.lua deleted 100644 → 0
      View file @ eebb6834
      --ヴェーダ＝カーランタ
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,56099748)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_GRAVE_ACTION)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_DESTROYED)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_DESTROYED)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(s.descon)
      e2:SetTarget(s.destg)
      e2:SetOperation(s.desop)
      c:RegisterEffect(e2)
      end
      function s.desfilter(c)
      return c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.confilter(c)
      return c:IsFaceup() and c:IsCode(56099748)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.desfilter,1,nil)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.confilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.thfilter(c)
      return c:IsCode(21570001) and c:IsAbleToHand()
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 then return end
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,nil)
      if #g>0 and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local tag=g:Select(tp,1,1,nil)
      Duel.SendtoHand(tag,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tag)
      Duel.ShuffleDeck(tp)
      end
      end
      function s.desfilter2(c,tp)
      return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(tp) and c:IsReason(REASON_EFFECT)
      end
      function s.descon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.desfilter2,1,nil,tp)
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0
      and c:IsRelateToEffect(e) and c:IsFaceup() then
      local atk=tc:GetBaseAttack()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(atk)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      end
      end
      script/c101201013.lua deleted 100644 → 0
      View file @ eebb6834
      --焔聖騎士－リッチャルデット
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon as tuner
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCountLimit(1,id)
      e1:SetCost(aux.bfgcost)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --special summon from gy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetCountLimit(1,id)
      e2:SetTarget(s.sptg2)
      e2:SetOperation(s.spop2)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      end
      function s.spfilter(c,e,tp)
      return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WARRIOR) and c:IsLevelBelow(4)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,e:GetHandler(),e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      if #g>0 then
      local tc=g:GetFirst()
      if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_ADD_TYPE)
      e1:SetValue(TYPE_TUNER)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      Duel.SpecialSummonComplete()
      end
      end
      function s.spfilter2(c,e,tp)
      return s.spfilter(c,e,tp) and not c:IsCode(id)
      end
      function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.spfilter2(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(s.spfilter2,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.spfilter2,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,#g,0,0)
      end
      function s.spop2(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(s.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function s.splimit(e,c)
      return not c:IsRace(RACE_WARRIOR)
      end
      script/c101201014.lua deleted 100644 → 0
      View file @ eebb6834
      --焔聖騎士－テュルパン
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --equip
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_EQUIP)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.eqtg)
      e2:SetOperation(s.eqop)
      c:RegisterEffect(e2)
      --treat as tuner for synchro summon
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_EQUIP)
      e3:SetCode(EFFECT_TUNER)
      e3:SetValue(s.tunerval)
      c:RegisterEffect(e3)
      end
      function s.eqpfilter(c)
      return c:GetEquipCount()>0
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.eqpfilter,tp,LOCATION_MZONE,0,1,nil)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsRelateToEffect(e)
      and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 and c:IsSummonLocation(LOCATION_GRAVE) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
      e1:SetValue(LOCATION_REMOVED)
      e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
      c:RegisterEffect(e1,true)
      end
      end
      function s.filter(c)
      return c:IsFaceup() and c:IsRace(RACE_WARRIOR)
      end
      function s.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.filter(chkc) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and c:CheckUniqueOnField(tp) and not c:IsForbidden()
      and Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,c,1,0,0)
      end
      function s.eqop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      local tc=Duel.GetFirstTarget()
      if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0
      or tc:IsControler(1-tp) or tc:IsFacedown() or not tc:IsRelateToEffect(e)
      or not c:CheckUniqueOnField(tp) or c:IsForbidden() then
      Duel.SendtoGrave(c,REASON_RULE)
      return
      end
      if not Duel.Equip(tp,c,tc) then return end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(s.eqlimit)
      e1:SetLabelObject(tc)
      c:RegisterEffect(e1)
      end
      function s.eqlimit(e,c)
      return c==e:GetLabelObject()
      end
      function s.tunerval(e,sc)
      return sc:IsControler(e:GetHandlerPlayer())
      end
      script/c101201015.lua deleted 100644 → 0
      View file @ eebb6834
      --夢現の眠姫－ネムレリア・レアリゼ
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --gain atk
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetRange(LOCATION_MZONE)
      e1:SetValue(s.atkval)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_HAND)
      e2:SetCountLimit(1,id)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      --activate effect
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      e3:SetCountLimit(1,id+o)
      e3:SetTarget(s.target)
      e3:SetOperation(s.operation)
      c:RegisterEffect(e3)
      end
      function s.atkval(e,c)
      return Duel.GetMatchingGroupCount(Card.IsFacedown,c:GetControler(),LOCATION_EXTRA,0,nil)*100
      end
      function s.filter(c,tp)
      return Duel.GetMZoneCount(tp,c)>0 and c:IsAbleToDeck()
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.filter(chkc,tp) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,0,1,nil,tp)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil,tp)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,#g,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,SEQ_DECKBOTTOM,REASON_EFFECT)~=0
      and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.edfilter(c)
      return c:IsCode(70155677) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
      end
      function s.posfilter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local g1=Duel.GetMatchingGroup(s.edfilter,tp,LOCATION_DECK,0,nil)
      local g2=Duel.GetMatchingGroup(s.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler())
      if chk==0 then return #g1>0 or #g2>0 end
      e:SetCategory(0)
      local off=1
      local ops={}
      local opval={}
      if #g1>0 then
      ops[off]=aux.Stringid(id,2)
      opval[off]=0
      off=off+1
      end
      if #g2>0 then
      ops[off]=aux.Stringid(id,3)
      opval[off]=1
      off=off+1
      end
      local op=Duel.SelectOption(tp,table.unpack(ops))+1
      local sel=opval[op]
      e:SetLabel(sel)
      if sel==0 then
      e:SetCategory(CATEGORY_TOEXTRA)
      Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,nil,1,tp,LOCATION_DECK)
      elseif sel==1 then
      e:SetCategory(CATEGORY_POSITION)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g2,1,0,0)
      end
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local sel=e:GetLabel()
      if sel==0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      local g=Duel.SelectMatchingCard(tp,s.edfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SendtoExtraP(g,nil,REASON_EFFECT)
      end
      elseif sel==1 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local sg=Duel.SelectMatchingCard(tp,s.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,aux.ExceptThisCard(e))
      if #sg>0 then
      Duel.HintSelection(sg)
      Duel.ChangePosition(sg,POS_FACEDOWN_DEFENSE)
      end
      end
      end
      script/c101201016.lua deleted 100644 → 0
      View file @ eebb6834
      --ネムレリアの夢喰い－レヴェイユ
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCountLimit(1,id)
      e1:SetCost(s.spcost)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --set
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetCost(s.setcost)
      e2:SetTarget(s.settg)
      e2:SetOperation(s.setop)
      c:RegisterEffect(e2)
      --special summon counter
      Duel.AddCustomActivityCounter(id,ACTIVITY_SPSUMMON,s.counterfilter)
      end
      function s.counterfilter(c)
      return not c:IsSummonLocation(LOCATION_EXTRA) or c:IsType(TYPE_PENDULUM)
      end
      function s.rmfilter(c)
      return c:IsAbleToRemoveAsCost(POS_FACEDOWN) and not c:IsCode(70155677)
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetCustomActivityCount(id,tp,ACTIVITY_SPSUMMON)==0
      and Duel.IsExistingMatchingCard(s.rmfilter,tp,LOCATION_EXTRA,0,3,nil) end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(s.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,s.rmfilter,tp,LOCATION_EXTRA,0,3,3,nil)
      Duel.Remove(g,POS_FACEDOWN,REASON_COST)
      end
      function s.splimit(e,c)
      return c:IsLocation(LOCATION_EXTRA) and not c:IsType(TYPE_PENDULUM)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE,0)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.tgfilter(c)
      return c:IsLevel(10) and c:IsRace(RACE_BEAST) and c:IsAbleToGraveAsCost() and c:IsFaceupEx()
      end
      function s.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,c)
      Duel.SendtoGrave(g,REASON_COST)
      end
      function s.setfilter(c)
      return c:IsSetCard(0x191) and c:IsType(TYPE_TRAP) and c:IsSSetable()
      end
      function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function s.setop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SSet(tp,g)
      end
      end
      script/c101201017.lua deleted 100644 → 0
      View file @ eebb6834
      --エヴォルド・フォリス
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --set
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,id+o)
      e3:SetTarget(s.settg)
      e3:SetOperation(s.setop)
      c:RegisterEffect(e3)
      --replace
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      e4:SetCode(EFFECT_DESTROY_REPLACE)
      e4:SetRange(LOCATION_MZONE)
      e4:SetTarget(s.desreptg)
      e4:SetValue(s.desrepval)
      e4:SetOperation(s.desrepop)
      c:RegisterEffect(e4)
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x304e) and c:IsCanBeSpecialSummoned(e,SUMMON_VALUE_EVOLTILE,tp,false,false,POS_FACEDOWN_DEFENSE)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
      if #g>0 and Duel.SpecialSummon(g,SUMMON_VALUE_EVOLTILE,tp,tp,false,false,POS_FACEDOWN_DEFENSE)>0 then
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function s.setfilter(c)
      return c:IsCode(5338223,24362891) and c:IsSSetable()
      end
      function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function s.setop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SSet(tp,g)
      end
      end
      function s.desrepfilter(c,tp)
      return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE)
      and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
      end
      function s.rfilter(c)
      return c:IsReleasableByEffect() and c:IsRace(RACE_REPTILE+RACE_DINOSAUR)
      and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED)
      end
      function s.desreptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return eg:IsExists(s.desrepfilter,1,nil,tp)
      and Duel.CheckReleaseGroup(tp,s.rfilter,1,nil) end
      return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
      end
      function s.desrepval(e,c)
      return s.desrepfilter(c,e:GetHandlerPlayer())
      end
      function s.desrepop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESREPLACE)
      local g=Duel.SelectReleaseGroup(tp,s.rfilter,1,1,nil)
      if #g>0 then
      Duel.Hint(HINT_CARD,0,id)
      Duel.HintSelection(g)
      Duel.Release(g,REASON_EFFECT+REASON_REPLACE)
      end
      end
      script/c101201018.lua deleted 100644 → 0
      View file @ eebb6834
      --エヴォルダー・リオス
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --set
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.settg)
      e1:SetOperation(s.setop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --check special summon method
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      e3:SetOperation(s.checkop)
      c:RegisterEffect(e3)
      --send to GY
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetCategory(CATEGORY_TOGRAVE)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,id+o)
      e4:SetCondition(s.tgcon)
      e4:SetTarget(s.tgtg)
      e4:SetOperation(s.tgop)
      c:RegisterEffect(e4)
      end
      function s.setfilter(c)
      return c:IsCode(93504463,74100225) and c:IsSSetable()
      end
      function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function s.setop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SSet(tp,g)
      end
      end
      function s.checkop(e,tp,eg,ep,ev,re,r,rp)
      if not re then return end
      if re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsAttribute(ATTRIBUTE_FIRE) then
      e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD-RESET_TEMP_REMOVE,0,1)
      end
      end
      function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsSummonType(SUMMON_TYPE_NORMAL) or c:IsSummonType(SUMMON_TYPE_SPECIAL) and c:GetFlagEffect(id)>0
      end
      function s.tgfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_REPTILE+RACE_DINOSAUR)
      and c:IsAbleToGrave()
      end
      function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
      end
      function s.filter(c,race,lv)
      return c:IsFaceup() and not c:IsType(TYPE_LINK+TYPE_XYZ) and (not c:IsRace(race) or not c:IsLevel(lv))
      end
      function s.tgop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      local tc=g:GetFirst()
      if Duel.SendtoGrave(tc,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_GRAVE) then
      local race,lv=tc:GetRace(),tc:GetLevel()
      if race==0 or lv==0 then return end
      local g=Duel.GetMatchingGroup(s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,race,lv)
      if #g>=2 and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local sg=g:Select(tp,2,2,nil)
      local c=e:GetHandler()
      Duel.HintSelection(sg)
      Duel.BreakEffect()
      for sc in aux.Next(sg) do
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_RACE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetValue(race)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      sc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CHANGE_LEVEL)
      e2:SetValue(lv)
      sc:RegisterEffect(e2)
      end
      end
      end
      end
      end
      \ No newline at end of file
      script/c101201019.lua deleted 100644 → 0
      View file @ eebb6834
      --破械神シャバラ
      --Script by 奥克斯
      function c101201019.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_HAND)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,101201019)
      e1:SetCondition(c101201019.spdcon)
      e1:SetTarget(c101201019.spdtg)
      e1:SetOperation(c101201019.spdop)
      c:RegisterEffect(e1)
      --set
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetCountLimit(1,101201019+100)
      e2:SetTarget(c101201019.settg)
      e2:SetOperation(c101201019.setop)
      c:RegisterEffect(e2)
      end
      function c101201019.spdcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function c101201019.desfilter(c,tp)
      return (c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsRace(RACE_FIEND) or c:IsFacedown())
      and Duel.GetMZoneCount(tp,c)>0
      end
      function c101201019.spdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c101201019.desfilter(chkc,tp) end
      if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and Duel.IsExistingTarget(c101201019.desfilter,tp,LOCATION_ONFIELD,0,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,c101201019.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function c101201019.spdop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0
      and c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetAbsoluteRange(tp,1,0)
      e1:SetTarget(c101201019.splimit)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e1,true)
      end
      end
      function c101201019.splimit(e,c)
      return not c:IsRace(RACE_FIEND)
      end
      function c101201019.setfilter(c)
      return c:IsSetCard(0x130) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
      end
      function c101201019.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101201019.setfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c101201019.setop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,c101201019.setfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SSet(tp,g)
      end
      end
      script/c101201020.lua deleted 100644 → 0
      View file @ eebb6834
      --破械神シュヤーマ
      --Script by 奥克斯
      function c101201020.initial_effect(c)
      --destroy
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101201020,0))
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,101201020)
      e1:SetTarget(c101201020.destg)
      e1:SetOperation(c101201020.desop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,101201020+100)
      e2:SetTarget(c101201020.spdtg)
      e2:SetOperation(c101201020.spdop)
      c:RegisterEffect(e2)
      end
      function c101201020.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(tp) end
      if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function c101201020.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)>0 then
      local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,tc,TYPE_SPELL+TYPE_TRAP)
      if #g>0 and Duel.SelectYesNo(tp,aux.Stringid(101201020,1)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local dg=g:Select(tp,1,1,nil)
      Duel.HintSelection(dg)
      Duel.Destroy(dg,REASON_EFFECT)
      end
      end
      end
      function c101201020.desfilter(c,tp)
      return (c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsRace(RACE_FIEND) or c:IsFacedown())
      and Duel.GetMZoneCount(tp,c)>0
      end
      function c101201020.spdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c101201020.desfilter(chkc,tp) end
      if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and Duel.IsExistingTarget(c101201020.desfilter,tp,LOCATION_ONFIELD,0,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,c101201020.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function c101201020.spdop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0
      and c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
      e1:SetValue(LOCATION_DECKBOT)
      c:RegisterEffect(e1,true)
      end
      end
      script/c101201021.lua deleted 100644 → 0
      View file @ eebb6834
      --天極輝士－熊斗竜巧α
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --splimit
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetValue(s.splimit)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH+CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetCountLimit(1,id)
      e2:SetCondition(s.spcon)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.splimit(e,se,sp,st)
      return se:IsHasType(EFFECT_TYPE_ACTIONS)
      end
      function s.cfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x163,0x154) and not c:IsCode(id)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.thfilter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0x163,0x154) and c:IsAbleToHand()
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0
      and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil)
      and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      Duel.BreakEffect()
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      script/c101201022.lua deleted 100644 → 0
      View file @ eebb6834
      --R－ACEプリベンター
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Special Summon (from hand : itself)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetCost(s.sscost)
      e1:SetTarget(s.sstg)
      e1:SetOperation(s.ssop)
      c:RegisterEffect(e1)
      --Change position
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_POSITION)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetHintTiming(TIMINGS_CHECK_MONSTER)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(s.poscon)
      e2:SetTarget(s.postg)
      e2:SetOperation(s.posop)
      c:RegisterEffect(e2)
      --Special Summon (banished)
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,2))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_TO_GRAVE)
      e3:SetCountLimit(1,id+o+o)
      e3:SetTarget(s.sptg)
      e3:SetOperation(s.spop)
      c:RegisterEffect(e3)
      end
      function s.costfilter(c)
      return c:IsSetCard(0x18b) and c:IsAbleToRemoveAsCost()
      end
      function s.sscost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function s.sstg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.ssop(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.confilter(c)
      return c:IsFaceup() and c:IsSetCard(0x18b)
      end
      function s.poscon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.confilter,tp,LOCATION_MZONE,0,1,e:GetHandler())
      end
      function s.posfilter(c)
      return c:IsFaceup() and c:IsCanTurnSet() and c:IsType(TYPE_EFFECT)
      end
      function s.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and c:IsControler(1-tp) and s.posfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.posfilter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local g=Duel.SelectTarget(tp,s.posfilter,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      end
      function s.posop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
      end
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x18b) and not c:IsLevel(8) and c:IsFaceup()
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_REMOVED) and c:IsControler(tp) and s.filter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c101201023.lua deleted 100644 → 0
      View file @ eebb6834
      --邪炎帝王テスタロス
      --Thestalos the Shadow Firestorm Monarch
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --tribute from each field for advance summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SUMMON_PROC)
      e1:SetRange(LOCATION_HAND)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCondition(s.otcon)
      e1:SetOperation(s.otop)
      e1:SetValue(SUMMON_TYPE_ADVANCE)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_SET_PROC)
      c:RegisterEffect(e2)
      --remove
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_MATERIAL_CHECK)
      e3:SetValue(s.mchk)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetCategory(CATEGORY_REMOVE+CATEGORY_DAMAGE)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_SUMMON_SUCCESS)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetLabelObject(e3)
      e4:SetCondition(s.rmcon)
      e4:SetTarget(s.rmtg)
      e4:SetOperation(s.rmop)
      c:RegisterEffect(e4)
      end
      function s.tfilter(c,tp)
      return c:IsSummonType(SUMMON_TYPE_ADVANCE) and c:IsControler(tp)
      end
      function s.tcheck(g,tp)
      return g:IsExists(s.tfilter,1,nil,tp) and g:IsExists(Card.IsControler,1,nil,1-tp)
      and Duel.GetMZoneCount(tp,g)>0
      end
      function s.otcon(e,c,minc)
      if c==nil then return true end
      local tp=c:GetControler()
      local g=Duel.GetMatchingGroup(Card.IsReleasable,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      return c:IsLevelAbove(7) and minc<=2 and g:CheckSubGroup(s.tcheck,2,2,tp)
      end
      function s.otop(e,tp,eg,ep,ev,re,r,rp,c)
      local g=Duel.GetMatchingGroup(Card.IsReleasable,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local sg=g:SelectSubGroup(tp,s.tcheck,false,2,2,tp)
      c:SetMaterial(sg)
      Duel.Release(sg,REASON_MATERIAL+REASON_SUMMON)
      end
      function s.mfilter(c)
      return c:IsLevelAbove(8) and c:IsSummonType(SUMMON_TYPE_ADVANCE)
      end
      function s.mchk(e,c)
      if c:GetMaterial():IsExists(s.mfilter,1,nil) then
      e:SetLabel(1)
      else e:SetLabel(0) end
      end
      function s.rmcon(e)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
      end
      function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_HAND,1,nil) end
      e:SetLabel(e:GetLabelObject():GetLabel())
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_HAND,nil)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000)
      end
      function s.rmop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_HAND,nil):RandomSelect(tp,1)
      if #g>0 and Duel.Remove(g,POS_FACEUP,REASON_EFFECT)>0 and Duel.Damage(1-tp,1000,REASON_EFFECT)>0 then
      local rg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      if e:GetLabel()>0 and #rg>0 and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local rc=rg:Select(tp,1,1,nil):GetFirst()
      Duel.BreakEffect()
      if Duel.Remove(rc,POS_FACEUP,REASON_EFFECT)>0
      and rc:IsAttribute(ATTRIBUTE_DARK+ATTRIBUTE_FIRE)
      and rc:GetOriginalType()&TYPE_MONSTER>0
      and rc:GetOriginalLevel()>0 then
      Duel.Damage(1-tp,rc:GetOriginalLevel()*200,REASON_EFFECT)
      end
      end
      end
      end
      script/c101201024.lua deleted 100644 → 0
      View file @ eebb6834
      --百戦王 ベヒーモス
      --Behemoth the King of All Wars
      --Script by VoidBehemoth
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Summon with 1 tribute
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCondition(s.otcon)
      e1:SetOperation(s.otop)
      e1:SetValue(SUMMON_TYPE_ADVANCE)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_SET_PROC)
      c:RegisterEffect(e2)
      --Add beast from GY on summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_SUMMON_SUCCESS)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e3:SetTarget(s.thtg)
      e3:SetOperation(s.thop)
      c:RegisterEffect(e3)
      local e4=e3:Clone()
      e4:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e4)
      --Unaffected if normal summoned / set
      local e5=Effect.CreateEffect(c)
      e5:SetType(EFFECT_TYPE_SINGLE)
      e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCode(EFFECT_IMMUNE_EFFECT)
      e5:SetValue(s.immval)
      c:RegisterEffect(e5)
      --Gain 700 ATK
      local e6=Effect.CreateEffect(c)
      e6:SetDescription(aux.Stringid(id,3))
      e6:SetCategory(CATEGORY_ATKCHANGE)
      e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e6:SetRange(LOCATION_MZONE)
      e6:SetCode(EVENT_PHASE+PHASE_END)
      e6:SetCondition(s.atkcon)
      e6:SetOperation(s.atkop)
      c:RegisterEffect(e6)
      end
      function s.otcon(e,c,minc)
      if c==nil then return true end
      return c:IsLevelAbove(9) and minc<=1 and Duel.CheckTribute(c,1)
      end
      function s.otop(e,tp,eg,ep,ev,re,r,rp,c)
      local g=Duel.SelectTribute(tp,c,1,1)
      c:SetMaterial(g)
      Duel.Release(g,REASON_SUMMON+REASON_MATERIAL)
      end
      function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
      return tp==Duel.GetTurnPlayer()
      end
      function s.atkop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsFaceup() then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(700)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      c:RegisterEffect(e1)
      end
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,s.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,#g,0,0)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToChain() then
      Duel.SendtoHand(tc,tp,REASON_EFFECT)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e1:SetValue(-700)
      c:RegisterEffect(e1)
      end
      end
      function s.thfilter(c)
      return c:IsRace(RACE_BEAST+RACE_BEASTWARRIOR+RACE_WINDBEAST) and c:IsAbleToHand()
      end
      function s.immval(e,te)
      local tc=te:GetOwner()
      local c=e:GetHandler()
      return tc:IsSummonType(SUMMON_TYPE_SPECIAL) and c:IsSummonType(SUMMON_TYPE_NORMAL)
      and te:IsActiveType(TYPE_MONSTER) and te:IsActivated() and te:GetActivateLocation()==LOCATION_MZONE
      end
      script/c101201025.lua deleted 100644 → 0
      View file @ eebb6834
      --幻惑の魔術師
      --Nightmare Magician
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --indes
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e1:SetTarget(s.indtg)
      e1:SetValue(1)
      c:RegisterEffect(e1)
      --control
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_CONTROL)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_DAMAGE_STEP_END)
      e2:SetCondition(aux.dsercon)
      e2:SetTarget(s.contg)
      e2:SetOperation(s.conop)
      c:RegisterEffect(e2)
      --destroy
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_BATTLE_START)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCondition(s.descon)
      e3:SetTarget(s.destg)
      e3:SetOperation(s.desop)
      c:RegisterEffect(e3)
      end
      function s.indtg(e,c)
      local tc=e:GetHandler()
      return c==tc or c==tc:GetBattleTarget()
      end
      function s.contg(e,tp,eg,ep,ev,re,r,rp,chk)
      local bc=e:GetHandler():GetBattleTarget()
      if chk==0 then return bc and bc:IsRelateToBattle() and bc:IsControlerCanBeChanged() end
      Duel.SetOperationInfo(0,CATEGORY_CONTROL,bc,1,0,0)
      end
      function s.conop(e,tp,eg,ep,ev,re,r,rp)
      local bc=e:GetHandler():GetBattleTarget()
      if bc:IsRelateToBattle() then Duel.GetControl(bc,tp) end
      end
      function s.descon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetAttacker()~=e:GetHandler()
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
      if chk==0 then return #g>0 end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD):Select(tp,1,1,nil)
      if #g>0 then
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      script/c101201026.lua deleted 100644 → 0
      View file @ eebb6834
      --火霊媒師ヒータ
      --Hiita the Fire Channeler
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetCost(s.thcost)
      e1:SetTarget(s.thtg)
      e1:SetOperation(s.thop)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_BATTLE_DESTROYED)
      e2:SetRange(LOCATION_HAND)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(s.spcon)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.dfilter(c,tp)
      return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsDiscardable()
      and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil,c:GetAttack())
      end
      function s.filter(c,atk)
      return c:IsAttribute(ATTRIBUTE_FIRE) and c:GetAttack()>atk and c:IsAbleToHand()
      end
      function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsDiscardable() and Duel.IsExistingMatchingCard(s.dfilter,tp,LOCATION_HAND,0,1,c,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
      local g=Duel.SelectMatchingCard(tp,s.dfilter,tp,LOCATION_HAND,0,1,1,c,tp)
      e:SetLabel(g:GetFirst():GetAttack())
      Duel.SendtoGrave(g+c,REASON_COST+REASON_DISCARD)
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:IsCostChecked()
      and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil,e:GetLabel()) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil,e:GetLabel())
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_ACTIVATE)
      e1:SetTargetRange(1,0)
      e1:SetValue(s.aclimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function s.aclimit(e,re,tp)
      return re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsNonAttribute(ATTRIBUTE_FIRE)
      end
      function s.cfilter(c,tp)
      return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsPreviousControler(tp)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) end
      end
      script/c101201027.lua deleted 100644 → 0
      View file @ eebb6834
      --火天獣－キャンドル
      --Agnimal Candle
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_TO_HAND)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --lvchange
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(3)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCondition(s.lvcon)
      e2:SetTarget(s.lvtg)
      e2:SetOperation(s.lvop)
      c:RegisterEffect(e2)
      end
      function Auxiliary.SelectFromOptions(tp,...)
      local options={...}
      local ops={}
      local opvals={}
      for i=1,#options do
      if options[i][1] then
      table.insert(ops,options[i][2])
      table.insert(opvals,options[i][3] or i)
      end
      end
      if #ops==0 then return nil end
      local select=Duel.SelectOption(tp,table.unpack(ops))
      return opvals[select+1]
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return not e:GetHandler():IsReason(REASON_DRAW)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) end
      end
      function s.filter(c,tp)
      return c:IsType(TYPE_MONSTER) and c:IsControler(tp)
      end
      function s.lvcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.filter,1,nil,tp)
      end
      function s.lvtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsLevelAbove(0) and c:GetFlagEffect(id)==0 end
      c:RegisterFlagEffect(id,RESET_CHAIN,0,1)
      end
      function s.lvop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
      local down=c:IsLevelAbove(2)
      local op=aux.SelectFromOptions(tp,
      {true,aux.Stringid(id,2),1},
      {down,aux.Stringid(id,3),-1})
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_LEVEL)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e1:SetValue(op)
      c:RegisterEffect(e1)
      end
      script/c101201028.lua deleted 100644 → 0
      View file @ eebb6834
      --魔星のウルカ
      --Uruka the Magic Star
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_LEAVE_FIELD)
      e1:SetRange(LOCATION_GRAVE+LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.spcon)
      e1:SetCost(aux.bfgcost)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --atkup
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_ATKCHANGE)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetCountLimit(1,id+o)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetOperation(s.atkop)
      c:RegisterEffect(e2)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      local tc=eg:GetFirst()
      return #eg==1 and tc:IsPreviousControler(tp) and tc:IsPreviousLocation(LOCATION_MZONE)
      and tc:GetReasonPlayer()==1-tp and tc:IsReason(REASON_EFFECT)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local tc=eg:GetFirst()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetTargetCard(tc)
      local g=Group.CreateGroup(e:GetHandler(),tc)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      elseif c:IsRelateToEffect(e) and c:IsLocation(LOCATION_REMOVED) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.atkop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToChain() or c:IsFacedown() then return end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END,2)
      e1:SetValue(1500)
      c:RegisterEffect(e1)
      end
      script/c101201029.lua deleted 100644 → 0
      View file @ eebb6834
      --強欲なポッド
      --Pod of Greed
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --flip
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_DECKDES+CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.target)
      e1:SetOperation(s.operation)
      c:RegisterEffect(e1)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      if Duel.IsExistingMatchingCard(Card.IsSummonLocation,tp,0,LOCATION_MZONE,1,nil,LOCATION_EXTRA) then
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_EXTRA)
      end
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local dc=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
      if Duel.IsPlayerCanDiscardDeck(tp,1) and dc>0 then
      local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)
      if dc>ct then dc=ct end
      if dc>1 then
      local t={}
      for i=1,dc do table.insert(t,i) end
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(id,1))
      dc=Duel.AnnounceNumber(tp,table.unpack(t))
      end
      Duel.ConfirmDecktop(tp,dc)
      local g=Duel.GetDecktopGroup(tp,dc)
      if #g>0 then
      Duel.DisableShuffleCheck()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local sg=g:FilterSelect(tp,Card.IsAbleToHand,1,1,nil)
      if Duel.SendtoHand(sg,nil,REASON_EFFECT)>0 then
      Duel.ConfirmCards(1-tp,sg)
      Duel.ShuffleHand(tp)
      g:Sub(sg)
      end
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      Duel.BreakEffect()
      end
      local xc=Duel.GetMatchingGroupCount(Card.IsSummonLocation,tp,0,LOCATION_MZONE,nil,LOCATION_EXTRA)
      if xc>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local tg=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_EXTRA,0,1,xc,nil)
      Duel.SendtoGrave(tg,REASON_EFFECT)
      end
      end
      script/c101201030.lua deleted 100644 → 0
      View file @ eebb6834
      --クリック&エコー
      --Click & Echo
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --cannot be material
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetValue(s.mlimit)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
      e2:SetValue(1)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
      c:RegisterEffect(e3)
      --cannot tribute
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetCode(EFFECT_UNRELEASABLE_SUM)
      e4:SetRange(LOCATION_MZONE)
      e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e4:SetValue(1)
      c:RegisterEffect(e4)
      local e5=e4:Clone()
      e5:SetCode(EFFECT_UNRELEASABLE_NONSUM)
      c:RegisterEffect(e5)
      --spsummon
      local e6=Effect.CreateEffect(c)
      e6:SetDescription(aux.Stringid(id,0))
      e6:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e6:SetCode(EVENT_BE_MATERIAL)
      e6:SetCountLimit(2,id)
      e6:SetCondition(s.spcon)
      e6:SetTarget(s.sptg)
      e6:SetOperation(s.spop)
      c:RegisterEffect(e6)
      --reveal hand
      local e7=Effect.CreateEffect(c)
      e7:SetDescription(aux.Stringid(id,1))
      e7:SetType(EFFECT_TYPE_FIELD)
      e7:SetCode(EFFECT_PUBLIC)
      e7:SetRange(LOCATION_MZONE)
      e7:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e7:SetTargetRange(LOCATION_HAND,0)
      e7:SetCondition(s.rvcon)
      c:RegisterEffect(e7)
      end
      function s.mlimit(e,c,st)
      return st==SUMMON_TYPE_FUSION
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return r==REASON_LINK and e:GetHandler():IsLocation(LOCATION_GRAVE)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local p=c:GetReasonCard():GetSummonPlayer()
      if c:IsRelateToChain()
      and Duel.SpecialSummon(c,SUMMON_VALUE_SELF,tp,1-p,false,false,POS_FACEUP_DEFENSE)>0 then
      c:RegisterFlagEffect(id,RESET_EVENT+RESETS_WITHOUT_TEMP_REMOVE,0,1)
      end
      end
      function s.rvcon(e)
      local c=e:GetHandler()
      return c:IsSummonType(SUMMON_VALUE_SELF) and c:GetFlagEffect(id)>0
      end
      script/c101201031.lua deleted 100644 → 0
      View file @ eebb6834
      --鳴いて時鳥
      --Singing Cuckoo
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --draw
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.target)
      c:RegisterEffect(e1)
      end
      function Auxiliary.SelectFromOptions(tp,...)
      local options={...}
      local ops={}
      local opvals={}
      for i=1,#options do
      if options[i][1] then
      table.insert(ops,options[i][2])
      table.insert(opvals,options[i][3] or i)
      end
      end
      if #ops==0 then return nil end
      local select=Duel.SelectOption(tp,table.unpack(ops))
      return opvals[select+1]
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local b1=Duel.IsPlayerCanDraw(tp,1)
      local b2=Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil,REASON_EFFECT) and b1
      local op=aux.SelectFromOptions(tp,
      {b1,aux.Stringid(id,1)},
      {b2,aux.Stringid(id,2)},
      {true,aux.Stringid(id,3)})
      local cat=CATEGORY_DRAW
      if op==1 then
      cat=cat+CATEGORY_DESTROY
      e:SetOperation(s.destroy)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
      elseif op==2 then
      cat=cat+CATEGORY_HANDES
      e:SetOperation(s.discard)
      Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
      else e:SetOperation(s.epdelay) end
      e:SetCategory(cat)
      if op<3 then Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) end
      end
      function s.destroy(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)>0 then
      Duel.BreakEffect()
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      function s.discard(e,tp,eg,ep,ev,re,r,rp)
      if Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_EFFECT+REASON_DISCARD,nil,REASON_EFFECT)>0 then
      Duel.BreakEffect()
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      function s.epdelay(e,tp,eg,ep,ev,re,r,rp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetCountLimit(1)
      e1:SetReset(RESET_PHASE+PHASE_END)
      e1:SetOperation(s.draw)
      Duel.RegisterEffect(e1,tp)
      end
      function s.draw(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,id)
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      script/c101201032.lua deleted 100644 → 0
      View file @ eebb6834
      --アラヒメの御巫
      --Script by 小壶
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,16310544)
      c:EnableReviveLimit()
      --equip
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCategory(CATEGORY_EQUIP)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.eqcon)
      e1:SetTarget(s.eqtg)
      e1:SetOperation(s.eqop)
      c:RegisterEffect(e1)
      --battle indestructable
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e2:SetValue(1)
      c:RegisterEffect(e2)
      --reflect battle damage
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_REFLECT_BATTLE_DAMAGE)
      e3:SetValue(1)
      c:RegisterEffect(e3)
      --tohand
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetCategory(CATEGORY_TOHAND)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_PHASE+PHASE_END)
      e4:SetRange(LOCATION_SZONE)
      e4:SetTarget(s.thtg)
      e4:SetOperation(s.thop)
      c:RegisterEffect(e4)
      end
      function s.eqcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():CheckUniqueOnField(tp)
      and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_GRAVE,0,1,e:GetHandler(),0x18d)
      end
      function s.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      end
      function s.eqop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      local tc=Duel.GetFirstTarget()
      if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:IsFacedown() or not tc:IsRelateToEffect(e) or not c:CheckUniqueOnField(tp) then
      Duel.SendtoGrave(c,REASON_EFFECT)
      return
      end
      if not Duel.Equip(tp,c,tc) then return end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(s.eqlimit)
      e1:SetLabelObject(tc)
      c:RegisterEffect(e1)
      end
      function s.eqlimit(e,c)
      return c==e:GetLabelObject()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local ec=c:GetEquipTarget()
      if chk==0 then return ec and ec:IsAbleToHand() and c:IsAbleToHand() end
      ec:CreateEffectRelation(e)
      local g=Group.FromCards(ec,c)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,2,0,0)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ec=c:GetEquipTarget()
      if not c:IsRelateToEffect(e) or not ec:IsRelateToEffect(e) then return end
      local g=Group.FromCards(c,ec)
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      end
      script/c101201033.lua deleted 100644 → 0
      View file @ eebb6834
      --幻獣王キマイラ
      --Chimera the Phantom Beast King
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --material
      aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsRace,RACE_BEAST),aux.FilterBoolFunction(Card.IsRace,RACE_FIEND),true)
      --change name
      aux.EnableChangeCode(c,4796100,LOCATION_GRAVE+LOCATION_MZONE)
      --handes
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCondition(s.tgcon)
      e1:SetOperation(s.regop)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCondition(s.spcon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      RACE_ILLUSION=0x2000000
      function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetCountLimit(1)
      e1:SetOperation(s.tgop)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function s.tgop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,id)
      local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND):RandomSelect(tp,1)
      if #g>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==1-tp
      end
      function s.filter(c,e,tp)
      return c:IsRace(RACE_BEAST+RACE_FIEND+RACE_ILLUSION) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.filter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) end
      end
      script/c101201034.lua deleted 100644 → 0
      View file @ eebb6834
      --幻想魔獣キマイラ
      --Chimera the Illusion Magical Beast
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --material
      aux.AddFusionProcCodeFunRep(c,4796100,aux.FilterBoolFunction(Card.IsRace,RACE_ILLUSION),1,63,true,true)
      --change name
      aux.EnableChangeCode(c,4796100,LOCATION_GRAVE+LOCATION_MZONE)
      --multi-attack
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
      e1:SetValue(s.atkct)
      c:RegisterEffect(e1)
      --indes
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e2:SetTarget(s.indtg)
      e2:SetValue(1)
      c:RegisterEffect(e2)
      --disable
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,0))
      e3:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DISABLE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_DAMAGE_STEP_END)
      e3:SetCondition(aux.dsercon)
      e3:SetTarget(s.target)
      e3:SetOperation(s.operation)
      c:RegisterEffect(e3)
      end
      RACE_ILLUSION=0x2000000
      function s.indtg(e,c)
      local tc=e:GetHandler()
      return c==tc or c==tc:GetBattleTarget()
      end
      function s.atkct(e,c)
      return c:IsSummonType(SUMMON_TYPE_FUSION) and c:GetMaterialCount()-1 or 0
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local bc=e:GetHandler():GetBattleTarget()
      if chk==0 then return bc and bc:IsRelateToBattle() and (aux.nzatk(bc) or aux.NegateMonsterFilter(bc)) end
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,bc,1,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local bc=c:GetBattleTarget()
      if bc:IsRelateToBattle() and bc:IsFaceup() then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SET_ATTACK_FINAL)
      e1:SetValue(0)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      bc:RegisterEffect(e1)
      Duel.NegateRelatedChain(bc,RESET_TURN_SET)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      bc:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_DISABLE_EFFECT)
      e3:SetValue(RESET_TURN_SET)
      bc:RegisterEffect(e3)
      end
      end
      script/c101201035.lua deleted 100644 → 0
      View file @ eebb6834
      --神碑の鬣スレイプニル
      --Sleipnir the Runick Mane
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --material
      aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsSetCard,0x17f),2,true)
      --remove
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_REMOVE)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_BATTLE_END)
      e1:SetCondition(s.rmcon)
      e1:SetTarget(s.rmtg)
      e1:SetOperation(s.rmop)
      c:RegisterEffect(e1)
      --token
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_HAND)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCondition(s.tkcon)
      e2:SetTarget(s.tktg)
      e2:SetOperation(s.tkop)
      c:RegisterEffect(e2)
      end
      function s.rmcon(e,tp,eg,ep,ev,re,r,rp)
      local tn=Duel.GetTurnPlayer()
      local ph=Duel.GetCurrentPhase()
      return (tn==tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2))
      or (tn==1-tp and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)
      end
      function s.filter(c)
      return c:IsFaceup() and c:IsAbleToRemove()
      end
      function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and s.rfilter(chkc) end
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToRemove() and Duel.IsExistingTarget(s.filter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectTarget(tp,s.filter,tp,0,LOCATION_MZONE,1,1,nil)
      g:AddCard(c)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,2,0,0)
      end
      function s.rmop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) or not c:IsRelateToEffect(e) then return end
      local g=Group.FromCards(tc,c)
      if Duel.Remove(g,0,REASON_EFFECT+REASON_TEMPORARY)~=0 and g:IsExists(Card.IsLocation,1,nil,LOCATION_REMOVED) then
      local og=Duel.GetOperatedGroup():Filter(Card.IsLocation,nil,LOCATION_REMOVED)
      for tc in aux.Next(og) do
      tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
      end
      og:KeepAlive()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetReset(RESET_PHASE+PHASE_END)
      e1:SetLabelObject(og)
      e1:SetCountLimit(1)
      e1:SetCondition(s.retcon)
      e1:SetOperation(s.retop)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function s.retfilter(c)
      return c:GetFlagEffect(id)~=0
      end
      function s.retcon(e,tp,eg,ep,ev,re,r,rp)
      if not e:GetLabelObject():IsExists(s.retfilter,1,nil) then
      e:GetLabelObject():DeleteGroup()
      e:Reset()
      return false
      end
      return true
      end
      function s.retop(e,tp,eg,ep,ev,re,r,rp)
      local g=e:GetLabelObject():Filter(s.retfilter,nil)
      for tc in aux.Next(g) do
      Duel.ReturnToField(tc)
      end
      end
      function s.cfilter(c,tp)
      return c:IsControler(tp) and c:IsPreviousLocation(LOCATION_DECK)
      end
      function s.tkcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,1-tp)
      end
      function s.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0x17f,TYPES_TOKEN_MONSTER,1500,1500,4,RACE_FAIRY,ATTRIBUTE_LIGHT,POS_FACEUP_ATTACK) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0)
      end
      function s.tkop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
      or not Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0x17f,TYPES_TOKEN_MONSTER,1500,1500,4,RACE_FAIRY,ATTRIBUTE_LIGHT,POS_FACEUP_ATTACK) then return end
      local tk=Duel.CreateToken(tp,id+o)
      Duel.SpecialSummon(tk,0,tp,tp,false,false,POS_FACEUP_ATTACK)
      end
      script/c101201036.lua deleted 100644 → 0
      View file @ eebb6834
      --マグナム・ザ・リリーバー
      --Magnum the Reliever
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --material
      aux.AddFusionProcFun2(c,s.matfilter,aux.FilterBoolFunction(Card.IsLocation,LOCATION_HAND),true)
      --draw
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetTarget(s.drtg)
      e1:SetOperation(s.drop)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_CHAINING)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCondition(s.condition)
      e2:SetCost(s.cost)
      e2:SetTarget(s.destg)
      e2:SetOperation(s.desop)
      c:RegisterEffect(e2)
      end
      function s.matfilter(c)
      return c:IsSummonLocation(LOCATION_EXTRA) and c:IsLocation(LOCATION_MZONE)
      end
      function s.filter(c)
      return c:IsSetCard(0x46) and c:IsType(TYPE_SPELL) and c:IsAbleToDeck()
      end
      function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.filter(chkc) end
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
      and Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function s.drop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,SEQ_DECKBOTTOM,REASON_EFFECT)>0
      and tc:IsLocation(LOCATION_DECK) then
      Duel.BreakEffect()
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return re:GetHandler()~=e:GetHandler()
      end
      function s.cfilter(c)
      return c:IsSetCard(0x46) and c:IsType(TYPE_SPELL) and c:IsAbleToRemoveAsCost()
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() end
      if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then Duel.Destroy(tc,REASON_EFFECT) end
      end
      script/c101201040.lua deleted 100644 → 0
      View file @ eebb6834
      --聖剣を巡る王姫アンジェリカ
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,77656797)
      aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
      c:EnableReviveLimit()
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.thtg)
      e1:SetOperation(s.thop)
      c:RegisterEffect(e1)
      --send to GY and Special Summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_BECOME_TARGET)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(s.tgcon)
      e2:SetTarget(s.tgtg)
      e2:SetOperation(s.tgop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_BE_BATTLE_TARGET)
      c:RegisterEffect(e3)
      end
      function s.thfilter(c)
      return (c:IsCode(55749927) or aux.IsCodeListed(c,77656797)) and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsContains(e:GetHandler())
      end
      function s.tgfilter(c)
      return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WARRIOR) and c:IsAbleToGrave()
      end
      function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToRemove() and Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,c,1,0,0)
      end
      function s.spfilter(c,e,tp)
      if not c:IsSetCard(0x148) or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return false end
      if c:IsLocation(LOCATION_DECK) then
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      else
      return Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
      end
      end
      function s.tgop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 and Duel.SendtoGrave(g,REASON_EFFECT)>0 and g:GetFirst():IsLocation(LOCATION_GRAVE) then
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      local fid=c:GetFieldID()
      if Duel.Remove(c,0,REASON_EFFECT+REASON_TEMPORARY)>0 then
      if c:IsLocation(LOCATION_REMOVED) then
      c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,fid)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetLabel(fid)
      e1:SetLabelObject(c)
      e1:SetCountLimit(1)
      e1:SetCondition(s.retcon)
      e1:SetOperation(s.retop)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      if Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil,e,tp)
      and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil,e,tp)
      Duel.BreakEffect()
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      end
      end
      function s.retcon(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      if tc:GetFlagEffectLabel(id)~=e:GetLabel() then
      e:Reset()
      return false
      else return true end
      end
      function s.retop(e,tp,eg,ep,ev,re,r,rp)
      Duel.ReturnToField(e:GetLabelObject())
      end
      script/c101201041.lua deleted 100644 → 0
      View file @ eebb6834
      --ベアルクティ－ポーラ＝スター
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --spsummon condition
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      c:RegisterEffect(e1)
      --special summon rule
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_SPSUMMON_PROC)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e2:SetRange(LOCATION_EXTRA)
      e2:SetCondition(s.sprcon)
      e2:SetOperation(s.sprop)
      c:RegisterEffect(e2)
      --special summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,0))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCost(s.spcost)
      e3:SetTarget(s.sptg)
      e3:SetOperation(s.spop)
      c:RegisterEffect(e3)
      end
      function s.tgrfilter(c)
      return c:IsFaceup() and c:IsLevelAbove(1) and c:IsAbleToGraveAsCost()
      end
      function s.mnfilter(c,g)
      return g:IsExists(s.mnfilter2,1,c,c)
      end
      function s.mnfilter2(c,mc)
      return math.abs(c:GetLevel()-mc:GetLevel())==1
      end
      function s.fselect(g,tp,sc)
      return g:GetCount()==2 and g:IsExists(Card.IsType,1,nil,TYPE_TUNER) and g:IsExists(aux.NOT(Card.IsType),1,nil,TYPE_TUNER)
      and g:IsExists(s.mnfilter,1,nil,g) and Duel.GetLocationCountFromEx(tp,tp,g,sc)>0
      end
      function s.sprcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      local g=Duel.GetMatchingGroup(s.tgrfilter,tp,LOCATION_MZONE,0,nil)
      return g:CheckSubGroup(s.fselect,2,2,tp,c)
      end
      function s.sprop(e,tp,eg,ep,ev,re,r,rp,c)
      local g=Duel.GetMatchingGroup(s.tgrfilter,tp,LOCATION_MZONE,0,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local tg=g:SelectSubGroup(tp,s.fselect,false,2,2,tp,c)
      Duel.SendtoGrave(tg,REASON_COST)
      end
      function s.checkrelrep(c,tp)
      return c:IsHasEffect(16471775,tp) or c:IsHasEffect(89264428,tp)
      end
      function s.rfilter(c,tp)
      return c:IsLevel(8) and c:IsSetCard(0x163) and (c:IsControler(tp) or c:IsFaceup())
      end
      function s.excostfilter(c,tp)
      return c:IsAbleToRemove() and s.checkrelrep(c,tp)
      end
      function s.costfilter(c,handler,e,tp)
      if not handler:IsReleasable() and not s.excostfilter(c,tp) then return false end
      local excg=s.checkrelrep(c,tp) and c or Group.FromCards(c,handler)
      return Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,c,e,tp,excg)
      end
      function s.spfilter(c,e,tp,g)
      return c:IsLevel(7) and c:IsSetCard(0x163) and c:IsType(TYPE_SYNCHRO)
      and Duel.GetLocationCountFromEx(tp,tp,g,c)>0 and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local g1=Duel.GetReleaseGroup(tp,true):Filter(s.rfilter,c,tp)
      local g2=Duel.GetMatchingGroup(s.excostfilter,tp,LOCATION_GRAVE,0,nil,tp)
      g1:Merge(g2)
      if chk==0 then return g1:IsExists(s.costfilter,1,c,c,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local rg=g1:FilterSelect(tp,s.costfilter,1,1,c,c,e,tp)
      local tc=rg:GetFirst()
      local te=tc:IsHasEffect(16471775,tp) or tc:IsHasEffect(89264428,tp)
      if te then
      te:UseCountLimit(tp)
      Duel.Remove(tc,POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
      else
      rg:AddCard(c)
      aux.UseExtraReleaseCount(rg,tp)
      Duel.Release(rg,REASON_COST)
      end
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:IsCostChecked()
      or Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,nil) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
      if #g>0 then
      local tc=g:GetFirst()
      if Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP)>0 then
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_ACTIVATE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTargetRange(0,1)
      e1:SetValue(s.aclimit)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1,true)
      if not tc:IsType(TYPE_EFFECT) then
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_ADD_TYPE)
      e2:SetValue(TYPE_EFFECT)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e2,true)
      end
      tc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,1))
      end
      end
      end
      function s.aclimit(e,re)
      local rc=re:GetHandler()
      return re:IsActiveType(TYPE_MONSTER) and rc:IsLevelAbove(1) and rc:IsSummonLocation(LOCATION_EXTRA)
      end
      script/c101201042.lua deleted 100644 → 0
      View file @ eebb6834
      --烈日の騎士ガイアブレイズ
      --Gaia Blaze, the Force of Blazing Sun
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --material
      aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
      --chain attack
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_BATTLE_DESTROYING)
      e1:SetCondition(s.chacon)
      e1:SetOperation(s.chaop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_PHASE+PHASE_BATTLE)
      e2:SetCountLimit(1)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetTarget(s.thtg)
      e2:SetOperation(s.thop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e3:SetCode(EVENT_BATTLE_DESTROYING)
      e3:SetOperation(s.regop)
      c:RegisterEffect(e3)
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToBattle() then return end
      local ct=c:GetFlagEffectLabel(id)
      if ct then c:SetFlagEffectLabel(id,ct+1)
      else c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,1) end
      end
      function s.chacon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return Duel.GetAttacker()==c and aux.bdocon(e,tp,eg,ep,ev,re,r,rp) and c:IsChainAttackable()
      end
      function s.chaop(e,tp,eg,ep,ev,re,r,rp)
      Duel.ChainAttack()
      end
      function s.filter(c)
      return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.filter(chkc) end
      local c=e:GetHandler()
      local ct=c:GetFlagEffectLabel(id)
      if chk==0 then return ct and Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE,0,1,ct,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,#g,0,0)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetTargetsRelateToChain()
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      script/c101201043.lua deleted 100644 → 0
      View file @ eebb6834
      --エヴォルカイザー・ラーズ
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      aux.AddXyzProcedure(c,nil,6,2)
      --cannot be targeted
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCondition(s.prcon)
      e1:SetValue(s.prval)
      c:RegisterEffect(e1)
      --negate
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_DISABLE)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCode(EVENT_CHAINING)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(s.negcon)
      e2:SetCost(s.negcost)
      e2:SetTarget(s.negtg)
      e2:SetOperation(s.negop)
      c:RegisterEffect(e2)
      end
      function s.prcon(e)
      local c=e:GetHandler()
      return c:GetOverlayCount()>0
      end
      function s.prval(e,re,rp)
      return rp==1-e:GetHandlerPlayer() and re:IsActiveType(TYPE_MONSTER)
      end
      function s.negcon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp
      end
      function s.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local g=c:GetOverlayGroup()
      local ct=2
      if not g:IsExists(aux.NOT(Card.IsRace),1,nil,RACE_REPTILE+RACE_DINOSAUR) then
      ct=1
      end
      if chk==0 then return c:CheckRemoveOverlayCard(tp,ct,REASON_COST) end
      c:RemoveOverlayCard(tp,ct,2,REASON_COST)
      end
      function s.negtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and aux.NegateAnyFilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
      local g=Duel.SelectTarget(tp,aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,#g,0,0)
      end
      function s.negop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsCanBeDisabledByEffect(e) then
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local c=e:GetHandler()
      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+RESET_PHASE+PHASE_END)
      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+RESET_PHASE+PHASE_END)
      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+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e3)
      end
      end
      end
      script/c101201044.lua deleted 100644 → 0
      View file @ eebb6834
      --エピュアリィ・ノアール
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,21347668)
      --xyz
      aux.AddXyzProcedure(c,nil,2,2)
      c:EnableReviveLimit()
      --tohand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1)
      e1:SetCost(s.thcost)
      e1:SetTarget(s.thtg)
      e1:SetOperation(s.thop)
      c:RegisterEffect(e1)
      --material
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_CHAINING)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(3)
      e2:SetCondition(s.matcon)
      e2:SetTarget(s.mattg)
      e2:SetOperation(s.matop)
      c:RegisterEffect(e2)
      end
      function s.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 s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsAbleToHand() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      local ct=e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,21347668) and 2 or 1
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,ct,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,#g,0,0)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetTargetsRelateToChain()
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      end
      end
      function s.matcon(e,tp,eg,ep,ev,re,r,rp)
      return re:IsHasType(EFFECT_TYPE_ACTIVATE) and rp==tp
      and re:IsActiveType(TYPE_QUICKPLAY) and re:GetHandler():IsSetCard(0x18c)
      end
      function s.mattg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return re:GetHandler():IsCanOverlay() end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      re:GetHandler():CreateEffectRelation(e)
      end
      function s.matop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=re:GetHandler()
      if c:IsRelateToChain() and tc:IsRelateToChain() and not tc:IsImmuneToEffect(e) then
      tc:CancelToGrave()
      if Duel.Overlay(c,tc)~=0 and Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil)
      and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil)
      Duel.SSet(tp,g:GetFirst())
      end
      end
      end
      function s.setfilter(c)
      return c:IsSetCard(0x18c) and c:IsType(TYPE_TRAP) and c:IsSSetable()
      end
      script/c101201045.lua deleted 100644 → 0
      View file @ eebb6834
      --セレマテック・クラティス
      --Thelematech Cratis
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --material
      aux.AddXyzProcedure(c,nil,8,2)
      --add counter
      c:EnableCounterPermit(0x1)
      c:SetCounterLimit(0x1,9)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_CHAINING)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetOperation(aux.chainreg)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_CHAIN_SOLVED)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(s.ctcon)
      e2:SetOperation(s.ctop)
      c:RegisterEffect(e2)
      --destroy replace
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e3:SetCode(EFFECT_DESTROY_REPLACE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetTarget(s.dreptg)
      e3:SetOperation(s.drepop)
      c:RegisterEffect(e3)
      --search
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,0))
      e4:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,id)
      e4:SetCost(s.cost)
      e4:SetTarget(s.stg)
      e4:SetOperation(s.sop)
      c:RegisterEffect(e4)
      end
      function Auxiliary.SelectFromOptions(tp,...)
      local options={...}
      local ops={}
      local opvals={}
      for i=1,#options do
      if options[i][1] then
      table.insert(ops,options[i][2])
      table.insert(opvals,options[i][3] or i)
      end
      end
      if #ops==0 then return nil end
      local select=Duel.SelectOption(tp,table.unpack(ops))
      return opvals[select+1]
      end
      function s.ctcon(e,tp,eg,ep,ev,re,r,rp)
      return re and re:IsActiveType(TYPE_TRAP+TYPE_MONSTER) and rp==1-tp and e:GetHandler():GetFlagEffect(1)>0
      end
      function s.ctop(e,tp,eg,ep,ev,re,r,rp)
      e:GetHandler():AddCounter(0x1,1)
      end
      function s.dreptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_EFFECT) and not c:IsReason(REASON_REPLACE) end
      return Duel.SelectEffectYesNo(tp,c,96)
      end
      function s.drepop(e,tp,eg,ep,ev,re,r,rp)
      e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT)
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsCanRemoveCounter(tp,0x1,3,REASON_COST) end
      c:RemoveCounter(tp,0x1,3,REASON_COST)
      end
      function s.filter(c,e,tp,n)
      local b={(c:IsType(TYPE_SPELL) or c:IsType(TYPE_EFFECT) and c:IsRace(RACE_SPELLCASTER)) and c:IsAbleToHand(),
      Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsRace(RACE_SPELLCASTER)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false)}
      if n then return b[n] else return b[1] or b[2] end
      end
      function s.stg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
      end
      function s.sop(e,tp,eg,ep,ev,re,r,rp)
      local b1=Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil,e,tp,1)
      local b2=Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp,2)
      if not (b1 or b2) then return end
      local op=aux.SelectFromOptions(tp,{b1,aux.Stringid(id,1)},{b2,aux.Stringid(id,2)})
      local str=HINTMSG_ATOHAND
      if op==2 then str=HINTMSG_SPSUMMON end
      Duel.Hint(HINT_SELECTMSG,tp,str)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp,op)
      if op==1 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      else Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end
      end
      script/c101201046.lua deleted 100644 → 0
      View file @ eebb6834
      --魔頭砲グレンザウルス
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      aux.AddXyzProcedure(c,nil,4,2)
      --damage
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_ATKCHANGE)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_BATTLE_DESTROYED)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCondition(s.damcon)
      e1:SetCost(s.damcost)
      e1:SetTarget(s.damtg)
      e1:SetOperation(s.damop)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_DESTROYED)
      e2:SetCountLimit(1,id)
      e2:SetCondition(s.descon)
      e2:SetTarget(s.destg)
      e2:SetOperation(s.desop)
      c:RegisterEffect(e2)
      end
      function s.egfilter(c,tp)
      if not c:IsPreviousControler(1-tp) or not c:IsLocation(LOCATION_GRAVE) then return false end
      local bc=c:GetReasonCard()
      if not bc then return false end
      if bc:IsRelateToBattle() then
      return bc:IsFaceup() and bc:IsLocation(LOCATION_MZONE) and bc:IsControler(tp) and bc:IsType(TYPE_MONSTER) and bc:IsRace(RACE_DINOSAUR)
      else
      return bc:GetPreviousPosition()&POS_FACEUP>0 and bc:GetPreviousLocation()&LOCATION_MZONE==LOCATION_MZONE and bc:IsPreviousControler(tp)
      and bc:GetPreviousTypeOnField()&TYPE_MONSTER==TYPE_MONSTER and c:GetPreviousRaceOnField()&RACE_DINOSAUR==RACE_DINOSAUR
      end
      end
      function s.damcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.egfilter,1,nil,tp)
      end
      function s.damcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_COST) end
      c:RemoveOverlayCard(tp,1,1,REASON_COST)
      end
      function s.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetTargetPlayer(1-tp)
      Duel.SetTargetParam(1000)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000)
      end
      function s.damop(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      if Duel.Damage(p,d,REASON_EFFECT)>0 then
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsFaceup() then
      Duel.BreakEffect()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(1000)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      c:RegisterEffect(e1)
      end
      end
      end
      function s.descon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:GetPreviousLocation()&LOCATION_MZONE==LOCATION_MZONE and c:IsSummonType(SUMMON_TYPE_XYZ)
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() end
      if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)>0 then
      Duel.Damage(1-tp,1000,REASON_EFFECT)
      end
      end
      script/c101201047.lua deleted 100644 → 0
      View file @ eebb6834
      --オルターガイスト・アドミニア
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      --link summon
      aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0x103),2)
      c:EnableReviveLimit()
      --set trap
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.setcon)
      e1:SetTarget(s.settg)
      e1:SetOperation(s.setop)
      c:RegisterEffect(e1)
      --control
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_CONTROL)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_NO_TURN_RESET)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e2:SetCountLimit(1,id+o)
      e2:SetCost(s.cost)
      e2:SetCondition(s.condition)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      end
      function s.setcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
      end
      function s.setfilter(c)
      return c:IsSetCard(0x103) and c:IsType(TYPE_TRAP) and c:IsSSetable()
      end
      function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function s.setop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SSet(tp,g:GetFirst())
      end
      end
      function s.costfilter(c,tp)
      return c:IsAbleToGraveAsCost() and Duel.GetMZoneCount(tp,c,tp,LOCATION_REASON_CONTROL)>0
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_ONFIELD,0,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
      Duel.SendtoGrave(g,REASON_COST)
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
      end
      function s.filter(c)
      return c:IsFaceup() and c:IsAbleToChangeControler() and c:IsType(TYPE_EFFECT)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return s.filter(chkc) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
      local g=Duel.SelectTarget(tp,s.filter,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) and Duel.GetControl(tc,tp)~=0 then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_ADD_SETCODE)
      e1:SetValue(0x103)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      script/c101201048.lua deleted 100644 → 0
      View file @ eebb6834
      --シャルル大帝
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,77656797)
      c:EnableReviveLimit()
      aux.AddLinkProcedure(c,s.matfilter,1,1)
      --copy effect
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_EQUIP)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetCondition(s.copycon)
      e1:SetTarget(s.copytg)
      e1:SetOperation(s.copyop)
      c:RegisterEffect(e1)
      --negate
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e2:SetCode(EVENT_CHAINING)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(s.negcon)
      e2:SetCost(s.negcost)
      e2:SetTarget(s.negtg)
      e2:SetOperation(s.negop)
      c:RegisterEffect(e2)
      end
      function s.matfilter(c)
      return c:IsLevel(9) and c:IsLinkCode(77656797) and c:GetEquipCount()>0
      end
      function s.copycon(e)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
      end
      function s.copyfilter(c,tp)
      return c:IsCode(77656797) and c:GetOriginalType()&TYPE_EFFECT==TYPE_EFFECT
      and c:CheckUniqueOnField(tp) and not c:IsForbidden()
      end
      function s.copytg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.copyfilter(chkc,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingTarget(s.copyfilter,tp,LOCATION_GRAVE,0,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,s.copyfilter,tp,LOCATION_GRAVE,0,1,1,nil,tp)
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,#g,0,0)
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g:GetFirst(),1,0,0)
      end
      function s.copyop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if c:IsFaceup() and c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then
      local code=tc:GetOriginalCode()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_CHANGE_CODE)
      e1:SetValue(code)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e1)
      if tc:GetOriginalType()&TYPE_EFFECT==TYPE_EFFECT then
      c:CopyEffect(code,RESET_EVENT+RESETS_STANDARD)
      end
      if Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and tc:CheckUniqueOnField(tp) and not tc:IsForbidden() then
      Duel.BreakEffect()
      if not Duel.Equip(tp,tc,c) then return end
      e:SetLabelObject(tc)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetValue(s.eqlimit)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_EQUIP)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetValue(500)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e2)
      end
      end
      end
      function s.eqlimit(e,c)
      return e:GetOwner()==c
      end
      function s.negcon(e,tp,eg,ep,ev,re,r,rp)
      return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
      and Duel.IsChainNegatable(ev)
      end
      function s.cfilter(c)
      return c:GetType()&(TYPE_SPELL+TYPE_EQUIP)==TYPE_SPELL+TYPE_EQUIP and c:IsAbleToGraveAsCost() and c:IsFaceupEx()
      end
      function s.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
      Duel.SendtoGrave(g,REASON_COST)
      end
      function s.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 s.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
      script/c101201049.lua deleted 100644 → 0
      View file @ eebb6834
      --破械神王ヤマ
      --Script by 奥克斯
      function c101201049.initial_effect(c)
      --same effect send this card to grave and spsummon another card check
      local e0=aux.AddThisCardInGraveAlreadyCheck(c)
      --link summon
      aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_FIEND),2,2)
      c:EnableReviveLimit()
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101201049,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetCountLimit(1,101201049)
      e1:SetTarget(c101201049.thtg)
      e1:SetOperation(c101201049.thop)
      c:RegisterEffect(e1)
      --Special Summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101201049,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_DESTROYED)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,101201049+100)
      e2:SetCondition(c101201049.spcon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c101201049.sptg)
      e2:SetOperation(c101201049.spop)
      e2:SetLabelObject(e0)
      c:RegisterEffect(e2)
      end
      function c101201049.thfilter(c)
      return c:IsSetCard(0x130) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c101201049.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101201049.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
      end
      function c101201049.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c101201049.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function c101201049.cfilter(c,tp,se)
      return c:GetPreviousControler()==tp
      and c:IsReason(REASON_BATTLE+REASON_EFFECT)
      and c:IsPreviousLocation(LOCATION_ONFIELD)
      and (se==nil or c:GetReasonEffect()~=se)
      end
      function c101201049.spcon(e,tp,eg,ep,ev,re,r,rp)
      local se=e:GetLabelObject():GetLabelObject()
      return eg:IsExists(c101201049.cfilter,1,nil,tp,se) and not eg:IsContains(e:GetHandler())
      end
      function c101201049.spfilter(c,e,tp)
      return c:IsRace(RACE_FIEND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101201049.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101201049.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
      end
      function c101201049.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c101201049.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
      if #g>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0 then
      local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,0,nil)
      if #dg>0 and Duel.SelectYesNo(tp,aux.Stringid(101201049,2)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local deg=dg:Select(tp,1,1,nil)
      Duel.HintSelection(deg)
      Duel.Destroy(deg,REASON_EFFECT)
      end
      end
      end
      script/c101201052.lua deleted 100644 → 0
      View file @ eebb6834
      --合成獣融合
      --Chimera Fusion
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCondition(s.fscon)
      e1:SetTarget(s.fstg)
      e1:SetOperation(s.fsop)
      c:RegisterEffect(e1)
      --move from gy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id)
      e2:SetCondition(s.gycon)
      e2:SetTarget(s.gytg)
      c:RegisterEffect(e2)
      end
      function Auxiliary.SelectFromOptions(tp,...)
      local options={...}
      local ops={}
      local opvals={}
      for i=1,#options do
      if options[i][1] then
      table.insert(ops,options[i][2])
      table.insert(opvals,options[i][3] or i)
      end
      end
      if #ops==0 then return nil end
      local select=Duel.SelectOption(tp,table.unpack(ops))
      return opvals[select+1]
      end
      function s.fscon(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
      end
      function s.filter(c,e,tp,m,f,chkf)
      return c:IsType(TYPE_FUSION) and (not f or f(c))
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
      end
      function s.check(tp,g,fc)
      return g:IsExists(Card.IsRace,1,nil,RACE_BEAST+RACE_FIEND)
      end
      function s.fstg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp)
      aux.FCheckAdditional=s.check
      local res=Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
      if not res then
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      local mg2=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      res=Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
      end
      end
      aux.FCheckAdditional=nil
      return res
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.fsop(e,tp,eg,ep,ev,re,r,rp)
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp):Filter(aux.NOT(Card.IsImmuneToEffect),nil,e)
      aux.FCheckAdditional=s.check
      local sg1=Duel.GetMatchingGroup(s.filter,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
      local mg2,sg2=nil,nil
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      mg2=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      sg2=Duel.GetMatchingGroup(s.filter,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
      end
      if #sg1>0 or (sg2~=nil and #sg2>0) then
      local sg=sg1:Clone()
      if sg2 then sg:Merge(sg2) end
      ::cancel::
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tc=sg:Select(tp,1,1,nil):GetFirst()
      if sg1:IsContains(tc) and (sg2==nil or not (sg2:IsContains(tc)
      and Duel.SelectYesNo(tp,ce:GetDescription()))) then
      local mat=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
      if #mat==0 then goto cancel end
      tc:SetMaterial(mat)
      Duel.SendtoGrave(mat,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
      else
      local mat=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
      if #mat==0 then goto cancel end
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat)
      end
      tc:CompleteProcedure()
      end
      aux.FCheckAdditional=nil
      end
      function s.cfilter(c)
      return c:IsFaceupEx() and c:IsCode(4796100)
      end
      function s.gycon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,0,1,nil)
      end
      function s.sfilter(c,e,tp)
      return c:IsCode(5818798,77207191) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.gytg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local b1=c:IsAbleToHand()
      local g=Duel.GetMatchingGroup(s.sfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,nil,e,tp)
      local b2=c:IsAbleToRemove() and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
      and not Duel.IsPlayerAffectedByEffect(tp,59822133)
      and g:GetClassCount(Card.GetCode)>1
      if chk==0 then return b1 or b2 end
      local op=aux.SelectFromOptions(tp,{b1,aux.Stringid(id,2)},{b2,aux.Stringid(id,3)})
      if op==1 then
      e:SetCategory(CATEGORY_TOHAND)
      e:SetOperation(s.tohand)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
      else
      e:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
      e:SetOperation(s.banish)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK+LOCATION_GRAVE)
      end
      end
      function s.tohand(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then Duel.SendtoHand(c,nil,REASON_EFFECT) end
      end
      function s.banish(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) or Duel.Remove(c,POS_FACEUP,REASON_EFFECT)==0
      or Duel.GetLocationCount(tp,LOCATION_MZONE)<2 or Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.sfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,nil,e,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g:SelectSubGroup(tp,aux.dncheck,false,2,2)
      if sg then Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) end
      end
      script/c101201053.lua deleted 100644 → 0
      View file @ eebb6834
      --ジュラシック・パワー
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --gain atk
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetRange(LOCATION_SZONE)
      e2:SetTargetRange(LOCATION_MZONE,0)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_DINOSAUR))
      e2:SetValue(300)
      c:RegisterEffect(e2)
      --decrease tribute
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,0))
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetCode(EFFECT_SUMMON_PROC)
      e3:SetRange(LOCATION_SZONE)
      e3:SetTargetRange(LOCATION_HAND,0)
      e3:SetCondition(s.ntcon)
      e3:SetTarget(s.nttg)
      c:RegisterEffect(e3)
      --search
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_SZONE)
      e4:SetCountLimit(1,id)
      e4:SetCost(s.thcost)
      e4:SetTarget(s.thtg)
      e4:SetOperation(s.thop)
      c:RegisterEffect(e4)
      end
      function s.ntcon(e,c,minc)
      if c==nil then return true end
      return minc==0 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
      end
      function s.nttg(e,c)
      return c:IsLevelAbove(5) and c:IsRace(RACE_DINOSAUR)
      end
      function s.cfilter(c)
      return c:IsRace(RACE_DINOSAUR) and c:IsAbleToGraveAsCost() and c:IsFaceupEx()
      end
      function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
      Duel.SendtoGrave(g,REASON_COST)
      end
      function s.filter(c)
      return c:IsRace(RACE_DINOSAUR) and c:IsDefense(1200) and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      script/c101201054.lua deleted 100644 → 0
      View file @ eebb6834
      --世壊同心
      --Script by beyond & mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,56099748)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.spfilter(c,e,tp)
      return c:IsAttack(1500) and c:IsDefense(2100) and c:IsType(TYPE_MONSTER)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.tdfilter1(c)
      return c:IsCode(56099748)
      end
      function s.tdfilter2(c)
      return c:IsAttack(1500) and c:IsDefense(2100)
      end
      function s.tdcheck(g,e,tp)
      if not Duel.IsExistingMatchingCard(s.synfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,g) then return false end
      local g1=g:Filter(s.tdfilter1,nil)
      if #g1==1 and g:FilterCount(s.tdfilter2,g1)==4 then return true end
      return g:CheckSubGroupEach({s.tdfilter1,s.tdfilter2,s.tdfilter2,s.tdfilter2,s.tdfilter2})
      end
      function s.gcheck(g)
      return #g==1 or g:IsExists(s.tdfilter1,1,nil)
      end
      function s.synfilter(c,e,tp,g)
      return c:IsSetCard(0x298) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
      and (g==nil or Duel.GetLocationCountFromEx(tp,tp,g,c)>0)
      end
      function s.tdfilter(c)
      return (s.tdfilter1(c) or s.tdfilter2(c)) and c:IsFaceupEx() and c:IsAbleToDeck()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
      if chk==0 and b1 then return true end
      local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
      aux.GCheckAdditional=s.gcheck
      local b2=Duel.IsExistingMatchingCard(s.synfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,nil)
      and g:CheckSubGroup(s.tdcheck,5,5,e,tp)
      aux.GCheckAdditional=nil
      if chk==0 then return b1 or b2 end
      local op=0
      if b1 and b2 then
      op=Duel.SelectOption(tp,aux.Stringid(id,0),aux.Stringid(id,1))
      elseif b1 then
      op=Duel.SelectOption(tp,aux.Stringid(id,0))
      else
      op=Duel.SelectOption(tp,aux.Stringid(id,1))+1
      end
      e:SetLabel(op)
      if op==0 then
      e:SetCategory(CATEGORY_SPECIAL_SUMMON)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
      else
      e:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,5,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED)
      end
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      if e:GetLabel()==0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      else
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.tdfilter),tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=g:SelectSubGroup(tp,s.tdcheck,false,5,5,e,tp)
      if sg and Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tg=Duel.SelectMatchingCard(tp,s.synfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
      local tc=tg:GetFirst()
      if tc then
      Duel.SpecialSummon(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)
      tc:CompleteProcedure()
      end
      end
      end
      end
      script/c101201055.lua deleted 100644 → 0
      View file @ eebb6834
      --新世壊＝アムリターラ
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,56099748)
      --Activate
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_ACTIVATE)
      e0:SetCode(EVENT_FREE_CHAIN)
      e0:SetCondition(s.accon)
      c:RegisterEffect(e0)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_DESTROYED)
      e1:SetRange(LOCATION_FZONE)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1)
      e1:SetTarget(s.target)
      c:RegisterEffect(e1)
      end
      function s.confilter(c)
      return c:IsFaceup() and c:IsCode(56099748)
      end
      function s.accon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.confilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
      end
      function s.filter1(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
      end
      function s.filter2(c)
      return c:GetAttack()>0
      end
      function s.filter3(c)
      return c:IsAbleToDeck()
      end
      function s.filter(c,tp)
      return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsType(TYPE_MONSTER)
      and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(tp)
      and c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED)
      end
      function s.atkfilter(c)
      return c:IsType(TYPE_TUNER) and c:IsFaceup()
      end
      function s.thfilter(c)
      return c:IsType(TYPE_FIELD) and c:IsAbleToHand()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      local g=eg:Filter(s.filter,nil,tp)
      local b1=g:IsExists(s.filter1,1,nil,e,tp)
      local b2=g:IsExists(s.filter2,1,nil) and Duel.IsExistingMatchingCard(s.atkfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
      local b3=g:IsExists(s.filter3,1,nil,e,tp) and Duel.IsPlayerCanDraw(tp,1)
      local b4=#g>0 and c:IsAbleToDeck() and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_GRAVE,0,1,nil)
      if chk==0 then return b1 or b2 or b3 or b4 end
      Duel.SetTargetCard(g)
      local off=1
      local ops={}
      local opval={}
      if b1 then
      ops[off]=aux.Stringid(id,1)
      opval[off-1]=1
      off=off+1
      end
      if b2 then
      ops[off]=aux.Stringid(id,2)
      opval[off-1]=2
      off=off+1
      end
      if b3 then
      ops[off]=aux.Stringid(id,3)
      opval[off-1]=3
      off=off+1
      end
      if b4 then
      ops[off]=aux.Stringid(id,4)
      opval[off-1]=4
      off=off+1
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EFFECT)
      local op=Duel.SelectOption(tp,table.unpack(ops))
      if opval[op]==1 then
      e:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e:SetOperation(s.spop)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
      elseif opval[op]==2 then
      e:SetCategory(CATEGORY_ATKCHANGE)
      e:SetOperation(s.atkop)
      Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
      elseif opval[op]==3 then
      e:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
      e:SetOperation(s.todeckop)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      elseif opval[op]==4 then
      e:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND)
      e:SetOperation(s.tohandop)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
      end
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=eg:Filter(Card.IsRelateToChain,nil):FilterSelect(tp,s.filter1,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
      end
      end
      function s.atkop(e,tp,eg,ep,ev,re,r,rp)
      local g1=eg:Filter(Card.IsRelateToChain,nil):Filter(s.filter2,nil)
      local g2=Duel.GetMatchingGroup(s.atkfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      if #g1~=0 and #g2~=0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      local tc=g1:Select(tp,1,1,nil):GetFirst()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local hc=g2:Select(tp,1,1,nil):GetFirst()
      local atk=tc:GetAttack()
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(math.ceil(atk/2))
      hc:RegisterEffect(e1)
      end
      end
      function s.todeckop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=eg:Filter(Card.IsRelateToChain,nil):FilterSelect(tp,s.filter3,1,1,nil,e,tp)
      if #g>0 and Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 and Duel.IsPlayerCanDraw(tp,1) then
      Duel.ShuffleDeck(tp)
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      function s.tohandop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      if #g~=0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      end
      end
      end
      script/c101201056.lua deleted 100644 → 0
      View file @ eebb6834
      --『焔聖剣－アルマス』
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_EQUIP)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CONTINUOUS_TARGET)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --equip Limit
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_EQUIP_LIMIT)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetValue(1)
      c:RegisterEffect(e2)
      --equip
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_EQUIP+CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1,id)
      e3:SetTarget(s.eqtg)
      e3:SetOperation(s.eqop)
      c:RegisterEffect(e3)
      --add to hand
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,2))
      e4:SetCategory(CATEGORY_TOHAND)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e4:SetCode(EVENT_TO_GRAVE)
      e4:SetCountLimit(1,id)
      e4:SetCondition(s.thcon)
      e4:SetTarget(s.thtg)
      e4:SetOperation(s.thop)
      c:RegisterEffect(e4)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then
      Duel.Equip(tp,e:GetHandler(),tc)
      end
      end
      function s.filter(c,ec)
      return c:IsFaceup() and ec:CheckEquipTarget(c)
      end
      function s.eqfilter(c,tp)
      return c:GetType()&(TYPE_SPELL+TYPE_EQUIP)==TYPE_SPELL+TYPE_EQUIP and c:IsSetCard(0x607a) and not c:IsCode(id)
      and c:CheckUniqueOnField(tp) and not c:IsForbidden()
      and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_MZONE,0,1,nil,c)
      end
      function s.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingMatchingCard(s.eqfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,0,LOCATION_DECK+LOCATION_GRAVE)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
      end
      function s.eqop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.eqfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,tp)
      if #g>0 then
      local tc=g:GetFirst()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local eqg=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil,tc)
      if #eqg>0 then
      Duel.HintSelection(eqg)
      if Duel.Equip(tp,tc,eqg:GetFirst()) then
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.BreakEffect()
      Duel.Destroy(c,REASON_EFFECT)
      end
      end
      end
      end
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsReason(REASON_LOST_TARGET) and c:GetPreviousEquipTarget():IsLocation(LOCATION_GRAVE)
      end
      function s.thfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WARRIOR)
      and c:IsAbleToHand() and c:IsFaceupEx()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and s.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,s.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,#g,0,0)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      end
      end
      script/c101201057.lua deleted 100644 → 0
      View file @ eebb6834
      --大聖剣博物館
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,77656797)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --gain atk
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetRange(LOCATION_FZONE)
      e2:SetTargetRange(LOCATION_MZONE,0)
      e2:SetTarget(s.atktg)
      e2:SetValue(500)
      c:RegisterEffect(e2)
      --search
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,0))
      e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_FZONE)
      e3:SetCountLimit(1)
      e3:SetCost(s.thcost)
      e3:SetTarget(s.thtg)
      e3:SetOperation(s.thop)
      c:RegisterEffect(e3)
      --special summon
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e4:SetRange(LOCATION_FZONE)
      e4:SetCountLimit(1)
      e4:SetLabel(0)
      e4:SetCondition(s.spcon)
      e4:SetTarget(s.sptg)
      e4:SetOperation(s.spop)
      c:RegisterEffect(e4)
      end
      function s.atktg(e,c)
      return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WARRIOR)
      end
      function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLPCost(tp,1200) end
      Duel.PayLPCost(tp,1200)
      end
      function s.thfilter(c)
      return c:IsSetCard(0x207a) and c:IsAbleToHand() and not c:IsCode(id)
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():GetFlagEffect(id)>0
      end
      function s.spfilter(c,e,tp)
      return c:IsFaceup() and not c:IsLocation(LOCATION_FZONE) and c:IsSetCard(0x107a)
      and c:GetOriginalType()&TYPE_MONSTER==TYPE_MONSTER and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.charlesfilter(c)
      return c:IsFaceup() and c:IsCode(77656797)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_SZONE) and s.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_SZONE,0,1,nil,e,tp) end
      e:SetLabel(0)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_SZONE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      if not Duel.IsExistingMatchingCard(s.charlesfilter,tp,LOCATION_ONFIELD,0,1,nil) then
      e:SetLabel(1)
      end
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      if e:GetLabel()==1 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(s.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function s.splimit(e,c)
      return not c:IsRace(RACE_WARRIOR)
      end
      script/c101201058.lua deleted 100644 → 0
      View file @ eebb6834
      --EMERGENCY！
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      --summon and release
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --set
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.settg)
      e2:SetOperation(s.setop)
      c:RegisterEffect(e2)
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x18b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function s.rfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsReleasableByEffect() and c:IsSetCard(0x18b)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local rg=Duel.SelectReleaseGroupEx(tp,s.rfilter,1,1,nil)
      if rg:GetCount()>0 then
      Duel.HintSelection(rg)
      Duel.Release(rg,REASON_EFFECT)
      end
      end
      end
      function s.setfilter(c)
      return c:IsSetCard(0x18b) and c:IsType(TYPE_TRAP) and c:IsSSetable()
      end
      function s.settg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and s.setfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.setfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectTarget(tp,s.setfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
      end
      function s.setop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SSet(tp,tc)
      end
      end
      script/c101201059.lua deleted 100644 → 0
      View file @ eebb6834
      --暗黒回廊
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_HANDES)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.filter(c)
      return c:IsSetCard(0x6) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_HAND) then
      Duel.ConfirmCards(1-tp,g)
      Duel.ShuffleHand(tp)
      Duel.BreakEffect()
      Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD,nil)
      end
      end
      script/c101201060.lua deleted 100644 → 0
      View file @ eebb6834
      --反逆の罪宝－スネークアイ
      --Corrupted Gem of Rebellion - Snake Eye
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.filter(c,tp,ft)
      local r=LOCATION_REASON_TOFIELD
      if not c:IsControler(c:GetOwner()) then r=LOCATION_REASON_CONTROL end
      return c:IsFaceup() and Duel.GetLocationCount(c:GetOwner(),LOCATION_SZONE,tp,r)>ft
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.filter(chkc,tp,0) end
      if chk==0 then
      local ft=e:IsHasType(EFFECT_TYPE_ACTIVATE) and e:GetHandler():IsLocation(LOCATION_HAND) and 1 or 0
      return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,tp,ft)
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp,0)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e)
      and Duel.MoveToField(tc,tp,tc:GetOwner(),LOCATION_SZONE,POS_FACEUP,true) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      tc:RegisterEffect(e1)
      end
      end
      script/c101201061.lua deleted 100644 → 0
      View file @ eebb6834
      --融合強兵
      --Script by mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.ffilter(c,e,tp)
      return c:IsType(TYPE_FUSION)
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil,c,e,tp)
      end
      function s.spfilter(c,fc,e,tp)
      if not (aux.IsMaterialListCode(fc,c:GetCode()) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)) then return false end
      if c:IsLocation(LOCATION_EXTRA) then
      return Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
      else
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      end
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.ffilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA+LOCATION_GRAVE)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
      local tc=Duel.SelectMatchingCard(tp,s.ffilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp):GetFirst()
      if tc then
      Duel.ConfirmCards(1-tp,tc)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil,tc,e,tp)
      if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0 then
      local c=e:GetHandler()
      local sc=g:GetFirst()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
      sc:RegisterEffect(e1,true)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_DISABLE)
      sc:RegisterEffect(e2,true)
      local e3=e1:Clone()
      e3:SetCode(EFFECT_DISABLE_EFFECT)
      e3:SetValue(RESET_TURN_SET)
      sc:RegisterEffect(e3,true)
      end
      end
      end
      script/c101201062.lua deleted 100644 → 0
      View file @ eebb6834
      --デュエリスト・ジェネシス
      --Duelist Genesis
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(s.condition)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.cfilter(c)
      return c:IsFaceupEx() and c:IsType(TYPE_TUNER)
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil)
      end
      function s.filter(c)
      return c:IsSetCard(0x17) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      script/c101201063.lua deleted 100644 → 0
      View file @ eebb6834
      --超越進化薬β
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.costfilter(c,tp)
      return c:IsControler(tp) or c:IsFaceup()
      end
      function s.gcheck(g,e,tp)
      return g:IsExists(Card.IsRace,1,nil,RACE_DINOSAUR)
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil,e,tp,g,g:GetSum(Card.GetAttack))
      end
      function s.spfilter(c,e,tp,g,atk)
      local check=false
      if c:IsLocation(LOCATION_DECK) then
      check=Duel.GetMZoneCount(tp,g)>0
      elseif c:IsLocation(LOCATION_EXTRA) then
      check=Duel.GetLocationCountFromEx(tp,tp,g,c)>0
      end
      return check and c:IsLevelAbove(5) and c:IsRace(RACE_DINOSAUR) and c:IsAttackAbove(atk)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetReleaseGroup(tp,true):Filter(s.costfilter,nil,tp)
      if chk==0 then return e:IsCostChecked()
      and g:CheckSubGroup(s.gcheck,2,2,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local sg=g:SelectSubGroup(tp,s.gcheck,false,2,2,e,tp)
      local atk=sg:GetSum(Card.GetAttack)
      Duel.Release(sg,REASON_COST)
      e:SetLabel(atk)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local atk=e:GetLabel()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil,e,tp,nil,atk)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      if e:IsHasType(EFFECT_TYPE_ACTIVATE) 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(s.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function s.splimit(e,c)
      return not c:IsRace(RACE_DRAGON+RACE_DINOSAUR+RACE_SEASERPENT+RACE_WYRM) and c:IsLocation(LOCATION_EXTRA)
      end
      script/c101201064.lua deleted 100644 → 0
      View file @ eebb6834
      --十種神鏡陣
      --Script by Mercury233
      local s,id,o=GetID()
      function s.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:SetCost(s.cost)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.costfilter(c)
      return c:IsLevelAbove(0) and c:IsFaceupEx() and c:IsAbleToGraveAsCost()
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(s.costfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,nil)
      if chk==0 then return g:CheckWithSumEqual(Card.GetLevel,10,1,#g) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local sg=g:SelectWithSumEqual(tp,Card.GetLevel,10,1,#g)
      Duel.SendtoGrave(sg,REASON_COST)
      end
      function s.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 s.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
      script/c101201065.lua deleted 100644 → 0
      View file @ eebb6834
      --誇大化
      --Egomorph
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_BATTLE_START)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(s.condition)
      e1:SetTarget(s.target)
      c:RegisterEffect(e1)
      end
      function Auxiliary.SelectFromOptions(tp,...)
      local options={...}
      local ops={}
      local opvals={}
      for i=1,#options do
      if options[i][1] then
      table.insert(ops,options[i][2])
      table.insert(opvals,options[i][3] or i)
      end
      end
      if #ops==0 then return nil end
      local select=Duel.SelectOption(tp,table.unpack(ops))
      return opvals[select+1]
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetAttackTarget()~=nil
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local a=Duel.GetAttacker()
      local d=Duel.GetAttackTarget()
      local b1=a:IsCanChangePosition() and a:IsAttackPos()
      local b2=d and d:IsAbleToHand()
      local op=aux.SelectFromOptions(tp,
      {b1,aux.Stringid(id,1)},
      {b2,aux.Stringid(id,2)},
      {true,aux.Stringid(id,3)})
      if op==1 then
      e:SetCategory(CATEGORY_POSITION)
      e:SetOperation(s.defense)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,a,1,0,0)
      elseif op==2 then
      e:SetCategory(CATEGORY_TOHAND)
      e:SetOperation(s.rtohand)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,d,1,0,0)
      else
      e:SetCategory(CATEGORY_DESTROY)
      e:SetOperation(s.destroy)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,Group.FromCards(a,d),2,0,0)
      end
      end
      function s.defense(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetAttacker()
      if tc:IsRelateToBattle() then Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) end
      end
      function s.rtohand(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetAttackTarget()
      if tc:IsRelateToBattle() then Duel.SendtoHand(tc,nil,REASON_EFFECT) end
      end
      function s.destroy(e,tp,eg,ep,ev,re,r,rp)
      local a,d=Duel.GetAttacker(),Duel.GetAttackTarget()
      local g=Group.FromCards(a,d):Filter(Card.IsRelateToBattle,nil)
      if #g==2 then Duel.Destroy(g,REASON_EFFECT) end
      end
      script/c101201066.lua deleted 100644 → 0
      View file @ eebb6834
      --億年の氷墓
      --Eternal Ice Grave
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_LEAVE_FIELD)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCondition(s.condition)
      e1:SetTarget(s.target)
      c:RegisterEffect(e1)
      end
      function s.filter(c,tp)
      return c:IsType(TYPE_MONSTER) and c:IsPreviousControler(tp) and not c:IsReason(REASON_DESTROY)
      and c:IsReason(REASON_EFFECT) and c:GetReasonEffect():IsActiveType(TYPE_MONSTER)
      and c:GetReasonPlayer()==1-tp
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) and eg:IsExists(s.filter,1,nil,tp)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local op=Duel.SelectOption(tp,aux.Stringid(id,1),aux.Stringid(id,2))
      if op==0 then e:SetOperation(s.endthism1)
      else e:SetOperation(s.skipnxtm1) end
      end
      function s.endthism1(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      Duel.SkipPhase(Duel.GetTurnPlayer(),ph,RESET_PHASE+ph,1)
      end
      function s.skipnxtm1(e,tp,eg,ep,ev,re,r,rp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SKIP_M1)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(0,1)
      if Duel.GetTurnPlayer()==1-tp then
      e1:SetLabel(Duel.GetTurnCount())
      e1:SetCondition(s.skipcon)
      e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,2)
      else e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) end
      Duel.RegisterEffect(e1,tp)
      end
      function s.skipcon(e)
      return Duel.GetTurnCount()~=e:GetLabel()
      end
      script/c101201067.lua deleted 100644 → 0
      View file @ eebb6834
      --アクアの輪唱
      --Aqua Round
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_HAND,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_HAND)
      if Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)==0 then e:SetLabel(1) else e:SetLabel(0) end
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local tc=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_HAND,0,1,1,nil):GetFirst()
      if not tc or Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)==0 then return end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e1:SetCountLimit(1)
      e1:SetLabel(Duel.GetTurnCount(),tc:GetCode())
      e1:SetCondition(s.condition)
      e1:SetOperation(s.operation)
      e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,2)
      Duel.RegisterEffect(e1,tp)
      if e:GetLabel()==1 and e:IsHasType(EFFECT_TYPE_ACTIVATE) then
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e2:SetCode(EFFECT_CANNOT_ACTIVATE)
      e2:SetTargetRange(1,0)
      e2:SetValue(s.aclimit)
      e2:SetLabel(tc:GetOriginalCodeRule())
      e2:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e2,tp)
      end
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==tp and Duel.GetTurnCount()>(e:GetLabel())
      end
      function s.filter(c,_,...)
      return c:IsCode(...) and c:IsAbleToHand()
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local t={e:GetLabel()}
      e:Reset()
      if not (Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil,table.unpack(t))
      and Duel.SelectYesNo(tp,aux.Stringid(id,1))) then return end
      Duel.Hint(HINT_CARD,0,id)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,2,nil,table.unpack(t))
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      function s.aclimit(e,re)
      return re:GetOwner():IsOriginalCodeRule(table.unpack{e:GetLabel()})
      end
      script/c101201069.lua deleted 100644 → 0
      View file @ eebb6834
      --オルターガイスト・リバイタリゼーション
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,id)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.sumtg)
      e2:SetOperation(s.sumop)
      c:RegisterEffect(e2)
      end
      function s.filter(c,e,tp)
      return c:IsType(TYPE_LINK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0x103)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.filter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.sumfilter(c)
      return c:IsSetCard(0x103) and c:IsSummonable(true,nil)
      end
      function s.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
      end
      function s.sumop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
      local g=Duel.SelectMatchingCard(tp,s.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
      local tc=g:GetFirst()
      if tc then
      Duel.Summon(tp,tc,true,nil)
      end
      end
      script/c101201070.lua deleted 100644 → 0
      View file @ eebb6834
      --新世壊成劫
      --Script by mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,56099748)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,id)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --to deck
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_TODECK)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1,id+o)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.tdtg)
      e2:SetOperation(s.tdop)
      c:RegisterEffect(e2)
      end
      function s.filter(c,ft)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and aux.IsCodeListed(c,56099748)
      and c:IsSSetable(true) and (c:IsType(TYPE_FIELD) or ft>0)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
      if e:IsHasType(EFFECT_TYPE_ACTIVATE) and not e:GetHandler():IsLocation(LOCATION_SZONE) then ft=ft-1 end
      if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and s.filter(chkc,ft) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE,0,1,nil,ft) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil,ft)
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.SSet(tp,tc)>0 then
      if tc:IsType(TYPE_QUICKPLAY) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
      e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      if tc:IsType(TYPE_TRAP) then
      local e1=Effect.CreateEffect(c)
      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
      function s.tdfilter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and aux.IsCodeListed(c,56099748) and not c:IsCode(id)
      and c:IsAbleToDeck()
      end
      function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.tdfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.tdfilter,tp,LOCATION_GRAVE,0,3,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,s.tdfilter,tp,LOCATION_GRAVE,0,3,3,nil)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,3,0,0)
      end
      function s.tdop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetTargetsRelateToChain()
      if g:GetCount()>0 then
      Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      end
      end
      script/c101201071.lua deleted 100644 → 0
      View file @ eebb6834
      --星満ちる新世壊
      --Script by mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,56099748)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --indes
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
      e2:SetRange(LOCATION_SZONE)
      e2:SetTargetRange(LOCATION_MZONE,0)
      e2:SetCondition(s.indcon)
      e2:SetValue(s.indct)
      c:RegisterEffect(e2)
      --recycle
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,0))
      e3:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_SZONE)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetHintTiming(TIMING_END_PHASE)
      e3:SetCountLimit(1,id)
      e3:SetCondition(s.condition)
      e3:SetTarget(s.target)
      e3:SetOperation(s.operation)
      c:RegisterEffect(e3)
      end
      function s.cfilter(c)
      return c:IsFaceup() and c:IsCode(56099748)
      end
      function s.indcon(e)
      return Duel.IsExistingMatchingCard(s.cfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil)
      end
      function s.indct(e,re,r,rp)
      if bit.band(r,REASON_BATTLE)~=0 then
      return 1
      else return 0 end
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_END
      and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function s.filter(c,check)
      return c:IsType(TYPE_MONSTER) and (c:IsAbleToDeck() or check and c:IsAbleToHand())
      end
      function s.chkfilter(c)
      return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsType(TYPE_TUNER)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local check=Duel.IsExistingMatchingCard(s.chkfilter,tp,LOCATION_MZONE,0,1,nil)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.filter(chkc,check) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE,0,1,nil,check) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil,check)
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      if aux.NecroValleyNegateCheck(tc) then return end
      if not aux.NecroValleyFilter()(tc) then return end
      local opt=0
      local b1=tc:IsAbleToDeck()
      local b2=tc:IsAbleToHand() and Duel.IsExistingMatchingCard(s.chkfilter,tp,LOCATION_MZONE,0,1,nil)
      if b1 and not b2 then
      opt=1
      elseif b2 and not b1 then
      opt=2
      elseif b1 and b2 then
      opt=Duel.SelectOption(tp,1193,1190)+1
      end
      if opt==1 then
      Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      elseif opt==2 then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      end
      end
      end
      script/c101201072.lua deleted 100644 → 0
      View file @ eebb6834
      --シャルルの叙事詩
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,77656797)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_EQUIP+CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --equip
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_EQUIP)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.eqtg)
      e2:SetOperation(s.eqop)
      c:RegisterEffect(e2)
      end
      function s.cfilter0(c)
      return c:IsSetCard(0x207a) and c:GetType()&(TYPE_SPELL+TYPE_EQUIP)==TYPE_SPELL+TYPE_EQUIP and not c:IsPublic()
      end
      function s.cfilter(c,e,tp,ft)
      return s.cfilter0(c) and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp,c,ft)
      end
      function s.spfilter(c,e,tp,ec,ft)
      if not c:IsSetCard(0x507a) or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return false end
      if ec:IsAbleToGrave() then
      return true
      else
      return ft>0 and ec:CheckEquipTarget(c) and ec:CheckUniqueOnField(tp) and not ec:IsForbidden()
      end
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local c=e:GetHandler()
      local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
      if e:IsHasType(EFFECT_TYPE_ACTIVATE) and not c:IsLocation(LOCATION_SZONE) then
      ft=ft-1
      end
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND,0,1,nil,e,tp,ft)
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
      local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp,ft)
      if #g>0 then
      local tc=g:GetFirst()
      Duel.ConfirmCards(1-tp,g)
      Duel.ShuffleHand(tp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp,tc,ft)
      if #sg>0 and Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)>0 then
      ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
      local sc=sg:GetFirst()
      local b1=sc:IsFaceup() and sc:IsLocation(LOCATION_MZONE) and ft>0
      and tc:CheckEquipTarget(sc) and tc:CheckUniqueOnField(tp) and not tc:IsForbidden()
      local b2=tc:IsAbleToGrave()
      local off=1
      local ops={}
      local opval={}
      if b1 then
      ops[off]=aux.Stringid(id,2)
      opval[off]=0
      off=off+1
      end
      if b2 then
      ops[off]=aux.Stringid(id,3)
      opval[off]=1
      off=off+1
      end
      local op=Duel.SelectOption(tp,table.unpack(ops))+1
      local sel=opval[op]
      if sel==0 then
      Duel.BreakEffect()
      Duel.Equip(tp,tc,sc)
      elseif sel==1 then
      Duel.BreakEffect()
      Duel.SendtoGrave(tc,REASON_EFFECT)
      end
      end
      else
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
      g=Duel.SelectMatchingCard(tp,s.cfilter0,tp,LOCATION_HAND,0,1,1,nil)
      if #g>0 then
      Duel.ConfirmCards(1-tp,g)
      Duel.ShuffleHand(tp)
      end
      end
      end
      function s.charlesfilter(c)
      return c:IsFaceup() and c:IsCode(77656797)
      end
      function s.eqfilter(c,tp)
      return c:IsSetCard(0x107a) and c:IsType(TYPE_MONSTER) and c:CheckUniqueOnField(tp) and not c:IsForbidden()
      end
      function s.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and s.charlesfilter(chkc) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingTarget(s.charlesfilter,tp,LOCATION_MZONE,0,1,nil)
      and Duel.IsExistingMatchingCard(s.eqfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,s.charlesfilter,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
      end
      function s.eqop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
      local tc1=Duel.GetFirstTarget()
      if not tc1:IsRelateToEffect(e) or tc1:IsFacedown() then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      local g=Duel.SelectMatchingCard(tp,s.eqfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,tp)
      if #g>0 then
      local tc2=g:GetFirst()
      if Duel.Equip(tp,tc2,tc1,true) then
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(s.eqlimit)
      e1:SetLabelObject(tc1)
      tc2:RegisterEffect(e1)
      local e2=Effect.CreateEffect(tc2)
      e2:SetType(EFFECT_TYPE_EQUIP)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetValue(500)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc2:RegisterEffect(e2)
      end
      end
      end
      function s.eqlimit(e,c)
      return c==e:GetLabelObject()
      end
      script/c101201073.lua deleted 100644 → 0
      View file @ eebb6834
      --ネムレリア・ルーヴ
      --Script by XGlitchy30
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --reduce atk/def
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMINGS_CHECK_MONSTER)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(aux.dscon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.stattg)
      e2:SetOperation(s.statop)
      c:RegisterEffect(e2)
      end
      function s.spfilter(c,e,tp)
      if not c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE) then return false end
      return c:IsSetCard(0x191) or (c:IsLevel(10) and c:IsRace(RACE_BEAST))
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
      if #g>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)>0 then
      local tc=g:GetFirst()
      if not tc:IsLocation(LOCATION_MZONE) then return end
      local c=e:GetHandler()
      local fid=c:GetFieldID()
      tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1,fid)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetCountLimit(1)
      e1:SetLabel(fid)
      e1:SetLabelObject(tc)
      e1:SetCondition(s.thcon)
      e1:SetOperation(s.thop)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      if tc:GetFlagEffectLabel(id)~=e:GetLabel() then
      e:Reset()
      return false
      else
      return true
      end
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.SendtoHand(e:GetLabelObject(),nil,REASON_EFFECT)
      end
      function s.atkfilter(c)
      return c:IsFaceup() and (c:GetAttack()>0 or c:GetDefense()>0)
      end
      function s.stattg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFacedown,tp,LOCATION_REMOVED,0,1,nil)
      and Duel.IsExistingTarget(s.atkfilter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,s.atkfilter,tp,0,LOCATION_MZONE,1,1,nil)
      end
      function s.statop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsFaceup() then
      local ct=Duel.GetMatchingGroupCount(Card.IsFacedown,tp,LOCATION_REMOVED,0,nil)
      if ct==0 then return end
      local val=ct*-100
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(val)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_UPDATE_DEFENSE)
      tc:RegisterEffect(e2)
      end
      end
      script/c101201074.lua deleted 100644 → 0
      View file @ eebb6834
      --VV－マスターフェイズ
      --Vaylantz Wave - Master Phase
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --atk up
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_ATKCHANGE)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_MOVE)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCondition(s.condition)
      e2:SetTarget(s.atktg)
      e2:SetOperation(s.atkop)
      c:RegisterEffect(e2)
      --move to szone
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_MOVE)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e3:SetCondition(s.condition)
      e3:SetCost(s.mvcost)
      e3:SetTarget(s.mvtg)
      e3:SetOperation(s.mvop)
      c:RegisterEffect(e3)
      end
      function s.cfilter(c)
      return c:IsPreviousLocation(LOCATION_MZONE) and c:IsLocation(LOCATION_MZONE)
      and (c:GetPreviousSequence()~=c:GetSequence() or c:GetPreviousControler()~=c:GetControler())
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil)
      end
      function s.afilter(c)
      return c:IsFaceup() and c:IsLevelAbove(5) and c:IsSetCard(0x17d)
      end
      function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.afilter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      end
      function s.atkop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(s.afilter,tp,LOCATION_MZONE,0,nil)
      for tc in aux.Next(g) do
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(1200)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      end
      end
      function s.mvcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsStatus(STATUS_EFFECT_ENABLED) and c:IsAbleToGraveAsCost() end
      Duel.SendtoGrave(c,REASON_COST)
      end
      function s.mfilter(c)
      local seq=c:GetSequence()
      return seq<=4 and c:IsType(TYPE_EFFECT) and c:IsFaceup()
      end
      function s.mvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and cgkc:IsControler(1-tp) and s.mfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.mfilter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(id,2))
      Duel.SelectTarget(tp,s.mfilter,tp,0,LOCATION_MZONE,1,1,nil)
      end
      function s.sfilter(c,seq)
      return c:GetSequence()==seq
      end
      function s.mvop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not (tc:IsRelateToEffect(e) and tc:IsControler(1-tp) and not tc:IsImmuneToEffect(e)) then return end
      local zone=1<<tc:GetSequence()
      local oc=Duel.GetMatchingGroup(s.sfilter,tp,0,LOCATION_SZONE,nil,tc:GetSequence()):GetFirst()
      if oc then
      Duel.Destroy(oc,REASON_RULE)
      end
      if Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true,zone) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      tc:RegisterEffect(e1)
      end
      end
      script/c101201075.lua deleted 100644 → 0
      View file @ eebb6834
      --ピュアリィ・シェアリィ！？
      --Script by beyond
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(s.target)
      e1:SetOperation(s.operation)
      c:RegisterEffect(e1)
      end
      function s.tgfilter(c,e,tp)
      return c:IsFaceup() and c:IsSetCard(0x18c) and c:IsType(TYPE_XYZ)
      and Duel.IsExistingMatchingCard(s.xyzspfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetRank(),c:GetAttribute(),nil)
      end
      function s.xyzspfilter(c,e,tp,rk,att,mc)
      return c:IsSetCard(0x18c) and c:IsType(TYPE_XYZ) and c:IsRank(rk) and not c:IsAttribute(att)
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
      and aux.MustMaterialCheck(mc,tp,EFFECT_MUST_BE_XMATERIAL)
      and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
      end
      function s.deckspfilter(c,e,tp)
      return c:IsSetCard(0x18c) and c:IsLevel(1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.xyzfilter1(c,tp)
      return c:IsSetCard(0x18c) and c:IsType(TYPE_QUICKPLAY)
      end
      function s.xyzfilter2(c,og)
      return c:IsSetCard(0x18c) and c:IsType(TYPE_QUICKPLAY) and c:IsCanOverlay()
      and og:IsExists(Card.IsCode,1,nil,c:GetCode())
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.tgfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonCount(tp,2)
      and Duel.IsExistingTarget(s.tgfilter,tp,LOCATION_MZONE,0,1,nil,e,tp)
      and Duel.IsExistingMatchingCard(s.deckspfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,s.tgfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK+LOCATION_EXTRA)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g1=Duel.SelectMatchingCard(tp,s.deckspfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      local sc1=g1:GetFirst()
      if not sc1 then return end
      Duel.SpecialSummonStep(sc1,0,tp,tp,false,false,POS_FACEUP)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      sc1:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      sc1:RegisterEffect(e2)
      Duel.SpecialSummonComplete()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g2=Duel.SelectMatchingCard(tp,s.xyzspfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc:GetRank(),tc:GetAttribute(),sc1)
      local sc2=g2:GetFirst()
      if sc2 then
      sc2:SetMaterial(Group.FromCards(sc1))
      Duel.Overlay(sc2,Group.FromCards(sc1))
      Duel.SpecialSummon(sc2,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
      sc2:CompleteProcedure()
      local og=tc:GetOverlayGroup():Filter(s.xyzfilter1,nil,tp)
      local g=Duel.GetMatchingGroup(s.xyzfilter2,tp,LOCATION_DECK,0,nil,og)
      if #g>0 and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
      local sg=g:Select(tp,1,1,nil)
      Duel.Overlay(sc2,sg:GetFirst())
      end
      end
      end
      script/c101201076.lua deleted 100644 → 0
      View file @ eebb6834
      --御巫かみかくし
      --Script by 小壶
      local s,id,o=GetID()
      function s.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_EQUIP+CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,id)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.filter(c,tp)
      return c:IsFaceup() and c:IsAbleToChangeControler()
      end
      function s.eqfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x18d)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and s.filter(chkc,tp) end
      if chk==0 then
      local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
      if e:IsHasType(EFFECT_TYPE_ACTIVATE) and not e:GetHandler():IsLocation(LOCATION_SZONE) then ft=ft-1 end
      return ft>0 and Duel.IsExistingTarget(s.filter,tp,0,LOCATION_MZONE,1,nil,tp)
      and Duel.IsExistingMatchingCard(s.eqfilter,tp,LOCATION_MZONE,0,1,nil)
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      Duel.SelectTarget(tp,s.filter,tp,0,LOCATION_MZONE,1,1,nil,tp)
      end
      function s.dafilter(c)
      return c:IsFaceup() and bit.band(c:GetOriginalType(),0x81)==0x81
      end
      function s.dafilter2(c)
      return c:IsFaceup() and c:IsType(TYPE_EQUIP)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsFaceup() and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      local sc=Duel.SelectMatchingCard(tp,s.eqfilter,tp,LOCATION_MZONE,0,1,1,nil):GetFirst()
      if sc and Duel.Equip(tp,tc,sc) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetLabelObject(sc)
      e1:SetValue(s.eqlimit)
      tc:RegisterEffect(e1)
      if Duel.IsExistingMatchingCard(s.dafilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
      and Duel.IsExistingMatchingCard(s.dafilter2,tp,LOCATION_SZONE,0,1,nil)
      and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
      Duel.BreakEffect()
      local d=Duel.GetMatchingGroupCount(s.dafilter2,tp,LOCATION_SZONE,0,nil)*500
      Duel.Damage(1-tp,d,REASON_EFFECT)
      end
      end
      end
      end
      function s.eqlimit(e,c)
      return e:GetLabelObject()==c
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x18d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsFaceupEx()
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND+LOCATION_REMOVED,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_REMOVED)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND+LOCATION_REMOVED,0,1,1,nil,e,tp)
      if g:GetCount()<=0 then return end
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      script/c101201077.lua deleted 100644 → 0
      View file @ eebb6834
      --断絶の落とし穴
      --Script by mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_REMOVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(s.target)
      e1:SetOperation(s.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 s.filter(c,tp)
      return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsAttackBelow(1500) and c:IsSummonPlayer(1-tp)
      and c:IsAbleToRemove(tp,POS_FACEDOWN)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return eg:IsExists(s.filter,1,nil,tp) end
      local g=eg:Filter(s.filter,nil,tp)
      Duel.SetTargetCard(g)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
      end
      function s.rmfilter(c)
      return c:IsFaceup() and c:IsAttackBelow(1500) and c:IsLocation(LOCATION_MZONE)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetTargetsRelateToChain():Filter(s.rmfilter,nil)
      if g:GetCount()>0 then
      Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
      end
      end
      script/c101201078.lua deleted 100644 → 0
      View file @ eebb6834
      --リトル・オポジション
      --Little Opposition
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.filter(c,e,tp,z)
      return c:IsLevelBelow(2)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE,tp,z)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local z=0
      for i=0,4 do
      if Duel.CheckLocation(tp,LOCATION_MZONE,i) and Duel.CheckLocation(1-tp,LOCATION_MZONE,4-i) then z=z|2^i end
      end
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp,z) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
      local s=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,~z)
      local ts=math.log(s,2)
      e:SetLabel(s)
      Duel.Hint(HINT_ZONE,tp,s|2^(4-ts)<<16)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local z=e:GetLabel()
      if Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,z)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sc=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp,z):GetFirst()
      if Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE,z)>0 then
      if sc:IsFacedown() then Duel.ConfirmCards(1-tp,sc) end
      local sq=4-sc:GetSequence()
      local g=Duel.GetMatchingGroup(s.filter,tp,0,LOCATION_DECK+LOCATION_HAND,nil,e,1-tp,2^sq)
      if Duel.CheckLocation(1-tp,LOCATION_MZONE,sq) and #g>0
      and Duel.SelectYesNo(1-tp,aux.Stringid(id,1)) then
      Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
      local sc2=g:Select(1-tp,1,1,nil):GetFirst()
      Duel.BreakEffect()
      Duel.SpecialSummon(sc2,0,1-tp,1-tp,false,false,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE,2^sq)
      if sc2:IsFacedown() then Duel.ConfirmCards(tp,sc2) end
      end
      end
      end
      script/c101201079.lua deleted 100644 → 0
      View file @ eebb6834
      --冥府の合わせ鏡
      --Opposing Mirrors of the Underworld
      --coded by Lyeis
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON+CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_DAMAGE)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e1:SetCondition(s.condition)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function Auxiliary.SelectFromOptions(tp,...)
      local options={...}
      local ops={}
      local opvals={}
      for i=1,#options do
      if options[i][1] then
      table.insert(ops,options[i][2])
      table.insert(opvals,options[i][3] or i)
      end
      end
      if #ops==0 then return nil end
      local select=Duel.SelectOption(tp,table.unpack(ops))
      return opvals[select+1]
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      if ep~=tp then return false end
      return r&REASON_BATTLE>0 and Duel.GetAttacker():IsControler(1-tp) or r&REASON_EFFECT>0 and rp==1-tp
      end
      function s.filter(c,v,e,tp)
      return c:IsAttackBelow(v) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return r&REASON_EFFECT>0 or Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_GRAVE,0,1,nil,ev,e,tp) end
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local ss=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(s.filter),tp,LOCATION_GRAVE,0,1,nil,ev,e,tp)
      local op=0
      if r&(REASON_BATTLE+REASON_EFFECT)==REASON_BATTLE+REASON_EFFECT then
      op=aux.SelectFromOptions(tp,{ss,aux.Stringid(id,1)},{true,aux.Stringid(id,2)})
      elseif r&REASON_BATTLE>0 then
      op=1
      else
      op=2
      end
      if op==1 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil,ev,e,tp)
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      else
      Duel.Damage(1-tp,ev*2,REASON_EFFECT)
      end
      end
      script/c101201080.lua deleted 100644 → 0
      View file @ eebb6834
      --斬リ番
      --Kiriban
      --coded by Lyris
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      Duel.AddCustomActivityCounter(id,ACTIVITY_CHAIN,aux.FALSE)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_CHAINING)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(s.descon)
      e2:SetTarget(s.destg)
      e2:SetOperation(s.desop)
      c:RegisterEffect(e2)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCustomActivityCount(id,tp,ACTIVITY_CHAIN)+Duel.GetCustomActivityCount(id,1-tp,ACTIVITY_CHAIN)>9
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_EFFECT_TRAP_MONSTER,3000,3000,10,RACE_CYBERSE,ATTRIBUTE_DARK) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not (c:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,TYPES_EFFECT_TRAP_MONSTER,3000,3000,10,RACE_CYBERSE,ATTRIBUTE_DARK)) then return end
      c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
      if Duel.SpecialSummonStep(c,SUMMON_VALUE_SELF,tp,tp,true,false,POS_FACEUP) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetCountLimit(1)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetCondition(s.setcon)
      e1:SetOperation(s.setop)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_SELF_TURN)
      c:RegisterEffect(e1,true)
      end
      Duel.SpecialSummonComplete()
      end
      function s.setcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==tp
      end
      function s.setop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsSummonType(SUMMON_TYPE_SPECIAL+SUMMON_VALUE_SELF) then Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end
      end
      function s.descon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
      if chk==0 then return #g>0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:IsCanTurnSet() end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
      if Duel.Destroy(g,REASON_EFFECT)>0 and c:IsRelateToEffect(e) and c:IsLocation(LOCATION_MZONE) then
      Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE)
      end
      end
      script/c101201203.lua deleted 100644 → 0
      View file @ eebb6834
      --コズミック・クェーサー・ドラゴン
      --scripted by Raye
      local s,id,o=GetID()
      function s.initial_effect(c)
      --synchro summon
      aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSynchroType,TYPE_SYNCHRO),aux.NonTuner(Card.IsSynchroType,TYPE_SYNCHRO),2)
      c:EnableReviveLimit()
      --cannot special summon
      local e1=Effect.CreateEffect(c)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetRange(LOCATION_EXTRA)
      e1:SetValue(s.synlimit)
      c:RegisterEffect(e1)
      --disable
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_DISABLE)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetCountLimit(1)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetTarget(s.distg)
      e2:SetOperation(s.disop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_MATERIAL_CHECK)
      e3:SetValue(s.valcheck)
      c:RegisterEffect(e3)
      --special summon
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCost(s.spcost)
      e4:SetTarget(s.sptg)
      e4:SetOperation(s.spop)
      c:RegisterEffect(e4)
      end
      s.material_type=TYPE_SYNCHRO
      function s.synlimit(e,se,sp,st)
      return st&SUMMON_TYPE_SYNCHRO==SUMMON_TYPE_SYNCHRO and not se
      end
      function s.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      local ct=1
      if c:GetFlagEffectLabel(id) then ct=c:GetFlagEffectLabel(id) end
      if chkc then return chkc:IsOnField() and aux.NegateAnyFilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
      local g=Duel.SelectTarget(tp,aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil)
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,ct,0,0)
      end
      function s.disop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local dg=Duel.GetTargetsRelateToChain()
      local tc=dg:GetFirst()
      while tc do
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      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
      tc=dg:GetNext()
      end
      end
      function s.valcheck(e,c)
      c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD,0,1,c:GetMaterialCount()+1)
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
      and aux.bfgcost(e,tp,eg,ep,ev,re,r,rp,0) end
      aux.bfgcost(e,tp,eg,ep,ev,re,r,rp,1)
      end
      function s.spfilter(c,e,tp,ec)
      return c.cosmic_quasar_dragon_summon and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
      and Duel.GetLocationCountFromEx(tp,tp,ec,c)>0
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL)
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,e:GetHandler()) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tc=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil):GetFirst()
      if tc then
      tc:SetMaterial(nil)
      if Duel.SpecialSummon(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)>0 then
      tc:CompleteProcedure()
      end
      end
      end
      script/c101201204.lua deleted 100644 → 0
      View file @ eebb6834
      --赤き竜
      --scripted by Raye
      local s,id,o=GetID()
      function s.initial_effect(c)
      --synchro summon
      aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
      c:EnableReviveLimit()
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.thtg)
      e1:SetOperation(s.thop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_TOEXTRA+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.thfilter(c)
      return aux.IsCodeListed(c,id) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function s.cfilter(c,e,tp)
      return c:IsFaceup() and c:IsLevelAbove(7) and c:IsType(TYPE_SYNCHRO) and not c:IsCode(id)
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetLevel(),e:GetHandler())
      end
      function s.spfilter(c,e,tp,lv,ec)
      return c:IsLevel(lv) and c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_DRAGON)
      and Duel.GetLocationCountFromEx(tp,tp,ec,c)>0
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.cfilter(chkc,e,tp) end
      if chk==0 then return e:GetHandler():IsAbleToExtra()
      and aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL)
      and Duel.IsExistingTarget(s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 and c:IsLocation(LOCATION_EXTRA)
      and tc:IsRelateToEffect(e) and tc:IsFaceup() then
      if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sc=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc:GetLevel(),nil):GetFirst()
      if sc then
      sc:SetMaterial(nil)
      if Duel.SpecialSummon(sc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)>0 then
      sc:CompleteProcedure()
      end
      end
      end
      end
      script/c101201205.lua deleted 100644 → 0
      View file @ eebb6834
      --シンクロ・オーバートップ
      --scripted by Raye
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,101201204)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD)
      e2:SetCode(EVENT_BATTLE_DESTROYED)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(s.spcon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.spfilter(c,e,tp)
      return c:IsType(TYPE_SYNCHRO) and c:IsLevel(7,8) and c:IsRace(RACE_DRAGON)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.spfilter(chkc,e,tp) end
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if chk==0 then return ft>0
      and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,#g,0,0)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      --splimit
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_FIELD)
      e0:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e0:SetTargetRange(1,0)
      e0:SetTarget(s.splimit)
      e0:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e0,tp)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if ft<=0 then return end
      local g=Duel.GetTargetsRelateToChain()
      if #g==0 then return end
      if #g>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
      if #g>ft then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      g=g:Select(tp,ft,ft,nil)
      end
      local tc=g:GetFirst()
      while tc do
      Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LEVEL)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_DISABLE_EFFECT)
      e3:SetValue(RESET_TURN_SET)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e3)
      tc=g:GetNext()
      end
      Duel.SpecialSummonComplete()
      end
      function s.splimit(e,c)
      return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
      end
      function s.cfilter(c,tp)
      return c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousControler(tp)
      and c:GetPreviousTypeOnField()&TYPE_SYNCHRO~=0
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.spfilter2(c,e,tp)
      return c:IsCode(101201204) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.GetFirstMatchingCard(s.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp)
      if tg then
      Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c101201206.lua deleted 100644 → 0
      View file @ eebb6834
      --シンクロ・ワールド
      --scripted by Raye
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,101201204)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --add counter
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetRange(LOCATION_FZONE)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetOperation(s.ctop)
      c:RegisterEffect(e2)
      --increase or decrease lv
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,0))
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_FZONE)
      e3:SetLabel(4)
      e3:SetCost(s.countercost)
      e3:SetTarget(s.lvtg)
      e3:SetOperation(s.lvop)
      c:RegisterEffect(e3)
      --special summon tuner
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_FZONE)
      e4:SetLabel(7)
      e4:SetCost(s.countercost)
      e4:SetTarget(s.sptg1)
      e4:SetOperation(s.spop1)
      c:RegisterEffect(e4)
      --special summon synchro
      local e5=Effect.CreateEffect(c)
      e5:SetDescription(aux.Stringid(id,2))
      e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e5:SetType(EFFECT_TYPE_IGNITION)
      e5:SetRange(LOCATION_FZONE)
      e5:SetLabel(10)
      e5:SetCost(s.countercost)
      e5:SetTarget(s.sptg2)
      e5:SetOperation(s.spop2)
      c:RegisterEffect(e5)
      --special summon
      local e6=Effect.CreateEffect(c)
      e6:SetDescription(aux.Stringid(id,3))
      e6:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e6:SetProperty(EFFECT_FLAG_DELAY)
      e6:SetCode(EVENT_DESTROYED)
      e6:SetCondition(s.spcon)
      e6:SetTarget(s.sptg3)
      e6:SetOperation(s.spop3)
      c:RegisterEffect(e6)
      end
      s.counter_add_list={0x104d}
      function s.ctfilter(c)
      return c:IsFaceup() and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
      end
      function s.ctop(e,tp,eg,ep,ev,re,r,rp)
      if eg:IsExists(s.ctfilter,1,nil) then
      e:GetHandler():AddCounter(0x104d,2)
      end
      end
      function s.countercost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x104d,e:GetLabel(),REASON_COST) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.RemoveCounter(tp,1,0,0x104d,e:GetLabel(),REASON_COST)
      end
      function s.lvfilter(c)
      return c:IsFaceup() and c:GetLevel()>0
      end
      function s.lvtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.lvfilter,tp,LOCATION_MZONE,0,1,nil) end
      end
      function s.lvop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectMatchingCard(tp,s.lvfilter,tp,LOCATION_MZONE,0,1,1,nil)
      local tc=g:GetFirst()
      if tc then
      Duel.HintSelection(g)
      local sel=0
      local lvl=1
      if tc:IsLevel(1) then
      sel=Duel.SelectOption(tp,aux.Stringid(id,4))
      else
      sel=Duel.SelectOption(tp,aux.Stringid(id,4),aux.Stringid(id,5))
      end
      if sel==1 then
      lvl=-1
      end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_LEVEL)
      e1:SetValue(lvl)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      function s.spfilter1(c,e,tp)
      return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.spfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
      end
      function s.spop1(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter1),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.spfilter2(c,e,tp)
      return c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.spfilter2,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
      end
      function s.spop2(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(s.spfilter2),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return rp==1-tp and c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_FZONE) and c:IsReason(REASON_EFFECT)
      end
      function s.spfilter3(c,e,tp)
      return c:IsCode(101201204) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
      end
      function s.sptg3(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.spfilter3,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.spop3(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.GetFirstMatchingCard(s.spfilter3,tp,LOCATION_EXTRA,0,nil,e,tp)
      if tg then
      Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c101201207.lua deleted 100644 → 0
      View file @ eebb6834
      --くず鉄の神像
      --scripted by Raye
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,101201204)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_DESTROYED)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(s.spcon)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.filter(c,e,tp)
      return c:IsRace(RACE_DRAGON) and c:IsType(TYPE_SYNCHRO) and c:IsLevel(7,8)
      and c:IsFaceupEx() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and s.filter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      local fid=e:GetHandler():GetFieldID()
      if tc:IsRelateToEffect(e) and aux.NecroValleyFilter()(tc) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1,fid)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetCountLimit(1)
      e1:SetLabel(fid)
      e1:SetLabelObject(tc)
      e1:SetCondition(s.tdcon)
      e1:SetOperation(s.tdop)
      Duel.RegisterEffect(e1,tp)
      end
      if c:IsRelateToEffect(e) and c:IsCanTurnSet() then
      Duel.BreakEffect()
      c:CancelToGrave()
      Duel.ChangePosition(c,POS_FACEDOWN)
      Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
      end
      end
      function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      if tc:GetFlagEffectLabel(id)~=e:GetLabel() then
      e:Reset()
      return false
      else return true end
      end
      function s.tdop(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return rp==1-tp and c:IsPreviousControler(tp) and c:IsPreviousPosition(POS_FACEDOWN)
      and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsReason(REASON_EFFECT)
      end
      function s.spfilter(c,e,tp)
      return c:IsCode(101201204) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.GetFirstMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
      if tg then
      Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c12289247.lua deleted 100644 → 0
      View file @ eebb6834
      --クロノグラフ・マジシャン
      function c12289247.initial_effect(c)
      aux.AddCodeList(c,13331639)
      aux.EnablePendulumAttribute(c)
      --pendulum set/spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(12289247,0))
      e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1,12289247)
      e1:SetTarget(c12289247.rptg)
      e1:SetOperation(c12289247.rpop)
      c:RegisterEffect(e1)
      --Special Summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(12289247,3))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_CUSTOM+12289247)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_HAND)
      e2:SetCondition(c12289247.spcon)
      e2:SetTarget(c12289247.sptg)
      e2:SetOperation(c12289247.spop)
      c:RegisterEffect(e2)
      --special summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(12289247,5))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCost(c12289247.hncost)
      e3:SetTarget(c12289247.hntg)
      e3:SetOperation(c12289247.hnop)
      c:RegisterEffect(e3)
      if not c12289247.global_check then
      c12289247.global_check=true
      local ge1=Effect.CreateEffect(c)
      ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge1:SetCode(EVENT_DESTROYED)
      ge1:SetCondition(c12289247.regcon)
      ge1:SetOperation(c12289247.regop)
      Duel.RegisterEffect(ge1,0)
      end
      end
      c12289247.hnchecks=aux.CreateChecks(Card.IsSetCard,{0x10f2,0x2073,0x2017,0x1046})
      function c12289247.spcfilter(c,tp)
      return c:IsReason(REASON_BATTLE+REASON_EFFECT)
      and c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function c12289247.regcon(e,tp,eg,ep,ev,re,r,rp)
      local v=0
      if eg:IsExists(c12289247.spcfilter,1,nil,0) then v=v+1 end
      if eg:IsExists(c12289247.spcfilter,1,nil,1) then v=v+2 end
      if v==0 then return false end
      e:SetLabel(({0,1,PLAYER_ALL})[v])
      return true
      end
      function c12289247.regop(e,tp,eg,ep,ev,re,r,rp)
      Duel.RaiseEvent(eg,EVENT_CUSTOM+12289247,re,r,rp,ep,e:GetLabel())
      end
      function c12289247.rpfilter(c,e,tp)
      return c:IsCode(20409757) and (not c:IsForbidden()
      or (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
      end
      function c12289247.rptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c12289247.rpfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
      end
      function c12289247.rpop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(12289247,6))
      local g=Duel.SelectMatchingCard(tp,c12289247.rpfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
      local tc=g:GetFirst()
      local op=0
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
      op=Duel.SelectOption(tp,aux.Stringid(12289247,1),aux.Stringid(12289247,2))
      else
      op=Duel.SelectOption(tp,aux.Stringid(12289247,1))
      end
      if op==0 then
      Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      else
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      function c12289247.spcon(e,tp,eg,ep,ev,re,r,rp)
      return ev==tp or ev==PLAYER_ALL
      end
      function c12289247.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function c12289247.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 then
      return
      end
      local g=Duel.GetMatchingGroup(Card.IsCanBeSpecialSummoned,tp,LOCATION_HAND,0,nil,e,0,tp,false,false)
      if g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.SelectYesNo(tp,aux.Stringid(12289247,4)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g:Select(tp,1,1,nil)
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c12289247.cfilter(c)
      return c:IsSetCard(0x10f2,0x2073,0x2017,0x1046)
      and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
      and (not c:IsLocation(LOCATION_MZONE) or c:IsFaceup())
      end
      function c12289247.hngoal(g,e,tp,c)
      local sg=Group.FromCards(c)
      sg:Merge(g)
      return Duel.IsExistingMatchingCard(c12289247.hnfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,sg)
      end
      function c12289247.hnfilter(c,e,tp,sg)
      return c:IsCode(13331639) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial()
      and (not sg or Duel.GetLocationCountFromEx(tp,tp,sg,c)>0)
      end
      function c12289247.hncost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local mg=Duel.GetMatchingGroup(c12289247.cfilter,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE,0,nil)
      if chk==0 then return c:IsAbleToRemoveAsCost()
      and Duel.IsExistingMatchingCard(c12289247.hnfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp)
      and mg:CheckSubGroupEach(c12289247.hnchecks,c12289247.hngoal,e,tp,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local sg=mg:SelectSubGroupEach(tp,c12289247.hnchecks,false,c12289247.hngoal,e,tp,c)
      sg:AddCard(c)
      Duel.Remove(sg,POS_FACEUP,REASON_COST)
      end
      function c12289247.hntg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_FMATERIAL) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function c12289247.hnop(e,tp,eg,ep,ev,re,r,rp)
      if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_FMATERIAL) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,c12289247.hnfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
      local tc=g:GetFirst()
      if tc then
      tc:SetMaterial(nil)
      Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
      tc:CompleteProcedure()
      end
      end
      script/c18634367.lua deleted 100644 → 0
      View file @ eebb6834
      --スクリーン・オブ・レッド
      function c18634367.initial_effect(c)
      aux.AddCodeList(c,70902743)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,0x28)
      c:RegisterEffect(e1)
      --cannot attack
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
      e2:SetRange(LOCATION_SZONE)
      e2:SetTargetRange(0,LOCATION_MZONE)
      c:RegisterEffect(e2)
      --maintain
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e3:SetCode(EVENT_PHASE+PHASE_END)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1)
      e3:SetCondition(c18634367.mtcon)
      e3:SetOperation(c18634367.mtop)
      c:RegisterEffect(e3)
      --spsummon
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(18634367,0))
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetHintTiming(0,TIMING_END_PHASE)
      e4:SetRange(LOCATION_SZONE)
      e4:SetCondition(c18634367.spcon)
      e4:SetTarget(c18634367.sptg)
      e4:SetOperation(c18634367.spop)
      c:RegisterEffect(e4)
      end
      function c18634367.mtcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==tp
      end
      function c18634367.mtop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.CheckLPCost(tp,1000) then
      Duel.PayLPCost(tp,1000)
      else
      Duel.Destroy(e:GetHandler(),REASON_COST)
      end
      end
      function c18634367.cfilter(c)
      return c:IsFaceup() and c:IsCode(70902743)
      end
      function c18634367.spcon(e,tp,eg,ep,ev,re,r,rp)
      return not e:GetHandler():IsStatus(STATUS_CHAINING)
      and Duel.IsExistingMatchingCard(c18634367.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
      end
      function c18634367.filter(c,e,tp)
      return c:IsLevel(1) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c18634367.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c18634367.filter(chkc,e,tp) end
      if chk==0 then return e:GetHandler():IsDestructable() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c18634367.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c18634367.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c18634367.spop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.IsExistingMatchingCard(c18634367.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then return end
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)~=0 and tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c21123811.lua deleted 100644 → 0
      View file @ eebb6834
      --コズミック・ブレイザー・ドラゴン
      function c21123811.initial_effect(c)
      --synchro summon
      aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSynchroType,TYPE_SYNCHRO),aux.NonTuner(Card.IsSynchroType,TYPE_SYNCHRO),2)
      c:EnableReviveLimit()
      --cannot special summon
      local e1=Effect.CreateEffect(c)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetValue(aux.synlimit)
      c:RegisterEffect(e1)
      --negate
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(21123811,0))
      e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_CHAINING)
      e2:SetCountLimit(1)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(c21123811.discon)
      e2:SetCost(c21123811.cost)
      e2:SetTarget(c21123811.distg)
      e2:SetOperation(c21123811.disop)
      c:RegisterEffect(e2)
      --disable spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(21123811,1))
      e3:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EVENT_SUMMON)
      e3:SetCondition(c21123811.dscon)
      e3:SetCost(c21123811.cost)
      e3:SetTarget(c21123811.dstg)
      e3:SetOperation(c21123811.dsop)
      c:RegisterEffect(e3)
      local e4=e3:Clone()
      e4:SetCode(EVENT_FLIP_SUMMON)
      c:RegisterEffect(e4)
      local e5=e3:Clone()
      e5:SetCode(EVENT_SPSUMMON)
      c:RegisterEffect(e5)
      --negate attack
      local e6=Effect.CreateEffect(c)
      e6:SetDescription(aux.Stringid(21123811,2))
      e6:SetType(EFFECT_TYPE_QUICK_O)
      e6:SetRange(LOCATION_MZONE)
      e6:SetCode(EVENT_ATTACK_ANNOUNCE)
      e6:SetCountLimit(1)
      e6:SetCondition(c21123811.negcon)
      e6:SetCost(c21123811.cost)
      e6:SetOperation(c21123811.negop)
      c:RegisterEffect(e6)
      end
      c21123811.material_type=TYPE_SYNCHRO
      c21123811.cosmic_quasar_dragon_summon=true
      function c21123811.discon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev)
      end
      function c21123811.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToRemoveAsCost() end
      if Duel.Remove(c,0,REASON_COST+REASON_TEMPORARY)~=0 then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetReset(RESET_PHASE+PHASE_END)
      e1:SetLabelObject(c)
      e1:SetCountLimit(1)
      e1:SetOperation(c21123811.retop)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function c21123811.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 c21123811.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 c21123811.dscon(e,tp,eg,ep,ev,re,r,rp)
      return ep==1-tp and Duel.GetCurrentChain()==0
      end
      function c21123811.dstg(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_DESTROY,eg,eg:GetCount(),0,0)
      end
      function c21123811.dsop(e,tp,eg,ep,ev,re,r,rp)
      Duel.NegateSummon(eg)
      Duel.Destroy(eg,REASON_EFFECT)
      end
      function c21123811.negcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetAttacker():IsControler(1-tp)
      end
      function c21123811.negop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.NegateAttack() then
      Duel.BreakEffect()
      Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE_STEP,1)
      end
      end
      function c21123811.retop(e,tp,eg,ep,ev,re,r,rp)
      Duel.ReturnToField(e:GetLabelObject())
      end
      script/c22211622.lua deleted 100644 → 0
      View file @ eebb6834
      --覇王門無限
      function c22211622.initial_effect(c)
      aux.AddCodeList(c,13331639)
      aux.EnablePendulumAttribute(c)
      --splimit
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
      e1:SetTargetRange(1,0)
      e1:SetCondition(c22211622.splimcon)
      e1:SetTarget(c22211622.splimit)
      c:RegisterEffect(e1)
      --gain lp
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(22211622,0))
      e2:SetCategory(CATEGORY_RECOVER)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_PZONE)
      e2:SetCountLimit(1)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCondition(c22211622.rccon)
      e2:SetTarget(c22211622.rctg)
      e2:SetOperation(c22211622.rcop)
      c:RegisterEffect(e2)
      --special summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(22211622,1))
      e3:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCountLimit(1)
      e3:SetTarget(c22211622.sptg)
      e3:SetOperation(c22211622.spop)
      c:RegisterEffect(e3)
      --pendulum
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(22211622,2))
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_DESTROYED)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetCondition(c22211622.pencon)
      e4:SetTarget(c22211622.pentg)
      e4:SetOperation(c22211622.penop)
      c:RegisterEffect(e4)
      end
      function c22211622.splimcon(e)
      return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,0)>0
      end
      function c22211622.splimit(e,c,sump,sumtype,sumpos,targetp)
      return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
      end
      function c22211622.rccfilter(c)
      return c:IsFaceup() and c:IsCode(13331639)
      end
      function c22211622.rccon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c22211622.rccfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function c22211622.rcfilter(c)
      return c:IsFaceup() and c:GetAttack()>0
      end
      function c22211622.rctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c22211622.rcfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c22211622.rcfilter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,c22211622.rcfilter,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,g:GetFirst():GetAttack())
      end
      function c22211622.rcop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if e:GetHandler():IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then
      Duel.Recover(tp,tc:GetAttack(),REASON_EFFECT)
      end
      end
      function c22211622.desfilter(c,e,tp,mc)
      return c:IsFaceup() and Duel.IsExistingMatchingCard(c22211622.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,Group.FromCards(c,mc))
      end
      function c22211622.spfilter(c,e,tp,dg)
      return c:IsType(TYPE_XYZ+TYPE_PENDULUM) and c:IsRace(RACE_DRAGON)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,dg,c)>0
      end
      function c22211622.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c22211622.desfilter(chkc,e,tp,c) and chkc~=c end
      if chk==0 then return Duel.IsExistingTarget(c22211622.desfilter,tp,LOCATION_ONFIELD,0,1,c,e,tp,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,c22211622.desfilter,tp,LOCATION_ONFIELD,0,1,1,c,e,tp,c)
      g:AddCard(c)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function c22211622.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if not c:IsRelateToEffect(e) or not tc:IsRelateToEffect(e) then return end
      local dg=Group.FromCards(c,tc)
      if Duel.Destroy(dg,REASON_EFFECT)==2 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,c22211622.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
      if g:GetCount()==0 then return end
      local sc=g:GetFirst()
      if Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEUP) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      sc:RegisterEffect(e1,true)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      sc:RegisterEffect(e2,true)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_SET_ATTACK_FINAL)
      e3:SetValue(0)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD)
      sc:RegisterEffect(e3,true)
      local e4=e3:Clone()
      e4:SetCode(EFFECT_SET_DEFENSE_FINAL)
      sc:RegisterEffect(e4,true)
      local e5=e3:Clone()
      e5:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
      e5:SetValue(1)
      sc:RegisterEffect(e5,true)
      local e6=e5:Clone()
      e6:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
      sc:RegisterEffect(e6,true)
      end
      Duel.SpecialSummonComplete()
      end
      end
      function c22211622.pencon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
      end
      function c22211622.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function c22211622.penop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      script/c22390469.lua deleted 100644 → 0
      View file @ eebb6834
      --Gold Pride - Star Leon
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,23512906)
      --synchro summon
      aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
      c:EnableReviveLimit()
      --atk up
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.atkcon)
      e1:SetTarget(s.atktg)
      e1:SetOperation(s.atkop)
      c:RegisterEffect(e1)
      --sp summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_TOEXTRA+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
      e2:SetCode(EVENT_PHASE+PHASE_END)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(s.tdcon)
      e2:SetTarget(s.tdtg)
      e2:SetOperation(s.tdop)
      c:RegisterEffect(e2)
      end
      function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function s.atkfilter(c)
      return c:IsFaceup() and c:GetBaseAttack()>0
      end
      function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and s.atkfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.atkfilter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,s.atkfilter,tp,0,LOCATION_MZONE,1,1,nil)
      e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
      end
      function s.atkop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      local atk=tc:GetBaseAttack()
      if c:IsRelateToEffect(e) and c:IsFaceup()
      and tc:IsFaceup() and tc:IsRelateToEffect(e) and atk>0 then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(atk)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      c:RegisterEffect(e1)
      if Duel.GetLP(tp)<Duel.GetLP(1-tp) and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
      Duel.BreakEffect()
      Duel.Destroy(tc,REASON_EFFECT)
      end
      end
      end
      function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():GetFlagEffect(id)>0
      end
      function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_DECK)
      end
      function s.spfilter(c,e,tp)
      return c:IsCode(23512906) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.tdop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsExtraDeckMonster()
      and Duel.SendtoDeck(c,nil,SEQ_DECKTOP,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_EXTRA)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      script/c23232295.lua deleted 100644 → 0
      View file @ eebb6834
      --BK 拘束蛮兵リードブロー
      function c23232295.initial_effect(c)
      Duel.EnableGlobalFlag(GLOBALFLAG_DETACH_EVENT)
      --xyz summon
      aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x1084),4,2)
      c:EnableReviveLimit()
      --destroy replace
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EFFECT_DESTROY_REPLACE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTarget(c23232295.reptg)
      e1:SetValue(c23232295.repval)
      c:RegisterEffect(e1)
      --attack up
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(23232295,0))
      e2:SetCategory(CATEGORY_ATKCHANGE)
      e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE)
      e2:SetCode(EVENT_DETACH_MATERIAL)
      e2:SetTarget(c23232295.atktg)
      e2:SetOperation(c23232295.atkop)
      c:RegisterEffect(e2)
      end
      function c23232295.repfilter(c,tp)
      return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsSetCard(0x1084)
      and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
      end
      function c23232295.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return eg:IsExists(c23232295.repfilter,1,nil,tp) end
      if e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT) and Duel.SelectEffectYesNo(tp,e:GetHandler(),96) then
      e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT)
      local g=eg:Filter(c23232295.repfilter,nil,tp)
      if g:GetCount()==1 then
      e:SetLabelObject(g:GetFirst())
      else
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESREPLACE)
      local cg=g:Select(tp,1,1,nil)
      e:SetLabelObject(cg:GetFirst())
      end
      return true
      else return false end
      end
      function c23232295.repval(e,c)
      return c==e:GetLabelObject()
      end
      function c23232295.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsRelateToEffect(e) end
      end
      function c23232295.atkop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsFaceup() then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e1:SetValue(800)
      c:RegisterEffect(e1)
      end
      end
      script/c24184846.lua deleted 100644 → 0
      View file @ eebb6834
      --BK リベージ・ガードナー
      function c24184846.initial_effect(c)
      --remove
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(24184846,0))
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCategory(CATEGORY_REMOVE)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCost(c24184846.rmcost)
      e1:SetTarget(c24184846.rmtg)
      e1:SetOperation(c24184846.rmop)
      c:RegisterEffect(e1)
      end
      function c24184846.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
      Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
      end
      function c24184846.filter(c)
      return c:IsFaceup() and c:IsSetCard(0x1084) and c:IsAbleToRemove()
      end
      function c24184846.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c24184846.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c24184846.filter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectTarget(tp,c24184846.filter,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      end
      function c24184846.rmop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      if Duel.Remove(tc,0,REASON_EFFECT+REASON_TEMPORARY)==0 then return end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e1:SetCountLimit(1)
      e1:SetLabelObject(tc)
      e1:SetCondition(c24184846.retcon)
      e1:SetOperation(c24184846.retop)
      if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_DRAW then
      e1:SetLabel(0)
      else
      e1:SetLabel(Duel.GetTurnCount())
      end
      Duel.RegisterEffect(e1,tp)
      end
      end
      function c24184846.retcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==tp and Duel.GetTurnCount()~=e:GetLabel()
      end
      function c24184846.retop(e,tp,eg,ep,ev,re,r,rp)
      Duel.ReturnToField(e:GetLabelObject())
      e:Reset()
      end
      script/c24566654.lua deleted 100644 → 0
      View file @ eebb6834
      --クリムゾン・ヘルフレア
      function c24566654.initial_effect(c)
      aux.AddCodeList(c,70902743)
      --reflect
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCondition(c24566654.condition)
      e1:SetOperation(c24566654.operation)
      c:RegisterEffect(e1)
      end
      function c24566654.cfilter(c)
      return c:IsFaceup() and c:IsCode(70902743)
      end
      function c24566654.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c24566654.cfilter,tp,LOCATION_ONFIELD,0,1,nil) and ep~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE)
      and aux.damcon1(e,tp,eg,ep,ev,re,r,rp)
      end
      function c24566654.operation(e,tp,eg,ep,ev,re,r,rp)
      local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_REFLECT_DAMAGE)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetLabel(cid)
      e1:SetValue(c24566654.refcon)
      e1:SetReset(RESET_CHAIN)
      Duel.RegisterEffect(e1,tp)
      local e2=Effect.CreateEffect(e:GetHandler())
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_CHANGE_DAMAGE)
      e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e2:SetTargetRange(0,1)
      e2:SetLabel(cid)
      e2:SetValue(c24566654.dammul)
      e2:SetReset(RESET_CHAIN)
      Duel.RegisterEffect(e2,tp)
      end
      function c24566654.refcon(e,re,val,r,rp,rc)
      local cc=Duel.GetCurrentChain()
      if cc==0 or bit.band(r,REASON_EFFECT)==0 then return end
      local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
      return cid==e:GetLabel()
      end
      function c24566654.dammul(e,re,val,r,rp,rc)
      local cc=Duel.GetCurrentChain()
      if cc==0 or bit.band(r,REASON_EFFECT)==0 then return end
      local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
      return cid==e:GetLabel() and val*2 or val
      end
      script/c2542230.lua deleted 100644 → 0
      View file @ eebb6834
      --スカーレッド・コクーン
      function c2542230.initial_effect(c)
      aux.AddCodeList(c,70902743)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_EQUIP)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCost(c2542230.cost)
      e1:SetTarget(c2542230.target)
      e1:SetOperation(c2542230.activate)
      c:RegisterEffect(e1)
      --to grave
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetOperation(c2542230.regop)
      c:RegisterEffect(e2)
      --
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(2542230,0))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetHintTiming(TIMING_END_PHASE)
      e3:SetCountLimit(1)
      e3:SetCondition(c2542230.spcon)
      e3:SetTarget(c2542230.sptg)
      e3:SetOperation(c2542230.spop)
      c:RegisterEffect(e3)
      end
      function c2542230.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local c=e:GetHandler()
      local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_REMAIN_FIELD)
      e1:SetProperty(EFFECT_FLAG_OATH)
      e1:SetReset(RESET_CHAIN)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_CHAIN_DISABLED)
      e2:SetOperation(c2542230.tgop)
      e2:SetLabel(cid)
      e2:SetReset(RESET_CHAIN)
      Duel.RegisterEffect(e2,tp)
      end
      function c2542230.tgop(e,tp,eg,ep,ev,re,r,rp)
      local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
      if cid~=e:GetLabel() then return end
      if e:GetOwner():IsRelateToChain(ev) then
      e:GetOwner():CancelToGrave(false)
      end
      end
      function c2542230.filter(c)
      return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsType(TYPE_SYNCHRO)
      end
      function c2542230.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c2542230.filter(chkc) end
      if chk==0 then return e:IsHasType(EFFECT_TYPE_ACTIVATE)
      and Duel.IsExistingTarget(c2542230.filter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      Duel.SelectTarget(tp,c2542230.filter,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
      end
      function c2542230.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsLocation(LOCATION_SZONE) then return end
      if not c:IsRelateToEffect(e) or c:IsStatus(STATUS_LEAVE_CONFIRMED) then return end
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsFaceup() then
      Duel.Equip(tp,c,tc)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetValue(c2542230.eqlimit)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_DISABLE)
      e2:SetRange(LOCATION_SZONE)
      e2:SetTargetRange(0,LOCATION_MZONE)
      e2:SetCondition(c2542230.discon)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e2)
      Duel.AdjustInstantly(c)
      else
      c:CancelToGrave(false)
      end
      end
      function c2542230.eqlimit(e,c)
      return c:GetControler()==e:GetHandlerPlayer() or e:GetHandler():GetEquipTarget()==c
      end
      function c2542230.discon(e)
      local ec=e:GetHandler():GetEquipTarget()
      return Duel.GetAttacker()==ec or Duel.GetAttackTarget()==ec
      end
      function c2542230.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      c:RegisterFlagEffect(2542230,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
      end
      function c2542230.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:GetFlagEffect(2542230)~=0 and Duel.GetCurrentPhase()==PHASE_END
      end
      function c2542230.spfilter(c,e,tp)
      return c:IsCode(70902743) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c2542230.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c2542230.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c2542230.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c2542230.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c2542230.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c26268488.lua deleted 100644 → 0
      View file @ eebb6834
      --聖珖神竜 スターダスト・シフル
      function c26268488.initial_effect(c)
      --synchro summon
      aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSynchroType,TYPE_SYNCHRO),aux.NonTuner(Card.IsSynchroType,TYPE_SYNCHRO),2)
      c:EnableReviveLimit()
      --cannot special summon
      local e1=Effect.CreateEffect(c)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetValue(aux.synlimit)
      c:RegisterEffect(e1)
      --indes
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
      e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
      e2:SetRange(LOCATION_MZONE)
      e2:SetTargetRange(LOCATION_ONFIELD,0)
      e2:SetValue(c26268488.indct)
      c:RegisterEffect(e2)
      --disable
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(26268488,0))
      e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DISABLE)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_CHAINING)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCondition(c26268488.discon)
      e3:SetTarget(c26268488.distg)
      e3:SetOperation(c26268488.disop)
      c:RegisterEffect(e3)
      --spsummon
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(26268488,1))
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_GRAVE)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e4:SetCost(aux.bfgcost)
      e4:SetTarget(c26268488.sptg)
      e4:SetOperation(c26268488.spop)
      c:RegisterEffect(e4)
      end
      c26268488.material_type=TYPE_SYNCHRO
      c26268488.cosmic_quasar_dragon_summon=true
      function c26268488.indct(e,re,r,rp)
      if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 then
      return 1
      else return 0 end
      end
      function c26268488.discon(e,tp,eg,ep,ev,re,r,rp)
      return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and rp==1-tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev)
      end
      function c26268488.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function c26268488.disop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.NegateEffect(ev) then return end
      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
      function c26268488.spfilter(c,e,tp)
      return c:IsSetCard(0xa3) and c:IsLevelBelow(8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c26268488.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c26268488.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c26268488.spfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c26268488.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c26268488.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c32750341.lua deleted 100644 → 0
      View file @ eebb6834
      --BK スパー
      function c32750341.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(c32750341.spcon)
      e1:SetOperation(c32750341.spop)
      c:RegisterEffect(e1)
      end
      function c32750341.filter(c)
      return c:IsFaceup() and c:IsSetCard(0x1084)
      end
      function c32750341.spcon(e,c)
      if c==nil then return true end
      return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and
      Duel.IsExistingMatchingCard(c32750341.filter,c:GetControler(),LOCATION_MZONE,0,1,nil)
      end
      function c32750341.spop(e,tp,eg,ep,ev,re,r,rp,c)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_BP)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
      e1:SetTargetRange(1,0)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      script/c35537251.lua deleted 100644 → 0
      View file @ eebb6834
      --BK シャドー
      function c35537251.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(35537251,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,35537251)
      e1:SetTarget(c35537251.sptg)
      e1:SetOperation(c35537251.spop)
      c:RegisterEffect(e1)
      end
      function c35537251.cfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x1084) and c:IsType(TYPE_XYZ)
      end
      function c35537251.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local g=Group.CreateGroup()
      local mg=Duel.GetMatchingGroup(c35537251.cfilter,tp,LOCATION_MZONE,0,nil)
      local tc=mg:GetFirst()
      while tc do
      g:Merge(tc:GetOverlayGroup())
      tc=mg:GetNext()
      end
      if g:GetCount()==0 then return false end
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c35537251.spop(e,tp,eg,ep,ev,re,r,rp)
      local g=Group.CreateGroup()
      local mg=Duel.GetMatchingGroup(c35537251.cfilter,tp,LOCATION_MZONE,0,nil)
      local tc=mg:GetFirst()
      while tc do
      g:Merge(tc:GetOverlayGroup())
      tc=mg:GetNext()
      end
      if g:GetCount()==0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVEXYZ)
      local sg=g:Select(tp,1,1,nil)
      Duel.SendtoGrave(sg,REASON_EFFECT)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      script/c35952884.lua deleted 100644 → 0
      View file @ eebb6834
      --シューティング・クェーサー・ドラゴン
      function c35952884.initial_effect(c)
      --synchro summon
      aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSynchroType,TYPE_SYNCHRO),aux.NonTuner(Card.IsSynchroType,TYPE_SYNCHRO),2)
      c:EnableReviveLimit()
      --cannot special summon
      local e1=Effect.CreateEffect(c)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetValue(aux.synlimit)
      c:RegisterEffect(e1)
      --multi attack
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetCondition(c35952884.mtcon)
      e2:SetOperation(c35952884.mtop)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_MATERIAL_CHECK)
      e3:SetValue(c35952884.valcheck)
      e3:SetLabelObject(e2)
      c:RegisterEffect(e3)
      --negate
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(35952884,0))
      e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_CHAINING)
      e3:SetCountLimit(1)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCondition(c35952884.discon)
      e3:SetTarget(c35952884.distg)
      e3:SetOperation(c35952884.disop)
      c:RegisterEffect(e3)
      --Special Summon
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(35952884,1))
      e4:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e4:SetCode(EVENT_LEAVE_FIELD)
      e4:SetCondition(c35952884.sumcon)
      e4:SetTarget(c35952884.sumtg)
      e4:SetOperation(c35952884.sumop)
      c:RegisterEffect(e4)
      end
      c35952884.material_type=TYPE_SYNCHRO
      c35952884.cosmic_quasar_dragon_summon=true
      function c35952884.valcheck(e,c)
      e:GetLabelObject():SetLabel(c:GetMaterialCount()-1)
      end
      function c35952884.mtcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) and e:GetLabel()>0
      end
      function c35952884.mtop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=e:GetLabel()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EXTRA_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e1:SetValue(ct-1)
      c:RegisterEffect(e1)
      end
      function c35952884.discon(e,tp,eg,ep,ev,re,r,rp)
      return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev)
      end
      function c35952884.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 c35952884.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 c35952884.sumcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousPosition(POS_FACEUP) and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
      end
      function c35952884.filter(c,e,tp)
      return c:IsCode(24696097) and c:IsCanBeSpecialSummoned(e,0,tp,false,true) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
      end
      function c35952884.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c35952884.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function c35952884.sumop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.GetFirstMatchingCard(c35952884.filter,tp,LOCATION_EXTRA,0,nil,e,tp)
      if tg then
      Duel.SpecialSummon(tg,0,tp,tp,false,true,POS_FACEUP)
      end
      end
      script/c36916401.lua deleted 100644 → 0
      View file @ eebb6834
      --バーニングナックル・スピリッツ
      function c36916401.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,36916401+EFFECT_COUNT_CODE_OATH)
      e1:SetCost(c36916401.cost)
      e1:SetTarget(c36916401.target)
      e1:SetOperation(c36916401.operation)
      c:RegisterEffect(e1)
      end
      function c36916401.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDiscardDeckAsCost(tp,1) end
      Duel.DiscardDeck(tp,1,REASON_COST)
      end
      function c36916401.filter(c,e,tp)
      return c:IsSetCard(0x1084) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
      end
      function c36916401.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c36916401.filter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c36916401.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c36916401.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c36916401.operation(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
      end
      end
      script/c4549095.lua deleted 100644 → 0
      View file @ eebb6834
      --BK カウンターブロー
      function c4549095.initial_effect(c)
      --atkup
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetDescription(aux.Stringid(4549095,0))
      e1:SetCategory(CATEGORY_ATKCHANGE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(TIMING_DAMAGE_STEP)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
      e1:SetCountLimit(1,4549095)
      e1:SetCondition(c4549095.condition)
      e1:SetCost(c4549095.cost)
      e1:SetOperation(c4549095.operation)
      c:RegisterEffect(e1)
      end
      function c4549095.condition(e,tp,eg,ep,ev,re,r,rp)
      local phase=Duel.GetCurrentPhase()
      if phase~=PHASE_DAMAGE or Duel.IsDamageCalculated() then return false end
      local a=Duel.GetAttacker()
      local d=Duel.GetAttackTarget()
      return (a:IsControler(tp) and a:IsSetCard(0x1084) and a:IsRelateToBattle())
      or (d and d:IsControler(tp) and d:IsSetCard(0x1084) and d:IsRelateToBattle())
      end
      function c4549095.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
      Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
      end
      function c4549095.operation(e,tp,eg,ep,ev,re,r,rp)
      local a=Duel.GetAttacker()
      if Duel.GetTurnPlayer()~=tp then a=Duel.GetAttackTarget() end
      if not a:IsRelateToBattle() then return end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e1:SetValue(1000)
      a:RegisterEffect(e1)
      end
      script/c50215517.lua deleted 100644 → 0
      View file @ eebb6834
      --クリムゾン・ヘル・セキュア
      function c50215517.initial_effect(c)
      aux.AddCodeList(c,70902743)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCondition(c50215517.condition)
      e1:SetTarget(c50215517.target)
      e1:SetOperation(c50215517.activate)
      c:RegisterEffect(e1)
      end
      function c50215517.cfilter(c)
      return c:IsFaceup() and c:IsCode(70902743)
      end
      function c50215517.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c50215517.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function c50215517.filter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP)
      end
      function c50215517.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c50215517.filter,tp,0,LOCATION_ONFIELD,1,nil) end
      local sg=Duel.GetMatchingGroup(c50215517.filter,tp,0,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
      end
      function c50215517.activate(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(c50215517.filter,tp,0,LOCATION_ONFIELD,aux.ExceptThisCard(e))
      Duel.Destroy(sg,REASON_EFFECT)
      end
      script/c5361647.lua deleted 100644 → 0
      View file @ eebb6834
      --BK グラスジョー
      function c5361647.initial_effect(c)
      --destroy
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(5361647,0))
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e1:SetCode(EVENT_BE_BATTLE_TARGET)
      e1:SetTarget(c5361647.destg)
      e1:SetOperation(c5361647.desop)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(5361647,1))
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCondition(c5361647.thcon)
      e2:SetTarget(c5361647.thtg)
      e2:SetOperation(c5361647.thop)
      c:RegisterEffect(e2)
      end
      function c5361647.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
      end
      function c5361647.desop(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsRelateToEffect(e) then
      Duel.Destroy(e:GetHandler(),REASON_EFFECT)
      end
      end
      function c5361647.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsReason(REASON_EFFECT)
      end
      function c5361647.filter(c)
      return c:IsSetCard(0x1084) and not c:IsCode(5361647) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c5361647.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c5361647.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c5361647.filter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,c5361647.filter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c5361647.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tc)
      end
      end
      script/c58884063.lua deleted 100644 → 0
      View file @ eebb6834
      --Gold Pride - Nytro Blaster
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,59900655)
      --link summon
      aux.AddLinkProcedure(c,s.mfilter,2,2,s.lcheck)
      c:EnableReviveLimit()
      --destroy
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,id)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTarget(s.destg)
      e1:SetOperation(s.desop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,2))
      e2:SetCategory(CATEGORY_TOEXTRA+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
      e2:SetCode(EVENT_PHASE+PHASE_END)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(s.tdcon)
      e2:SetTarget(s.tdtg)
      e2:SetOperation(s.tdop)
      c:RegisterEffect(e2)
      end
      function s.mfilter(c)
      return c:IsLevelAbove(0) and c:IsLinkSetCard(0x192)
      end
      function s.lcheck(g,lc)
      return g:GetClassCount(Card.GetLevel)==g:GetCount()
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end
      if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
      end
      function s.desfilter(c,tp,seq)
      local sseq=c:GetSequence()
      if c:IsControler(tp) then
      return sseq==5 and seq==3 or sseq==6 and seq==1
      end
      if c:IsLocation(LOCATION_SZONE) then
      return sseq<5 and sseq==seq
      end
      if sseq<5 then
      return math.abs(sseq-seq)==1
      end
      if sseq>=5 then
      return sseq==5 and seq==1 or sseq==6 and seq==3
      end
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      local cg=Duel.GetMatchingGroup(s.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,tc,tp,tc:GetSequence())
      if Duel.Destroy(tc,REASON_EFFECT)~=0 and Duel.GetLP(tp)<Duel.GetLP(1-tp) and #cg>0
      and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
      Duel.BreakEffect()
      Duel.Destroy(cg,REASON_EFFECT)
      end
      end
      end
      function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():GetFlagEffect(id)>0
      end
      function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_DECK)
      end
      function s.spfilter(c,e,tp)
      return c:IsCode(59900655) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.tdop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsExtraDeckMonster()
      and Duel.SendtoDeck(c,nil,SEQ_DECKTOP,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_EXTRA)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      script/c59627393.lua deleted 100644 → 0
      View file @ eebb6834
      --No.105 BK 流星のセスタス
      function c59627393.initial_effect(c)
      --xyz summon
      aux.AddXyzProcedure(c,nil,4,3)
      c:EnableReviveLimit()
      --attack up
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(59627393,0))
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(TIMING_BATTLE_PHASE)
      e1:SetCondition(c59627393.condition)
      e1:SetCost(c59627393.cost)
      e1:SetTarget(c59627393.target)
      e1:SetOperation(c59627393.operation)
      c:RegisterEffect(e1)
      end
      aux.xyz_number[59627393]=105
      function c59627393.condition(e,tp,eg,ep,ev,re,r,rp)
      local a=Duel.GetAttacker()
      local at=Duel.GetAttackTarget()
      return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and at and ((a:IsControler(tp) and a:IsOnField() and a:IsSetCard(0x1084))
      or (at:IsControler(tp) and at:IsOnField() and at:IsFaceup() and at:IsSetCard(0x1084)))
      end
      function c59627393.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFlagEffect(tp,59627393)==0 and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
      e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
      Duel.RegisterFlagEffect(tp,59627393,RESET_PHASE+PHASE_DAMAGE,0,1)
      end
      function c59627393.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetTargetCard(Duel.GetAttacker())
      Duel.SetTargetCard(Duel.GetAttackTarget())
      end
      function c59627393.operation(e,tp,eg,ep,ev,re,r,rp)
      local a=Duel.GetAttacker()
      local at=Duel.GetAttackTarget()
      if at:IsControler(tp) then a,at=at,a end
      if a:IsFacedown() or not a:IsRelateToEffect(e) or not at:IsRelateToEffect(e) then return end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetValue(1)
      e1:SetReset(RESET_PHASE+PHASE_DAMAGE)
      a:RegisterEffect(e1,true)
      local e2=Effect.CreateEffect(e:GetHandler())
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_REFLECT_BATTLE_DAMAGE)
      e2:SetValue(1)
      e2:SetReset(RESET_PHASE+PHASE_DAMAGE)
      a:RegisterEffect(e2,true)
      if at:IsType(TYPE_EFFECT) then
      local e3=Effect.CreateEffect(e:GetHandler())
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_DISABLE)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      at:RegisterEffect(e3)
      local e4=Effect.CreateEffect(e:GetHandler())
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetCode(EFFECT_DISABLE_EFFECT)
      e4:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      at:RegisterEffect(e4)
      end
      end
      script/c68144350.lua deleted 100644 → 0
      View file @ eebb6834
      --BK スイッチヒッター
      function c68144350.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(68144350,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCost(c68144350.spcost)
      e1:SetTarget(c68144350.sptg)
      e1:SetOperation(c68144350.spop)
      c:RegisterEffect(e1)
      Duel.AddCustomActivityCounter(68144350,ACTIVITY_SPSUMMON,c68144350.counterfilter)
      end
      function c68144350.counterfilter(c)
      return c:IsSetCard(0x1084)
      end
      function c68144350.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetCustomActivityCount(68144350,tp,ACTIVITY_SPSUMMON)==0 end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetReset(RESET_PHASE+PHASE_END)
      e1:SetTargetRange(1,0)
      e1:SetTarget(c68144350.splimit)
      e1:SetLabelObject(e)
      Duel.RegisterEffect(e1,tp)
      end
      function c68144350.splimit(e,c,sump,sumtype,sumpos,targetp,se)
      return not c:IsSetCard(0x1084)
      end
      function c68144350.filter(c,e,tp)
      return c:IsSetCard(0x1084) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c68144350.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c68144350.filter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and
      Duel.IsExistingTarget(c68144350.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c68144350.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c68144350.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c71921856.lua deleted 100644 → 0
      View file @ eebb6834
      --No.79 BK 新星のカイザー
      function c71921856.initial_effect(c)
      --xyz summon
      aux.AddXyzProcedure(c,nil,4,2)
      c:EnableReviveLimit()
      --material
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(71921856,0))
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1)
      e1:SetTarget(c71921856.target)
      e1:SetOperation(c71921856.operation)
      c:RegisterEffect(e1)
      --atk
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetValue(c71921856.atkval)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(71921856,1))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_TO_GRAVE)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
      e3:SetCondition(c71921856.spcon)
      e3:SetTarget(c71921856.sptg)
      e3:SetOperation(c71921856.spop)
      c:RegisterEffect(e3)
      end
      aux.xyz_number[71921856]=79
      function c71921856.filter(c)
      return c:IsSetCard(0x1084) and c:IsType(TYPE_MONSTER) and c:IsCanOverlay()
      end
      function c71921856.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsType(TYPE_XYZ)
      and Duel.IsExistingMatchingCard(c71921856.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil) end
      end
      function c71921856.operation(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_XMATERIAL)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c71921856.filter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.Overlay(c,g)
      end
      end
      function c71921856.atkval(e,c)
      return c:GetOverlayCount()*100
      end
      function c71921856.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=c:GetOverlayCount()
      e:SetLabel(ct)
      return c:IsReason(REASON_DESTROY) and c:GetReasonPlayer()==1-tp
      and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(tp) and ct>0
      end
      function c71921856.spfilter(c,e,tp)
      return c:IsLevelBelow(4) and c:IsSetCard(0x1084) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c71921856.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71921856.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c71921856.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      local ct=e:GetLabel()
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if ct>ft then ct=ft end
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c71921856.spfilter,tp,LOCATION_GRAVE,0,1,ct,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0)
      end
      function c71921856.spop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if ft<=0 then return end
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
      if ft<g:GetCount() then return end
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c76589815.lua deleted 100644 → 0
      View file @ eebb6834
      --BK チート・コミッショナー
      function c76589815.initial_effect(c)
      --xyz summon
      aux.AddXyzProcedure(c,nil,3,2)
      c:EnableReviveLimit()
      --must attack
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTargetRange(0,LOCATION_MZONE)
      e1:SetCode(EFFECT_MUST_ATTACK)
      c:RegisterEffect(e1)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
      e3:SetCondition(c76589815.atcon)
      e3:SetValue(1)
      c:RegisterEffect(e3)
      --atk
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(76589815,0))
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_ATTACK_ANNOUNCE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCondition(c76589815.cfcon)
      e3:SetCost(c76589815.cfcost)
      e3:SetTarget(c76589815.cftg)
      e3:SetOperation(c76589815.cfop)
      c:RegisterEffect(e3)
      end
      function c76589815.atfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x1084)
      end
      function c76589815.atcon(e)
      return Duel.IsExistingMatchingCard(c76589815.atfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,e:GetHandler())
      end
      function c76589815.cfcon(e,tp,eg,ep,ev,re,r,rp)
      local a=Duel.GetAttacker()
      local at=Duel.GetAttackTarget()
      return (a:IsControler(tp) and a~=e:GetHandler() and a:IsSetCard(0x1084))
      or (at and at:IsControler(tp) and at:IsFaceup() and at~=e:GetHandler() and at:IsSetCard(0x1084))
      end
      function c76589815.cfcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end
      e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
      end
      function c76589815.cftg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0
      and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
      end
      function c76589815.cffilter(c,tp)
      return c:IsType(TYPE_SPELL) and c:IsSSetable(true) and (c:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0)
      end
      function c76589815.cfop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
      if g:GetCount()==0 then return end
      Duel.ConfirmCards(tp,g)
      local sg=g:Filter(c76589815.cffilter,nil,tp)
      if sg:GetCount()>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local setg=sg:Select(tp,1,1,nil)
      Duel.SSet(tp,setg:GetFirst())
      end
      Duel.ShuffleHand(1-tp)
      end
      script/c76794549.lua deleted 100644 → 0
      View file @ eebb6834
      --アストログラフ・マジシャン
      function c76794549.initial_effect(c)
      aux.AddCodeList(c,13331639)
      aux.EnablePendulumAttribute(c)
      --pendulum set/spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(76794549,0))
      e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1,76794549)
      e1:SetTarget(c76794549.rptg)
      e1:SetOperation(c76794549.rpop)
      c:RegisterEffect(e1)
      --Special Summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(76794549,3))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_CUSTOM+76794549)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_HAND)
      e2:SetCondition(c76794549.spcon)
      e2:SetTarget(c76794549.sptg)
      e2:SetOperation(c76794549.spop)
      c:RegisterEffect(e2)
      --fusion summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(76794549,5))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCost(c76794549.hncost)
      e3:SetTarget(c76794549.hntg)
      e3:SetOperation(c76794549.hnop)
      c:RegisterEffect(e3)
      if not c76794549.global_check then
      c76794549.global_check=true
      local ge1=Effect.CreateEffect(c)
      ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge1:SetCode(EVENT_DESTROYED)
      ge1:SetOperation(c76794549.checkop)
      Duel.RegisterEffect(ge1,0)
      local ge2=Effect.CreateEffect(c)
      ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge2:SetCode(EVENT_DESTROYED)
      ge2:SetCondition(c76794549.regcon)
      ge2:SetOperation(c76794549.regop)
      Duel.RegisterEffect(ge2,0)
      end
      end
      c76794549.hnchecks=aux.CreateChecks(Card.IsSetCard,{0x10f2,0x2073,0x2017,0x1046})
      function c76794549.checkop(e,tp,eg,ep,ev,re,r,rp)
      local tc=eg:GetFirst()
      while tc do
      if tc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) then
      tc:RegisterFlagEffect(76794549,RESET_EVENT+0x1f20000+RESET_PHASE+PHASE_END,0,1)
      elseif tc:IsLocation(LOCATION_EXTRA) then
      tc:RegisterFlagEffect(76794549,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
      end
      tc=eg:GetNext()
      end
      end
      function c76794549.spcfilter(c,tp)
      return c:IsReason(REASON_BATTLE+REASON_EFFECT)
      and c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function c76794549.regcon(e,tp,eg,ep,ev,re,r,rp)
      local v=0
      if eg:IsExists(c76794549.spcfilter,1,nil,0) then v=v+1 end
      if eg:IsExists(c76794549.spcfilter,1,nil,1) then v=v+2 end
      if v==0 then return false end
      e:SetLabel(({0,1,PLAYER_ALL})[v])
      return true
      end
      function c76794549.regop(e,tp,eg,ep,ev,re,r,rp)
      Duel.RaiseEvent(eg,EVENT_CUSTOM+76794549,re,r,rp,ep,e:GetLabel())
      end
      function c76794549.rpfilter(c,e,tp)
      return c:IsCode(94415058) and (not c:IsForbidden()
      or (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
      end
      function c76794549.rptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c76794549.rpfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
      end
      function c76794549.rpop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(76794549,6))
      local g=Duel.SelectMatchingCard(tp,c76794549.rpfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
      if g:GetCount()==0 then return end
      local tc=g:GetFirst()
      local op=0
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
      op=Duel.SelectOption(tp,aux.Stringid(76794549,1),aux.Stringid(76794549,2))
      else
      op=Duel.SelectOption(tp,aux.Stringid(76794549,1))
      end
      if op==0 then
      Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      else
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      function c76794549.spcon(e,tp,eg,ep,ev,re,r,rp)
      return ev==tp or ev==PLAYER_ALL
      end
      function c76794549.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function c76794549.thfilter1(c,tp,id)
      return c:IsType(TYPE_MONSTER) and c:GetFlagEffect(76794549)~=0
      and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
      and Duel.IsExistingMatchingCard(c76794549.thfilter2,tp,LOCATION_DECK,0,1,nil,c:GetCode())
      end
      function c76794549.thfilter2(c,code)
      return c:IsCode(code) and c:IsAbleToHand()
      end
      function c76794549.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local g=Duel.GetMatchingGroup(c76794549.thfilter1,tp,0x70,0x70,nil,tp,Duel.GetTurnCount())
      if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(76794549,4)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(76794549,7))
      local cg=g:Select(tp,1,1,nil)
      Duel.HintSelection(cg)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local sg=Duel.SelectMatchingCard(tp,c76794549.thfilter2,tp,LOCATION_DECK,0,1,1,nil,cg:GetFirst():GetCode())
      Duel.SendtoHand(sg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,sg)
      end
      end
      end
      function c76794549.cfilter(c)
      return c:IsSetCard(0x10f2,0x2073,0x2017,0x1046)
      and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
      and (not c:IsLocation(LOCATION_MZONE) or c:IsFaceup())
      end
      function c76794549.hngoal(g,e,tp,c)
      local sg=Group.FromCards(c)
      sg:Merge(g)
      return Duel.IsExistingMatchingCard(c76794549.hnfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,sg)
      end
      function c76794549.hnfilter(c,e,tp,sg)
      return c:IsCode(13331639) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial()
      and (not sg or Duel.GetLocationCountFromEx(tp,tp,sg,c)>0)
      end
      function c76794549.hncost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local mg=Duel.GetMatchingGroup(c76794549.cfilter,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE,0,nil)
      if chk==0 then return c:IsAbleToRemoveAsCost()
      and Duel.IsExistingMatchingCard(c76794549.hnfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,nil)
      and mg:CheckSubGroupEach(c76794549.hnchecks,c76794549.hngoal,e,tp,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local sg=mg:SelectSubGroupEach(tp,c76794549.hnchecks,false,c76794549.hngoal,e,tp,c)
      sg:AddCard(c)
      Duel.Remove(sg,POS_FACEUP,REASON_COST)
      end
      function c76794549.hntg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_FMATERIAL) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function c76794549.hnop(e,tp,eg,ep,ev,re,r,rp)
      if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_FMATERIAL) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,c76794549.hnfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
      local tc=g:GetFirst()
      if tc then
      tc:SetMaterial(nil)
      Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
      tc:CompleteProcedure()
      end
      end
      script/c77336644.lua deleted 100644 → 0
      View file @ eebb6834
      --レッド・デーモンズ・ドラゴン／バスター
      function c77336644.initial_effect(c)
      aux.AddCodeList(c,80280737,70902743)
      c:EnableReviveLimit()
      --Cannot special summon
      local e1=Effect.CreateEffect(c)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetValue(aux.FALSE)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(77336644,0))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e2:SetCode(EVENT_BATTLED)
      e2:SetCondition(c77336644.descon)
      e2:SetTarget(c77336644.destg)
      e2:SetOperation(c77336644.desop)
      c:RegisterEffect(e2)
      --Special summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(77336644,1))
      e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCondition(c77336644.spcon)
      e3:SetTarget(c77336644.sptg)
      e3:SetOperation(c77336644.spop)
      c:RegisterEffect(e3)
      end
      c77336644.assault_name=70902743
      function c77336644.descon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetAttacker()==e:GetHandler()
      end
      function c77336644.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler())
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function c77336644.desop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,aux.ExceptThisCard(e))
      Duel.Destroy(g,REASON_EFFECT)
      end
      function c77336644.spcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
      end
      function c77336644.spfilter(c,e,tp)
      return c:IsCode(70902743) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c77336644.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c77336644.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c77336644.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c77336644.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c77336644.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c79867938.lua deleted 100644 → 0
      View file @ eebb6834
      --BK ヘッドギア
      function c79867938.initial_effect(c)
      --send to grave
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(79867938,0))
      e1:SetCategory(CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(c79867938.target)
      e1:SetOperation(c79867938.operation)
      c:RegisterEffect(e1)
      --
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
      e1:SetCountLimit(1)
      e1:SetValue(c79867938.valcon)
      c:RegisterEffect(e1)
      end
      function c79867938.tgfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x1084) and c:IsAbleToGrave()
      end
      function c79867938.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c79867938.tgfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
      end
      function c79867938.operation(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c79867938.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      function c79867938.valcon(e,re,r,rp)
      return e:GetHandler():IsAttackPos() and bit.band(r,REASON_BATTLE)~=0
      end
      script/c8316565.lua deleted 100644 → 0
      View file @ eebb6834
      --ジョルト・カウンター
      function c8316565.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCondition(c8316565.condition)
      e1:SetTarget(c8316565.target)
      e1:SetOperation(c8316565.activate)
      c:RegisterEffect(e1)
      end
      function c8316565.cfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x1084)
      end
      function c8316565.condition(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return Duel.IsExistingMatchingCard(c8316565.cfilter,tp,LOCATION_MZONE,0,1,nil)
      and ph>PHASE_MAIN1 and ph<PHASE_MAIN2
      and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev)
      end
      function c8316565.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():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
      end
      end
      function c8316565.activate(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
      script/c84869738.lua deleted 100644 → 0
      View file @ eebb6834
      --覇王の逆鱗
      function c84869738.initial_effect(c)
      aux.AddCodeList(c,13331639)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCondition(c84869738.condition)
      e1:SetTarget(c84869738.target)
      e1:SetOperation(c84869738.activate)
      c:RegisterEffect(e1)
      --material
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c84869738.mattg)
      e2:SetOperation(c84869738.matop)
      c:RegisterEffect(e2)
      end
      function c84869738.cfilter(c)
      return c:IsFaceup() and c:IsCode(13331639)
      end
      function c84869738.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c84869738.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function c84869738.desfilter(c)
      return not c84869738.cfilter(c)
      end
      function c84869738.spfilter(c,e,tp,g)
      if not (c:IsSetCard(0x20f8) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)) then return false end
      if c:IsLocation(LOCATION_EXTRA) then
      return Duel.GetLocationCountFromEx(tp,tp,g,c)>0
      else
      return Duel.GetMZoneCount(tp,g)>0
      end
      end
      function c84869738.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(c84869738.desfilter,tp,LOCATION_MZONE,0,nil)
      if chk==0 then return g:GetCount()>0
      and Duel.IsExistingMatchingCard(c84869738.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil,e,tp,g) end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_EXTRA)
      end
      function c84869738.exfilter2(c)
      return c:IsLocation(LOCATION_EXTRA) and c:IsFacedown() and c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ)
      end
      function c84869738.exfilter3(c)
      return c:IsLocation(LOCATION_EXTRA) and (c:IsType(TYPE_LINK) or (c:IsFaceup() and c:IsType(TYPE_PENDULUM)))
      end
      function c84869738.gcheck(g,ft1,ft2,ft3,ect,ft)
      return aux.dncheck(g) and #g<=ft
      and g:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)<=ft1
      and g:FilterCount(c84869738.exfilter2,nil)<=ft2
      and g:FilterCount(c84869738.exfilter3,nil)<=ft3
      and g:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)<=ect
      end
      function c84869738.activate(e,tp,eg,ep,ev,re,r,rp)
      local dg=Duel.GetMatchingGroup(c84869738.desfilter,tp,LOCATION_MZONE,0,nil)
      if Duel.Destroy(dg,REASON_EFFECT)==0 then return end
      local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
      local ft2=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ)
      local ft3=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM+TYPE_LINK)
      local ft=Duel.GetUsableMZoneCount(tp)
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then
      if ft1>0 then ft1=1 end
      if ft2>0 then ft2=1 end
      if ft3>0 then ft3=1 end
      ft=1
      end
      local ect=(c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]) or ft
      local loc=0
      if ft1>0 then loc=loc+LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE end
      if ect>0 and (ft2>0 or ft3>0) then loc=loc+LOCATION_EXTRA end
      if loc==0 then return end
      local sg=Duel.GetMatchingGroup(aux.NecroValleyFilter(c84869738.spfilter),tp,loc,0,nil,e,tp)
      if sg:GetCount()==0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local rg=sg:SelectSubGroup(tp,c84869738.gcheck,false,1,4,ft1,ft2,ft3,ect,ft)
      Duel.SpecialSummon(rg,0,tp,tp,true,false,POS_FACEUP)
      end
      function c84869738.xyzfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x20f8) and c:IsType(TYPE_XYZ)
      end
      function c84869738.matfilter(c)
      return c:IsSetCard(0x20f8) and c:IsType(TYPE_MONSTER) and (c:IsFaceup() or not c:IsLocation(LOCATION_EXTRA)) and c:IsCanOverlay()
      end
      function c84869738.mattg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c84869738.xyzfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c84869738.xyzfilter,tp,LOCATION_MZONE,0,1,nil)
      and Duel.IsExistingMatchingCard(c84869738.matfilter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,2,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,c84869738.xyzfilter,tp,LOCATION_MZONE,0,1,1,nil)
      end
      function c84869738.matop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c84869738.matfilter),tp,LOCATION_GRAVE+LOCATION_EXTRA,0,2,2,nil)
      if g:GetCount()>0 then
      Duel.Overlay(tc,g)
      end
      end
      end
      script/c86049351.lua deleted 100644 → 0
      View file @ eebb6834
      --ラスト・カウンター
      function c86049351.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_ATTACK_ANNOUNCE)
      e1:SetCondition(c86049351.condition)
      e1:SetTarget(c86049351.target)
      e1:SetOperation(c86049351.activate)
      c:RegisterEffect(e1)
      end
      function c86049351.condition(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetAttacker()
      local at=Duel.GetAttackTarget()
      if not at or tc:IsFacedown() or at:IsFacedown() then return false end
      if not tc:IsControler(tp) then tc=at end
      e:SetLabelObject(tc)
      return tc:IsControler(tp) and tc:IsLocation(LOCATION_MZONE) and tc:IsSetCard(0x1084)
      end
      function c86049351.filter(c,pos)
      return c:IsPosition(pos) and c:IsSetCard(0x1084)
      end
      function c86049351.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local tc=e:GetLabelObject()
      local bc=tc:GetBattleTarget()
      local pos=POS_FACEUP
      if bc==Duel.GetAttackTarget() then pos=POS_FACEUP_ATTACK end
      return Duel.IsExistingMatchingCard(c86049351.filter,tp,LOCATION_MZONE,0,1,tc,pos)
      end
      end
      function c86049351.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      local bc=tc:GetBattleTarget()
      if Duel.NegateAttack() and tc:IsRelateToBattle() and bc:IsRelateToBattle() and bc:IsFaceup() then
      Duel.SendtoGrave(tc,REASON_EFFECT)
      local pos=POS_FACEUP
      if bc==Duel.GetAttackTarget() then pos=POS_FACEUP_ATTACK end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectMatchingCard(tp,c86049351.filter,tp,LOCATION_MZONE,0,1,1,nil,pos)
      local sc=g:GetFirst()
      local atk=bc:GetBaseAttack()
      if atk<0 then atk=0 end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(atk)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      sc:RegisterEffect(e1)
      if bc==Duel.GetAttackTarget() then bc,sc=sc,bc end
      if bc:IsAttackable() and not bc:IsImmuneToEffect(e) and not sc:IsImmuneToEffect(e) then
      Duel.CalculateDamage(bc,sc)
      Duel.BreakEffect()
      Duel.Damage(tp,atk,REASON_EFFECT)
      end
      end
      end
      script/c86325573.lua deleted 100644 → 0
      View file @ eebb6834
      --BK ビッグバンテージ
      function c86325573.initial_effect(c)
      --battle indes
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
      e1:SetCountLimit(1)
      e1:SetValue(c86325573.valcon)
      c:RegisterEffect(e1)
      --level
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(86325573,0))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1)
      e2:SetTarget(c86325573.lvtg)
      e2:SetOperation(c86325573.lvop)
      c:RegisterEffect(e2)
      end
      function c86325573.valcon(e,re,r,rp)
      return bit.band(r,REASON_BATTLE)~=0
      end
      function c86325573.filter(c)
      return c:GetLevel()>0 and c:IsSetCard(0x1084) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
      end
      function c86325573.lvfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x1084) and c:GetLevel()>0
      end
      function c86325573.lvtg(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 c86325573.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c86325573.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil)
      and Duel.IsExistingMatchingCard(c86325573.lvfilter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      Duel.SelectTarget(tp,c86325573.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
      end
      function c86325573.lvop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) then return end
      local lv=tc:GetLevel()
      local g=Duel.GetMatchingGroup(c86325573.lvfilter,tp,LOCATION_MZONE,0,nil)
      local lc=g:GetFirst()
      while lc do
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LEVEL)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetValue(lv)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      lc:RegisterEffect(e1)
      lc=g:GetNext()
      end
      end
      script/c87614611.lua deleted 100644 → 0
      View file @ eebb6834
      --紅蓮魔竜の壺
      function c87614611.initial_effect(c)
      aux.AddCodeList(c,70902743)
      --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:SetCondition(c87614611.condition)
      e1:SetCost(c87614611.cost)
      e1:SetTarget(c87614611.target)
      e1:SetOperation(c87614611.activate)
      c:RegisterEffect(e1)
      end
      function c87614611.cfilter(c)
      return c:IsFaceup() and c:IsCode(70902743)
      end
      function c87614611.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c87614611.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function c87614611.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_SUMMON)==0
      and Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0 end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
      e1:SetCode(EFFECT_CANNOT_SUMMON)
      e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,1)
      e1:SetTargetRange(1,0)
      Duel.RegisterEffect(e1,tp)
      local e2=Effect.CreateEffect(e:GetHandler())
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,1)
      e2:SetTargetRange(1,0)
      Duel.RegisterEffect(e2,tp)
      end
      function c87614611.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 c87614611.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
      script/c92428405.lua deleted 100644 → 0
      View file @ eebb6834
      --覇王龍の魂
      function c92428405.initial_effect(c)
      aux.AddCodeList(c,13331639)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(92428405,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetCost(c92428405.cost)
      e1:SetTarget(c92428405.target)
      e1:SetOperation(c92428405.activate)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(92428405,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_CHAINING)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCondition(c92428405.spcon)
      e2:SetCost(c92428405.spcost)
      e2:SetTarget(c92428405.sptg)
      e2:SetOperation(c92428405.spop)
      c:RegisterEffect(e2)
      end
      function c92428405.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
      end
      function c92428405.filter(c,e,tp)
      return c:IsCode(13331639) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0 and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
      end
      function c92428405.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c92428405.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function c92428405.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,c92428405.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
      local tc=g:GetFirst()
      if tc and Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP) then
      tc:RegisterFlagEffect(92428405,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,2)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e3:SetCode(EVENT_PHASE+PHASE_END)
      e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e3:SetCountLimit(1)
      e3:SetLabel(Duel.GetTurnCount())
      e3:SetLabelObject(tc)
      e3:SetCondition(c92428405.tdcon)
      e3:SetOperation(c92428405.tdop)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
      Duel.RegisterEffect(e3,tp)
      end
      Duel.SpecialSummonComplete()
      end
      function c92428405.tdcon(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      return Duel.GetTurnCount()~=e:GetLabel() and tc:GetFlagEffect(92428405)~=0
      end
      function c92428405.tdop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,92428405)
      local tc=e:GetLabelObject()
      Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      end
      function c92428405.spcon(e,tp,eg,ep,ev,re,r,rp)
      return ep==1-tp and re:IsActiveType(TYPE_SPELL)
      end
      function c92428405.costfilter(c,e,tp)
      return c:IsFaceup() and c:IsCode(13331639) and c:IsAbleToRemoveAsCost()
      and Duel.IsExistingMatchingCard(c92428405.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil,e,tp,c)
      end
      function c92428405.spfilter(c,e,tp,tc)
      if not (c:IsSetCard(0x10f2,0x2073,0x2017,0x1046) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)) then return false end
      if c:IsLocation(LOCATION_EXTRA) then
      return Duel.GetLocationCountFromEx(tp,tp,tc,c)>0
      else
      return Duel.GetMZoneCount(tp,tc)>0
      end
      end
      function c92428405.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(100)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToRemoveAsCost() and Duel.IsExistingMatchingCard(c92428405.costfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,c92428405.costfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
      g:AddCard(c)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function c92428405.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      if e:GetLabel()==100 then
      e:SetLabel(0)
      return true
      end
      return Duel.IsExistingMatchingCard(c92428405.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil,e,tp)
      end
      e:SetLabel(0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA+LOCATION_GRAVE)
      end
      function c92428405.exfilter2(c)
      return c:IsLocation(LOCATION_EXTRA) and c:IsFacedown() and c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ)
      end
      function c92428405.exfilter3(c)
      return c:IsLocation(LOCATION_EXTRA) and (c:IsType(TYPE_LINK) or (c:IsFaceup() and c:IsType(TYPE_PENDULUM)))
      end
      function c92428405.gcheck(g,ft1,ft2,ft3,ect,ft)
      return #g<=ft
      and g:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)<=ft1
      and g:FilterCount(c92428405.exfilter2,nil)<=ft2
      and g:FilterCount(c92428405.exfilter3,nil)<=ft3
      and g:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)<=ect
      and g:FilterCount(Card.IsSetCard,nil,0x10f2)<=1
      and g:FilterCount(Card.IsSetCard,nil,0x2073)<=1
      and g:FilterCount(Card.IsSetCard,nil,0x2017)<=1
      and g:FilterCount(Card.IsSetCard,nil,0x1046)<=1
      end
      function c92428405.spop(e,tp,eg,ep,ev,re,r,rp)
      local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
      local ft2=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ)
      local ft3=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM+TYPE_LINK)
      local ft=Duel.GetUsableMZoneCount(tp)
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then
      if ft1>0 then ft1=1 end
      if ft2>0 then ft2=1 end
      if ft3>0 then ft3=1 end
      ft=1
      end
      local ect=(c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]) or ft
      local loc=0
      if ft1>0 then loc=loc+LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE end
      if ect>0 and (ft2>0 or ft3>0) then loc=loc+LOCATION_EXTRA end
      if loc==0 then return end
      local sg=Duel.GetMatchingGroup(aux.NecroValleyFilter(c92428405.spfilter),tp,loc,0,nil,e,tp)
      if sg:GetCount()==0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local rg=sg:SelectSubGroup(tp,c92428405.gcheck,false,1,4,ft1,ft2,ft3,ect,ft)
      Duel.SpecialSummon(rg,0,tp,tp,false,false,POS_FACEUP)
      end
      script/c96227613.lua deleted 100644 → 0
      View file @ eebb6834
      --覇王門零
      function c96227613.initial_effect(c)
      aux.AddCodeList(c,13331639)
      aux.EnablePendulumAttribute(c)
      --avoid damage
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CHANGE_DAMAGE)
      e1:SetRange(LOCATION_PZONE)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetCondition(c96227613.ndcon)
      e1:SetValue(0)
      c:RegisterEffect(e1)
      local e0=e1:Clone()
      e0:SetCode(EFFECT_NO_EFFECT_DAMAGE)
      c:RegisterEffect(e0)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(96227613,0))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_PZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(c96227613.thcon)
      e2:SetTarget(c96227613.thtg)
      e2:SetOperation(c96227613.thop)
      c:RegisterEffect(e2)
      --special summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(96227613,1))
      e3:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCountLimit(1)
      e3:SetTarget(c96227613.sptg)
      e3:SetOperation(c96227613.spop)
      c:RegisterEffect(e3)
      --pendulum
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(96227613,2))
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_DESTROYED)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetCondition(c96227613.pencon)
      e4:SetTarget(c96227613.pentg)
      e4:SetOperation(c96227613.penop)
      c:RegisterEffect(e4)
      end
      function c96227613.ndcfilter(c)
      return c:IsFaceup() and c:IsCode(13331639)
      end
      function c96227613.ndcon(e)
      return Duel.IsExistingMatchingCard(c96227613.ndcfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil)
      end
      function c96227613.thcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_PZONE,0,1,e:GetHandler(),22211622)
      end
      function c96227613.thfilter(c)
      return c:IsType(TYPE_SPELL) and c:IsSetCard(0x46) and c:IsAbleToHand()
      end
      function c96227613.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c96227613.thfilter,tp,LOCATION_DECK,0,1,nil) end
      local g=Duel.GetFieldGroup(tp,LOCATION_PZONE,0)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c96227613.thop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      local g=Duel.GetFieldGroup(tp,LOCATION_PZONE,0)
      if g:GetCount()<2 then return end
      if Duel.Destroy(g,REASON_EFFECT)==2 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local sg=Duel.SelectMatchingCard(tp,c96227613.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if sg:GetCount()>0 then
      Duel.SendtoHand(sg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,sg)
      end
      end
      end
      function c96227613.desfilter(c,ec,e,tp)
      return c:IsFaceup() and Duel.IsExistingMatchingCard(c96227613.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,Group.FromCards(c,ec))
      end
      function c96227613.spfilter(c,e,tp,mg)
      return c:IsType(TYPE_FUSION+TYPE_SYNCHRO) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and Duel.GetLocationCountFromEx(tp,tp,mg,c)>0
      end
      function c96227613.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c96227613.desfilter(chkc,c,e,tp) and chkc~=c end
      if chk==0 then return Duel.IsExistingTarget(c96227613.desfilter,tp,LOCATION_ONFIELD,0,1,c,c,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,c96227613.desfilter,tp,LOCATION_ONFIELD,0,1,1,c,c,e,tp)
      g:AddCard(c)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function c96227613.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if not c:IsRelateToEffect(e) or not tc:IsRelateToEffect(e) then return end
      local dg=Group.FromCards(c,tc)
      if Duel.Destroy(dg,REASON_EFFECT)==2 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,c96227613.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
      if g:GetCount()==0 then return end
      local sc=g:GetFirst()
      if Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEUP) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      sc:RegisterEffect(e1,true)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      sc:RegisterEffect(e2,true)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_SET_ATTACK_FINAL)
      e3:SetValue(0)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD)
      sc:RegisterEffect(e3,true)
      local e4=e3:Clone()
      e4:SetCode(EFFECT_SET_DEFENSE_FINAL)
      sc:RegisterEffect(e4,true)
      local e5=e3:Clone()
      e5:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
      e5:SetValue(1)
      sc:RegisterEffect(e5,true)
      local e6=e5:Clone()
      e6:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
      sc:RegisterEffect(e6,true)
      end
      Duel.SpecialSummonComplete()
      end
      end
      function c96227613.pencon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
      end
      function c96227613.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function c96227613.penop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      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