Skip to content

Y
ygopro-pre-data
Commit 7004ca30 authored by mercury233's avatar mercury233
Browse files
Options

rm

parent 3334dc3c
Pipeline #15268 passed with stages
      in 38 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 0 additions and 8399 deletions
      deck/22-07-16 DABL(1110).ydk deleted 100644 → 0
      View file @ 3334dc3c
      #created by ...
      #main
      101110001
      101110002
      101110003
      101110004
      101110005
      101110006
      101110007
      101110008
      101110009
      101110010
      101110011
      101110012
      101110013
      101110014
      101110015
      101110016
      101110017
      101110018
      101110019
      101110020
      101110021
      101110022
      101110023
      101110024
      101110025
      101110026
      101110027
      101110028
      101110029
      101110030
      101110031
      101110032
      101110033
      101110034
      101110035
      101110036
      101110037
      101110038
      101110052
      101110053
      101110054
      101110055
      101110056
      101110057
      101110058
      101110059
      101110060
      101110061
      101110062
      101110063
      101110064
      101110065
      101110066
      101110067
      101110068
      101110069
      101110070
      #extra
      101110039
      101110040
      101110041
      101110042
      101110043
      101110044
      101110045
      101110046
      101110047
      101110048
      101110049
      101110050
      101110051
      !side
      101110071
      101110072
      101110073
      101110074
      101110075
      101110076
      101110077
      101110078
      101110079
      101110080
      deck/22-07-22 new cards.ydk
      View file @ 7004ca30
      ......@@ -14,18 +14,9 @@
      100419010
      100419011
      100419012
      100200220
      100344054
      100313001
      100313025
      100313052
      100200219
      100344016
      100344017
      100344032
      100344033
      100344034
      #extra
      100313051
      100344051
      !side
      expansions/pre-strings.conf
      View file @ 7004ca30
      #The first line is used for comment
      !setname 0x287 桥梁 架け橋
      !setname 0x288 俱舍怒威族 クシャトリラ
      !setname 0x289 深渊之兽 ビーステッド
      !setname 0x28a 救援ACE队 R－ACE
      script/c100200219.lua deleted 100644 → 0
      View file @ 3334dc3c
      --水月のアデュラリア
      ---
      --Script by Trishula9
      function c100200219.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,100200219+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(c100200219.spcon)
      c:RegisterEffect(e1)
      --atkup
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e2:SetValue(c100200219.atkval)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e3)
      --to grave
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_TOGRAVE)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,100200219)
      e4:SetCost(c100200219.tgcost)
      e4:SetTarget(c100200219.tgtg)
      e4:SetOperation(c100200219.tgop)
      c:RegisterEffect(e4)
      end
      function c100200219.spcfilter(c)
      return c:IsFaceup() and c:GetSequence()<5
      end
      function c100200219.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c100200219.spcfilter,tp,LOCATION_SZONE,0,1,nil)
      end
      function c100200219.atkfilter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsFaceup()
      end
      function c100200219.atkval(e,c)
      return Duel.GetMatchingGroupCount(c100200219.atkfilter,c:GetControler(),LOCATION_ONFIELD,LOCATION_ONFIELD,nil)*600
      end
      function c100200219.cfilter(c)
      return c:IsFaceup() and c:IsAbleToGraveAsCost() and c:GetSequence()<5
      end
      function c100200219.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100200219.cfilter,tp,LOCATION_SZONE,0,2,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c100200219.cfilter,tp,LOCATION_SZONE,0,2,2,nil)
      Duel.SendtoGrave(g,REASON_COST)
      end
      function c100200219.tgfilter(c)
      return c:IsLevelBelow(4) and c:IsAbleToGrave()
      end
      function c100200219.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100200219.tgfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
      end
      function c100200219.tgop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c100200219.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      script/c100200220.lua deleted 100644 → 0
      View file @ 3334dc3c
      --若い忍者
      --Green Ninja
      --Script by Lyris12
      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+CATEGORY_POSITION)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --position
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_POSITION)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e2:SetCondition(s.condition)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      end
      function s.filter(c,e,tp)
      return c:IsFaceup() and c:IsCanTurnSet() and c:IsControler(tp) and c:IsCanBeEffectTarget(e)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return eg:IsContains(chkc) and s.filter(chkc,e,tp) end
      local c=e:GetHandler()
      if chk==0 then return eg:IsExists(s.filter,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local g=eg:FilterSelect(tp,s.filter,1,1,nil,e,tp)
      Duel.SetTargetCard(g)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,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()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then
      Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
      end
      end
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_HAND+LOCATION_ONFIELD)
      end
      function s.pfilter(c)
      return c:IsCanTurnSet() or not c:IsPosition(POS_FACEUP_ATTACK)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.pfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.pfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local g=Duel.SelectTarget(tp,s.pfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) then return end
      if tc:IsPosition(POS_FACEUP_ATTACK) then
      Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
      elseif tc:IsPosition(POS_FACEDOWN_DEFENSE) then
      Duel.ChangePosition(tc,POS_FACEUP_ATTACK)
      else
      local pos=Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)
      Duel.ChangePosition(tc,pos)
      end
      end
      script/c100344016.lua deleted 100644 → 0
      View file @ 3334dc3c
      --宝玉神覚醒
      --Awakening of the Crystal Lord
      --Script by Lyris12 & mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMING_END_PHASE)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetLabel(0)
      e1:SetCost(s.cost)
      e1:SetTarget(s.target)
      e1:SetOperation(s.operation)
      c:RegisterEffect(e1)
      end
      function s.cfilter1(c)
      return c:IsSetCard(0x2034) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
      end
      function s.cfilter2(c)
      return c:IsSetCard(0x2034) and c:IsFaceup()
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(100)
      return true
      end
      function s.hfilter(c)
      return (c:IsSetCard(0x287) or c:IsCode(40854824)) and (c:IsAbleToHand() or c:IsAbleToGrave())
      end
      function s.sfilter(c,e,tp)
      return c:GetOriginalType()&TYPE_MONSTER>0 and c:IsSetCard(0x1034)
      and (c:IsFaceup() or not c:IsLocation(LOCATION_SZONE))
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local c1=Duel.IsExistingMatchingCard(s.cfilter1,tp,LOCATION_HAND,0,1,nil)
      local c2=Duel.IsExistingMatchingCard(s.cfilter2,tp,LOCATION_MZONE,0,1,nil)
      local b1=Duel.IsExistingMatchingCard(s.hfilter,tp,LOCATION_DECK,0,1,nil)
      local b2=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.sfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE+LOCATION_SZONE,0,1,nil,e,tp)
      if chk==0 then
      if e:GetLabel()~=100 then return false end
      e:SetLabel(0)
      return (c1 or c2) and (b1 or b2)
      end
      e:SetLabel(0)
      if not c2 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
      local rg=Duel.SelectMatchingCard(tp,s.cfilter1,tp,LOCATION_HAND,0,1,1,nil)
      Duel.ConfirmCards(1-tp,rg)
      Duel.ShuffleHand(tp)
      end
      local off=1
      local ops={}
      local opval={}
      if b1 then
      ops[off]=aux.Stringid(id,0)
      opval[off-1]=1
      off=off+1
      end
      if b2 then
      ops[off]=aux.Stringid(id,1)
      opval[off-1]=2
      off=off+1
      end
      if b1 and b2 and c2 then
      ops[off]=aux.Stringid(id,2)
      opval[off-1]=3
      end
      local op=opval[Duel.SelectOption(tp,table.unpack(ops))]
      e:SetLabel(op)
      e:SetCategory(0)
      if op&1>0 then
      e:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TOGRAVE+CATEGORY_DECKDES)
      end
      if op&2>0 then
      e:SetCategory(e:GetCategory()|CATEGORY_SPECIAL_SUMMON)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE+LOCATION_SZONE)
      end
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local op=e:GetLabel()
      local res=0
      if op&1>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      local tc=Duel.SelectMatchingCard(tp,s.hfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
      if tc and tc:IsAbleToHand() and (not tc:IsAbleToGrave() or Duel.SelectOption(tp,1190,1191)==0) then
      res=Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tc)
      else
      res=Duel.SendtoGrave(tc,REASON_EFFECT)
      end
      end
      if op&2>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_HAND+LOCATION_GRAVE+LOCATION_SZONE,0,1,1,nil,e,tp)
      if #g==0 then return end
      if op==3 and res~=0 then Duel.BreakEffect() end
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c100344017.lua deleted 100644 → 0
      View file @ 3334dc3c
      --宝玉の加護
      --Crystal Protection
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --token
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetTarget(s.tktg)
      e1:SetOperation(s.tkop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_MOVE)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
      e2:SetCondition(s.spcon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.filter(c,tp)
      return c:IsSetCard(0x1034) and c:GetOriginalType()&TYPE_MONSTER>0 and Duel.GetMZoneCount(tp,c)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0x1034,TYPES_TOKEN_MONSTER,c:GetBaseAttack(),c:GetBaseDefense(),c:GetOriginalLevel(),c:GetOriginalRace(),c:GetOriginalAttribute())
      end
      function s.tktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and s.filter(chkc,tp) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_ONFIELD,0,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
      end
      function s.tkop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)>0
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0x1034,TYPES_TOKEN_MONSTER,tc:GetBaseAttack(),tc:GetBaseDefense(),tc:GetOriginalLevel(),tc:GetOriginalRace(),tc:GetOriginalAttribute()) then
      Duel.BreakEffect()
      local tk=Duel.CreateToken(tp,id+o)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SET_ATTACK)
      e1:SetValue(tc:GetBaseAttack())
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
      tk:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_SET_DEFENSE)
      e2:SetValue(tc:GetBaseDefense())
      tk:RegisterEffect(e2)
      local e3=e1:Clone()
      e3:SetCode(EFFECT_CHANGE_LEVEL)
      e3:SetValue(tc:GetOriginalLevel())
      tk:RegisterEffect(e3)
      local e4=e1:Clone()
      e4:SetCode(EFFECT_CHANGE_RACE)
      e4:SetValue(tc:GetOriginalRace())
      tk:RegisterEffect(e4)
      local e5=e1:Clone()
      e5:SetCode(EFFECT_CHANGE_ATTRIBUTE)
      e5:SetValue(tc:GetOriginalAttribute())
      tk:RegisterEffect(e5)
      Duel.SpecialSummon(tk,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.cfilter(c,tp)
      return c:IsFaceup() and c:IsSetCard(0x1034) and c:IsControler(tp) and c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.spfilter(c,e,tp)
      return c:IsFaceup() and c:IsSetCard(0x1034) and c:GetOriginalType()&TYPE_MONSTER>0
      and c:IsCanBeSpecialSummoned(e,0,sp,false,false) and c:GetSequence()<5
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_SZONE,0,1,nil,e,tp)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_SZONE)
      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_SZONE,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c100344032.lua deleted 100644 → 0
      View file @ 3334dc3c
      --宝玉の祝福
      --Crystal Grace
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_RECOVER)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --flip
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_DECKDES)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_MOVE)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
      e2:SetCondition(s.flipcon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.fliptg)
      e2:SetOperation(s.flipop)
      c:RegisterEffect(e2)
      end
      function s.filter(c,e,tp)
      return c:IsFaceup() and c:IsSetCard(0x1034) and c:GetOriginalType()&TYPE_MONSTER>0 and c:GetSequence()<5
      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.filter,tp,LOCATION_SZONE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_SZONE)
      Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if ft<=0 then return end
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_SZONE,0,1,math.min(ft,2),nil,e,tp)
      if #g==0 then return end
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      local atk=Duel.GetOperatedGroup():GetSum(Card.GetBaseAttack)
      Duel.Recover(tp,atk,REASON_EFFECT)
      end
      function s.cfilter(c,tp)
      return c:IsFaceup() and c:IsSetCard(0x1034) and c:IsControler(tp) and c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5
      end
      function s.flipcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.fliptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0
      and (Duel.GetDecktopGroup(tp,1):IsExists(Card.IsAbleToHand,1,nil)
      or Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummon(tp)
      and not Duel.IsPlayerAffectedByEffect(tp,63060238)) end
      end
      function s.flipop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.IsPlayerCanDiscardDeck(tp,1) then return end
      Duel.ConfirmDecktop(tp,1)
      local tc=Duel.GetDecktopGroup(tp,1):GetFirst()
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      local b1=tc:IsAbleToHand()
      local b2=ft>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
      if tc:IsSetCard(0x1034) and tc:IsType(TYPE_MONSTER) and (b1 or b2) then
      if b1 and (not b2 or Duel.SelectOption(tp,1190,1152)==0) then
      Duel.DisableShuffleCheck()
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      else
      Duel.DisableShuffleCheck()
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      else
      Duel.DisableShuffleCheck()
      Duel.SendtoGrave(tc,REASON_EFFECT+REASON_REVEAL)
      end
      end
      script/c100344033.lua deleted 100644 → 0
      View file @ 3334dc3c
      --宝玉の奇跡
      --Crystal Miracle
      --Script by Lyris12 & mercury233
      --not fully implemented
      local s,id,o=GetID()
      function s.initial_effect(c)
      --negate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCondition(s.condition)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --place
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_CUSTOM+id)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
      e2:SetCondition(s.placecon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.placetg)
      e2:SetOperation(s.placeop)
      c:RegisterEffect(e2)
      if not s.global_check then
      s.global_check=true
      local ge1=Effect.CreateEffect(c)
      ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge1:SetCode(EVENT_MOVE)
      ge1:SetCondition(s.regcon)
      ge1:SetOperation(s.regop)
      Duel.RegisterEffect(ge1,0)
      end
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return (re:IsHasType(EFFECT_TYPE_ACTIVATE) or re:IsActiveType(TYPE_MONSTER)) and Duel.IsChainNegatable(ev)
      end
      function s.desfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x1034)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(s.desfilter,tp,LOCATION_ONFIELD,0,nil)
      if chk==0 then return #g>0 end
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
      if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g+eg,2,0,0)
      end
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,s.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
      if Duel.Destroy(g,REASON_EFFECT)>0
      and Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
      Duel.Destroy(eg,REASON_EFFECT)
      end
      end
      function s.cfilter(c,tp)
      return c:IsFaceup() and c:IsSetCard(0x1034) and c:IsControler(tp) and c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5
      end
      function s.regcon(e,tp,eg,ep,ev,re,r,rp)
      local v=0
      if eg:IsExists(s.cfilter,1,nil,0) then v=v+1 end
      if eg:IsExists(s.cfilter,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 s.regop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil,id)
      Duel.RaiseEvent(g,EVENT_CUSTOM+id,re,r,rp,ep,e:GetLabel())
      end
      function s.placecon(e,tp,eg,ep,ev,re,r,rp)
      return (ev==tp or ev==PLAYER_ALL) and eg:IsContains(e:GetHandler())
      end
      function s.filter(c)
      return c:IsSetCard(0x1034) and c:IsType(TYPE_MONSTER) and not c:IsForbidden()
      end
      function s.placetg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,nil)
      and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
      end
      function s.placeop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.filter),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil)
      local tc=g:GetFirst()
      if tc then
      Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      tc:RegisterEffect(e1)
      end
      end
      script/c100344034.lua deleted 100644 → 0
      View file @ 3334dc3c
      --宝玉の玲瓏
      --Crystal Brilliance
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:SetUniqueOnField(1,0,id)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
      e1:SetHintTiming(TIMING_DAMAGE_STEP)
      e1:SetCondition(aux.dscon)
      c:RegisterEffect(e1)
      --atk up
      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.IsSetCard,0x1034))
      e2:SetValue(aux.TargetBoolFunction(Card.GetBaseDefense))
      c:RegisterEffect(e2)
      --special summon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_MOVE)
      e3:SetRange(LOCATION_SZONE)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
      e3:SetCondition(s.con)
      e3:SetCost(s.cost)
      e3:SetTarget(s.tg)
      e3:SetOperation(s.op)
      c:RegisterEffect(e3)
      end
      function s.cfilter(c,tp)
      return c:IsFaceup() and c:IsSetCard(0x1034) and c:IsControler(tp) and c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5
      end
      function s.con(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.cost(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.filter(c,e,tp)
      return c:IsSetCard(0x1034) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.tg(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_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.op(e,tp,eg,ep,ev,re,r,rp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CHANGE_DAMAGE)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetValue(s.val)
      e1:SetReset(RESET_PHASE+PHASE_END,1)
      Duel.RegisterEffect(e1,tp)
      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_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.val(e,re,dam)
      return dam//2
      end
      script/c100344051.lua deleted 100644 → 0
      View file @ 3334dc3c
      --究極宝玉神 レインボー・ドラゴン オーバー・ドライブ
      --Script by mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcFunFun(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x2034),aux.FilterBoolFunction(Card.IsFusionSetCard,0x1034),7,true)
      --cannot special summon
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e0:SetCode(EFFECT_SPSUMMON_CONDITION)
      c:RegisterEffect(e0)
      --special summon rule
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_EXTRA)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --atk up
      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(7000)
      e2:SetCondition(s.atkcon)
      c:RegisterEffect(e2)
      --to deck
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,0))
      e3:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_MZONE)
      e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e3:SetCost(s.tdcost)
      e3:SetTarget(s.tdtg)
      e3:SetOperation(s.tdop)
      c:RegisterEffect(e3)
      --
      if not s.global_flag then
      s.global_flag=true
      local ge1=Effect.CreateEffect(c)
      ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge1:SetCode(EVENT_SPSUMMON_SUCCESS)
      ge1:SetOperation(s.regop)
      Duel.RegisterEffect(ge1,0)
      end
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      for tc in aux.Next(eg) do
      if tc:IsSetCard(0x2034) then
      Duel.RegisterFlagEffect(tc:GetSummonPlayer(),id,0,0,0)
      end
      end
      end
      function s.cfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsFusionSetCard(0x2034,0x1034) and c:IsAbleToRemoveAsCost()
      end
      function s.cfilter1(c,g)
      return c:IsFusionSetCard(0x2034) and g:FilterCount(s.cfilter2,c)>=7
      end
      function s.cfilter2(c)
      return c:IsFusionSetCard(0x1034)
      end
      function s.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      if Duel.GetFlagEffect(tp,id)==0 then return false end
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil)
      return g:IsExists(s.cfilter1,1,nil,g)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
      local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil)
      local sg=Group.CreateGroup()
      local cg=g:Filter(s.cfilter1,nil,g)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local tc1=cg:SelectUnselect(sg,tp,false,true,1,1)
      if not tc1 then return false end
      cg=g:Filter(s.cfilter2,tc1)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local sg2=cg:SelectSubGroup(tp,aux.TRUE,true,7,7)
      if not sg2 then return false end
      sg:AddCard(tc1)
      sg:Merge(sg2)
      sg:KeepAlive()
      e:SetLabelObject(sg)
      return true
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
      local g=e:GetLabelObject()
      c:SetMaterial(g)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      g:DeleteGroup()
      end
      function s.atkfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x1034)
      end
      function s.atkcon(e)
      local tp=e:GetHandlerPlayer()
      local g=Duel.GetMatchingGroup(s.atkfilter,tp,LOCATION_REMOVED,0,nil)
      return g:GetClassCount(Card.GetCode)>=7
      end
      function s.tdcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:GetBattledGroupCount()==0 and c:IsReleasable() end
      Duel.Release(c,REASON_COST)
      end
      function s.spfilter(c,e,tp)
      return c:IsFaceup() and c:IsSetCard(0x1034) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c)
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end
      local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,#g,0,0)
      end
      function s.tdop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      if Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 then
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if ft<=0 then return end
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_REMOVED,0,1,ft,nil,e,tp)
      if #sg>0 then
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      script/c100344054.lua deleted 100644 → 0
      View file @ 3334dc3c
      --心の架け橋
      --Script by mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --extra summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetRange(LOCATION_SZONE)
      e2:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0)
      e2:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x1034))
      c:RegisterEffect(e2)
      --destroy search
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1,id)
      e3:SetTarget(s.destg)
      e3:SetOperation(s.desop)
      c:RegisterEffect(e3)
      --return to hand
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,2))
      e4:SetCategory(CATEGORY_TOHAND)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_MOVE)
      e4:SetRange(LOCATION_SZONE)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
      e4:SetCountLimit(1,id+o)
      e4:SetCondition(s.thcon)
      e4:SetTarget(s.thtg)
      e4:SetOperation(s.thop)
      c:RegisterEffect(e4)
      end
      function s.desfilter(c)
      return c:IsSetCard(0x1034) and (c:IsFaceup() or c:IsLocation(LOCATION_HAND))
      end
      function s.thfilter(c)
      return c:IsSetCard(0x34) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.desfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil)
      and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
      local g=Duel.GetMatchingGroup(s.desfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,s.desfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
      if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)~=0 then
      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
      end
      function s.cfilter(c,tp)
      return c:IsFaceup() and c:IsSetCard(0x1034) and c:IsControler(tp) and c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      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
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToHand() and Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil)
      g:AddCard(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 tc=Duel.GetFirstTarget()
      if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then
      Duel.SendtoHand(Group.FromCards(c,tc),nil,REASON_EFFECT)
      end
      end
      script/c101110001.lua deleted 100644 → 0
      View file @ 3334dc3c
      --BF－無頼のヴァータ
      --Script by Dr.Chaos
      function c101110001.initial_effect(c)
      aux.AddCodeList(c,9012916)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110001,0))
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,101110001+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(c101110001.spcon)
      c:RegisterEffect(e1)
      --speical summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110001,1))
      e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,101110001+100)
      e2:SetTarget(c101110001.tgtg)
      e2:SetOperation(c101110001.tgop)
      c:RegisterEffect(e2)
      end
      function c101110001.filter(c)
      return c:IsFaceup() and c:IsSetCard(0x33) and not c:IsCode(101110001)
      end
      function c101110001.spcon(e,c)
      if c==nil then return true end
      return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110001.filter,c:GetControler(),LOCATION_MZONE,0,1,nil)
      end
      function c101110001.tgfilter(c)
      return c:IsSetCard(0x33) and c:IsAbleToGrave() and c:IsType(TYPE_MONSTER) and not c:IsType(TYPE_TUNER)
      end
      function c101110001.sfilter(c,e,tp,mc)
      return c:IsCode(9012916)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
      end
      function c101110001.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local clv=c:GetLevel()
      local lv=8-clv
      local g=Duel.GetMatchingGroup(c101110001.tgfilter,tp,LOCATION_DECK,0,nil)
      if chk==0 then return clv>0 and lv>0 and g:CheckWithSumEqual(Card.GetLevel,lv,1,99)
      and Duel.IsExistingMatchingCard(c101110001.sfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function c101110001.tgop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local clv=c:GetLevel()
      local lv=8-clv
      if c:IsRelateToEffect(e) and not c:IsFacedown() and lv>0 then
      local g=Duel.GetMatchingGroup(c101110001.tgfilter,tp,LOCATION_DECK,0,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local tg=g:SelectWithSumEqual(tp,Card.GetLevel,lv,1,99)
      if #tg>0 then
      tg:AddCard(c)
      if Duel.SendtoGrave(tg,nil,REASON_EFFECT)>1 and tg:IsExists(Card.IsLocation,1,nil,LOCATION_GRAVE) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=Duel.SelectMatchingCard(tp,c101110001.sfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil)
      if sg:GetCount()>0 then
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(c101110001.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function c101110001.splimit(e,c)
      return not c:IsAttribute(ATTRIBUTE_DARK) and c:IsLocation(LOCATION_EXTRA)
      end
      script/c101110002.lua deleted 100644 → 0
      View file @ 3334dc3c
      --BF－嵐砂のシャマール
      --Script by Dr.Chaos
      function c101110002.initial_effect(c)
      aux.AddCodeList(c,9012916)
      --same effect send this card to grave and spsummon another card check
      local e0=aux.AddThisCardInGraveAlreadyCheck(c)
      --set
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110002,0))
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
      e1:SetCountLimit(1,101110002)
      e1:SetCost(c101110002.tfcost)
      e1:SetTarget(c101110002.tftg)
      e1:SetOperation(c101110002.tfop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110002,1))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_DAMAGE)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,101110002+100)
      e2:SetLabelObject(e0)
      e2:SetCondition(c101110002.thcon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c101110002.thtg)
      e2:SetOperation(c101110002.thop)
      c:RegisterEffect(e2)
      end
      function c101110002.tfcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
      Duel.SendtoGrave(e:GetHandler(),REASON_COST)
      end
      function c101110002.tffilter(c,tp)
      return c:IsCode(101110052)
      and not c:IsForbidden() and c:CheckUniqueOnField(tp)
      end
      function c101110002.tftg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingMatchingCard(c101110002.tffilter,tp,LOCATION_DECK,0,1,nil,tp) end
      end
      function c101110002.tfop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local tc=Duel.SelectMatchingCard(tp,c101110002.tffilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
      if tc then
      Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      end
      end
      function c101110002.cfilter(c,tp,se)
      return c:IsFaceup() and ((c:IsSetCard(0x33) and c:IsType(TYPE_SYNCHRO)) or c:IsCode(9012916))
      and c:IsControler(tp) and (se==nil or c:GetReasonEffect()~=se)
      end
      function c101110002.thcon(e,tp,eg,ep,ev,re,r,rp)
      local se=e:GetLabelObject():GetLabelObject()
      return eg:IsExists(c101110002.cfilter,1,nil,tp,se)
      end
      function c101110002.thfilter(c)
      return c:IsSetCard(0x33) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c101110002.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c101110002.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c101110002.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,c101110002.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,700)
      end
      function c101110002.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 then
      Duel.BreakEffect()
      Duel.Damage(tp,700,REASON_EFFECT)
      end
      end
      script/c101110003.lua deleted 100644 → 0
      View file @ 3334dc3c
      --BF－雪撃のチヌーク
      --Script by Dr.Chaos
      function c101110003.initial_effect(c)
      aux.AddCodeList(c,9012916)
      --atk
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110003,0))
      e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_ATKCHANGE+CATEGORY_DISABLE)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE+LOCATION_HAND)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,101110003)
      e1:SetCondition(c101110003.discon1)
      e1:SetCost(c101110003.discost)
      e1:SetTarget(c101110003.distg)
      e1:SetOperation(c101110003.disop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCondition(c101110003.discon2)
      c:RegisterEffect(e2)
      end
      function c101110003.cfilter(c)
      return c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_SYNCHRO) and c:IsFaceup()
      end
      function c101110003.discon1(e,tp,eg,ep,ev,re,r,rp)
      return not Duel.IsExistingMatchingCard(c101110003.cfilter,tp,LOCATION_MZONE,0,1,nil)
      end
      function c101110003.discon2(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c101110003.cfilter,tp,LOCATION_MZONE,0,1,nil)
      and aux.dscon()
      end
      function c101110003.discost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
      Duel.SendtoGrave(e:GetHandler(),REASON_COST)
      end
      function c101110003.filter(c)
      return c:IsFaceup() and (aux.NegateMonsterFilter(c) or c:GetAttack()>0)
      end
      function c101110003.tgfilter(c)
      return c:IsAbleToGrave() and ((c:IsSetCard(0x33) and c:IsType(TYPE_SYNCHRO)) or c:IsCode(9012916))
      end
      function c101110003.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c101110003.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c101110003.filter,tp,0,LOCATION_MZONE,1,nil)
      and Duel.IsExistingMatchingCard(c101110003.tgfilter,tp,LOCATION_EXTRA,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,c101110003.filter,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_EXTRA)
      end
      function c101110003.disop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c101110003.tgfilter,tp,LOCATION_EXTRA,0,1,1,nil)
      if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)>0 and g:GetFirst():IsLocation(LOCATION_GRAVE)
      and tc:IsFaceup() and tc:IsRelateToEffect(e) then
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e3:SetValue(-700)
      tc:RegisterEffect(e3)
      end
      end
      script/c101110004.lua deleted 100644 → 0
      View file @ 3334dc3c
      --BF－幻耀のスズリ
      --Script by Dr.Chaos
      function c101110004.initial_effect(c)
      aux.AddCodeList(c,9012916)
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110004,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(c101110004.thtg)
      e1:SetOperation(c101110004.thop)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110004,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN+CATEGORY_DAMAGE)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,101110004)
      e2:SetCost(c101110004.spcost)
      e2:SetTarget(c101110004.sptg)
      e2:SetOperation(c101110004.spop)
      c:RegisterEffect(e2)
      Duel.AddCustomActivityCounter(101110004,ACTIVITY_SPSUMMON,c101110004.counterfilter)
      end
      function c101110004.counterfilter(c)
      return not c:IsSummonLocation(LOCATION_EXTRA) or c:IsType(TYPE_SYNCHRO)
      end
      function c101110004.thfilter(c)
      return aux.IsCodeListed(c,9012916) and not c:IsCode(101110004) and c:IsAbleToHand()
      end
      function c101110004.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110004.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c101110004.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c101110004.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 c101110004.rfilter(c,tp)
      return Duel.GetMZoneCount(tp,c)>0
      end
      function c101110004.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckReleaseGroup(tp,c101110004.rfilter,1,nil,tp)
      and Duel.GetCustomActivityCount(101110004,tp,ACTIVITY_SPSUMMON)==0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local g=Duel.SelectReleaseGroup(tp,c101110004.rfilter,1,1,nil,tp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
      e1:SetTargetRange(1,0)
      e1:SetTarget(c101110004.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      Duel.Release(g,REASON_COST)
      end
      function c101110004.splimit(e,c,sump,sumtype,sumpos,targetp)
      return c:IsLocation(LOCATION_EXTRA) and not c:IsType(TYPE_SYNCHRO)
      end
      function c101110004.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanSpecialSummonMonster(tp,101110104,0,TYPES_TOKEN_MONSTER,700,700,2,RACE_WINDBEAST,ATTRIBUTE_DARK) end
      Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,700)
      end
      function c101110004.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      if Duel.IsPlayerCanSpecialSummonMonster(tp,101110104,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,700,700,2,RACE_WINDBEAST,ATTRIBUTE_DARK) then
      local token=Duel.CreateToken(tp,101110104)
      if Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)>0 then
      Duel.BreakEffect()
      Duel.Damage(tp,700,REASON_EFFECT)
      end
      end
      end
      script/c101110005.lua deleted 100644 → 0
      View file @ 3334dc3c
      --BF－刻夜のゾンダ
      --Script by Dr.Chaos
      function c101110005.initial_effect(c)
      --splimit
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTargetRange(1,0)
      e1:SetTarget(c101110005.splimit)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110005,0))
      e2:SetCategory(CATEGORY_TOHAND)
      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,101110005)
      e2:SetTarget(c101110005.thtg)
      e2:SetOperation(c101110005.thop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      --spsummon
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(101110005,1))
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_GRAVE)
      e4:SetCountLimit(1,101110005)
      e4:SetCost(aux.bfgcost)
      e4:SetTarget(c101110005.sptg)
      e4:SetOperation(c101110005.spop)
      c:RegisterEffect(e4)
      end
      function c101110005.splimit(e,c)
      return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
      end
      function c101110005.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToHand() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c101110005.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
      function c101110005.spfilter(c,e,tp)
      return c:IsSetCard(0x33) and c:IsLevelAbove(5) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110005.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110005.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,0)
      end
      function c101110005.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,c101110005.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
      local tc=g:GetFirst()
      if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then
      Duel.BreakEffect()
      Duel.Damage(tp,tc:GetAttack(),REASON_EFFECT)
      end
      end
      \ No newline at end of file
      script/c101110006.lua deleted 100644 → 0
      View file @ 3334dc3c
      --深淵の獣マグナムート
      --Byssted Magnumut
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCondition(s.spcon1)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCondition(s.spcon2)
      c:RegisterEffect(e2)
      --search reg
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_GRAVE_ACTION)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,id+o)
      e3:SetOperation(s.operation)
      c:RegisterEffect(e3)
      end
      function s.spcon1(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)==0
      end
      function s.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0
      end
      function s.cfilter(c)
      return c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK) and c:IsAbleToRemove()
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and s.cfilter(chkc) end
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingTarget(s.cfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectTarget(tp,s.cfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,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.Remove(tc,POS_FACEUP,REASON_EFFECT)>0 and c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.operation(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.thop)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function s.filter(c)
      return c:IsRace(RACE_DRAGON) and c:IsAbleToHand() and not c:IsCode(id)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_CARD,0,id)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.filter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      script/c101110007.lua deleted 100644 → 0
      View file @ 3334dc3c
      --深淵の獣サロニール
      --Byssted Saronir
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCondition(s.spcon1)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCondition(s.spcon2)
      c:RegisterEffect(e2)
      --to grave
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_TOGRAVE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_TO_GRAVE)
      e3:SetCountLimit(1,id+o)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetTarget(s.target)
      e3:SetOperation(s.operation)
      c:RegisterEffect(e3)
      end
      function s.spcon1(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)==0
      end
      function s.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0
      end
      function s.cfilter(c)
      return c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK) and c:IsAbleToRemove()
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and s.cfilter(chkc) end
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingTarget(s.cfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectTarget(tp,s.cfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,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.Remove(tc,POS_FACEUP,REASON_EFFECT)>0 and c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.filter(c)
      return c:IsAbleToGrave() and not c:IsCode(id)
      and (c:IsType(TYPE_MONSTER) and c:IsSetCard(0x289)
      or c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0x15d))
      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_TOGRAVE,nil,1,tp,LOCATION_DECK)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      script/c101110008.lua deleted 100644 → 0
      View file @ 3334dc3c
      --深淵の獣ドルイドヴルム
      --Byssted Druidwurm
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCondition(s.spcon1)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetCondition(s.spcon2)
      c:RegisterEffect(e2)
      --to grave
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_TOGRAVE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_TO_GRAVE)
      e3:SetCountLimit(1,id+o)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e3:SetCondition(s.condition)
      e3:SetTarget(s.target)
      e3:SetOperation(s.operation)
      c:RegisterEffect(e3)
      end
      function s.spcon1(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)==0
      end
      function s.spcon2(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0
      end
      function s.cfilter(c)
      return c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK) and c:IsAbleToRemove()
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and s.cfilter(chkc) end
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingTarget(s.cfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectTarget(tp,s.cfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,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.Remove(tc,POS_FACEUP,REASON_EFFECT)>0 and c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.filter(c)
      return c:IsSummonType(SUMMON_TYPE_SPECIAL) and c:IsAbleToGrave()
      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) and s.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectTarget(tp,s.filter,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,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
      Duel.SendtoGrave(tc,REASON_EFFECT)
      end
      end
      script/c101110009.lua deleted 100644 → 0
      View file @ 3334dc3c
      --深淵の獣ルベリオン
      --The Byssted Lubellion
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --splimit
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetCode(EFFECT_SPSUMMON_CONDITION)
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      c:RegisterEffect(e0)
      --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+LOCATION_GRAVE)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(s.spcon)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetCountLimit(1,id+o)
      e2:SetCost(s.thcost)
      e2:SetTarget(s.thtg)
      e2:SetOperation(s.thop)
      c:RegisterEffect(e2)
      --set
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,id+o*2)
      e3:SetTarget(s.target)
      e3:SetOperation(s.operation)
      c:RegisterEffect(e3)
      end
      function s.cfilter(c,tp)
      return c:IsLevelAbove(6) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON)
      and Duel.GetMZoneCount(tp,c)>0
      end
      function s.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.CheckReleaseGroup(tp,s.cfilter,1,nil,tp)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local g=Duel.SelectReleaseGroup(tp,s.cfilter,1,1,nil,tp)
      Duel.Release(g,REASON_COST)
      end
      function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToGraveAsCost() end
      Duel.SendtoGrave(c,REASON_COST)
      end
      function s.filter(c)
      return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x289) 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.pfilter(c,tp)
      return c:IsType(TYPE_CONTINUOUS) and c:IsSetCard(0x15d)
      and not c:IsForbidden() and c:CheckUniqueOnField(tp)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingMatchingCard(s.pfilter,tp,LOCATION_DECK,0,1,nil,tp) end
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local tc=Duel.SelectMatchingCard(tp,s.pfilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
      if tc then Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) end
      end
      script/c101110010.lua deleted 100644 → 0
      View file @ 3334dc3c
      --深淵の獣アルバ・ロス
      --The Byssted Alba Los
      --Script by Lyris12
      local s,id=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --splimit
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetCode(EFFECT_SPSUMMON_CONDITION)
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      c:RegisterEffect(e0)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCondition(s.spcon)
      e1:SetOperation(s.spop)
      e1:SetValue(SUMMON_VALUE_SELF)
      c:RegisterEffect(e1)
      --disable
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_DISABLE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_RITUAL+TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK))
      e2:SetCondition(s.negcon)
      c:RegisterEffect(e2)
      --banish
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_LEAVE_FIELD)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCategory(CATEGORY_REMOVE)
      e3:SetCondition(s.rmcon)
      e3:SetTarget(s.rmtg)
      e3:SetOperation(s.rmop)
      c:RegisterEffect(e3)
      end
      function s.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      local g=Duel.GetReleaseGroup(tp):Filter(Card.IsSetCard,nil,0x289)
      return g:CheckSubGroup(aux.mzctcheckrel,2,2,tp)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
      local g=Duel.GetReleaseGroup(tp):Filter(Card.IsSetCard,nil,0x289)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local sg=g:SelectSubGroup(tp,aux.mzctcheckrel,false,2,2,tp)
      Duel.Release(sg,REASON_COST)
      end
      function s.negcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_VALUE_SELF)
      end
      function s.rmcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousPosition(POS_FACEUP) and c:IsReason(REASON_EFFECT) and c:IsPreviousControler(tp)
      and rp==1-tp
      end
      function s.rmfilter(c)
      return c:IsAbleToRemove() and c:IsFacedown()
      end
      function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(s.rmfilter,tp,LOCATION_EXTRA,LOCATION_EXTRA,nil)
      if chk==0 then return #g>0 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,#g,0,0)
      end
      function s.rmop(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(s.rmfilter,tp,LOCATION_EXTRA,LOCATION_EXTRA,nil)
      if Duel.Remove(sg,POS_FACEUP,REASON_EFFECT+REASON_TEMPORARY)>0
      and sg:IsExists(Card.IsLocation,1,nil,LOCATION_REMOVED) then
      local c=e:GetHandler()
      local og=Duel.GetOperatedGroup():Filter(Card.IsLocation,nil,LOCATION_REMOVED)
      local tc=og:GetFirst()
      while tc do
      tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1)
      tc=og:GetNext()
      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+RESET_OPPO_TURN)
      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)
      return Duel.GetTurnPlayer()~=tp and e:GetLabelObject():IsExists(s.retfilter,1,nil)
      end
      function s.retop(e,tp,eg,ep,ev,re,r,rp)
      local g=e:GetLabelObject()
      local tg=g:Filter(s.retfilter,nil,e:GetLabel())
      Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      g:DeleteGroup()
      end
      script/c101110011.lua deleted 100644 → 0
      View file @ 3334dc3c
      --赫の聖女カルテシア
      --Red Cartesia, the Virtuous
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,68468459)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --fusion summon
      local e2=Effect.CreateEffect(c)
      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.condition)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      --to hand
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_PHASE+PHASE_END)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetCountLimit(1,id+o*2)
      e3:SetCondition(s.thcon)
      e3:SetTarget(s.thtg)
      e3:SetOperation(s.thop)
      c:RegisterEffect(e3)
      if not s.global_check then
      s.global_check=true
      local ge1=Effect.CreateEffect(c)
      ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge1:SetCode(EVENT_TO_GRAVE)
      ge1:SetOperation(s.checkop)
      Duel.RegisterEffect(ge1,0)
      end
      end
      function s.spcfilter(c)
      return c:IsCode(68468459) and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.spcfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,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.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.condition(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
      end
      function s.filter1(c,e)
      return not c:IsImmuneToEffect(e)
      end
      function s.filter2(c,e,tp,m,f,chkf)
      return c:IsType(TYPE_FUSION) and c:IsLevelAbove(8) 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.target(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(s.filter2,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.filter2,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.operation(e,tp,eg,ep,ev,re,r,rp)
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
      local sg1=Duel.GetMatchingGroup(s.filter2,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(s.filter2,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
      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)
      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)
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat2)
      end
      tc:CompleteProcedure()
      end
      end
      function s.checkfilter(c,tp)
      return c:IsType(TYPE_FUSION) and c:IsControler(tp)
      end
      function s.checkop(e,tp,eg,ep,ev,re,r,rp)
      if eg:IsExists(s.checkfilter,1,nil,0) then Duel.RegisterFlagEffect(0,id,RESET_PHASE+PHASE_END,0,1) end
      if eg:IsExists(s.checkfilter,1,nil,1) then Duel.RegisterFlagEffect(1,id,RESET_PHASE+PHASE_END,0,1) end
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetFlagEffect(tp,id)>0
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToHand() end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
      end
      function s.thop(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
      script/c101110012.lua deleted 100644 → 0
      View file @ 3334dc3c
      --クシャトリラ・フェンリル
      --Script by JoyJ
      function c101110012.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110012,0))
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(c101110012.spcon)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110012,1))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,101110012)
      e2:SetTarget(c101110012.thtg)
      e2:SetOperation(c101110012.thop)
      c:RegisterEffect(e2)
      --remove when attack
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110012,2))
      e3:SetCategory(CATEGORY_REMOVE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCode(EVENT_ATTACK_ANNOUNCE)
      e3:SetCountLimit(1,101110012+100)
      e3:SetTarget(c101110012.rmtg)
      e3:SetOperation(c101110012.rmop)
      c:RegisterEffect(e3)
      --remove when chaining
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(101110012,2))
      e4:SetCategory(CATEGORY_REMOVE)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_CHAINING)
      e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,101110012+100)
      e4:SetCondition(c101110012.rmcon)
      e4:SetTarget(c101110012.rmtg)
      e4:SetOperation(c101110012.rmop)
      c:RegisterEffect(e4)
      end
      function c101110012.spcon(e,c)
      if c==nil then return true end
      return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0
      and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
      end
      function c101110012.thfilter(c)
      return c:IsSetCard(0x288) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c101110012.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110012.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c101110012.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c101110012.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 c101110012.rmfilter(c,tp)
      return c:IsFaceup() and c:IsAbleToRemove(tp,POS_FACEDOWN)
      end
      function c101110012.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c101110012.rmfilter(chkc,tp) end
      if chk==0 then return Duel.IsExistingTarget(c101110012.rmfilter,tp,0,LOCATION_ONFIELD,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectTarget(tp,c101110012.rmfilter,tp,0,LOCATION_ONFIELD,1,1,nil,tp)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      end
      function c101110012.rmop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
      end
      end
      function c101110012.rmcon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp and re:IsActiveType(TYPE_MONSTER)
      end
      \ No newline at end of file
      script/c101110013.lua deleted 100644 → 0
      View file @ 3334dc3c
      --クシャトリラ・ユニコーン
      --Script by JoyJ
      function c101110013.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110013,0))
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(c101110013.spcon)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110013,1))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,101110013)
      e2:SetTarget(c101110013.thtg)
      e2:SetOperation(c101110013.thop)
      c:RegisterEffect(e2)
      --remove when attack
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110013,2))
      e3:SetCategory(CATEGORY_REMOVE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_ATTACK_ANNOUNCE)
      e3:SetCountLimit(1,101110013+100)
      e3:SetTarget(c101110013.rmtg)
      e3:SetOperation(c101110013.rmop)
      c:RegisterEffect(e3)
      --remove when chaining
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(101110013,2))
      e4:SetCategory(CATEGORY_REMOVE)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_CHAINING)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,101110013+100)
      e4:SetCondition(c101110013.rmcon)
      e4:SetTarget(c101110013.rmtg)
      e4:SetOperation(c101110013.rmop)
      c:RegisterEffect(e4)
      end
      function c101110013.spcon(e,c)
      if c==nil then return true end
      return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0
      and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
      end
      function c101110013.thfilter(c)
      return c:IsSetCard(0x288) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
      end
      function c101110013.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110013.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c101110013.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c101110013.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 c101110013.rmfilter(c,tp)
      return c:IsAbleToRemove(tp,POS_FACEDOWN)
      end
      function c101110013.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110013.rmfilter,tp,0,LOCATION_EXTRA,1,nil,tp) end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_EXTRA)
      end
      function c101110013.rmop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA)
      Duel.ConfirmCards(tp,g)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local sg=g:FilterSelect(tp,c101110013.rmfilter,1,1,nil,tp)
      if #sg>0 then
      Duel.Remove(sg,POS_FACEDOWN,REASON_EFFECT)
      end
      Duel.ShuffleExtra(1-tp)
      end
      function c101110013.rmcon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp and re:IsActiveType(TYPE_MONSTER)
      end
      \ No newline at end of file
      script/c101110014.lua deleted 100644 → 0
      View file @ 3334dc3c
      --クシャトリラ・オーガ
      --Script by JoyJ
      function c101110014.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110014,0))
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(c101110014.spcon)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110014,1))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,101110014)
      e2:SetTarget(c101110014.thtg)
      e2:SetOperation(c101110014.thop)
      c:RegisterEffect(e2)
      --remove when attack
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110014,2))
      e3:SetCategory(CATEGORY_REMOVE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_ATTACK_ANNOUNCE)
      e3:SetCountLimit(1,101110014+100)
      e3:SetTarget(c101110014.rmtg)
      e3:SetOperation(c101110014.rmop)
      c:RegisterEffect(e3)
      --remove when chaining
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(101110014,2))
      e4:SetCategory(CATEGORY_REMOVE)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_CHAINING)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,101110014+100)
      e4:SetCondition(c101110014.rmcon)
      e4:SetTarget(c101110014.rmtg)
      e4:SetOperation(c101110014.rmop)
      c:RegisterEffect(e4)
      end
      function c101110014.spcon(e,c)
      if c==nil then return true end
      return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0
      and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
      end
      function c101110014.thfilter(c)
      return c:IsSetCard(0x288) and c:IsType(TYPE_TRAP) and c:IsAbleToHand()
      end
      function c101110014.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110014.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c101110014.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c101110014.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 c101110014.rmfilter(c,tp)
      return c:IsAbleToRemove(tp,POS_FACEDOWN)
      end
      function c101110014.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetDecktopGroup(1-tp,1)
      if chk==0 then return g and #g>0 and g:GetFirst():IsAbleToRemove(tp,POS_FACEDOWN) end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_DECK)
      end
      function c101110014.rmop(e,tp,eg,ep,ev,re,r,rp)
      local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
      if ct>5 then ct=5 end
      if ct>1 then
      local tbl={}
      for i=1,ct do
      table.insert(tbl,i)
      end
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(101110014,3))
      ct=Duel.AnnounceNumber(tp,table.unpack(tbl))
      end
      Duel.ConfirmDecktop(1-tp,ct)
      local g=Duel.GetDecktopGroup(1-tp,ct)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local sg=g:FilterSelect(tp,c101110014.rmfilter,1,1,nil,tp)
      if #sg>0 then
      Duel.DisableShuffleCheck(true)
      Duel.Remove(sg,POS_FACEDOWN,REASON_EFFECT)
      end
      end
      function c101110014.rmcon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp and re:IsActiveType(TYPE_MONSTER)
      end
      \ No newline at end of file
      script/c101110015.lua deleted 100644 → 0
      View file @ 3334dc3c
      --宙の忍者－鳥帷
      --Sky Ninja Tobari
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --indes
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetOperation(s.regop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_FLIP)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,0))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_HAND)
      e3:SetCountLimit(1,id)
      e3:SetCost(s.spcost)
      e3:SetTarget(s.sptg)
      e3:SetOperation(s.spop)
      c:RegisterEffect(e3)
      --fusion
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,id+o)
      e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_BATTLE_END)
      e4:SetCondition(s.condition)
      e4:SetTarget(s.target)
      e4:SetOperation(s.operation)
      c:RegisterEffect(e4)
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      c:RegisterEffect(e2)
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToGraveAsCost() end
      Duel.SendtoGrave(c,REASON_COST)
      end
      function s.filter(c,e,tp)
      return c:IsSetCard(0x2b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_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.filter,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)<1 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_DEFENSE)
      if g:GetFirst():IsFacedown() then
      Duel.ConfirmCards(1-tp,g)
      end
      end
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return Duel.GetTurnPlayer()~=tp and ph>=PHASE_MAIN1 and ph<=PHASE_MAIN2
      end
      function s.sfilter(c,e,tp,m,f,chkf)
      return c:IsSetCard(0x2b) and 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.target(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(s.sfilter,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.sfilter,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.operation(e,tp,eg,ep,ev,re,r,rp)
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp):Filter(aux.NOT(Card.IsImmuneToEffect),nil,e)
      local sg1=Duel.GetMatchingGroup(s.sfilter,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(s.sfilter,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
      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)
      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)
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat2)
      end
      tc:CompleteProcedure()
      end
      end
      script/c101110016.lua deleted 100644 → 0
      View file @ 3334dc3c
      --蟲の忍者－蜜
      --Insect Ninja Mitsu
      --Script by Lyris12
      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)
      --negate
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_POSITION+CATEGORY_DISABLE)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_CHAINING)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCondition(s.condition)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      end
      function s.cfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x2b) or c:IsLocation(LOCATION_MZONE) and c:IsPosition(POS_FACEDOWN_DEFENSE)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,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.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.condition(e,tp,eg,ep,ev,re,r,rp)
      return ep==1-tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev)
      and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
      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 chkc:IsPosition(POS_FACEDOWN_DEFENSE) end
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingTarget(Card.IsPosition,tp,LOCATION_MZONE,0,1,nil,POS_FACEDOWN_DEFENSE)
      and c:IsCanTurnSet() end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWN)
      local g=Duel.SelectTarget(tp,Card.IsPosition,tp,LOCATION_MZONE,0,1,1,nil,POS_FACEDOWN_DEFENSE)
      g:AddCard(c)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,2,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFacedown()
      and Duel.ChangePosition(tc,POS_FACEUP_DEFENSE)>0 then
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsFaceup() and c:IsLocation(LOCATION_MZONE)
      and Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE)>0
      and tc:IsSetCard(0x2b) and not tc:IsCode(id) then
      Duel.BreakEffect()
      Duel.NegateEffect(ev)
      end
      end
      end
      script/c101110017.lua deleted 100644 → 0
      View file @ 3334dc3c
      --獣の忍者－獏
      --Beast Ninja Baku
      --Script by Lyris12
      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)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetCountLimit(1,id+o)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetTarget(s.thtg)
      e2:SetOperation(s.thop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_FLIP)
      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)
      return c:IsSetCard(0x2b,0x61) and c:IsAbleToHand() and not c:IsCode(id)
      and (c:IsFaceup() and c:GetSequence()<5 or c:IsLocation(LOCATION_GRAVE))
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_SZONE+LOCATION_GRAVE) and chkc:IsControler(tp) and s.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_SZONE+LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_SZONE+LOCATION_GRAVE,0,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/c101110018.lua deleted 100644 → 0
      View file @ 3334dc3c
      --銃の忍者－火光
      --Musket Ninja Kagero
      --Script by Lyris12
      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+CATEGORY_GRAVE_SPSUMMON)
      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.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      local e3=e1:Clone()
      e3:SetCode(EVENT_FLIP)
      c:RegisterEffect(e3)
      --tohand
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_CHAINING)
      e4:SetRange(LOCATION_GRAVE)
      e4:SetCountLimit(1,id+o)
      e4:SetCondition(s.condition)
      e4:SetTarget(s.target)
      e4:SetOperation(s.operation)
      c:RegisterEffect(e4)
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x2b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
      and not c:IsCode(id)
      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_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.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      if rp~=1-tp or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
      local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
      if not g or g:GetCount()~=1 then return false end
      local tc=g:GetFirst()
      e:SetLabelObject(tc)
      return tc:IsOnField() and tc:IsControler(tp)
      and (tc:IsFaceup() and tc:IsSetCard(0x2b)
      or tc:IsLocation(LOCATION_MZONE) and tc:IsPosition(POS_FACEDOWN_DEFENSE))
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local tc=e:GetLabelObject()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and tc and tc:IsAbleToHand() end
      Duel.SetTargetCard(tc)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,tc,1,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) or Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)==0 then return end
      Duel.ConfirmCards(1-tp,Group.FromCards(c))
      local tc=Duel.GetFirstTarget()
      if tc and tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) end
      end
      script/c101110019.lua deleted 100644 → 0
      View file @ 3334dc3c
      --占術姫ビブリオムーサ
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Special Summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_TO_GRAVE)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --Search
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.thtg)
      e2:SetOperation(s.thop)
      c:RegisterEffect(e2)
      --cannot be target
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e3:SetRange(LOCATION_MZONE)
      e3:SetTargetRange(LOCATION_MZONE,0)
      e3:SetTarget(s.imetg)
      e3:SetValue(aux.indoval)
      c:RegisterEffect(e3)
      --indes
      local e4=e3:Clone()
      e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
      e4:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e4:SetValue(aux.tgoval)
      c:RegisterEffect(e4)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsReason(REASON_RELEASE)
      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,POS_FACEDOWN_DEFENSE) 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)
      and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)~=0 then
      Duel.ConfirmCards(1-tp,c)
      end
      end
      function s.thfilter(c,tp)
      return not c:IsCode(id)
      and c:IsSetCard(0xcc) and c:IsType(TYPE_MONSTER)
      and c:IsAbleToHand()
      and Duel.IsExistingMatchingCard(s.thfilter2,tp,LOCATION_DECK,0,1,c)
      end
      function s.thfilter2(c)
      return bit.band(c:GetType(),0x82)==0x82 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,tp) 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 g1=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil,tp)
      if g1:GetCount()>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g2=Duel.SelectMatchingCard(tp,s.thfilter2,tp,LOCATION_DECK,0,1,1,g1:GetFirst())
      g1:Merge(g2)
      Duel.SendtoHand(g1,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g1)
      end
      end
      function s.imetg(e,c)
      return c:IsType(TYPE_RITUAL)
      end
      script/c101110020.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ナチュル・モルクリケット
      --
      --Script by Trishula9
      function c101110020.initial_effect(c)
      --same effect send this card to grave and spsummon another card check
      local e0=aux.AddThisCardInGraveAlreadyCheck(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110020,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_MZONE)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCountLimit(1,101110020)
      e1:SetCondition(c101110020.spcon)
      e1:SetCost(c101110020.spcost)
      e1:SetTarget(c101110020.sptg)
      e1:SetOperation(c101110020.spop)
      c:RegisterEffect(e1)
      --revive
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110020,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,101110020+100)
      e2:SetLabelObject(e0)
      e2:SetCondition(c101110020.rvcon)
      e2:SetTarget(c101110020.rvtg)
      e2:SetOperation(c101110020.rvop)
      c:RegisterEffect(e2)
      end
      function c101110020.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function c101110020.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local fe=Duel.IsPlayerAffectedByEffect(tp,101110021)
      local b1=fe and Duel.IsPlayerCanDiscardDeckAsCost(tp,2) and Duel.GetMZoneCount(tp)>0
      local b2=c:IsReleasable() and Duel.GetMZoneCount(tp,c)>0
      if chk==0 then return b1 or b2 end
      if b1 and (not b2 or Duel.SelectYesNo(tp,fe:GetDescription())) then
      Duel.Hint(HINT_CARD,0,101110021)
      fe:UseCountLimit(tp)
      Duel.DiscardDeck(tp,2,REASON_COST)
      else
      Duel.Release(c,REASON_COST)
      end
      end
      function c101110020.spfilter(c,e,tp)
      return c:IsSetCard(0x2a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110020.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110020.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function c101110020.spop(e,tp,eg,ep,ev,re,r,rp)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if ft<=0 then return end
      local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      local tg=g:GetMaxGroup(Card.GetAttack)
      if ft>=2 and not Duel.IsPlayerAffectedByEffect(tp,59822133)
      and tg and tg:IsExists(Card.IsControler,1,nil,1-tp) then
      ft=2
      else
      ft=1
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=Duel.SelectMatchingCard(tp,c101110020.spfilter,tp,LOCATION_DECK,0,1,ft,nil,e,tp)
      if sg:GetCount()>0 then
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c101110020.cfilter(c,tp,se)
      return (c:IsSummonPlayer(1-tp) or c:IsSetCard(0x2a)) and c:IsSummonLocation(LOCATION_EXTRA)
      and (se==nil or c:GetReasonEffect()~=se)
      end
      function c101110020.rvcon(e,tp,eg,ep,ev,re,r,rp)
      local se=e:GetLabelObject():GetLabelObject()
      return eg:IsExists(c101110020.cfilter,1,nil,tp,se)
      end
      function c101110020.rvtg(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 c101110020.rvop(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/c101110021.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ナチュル・カメリア
      --
      --Script by Trishula9
      function c101110021.initial_effect(c)
      --to grave
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110021,0))
      e1:SetCategory(CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,101110021)
      e1:SetTarget(c101110021.tgtg)
      e1:SetOperation(c101110021.tgop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --change cost
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110021,1))
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetCode(101110021)
      e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e3:SetRange(LOCATION_MZONE)
      e3:SetTargetRange(1,0)
      e3:SetCountLimit(1,101110021+100)
      c:RegisterEffect(e3)
      --spsummon
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(101110021,2))
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_SUMMON_SUCCESS)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,101110021+200)
      e4:SetCondition(c101110021.spcon)
      e4:SetTarget(c101110021.sptg)
      e4:SetOperation(c101110021.spop)
      c:RegisterEffect(e4)
      local e5=e4:Clone()
      e5:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e5)
      end
      function c101110021.tgfilter(c)
      return c:IsSetCard(0x2a) and c:IsAbleToGrave()
      end
      function c101110021.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110021.tgfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
      end
      function c101110021.tgop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c101110021.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      function c101110021.cfilter(c,tp)
      return c:IsSummonPlayer(tp)
      end
      function c101110021.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c101110021.cfilter,1,nil,1-tp)
      end
      function c101110021.spfilter(c,e,tp)
      return c:IsSetCard(0x2a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110021.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110021.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
      end
      function c101110021.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,c101110021.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c101110022.lua deleted 100644 → 0
      View file @ 3334dc3c
      --竜剣士イグニスP
      --
      --Script by Trishula9
      function c101110022.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TODECK+CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1,101110022)
      e1:SetTarget(c101110022.thtg)
      e1:SetOperation(c101110022.thop)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_DESTROYED)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,101110022+100)
      e2:SetCondition(c101110022.spcon)
      e2:SetTarget(c101110022.sptg)
      e2:SetOperation(c101110022.spop)
      c:RegisterEffect(e2)
      end
      function c101110022.tdfilter(c)
      return c:IsType(TYPE_PENDULUM) and c:IsFaceup() and c:IsAbleToDeck()
      end
      function c101110022.thfilter(c)
      return c:IsSetCard(0xc7,0xc8) and c:IsType(TYPE_MONSTER) and not c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
      end
      function c101110022.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110022.tdfilter,tp,LOCATION_EXTRA,0,1,nil)
      and Duel.IsExistingMatchingCard(c101110022.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_EXTRA)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c101110022.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local tc=Duel.SelectMatchingCard(tp,c101110022.tdfilter,tp,LOCATION_EXTRA,0,1,1,nil):GetFirst()
      if tc and Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_DECK) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c101110022.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.BreakEffect()
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      end
      function c101110022.spcon(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
      end
      function c101110022.spfilter(c,e,tp)
      return c:IsSetCard(0xc7,0xc8) and not c:IsCode(101110022) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110022.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110022.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function c101110022.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 tc=Duel.SelectMatchingCard(tp,c101110022.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp):GetFirst()
      if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_ADD_TYPE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetValue(TYPE_TUNER)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      \ No newline at end of file
      script/c101110023.lua deleted 100644 → 0
      View file @ 3334dc3c
      --竜剣士マジェスティP
      --
      --Script by Trishula9
      function c101110023.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110023,0))
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1,101110023)
      e1:SetCondition(c101110023.srcon)
      e1:SetTarget(c101110023.srtg)
      e1:SetOperation(c101110023.srop)
      c:RegisterEffect(e1)
      --indes
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110023,2))
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_HAND)
      e2:SetCost(c101110023.cost)
      e2:SetTarget(c101110023.target)
      e2:SetOperation(c101110023.operation)
      c:RegisterEffect(e2)
      --to hand
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110023,3))
      e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_HANDES)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,101110023+100)
      e3:SetCondition(c101110023.thcon)
      e3:SetTarget(c101110023.thtg)
      e3:SetOperation(c101110023.thop)
      c:RegisterEffect(e3)
      end
      function c101110023.cfilter(c)
      return c:IsSetCard(0xc7,0xd0)
      end
      function c101110023.srcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c101110023.cfilter,tp,LOCATION_PZONE,0,1,e:GetHandler())
      end
      function c101110023.srfilter(c,oc)
      return not c:IsOriginalCodeRule(oc:GetOriginalCodeRule()) and c:IsSetCard(0xc7) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
      end
      function c101110023.srtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local oc=Duel.GetFirstMatchingCard(nil,tp,LOCATION_PZONE,0,e:GetHandler())
      return Duel.IsExistingMatchingCard(c101110023.srfilter,tp,LOCATION_DECK,0,1,nil,oc)
      end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c101110023.srop(e,tp,eg,ep,ev,re,r,rp)
      local oc=Duel.GetFirstMatchingCard(nil,tp,LOCATION_PZONE,0,e:GetHandler())
      if not oc then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local tc=Duel.SelectMatchingCard(tp,c101110023.srfilter,tp,LOCATION_DECK,0,1,1,nil,oc):GetFirst()
      if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND)
      and Duel.SelectYesNo(tp,aux.Stringid(101110023,1)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.GetFieldGroup(tp,LOCATION_PZONE,0):Select(tp,1,1,nil)
      if g:GetCount()>0 then
      Duel.BreakEffect()
      Duel.HintSelection(g)
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      end
      function c101110023.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 c101110023.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFlagEffect(tp,101110023)==0 end
      end
      function c101110023.operation(e,tp,eg,ep,ev,re,r,rp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetTarget(c101110023.efftg)
      e1:SetValue(aux.tgoval)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e2:SetValue(aux.indoval)
      Duel.RegisterEffect(e2,tp)
      Duel.RegisterFlagEffect(tp,101110023,RESET_PHASE+PHASE_END,0,1)
      end
      function c101110023.efftg(e,c)
      return c:IsSetCard(0xc7)
      end
      function c101110023.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM) or (re and re:GetHandler():IsSetCard(0xc7))
      end
      function c101110023.thfilter(c)
      return c:IsType(TYPE_FIELD) and c:IsAbleToHand()
      end
      function c101110023.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110023.thfilter,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 c101110023.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local tc=Duel.SelectMatchingCard(tp,c101110023.thfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
      if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) then
      Duel.ConfirmCards(1-tp,tc)
      Duel.ShuffleHand(tp)
      Duel.BreakEffect()
      Duel.DiscardHand(tp,nil,1,1,REASON_DISCARD+REASON_EFFECT,nil)
      end
      end
      \ No newline at end of file
      script/c101110024.lua deleted 100644 → 0
      View file @ 3334dc3c
      --竜剣士ダイナマイトP
      --
      --Script by Trishula9
      function c101110024.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,101110024)
      e1:SetTarget(c101110024.sptg)
      e1:SetOperation(c101110024.spop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_RELEASE)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,101110024+100)
      e2:SetTarget(c101110024.thtg)
      e2:SetOperation(c101110024.thop)
      c:RegisterEffect(e2)
      end
      function c101110024.spfilter(c,e,tp)
      return c:IsSetCard(0xc7,0xd8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110024.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_PZONE) and chkc~=c and c101110024.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c101110024.spfilter,tp,LOCATION_PZONE,0,1,c,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c101110024.spfilter,tp,LOCATION_PZONE,0,1,1,c,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c101110024.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
      function c101110024.thfilter(c)
      return c:IsSetCard(0xc7,0xd8) and not c:IsCode(101110024) and c:IsType(TYPE_PENDULUM) and c:IsFaceup() and c:IsAbleToHand()
      end
      function c101110024.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110024.thfilter,tp,LOCATION_EXTRA,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA)
      end
      function c101110024.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c101110024.thfilter,tp,LOCATION_EXTRA,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      \ No newline at end of file
      script/c101110025.lua deleted 100644 → 0
      View file @ 3334dc3c
      --春化精の女神 ヴェーラ
      --
      --Script by Trishula9
      function c101110025.initial_effect(c)
      --control
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110025,0))
      e1:SetCategory(CATEGORY_CONTROL)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,101110025)
      e1:SetTarget(c101110025.cttg)
      e1:SetOperation(c101110025.ctop)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110025,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCountLimit(1,101110025+100)
      e2:SetCondition(c101110025.spcon)
      e2:SetTarget(c101110025.sptg)
      e2:SetOperation(c101110025.spop)
      c:RegisterEffect(e2)
      --negate
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e3:SetCode(EVENT_CHAIN_SOLVING)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCondition(c101110025.discon)
      e3:SetOperation(c101110025.disop)
      c:RegisterEffect(e3)
      end
      function c101110025.ctfilter(c)
      return c:IsControlerCanBeChanged() and c:IsFaceup()
      end
      function c101110025.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c101110025.ctfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c101110025.ctfilter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
      local g=Duel.SelectTarget(tp,c101110025.ctfilter,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
      end
      function c101110025.ctop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.GetControl(tc,tp)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_ATTRIBUTE)
      e1:SetValue(ATTRIBUTE_EARTH)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      function c101110025.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==1-tp
      end
      function c101110025.spfilter(c,e,tp)
      return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110025.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c101110025.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c101110025.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c101110025.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c101110025.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c101110025.disfilter(c)
      return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsFaceup()
      end
      function c101110025.discon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp and Duel.IsChainDisablable(ev) and re:IsActiveType(TYPE_MONSTER)
      and Duel.GetMatchingGroupCount(c101110025.disfilter,tp,LOCATION_MZONE,0,nil)>=5
      and e:GetHandler():GetFlagEffect(101110025)<=0
      end
      function c101110025.disop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(101110025,2)) then
      Duel.Hint(HINT_CARD,0,101110025)
      local rc=re:GetHandler()
      if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then
      Duel.Destroy(rc,REASON_EFFECT)
      end
      e:GetHandler():RegisterFlagEffect(101110025,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(101110025,3))
      end
      end
      \ No newline at end of file
      script/c101110026.lua deleted 100644 → 0
      View file @ 3334dc3c
      --苗と霞の春化精
      --
      --Script by Trishula9
      function c101110026.initial_effect(c)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,101110026)
      e1:SetCost(c101110026.thcost)
      e1:SetTarget(c101110026.thtg)
      e1:SetOperation(c101110026.thop)
      c:RegisterEffect(e1)
      --atk down
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetRange(LOCATION_MZONE)
      e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e2:SetTarget(c101110026.atktg)
      e2:SetValue(-600)
      c:RegisterEffect(e2)
      end
      function c101110026.costfilter(c)
      return (c:IsType(TYPE_MONSTER) or c:IsSetCard(0x182)) and c:IsDiscardable()
      end
      function c101110026.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local fe=Duel.IsPlayerAffectedByEffect(tp,14108995)
      local b2=Duel.IsExistingMatchingCard(c101110026.costfilter,tp,LOCATION_HAND,0,1,c)
      if chk==0 then return c:IsDiscardable() and (fe or b2) end
      if fe and (not b2 or Duel.SelectYesNo(tp,aux.Stringid(14108995,0))) then
      Duel.Hint(HINT_CARD,0,14108995)
      fe:UseCountLimit(tp)
      Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
      else
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
      local g=Duel.SelectMatchingCard(tp,c101110026.costfilter,tp,LOCATION_HAND,0,1,1,c)
      g:AddCard(c)
      Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
      end
      end
      function c101110026.thfilter(c)
      return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsAbleToHand() and not c:IsCode(101110026)
      end
      function c101110026.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110026.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c101110026.spfilter(c,e,tp)
      return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110026.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c101110026.thfilter,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)
      local sg=Duel.GetMatchingGroup(aux.NecroValleyFilter(c101110026.spfilter),tp,LOCATION_GRAVE,0,nil,e,tp)
      if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(101110026,0)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sc=sg:Select(tp,1,1,nil)
      Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_ACTIVATE)
      e1:SetTargetRange(1,0)
      e1:SetValue(c101110026.aclimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function c101110026.aclimit(e,re,tp)
      return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsAttribute(ATTRIBUTE_EARTH)
      end
      function c101110026.atktg(e,c)
      return not c:IsSetCard(0x182)
      end
      script/c101110027.lua deleted 100644 → 0
      View file @ 3334dc3c
      --空牙団の積荷 レクス
      --Script by 奥克斯
      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_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.thtg)
      e1:SetOperation(s.thop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --to hand or special summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetHintTiming(0,TIMING_MAIN_END)
      e3:SetCountLimit(1,id+o)
      e3:SetCondition(s.spcon)
      e3:SetCost(aux.bfgcost)
      e3:SetTarget(s.sptg)
      e3:SetOperation(s.spop)
      c:RegisterEffect(e3)
      end
      function s.thfilter(c)
      return c:IsSetCard(0x114) 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)
      return c:IsFaceup() and c:IsSetCard(0x114)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
      end
      function s.spfilter(c,e,tp)
      if not c:IsSetCard(0x114) then return false end
      local sp=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      if c:IsType(TYPE_MONSTER) then
      return c:IsAbleToHand() or sp and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      else return c:IsAbleToHand() end
      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.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetFirst():IsType(TYPE_MONSTER) then
      e:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION+CATEGORY_GRAVE_SPSUMMON)
      else
      e:SetCategory(CATEGORY_TOHAND)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) then return end
      if tc:IsType(TYPE_MONSTER)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>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)
      end
      end
      script/c101110028.lua deleted 100644 → 0
      View file @ 3334dc3c
      --テセア聖霊器
      --Script by JoyJ
      function c101110028.initial_effect(c)
      aux.AddCodeList(c,3285552)
      --Special Summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110028,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,101110028)
      e1:SetCondition(c101110028.sscon)
      e1:SetTarget(c101110028.sstg)
      e1:SetOperation(c101110028.ssop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110028,1))
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,101110028+100)
      e2:SetCost(c101110028.thcost)
      e2:SetTarget(c101110028.thtg)
      e2:SetOperation(c101110028.thop)
      c:RegisterEffect(e2)
      Duel.AddCustomActivityCounter(101110028,ACTIVITY_SPSUMMON,c101110028.counterfilter)
      end
      function c101110028.counterfilter(c)
      return aux.IsCodeListed(c,3285552) or c:IsCode(3285552)
      end
      function c101110028.cfilter(c)
      return c:IsFaceup() and c:IsCode(3285552)
      end
      function c101110028.sscon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c101110028.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function c101110028.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 c101110028.ssop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      function c101110028.thcfilter(c)
      return aux.IsCodeListed(c,3285552) and not c:IsPublic()
      end
      function c101110028.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetCustomActivityCount(101110028,tp,ACTIVITY_SPSUMMON)==0
      and Duel.IsExistingMatchingCard(c101110028.thcfilter,tp,LOCATION_HAND,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
      local g=Duel.SelectMatchingCard(tp,c101110028.thcfilter,tp,LOCATION_HAND,0,1,1,nil)
      Duel.ConfirmCards(1-tp,g)
      Duel.ShuffleHand(tp)
      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(c101110028.splimit)
      Duel.RegisterEffect(e1,tp)
      end
      function c101110028.splimit(e,c)
      return not c101110028.counterfilter(c)
      end
      function c101110028.thfilter(c)
      return c:IsType(TYPE_SPELL) and c:GetType()~=TYPE_SPELL and aux.IsCodeListed(c,3285552) and c:IsAbleToHand()
      end
      function c101110028.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110028.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c101110028.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c101110028.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
      script/c101110029.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ソウル·シザ一
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --same effect send this card to grave and spsummon another card check
      local e0=aux.AddThisCardInGraveAlreadyCheck(c)
      --Special Summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetRange(LOCATION_GRAVE)
      e1:SetCode(EVENT_TO_GRAVE)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      e1:SetLabelObject(e0)
      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:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(s.descon)
      e2:SetTarget(s.destg)
      e2:SetOperation(s.desop)
      c:RegisterEffect(e2)
      end
      function s.cfilter(c,se)
      return c:IsReason(REASON_DESTROY)
      and c:IsReason(REASON_BATTLE+REASON_EFFECT)
      and c:IsPreviousLocation(LOCATION_MZONE)
      and (se==nil or c:GetReasonEffect()~=se)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      local se=e:GetLabelObject():GetLabelObject()
      return eg:IsExists(s.cfilter,1,nil,se) and not eg:IsContains(e:GetHandler())
      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 e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if 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_REMOVED)
      c:RegisterEffect(e1,true)
      end
      end
      function s.descon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_GRAVE)
      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 tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.Destroy(tc,REASON_EFFECT)
      end
      end
      script/c101110030.lua deleted 100644 → 0
      View file @ 3334dc3c
      --迷宮城の白銀姫
      --Script by 奥克斯
      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_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --cannot be target/effect indestructable
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
      e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(s.dcon)
      e2:SetValue(aux.tgoval)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e3:SetValue(aux.indoval)
      c:RegisterEffect(e3)
      --Trap Set
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_CHAINING)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,id+o)
      e4:SetCondition(s.setcon)
      e4:SetTarget(s.settg)
      e4:SetOperation(s.setop)
      c:RegisterEffect(e4)
      --
      Duel.AddCustomActivityCounter(id,ACTIVITY_CHAIN,s.chainfilter)
      end
      function s.chainfilter(re,tp,cid)
      local rc=re:GetHandler()
      return rc:IsCode(id) or not ((rc:GetType()==TYPE_TRAP and re:IsHasType(EFFECT_TYPE_ACTIVATE))
      or (rc:IsSetCard(0x17e)))
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCustomActivityCount(id,tp,ACTIVITY_CHAIN)>0
      or Duel.GetCustomActivityCount(id,1-tp,ACTIVITY_CHAIN)>0
      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,POS_FACEUP_DEFENSE) 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 not c:IsRelateToEffect(e) then return end
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
      end
      function s.dcon(e)
      return Duel.IsExistingMatchingCard(Card.IsFacedown,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil)
      end
      function s.setcon(e,tp,eg,ep,ev,re,r,rp)
      local rc=re:GetHandler()
      return rc:GetType()==TYPE_TRAP and re:IsHasType(EFFECT_TYPE_ACTIVATE)
      end
      function s.setfilter(c,rc)
      return not c:IsCode(rc:GetCode()) and c:GetType()==TYPE_TRAP and c:IsSSetable()
      end
      function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      local rc=re:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil,rc) end
      end
      function s.setop(e,tp,eg,ep,ev,re,r,rp)
      local rc=re:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil,rc)
      if g:GetCount()>0 then
      Duel.SSet(tp,g:GetFirst())
      end
      end
      script/c101110031.lua deleted 100644 → 0
      View file @ 3334dc3c
      --インフェルノクインサーモン
      --Script by VHisc
      function c101110031.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110031,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,101110031)
      e1:SetTarget(c101110031.sptg)
      e1:SetOperation(c101110031.spop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --token
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110031,1))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetCountLimit(1,101110031+100)
      e3:SetCondition(c101110031.tokcon)
      e3:SetTarget(c101110031.toktg)
      e3:SetOperation(c101110031.tokop)
      c:RegisterEffect(e3)
      end
      function c101110031.spfilter(c,e,tp)
      return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_FISH) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
      end
      function c101110031.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110031.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)
      end
      function c101110031.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c101110031.spfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c101110031.tokcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsReason(REASON_BATTLE)
      or (rp==1-tp and c:IsReason(REASON_EFFECT) and c:IsPreviousControler(tp))
      end
      function c101110031.toktg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,101110131,0,TYPES_TOKEN_MONSTER,0,0,1,RACE_FISH,ATTRIBUTE_WATER) end
      Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function c101110031.tokop(e,tp,eg,ep,ev,re,r,rp)
      local ft=5
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
      ft=math.min(ft,(Duel.GetLocationCount(tp,LOCATION_MZONE)))
      if ft<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,101110131,0,TYPES_TOKEN_MONSTER,0,0,1,RACE_FISH,ATTRIBUTE_WATER) then return end
      repeat
      local token=Duel.CreateToken(tp,101110131)
      Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
      ft=ft-1
      until ft<=0 or not Duel.SelectYesNo(tp,aux.Stringid(101110031,2))
      Duel.SpecialSummonComplete()
      end
      script/c101110032.lua deleted 100644 → 0
      View file @ 3334dc3c
      --キュウドウ魂 HAN-SHI
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --spirit return
      aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP)
      --pzone to hand
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCondition(s.thcon)
      e1:SetTarget(s.thtg)
      e1:SetOperation(s.thop)
      c:RegisterEffect(e1)
      --to hand and search
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetTarget(s.gytg)
      e2:SetOperation(s.gyop)
      c:RegisterEffect(e2)
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(Card.IsSummonType,1,nil,SUMMON_TYPE_PENDULUM)
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      end
      function s.tgfilter(c,tp)
      local g=c:GetColumnGroup()
      g:AddCard(c)
      return Duel.IsExistingMatchingCard(s.gyfilter,tp,LOCATION_ONFIELD,0,1,nil,g)
      end
      function s.gyfilter(c,g)
      return g:IsContains(c) and c:IsAbleToHand()
      end
      function s.thfilter(c)
      return not c:IsCode(id) and c:IsAttack(2400) and c:IsDefense(1000)
      and c:IsAbleToHand()
      end
      function s.gytg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_PZONE,0,1,nil,tp) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,0,1-tp,LOCATION_MZONE)
      end
      function s.gyop(e,tp,eg,ep,ev,re,r,rp)
      local pg=Duel.GetMatchingGroup(s.tgfilter,tp,LOCATION_PZONE,0,nil,tp)
      if pg:GetCount()==0 then return end
      local tg=Group.CreateGroup()
      for pc in aux.Next(pg) do
      local g=pc:GetColumnGroup()
      g:AddCard(pc)
      tg:Merge(Duel.GetMatchingGroup(s.gyfilter,tp,LOCATION_ONFIELD,0,nil,g))
      end
      if #tg>0 and Duel.SendtoHand(tg,nil,REASON_EFFECT)~=0
      and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil)
      and Duel.SelectYesNo(tp,aux.Stringid(id,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local sg=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if sg:GetCount()>0 then
      Duel.BreakEffect()
      Duel.SendtoHand(sg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,sg)
      end
      end
      end
      script/c101110033.lua deleted 100644 → 0
      View file @ 3334dc3c
      --道化鳥ラフィンパフィン
      --Script by 奥克斯
      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)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --Faup Spell/Trap to hand
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCondition(s.tohcon1)
      e2:SetCost(s.tohcost)
      e2:SetTarget(s.tohtg)
      e2:SetOperation(s.tohop)
      c:RegisterEffect(e1)
      local e3=e2:Clone()
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetHintTiming(0,TIMING_END_PHASE+TIMING_EQUIP)
      e3:SetCondition(s.tohcon2)
      c:RegisterEffect(e3)
      end
      function s.filter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsFaceup()
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
      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 e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      function s.confilter(c)
      return not (c:IsFaceup() and c:IsRace(RACE_WINDBEAST)) or c:IsFacedown()
      end
      function s.tohcon1(e,tp)
      local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
      return g:FilterCount(s.confilter,nil)>0
      end
      function s.tohcon2(e,tp)
      local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
      return #g>0 and g:FilterCount(s.confilter,nil)==0
      end
      function s.costfilter(c,tp)
      return c:IsRace(RACE_WINDBEAST) and (c:IsControler(tp) or c:IsFaceup())
      and Duel.IsExistingTarget(s.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c)
      end
      function s.tohcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckReleaseGroup(tp,s.costfilter,1,nil,tp) end
      local g=Duel.SelectReleaseGroup(tp,s.costfilter,1,1,nil,tp)
      Duel.Release(g,REASON_COST)
      end
      function s.cfilter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsFaceup() and c:IsAbleToHand()
      end
      function s.tohtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and s.cfilter(chkc) end
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingTarget(s.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,s.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function s.tohop(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.SendtoHand(tc,nil,REASON_EFFECT)>0
      and tc:IsLocation(LOCATION_HAND) then
      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:SetLabel(tc:GetCode())
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function s.aclimit(e,re,tp)
      return re:GetHandler():IsCode(e:GetLabel())
      end
      script/c101110034.lua deleted 100644 → 0
      View file @ 3334dc3c
      --魔界造車-GT19
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --flip
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.lvtg)
      e1:SetOperation(s.lvop)
      c:RegisterEffect(e1)
      --flip flag
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_FLIP)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetOperation(s.flipop)
      c:RegisterEffect(e2)
      --Synchro Summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetCountLimit(1,id)
      e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e3:SetCondition(s.syncon)
      e3:SetTarget(s.syntg)
      e3:SetOperation(s.synop)
      c:RegisterEffect(e3)
      end
      function s.lvtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local lv=e:GetHandler():GetLevel()
      Duel.Hint(HINT_SELECTMSG,tp,HINGMSG_LVRANK)
      e:SetLabel(Duel.AnnounceLevel(tp,1,9,lv))
      end
      function s.lvop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsFaceup() and c:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LEVEL)
      e1:SetValue(e:GetLabel())
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      end
      end
      function s.flipop(e,tp,eg,ep,ev,re,r,rp)
      e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1)
      end
      function s.syncon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ph=Duel.GetCurrentPhase()
      return c:GetFlagEffect(id)>0
      and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
      end
      function s.filter(tc,c,tp)
      if not tc:IsFaceup() or not tc:IsCanBeSynchroMaterial() then return false end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SYNCHRO_MATERIAL)
      tc:RegisterEffect(e1,true)
      local mg=Group.FromCards(c,tc)
      local res=Duel.IsExistingMatchingCard(s.synfilter,tp,LOCATION_EXTRA,0,1,nil,mg)
      e1:Reset()
      return res
      end
      function s.synfilter(c,mg)
      return c:IsSynchroSummonable(nil,mg)
      end
      function s.syntg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.filter(chkc,c,tp) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,c,c,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,c,c,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.synop(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:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SYNCHRO_MATERIAL)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local mg=Group.FromCards(c,tc)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.synfilter,tp,LOCATION_EXTRA,0,1,1,nil,mg)
      local sc=g:GetFirst()
      if sc then
      Duel.SynchroSummon(tp,sc,nil,mg)
      else
      e1:Reset()
      end
      end
      end
      script/c101110035.lua deleted 100644 → 0
      View file @ 3334dc3c
      --サイコ・ローヴァー
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Destroy
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DICE+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetTarget(s.dictg)
      e1:SetOperation(s.dicop)
      c:RegisterEffect(e1)
      --Special Summon
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DICE)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      s.toss_dice=true
      function s.dictg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
      end
      function s.dicop(e,tp,eg,ep,ev,re,r,rp)
      local d=Duel.TossDice(tp,1)
      if d==1 or d==6 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,2,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      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 e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local d=Duel.TossDice(tp,1)
      if d>1 and d<6 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(s.splimit)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e1,true)
      end
      end
      function s.splimit(e,c)
      return c:IsLocation(LOCATION_EXTRA)
      end
      script/c101110036.lua deleted 100644 → 0
      View file @ 3334dc3c
      --精霊冥騎-急還馬
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      Duel.EnableGlobalFlag(GLOBALFLAG_SELF_TOGRAVE)
      --self to grave
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SELF_TOGRAVE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCondition(s.tgcon)
      c:RegisterEffect(e1)
      --Phase Battle Special Summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id)
      e2:SetCost(s.spcost)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.tgcon(e)
      return not (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)
      end
      function s.cfilter(c,tp)
      return c:IsRace(RACE_PLANT) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsAbleToGraveAsCost()
      and Duel.GetMZoneCount(tp,c)>0
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,1,nil,tp)
      Duel.SendtoGrave(g,REASON_COST)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.filter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
      local fid=c:GetFieldID()
      local g=Group.FromCards(c)
      c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1,fid)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(s.filter),tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp)
      and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.filter),tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp):GetFirst()
      if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then
      tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1,fid)
      g:AddCard(tc)
      end
      end
      g:KeepAlive()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_BATTLE)
      e1:SetCountLimit(1)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetLabel(fid)
      e1:SetLabelObject(g)
      e1:SetCondition(s.descon)
      e1:SetOperation(s.desop)
      Duel.RegisterEffect(e1,tp)
      end
      end
      function s.desfilter(c,fid)
      return c:GetFlagEffectLabel(id)==fid
      end
      function s.descon(e,tp,eg,ep,ev,re,r,rp)
      local g=e:GetLabelObject()
      if not g:IsExists(s.desfilter,1,nil,e:GetLabel()) then
      g:DeleteGroup()
      e:Reset()
      return false
      else return true end
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local g=e:GetLabelObject()
      local tg=g:Filter(s.desfilter,nil,e:GetLabel())
      Duel.SendtoGrave(tg,REASON_EFFECT)
      end
      script/c101110037.lua deleted 100644 → 0
      View file @ 3334dc3c
      --沈黙狼-カルーポ
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Equip Fadown
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_EQUIP)
      e1:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(s.eqtg)
      e1:SetOperation(s.eqop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --Guess
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_HANDES)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
      e3:SetCode(EVENT_PHASE+PHASE_END)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,id)
      e3:SetTarget(s.guesstg)
      e3:SetOperation(s.guessop)
      c:RegisterEffect(e3)
      end
      function s.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_DECK)
      end
      function s.eqop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetDecktopGroup(tp,1):GetFirst()
      if c:IsFaceup() and c:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and tc and tc:IsFacedown() then
      Duel.DisableShuffleCheck()
      if tc:IsForbidden() then
      Duel.SendtoGrave(tc,REASON_RULE)
      return
      end
      if not Duel.Equip(tp,tc,c,false) then return end
      --equip limit
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(s.eqlimit)
      tc:RegisterEffect(e1)
      tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1)
      --atk up
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetValue(500)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e2)
      end
      end
      function s.eqlimit(e,c)
      return e:GetOwner()==c
      end
      function s.guesstg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_HANDES,0,0,1-tp,1)
      end
      function s.eqfilter(c)
      return c:IsFacedown() and c:GetFlagEffect(id)~=0
      end
      function s.guessop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=c:GetEquipGroup():Filter(s.eqfilter,nil):GetFirst()
      if tc then
      Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CARDTYPE)
      local op=Duel.AnnounceType(1-tp)
      if (op==0 and tc:GetOriginalType()&TYPE_MONSTER~=0)
      or (op==1 and tc:GetOriginalType()&TYPE_SPELL~=0)
      or (op==2 and tc:GetOriginalType()&TYPE_TRAP~=0)
      and c:IsAbleToGrave() then
      Duel.SendtoGrave(c,REASON_EFFECT)
      elseif (op==0 and tc:GetOriginalType()&TYPE_MONSTER==0)
      or (op==1 and tc:GetOriginalType()&TYPE_SPELL==0)
      or (op==2 and tc:GetOriginalType()&TYPE_TRAP==0) then
      local g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0)
      if g:GetCount()==0 then return end
      local sg=g:RandomSelect(1-tp,1)
      if Duel.SendtoGrave(sg,REASON_DISCARD+REASON_EFFECT)>0 and c:IsAbleToHand() then
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      end
      end
      end
      end
      script/c101110038.lua deleted 100644 → 0
      View file @ 3334dc3c
      --冥占術姫タロットレイス
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --spsummon condition
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e0:SetCode(EFFECT_SPSUMMON_CONDITION)
      e0:SetValue(aux.ritlimit)
      c:RegisterEffect(e0)
      --Special Summon Flip
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --select 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:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.postg)
      e2:SetOperation(s.posop)
      c:RegisterEffect(e2)
      end
      function s.spfilter(c,e,tp)
      return c:IsType(TYPE_FLIP) and c:IsCanBeSpecialSummoned(e,0,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_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_FACEDOWN_DEFENSE)
      Duel.ConfirmCards(1-tp,tc)
      end
      end
      function s.posfilter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function s.postg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,0,nil)
      local mg=Duel.GetMatchingGroup(s.posfilter,tp,LOCATION_MZONE,0,nil)
      if chk==0 then return #g>0 or #mg>0 end
      local op=0
      if #g>0 and #mg>0 then
      op=Duel.SelectOption(tp,aux.Stringid(id,2),aux.Stringid(id,3))
      elseif #g>0 then
      op=Duel.SelectOption(tp,aux.Stringid(id,2))
      else
      op=Duel.SelectOption(tp,aux.Stringid(id,3))+1
      end
      e:SetLabel(op)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,nil,1,0,0)
      end
      function s.posop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,0,nil)
      local mg=Duel.GetMatchingGroup(s.posfilter,tp,LOCATION_MZONE,0,nil)
      if e:GetLabel()==0 then
      if g:GetCount()>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local sg=g:Select(tp,1,g:GetCount(),nil)
      if sg:GetCount()>0 then
      Duel.HintSelection(sg)
      Duel.ChangePosition(sg,POS_FACEUP_DEFENSE)
      end
      end
      else
      if mg:GetCount()>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local sg1=mg:Select(tp,1,mg:GetCount(),nil)
      if sg1:GetCount()>0 then
      Duel.HintSelection(sg1)
      Duel.ChangePosition(sg1,POS_FACEDOWN_DEFENSE)
      end
      end
      end
      end
      \ No newline at end of file
      script/c101110039.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ティアラメンツ・ルルカロス
      --
      --Script by Trishula9
      function c101110039.initial_effect(c)
      c:EnableReviveLimit()
      --fusion material
      aux.AddFusionProcCodeFun(c,92731385,aux.FilterBoolFunction(Card.IsSetCard,0x181),1,true,true)
      --indestructable
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetTarget(c101110039.indtg)
      e1:SetValue(1)
      c:RegisterEffect(e1)
      --negate
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110039,0))
      e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY+CATEGORY_TOGRAVE)
      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,101110039)
      e2:SetCondition(c101110039.discon)
      e2:SetTarget(c101110039.distg)
      e2:SetOperation(c101110039.disop)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110039,1))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_TO_GRAVE)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,101110039+100)
      e3:SetCondition(c101110039.spcon)
      e3:SetTarget(c101110039.sptg)
      e3:SetOperation(c101110039.spop)
      c:RegisterEffect(e3)
      end
      function c101110039.indtg(e,c)
      return c:IsRace(RACE_AQUA) and c~=e:GetHandler()
      end
      function c101110039.discon(e,tp,eg,ep,ev,re,r,rp)
      if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) or not Duel.IsChainNegatable(ev) then return false end
      return re:IsHasCategory(CATEGORY_SPECIAL_SUMMON) and ep~=tp
      end
      function c101110039.tgfilter(c)
      return c:IsSetCard(0x181) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsAbleToGrave()
      end
      function c101110039.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110039.tgfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) 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
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_ONFIELD)
      end
      function c101110039.disop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)~=0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c101110039.tgfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
      if #g>0 then
      Duel.BreakEffect()
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      end
      function c101110039.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_FUSION)
      end
      function c101110039.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c101110039.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
      \ No newline at end of file
      script/c101110040.lua deleted 100644 → 0
      View file @ 3334dc3c
      --戎の忍者－冥禪
      --War Ninja Meisen
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --fusion summon
      aux.AddFusionProcFunRep(c,s.ffilter,2,true)
      aux.AddContactFusionProcedure(c,Card.IsReleasable,LOCATION_MZONE,0,Duel.Release,REASON_COST+REASON_MATERIAL)
      --splimit
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetValue(s.splimit)
      c:RegisterEffect(e1)
      --direct attack
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_DIRECT_ATTACK)
      e2:SetRange(LOCATION_MZONE)
      e2:SetTargetRange(LOCATION_MZONE,0)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x2b))
      c:RegisterEffect(e2)
      --acn't be attacked
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
      e3:SetRange(LOCATION_MZONE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetCondition(s.atkcon)
      e3:SetValue(aux.imval1)
      c:RegisterEffect(e3)
      --spsummon
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,0))
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_CHAINING)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,id)
      e4:SetCondition(s.spcon)
      e4:SetTarget(s.sptg)
      e4:SetOperation(s.spop)
      c:RegisterEffect(e4)
      end
      function s.ffilter(c,fc,sub,mg,sg)
      return c:IsFusionSetCard(0x2b) and (not sg or not sg:IsExists(Card.IsRace,1,c,c:GetRace()))
      end
      function s.splimit(e,se,sp,st)
      return not e:GetHandler():IsLocation(LOCATION_EXTRA) or aux.fuslimit(e,se,sp,st)
      end
      function s.atkcon(e)
      return Duel.IsExistingMatchingCard(Card.IsPosition,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil,POS_FACEDOWN_DEFENSE)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x2b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_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_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)<1 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>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_DEFENSE)
      if g:GetFirst():IsFacedown() then
      Duel.ConfirmCards(1-tp,g)
      end
      end
      end
      script/c101110041.lua deleted 100644 → 0
      View file @ 3334dc3c
      --神碑の牙フレーキ
      --Script by VHisc
      function c101110041.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x17f),2,true)
      --remove
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110041,0))
      e1:SetCategory(CATEGORY_REMOVE)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_ATTACK_ANNOUNCE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCondition(c101110041.rmcon)
      e1:SetTarget(c101110041.rmtg)
      e1:SetOperation(c101110041.rmop)
      c:RegisterEffect(e1)
      --damage val
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_NO_BATTLE_DAMAGE)
      e2:SetValue(1)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
      e3:SetValue(1)
      c:RegisterEffect(e3)
      --tohand
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(101110041,1))
      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_DESTROYED)
      e4:SetCountLimit(1,101110041)
      e4:SetCondition(c101110041.thcon)
      e4:SetTarget(c101110041.thtg)
      e4:SetOperation(c101110041.thop)
      c:RegisterEffect(e4)
      end
      function c101110041.rmcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return (c==Duel.GetAttacker() or c==Duel.GetAttackTarget())
      and c:GetSequence()>4
      end
      function c101110041.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetDecktopGroup(1-tp,2):FilterCount(Card.IsAbleToRemove,nil)==2 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,2,1-tp,LOCATION_DECK)
      end
      function c101110041.rmop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetDecktopGroup(1-tp,2)
      if #g>0 then
      Duel.DisableShuffleCheck()
      Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
      end
      end
      function c101110041.thcon(e,tp,eg,ep,ev,re,r,rp)
      return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
      end
      function c101110041.thfilter(c)
      return c:IsSetCard(0x17f) and c:IsType(TYPE_QUICKPLAY) and c:IsAbleToHand()
      end
      function c101110041.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c101110041.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c101110041.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,c101110041.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c101110041.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/c101110042.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ブラックフェザー·アサルト·ドラゴン
      --Script by Corvus1998 & mercury233
      function c101110042.initial_effect(c)
      aux.AddCodeList(c,9012916)
      c:EnableCounterPermit(0x10)
      --synchro summon
      aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_SYNCHRO),aux.NonTuner(nil),1)
      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)
      e1:SetValue(aux.synlimit)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110042,0))
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e2:SetCode(EFFECT_SPSUMMON_PROC)
      e2:SetRange(LOCATION_EXTRA)
      e2:SetCondition(c101110042.spcon)
      e2:SetTarget(c101110042.sptg)
      e2:SetOperation(c101110042.spop)
      c:RegisterEffect(e2)
      --add counter and damage
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e3:SetCode(EVENT_CHAINING)
      e3:SetRange(LOCATION_MZONE)
      e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e3:SetOperation(c101110042.regop)
      c:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetCode(EVENT_CHAIN_SOLVED)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCondition(c101110042.damcon)
      e4:SetOperation(c101110042.damop)
      c:RegisterEffect(e4)
      --destory
      local e5=Effect.CreateEffect(c)
      e5:SetDescription(aux.Stringid(101110042,1))
      e5:SetCategory(CATEGORY_DESTROY)
      e5:SetType(EFFECT_TYPE_QUICK_O)
      e5:SetCode(EVENT_FREE_CHAIN)
      e5:SetRange(LOCATION_MZONE)
      e5:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e5:SetCondition(c101110042.descon)
      e5:SetCost(c101110042.descost)
      e5:SetTarget(c101110042.destg)
      e5:SetOperation(c101110042.desop)
      c:RegisterEffect(e5)
      end
      function c101110042.mfilter1(c)
      return c:IsType(TYPE_TUNER) and c:IsType(TYPE_SYNCHRO) and c:IsType(TYPE_MONSTER)
      end
      function c101110042.mfilter2(c)
      return c:IsCode(9012916)
      end
      function c101110042.fselect(g,c,tp)
      return Duel.GetLocationCountFromEx(tp,tp,g,c)>0 and aux.gffcheck(g,c101110042.mfilter1,nil,c101110042.mfilter2,nil)
      end
      function c101110042.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemoveAsCost,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil)
      return g:CheckSubGroup(c101110042.fselect,2,2,c,tp)
      end
      function c101110042.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemoveAsCost,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local sg=g:SelectSubGroup(tp,c101110042.fselect,true,2,2,c,tp)
      if sg then
      sg:KeepAlive()
      e:SetLabelObject(sg)
      return true
      else return false end
      end
      function c101110042.spop(e,tp,eg,ep,ev,re,r,rp,c)
      local g=e:GetLabelObject()
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      g:DeleteGroup()
      end
      function c101110042.regop(e,tp,eg,ep,ev,re,r,rp)
      if rp==1-tp and re:IsActiveType(TYPE_MONSTER) then
      e:GetHandler():RegisterFlagEffect(101110042,RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_CHAIN,0,1)
      end
      end
      function c101110042.damcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return ep~=tp and Duel.GetLP(1-tp)>0 and c:GetFlagEffect(101110042)~=0 and re:IsActiveType(TYPE_MONSTER)
      end
      function c101110042.damop(e,tp,eg,ep,ev,re,r,rp)
      e:GetHandler():AddCounter(0x10,1)
      Duel.Damage(1-tp,700,REASON_EFFECT)
      end
      function c101110042.descon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
      end
      function c101110042.descost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsReleasable() and c:GetCounter(0x10)>=4 end
      Duel.Release(c,REASON_COST)
      end
      function c101110042.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function c101110042.desop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      if g:GetCount()>0 then
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      script/c101110043.lua deleted 100644 → 0
      View file @ 3334dc3c
      --BF-魔風のボレアース
      --Script by Corvus1998
      function c101110043.initial_effect(c)
      --synchro summon
      aux.AddSynchroProcedure(c,c101110043.mfilter,aux.NonTuner(nil),1)
      c:EnableReviveLimit()
      --level
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110043,0))
      e1:SetCategory(CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,101110043)
      e1:SetCondition(c101110043.lvcon)
      e1:SetTarget(c101110043.lvtg)
      e1:SetOperation(c101110043.lvop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110043,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetCode(EVENT_BATTLE_DESTROYING)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCountLimit(1,101110143)
      e2:SetCondition(aux.bdogcon)
      e2:SetCost(c101110043.spcost)
      e2:SetTarget(c101110043.sptg)
      e2:SetOperation(c101110043.spop)
      c:RegisterEffect(e2)
      end
      function c101110043.mfilter(c)
      return c:IsAttribute(ATTRIBUTE_DARK)
      end
      function c101110043.tgfilter(c)
      return c:IsSetCard(0x33) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
      end
      function c101110043.lvcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
      end
      function c101110043.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return e:GetHandler():IsRelateToEffect(e)
      and Duel.IsExistingMatchingCard(c101110043.tgfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
      end
      function c101110043.lvop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c101110043.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 then
      local ec=g:GetFirst()
      if ec:IsLocation(LOCATION_GRAVE) and c:IsFaceup() and c:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LEVEL)
      e1:SetValue(ec:GetLevel())
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      c:RegisterEffect(e1)
      end
      end
      end
      function c101110043.spcfilter(c,tp)
      return c:IsSetCard(0x33) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
      and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and Duel.GetMZoneCount(tp,c)>0
      end
      function c101110043.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local bc=e:GetHandler():GetBattleTarget()
      if chk==0 then return Duel.IsExistingMatchingCard(c101110043.spcfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,bc,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,c101110043.spcfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,1,bc,tp)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function c101110043.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local bc=e:GetHandler():GetBattleTarget()
      if chk==0 then return bc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE) end
      Duel.SetTargetCard(bc)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,0)
      end
      function c101110043.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_DEFENSE)
      end
      end
      script/c101110044.lua deleted 100644 → 0
      View file @ 3334dc3c
      --燐廻の三弦猫
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --synchro summon
      aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
      c:EnableReviveLimit()
      --Synchro Effect
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.sccon)
      e1:SetTarget(s.sctarg)
      e1:SetOperation(s.scop)
      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_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.sccon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()~=tp
      and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2)
      end
      function s.sctarg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,c) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.scop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsControler(1-tp) or not c:IsRelateToEffect(e) or c:IsFacedown() then return end
      local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,c)
      if g:GetCount()>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g:Select(tp,1,1,nil)
      Duel.SynchroSummon(tp,sg:GetFirst(),c)
      end
      end
      function s.toefilter(c)
      return c:IsType(TYPE_SYNCHRO) and c:IsAbleToExtra()
      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_GRAVE) and chkc:IsControler(tp) and s.toefilter(chkc) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and Duel.IsExistingTarget(s.toefilter,tp,LOCATION_GRAVE,0,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,s.toefilter,tp,LOCATION_GRAVE,0,1,1,c)
      Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,g,1,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 not tc:IsRelateToEffect(e) then return end
      if Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0
      and tc:IsLocation(LOCATION_EXTRA)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and c:IsRelateToEffect(e) then
      if 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_REMOVED)
      c:RegisterEffect(e1,true)
      end
      end
      end
      script/c101110045.lua deleted 100644 → 0
      View file @ 3334dc3c
      --クシャトリラ・シャングリラ
      --Script by JoyJ
      function c101110045.initial_effect(c)
      c:EnableReviveLimit()
      aux.AddXyzProcedure(c,nil,7,2,nil,nil,99)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110045,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,101110045)
      e1:SetTarget(c101110045.sptg)
      e1:SetOperation(c101110045.spop)
      c:RegisterEffect(e1)
      --lock zones
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110045,1))
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCode(EVENT_REMOVE)
      e2:SetCondition(c101110045.lzcon)
      e2:SetTarget(c101110045.lztg)
      e2:SetOperation(c101110045.lzop)
      c:RegisterEffect(e2)
      --destroy replace
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
      e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCode(EFFECT_DESTROY_REPLACE)
      e3:SetTarget(c101110045.reptg)
      c:RegisterEffect(e3)
      end
      function c101110045.spfilter(c,e,tp)
      return c:IsSetCard(0x288) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110045.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110045.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function c101110045.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,c101110045.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c101110045.cfilter(c,tp)
      return c:IsFacedown() and c:IsControler(1-tp)
      end
      function c101110045.lzcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c101110045.cfilter,1,nil,tp)
      end
      function c101110045.lztg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE,PLAYER_NONE,0)
      +Duel.GetLocationCount(1-tp,LOCATION_MZONE,PLAYER_NONE,0)
      +Duel.GetLocationCount(tp,LOCATION_SZONE,PLAYER_NONE,0)
      +Duel.GetLocationCount(1-tp,LOCATION_SZONE,PLAYER_NONE,0)>0 end
      local dis=Duel.SelectDisableField(tp,1,LOCATION_ONFIELD,LOCATION_ONFIELD,0xe000e0)
      Duel.SetTargetParam(dis)
      Duel.Hint(HINT_ZONE,tp,dis)
      end
      function c101110045.lzop(e,tp,eg,ep,ev,re,r,rp)
      local zone=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
      if tp==1 then
      zone=((zone&0xffff)<<16)|((zone>>16)&0xffff)
      end
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_DISABLE_FIELD)
      e1:SetValue(zone)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e1)
      end
      function c101110045.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE) and c:CheckRemoveOverlayCard(tp,1,REASON_EFFECT) end
      if Duel.SelectEffectYesNo(tp,c,96) then
      c:RemoveOverlayCard(tp,1,1,REASON_EFFECT)
      return true
      else return false end
      end
      script/c101110046.lua deleted 100644 → 0
      View file @ 3334dc3c
      --メレオロジック・アグリゲーター
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --xyz summon
      aux.AddXyzProcedure(c,nil,9,2,nil,nil,99)
      c:EnableReviveLimit()
      --extra tograve
      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:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.tgcon)
      e1:SetTarget(s.tgtg)
      e1:SetOperation(s.tgop)
      c:RegisterEffect(e1)
      --material
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.mttg)
      e2:SetOperation(s.mtop)
      c:RegisterEffect(e2)
      --negate
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,2))
      e3:SetCategory(CATEGORY_DISABLE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_TO_GRAVE)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,id+o*2)
      e3:SetTarget(s.negtg)
      e3:SetOperation(s.negop)
      c:RegisterEffect(e3)
      end
      function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
      end
      function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_EXTRA,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_EXTRA)
      end
      function s.tgop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_EXTRA,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      function s.matfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsCanOverlay()
      end
      function s.mttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      local mat=c:GetOverlayCount()
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.matfilter(chkc) end
      if chk==0 then return mat>0 and Duel.IsExistingTarget(s.matfilter,tp,LOCATION_GRAVE,0,1,nil)
      and c:CheckRemoveOverlayCard(tp,1,REASON_EFFECT) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
      local g=Duel.SelectTarget(tp,s.matfilter,tp,LOCATION_GRAVE,0,1,mat,nil)
      Duel.SetTargetParam(g:GetCount())
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,#g,0,0)
      end
      function s.mtop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      local mat=c:GetOverlayCount()
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      local num=g:GetCount()
      if num>0 and mat>=num
      and c:RemoveOverlayCard(tp,num,num,REASON_EFFECT)~=0 then
      Duel.Overlay(c,g)
      end
      end
      end
      function s.negtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      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,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
      end
      function s.negop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc and ((tc:IsFaceup() and not tc:IsDisabled()) or tc:IsType(TYPE_TRAPMONSTER)) and tc:IsRelateToEffect(e) then
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+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/c101110047.lua deleted 100644 → 0
      View file @ 3334dc3c
      --死祖の隷竜ウォロー
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --xyz summon
      c:EnableReviveLimit()
      aux.AddXyzProcedure(c,nil,6,2,nil,nil,99)
      --atk/def up
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetValue(s.val)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e2)
      --to deck
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,0))
      e3:SetCategory(CATEGORY_TODECK)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,id)
      e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e3:SetCost(s.tdcost)
      e3:SetTarget(s.tdtg)
      e3:SetOperation(s.tdop)
      c:RegisterEffect(e3)
      --Special Summon or set
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,id)
      e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e4:SetCost(s.sptcost)
      e4:SetTarget(s.spttg)
      e4:SetOperation(s.sptop)
      c:RegisterEffect(e4)
      end
      function s.val(e,c)
      return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),0,LOCATION_GRAVE)*100
      end
      function s.tdcost(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.tdfilter(c)
      return 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(1-tp) and s.tdfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.tdfilter,tp,0,LOCATION_GRAVE,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,s.tdfilter,tp,0,LOCATION_GRAVE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
      end
      function s.tdop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      end
      end
      function s.sptcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:CheckRemoveOverlayCard(tp,2,REASON_COST) end
      c:RemoveOverlayCard(tp,2,2,REASON_COST)
      end
      function s.sptfilter(c,e,tp)
      return c:IsType(TYPE_MONSTER) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP+POS_FACEDOWN_DEFENSE)
      or not c:IsType(TYPE_MONSTER) and c:IsSSetable()
      end
      function s.spttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and s.sptfilter(chkc,e,tp) end
      if chk==0 then return Duel.IsExistingTarget(s.sptfilter,tp,0,LOCATION_GRAVE,1,nil,e,tp) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,s.sptfilter,tp,0,LOCATION_GRAVE,1,1,nil,e,tp)
      if g:GetFirst():IsType(TYPE_MONSTER) then
      e:SetCategory(CATEGORY_SPECIAL_SUMMON)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      else
      e:SetCategory(0)
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
      end
      end
      function s.sptop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) then return end
      if tc:IsType(TYPE_MONSTER) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP+POS_FACEDOWN_DEFENSE)
      else
      Duel.SSet(tp,tc)
      end
      end
      script/c101110048.lua deleted 100644 → 0
      View file @ 3334dc3c
      --スプライト・スプリンド
      --Script by JoyJ
      function c101110048.initial_effect(c)
      --link summon
      c:EnableReviveLimit()
      aux.AddLinkProcedure(c,nil,2,2,c101110048.lcheck)
      --cannot link material
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
      e1:SetValue(c101110048.lmlimit)
      c:RegisterEffect(e1)
      --to grave
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110048,0))
      e2:SetCategory(CATEGORY_TOGRAVE)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,101110048)
      e2:SetCondition(c101110048.tgcon)
      e2:SetTarget(c101110048.tgtg)
      e2:SetOperation(c101110048.tgop)
      c:RegisterEffect(e2)
      --to hand
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110048,1))
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,101110048)
      e3:SetCondition(c101110048.thcon)
      e3:SetCost(c101110048.thcost)
      e3:SetTarget(c101110048.thtg)
      e3:SetOperation(c101110048.thop)
      c:RegisterEffect(e3)
      end
      function c101110048.lcheck(g,lc)
      return g:IsExists(Card.IsLevel,1,nil,2) or g:IsExists(Card.IsRank,1,nil,2) or g:IsExists(Card.IsLink,1,nil,2)
      end
      function c101110048.lmlimit(e)
      local c=e:GetHandler()
      return c:IsStatus(STATUS_SPSUMMON_TURN) and c:IsSummonType(SUMMON_TYPE_LINK)
      end
      function c101110048.tgcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
      end
      function c101110048.tgfilter(c)
      return c:IsLevel(2) and c:IsAbleToGrave()
      end
      function c101110048.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110048.tgfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
      end
      function c101110048.tgop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c101110048.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      function c101110048.thcon(e,tp,eg,ep,ev,re,r,rp)
      return not eg:IsContains(e:GetHandler())
      end
      function c101110048.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST) end
      Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
      end
      function c101110048.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToHand() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c101110048.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/c101110049.lua deleted 100644 → 0
      View file @ 3334dc3c
      --空牙団の懐剣 ドナ
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --link summon
      c:EnableReviveLimit()
      aux.AddLinkProcedure(c,nil,2,2,s.lcheck)
      --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:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.destg)
      e1:SetOperation(s.desop)
      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_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id)
      e2:SetCost(s.spcost)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.lcheck(g,lc)
      return g:GetClassCount(Card.GetLinkRace)==g:GetCount()
      end
      function s.desfilter(c)
      return c:IsSetCard(0x114) and c:IsFaceup()
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return false end
      if chk==0 then return Duel.IsExistingTarget(s.desfilter,tp,LOCATION_MZONE,0,1,nil)
      and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g1=Duel.SelectTarget(tp,s.desfilter,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
      g1:Merge(g2)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      if tg:GetCount()>0 then
      Duel.Destroy(tg,REASON_EFFECT)
      end
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(100)
      if chk==0 then return true end
      end
      function s.costfilter(c,e,tp)
      return c:IsFaceup() and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,c,e,tp)
      and Duel.GetMZoneCount(tp,c)>0
      end
      function s.spfilter(c,tc,e,tp)
      return c:GetOriginalCodeRule()~=tc:GetOriginalCodeRule()
      and c:IsSetCard(0x114)
      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
      if e:GetLabel()~=100 then return false end
      e:SetLabel(0)
      return Duel.CheckReleaseGroup(tp,s.costfilter,1,nil,e,tp)
      end
      e:SetLabel(0)
      local g=Duel.SelectReleaseGroup(tp,s.costfilter,1,1,nil,e,tp)
      Duel.Release(g,REASON_COST)
      e:SetLabelObject(g:GetFirst())
      if g:GetFirst():IsType(TYPE_LINK) then
      Duel.SetTargetParam(2)
      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
      local c=e:GetHandler()
      local tc=e:GetLabelObject()
      local num=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
      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,tc,e,tp)
      if g:GetCount()>0 then
      if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 and num==2
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(s.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,tc,e,tp)
      and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g2=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,tc,e,tp)
      Duel.SpecialSummon(g2,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      script/c101110050.lua deleted 100644 → 0
      View file @ 3334dc3c
      --世海龍ジーランティス
      --Scripted by mallu11
      function c101110050.initial_effect(c)
      c:SetUniqueOnField(1,0,101110050)
      --link summon
      aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),1)
      c:EnableReviveLimit()
      --remove & special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110050,0))
      e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,101110050)
      e1:SetTarget(c101110050.rmtg)
      e1:SetOperation(c101110050.rmop)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110050,1))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_MZONE)
      e2:SetHintTiming(TIMING_BATTLE_START+TIMING_BATTLE_END)
      e2:SetCountLimit(1,101110050+100)
      e2:SetCondition(c101110050.descon)
      e2:SetTarget(c101110050.destg)
      e2:SetOperation(c101110050.desop)
      c:RegisterEffect(e2)
      end
      function c101110050.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      if chk==0 then return #g>0 end
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,#g,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,PLAYER_ALL,LOCATION_REMOVED)
      end
      function c101110050.spfilter(c,e,tp)
      return c:IsFaceup() and c:IsLocation(LOCATION_REMOVED) and not c:IsReason(REASON_REDIRECT)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP+POS_FACEDOWN_DEFENSE,c:GetControler())
      end
      function c101110050.rmop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      if #g>0 and Duel.Remove(g,POS_FACEUP,REASON_EFFECT)~=0 then
      local og=Duel.GetOperatedGroup():Filter(c101110050.spfilter,nil,e,tp)
      if #og<=0 then return end
      local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
      local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)
      if ft1<=0 and ft2<=0 then return end
      local spg=Group.CreateGroup()
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then
      if ft1>0 and ft2>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      spg=og:Select(tp,1,1,nil)
      else
      local p
      if ft1>0 and ft2<=0 then
      p=tp
      end
      if ft1<=0 and ft2>0 then
      p=1-tp
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      spg=og:FilterSelect(tp,Card.IsControler,1,1,nil,p)
      end
      else
      local p=tp
      for i=1,2 do
      local sg=og:Filter(Card.IsControler,nil,p)
      local ft=Duel.GetLocationCount(p,LOCATION_MZONE,tp)
      if #sg>ft then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      sg=sg:Select(tp,ft,ft,nil)
      end
      spg:Merge(sg)
      p=1-tp
      end
      end
      if #spg>0 then
      Duel.BreakEffect()
      local tc=spg:GetFirst()
      while tc do
      Duel.SpecialSummonStep(tc,0,tp,tc:GetControler(),false,false,POS_FACEUP+POS_FACEDOWN_DEFENSE)
      tc=spg:GetNext()
      end
      Duel.SpecialSummonComplete()
      local cg=spg:Filter(Card.IsFacedown,nil)
      if #cg>0 then
      Duel.ConfirmCards(1-tp,g)
      end
      end
      end
      end
      function c101110050.descon(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
      end
      function c101110050.filter(c)
      return c:GetMutualLinkedGroupCount()>0
      end
      function c101110050.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110050.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function c101110050.desop(e,tp,eg,ep,ev,re,r,rp)
      local ct=Duel.GetMatchingGroupCount(c101110050.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      if ct>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local dg=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil)
      Duel.HintSelection(dg)
      Duel.Destroy(dg,REASON_EFFECT)
      end
      end
      script/c101110051.lua deleted 100644 → 0
      View file @ 3334dc3c
      --魔界特派員デスキャスター
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --link summon
      c:EnableReviveLimit()
      aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,2)
      --cannot link material
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e0:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
      e0:SetValue(s.lmlimit)
      c:RegisterEffect(e0)
      --destroy replace
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_DESTROY_REPLACE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTarget(s.desreptg)
      e1:SetValue(s.desrepval)
      e1:SetOperation(s.desrepop)
      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_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1,id)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.lmlimit(e)
      local c=e:GetHandler()
      return c:IsStatus(STATUS_SPSUMMON_TURN) and c:IsSummonType(SUMMON_TYPE_LINK)
      end
      function s.repfilter(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_FIEND)
      and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED)
      end
      function s.desreptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return eg:IsExists(s.repfilter,1,nil,tp)
      and Duel.CheckReleaseGroup(tp,s.rfilter,1,nil) end
      return Duel.SelectEffectYesNo(tp,c,96)
      end
      function s.desrepval(e,c)
      return s.repfilter(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)
      Duel.Hint(HINT_CARD,0,id)
      Duel.Release(g,REASON_EFFECT+REASON_REPLACE)
      end
      function s.spfilter(c,e,tp)
      return not c:IsCode(id) and c:IsRace(RACE_FIEND) 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.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
      and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil,REASON_EFFECT) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.spfilter,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 Duel.DiscardHand(tp,nil,1,1,REASON_DISCARD+REASON_EFFECT,nil)>0
      and tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      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
      function s.splimit(e,c)
      return not c:IsRace(RACE_FIEND)
      end
      script/c101110052.lua deleted 100644 → 0
      View file @ 3334dc3c
      --黒羽の旋風
      --Script by Corvus1998
      function c101110052.initial_effect(c)
      aux.AddCodeList(c,9012916)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110052,0))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(c101110052.spcon)
      e2:SetTarget(c101110052.sptg)
      e2:SetOperation(c101110052.spop)
      c:RegisterEffect(e2)
      --destroy replace
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      e3:SetCode(EFFECT_DESTROY_REPLACE)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1)
      e3:SetTarget(c101110052.reptg)
      e3:SetValue(c101110052.repval)
      e3:SetOperation(c101110052.repop)
      c:RegisterEffect(e3)
      end
      function c101110052.cfilter(c,tp)
      return c:IsSummonPlayer(tp) and c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_DARK)
      and c:IsPreviousLocation(LOCATION_EXTRA)
      end
      function c101110052.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:FilterCount(c101110052.cfilter,nil,tp)>0
      end
      function c101110052.spfilter(c,e,tp,atk)
      return (c:IsSetCard(0x33) and c:GetAttack()<atk or c:IsCode(9012916))
      and (not c:IsLocation(LOCATION_REMOVED) or c:IsFaceup())
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110052.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local _,atk=eg:Filter(c101110052.cfilter,nil,tp):GetMaxGroup(Card.GetAttack)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED)
      and c101110052.spfilter(c,e,tp,atk) end
      if chk==0 then return atk and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c101110052.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp,atk) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c101110052.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp,atk)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c101110052.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
      function c101110052.repfilter(c,tp)
      return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsControler(tp)
      and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
      end
      function c101110052.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return eg:IsExists(c101110052.repfilter,1,nil,tp)
      and Duel.IsCanRemoveCounter(tp,1,0,0x10,1,REASON_EFFECT) end
      return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
      end
      function c101110052.repval(e,c)
      return c101110052.repfilter(c,e:GetHandlerPlayer())
      end
      function c101110052.repop(e,tp,eg,ep,ev,re,r,rp)
      Duel.RemoveCounter(tp,1,0,0x10,1,REASON_EFFECT)
      end
      script/c101110053.lua deleted 100644 → 0
      View file @ 3334dc3c
      --復烙印
      --Rebranded
      --Script by Lyris12
      local s,id=GetID()
      function s.initial_effect(c)
      --activate
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_ACTIVATE)
      e0:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e0)
      --to deck
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_REMOVE)
      e1:SetRange(LOCATION_SZONE)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e1:SetTarget(s.tdtg)
      e1:SetOperation(s.tdop)
      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_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e2:SetCondition(s.spcon)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      end
      function s.cfilter(c,e)
      return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_DARK+ATTRIBUTE_LIGHT) and c:IsAbleToDeck()
      and c:IsCanBeEffectTarget(e) and c:IsLocation(LOCATION_REMOVED)
      end
      function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return eg:IsContains(chkc) end
      if chk==0 then return eg:IsExists(s.cfilter,1,nil,e) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=eg:FilterSelect(tp,s.cfilter,1,1,nil,e)
      Duel.SetTargetCard(g)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function s.tdop(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 then
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(Card.IsSummonPlayer,1,nil,1-tp)
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x289) 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.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetFlagEffect(tp,id)==0
      and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.RegisterFlagEffect(tp,id,RESET_CHAIN,0,1)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.spfilter,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,r,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) end
      end
      script/c101110054.lua deleted 100644 → 0
      View file @ 3334dc3c
      --決戦のゴルゴンダ
      --Script by VHisc
      function c101110054.initial_effect(c)
      aux.AddCodeList(c,68468459)
      aux.EnableChangeCode(c,60884672,LOCATION_SZONE+LOCATION_GRAVE)
      --activate
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_ACTIVATE)
      e0:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e0)
      --destroy replace
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EFFECT_DESTROY_REPLACE)
      e1:SetRange(LOCATION_SZONE)
      e1:SetCountLimit(1)
      e1:SetTarget(c101110054.reptg)
      e1:SetValue(c101110054.repval)
      e1:SetOperation(c101110054.repop)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110054,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_PHASE+PHASE_END)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,101110054)
      e2:SetCondition(c101110054.spcon)
      e2:SetTarget(c101110054.sptg)
      e2:SetOperation(c101110054.spop)
      c:RegisterEffect(e2)
      end
      function c101110054.dfilter(c,tp)
      return c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD)
      and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
      end
      function c101110054.repfilter(c)
      return c:IsType(TYPE_FUSION) and aux.IsMaterialListCode(c,68468459) and c:IsAbleToGrave()
      end
      function c101110054.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return eg:IsExists(c101110054.dfilter,1,nil,tp)
      and Duel.IsExistingMatchingCard(c101110054.repfilter,tp,LOCATION_EXTRA,0,1,nil) end
      return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
      end
      function c101110054.repval(e,c)
      return c101110054.dfilter(c,e:GetHandlerPlayer())
      end
      function c101110054.repop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c101110054.repfilter,tp,LOCATION_EXTRA,0,1,1,nil)
      Duel.Hint(HINT_CARD,0,101110054)
      Duel.SendtoGrave(g,REASON_EFFECT+REASON_REPLACE)
      end
      function c101110054.cfilter(c)
      return (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:IsCode(68468459)
      end
      function c101110054.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c101110054.cfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil)
      end
      function c101110054.spfilter(c,e,tp)
      return c:IsSetCard(0x155) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110054.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110054.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 c101110054.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,c101110054.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      \ No newline at end of file
      script/c101110055.lua deleted 100644 → 0
      View file @ 3334dc3c
      --鉄獣の死線
      --Script by VHisc
      function c101110055.initial_effect(c)
      --activate
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_ACTIVATE)
      e0:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e0)
      --tohand
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110055,0))
      e1:SetCategory(CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e1:SetRange(LOCATION_SZONE)
      e1:SetCountLimit(1,101110055)
      e1:SetCondition(c101110055.thcon)
      e1:SetTarget(c101110055.thtg)
      e1:SetOperation(c101110055.thop)
      c:RegisterEffect(e1)
      --battle
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110055,1))
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_BATTLED)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,101110055+100)
      e2:SetCondition(c101110055.bacon)
      e2:SetTarget(c101110055.batg)
      e2:SetOperation(c101110055.baop)
      c:RegisterEffect(e2)
      end
      function c101110055.spfilter(c,tp)
      return c:IsFaceup() and c:IsRace(RACE_BEAST+RACE_BEASTWARRIOR+RACE_WINDBEAST) and c:IsControler(tp)
      end
      function c101110055.thcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c101110055.spfilter,1,nil,tp)
      end
      function c101110055.thfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x14d) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c101110055.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c101110055.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c101110055.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,c101110055.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c101110055.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
      function c101110055.bacon(e,tp,eg,ep,ev,re,r,rp)
      local ac=Duel.GetAttacker()
      local bc=Duel.GetAttackTarget()
      if not bc then return false end
      if not ac:IsControler(tp) then ac,bc=bc,ac end
      e:SetLabelObject(bc)
      return ac:IsFaceup() and ac:IsControler(tp) and ac:IsSetCard(0x14d) and bc:IsControler(1-tp)
      end
      function c101110055.batg(e,tp,eg,ep,ev,re,r,rp,chk)
      local bc=e:GetLabelObject()
      if not bc then return false end
      if chk==0 then return bc:IsAbleToHand() end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,bc,1,0,0)
      end
      function c101110055.baop(e,tp,eg,ep,ev,re,r,rp)
      local bc=e:GetLabelObject()
      if bc and bc:IsRelateToBattle() and bc:IsControler(1-tp) then
      Duel.SendtoHand(bc,nil,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      script/c101110056.lua deleted 100644 → 0
      View file @ 3334dc3c
      --壱世壊に渦巻く反響
      --
      --Script by Trishula9
      function c101110056.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,101110056)
      e1:SetTarget(c101110056.sptg)
      e1:SetOperation(c101110056.spop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1,101110056)
      e2:SetCondition(c101110056.thcon)
      e2:SetTarget(c101110056.thtg)
      e2:SetOperation(c101110056.thop)
      c:RegisterEffect(e2)
      end
      function c101110056.spfilter(c,e,tp)
      return (c:IsSetCard(0x181) or c:IsCode(56099748)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110056.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110056.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,1,nil,tp,LOCATION_DECK+LOCATION_GRAVE)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,1,nil,tp,LOCATION_MZONE)
      end
      function c101110056.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(c101110056.spfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
      local tc=g:GetFirst()
      if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then
      local sg=Duel.GetMatchingGroup(c101110056.tgfilter,tp,LOCATION_MZONE,0,nil,tc:GetRace(),tc:GetAttribute())
      if sg:GetCount()>0 then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local sc=sg:Select(tp,1,1,nil)
      Duel.SendtoGrave(sc,REASON_EFFECT)
      end
      end
      end
      function c101110056.tgfilter(c,race,attr)
      return (c:IsRace(race) or c:IsAttribute(attr)) and c:IsAbleToGrave()
      end
      function c101110056.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsReason(REASON_EFFECT)
      end
      function c101110056.thfilter(c)
      return c:IsSetCard(0x181) and c:IsType(TYPE_TRAP) and c:IsFaceup() and c:IsAbleToHand()
      end
      function c101110056.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c101110056.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c101110056.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,c101110056.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c101110056.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
      \ No newline at end of file
      script/c101110057.lua deleted 100644 → 0
      View file @ 3334dc3c
      --壱世壊を揺るがす鼓動
      --
      --Script by Trishula9
      function c101110057.initial_effect(c)
      --to deck
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TODECK+CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,101110057)
      e1:SetTarget(c101110057.tdtg)
      e1:SetOperation(c101110057.tdop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1,101110057)
      e2:SetCondition(c101110057.thcon)
      e2:SetTarget(c101110057.thtg)
      e2:SetOperation(c101110057.thop)
      c:RegisterEffect(e2)
      end
      function c101110057.filter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck()
      end
      function c101110057.cfilter(c)
      return c:IsCode(56099748) and c:IsFaceup()
      end
      function c101110057.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and c101110057.filter(chkc) and chkc~=e:GetHandler() end
      if chk==0 then return Duel.IsExistingTarget(c101110057.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler())
      and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,e:GetHandler()) end
      local ct=1
      if Duel.IsExistingMatchingCard(c101110057.cfilter,tp,LOCATION_ONFIELD,0,1,nil) then ct=2 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,c101110057.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,e:GetHandler())
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,#g,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,1,nil,tp,LOCATION_HAND)
      end
      function c101110057.tdop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      if g:GetCount()>0 and Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0
      and g:FilterCount(Card.IsLocation,nil,LOCATION_DECK)==g:GetCount() then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,1,nil)
      if #sg>0 then
      Duel.BreakEffect()
      Duel.SendtoGrave(sg,REASON_EFFECT)
      end
      end
      end
      function c101110057.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsReason(REASON_EFFECT)
      end
      function c101110057.thfilter(c)
      return c:IsSetCard(0x181) and c:IsType(TYPE_TRAP) and c:IsAbleToHand()
      end
      function c101110057.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c101110057.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c101110057.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,c101110057.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c101110057.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
      \ No newline at end of file
      script/c101110058.lua deleted 100644 → 0
      View file @ 3334dc3c
      --壱世壊を劈く弦声
      --
      --Script by Trishula9
      function c101110058.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --to grave
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DECKDES)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetRange(LOCATION_SZONE)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,101110058)
      e2:SetCondition(c101110058.discon)
      e2:SetTarget(c101110058.distg)
      e2:SetOperation(c101110058.disop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      --to hand
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_TO_GRAVE)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,101110058+100)
      e4:SetCondition(c101110058.thcon)
      e4:SetTarget(c101110058.thtg)
      e4:SetOperation(c101110058.thop)
      c:RegisterEffect(e4)
      end
      function c101110058.disfilter(c)
      return ((c:IsSetCard(0x181) and c:IsLocation(LOCATION_MZONE)) or c:IsCode(56099748)) and c:IsFaceup()
      end
      function c101110058.discon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c101110058.disfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function c101110058.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(3)
      Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,3)
      end
      function c101110058.disop(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.DiscardDeck(p,d,REASON_EFFECT)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetTargetRange(0,LOCATION_MZONE)
      e1:SetValue(-500)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function c101110058.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsReason(REASON_EFFECT)
      end
      function c101110058.thfilter(c)
      return c:IsSetCard(0x181) and c:IsType(TYPE_TRAP) and c:IsAbleToHand()
      end
      function c101110058.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110058.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c101110058.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c101110058.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      \ No newline at end of file
      script/c101110059.lua deleted 100644 → 0
      View file @ 3334dc3c
      --械貶する肆世壊
      --Script by JoyJ
      function c101110059.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110059,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_POSITION)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(c101110059.target)
      e1:SetOperation(c101110059.activate)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110059,1))
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,101110059)
      e2:SetCondition(c101110059.thcon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c101110059.thtg)
      e2:SetOperation(c101110059.thop)
      c:RegisterEffect(e2)
      end
      function c101110059.filter(c)
      return c:IsCode(56063182) and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToHand()
      end
      function c101110059.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_ONFIELD+LOCATION_GRAVE) and chkc:IsControler(tp)
      and c101110059.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c101110059.filter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,c101110059.filter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c101110059.actcfilter(c,tp)
      return c:IsFaceup() and c:IsCode(56099748)
      end
      function c101110059.actfilter(c,tp)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function c101110059.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND)
      and Duel.IsExistingMatchingCard(c101110059.actcfilter,tp,LOCATION_ONFIELD,0,1,nil)
      and Duel.IsExistingMatchingCard(c101110059.actfilter,tp,0,LOCATION_MZONE,1,nil)
      and Duel.SelectYesNo(tp,aux.Stringid(101110059,2)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local g=Duel.SelectMatchingCard(tp,c101110059.actfilter,tp,0,LOCATION_MZONE,1,1,nil)
      if #g>0 then
      Duel.BreakEffect()
      Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)
      end
      end
      end
      function c101110059.thcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(Card.IsDefensePos,tp,LOCATION_MZONE,LOCATION_MZONE,3,nil)
      end
      function c101110059.thfilter(c)
      return c:IsSetCard(0x17a) and c:IsAbleToHand()
      end
      function c101110059.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110059.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
      end
      function c101110059.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c101110059.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      end
      end
      script/c101110060.lua deleted 100644 → 0
      View file @ 3334dc3c
      --クシャトリラ・バース
      --Script by JoyJ
      function c101110060.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --decrease tribute
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110060,0))
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_SUMMON_PROC)
      e2:SetRange(LOCATION_SZONE)
      e2:SetTargetRange(LOCATION_HAND,0)
      e2:SetCountLimit(1,101110060)
      e2:SetCondition(c101110060.ntcon)
      e2:SetTarget(c101110060.nttg)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110060,1))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1,101110060+100)
      e3:SetTarget(c101110060.sptg)
      e3:SetOperation(c101110060.spop)
      c:RegisterEffect(e3)
      --remove when chaining
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(101110060,2))
      e4:SetCategory(CATEGORY_REMOVE)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_CHAINING)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e4:SetRange(LOCATION_SZONE)
      e4:SetCountLimit(1,101110060+200)
      e4:SetCondition(c101110060.rmcon)
      e4:SetTarget(c101110060.rmtg)
      e4:SetOperation(c101110060.rmop)
      c:RegisterEffect(e4)
      end
      function c101110060.ntcon(e,c,minc)
      if c==nil then return true end
      return minc==0 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
      end
      function c101110060.nttg(e,c)
      return c:IsLevel(7)
      end
      function c101110060.spfilter(c,e,tp)
      return c:IsSetCard(0x288) and not c:IsType(TYPE_XYZ) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110060.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110060.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
      end
      function c101110060.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(c101110060.spfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c101110060.rmcfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x288)
      end
      function c101110060.rmcon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp and re:IsActiveType(TYPE_SPELL)
      end
      function c101110060.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsAbleToRemove(tp,POS_FACEDOWN) end
      if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,3,nil,tp,POS_FACEDOWN)
      and Duel.IsExistingMatchingCard(c101110060.rmcfilter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,3,3,nil,tp,POS_FACEDOWN)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,#g,0,0)
      end
      function c101110060.rmop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      if #tg>0 then
      Duel.Remove(tg,POS_FACEDOWN,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      script/c101110061.lua deleted 100644 → 0
      View file @ 3334dc3c
      --異譚の忍法帖
      --Novel Ninjitsu Art Book
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --set
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON+CATEGORY_GRAVE_ACTION)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.setcon)
      e1:SetTarget(s.settg)
      e1:SetOperation(s.setop)
      c:RegisterEffect(e1)
      --position
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_POSITION)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      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 Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>0
      end
      function s.filter(c,e,tp,sft)
      if c:IsType(TYPE_MONSTER) then return c:IsSetCard(0x2b) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
      else return c:IsSetCard(0x61) and (c:IsType(TYPE_FIELD) or sft>0)
      and c:IsSSetable(true) and not c:IsCode(id) end
      end
      function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local sft=Duel.GetLocationCount(tp,LOCATION_SZONE)
      if e:IsHasType(EFFECT_TYPE_ACTIVATE) and not e:GetHandler():IsLocation(LOCATION_SZONE) then sft=sft-1 end
      return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp,sft)
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,1,tp,LOCATION_GRAVE)
      end
      function s.gcheck(g)
      return g:FilterCount(Card.IsSetCard,nil,0x2b)<2 and g:FilterCount(Card.IsSetCard,nil,0x61)<2
      and g:GetClassCount(Card.GetLocation)==#g
      end
      function s.setop(e,tp,eg,ep,ev,re,r,rp)
      local mft,sft=Duel.GetLocationCount(tp,LOCATION_MZONE),Duel.GetLocationCount(tp,LOCATION_SZONE)
      if mft<=0 and sft<=0 then return end
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.filter),tp,LOCATION_DECK+LOCATION_GRAVE,0,nil,e,tp,sft)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local tg=g:SelectSubGroup(tp,s.gcheck,false,1,2)
      if not tg then return end
      local sg=tg:Filter(aux.NOT(Card.IsType),nil,TYPE_MONSTER)
      if #sg>0 then
      Duel.SSet(tp,sg)
      end
      local mg=tg:Filter(Card.IsType,nil,TYPE_MONSTER)
      if #mg>0 then
      Duel.SpecialSummon(mg,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
      Duel.ConfirmCards(1-tp,mg)
      end
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousPosition(POS_FACEDOWN) and c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.pfilter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.pfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.pfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectTarget(tp,s.pfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then
      Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
      end
      end
      script/c101110062.lua deleted 100644 → 0
      View file @ 3334dc3c
      --忍法装具 鉄土竜
      --Ninjitsu Art Equipment Kanamugura
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --equip
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE)
      e0:SetCode(EFFECT_EQUIP_LIMIT)
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e0:SetValue(1)
      c:RegisterEffect(e0)
      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+EFFECT_FLAG_CONTINUOUS_TARGET)
      e1:SetTarget(s.target)
      e1:SetOperation(s.operation)
      c:RegisterEffect(e1)
      --atkup
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_EQUIP)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetValue(500)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_ADD_SETCODE)
      e3:SetValue(0x2b)
      c:RegisterEffect(e3)
      --destroy
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,0))
      e4:SetCategory(CATEGORY_DESTROY)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_SZONE)
      e4:SetCountLimit(1,id)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e4:SetCost(s.descost)
      e4:SetTarget(s.destg)
      e4:SetOperation(s.desop)
      c:RegisterEffect(e4)
      --spsummon
      local e5=Effect.CreateEffect(c)
      e5:SetDescription(aux.Stringid(id,1))
      e5:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e5:SetCode(EVENT_TO_GRAVE)
      e5:SetCountLimit(1,id+o)
      e5:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e5:SetCondition(s.rtcon)
      e5:SetTarget(s.rttg)
      e5:SetOperation(s.rtop)
      c:RegisterEffect(e5)
      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.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then Duel.Equip(tp,c,tc) end
      end
      function s.cfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x2b) and c:IsAbleToRemoveAsCost()
      end
      function s.descost(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
      function s.filter(c,e,tp)
      return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsSetCard(0x2b)
      and (c:IsAbleToHand()
      or Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE))
      end
      function s.rtcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.rttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and s.filter(chkc,e,tp) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      Duel.SelectTarget(tp,s.filter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp)
      end
      function s.rtop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) then return end
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>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_FACEDOWN_DEFENSE)
      else
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      end
      end
      script/c101110063.lua deleted 100644 → 0
      View file @ 3334dc3c
      --冥占術の儀式
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      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_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
      e2:SetCondition(s.spcon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.filter(c,e,tp)
      return c:IsSetCard(0xcc)
      end
      function s.RitualUltimateFilter(c,filter,e,tp,m1,m2,level_function,greater_or_equal,chk)
      if bit.band(c:GetType(),0x81)~=0x81 or (filter and not filter(c,e,tp,chk)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE) then return false end
      local mg=m1:Filter(Card.IsCanBeRitualMaterial,c,c)
      if m2 then
      mg:Merge(m2)
      end
      if c.mat_filter then
      mg=mg:Filter(c.mat_filter,c,tp)
      else
      mg:RemoveCard(c)
      end
      local lv=level_function(c)
      Auxiliary.GCheckAdditional=Auxiliary.RitualCheckAdditional(c,lv,greater_or_equal)
      local res=mg:CheckSubGroup(Auxiliary.RitualCheck,1,lv,tp,c,lv,greater_or_equal)
      Auxiliary.GCheckAdditional=nil
      return res
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local mg1=Duel.GetRitualMaterial(tp)
      return Duel.IsExistingMatchingCard(s.RitualUltimateFilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,s.filter,e,tp,mg1,nil,Card.GetLevel,"Greater")
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local mg1=Duel.GetRitualMaterial(tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.RitualUltimateFilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,s.filter,e,tp,mg1,nil,Card.GetLevel,"Greater")
      local tc=g:GetFirst()
      if tc then
      local mg=mg1:Filter(Card.IsCanBeRitualMaterial,tc,tc)
      if tc.mat_filter then
      mg=mg:Filter(tc.mat_filter,tc,tp)
      else
      mg:RemoveCard(tc)
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      aux.GCheckAdditional=aux.RitualCheckAdditional(tc,tc:GetLevel(),"Greater")
      local mat=mg:SelectSubGroup(tp,aux.RitualCheck,false,1,tc:GetLevel(),tp,tc,tc:GetLevel(),"Greater")
      aux.GCheckAdditional=nil
      if not mat or mat:GetCount()==0 then return end
      tc:SetMaterial(mat)
      Duel.ReleaseRitualMaterial(mat)
      Duel.BreakEffect()
      if Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)~=0
      and tc:IsFacedown() then
      Duel.ConfirmCards(1-tp,tc)
      end
      tc:CompleteProcedure()
      end
      end
      function s.rtfilter(c)
      return c:IsSetCard(0xcc) and c:IsType(TYPE_RITUAL) and c:IsFaceup()
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.rtfilter,tp,LOCATION_MZONE,0,1,nil)
      end
      function s.spfilter(c,e,tp)
      return not c:IsType(TYPE_RITUAL)
      and c:IsSetCard(0xcc) and c:IsType(TYPE_MONSTER)
      and c:IsCanBeSpecialSummoned(e,0,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_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)
      if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)~=0 then
      Duel.ConfirmCards(1-tp,g)
      end
      end
      script/c101110064.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ナチュルの春風
      --
      --Script by Trishula9
      function c101110064.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110064,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(c101110064.sptg)
      e1:SetOperation(c101110064.spop)
      c:RegisterEffect(e1)
      --synchro summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110064,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_ACTIVATE)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetTarget(c101110064.sctg)
      e2:SetOperation(c101110064.scop)
      c:RegisterEffect(e2)
      --fusion summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110064,2))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e3:SetType(EFFECT_TYPE_ACTIVATE)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetTarget(c101110064.fstg)
      e3:SetOperation(c101110064.fsop)
      c:RegisterEffect(e3)
      end
      function c101110064.spfilter(c,e,tp)
      return c:IsSetCard(0x2a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110064.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110064.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
      end
      function c101110064.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(c101110064.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c101110064.mfilter(c)
      return c:IsSetCard(0x2a) and c:IsType(TYPE_MONSTER)
      end
      function c101110064.cfilter(c,syn)
      return syn:IsSynchroSummonable(c)
      end
      function c101110064.scfilter(c,mg)
      return mg:IsExists(c101110064.cfilter,1,nil,c)
      end
      function c101110064.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local mg=Duel.GetMatchingGroup(c101110064.mfilter,tp,LOCATION_MZONE,0,nil)
      return Duel.IsExistingMatchingCard(c101110064.scfilter,tp,LOCATION_EXTRA,0,1,nil,mg)
      end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function c101110064.scop(e,tp,eg,ep,ev,re,r,rp)
      local mg=Duel.GetMatchingGroup(c101110064.mfilter,tp,LOCATION_MZONE,0,nil)
      local g=Duel.GetMatchingGroup(c101110064.scfilter,tp,LOCATION_EXTRA,0,nil,mg)
      if g:GetCount()>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g:Select(tp,1,1,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
      local tg=mg:FilterSelect(tp,c101110064.cfilter,1,1,nil,sg:GetFirst())
      Duel.SynchroSummon(tp,sg:GetFirst(),tg:GetFirst())
      end
      end
      function c101110064.filter1(c,e)
      return not c:IsImmuneToEffect(e)
      end
      function c101110064.filter2(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 c101110064.fcheck(tp,sg,fc)
      return sg:IsExists(Card.IsSetCard,1,nil,0x2a)
      end
      function c101110064.fstg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsLocation,nil,LOCATION_ONFIELD)
      aux.FCheckAdditional=c101110064.fcheck
      local res=Duel.IsExistingMatchingCard(c101110064.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
      aux.FCheckAdditional=nil
      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(c101110064.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
      end
      end
      return res
      end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function c101110064.fsop(e,tp,eg,ep,ev,re,r,rp)
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsLocation,nil,LOCATION_ONFIELD):Filter(c101110064.filter1,nil,e)
      aux.FCheckAdditional=c101110064.fcheck
      local sg1=Duel.GetMatchingGroup(c101110064.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
      aux.FCheckAdditional=nil
      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(c101110064.filter2,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
      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
      aux.FCheckAdditional=c101110064.fcheck
      local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
      aux.FCheckAdditional=nil
      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)
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat2)
      end
      tc:CompleteProcedure()
      end
      end
      \ No newline at end of file
      script/c101110065.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ドラゴニックP
      --
      --Script by Trishula9
      function c101110065.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --atk&def
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetRange(LOCATION_FZONE)
      e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xc7))
      e2:SetValue(300)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e3)
      --destroy
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(101110065,0))
      e4:SetCategory(CATEGORY_DESTROY)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_CHAINING)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e4:SetRange(LOCATION_FZONE)
      e4:SetCountLimit(1,101110065)
      e4:SetCondition(c101110065.descon)
      e4:SetTarget(c101110065.destg)
      e4:SetOperation(c101110065.desop)
      c:RegisterEffect(e4)
      --to hand or spsummon
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH+CATEGORY_TOHAND)
      e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e5:SetCode(EVENT_DESTROYED)
      e5:SetProperty(EFFECT_FLAG_DELAY)
      e5:SetCountLimit(1,101110065+100)
      e5:SetCondition(c101110065.tscon)
      e5:SetTarget(c101110065.tstg)
      e5:SetOperation(c101110065.tsop)
      c:RegisterEffect(e5)
      end
      function c101110065.descon(e,tp,eg,ep,ev,re,r,rp)
      local rc=re:GetHandler()
      return re:IsActiveType(TYPE_MONSTER) and rp==tp and rc:IsSetCard(0xc7) and rc:IsRace(RACE_DRAGON)
      and rc:IsLocation(LOCATION_MZONE) and re:GetActivateLocation()==LOCATION_MZONE
      end
      function c101110065.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,1,0,0)
      end
      function c101110065.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.Destroy(tc,REASON_EFFECT)
      end
      end
      function c101110065.tscon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function c101110065.tsfilter(c,e,tp)
      if not (c:IsSetCard(0xc7,0xda) and c:IsType(TYPE_MONSTER)) then return false end
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      return c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))
      end
      function c101110065.tstg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110065.tsfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function c101110065.tsop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      local g=Duel.SelectMatchingCard(tp,c101110065.tsfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      local tc=g:GetFirst()
      if tc then
      if tc:IsAbleToHand() and (not tc:IsCanBeSpecialSummoned(e,0,tp,false,false) or ft<=0 or Duel.SelectOption(tp,1190,1152)==0) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tc)
      else
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      script/c101110066.lua deleted 100644 → 0
      View file @ 3334dc3c
      --春化精の花盛り
      --
      --Script by Trishula9
      function c101110066.initial_effect(c)
      --activate
      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:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetRange(LOCATION_FZONE)
      e2:SetTargetRange(LOCATION_MZONE,0)
      e2:SetCondition(c101110066.condition)
      e2:SetValue(1000)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110066,0))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_FZONE)
      e3:SetCountLimit(1,101110066)
      e3:SetCost(c101110066.spcost)
      e3:SetTarget(c101110066.sptg)
      e3:SetOperation(c101110066.spop)
      c:RegisterEffect(e3)
      --to hand
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_TOHAND)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_SPSUMMON_SUCCESS)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e4:SetRange(LOCATION_FZONE)
      e4:SetCountLimit(1,101110066+100)
      e4:SetCondition(c101110066.thcon)
      e4:SetTarget(c101110066.thtg)
      e4:SetOperation(c101110066.thop)
      c:RegisterEffect(e4)
      end
      function c101110066.atkfilter(c)
      return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsFaceup()
      end
      function c101110066.condition(e)
      local tp=e:GetHandlerPlayer()
      return Duel.GetMatchingGroupCount(c101110066.atkfilter,tp,LOCATION_MZONE,0,nil)>=5
      end
      function c101110066.costfilter(c)
      return c:IsCode(63708033) and c:IsAbleToRemoveAsCost()
      end
      function c101110066.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c101110066.costfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,c101110066.costfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function c101110066.filter(c,e,tp)
      return c:IsCode(101110025) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c101110066.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110066.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function c101110066.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,c101110066.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c101110066.cfilter(c,tp)
      return c:IsSetCard(0x182) and c:IsPreviousLocation(LOCATION_GRAVE) and c:IsPreviousControler(tp)
      end
      function c101110066.thcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c101110066.cfilter,1,nil,tp)
      end
      function c101110066.thfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c101110066.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_MZONE) and c101110066.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c101110066.thfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,c101110066.thfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c101110066.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
      \ No newline at end of file
      script/c101110067.lua deleted 100644 → 0
      View file @ 3334dc3c
      --禁呪アラマティア
      --Script by JoyJ
      function c101110067.initial_effect(c)
      aux.AddCodeList(c,3285552)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --token
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110067,0))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,101110067)
      e2:SetCost(c101110067.tkcost)
      e2:SetTarget(c101110067.tktg)
      e2:SetOperation(c101110067.tkop)
      c:RegisterEffect(e2)
      --token if monster destroyed
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110067,1))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetRange(LOCATION_SZONE)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,101110067+100)
      e3:SetCondition(c101110067.spcon)
      e3:SetTarget(c101110067.sptg)
      e3:SetOperation(c101110067.spop)
      c:RegisterEffect(e3)
      Duel.AddCustomActivityCounter(101110067,ACTIVITY_SPSUMMON,c101110067.counterfilter)
      end
      function c101110067.counterfilter(c)
      return aux.IsCodeListed(c,3285552) or c:IsCode(3285552)
      end
      function c101110067.tkcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetCustomActivityCount(101110067,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(c101110067.splimit)
      Duel.RegisterEffect(e1,tp)
      end
      function c101110067.splimit(e,c)
      return not c101110067.counterfilter(c)
      end
      function c101110067.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
      local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,3285552,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_FAIRY,ATTRIBUTE_EARTH)
      local b2=Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,3285552,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_FAIRY,ATTRIBUTE_EARTH,POS_FACEUP,1-tp)
      if chk==0 then return (b1 or b2)
      and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0)
      end
      function c101110067.tkop(e,tp,eg,ep,ev,re,r,rp)
      local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,3285552,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_FAIRY,ATTRIBUTE_EARTH)
      local b2=Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,3285552,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_FAIRY,ATTRIBUTE_EARTH,POS_FACEUP,1-tp)
      local sel=0
      if b1 or b2 then
      if b1 and b2 then
      sel=Duel.SelectOption(tp,aux.Stringid(101110067,2),aux.Stringid(101110067,3))
      elseif b2 then
      sel=1
      end
      local to=tp
      if sel==1 then to=1-tp end
      local token=Duel.CreateToken(tp,101110167)
      if Duel.SpecialSummon(token,0,tp,to,false,false,POS_FACEUP)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,1,nil)
      if #g>0 then
      Duel.BreakEffect()
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      end
      end
      function c101110067.cfilter(c,tp)
      return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(tp)
      end
      function c101110067.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c101110067.cfilter,1,nil,tp)
      end
      function c101110067.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,3285552,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_FAIRY,ATTRIBUTE_EARTH)
      local b2=Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,3285552,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_FAIRY,ATTRIBUTE_EARTH,POS_FACEUP,1-tp)
      if chk==0 then return b1 or b2 end
      Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,PLAYER_ALL,0)
      end
      function c101110067.spop(e,tp,eg,ep,ev,re,r,rp)
      local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,3285552,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_FAIRY,ATTRIBUTE_EARTH)
      local b2=Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,3285552,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_FAIRY,ATTRIBUTE_EARTH,POS_FACEUP,1-tp)
      local sel=0
      if b1 or b2 then
      if b1 and b2 then
      sel=Duel.SelectOption(tp,aux.Stringid(101110067,2),aux.Stringid(101110067,3))
      elseif b2 then
      sel=1
      end
      local to=tp
      if sel==1 then to=1-tp end
      local token=Duel.CreateToken(tp,101110167)
      Duel.SpecialSummon(token,0,tp,to,false,false,POS_FACEUP)
      end
      end
      \ No newline at end of file
      script/c101110068.lua deleted 100644 → 0
      View file @ 3334dc3c
      --VV一ンロアクティべ一ト
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate MoveToPzone
      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)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --Move
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetCondition(s.seqcon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.seqtg)
      e2:SetOperation(s.seqop)
      c:RegisterEffect(e2)
      end
      function s.penfilter(c)
      return c:IsSetCard(0x17d) and c:IsType(TYPE_PENDULUM)
      and not c:IsForbidden()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
      and Duel.IsExistingMatchingCard(s.penfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local g=Duel.SelectMatchingCard(tp,s.penfilter,tp,LOCATION_DECK,0,1,1,nil)
      local tc=g:GetFirst()
      if tc then
      Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      function s.seqcon(e)
      return Duel.IsExistingMatchingCard(aux.TRUE,e:GetHandlerPlayer(),LOCATION_FZONE,LOCATION_FZONE,1,nil)
      end
      function s.seqfilter(c)
      local seq=c:GetSequence()
      local tp=c:GetControler()
      if seq>4 or not c:IsSetCard(0x17d) or not c:IsFaceup() then return false end
      return (seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1))
      or (seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1))
      end
      function s.seqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.seqfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.seqfilter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(id,0))
      Duel.SelectTarget(tp,s.seqfilter,tp,LOCATION_MZONE,0,1,1,nil)
      end
      function s.seqop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) then return end
      local seq=tc:GetSequence()
      if seq>4 then return end
      local flag=0
      if seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1) then flag=flag|(1<<(seq-1)) end
      if seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1) then flag=flag|(1<<(seq+1)) end
      if flag==0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
      local zone=Duel.SelectField(tp,1,LOCATION_MZONE,0,~flag)
      local nseq=math.log(zone,2)
      Duel.MoveSequence(tc,nseq)
      end
      script/c101110069.lua deleted 100644 → 0
      View file @ 3334dc3c
      --地中界の厄災
      --Script by 奥克斯
      --not fully implemented
      local s,id,o=GetID()
      function s.initial_effect(c)
      --activate
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_ACTIVATE)
      e0:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e0)
      --cannot be target
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
      e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetRange(LOCATION_SZONE)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsFacedown))
      e1:SetValue(aux.tgoval)
      c:RegisterEffect(e1)
      --atk/def up
      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(s.fliptg)
      e2:SetValue(1500)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e3)
      --flip flag
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetCode(EVENT_FLIP)
      e4:SetRange(LOCATION_SZONE)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetOperation(s.flipop)
      c:RegisterEffect(e4)
      --Special Summon
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e5:SetCode(EVENT_DESTROYED)
      e5:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e5:SetCondition(s.spcon)
      e5:SetTarget(s.sptg)
      e5:SetOperation(s.spop)
      c:RegisterEffect(e5)
      end
      function s.flipop(e,tp,eg,ep,ev,re,r,rp)
      local tc=eg:GetFirst()
      while tc do
      tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1)
      tc=eg:GetNext()
      end
      end
      function s.fliptg(e,c)
      return c:GetFlagEffect(id)~=0
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return rp==1-tp and c:IsReason(REASON_EFFECT)
      and c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_SZONE)
      end
      function s.spfilter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
      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.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.spfilter,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) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)~=0 then
      Duel.ConfirmCards(1-tp,tc)
      end
      end
      script/c101110070.lua deleted 100644 → 0
      View file @ 3334dc3c
      --真刀竹光
      --True Bamboo Sword
      --Ejeffers1239
      function c101110070.initial_effect(c)
      --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+EFFECT_FLAG_CONTINUOUS_TARGET)
      e1:SetTarget(c101110070.target)
      e1:SetOperation(c101110070.operation)
      c:RegisterEffect(e1)
      --Equip limit
      local e2=Effect.CreateEffect(c)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_EQUIP_LIMIT)
      e2:SetValue(1)
      c:RegisterEffect(e2)
      --Destroy
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110070,0))
      e3:SetCategory(CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_BATTLE_DAMAGE)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCondition(c101110070.descon)
      e3:SetTarget(c101110070.destg)
      e3:SetOperation(c101110070.desop)
      c:RegisterEffect(e3)
      --Equip
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(101110070,1))
      e4:SetCategory(CATEGORY_EQUIP)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_SZONE)
      e4:SetCost(c101110070.eqcost)
      e4:SetTarget(c101110070.eqtg)
      e4:SetOperation(c101110070.eqop)
      c:RegisterEffect(e4)
      end
      function c101110070.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 c101110070.operation(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 c101110070.descon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetAttackTarget()==nil and eg:GetFirst()==e:GetHandler():GetEquipTarget()
      end
      function c101110070.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function c101110070.desop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
      Duel.Destroy(g,REASON_EFFECT)
      end
      function c101110070.eqcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToGraveAsCost() end
      Duel.SendtoGrave(c,REASON_COST)
      end
      function c101110070.filter(c)
      return c:IsSetCard(0x60) and not c:IsCode(101110070) and c:IsType(TYPE_EQUIP)
      and c:CheckUniqueOnField(tp) and not c:IsForbidden()
      and Duel.IsExistingMatchingCard(c101110070.eqfilter,0,LOCATION_MZONE,LOCATION_MZONE,1,nil,c)
      end
      function c101110070.eqfilter(c,tc)
      return c:IsFaceup() and tc:CheckEquipTarget(c)
      end
      function c101110070.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>-1
      and Duel.IsExistingMatchingCard(c101110070.filter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c101110070.eqop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      local g1=Duel.SelectMatchingCard(tp,c101110070.filter,tp,LOCATION_DECK,0,1,1,nil)
      local tc=g1:GetFirst()
      if not tc then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g2=Duel.SelectMatchingCard(tp,c101110070.eqfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tc)
      Duel.Equip(tp,tc,g2:GetFirst())
      end
      script/c101110071.lua deleted 100644 → 0
      View file @ 3334dc3c
      --BF-ツインシャドウ
      --Script by Corvus1998 & mercury233
      function c101110071.initial_effect(c)
      aux.AddCodeList(c,9012916)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMING_END_PHASE)
      e1:SetCountLimit(1,101110071+EFFECT_COUNT_CODE_OATH)
      e1:SetCost(c101110071.cost)
      e1:SetTarget(c101110071.target)
      e1:SetOperation(c101110071.operation)
      c:RegisterEffect(e1)
      --act in hand
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
      e2:SetCondition(c101110071.handcon)
      c:RegisterEffect(e2)
      end
      function c101110071.confilter(c)
      return c:IsFaceup() and c:IsSetCard(0x33)
      end
      function c101110071.handcon(e)
      return Duel.IsExistingMatchingCard(c101110071.confilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,2,nil)
      end
      function c101110071.tdfilter(c)
      return c:IsSetCard(0x33) and c:IsType(TYPE_MONSTER) and c:GetLevel()>0
      and c:IsAbleToDeckOrExtraAsCost()
      and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
      end
      function c101110071.fselect(g,e,tp)
      return aux.gffcheck(g,Card.IsType,TYPE_TUNER,aux.NOT(Card.IsType),TYPE_TUNER)
      and Duel.IsExistingMatchingCard(c101110071.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,g:GetSum(Card.GetLevel))
      end
      function c101110071.spfilter(c,e,tp,lv)
      return (c:IsSetCard(0x33) and c:IsType(TYPE_SYNCHRO) or c:IsCode(9012916)) and c:IsLevel(lv)
      and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
      end
      function c101110071.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(100)
      local g=Duel.GetMatchingGroup(c101110071.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
      if chk==0 then
      return g:CheckSubGroup(c101110071.fselect,2,2,e,tp)
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=g:SelectSubGroup(tp,c101110071.fselect,false,2,2,e,tp)
      e:SetLabel(sg:GetSum(Card.GetLevel))
      Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_COST)
      end
      function c101110071.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      if e:GetLabel()~=100 then return false end
      e:SetLabel(0)
      return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL)
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function c101110071.operation(e,tp,eg,ep,ev,re,r,rp)
      if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
      local lv=e:GetLabel()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tc=Duel.SelectMatchingCard(tp,c101110071.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,lv):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/c101110072.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ブラック·ノーブル
      --Script by Corvus1998
      function c101110072.initial_effect(c)
      aux.AddCodeList(c,9012916)
      --negate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110072,0))
      e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCountLimit(1,101110072)
      e1:SetCondition(c101110072.discon)
      e1:SetCost(c101110072.discost)
      e1:SetTarget(c101110072.distg)
      e1:SetOperation(c101110072.disop)
      c:RegisterEffect(e1)
      --set
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110072,1))
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetCountLimit(1,101110072)
      e2:SetCondition(c101110072.setcon)
      e2:SetTarget(c101110072.settg)
      e2:SetOperation(c101110072.setop)
      c:RegisterEffect(e2)
      end
      function c101110072.discon(e,tp,eg,ep,ev,re,r,rp)
      return re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev)
      end
      function c101110072.discost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x10,1,REASON_COST) end
      Duel.RemoveCounter(tp,1,0,0x10,1,REASON_COST)
      end
      function c101110072.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():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
      end
      end
      function c101110072.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 c101110072.setfilter(c)
      return c:IsCode(9012916) and c:IsFaceup()
      end
      function c101110072.setcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c101110072.setfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function c101110072.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsSSetable() end
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
      end
      function c101110072.setop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SSet(tp,c)~=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_REMOVED)
      c:RegisterEffect(e1)
      end
      end
      script/c101110073.lua deleted 100644 → 0
      View file @ 3334dc3c
      --烙印の獣
      --Branded Beast
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --activate
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_ACTIVATE)
      e0:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e0)
      --destroy
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetRange(LOCATION_SZONE)
      e1:SetCountLimit(1)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetLabel(0)
      e1:SetCondition(s.descon)
      e1:SetCost(s.descost)
      e1:SetTarget(s.destg)
      e1:SetOperation(s.desop)
      c:RegisterEffect(e1)
      --recycle
      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_SZONE)
      e2:SetCountLimit(1,id)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCondition(s.condition)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      end
      function s.descon(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
      and Duel.IsExistingMatchingCard(aux.AND(Card.IsFaceup,Card.IsSetCard),tp,LOCATION_MZONE,0,1,nil,0x289)
      end
      function s.cfilter(c,tp)
      return c:IsRace(RACE_DRAGON) and (c:IsControler(tp) or c:IsFaceup())
      and Duel.IsExistingTarget(nil,tp,0,LOCATION_ONFIELD,1,c)
      end
      function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(1)
      return true
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
      local l=e:GetLabel()==1
      if chk==0 then
      e:SetLabel(0)
      return l and Duel.CheckReleaseGroup(tp,s.cfilter,1,nil,tp)
      end
      if l then
      e:SetLabel(0)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local sg=Duel.SelectReleaseGroup(tp,s.cfilter,1,1,nil,tp)
      Duel.Release(sg,REASON_COST)
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,nil,tp,0,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
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_END
      end
      function s.filter(c,tp)
      return c:IsSetCard(0x15d) and c:IsType(TYPE_CONTINUOUS)
      and not c:IsForbidden() and c:CheckUniqueOnField(tp)
      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,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE,0,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil,tp)
      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 Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) end
      end
      script/c101110074.lua deleted 100644 → 0
      View file @ 3334dc3c
      --スプライト・ダブルクロス
      --Script by JoyJ
      function c101110074.initial_effect(c)
      --material
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110074,0))
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,101110074+EFFECT_COUNT_CODE_OATH)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(c101110074.target1)
      e1:SetOperation(c101110074.operation1)
      c:RegisterEffect(e1)
      --control
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110074,1))
      e2:SetCategory(CATEGORY_CONTROL)
      e2:SetType(EFFECT_TYPE_ACTIVATE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetCountLimit(1,101110074+EFFECT_COUNT_CODE_OATH)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetTarget(c101110074.target2)
      e2:SetOperation(c101110074.operation2)
      c:RegisterEffect(e2)
      --special summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110074,2))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_ACTIVATE)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetCountLimit(1,101110074+EFFECT_COUNT_CODE_OATH)
      e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e3:SetTarget(c101110074.target3)
      e3:SetOperation(c101110074.operation3)
      c:RegisterEffect(e3)
      end
      function c101110074.filter1(c)
      return c:IsRank(2) and c:IsFaceup()
      end
      function c101110074.cfilter1(c,tp)
      return c:IsType(TYPE_MONSTER) and c:IsCanOverlay()
      and Duel.IsExistingMatchingCard(c101110074.filter1,tp,LOCATION_MZONE,0,1,c)
      end
      function c101110074.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c101110074.cfilter1(chkc,tp) end
      if chk==0 then return Duel.IsExistingTarget(c101110074.cfilter1,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,nil,tp) end
      Duel.Hint(HINT_OPSELECTED,tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
      local g=Duel.SelectTarget(tp,c101110074.cfilter1,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,1,nil,tp)
      if g:GetFirst():IsLocation(LOCATION_GRAVE) then
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
      end
      end
      function c101110074.operation1(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectMatchingCard(tp,c101110074.filter1,tp,LOCATION_MZONE,0,1,1,nil)
      if #g==0 then return end
      local tc2=g:GetFirst()
      if not tc:IsImmuneToEffect(e) and not tc2:IsImmuneToEffect(e) then
      local og=tc:GetOverlayGroup()
      if og:GetCount()>0 then
      Duel.SendtoGrave(og,REASON_RULE)
      end
      Duel.Overlay(tc2,Group.FromCards(tc))
      end
      end
      function c101110074.getzone(tp)
      local g=Duel.GetMatchingGroup(Card.IsLink,tp,LOCATION_MZONE,0,nil,2)
      local zone=0
      for lc in aux.Next(g) do
      zone=zone|lc:GetLinkedZone()
      end
      return zone&0x1f
      end
      function c101110074.filter2(c,zone)
      return c:IsControlerCanBeChanged(false,zone)
      end
      function c101110074.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local zone=c101110074.getzone(tp)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c101110074.filter2(chkc,zone) end
      if chk==0 then return Duel.IsExistingTarget(c101110074.filter2,tp,0,LOCATION_MZONE,1,nil,zone) end
      Duel.Hint(HINT_OPSELECTED,tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
      local g=Duel.SelectTarget(tp,c101110074.filter2,tp,0,LOCATION_MZONE,1,1,nil,zone)
      Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
      end
      function c101110074.operation2(e,tp,eg,ep,ev,re,r,rp)
      local zone=c101110074.getzone(tp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.GetControl(tc,tp,0,0,zone)
      end
      end
      function c101110074.filter3(c,e,tp,zone)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)
      end
      function c101110074.target3(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local zone=c101110074.getzone(tp)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c101110074.filter3(chkc,e,tp,zone) end
      if chk==0 then return Duel.IsExistingTarget(c101110074.filter3,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp,zone) end
      Duel.Hint(HINT_OPSELECTED,tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c101110074.filter3,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp,zone)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c101110074.operation3(e,tp,eg,ep,ev,re,r,rp)
      local zone=c101110074.getzone(tp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP,zone)
      end
      end
      script/c101110075.lua deleted 100644 → 0
      View file @ 3334dc3c
      --肆世壊の双牙
      --Script by JoyJ
      function c101110075.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110075,0))
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,101110075+EFFECT_COUNT_CODE_OATH)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetCost(c101110075.cost)
      e1:SetTarget(c101110075.target)
      e1:SetOperation(c101110075.activate)
      c:RegisterEffect(e1)
      --cannot activate
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110075,1))
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetHintTiming(0,TIMING_DRAW_PHASE)
      e2:SetCondition(c101110075.cacon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c101110075.catg)
      e2:SetOperation(c101110075.caop)
      c:RegisterEffect(e2)
      end
      function c101110075.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(1)
      return true
      end
      function c101110075.actfilter(c)
      return c:IsCode(56099748) and c:IsFaceup()
      end
      function c101110075.desfilter(c,check)
      return check or c:IsAbleToRemove()
      end
      function c101110075.descfilter(c,tc,ec,check)
      return c101110075.desfilter(c,check) and c:GetEquipTarget()~=tc and c~=ec
      end
      function c101110075.costfilter(c,ec,tp,check)
      if not c:IsSetCard(0x17a) then return false end
      return Duel.IsExistingTarget(c101110075.descfilter,tp,0,LOCATION_ONFIELD,2,c,c,ec,check)
      end
      function c101110075.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      local check=not Duel.IsExistingMatchingCard(c101110075.actfilter,tp,LOCATION_ONFIELD,0,1,nil)
      if chkc then return chkc:IsOnField() and chkc~=c and c101110075.desfilter(chkc,check) end
      if chk==0 then
      if e:GetLabel()==1 then
      e:SetLabel(0)
      return Duel.CheckReleaseGroup(tp,c101110075.costfilter,1,c,c,tp,check)
      else
      return Duel.IsExistingTarget(c101110075.desfilter,tp,0,LOCATION_ONFIELD,2,c,check)
      end
      end
      if e:GetLabel()==1 then
      e:SetLabel(0)
      local sg=Duel.SelectReleaseGroup(tp,c101110075.costfilter,1,1,c,c,tp,check)
      Duel.Release(sg,REASON_COST)
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,c101110075.desfilter,tp,0,LOCATION_ONFIELD,2,2,c,check)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0)
      end
      function c101110075.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      local sg=g:Filter(Card.IsRelateToEffect,nil,e)
      if Duel.IsExistingMatchingCard(c101110075.actfilter,tp,LOCATION_ONFIELD,0,1,nil) then
      Duel.Destroy(sg,REASON_EFFECT,LOCATION_REMOVED)
      else
      Duel.Destroy(sg,REASON_EFFECT)
      end
      end
      function c101110075.cacon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(Card.IsLinkAbove,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,3)
      end
      function c101110075.catg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFlagEffect(tp,101110075)==0 end
      end
      function c101110075.caop(e,tp,eg,ep,ev,re,r,rp)
      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,1)
      e1:SetValue(c101110075.aclimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      Duel.RegisterFlagEffect(tp,101110075,RESET_PHASE+PHASE_END,0,1)
      end
      function c101110075.aclimit(e,re,tp)
      local c=re:GetHandler()
      return re:IsActiveType(TYPE_MONSTER) and c:IsType(TYPE_LINK) and c:IsLocation(LOCATION_MZONE)
      end
      script/c101110076.lua deleted 100644 → 0
      View file @ 3334dc3c
      --クシャトリラ・プリペア
      --Script by JoyJ
      function c101110076.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101110076,0))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,101110076)
      e2:SetHintTiming(0,TIMING_END_PHASE)
      e2:SetTarget(c101110076.sptg)
      e2:SetOperation(c101110076.spop)
      c:RegisterEffect(e2)
      --remove when chaining
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(101110076,1))
      e3:SetCategory(CATEGORY_REMOVE)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_CHAINING)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1,101110076+100)
      e3:SetCondition(c101110076.rmcon)
      e3:SetTarget(c101110076.rmtg)
      e3:SetOperation(c101110076.rmop)
      c:RegisterEffect(e3)
      --activate
      end
      function c101110076.spfilter(c,e,tp)
      return c:IsSetCard(0x288) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and (c:IsLocation(LOCATION_HAND) or c:IsFaceup())
      end
      function c101110076.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c101110076.spfilter,tp,LOCATION_HAND+LOCATION_REMOVED,0,1,nil,e,tp) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_REMOVED)
      end
      function c101110076.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,c101110076.spfilter,tp,LOCATION_HAND+LOCATION_REMOVED,0,1,1,nil,e,tp)
      if #g>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c101110076.rmcfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x288)
      end
      function c101110076.rmcon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp and re:IsActiveType(TYPE_TRAP) and e:GetHandler():IsStatus(STATUS_EFFECT_ENABLED)
      end
      function c101110076.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,tp,POS_FACEDOWN)
      and Duel.IsExistingMatchingCard(c101110076.rmcfilter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_HAND)
      end
      function c101110076.rmop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
      Duel.ConfirmCards(tp,g)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local sg=g:FilterSelect(tp,Card.IsAbleToRemove,1,1,nil,tp,POS_FACEDOWN)
      if #sg>0 then
      Duel.Remove(sg,POS_FACEDOWN,REASON_EFFECT)
      end
      Duel.ShuffleHand(1-tp)
      end
      \ No newline at end of file
      script/c101110077.lua deleted 100644 → 0
      View file @ 3334dc3c
      --忍法 落葉舞
      --Ninjitsu Art of Fallen Leaves' Dance
      --Script by Lyris12
      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_RELEASE+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id)
      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)
      --leave
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
      e2:SetCode(EVENT_LEAVE_FIELD)
      e2:SetOperation(s.desop)
      c:RegisterEffect(e2)
      --tohand
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1,id)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCondition(s.thcon)
      e3:SetTarget(s.thtg)
      e3:SetOperation(s.thop)
      c:RegisterEffect(e3)
      end
      function s.cfilter(c,tp)
      return (c:IsFaceup() and c:IsSetCard(0x2b) or c:IsPosition(POS_FACEDOWN_DEFENSE))
      and c:IsReleasableByEffect() and Duel.GetMZoneCount(tp,c)>0
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x2b) 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_MZONE) and s.cfilter(chkc,tp) end
      if chk==0 then return Duel.IsExistingTarget(s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,tp)
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local g=Duel.SelectTarget(tp,s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp)
      Duel.SetOperationInfo(0,CATEGORY_RELEASE,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      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 Duel.Release(tc,REASON_EFFECT)>0
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sc=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp):GetFirst()
      if Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEUP) then
      c:SetCardTarget(sc)
      end
      Duel.SpecialSummonComplete()
      end
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetHandler():GetFirstCardTarget()
      if tc and tc:IsLocation(LOCATION_MZONE) then Duel.SendtoGrave(tc,REASON_EFFECT) end
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsStatus(STATUS_EFFECT_ENABLED)
      end
      function s.thfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x61) and c:IsType(TYPE_CONTINUOUS) and c:GetSequence()<5
      and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and s.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.thfilter,tp,LOCATION_SZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,s.thfilter,tp,LOCATION_SZONE,0,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/c101110078.lua deleted 100644 → 0
      View file @ 3334dc3c
      --同契魔術
      --Simult Archfiend
      --Scripted by: XGlitchy30
      function c101110078.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101110078,0))
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
      e1:SetCountLimit(1,101110078+EFFECT_COUNT_CODE_OATH)
      e1:SetOperation(c101110078.activate)
      c:RegisterEffect(e1)
      end
      function c101110078.getTypes(c)
      return c:GetType()&(TYPE_RITUAL+TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK)
      end
      function c101110078.getMonsters(tp)
      return Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil):Filter(Card.IsType,nil,TYPE_RITUAL+TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK)
      end
      function c101110078.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,1)
      e1:SetTarget(c101110078.sumlimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      local g=c101110078.getMonsters(tp)
      if #g>0 and g:GetClassCount(c101110078.getTypes)==#g then
      for tc in aux.Next(g) do
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetValue(500)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e2)
      end
      end
      end
      function c101110078.matchfilter(c,sumc)
      return sumc:IsType(c101110078.getTypes(c))
      end
      function c101110078.sumlimit(e,c,sump)
      local g=c101110078.getMonsters(sump)
      return g:IsExists(c101110078.matchfilter,1,nil,c)
      end
      script/c101110079.lua deleted 100644 → 0
      View file @ 3334dc3c
      --星逢の天河
      --Script by 奥克斯
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id)
      e1:SetCost(s.cost)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --Ritual Summon
      local e2=Effect.CreateEffect(c)
      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(s.rscost)
      e2:SetTarget(s.rstg)
      e2:SetOperation(s.rsop)
      c:RegisterEffect(e2)
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(100)
      return true
      end
      function s.cfilter(c,tp)
      return bit.band(c:GetType(),0x81)==0x81 and not c:IsPublic()
      and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil,c)
      end
      function s.thfilter(c,rc)
      return not c:IsCode(rc:GetCode()) and c:IsLevel(rc:GetLevel())
      and bit.band(c:GetType(),0x81)==0x81
      and c:IsAbleToHand()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      if e:GetLabel()~=100 then return false end
      e:SetLabel(0)
      return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND,0,1,nil,tp)
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
      local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND,0,1,1,nil,tp)
      e:SetLabelObject(g:GetFirst())
      Duel.ConfirmCards(1-tp,g)
      Duel.ShuffleHand(tp)
      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 rc=e:GetLabelObject()
      local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil,rc)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      end
      end
      function s.rtfilter(c)
      return c:GetType()==TYPE_SPELL+TYPE_RITUAL and c:IsAbleToGraveAsCost() and c:CheckActivateEffect(true,true,false)~=nil
      end
      function s.rscost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(1)
      return true
      end
      function s.rstg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then
      if e:GetLabel()==0 then return false end
      e:SetLabel(0)
      return Duel.IsExistingMatchingCard(s.rtfilter,tp,LOCATION_HAND,0,1,nil)
      and c:IsAbleToRemoveAsCost()
      end
      e:SetLabel(0)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.rtfilter,tp,LOCATION_HAND,0,1,1,nil)
      local te=g:GetFirst():CheckActivateEffect(true,true,false)
      e:SetLabelObject(te)
      Duel.SendtoGrave(g,REASON_COST)
      Duel.Remove(c,POS_FACEUP,REASON_COST)
      e:SetProperty(te:GetProperty())
      local tg=te:GetTarget()
      if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end
      Duel.ClearOperationInfo(0)
      end
      function s.rsop(e,tp,eg,ep,ev,re,r,rp)
      local te=e:GetLabelObject()
      if not te then return end
      local op=te:GetOperation()
      if op then op(e,tp,eg,ep,ev,re,r,rp) end
      end
      script/c101110080.lua deleted 100644 → 0
      View file @ 3334dc3c
      --天地返し
      --Script by VHisc
      function c101110080.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(c101110080.target)
      e1:SetOperation(c101110080.operation)
      c:RegisterEffect(e1)
      end
      function c101110080.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=2
      and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c101110080.operation(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetFieldGroup(tp,LOCATION_DECK,0)
      if g:GetCount()==0 then return end
      local tc=g:GetMinGroup(Card.GetSequence):GetFirst()
      Duel.DisableShuffleCheck()
      if Duel.SendtoHand(tc,tp,REASON_EFFECT)>0 then
      Duel.ConfirmCards(1-tp,tc)
      Duel.ShuffleHand(tp)
      if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<=1 then return end
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(101110080,1))
      local seg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_DECK,0,1,1,nil)
      local sec=seg:GetFirst()
      if sec then
      Duel.ShuffleDeck(tp)
      Duel.MoveSequence(sec,SEQ_DECKBOTTOM)
      end
      end
      end
      script/c16940215.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ナチュル・ナーブ
      function c16940215.initial_effect(c)
      --Negate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(16940215,0))
      e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_CHAINING)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCondition(c16940215.discon)
      e1:SetCost(c16940215.discost)
      e1:SetTarget(c16940215.distg)
      e1:SetOperation(c16940215.disop)
      c:RegisterEffect(e1)
      end
      function c16940215.discon(e,tp,eg,ep,ev,re,r,rp)
      return ep~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev)
      end
      function c16940215.cfilter(c)
      return c:IsSetCard(0x2a) and not c:IsStatus(STATUS_BATTLE_DESTROYED)
      end
      function c16940215.discost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local fe=Duel.IsPlayerAffectedByEffect(tp,101110021)
      local b1=fe and Duel.IsPlayerCanDiscardDeckAsCost(tp,2)
      local b2=c:IsReleasable() and not c:IsStatus(STATUS_BATTLE_DESTROYED) and Duel.CheckReleaseGroup(tp,c16940215.cfilter,1,c)
      if chk==0 then return b1 or b2 end
      if b1 and (not b2 or Duel.SelectYesNo(tp,fe:GetDescription())) then
      Duel.Hint(HINT_CARD,0,101110021)
      fe:UseCountLimit(tp)
      Duel.DiscardDeck(tp,2,REASON_COST)
      else
      local g=Duel.SelectReleaseGroup(tp,c16940215.cfilter,1,1,c)
      g:AddCard(c)
      Duel.Release(g,REASON_COST)
      end
      end
      function c16940215.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 c16940215.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
      script/c17465972.lua deleted 100644 → 0
      View file @ 3334dc3c
      --BF－南風のアウステル
      function c17465972.initial_effect(c)
      aux.AddCodeList(c,9012916)
      --cannot special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(17465972,0))
      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)
      e2:SetTarget(c17465972.sumtg)
      e2:SetOperation(c17465972.sumop)
      c:RegisterEffect(e2)
      --counter
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(17465972,1))
      e3:SetCategory(CATEGORY_COUNTER)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetCost(aux.bfgcost)
      e3:SetTarget(c17465972.cttg1)
      e3:SetOperation(c17465972.ctop1)
      c:RegisterEffect(e3)
      local e4=e3:Clone()
      e4:SetDescription(aux.Stringid(17465972,2))
      e4:SetTarget(c17465972.cttg2)
      e4:SetOperation(c17465972.ctop2)
      c:RegisterEffect(e4)
      end
      function c17465972.filter(c,e,tp)
      return c:IsFaceup() and c:IsLevelBelow(4) and c:IsSetCard(0x33) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
      end
      function c17465972.sumtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c17465972.filter(chkc,e,tp) end
      if chk==0 then return Duel.IsExistingTarget(c17465972.filter,tp,LOCATION_REMOVED,0,1,nil,e,tp)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c17465972.filter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c17465972.sumop(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
      function c17465972.ctfilter1(c,ct)
      return c:IsFaceup() and c:IsCode(9012916) and c:IsCanAddCounter(0x10,ct)
      end
      function c17465972.cttg1(e,tp,eg,ep,ev,re,r,rp,chk)
      local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)
      if chk==0 then return ct>0 and Duel.IsExistingMatchingCard(c17465972.ctfilter1,tp,LOCATION_MZONE,0,1,nil,ct) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,ct,0,0x10)
      end
      function c17465972.ctop1(e,tp,eg,ep,ev,re,r,rp)
      local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)
      if ct>0 then
      local g=Duel.SelectMatchingCard(tp,c17465972.ctfilter1,tp,LOCATION_MZONE,0,1,1,nil,ct)
      local tc=g:GetFirst()
      if tc then
      tc:AddCounter(0x10,ct)
      end
      end
      end
      function c17465972.ctfilter2(c)
      return c:IsFaceup() and c:GetCounter(0x1002)==0 and c:IsCanAddCounter(0x1002,1)
      end
      function c17465972.cttg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c17465972.ctfilter2,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1002)
      end
      function c17465972.ctop2(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(c17465972.ctfilter2,tp,0,LOCATION_MZONE,nil)
      local tc=g:GetFirst()
      while tc do
      tc:AddCounter(0x1002,1)
      tc=g:GetNext()
      end
      end
      script/c19605133.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ナチュル・レディバグ
      function c19605133.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(19605133,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetRange(LOCATION_GRAVE)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetCondition(c19605133.spcon)
      e1:SetTarget(c19605133.sptg)
      e1:SetOperation(c19605133.spop)
      c:RegisterEffect(e1)
      --atkup
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(19605133,1))
      e2:SetCategory(CATEGORY_ATKCHANGE)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCost(c19605133.atcost)
      e2:SetTarget(c19605133.attg)
      e2:SetOperation(c19605133.atop)
      c:RegisterEffect(e2)
      end
      function c19605133.spcon(e,tp,eg,ep,ev,re,r,rp)
      local ec=eg:GetFirst()
      return ec:IsSetCard(0x2a) and ec:IsSummonType(SUMMON_TYPE_SYNCHRO) and ec:IsSummonPlayer(tp)
      end
      function c19605133.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c19605133.spop(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 c19605133.atcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local fe=Duel.IsPlayerAffectedByEffect(tp,101110021)
      local b1=fe and Duel.IsPlayerCanDiscardDeckAsCost(tp,2)
      local b2=c:IsReleasable()
      if chk==0 then return b1 or b2 end
      if b1 and (not b2 or Duel.SelectYesNo(tp,fe:GetDescription())) then
      Duel.Hint(HINT_CARD,0,101110021)
      fe:UseCountLimit(tp)
      Duel.DiscardDeck(tp,2,REASON_COST)
      else
      Duel.Release(c,REASON_COST)
      end
      end
      function c19605133.filter(c)
      return c:IsFaceup() and c:IsSetCard(0x2a)
      end
      function c19605133.attg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c19605133.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c19605133.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      local g=Duel.SelectTarget(tp,c19605133.filter,tp,LOCATION_MZONE,0,1,1,nil)
      end
      function c19605133.atop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsFaceup() and tc:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(1000)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      end
      end
      script/c7478431.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ナチュル・サンフラワー
      function c7478431.initial_effect(c)
      --Negate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(7478431,0))
      e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_CHAINING)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCondition(c7478431.discon)
      e1:SetCost(c7478431.discost)
      e1:SetTarget(c7478431.distg)
      e1:SetOperation(c7478431.disop)
      c:RegisterEffect(e1)
      end
      function c7478431.discon(e,tp,eg,ep,ev,re,r,rp)
      return ep~=tp and re:IsActiveType(TYPE_MONSTER)
      and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)~=LOCATION_DECK and Duel.IsChainNegatable(ev)
      end
      function c7478431.cfilter(c)
      return c:IsSetCard(0x2a) and not c:IsStatus(STATUS_BATTLE_DESTROYED)
      end
      function c7478431.discost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local fe=Duel.IsPlayerAffectedByEffect(tp,101110021)
      local b1=fe and Duel.IsPlayerCanDiscardDeckAsCost(tp,2)
      local b2=c:IsReleasable() and not c:IsStatus(STATUS_BATTLE_DESTROYED) and Duel.CheckReleaseGroup(tp,c7478431.cfilter,1,c)
      if chk==0 then return b1 or b2 end
      if b1 and (not b2 or Duel.SelectYesNo(tp,fe:GetDescription())) then
      Duel.Hint(HINT_CARD,0,101110021)
      fe:UseCountLimit(tp)
      Duel.DiscardDeck(tp,2,REASON_COST)
      else
      local g=Duel.SelectReleaseGroup(tp,c7478431.cfilter,1,1,c)
      g:AddCard(c)
      Duel.Release(g,REASON_COST)
      end
      end
      function c7478431.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 c7478431.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
      script/c80254726.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ブラック・バード・クローズ
      function c80254726.initial_effect(c)
      aux.AddCodeList(c,9012916)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_NEGATE+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCondition(c80254726.condition)
      e1:SetCost(c80254726.cost)
      e1:SetTarget(c80254726.target)
      e1:SetOperation(c80254726.activate)
      c:RegisterEffect(e1)
      --act in hand
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
      e2:SetCondition(c80254726.handcon)
      c:RegisterEffect(e2)
      end
      function c80254726.condition(e,tp,eg,ep,ev,re,r,rp)
      local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
      return ep~=tp and loc==LOCATION_MZONE and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
      end
      function c80254726.discfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x33) and c:IsAbleToGraveAsCost()
      end
      function c80254726.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c80254726.discfilter,tp,LOCATION_MZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c80254726.discfilter,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.SendtoGrave(g,REASON_COST)
      end
      function c80254726.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 c80254726.sfilter(c,e,tp)
      return c:IsCode(9012916) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
      end
      function c80254726.activate(e,tp,eg,ep,ev,re,r,rp)
      if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re)
      and Duel.Destroy(eg,REASON_EFFECT)~=0 then
      local sc=Duel.GetFirstMatchingCard(c80254726.sfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
      if sc and Duel.SelectYesNo(tp,aux.Stringid(80254726,0)) then
      Duel.BreakEffect()
      Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      function c80254726.cfilter(c)
      return c:IsFaceup() and ((c:IsSetCard(0x33) and c:IsType(TYPE_SYNCHRO)) or c:IsCode(9012916))
      end
      function c80254726.handcon(e)
      return Duel.IsExistingMatchingCard(c80254726.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
      end
      script/c84905691.lua deleted 100644 → 0
      View file @ 3334dc3c
      --ナチュル・ホーストニードル
      function c84905691.initial_effect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(84905691,0))
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetCost(c84905691.cost)
      e1:SetTarget(c84905691.target)
      e1:SetOperation(c84905691.operation)
      c:RegisterEffect(e1)
      end
      function c84905691.cfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x2a)
      end
      function c84905691.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      local fe=Duel.IsPlayerAffectedByEffect(tp,101110021)
      local b1=fe and Duel.IsPlayerCanDiscardDeckAsCost(tp,2)
      local b2=Duel.CheckReleaseGroup(tp,c84905691.cfilter,1,e:GetHandler())
      if chk==0 then return b1 or b2 end
      if b1 and (not b2 or Duel.SelectYesNo(tp,fe:GetDescription())) then
      Duel.Hint(HINT_CARD,0,101110021)
      fe:UseCountLimit(tp)
      Duel.DiscardDeck(tp,2,REASON_COST)
      else
      local g=Duel.SelectReleaseGroup(tp,c84905691.cfilter,1,1,e:GetHandler())
      Duel.Release(g,REASON_COST)
      end
      end
      function c84905691.filter(c,e,tp)
      return c:IsSummonPlayer(1-tp) and (not e or c:IsRelateToEffect(e))
      end
      function c84905691.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) and not eg:IsContains(e:GetHandler())
      and eg:IsExists(c84905691.filter,1,nil,nil,tp) end
      local g=eg:Filter(c84905691.filter,nil,nil,tp)
      Duel.SetTargetCard(eg)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function c84905691.operation(e,tp,eg,ep,ev,re,r,rp)
      local g=eg:Filter(c84905691.filter,nil,e,tp)
      if g:GetCount()>0 then
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      script/c94997874.lua deleted 100644 → 0
      View file @ 3334dc3c
      --聖占術姫タロットレイ
      function c94997874.initial_effect(c)
      c:EnableReviveLimit()
      --position change
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(94997874,0))
      e1:SetCategory(CATEGORY_POSITION)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE+TIMING_STANDBY_PHASE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,94997874)
      e1:SetTarget(c94997874.postg)
      e1:SetOperation(c94997874.posop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetDescription(aux.Stringid(94997874,1))
      e2:SetTarget(c94997874.postg2)
      e2:SetOperation(c94997874.posop2)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(94997874,2))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_PHASE+PHASE_END)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCondition(c94997874.spcon)
      e3:SetTarget(c94997874.sptg)
      e3:SetOperation(c94997874.spop)
      c:RegisterEffect(e3)
      end
      function c94997874.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFacedown() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFacedown,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local g=Duel.SelectTarget(tp,Card.IsFacedown,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      end
      function c94997874.posop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.ChangePosition(tc,POS_FACEUP_ATTACK)
      end
      end
      function c94997874.posfilter(c)
      return c:IsFaceup() and c:IsCanTurnSet()
      end
      function c94997874.postg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and c94997874.posfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c94997874.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local g=Duel.SelectTarget(tp,c94997874.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      end
      function c94997874.posop2(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 c94997874.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==tp
      end
      function c94997874.spfilter(c,e,tp)
      local proc=c:IsCode(101110038) and e:GetHandler():IsCode(94997874)
      return c:IsType(TYPE_FLIP) and c:IsCanBeSpecialSummoned(e,0,tp,proc,proc,POS_FACEDOWN_DEFENSE)
      end
      function c94997874.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c94997874.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
      end
      function c94997874.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(c94997874.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
      local tc=g:GetFirst()
      if tc then
      local proc=tc:IsCode(101110038) and e:GetHandler():IsCode(94997874)
      Duel.SpecialSummon(tc,0,tp,tp,proc,proc,POS_FACEDOWN_DEFENSE)
      Duel.ConfirmCards(1-tp,tc)
      if proc then tc:CompleteProcedure() end
      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