Skip to content

P
pre-release-database-cdb
Commit e0c9a775 authored by wind2009's avatar wind2009
Browse files
Options

Remove released cards

parent d5209210
Pipeline #29530 passed with stages
          in 2 minutes and 35 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 2 additions and 3073 deletions
          .gitlab-ci.yml
          View file @ e0c9a775
          ......@@ -53,7 +53,7 @@ merge_databases:
          FIELDS: 'name,desc,overallString,picUrl'
          GIT_DEPTH: '1000'
          OUTPUT_FILENAME: test-release.json
          REF_COMMIT: '6.5' # 更新的时候改这里，修改成上一个tag的版本号
          REF_COMMIT: '6.6' # 更新的时候改这里，修改成上一个tag的版本号
          script:
          - apt update;apt -y install wget
          - currentPath=$PWD
          ......
          DBCB.cdb deleted 100644 → 0
          View file @ d5209210
          File deleted
          pack/2024-08-24 DBCB.ydk deleted 100644 → 0
          View file @ d5209210
          #created by ygomobile
          100223001
          100223002
          100223003
          100223004
          100223005
          100223006
          100223007
          100223008
          100223009
          100223010
          100223015
          100223016
          100223017
          100223018
          100223019
          100223020
          100223021
          100223022
          100223023
          100223024
          100223031
          100223032
          100223033
          100223034
          100223035
          100223036
          100223037
          100223038
          100223039
          100223040
          pack/etc.ydk
          View file @ e0c9a775
          ......@@ -3,5 +3,4 @@
          100200256
          100200257
          100200258
          100225001
          100200260
          \ No newline at end of file
          100225001
          \ No newline at end of file
          script-fix.cdb
          View file @ e0c9a775
          No preview for this file type
          script/c100223001.lua deleted 100644 → 0
          View file @ d5209210
          --ソード・ライゼオル
          local s,id,o=GetID()
          function s.initial_effect(c)
          --special summon rule
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_SPSUMMON_PROC)
          e1:SetRange(LOCATION_HAND)
          e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetCondition(s.spcon)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --to hand
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_SUMMON_SUCCESS)
          e2:SetCountLimit(1,id+o)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetTarget(s.thtg)
          e2:SetOperation(s.thop)
          c:RegisterEffect(e2)
          local e3=e2:Clone()
          e3:SetCode(EVENT_SPSUMMON_SUCCESS)
          c:RegisterEffect(e3)
          end
          function s.spcon(e,c)
          if c==nil then return true end
          local tp=c:GetControler()
          return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and Duel.GetMatchingGroupCount(aux.AND(Card.IsSetCard,Card.IsFaceupEx),tp,LOCATION_MZONE+LOCATION_GRAVE,0,nil,0x2bf)>0
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return not (c:IsType(TYPE_XYZ) and c:IsRank(4)) and c:IsLocation(LOCATION_EXTRA)
          end
          function s.filter(c)
          return c:IsRace(RACE_PYRO) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
          if #g>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          \ No newline at end of file
          script/c100223002.lua deleted 100644 → 0
          View file @ d5209210
          --ノード・ライゼオル
          local s,id,o=GetID()
          function s.initial_effect(c)
          --special summon rule
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_SPSUMMON_PROC)
          e1:SetRange(LOCATION_HAND)
          e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetCondition(s.spcon)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --special summon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCountLimit(1,id+o)
          e2:SetCost(s.spcost2)
          e2:SetTarget(s.sptg2)
          e2:SetOperation(s.spop2)
          c:RegisterEffect(e2)
          end
          function s.spcon(e,c)
          if c==nil then return true end
          local tp=c:GetControler()
          return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and Duel.GetMatchingGroupCount(aux.AND(Card.IsType,Card.IsFaceupEx),tp,LOCATION_MZONE+LOCATION_GRAVE,0,nil,TYPE_XYZ)>0
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return not (c:IsType(TYPE_XYZ) and c:IsRank(4)) and c:IsLocation(LOCATION_EXTRA)
          end
          function s.cfilter1(c,tp)
          return c:IsAbleToGraveAsCost() and Duel.GetMZoneCount(tp,c)>0
          end
          function s.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter1,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil,tp) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g=Duel.SelectMatchingCard(tp,s.cfilter1,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil,tp)
          Duel.SendtoGrave(g,REASON_COST)
          end
          function s.spfilter2(c,e,tp)
          return not c:IsCode(id) and c:IsSetCard(0x2bf)
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
          end
          function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.spfilter2(chkc,e,tp) end
          if chk==0 then return Duel.IsExistingTarget(s.spfilter2,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectTarget(tp,s.spfilter2,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
          end
          function s.spop2(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_DISABLE)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_DISABLE_EFFECT)
          e2:SetValue(RESET_TURN_SET)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e2)
          end
          Duel.SpecialSummonComplete()
          end
          \ No newline at end of file
          script/c100223003.lua deleted 100644 → 0
          View file @ d5209210
          --アイス・ライゼオル
          local s,id,o=GetID()
          function s.initial_effect(c)
          --special summon rule
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_SPSUMMON_PROC)
          e1:SetRange(LOCATION_HAND)
          e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetCondition(s.spcon)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --spsummon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_SUMMON_SUCCESS)
          e2:SetCountLimit(1,id+o)
          e2:SetTarget(s.sptg2)
          e2:SetOperation(s.spop2)
          c:RegisterEffect(e2)
          end
          function s.cfilter(c,tp,f)
          return f(c) 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.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,c,tp,Card.IsAbleToGraveAsCost)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
          local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,c,tp,Card.IsAbleToGraveAsCost)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local tc=g:SelectUnselect(nil,tp,false,true,1,1)
          if tc then
          e:SetLabelObject(tc)
          return true
          else return false end
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
          local g=e:GetLabelObject()
          Duel.SendtoGrave(g,REASON_SPSUMMON)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return not (c:IsType(TYPE_XYZ) and c:IsRank(4)) and c:IsLocation(LOCATION_EXTRA)
          end
          function s.spfilter(c,e,tp)
          return c:IsSetCard(0x2bf) and not c:IsCode(id) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
          end
          function s.spop2(e,tp,eg,ep,ev,re,r,rp)
          if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,s.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
          \ No newline at end of file
          script/c100223004.lua deleted 100644 → 0
          View file @ d5209210
          --エクス・ライゼオル
          local s,id,o=GetID()
          function s.initial_effect(c)
          --special summon rule
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_SPSUMMON_PROC)
          e1:SetRange(LOCATION_HAND)
          e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetCondition(s.spcon)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --to hand
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_SUMMON_SUCCESS)
          e2:SetCountLimit(1,id+o)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetTarget(s.thtg)
          e2:SetOperation(s.thop)
          c:RegisterEffect(e2)
          local e3=e2:Clone()
          e3:SetCode(EVENT_SPSUMMON_SUCCESS)
          c:RegisterEffect(e3)
          end
          function s.cfilter(c,tp)
          return c:IsAbleToGraveAsCost() and c:IsType(TYPE_XYZ)
          end
          function s.spcon(e,c)
          if c==nil then return true end
          local tp=c:GetControler()
          return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_EXTRA,0,1,nil,tp)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
          local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_EXTRA,0,nil,tp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local tc=g:SelectUnselect(nil,tp,false,true,1,1)
          if tc then
          e:SetLabelObject(tc)
          return true
          else return false end
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
          local g=e:GetLabelObject()
          Duel.SendtoGrave(g,REASON_SPSUMMON)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return not (c:IsType(TYPE_XYZ) and c:IsRank(4)) and c:IsLocation(LOCATION_EXTRA)
          end
          function s.confilter(c)
          return c:IsFaceup() and not (c:IsRank(4) or c:IsLevel(4))
          end
          function s.thfilter(c)
          return c:IsRace(RACE_THUNDER) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return not Duel.IsExistingMatchingCard(s.confilter,tp,LOCATION_MZONE,0,1,nil)
          and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
          if #g>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          \ No newline at end of file
          script/c100223005.lua deleted 100644 → 0
          View file @ d5209210
          --パルマ・ライゼオル
          local s,id,o=GetID()
          function s.initial_effect(c)
          c:EnableReviveLimit()
          --special summon rule
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_SPSUMMON_PROC)
          e1:SetRange(LOCATION_HAND)
          e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
          e1:SetCondition(s.spcon)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --spsummon limit
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e2:SetTargetRange(1,0)
          e2:SetTarget(s.splimit)
          c:RegisterEffect(e2)
          --atk up
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,1))
          e3:SetCategory(CATEGORY_TOGRAVE+CATEGORY_ATKCHANGE)
          e3:SetType(EFFECT_TYPE_QUICK_O)
          e3:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1)
          e3:SetCondition(s.atkcon)
          e3:SetTarget(s.atktg)
          e3:SetOperation(s.atkop)
          c:RegisterEffect(e3)
          end
          function s.cfilter(c,tp)
          return (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost()) and c:IsSetCard(0x2bf) and c:IsType(TYPE_MONSTER)
          end
          function s.spcon(e,c)
          if c==nil then return true end
          local tp=c:GetControler()
          return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,e:GetHandler(),tp)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
          local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,e:GetHandler(),tp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local tc=g:SelectUnselect(nil,tp,false,true,1,1)
          if tc then
          e:SetLabelObject(tc)
          return true
          else return false end
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
          local dc=e:GetLabelObject()
          if dc:IsLocation(LOCATION_HAND) then
          Duel.ConfirmCards(1-tp,dc)
          end
          if dc:IsLocation(LOCATION_GRAVE) then
          Duel.HintSelection(Group.FromCards(dc))
          end
          Duel.SendtoDeck(dc,nil,SEQ_DECKSHUFFLE,REASON_SPSUMMON)
          end
          function s.splimit(e,c,sump,sumtype,sumpos,targetp,se)
          return not (c:IsType(TYPE_XYZ) and c:IsRank(4)) and c:IsLocation(LOCATION_EXTRA)
          end
          function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
          return e:GetHandler():GetBattleTarget()
          end
          function s.tgfilter(c)
          return c:IsLevel(4) and not c:IsAttack(0) and c:IsAbleToGrave()
          end
          function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
          end
          function s.atkop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil)
          local c=e:GetHandler()
          local tc=g:GetFirst()
          if tc and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE)
          and c:IsRelateToBattle() and c:IsFaceup() then
          local atk=tc:GetAttack()
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_UPDATE_ATTACK)
          e1:SetValue(atk)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
          c:RegisterEffect(e1)
          end
          end
          \ No newline at end of file
          script/c100223006.lua deleted 100644 → 0
          View file @ d5209210
          --ライゼオル・デュオドライブ
          local s,id,o=GetID()
          function s.initial_effect(c)
          --xyz summon
          aux.AddXyzProcedure(c,nil,4,2,nil,nil,99)
          c:EnableReviveLimit()
          --material
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetProperty(EFFECT_FLAG_DELAY)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.mttg)
          e1:SetOperation(s.mtop)
          c:RegisterEffect(e1)
          --atk up or atkdown
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCode(EFFECT_UPDATE_ATTACK)
          e2:SetTargetRange(LOCATION_MZONE,0)
          e2:SetValue(s.val1)
          c:RegisterEffect(e2)
          local e3=e2:Clone()
          e3:SetTargetRange(0,LOCATION_MZONE)
          e3:SetValue(s.val2)
          c:RegisterEffect(e3)
          --to hand
          local e4=Effect.CreateEffect(c)
          e4:SetDescription(aux.Stringid(id,1))
          e4:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
          e4:SetType(EFFECT_TYPE_IGNITION)
          e4:SetRange(LOCATION_MZONE)
          e4:SetCountLimit(1,id+o)
          e4:SetTarget(s.thtg)
          e4:SetOperation(s.thop)
          c:RegisterEffect(e4)
          end
          function s.mtfilter(c,e)
          return c:IsSetCard(0x2bf) and c:IsType(TYPE_MONSTER)
          and c:IsCanOverlay() and not (e and c:IsImmuneToEffect(e))
          end
          function s.mttg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return e:GetHandler():IsType(TYPE_XYZ)
          and Duel.IsExistingMatchingCard(s.mtfilter,tp,LOCATION_GRAVE,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,1,0,0)
          end
          function s.mtop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not c:IsRelateToEffect(e) then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
          local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.mtfilter),tp,LOCATION_GRAVE,0,1,1,nil,e)
          if g:GetCount()>0 then
          Duel.Overlay(c,g)
          end
          end
          function s.val1(e,c)
          return e:GetHandler():GetOverlayCount()*100
          end
          function s.val2(e,c)
          return e:GetHandler():GetOverlayCount()*(-100)
          end
          function s.thfilter(c)
          return c:IsSetCard(0x2bf) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          local g=Duel.GetMatchingGroup(s.thfilter,tp,LOCATION_DECK,0,nil)
          if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_EFFECT)
          and g:GetClassCount(Card.GetCode)>=2 end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetMatchingGroup(s.thfilter,tp,LOCATION_DECK,0,nil)
          if Duel.RemoveOverlayCard(tp,1,0,2,2,REASON_EFFECT)~=0
          and g:GetClassCount(Card.GetCode)>=2 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local tg=g:SelectSubGroup(tp,aux.dncheck,false,2,2)
          if tg:GetCount()>0 then
          Duel.SendtoHand(tg,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,tg)
          end
          end
          end
          \ No newline at end of file
          script/c100223007.lua deleted 100644 → 0
          View file @ d5209210
          --ライゼオル・デッドネーダー
          local s,id,o=GetID()
          function s.initial_effect(c)
          --xyz summon
          aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x2bf),4,2,nil,nil,99)
          c:EnableReviveLimit()
          --material
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetProperty(EFFECT_FLAG_DELAY)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.mttg)
          e1:SetOperation(s.mtop)
          c:RegisterEffect(e1)
          --destroy
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_DESTROY)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_CHAINING)
          e2:SetRange(LOCATION_MZONE)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetCondition(s.descon)
          e2:SetCost(s.descost)
          e2:SetTarget(s.destg)
          e2:SetOperation(s.desop)
          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_MZONE)
          e3:SetCountLimit(1,id+o)
          e3:SetTarget(s.desreptg)
          e3:SetValue(s.desrepval)
          e3:SetOperation(s.desrepop)
          c:RegisterEffect(e3)
          end
          function s.mtfilter(c,e)
          return c:IsType(TYPE_MONSTER) and c:IsCanOverlay() and not (e and c:IsImmuneToEffect(e))
          end
          function s.mttg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return e:GetHandler():IsType(TYPE_XYZ)
          and Duel.IsExistingMatchingCard(s.mtfilter,tp,LOCATION_GRAVE,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,1,0,0)
          end
          function s.mtop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not c:IsRelateToEffect(e) then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
          local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.mtfilter),tp,LOCATION_GRAVE,0,1,1,nil,e)
          if g:GetCount()>0 then
          Duel.Overlay(c,g)
          end
          end
          function s.descon(e,tp,eg,ep,ev,re,r,rp)
          return re:GetHandlerPlayer()~=e:GetHandlerPlayer()
          end
          function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
          e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
          end
          function s.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.repfilter(c,tp)
          return c:IsControler(tp) and c:IsType(TYPE_XYZ) and c:IsFaceup() and c:IsLocation(LOCATION_MZONE)
          and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
          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 c:CheckRemoveOverlayCard(tp,1,REASON_EFFECT) 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)
          e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT)
          Duel.Hint(HINT_CARD,0,id)
          end
          \ No newline at end of file
          script/c100223008.lua deleted 100644 → 0
          View file @ d5209210
          --ライゼオル・プラグイン
          local s,id,o=GetID()
          function s.initial_effect(c)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          end
          function s.spfilter(c,e,tp)
          return c:IsFaceupEx() and (c:IsSetCard(0x2bf) or c:IsType(TYPE_XYZ))
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and s.spfilter(chkc,e,tp) end
          if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
          end
          function s.xyzfilter(c,e,tp)
          return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsRank(4)
          and Duel.IsExistingMatchingCard(s.mtfilter,tp,LOCATION_DECK,0,1,nil,e)
          end
          function s.mtfilter(c,e)
          return c:IsSetCard(0x2bf)
          and c:IsCanOverlay() and not (e and c:IsImmuneToEffect(e))
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToEffect(e) and aux.NecroValleyFilter()(tc) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0
          and Duel.IsExistingMatchingCard(s.xyzfilter,tp,LOCATION_MZONE,0,1,nil,e,tp)
          and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
          Duel.BreakEffect()
          local g=Duel.SelectMatchingCard(tp,s.xyzfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
          local xc=g:GetFirst()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
          local mg=Duel.SelectMatchingCard(tp,s.mtfilter,tp,LOCATION_DECK,0,1,1,nil,e)
          if mg:GetCount()>0 then
          Duel.Overlay(xc,mg)
          end
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
          e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
          e1:SetTargetRange(LOCATION_MZONE,0)
          e1:SetTarget(s.atktg)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.atktg(e,c)
          return not (c:IsType(TYPE_XYZ) and c:IsRank(4))
          end
          \ No newline at end of file
          script/c100223009.lua deleted 100644 → 0
          View file @ d5209210
          --ライゼオル・クロス
          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)
          --summon limit
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetRange(LOCATION_FZONE)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          c:RegisterEffect(e1)
          --todeck and draw
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_FZONE)
          e2:SetCountLimit(1,id)
          e2:SetTarget(s.drtg)
          e2:SetOperation(s.drop)
          c:RegisterEffect(e2)
          --negate
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_DISABLE)
          e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          e3:SetCode(EVENT_CHAIN_SOLVING)
          e3:SetRange(LOCATION_FZONE)
          e3:SetCondition(s.discon)
          e3:SetOperation(s.disop)
          c:RegisterEffect(e3)
          end
          function s.spfilter(c,code)
          return c:IsFaceup() and c:IsCode(code)
          end
          function s.splimit(e,c,sump,sumtype,sumpos,targetp,se)
          return sumtype==SUMMON_TYPE_XYZ and Duel.IsExistingMatchingCard(s.spfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil,c:GetCode())
          end
          function s.tdfilter(c)
          return not c:IsCode(id) and c:IsSetCard(0x2bf) and c:IsAbleToDeck() and c:IsLocation(LOCATION_GRAVE)
          end
          function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.tdfilter(chkc) end
          if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
          and Duel.IsExistingTarget(s.tdfilter,tp,LOCATION_GRAVE,0,2,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectTarget(tp,s.tdfilter,tp,LOCATION_GRAVE,0,2,2,nil)
          Duel.SetOperationInfo(0,CATEGORY_TODECK,g,#g,0,0)
          Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
          end
          function s.drop(e,tp,eg,ep,ev,re,r,rp)
          local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(aux.NecroValleyFilter(Card.IsRelateToEffect),nil,e)
          if #tg>0 then
          local ct=aux.PlaceCardsOnDeckBottom(tp,tg)
          if ct>0 and tg:IsExists(Card.IsLocation,1,nil,LOCATION_DECK+LOCATION_EXTRA) then
          Duel.BreakEffect()
          Duel.Draw(tp,1,REASON_EFFECT)
          end
          end
          end
          function s.disfilter(c)
          return c:IsType(TYPE_XYZ) and c:IsSetCard(0x2bf) and c:IsFaceup() and c:CheckRemoveOverlayCard(c:GetControler(),1,REASON_EFFECT)
          end
          function s.discon(e,tp,eg,ep,ev,re,r,rp)
          return rp==1-tp and Duel.IsChainDisablable(ev) and re:IsActiveType(TYPE_MONSTER)
          and Duel.IsExistingMatchingCard(s.disfilter,tp,LOCATION_MZONE,0,1,nil)
          and e:GetHandler():GetFlagEffect(id)<=0
          end
          function s.disop(e,tp,eg,ep,ev,re,r,rp)
          if Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(id,3)) then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEATTACHFROM)
          local tc=Duel.SelectMatchingCard(tp,s.disfilter,tp,LOCATION_MZONE,0,1,1,nil):GetFirst()
          if tc and tc:RemoveOverlayCard(tp,1,1,REASON_EFFECT) then
          Duel.Hint(HINT_CARD,0,id)
          Duel.NegateEffect(ev)
          e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,4))
          end
          end
          end
          \ No newline at end of file
          script/c100223010.lua deleted 100644 → 0
          View file @ d5209210
          --ライゼオル・ホールスラスター
          local s,id,o=GetID()
          function s.initial_effect(c)
          --destroy
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_DESTROY)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --xyz
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
          e2:SetCountLimit(1,id+o)
          e2:SetCost(aux.bfgcost)
          e2:SetTarget(s.xyztg)
          e2:SetOperation(s.xyzop)
          c:RegisterEffect(e2)
          end
          function s.cfilter(c)
          return c:IsFaceup() and c:IsSetCard(0x2bf) and c:IsType(TYPE_XYZ)
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
          local gc=Duel.GetMatchingGroupCount(s.cfilter,tp,LOCATION_MZONE,0,nil)
          if chk==0 then return gc>0
          and Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local sg=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,gc,nil)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
          end
          function s.xyzfilter(c,e,tp)
          return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsRank(4)
          and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(s.mtfilter),tp,LOCATION_GRAVE,0,1,nil,e)
          end
          function s.mtfilter(c,e)
          return c:IsSetCard(0x2bf)
          and c:IsCanOverlay() and not (e and c:IsImmuneToEffect(e))
          end
          function s.activate(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 and Duel.Destroy(tg,REASON_EFFECT)~=0
          and Duel.IsExistingMatchingCard(s.xyzfilter,tp,LOCATION_MZONE,0,1,nil,e,tp)
          and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.BreakEffect()
          local g=Duel.SelectMatchingCard(tp,s.xyzfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
          local xc=g:GetFirst()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
          local mg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.mtfilter),tp,LOCATION_GRAVE,0,1,1,nil,e)
          if mg:GetCount()>0 then
          Duel.Overlay(xc,mg)
          end
          end
          end
          function s.filter(c)
          return c:IsCanOverlay() and c:IsFaceup()
          end
          function s.fselect(sg,tp)
          local mg=Duel.GetMatchingGroup(s.filter,tp,LOCATION_MZONE,0,nil)
          return mg:CheckSubGroup(s.matfilter,1,#mg,tp,sg)
          end
          function s.matfilter(sg,tp,g)
          if sg:Filter(Card.IsSetCard,nil,0x2bf):GetCount()==0 then return false end
          return Duel.IsExistingMatchingCard(s.xyzfilter1,tp,LOCATION_EXTRA,0,1,nil,sg)
          end
          function s.xyzfilter1(c,mg)
          return c:IsXyzSummonable(mg,#mg,#mg)
          end
          function s.xyztg(e,tp,eg,ep,ev,re,r,rp,chk)
          local mg=Duel.GetMatchingGroup(s.filter,tp,LOCATION_MZONE,0,nil)
          if chk==0 then return mg:CheckSubGroup(s.fselect,1,mg:GetCount(),tp) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          end
          function s.xyzfilter2(c,mg)
          return mg:CheckSubGroup(s.gselect,1,#mg,c)
          end
          function s.gselect(sg,c)
          if sg:Filter(Card.IsSetCard,nil,0x2bf):GetCount()==0 then return false end
          return c:IsXyzSummonable(sg,#sg,#sg)
          end
          function s.xyzop(e,tp,eg,ep,ev,re,r,rp)
          local mg=Duel.GetMatchingGroup(s.filter,tp,LOCATION_MZONE,0,nil)
          local exg=Duel.GetMatchingGroup(s.xyzfilter2,tp,LOCATION_EXTRA,0,nil,mg)
          if exg:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local tg=exg:Select(tp,1,1,nil)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
          local sg=mg:SelectSubGroup(tp,s.gselect,false,1,mg:GetCount(),tg:GetFirst())
          Duel.XyzSummon(tp,tg:GetFirst(),sg,#sg,#sg)
          end
          end
          \ No newline at end of file
          script/c100223015.lua deleted 100644 → 0
          View file @ d5209210
          --M∀LICE＜P＞White Rabiit
          local s,id,o=GetID()
          function s.initial_effect(c)
          --set
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e1:SetProperty(EFFECT_FLAG_DELAY)
          e1:SetCode(EVENT_SUMMON_SUCCESS)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.settg)
          e1:SetOperation(s.setop)
          c:RegisterEffect(e1)
          local e2=e1:Clone()
          e2:SetCode(EVENT_SPSUMMON_SUCCESS)
          c:RegisterEffect(e2)
          --Avoid battle damage
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_FIELD)
          e3:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
          e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
          e3:SetRange(LOCATION_MZONE)
          e3:SetTargetRange(LOCATION_MZONE,0)
          e3:SetTarget(s.damfilter)
          e3:SetValue(1)
          c:RegisterEffect(e3)
          local e4=e3:Clone()
          e4:SetTargetRange(0,LOCATION_MZONE)
          e4:SetCode(EFFECT_NO_BATTLE_DAMAGE)
          c:RegisterEffect(e4)
          --special summon
          local e5=Effect.CreateEffect(c)
          e5:SetDescription(aux.Stringid(id,2))
          e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e5:SetCode(EVENT_REMOVE)
          e5:SetProperty(EFFECT_FLAG_DELAY)
          e5:SetCountLimit(1,id+o)
          e5:SetCost(s.spcost)
          e5:SetTarget(s.sptg)
          e5:SetOperation(s.spop)
          c:RegisterEffect(e5)
          end
          function s.setfilter(c,tp)
          return c:IsSetCard(0x2c2) and c:IsType(TYPE_TRAP) and c:IsSSetable()
          and not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,c:GetCode())
          end
          function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil,tp) end
          end
          function s.setop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
          local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil,tp)
          if #g>0 then
          Duel.SSet(tp,g)
          end
          end
          function s.damfilter(e,c)
          local lg=c:GetLinkedGroup()
          return c:IsFaceup() and c:IsType(TYPE_LINK) and c:IsSetCard(0x2c2)
          and lg and lg:IsContains(e:GetHandler()) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
          end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.CheckLPCost(tp,300) end
          Duel.PayLPCost(tp,300)
          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) then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return not c:IsType(TYPE_LINK) and c:IsLocation(LOCATION_EXTRA)
          end
          \ No newline at end of file
          script/c100223016.lua deleted 100644 → 0
          View file @ d5209210
          --M∀LICE＜P＞Cheshire Cat
          local s,id,o=GetID()
          function s.initial_effect(c)
          --remove and draw
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_REMOVE+CATEGORY_DRAW)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.drtg)
          e1:SetOperation(s.drop)
          c:RegisterEffect(e1)
          --bp remove
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetCode(EFFECT_BATTLE_DESTROY_REDIRECT)
          e2:SetValue(LOCATION_REMOVED)
          e2:SetRange(LOCATION_MZONE)
          e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
          e2:SetCondition(s.immcon)
          e2:SetTarget(s.immtg)
          c:RegisterEffect(e2)
          --special summon
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e3:SetCode(EVENT_REMOVE)
          e3:SetProperty(EFFECT_FLAG_DELAY)
          e3:SetCountLimit(1,id+o)
          e3:SetCost(s.spcost)
          e3:SetTarget(s.sptg)
          e3:SetOperation(s.spop)
          c:RegisterEffect(e3)
          end
          function s.rmfilter(c)
          return c:IsSetCard(0x2c2) and c:IsAbleToRemove()
          end
          function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.rmfilter,tp,LOCATION_HAND,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_HAND)
          end
          function s.drop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,s.rmfilter,tp,LOCATION_HAND,0,1,1,nil)
          local rc=g:GetFirst()
          if rc and Duel.Remove(rc,POS_FACEUP,REASON_EFFECT)~=0 and rc:IsLocation(LOCATION_REMOVED)
          and Duel.IsPlayerCanDraw(tp,2)
          and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
          Duel.BreakEffect()
          Duel.Draw(tp,2,REASON_EFFECT)
          end
          end
          function s.immcon(e)
          return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
          end
          function s.immtg(e,c)
          local lg=c:GetLinkedGroup()
          return c:IsFaceup() and c:IsType(TYPE_LINK) and c:IsSetCard(0x2c2)
          and lg and lg:IsContains(e:GetHandler())
          end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.CheckLPCost(tp,300) end
          Duel.PayLPCost(tp,300)
          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) then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return not c:IsType(TYPE_LINK) and c:IsLocation(LOCATION_EXTRA)
          end
          \ No newline at end of file
          script/c100223017.lua deleted 100644 → 0
          View file @ d5209210
          --M∀LICE＜P＞Dormouse
          local s,id,o=GetID()
          function s.initial_effect(c)
          --remove
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_REMOVE)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.rmtg)
          e1:SetOperation(s.rmop)
          c:RegisterEffect(e1)
          --indestructable
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
          e2:SetValue(1)
          e2:SetRange(LOCATION_MZONE)
          e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
          e2:SetTarget(s.immtg)
          c:RegisterEffect(e2)
          --special summon
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e3:SetCode(EVENT_REMOVE)
          e3:SetProperty(EFFECT_FLAG_DELAY)
          e3:SetCountLimit(1,id+o)
          e3:SetCost(s.spcost)
          e3:SetTarget(s.sptg)
          e3:SetOperation(s.spop)
          c:RegisterEffect(e3)
          end
          function s.rmfilter(c)
          return c:IsSetCard(0x2c2) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
          end
          function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.rmfilter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK)
          end
          function s.rmop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,s.rmfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_UPDATE_ATTACK)
          e1:SetTargetRange(LOCATION_MZONE,0)
          e1:SetTarget(s.atktg)
          e1:SetValue(600)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.atktg(e,c)
          return c:IsSetCard(0x2c2)
          end
          function s.immtg(e,c)
          local lg=c:GetLinkedGroup()
          return c:IsFaceup() and c:IsType(TYPE_LINK) and c:IsSetCard(0x2c2)
          and lg and lg:IsContains(e:GetHandler()) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
          end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.CheckLPCost(tp,300) end
          Duel.PayLPCost(tp,300)
          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) then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return not c:IsType(TYPE_LINK) and c:IsLocation(LOCATION_EXTRA)
          end
          \ No newline at end of file
          script/c100223018.lua deleted 100644 → 0
          View file @ d5209210
          --M∀LICE＜Q＞RED RANSOM
          local s,id,o=GetID()
          function s.initial_effect(c)
          --link summon
          aux.AddLinkProcedure(c,nil,2,99,s.lcheck)
          c:EnableReviveLimit()
          --to hand
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
          e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetProperty(EFFECT_FLAG_DELAY)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          --swap ad
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetRange(LOCATION_MZONE)
          e2:SetTargetRange(0,LOCATION_MZONE)
          e2:SetTarget(s.atfilter)
          e2:SetCondition(s.atcon)
          e2:SetCode(EFFECT_SWAP_BASE_AD)
          c:RegisterEffect(e2)
          --special summon
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
          e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e3:SetCode(EVENT_REMOVE)
          e3:SetProperty(EFFECT_FLAG_DELAY)
          e3:SetCountLimit(1,id+o)
          e3:SetCost(s.spcost)
          e3:SetTarget(s.sptg)
          e3:SetOperation(s.spop)
          c:RegisterEffect(e3)
          end
          function s.lcheck(g)
          return g:IsExists(Card.IsLinkSetCard,1,nil,0x2c2)
          end
          function s.thfilter(c)
          return c:IsSetCard(0x2c2) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.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.atcon(e)
          local lg=e:GetHandler():GetLinkedGroup()
          return lg and lg:FilterCount(Card.IsType,nil,TYPE_MONSTER)>0
          end
          function s.atfilter(e,c)
          return c:IsType(TYPE_EFFECT)
          end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.CheckLPCost(tp,900) end
          Duel.PayLPCost(tp,900)
          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.rmfilter(c)
          return c:IsRace(RACE_CYBERSE) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
          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
          and Duel.IsExistingMatchingCard(s.rmfilter,tp,LOCATION_DECK,0,1,nil)
          and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
          Duel.BreakEffect()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,s.rmfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
          end
          end
          end
          \ No newline at end of file
          script/c100223019.lua deleted 100644 → 0
          View file @ d5209210
          --M∀LICE＜Q＞WHITE BINDER
          local s,id,o=GetID()
          function s.initial_effect(c)
          --link summon
          aux.AddLinkProcedure(c,nil,2,99,s.lcheck)
          c:EnableReviveLimit()
          --remove
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_REMOVE)
          e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.rmtg)
          e1:SetOperation(s.rmop)
          c:RegisterEffect(e1)
          --set
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCountLimit(1,id+o)
          e2:SetTarget(s.settg)
          e2:SetOperation(s.setop)
          c:RegisterEffect(e2)
          --special summon
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW)
          e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e3:SetCode(EVENT_REMOVE)
          e3:SetProperty(EFFECT_FLAG_DELAY)
          e3:SetCountLimit(1,id+o*2)
          e3:SetCost(s.spcost)
          e3:SetTarget(s.sptg)
          e3:SetOperation(s.spop)
          c:RegisterEffect(e3)
          end
          function s.lcheck(g)
          return g:IsExists(Card.IsLinkSetCard,1,nil,0x2c2)
          end
          function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsAbleToRemove() end
          if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,3,nil)
          Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
          end
          function s.rmop(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
          local tg=g:Filter(aux.NecroValleyFilter(Card.IsRelateToEffect),nil,e)
          if tg:GetCount()>0 then
          Duel.Remove(tg,POS_FACEUP,REASON_EFFECT)
          end
          end
          function s.setfilter(c)
          return c:IsSetCard(0x2c2) and c:IsType(TYPE_TRAP) and c:IsSSetable()
          end
          function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
          end
          function s.setop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
          local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.setfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
          if #g>0 then
          Duel.SSet(tp,g)
          end
          end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.CheckLPCost(tp,900) end
          Duel.PayLPCost(tp,900)
          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
          and Duel.IsPlayerCanDraw(tp,1)
          and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
          Duel.BreakEffect()
          Duel.Draw(tp,1,REASON_EFFECT)
          end
          end
          \ No newline at end of file
          script/c100223020.lua deleted 100644 → 0
          View file @ d5209210
          --M∀LICE＜Q＞HEARTS OF CRYPTER
          local s,id,o=GetID()
          function s.initial_effect(c)
          --link summon
          aux.AddLinkProcedure(c,nil,3,3,s.lcheck)
          c:EnableReviveLimit()
          --to deck
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TODECK+CATEGORY_REMOVE)
          e1:SetType(EFFECT_TYPE_QUICK_O)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCountLimit(1,id)
          e1:SetProperty(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_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_REMOVE)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetCountLimit(1,id+o)
          e2:SetCost(s.spcost)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          end
          function s.lcheck(g)
          return g:IsExists(Card.IsLinkSetCard,1,nil,0x2c2)
          end
          function s.filter(c)
          return c:IsFaceup() and c:IsSetCard(0x2c2) and c:IsAbleToDeck()
          end
          function s.tdtg(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) end
          if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
          and Duel.IsExistingTarget(s.filter,tp,LOCATION_REMOVED,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_REMOVED,0,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
          local dg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
          Duel.SetOperationInfo(0,CATEGORY_REMOVE,dg,1,0,0)
          local lg=e:GetHandler():GetLinkedGroup()
          if lg and lg:FilterCount(Card.IsType,nil,TYPE_MONSTER)>0 then
          e:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CAN_FORBIDDEN)
          else
          e:SetProperty(EFFECT_FLAG_CARD_TARGET)
          end
          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_DECKSHUFFLE,REASON_EFFECT)>0
          and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil):Select(tp,1,1,nil)
          if #g>0 then
          Duel.HintSelection(g)
          Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
          end
          end
          end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.CheckLPCost(tp,900) end
          Duel.PayLPCost(tp,900)
          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.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_SET_ATTACK)
          e1:SetValue(c:GetAttack()*2)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
          c:RegisterEffect(e1)
          end
          Duel.SpecialSummonComplete()
          end
          \ No newline at end of file
          script/c100223021.lua deleted 100644 → 0
          View file @ d5209210
          --M∀LICE IN UNDERGROUND
          local s,id,o=GetID()
          function s.initial_effect(c)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetCategory(CATEGORY_REMOVE+CATEGORY_GRAVE_ACTION)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --atk up
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetCode(EFFECT_UPDATE_ATTACK)
          e2:SetRange(LOCATION_FZONE)
          e2:SetCondition(s.atkcon)
          e2:SetTargetRange(LOCATION_MZONE,0)
          e2:SetTarget(s.atktg)
          e2:SetValue(3000)
          c:RegisterEffect(e2)
          --limit attack
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_FIELD)
          e3:SetCode(EFFECT_CANNOT_DIRECT_ATTACK)
          e3:SetRange(LOCATION_FZONE)
          e3:SetTargetRange(0,LOCATION_MZONE)
          e3:SetCondition(s.condition)
          c:RegisterEffect(e3)
          local e4=e3:Clone()
          e4:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
          e4:SetValue(s.alimit)
          c:RegisterEffect(e4)
          end
          function s.filter(c)
          return c:IsSetCard(0x2c2) and c:IsAbleToRemove()
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.filter),tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,nil)
          if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local sg=g:Select(tp,1,1,nil)
          Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
          end
          end
          function s.cfilter(c)
          return c:IsSetCard(0x2c2) and c:IsType(TYPE_TRAP) and c:IsFaceup()
          end
          function s.atkcon(e)
          local g=Duel.GetMatchingGroup(s.cfilter,e:GetHandlerPlayer(),LOCATION_REMOVED,0,nil)
          return g:GetClassCount(Card.GetCode)>=3
          end
          function s.atktg(e,c)
          return c:IsSetCard(0x2c2) and c:IsType(TYPE_LINK)
          end
          function s.cfilter1(c)
          return c:IsFaceup() and c:IsType(TYPE_LINK) and c:IsSetCard(0x2c2)
          end
          function s.condition(e)
          local tp=e:GetHandlerPlayer()
          return Duel.IsExistingMatchingCard(s.cfilter1,tp,LOCATION_ONFIELD,0,1,nil)
          end
          function s.alimit(e,c)
          return c:IsFacedown() or not (c:IsType(TYPE_LINK) and c:IsSetCard(0x2c2))
          end
          \ No newline at end of file
          script/c100223022.lua deleted 100644 → 0
          View file @ d5209210
          --M∀LICE＜C＞MTP－07
          local s,id,o=GetID()
          function s.initial_effect(c)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_REMOVE)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --act in set turn
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,2))
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
          e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
          e2:SetCost(s.cost)
          c:RegisterEffect(e2)
          end
          function s.thfilter(c)
          return c:IsSetCard(0x2c2) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.filter(c)
          return c:IsSetCard(0x2c2) and c:IsType(TYPE_LINK) and c:IsFaceup()
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          if Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_MZONE,0,1,nil)
          and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,aux.ExceptThisCard(e))
          and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
          Duel.BreakEffect()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local rg=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,aux.ExceptThisCard(e))
          Duel.HintSelection(rg)
          Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)
          end
          end
          end
          function s.cfilter(c)
          return c:IsSetCard(0x2c2) and c:IsFaceup() and c:IsAbleToRemoveAsCost()
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_MZONE,0,1,1,nil)
          Duel.Remove(g,POS_FACEUP,REASON_COST)
          end
          \ No newline at end of file
          script/c100223023.lua deleted 100644 → 0
          View file @ d5209210
          --M∀LICE＜C＞GWC－06
          local s,id,o=GetID()
          function s.initial_effect(c)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_RECOVER)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --act in set turn
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,2))
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetValue(id)
          e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
          e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
          e2:SetCondition(s.condition)
          e2:SetCost(s.cost)
          c:RegisterEffect(e2)
          end
          function s.spfilter(c,e,tp,res)
          return c:IsFaceupEx() and c:IsSetCard(0x2c2)
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          and (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 or res and Duel.GetMZoneCount(tp,res)>0)
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          local res=e:GetHandler():IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)
          if chk==0 then return res and res:GetOwner()==c and res:GetValue()==id
          or Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp,nil) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
          end
          function s.lpfilter(c)
          return c:IsSetCard(0x2c2) and c:IsType(TYPE_LINK) and c:IsFaceup()
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp,nil)
          local tc=g:GetFirst()
          if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0
          and Duel.IsExistingMatchingCard(s.lpfilter,tp,LOCATION_MZONE,0,1,nil)
          and tc:GetBaseAttack()~=0
          and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
          Duel.BreakEffect()
          Duel.Recover(tp,tc:GetBaseAttack(),REASON_EFFECT)
          end
          end
          function s.cfilter(c,e,tp)
          return c:IsSetCard(0x2c2) and c:IsFaceup() and c:IsAbleToRemoveAsCost()
          and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp,c)
          end
          function s.condition(e)
          return e:GetHandler():IsStatus(STATUS_SET_TURN) and e:GetHandler():IsLocation(LOCATION_ONFIELD)
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
          Duel.Remove(g,POS_FACEUP,REASON_COST)
          end
          \ No newline at end of file
          script/c100223024.lua deleted 100644 → 0
          View file @ d5209210
          --M∀LICE＜C＞TB－11
          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:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --act in set turn
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,2))
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetValue(id)
          e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
          e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
          e2:SetCondition(s.condition)
          e2:SetCost(s.cost)
          c:RegisterEffect(e2)
          end
          function s.spfilter(c,e,tp,co,res)
          return c:IsSetCard(0x2c2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          and ((c:IsLocation(LOCATION_DECK) and (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 or res and Duel.GetMZoneCount(tp,res)>0))
          or (c:IsLocation(LOCATION_EXTRA) and c:IsType(TYPE_LINK) and Duel.GetLocationCountFromEx(tp,tp,res,c)>0 and co>2))
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          local co=Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
          local res=e:GetHandler():IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)
          if chk==0 then return res and res:GetOwner()==c and res:GetValue()==id
          or Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil,e,tp,co,nil) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end
          local co=Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil,e,tp,co,nil)
          local tc=g:GetFirst()
          if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_CANNOT_ATTACK)
          e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          tc:RegisterEffect(e1,true)
          local e2=Effect.CreateEffect(e:GetHandler())
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_CANNOT_TRIGGER)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          tc:RegisterEffect(e2,true)
          end
          Duel.SpecialSummonComplete()
          end
          function s.cfilter(c,e,tp,co)
          return c:IsSetCard(0x2c2) and c:IsFaceup() and c:IsAbleToRemoveAsCost()
          and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil,e,tp,co,c)
          end
          function s.condition(e)
          return e:GetHandler():IsStatus(STATUS_SET_TURN) and e:GetHandler():IsLocation(LOCATION_ONFIELD)
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          local co=Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
          if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp,co) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp,co)
          Duel.Remove(g,POS_FACEUP,REASON_COST)
          end
          \ No newline at end of file
          script/c100223031.lua deleted 100644 → 0
          View file @ d5209210
          --恐巄竜華－㟴巴
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,100223037)
          --search
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_HAND)
          e1:SetCountLimit(1,id)
          e1:SetCost(s.thcost)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          --spsummon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_HAND)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.spcon)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          --destroy
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_DESTROY)
          e3:SetType(EFFECT_TYPE_IGNITION)
          e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1,id+o*2)
          e3:SetCost(s.descost)
          e3:SetTarget(s.destg)
          e3:SetOperation(s.desop)
          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_DESTROY)
          ge1:SetOperation(s.checkop)
          Duel.RegisterEffect(ge1,0)
          end
          end
          function s.checkop(e,tp,eg,ep,ev,re,r,rp)
          for tc in aux.Next(eg) do
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
          Duel.RegisterFlagEffect(1-tp,id,RESET_PHASE+PHASE_END,0,1)
          end
          end
          function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return c:IsAbleToDeckAsCost() end
          Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_COST)
          end
          function s.thfilter(c)
          return c:IsCode(100223037) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          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 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetFlagEffect(tp,id)>=2 and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2)
          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) then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          function s.costfilter(c,tp,ec)
          return c:IsFaceup() and c:IsCode(100223037) and c:IsAbleToDeckAsCost()
          and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,Group.FromCards(c,ec))
          end
          function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_ONFIELD,0,1,nil,tp,c) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp,c)
          Duel.HintSelection(g)
          Duel.SendtoDeck(g,nil,SEQ_DECKBOTTOM,REASON_COST)
          end
          function s.cfilter(c)
          return c:IsFaceup()
          end
          function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          local c=e:GetHandler()
          local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
          local gc=g:GetClassCount(Card.GetRace)
          if chkc then return chkc:IsOnField() and chkc~=c end
          if chk==0 then return gc>0 and Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local sg=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,gc,c)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),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
          \ No newline at end of file
          script/c100223032.lua deleted 100644 → 0
          View file @ d5209210
          --海瀧竜華－淵巴
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,100223038)
          --search
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_HAND)
          e1:SetCountLimit(1,id)
          e1:SetCost(s.thcost)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          --spsummon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.spcon)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          --remove and draw
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_REMOVE+CATEGORY_DRAW)
          e3:SetType(EFFECT_TYPE_IGNITION)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1,id+o*2)
          e3:SetCost(s.drcost)
          e3:SetTarget(s.drtg)
          e3:SetOperation(s.drop)
          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.checkop(e,tp,eg,ep,ev,re,r,rp)
          for tc in aux.Next(eg) do
          if tc:IsPreviousLocation(LOCATION_DECK+LOCATION_HAND) and not tc:IsCode(id)
          and tc:IsType(TYPE_MONSTER) then
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
          Duel.RegisterFlagEffect(1-tp,id,RESET_PHASE+PHASE_END,0,1)
          end
          end
          end
          function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return c:IsDiscardable() end
          Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
          end
          function s.thfilter(c)
          return c:IsCode(100223038) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          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 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetFlagEffect(tp,id)>=2
          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 aux.NecroValleyFilter()(c) then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          function s.costfilter(c)
          return c:IsFaceup() and c:IsCode(100223038) and c:IsAbleToDeckAsCost()
          end
          function s.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_ONFIELD,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
          Duel.HintSelection(g)
          Duel.SendtoDeck(g,nil,SEQ_DECKBOTTOM,REASON_COST)
          end
          function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
          local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
          local gc=g:GetCount()
          if chk==0 then return gc>0 and g:FilterCount(Card.IsAbleToRemove,nil)==gc and Duel.IsPlayerCanDraw(1-tp,gc) end
          Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,gc,0,0)
          Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,gc)
          end
          function s.drop(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
          local gc=g:GetCount()
          if gc>0 and g:FilterCount(Card.IsAbleToRemove,nil)==gc then
          local oc=Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
          if oc>0 then
          Duel.Draw(1-tp,oc,REASON_EFFECT)
          end
          end
          end
          \ No newline at end of file
          script/c100223033.lua deleted 100644 → 0
          View file @ d5209210
          --幻朧竜華－覇巴
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,100223039)
          --search
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_HAND)
          e1:SetCountLimit(1,id)
          e1:SetCost(s.thcost)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          --spsummon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_REMOVE)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetRange(LOCATION_REMOVED)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.spcon)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          --search
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,2))
          e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
          e3:SetType(EFFECT_TYPE_IGNITION)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1,id+o*2)
          e3:SetCost(s.thcost2)
          e3:SetTarget(s.thtg2)
          e3:SetOperation(s.thop2)
          c:RegisterEffect(e3)
          end
          function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return c:IsAbleToRemoveAsCost() end
          Duel.Remove(c,POS_FACEUP,REASON_COST)
          end
          function s.thfilter(c)
          return c:IsCode(100223039) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          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 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          end
          end
          function s.cfilter1(c)
          return c:IsFaceup() and c:IsType(TYPE_MONSTER)
          end
          function s.cfilter2(c)
          return c:IsFaceup() and c:IsType(TYPE_MONSTER) and not c:IsCode(id)
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return eg:IsExists(s.cfilter1,1,e:GetHandler())
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter2,tp,LOCATION_REMOVED,LOCATION_REMOVED,2,nil)
          and 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) then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          function s.costfilter(c)
          return c:IsFaceup() and c:IsCode(100223039) and c:IsAbleToDeckAsCost()
          end
          function s.thcost2(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_ONFIELD,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
          Duel.HintSelection(g)
          Duel.SendtoDeck(g,nil,SEQ_DECKBOTTOM,REASON_COST)
          end
          function s.thfilter2(c)
          return c:IsFaceupEx() and c:IsSetCard(0x2c1) and c:IsAbleToHand()
          and not c:IsCode(id)
          end
          function s.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter2,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED)
          end
          function s.thop2(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter2),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,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/c100223034.lua deleted 100644 → 0
          View file @ d5209210
          --創星竜華－光巴
          local s,id,o=GetID()
          function s.initial_effect(c)
          c:SetSPSummonOnce(id)
          c:EnableReviveLimit()
          aux.EnablePendulumAttribute(c)
          --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)
          --to hand
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DESTROY)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_PZONE)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          --spsummon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY+CATEGORY_RELEASE)
          e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_DESTROYED)
          e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
          e2:SetRange(LOCATION_EXTRA)
          e2:SetCondition(s.spcon)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          end
          function s.thfilter(c)
          return c:IsSetCard(0x2c1) and c:IsAbleToHand()
          and not c:IsType(TYPE_PENDULUM)
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          if c:IsRelateToEffect(e) then
          Duel.BreakEffect()
          Duel.Destroy(c,REASON_EFFECT)
          end
          end
          end
          function s.spcfilter(c)
          return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE)
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return eg:IsExists(s.spcfilter,1,e:GetHandler())
          end
          function s.rfilter(c,tp,ec)
          return c:IsSetCard(0x2c1) and c:IsReleasableByEffect()
          and c:IsLevel(10) and c:IsType(TYPE_MONSTER)
          and Duel.GetLocationCountFromEx(tp,tp,c,ec)>0
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          local g=Duel.GetMatchingGroup(s.rfilter,tp,LOCATION_MZONE,0,c,tp,c)
          if chk==0 then return #g>0 and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,true) end
          Duel.SetOperationInfo(0,CATEGORY_RELEASE,g,1,0,0)
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
          end
          function s.desfilter(c,tp)
          return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 or c:IsLocation(LOCATION_SZONE) and not c:IsLocation(LOCATION_FZONE)
          end
          function s.gcheck1(g,tp)
          return g:IsExists(s.desfilter,1,nil,tp)
          end
          function s.pfilter(c,tp)
          return bit.band(c:GetType(),TYPE_SPELL+TYPE_CONTINUOUS)==TYPE_SPELL+TYPE_CONTINUOUS
          and c:IsSetCard(0x2c1)
          and not c:IsForbidden() and c:CheckUniqueOnField(tp)
          end
          function s.gcheck2(g,tp)
          return g:GetCount()<=Duel.GetLocationCount(tp,LOCATION_SZONE)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
          local g=Duel.SelectMatchingCard(tp,s.rfilter,tp,LOCATION_MZONE,0,1,1,aux.ExceptThisCard(e),tp,c)
          if Duel.Release(g,REASON_EFFECT) and c:IsRelateToEffect(e) and Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,true,true,POS_FACEUP)~=0 then
          c:CompleteProcedure()
          if Duel.IsExistingMatchingCard(s.desfilter,tp,LOCATION_ONFIELD,0,1,nil,tp)
          and Duel.IsExistingMatchingCard(s.pfilter,tp,LOCATION_DECK,0,1,nil,tp)
          and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.BreakEffect()
          local rg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,0,nil)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local sg=rg:SelectSubGroup(tp,s.gcheck1,false,1,2,tp)
          local ct=Duel.Destroy(sg,REASON_EFFECT)
          if ct>0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then
          if ct>2 then ct=2 end
          local dg=Duel.GetMatchingGroup(s.pfilter,tp,LOCATION_DECK,0,nil,tp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
          local pg=dg:SelectSubGroup(tp,s.gcheck2,false,1,ct,tp)
          for tc in aux.Next(pg) do
          Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
          end
          end
          end
          end
          end
          \ No newline at end of file
          script/c100223035.lua deleted 100644 → 0
          View file @ d5209210
          --竜華界闢
          local s,id,o=GetID()
          function s.initial_effect(c)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TOEXTRA)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --Special Summon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetCountLimit(1,id)
          e2:SetCondition(s.spcon)
          e2:SetCost(s.spcost)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          end
          function s.thfilter(c)
          return c:IsSetCard(0x2c1) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.exfilter(c)
          return c:IsSetCard(0x2c1) and c:IsType(TYPE_PENDULUM) and c:IsAbleToExtra()
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          if Duel.IsExistingMatchingCard(s.exfilter,tp,LOCATION_HAND,0,1,nil)
          and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(id,3))
          local teg=Duel.SelectMatchingCard(tp,s.exfilter,tp,LOCATION_HAND,0,1,1,nil)
          if teg:GetCount()>0 then
          Duel.ShuffleHand(tp)
          Duel.BreakEffect()
          Duel.SendtoExtraP(teg,nil,REASON_EFFECT)
          end
          end
          end
          end
          function s.cofilter(c)
          return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsSetCard(0x2c1)
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp,chk)
          return Duel.IsExistingMatchingCard(s.cofilter,tp,LOCATION_ONFIELD,0,1,nil)
          end
          function s.cfilter(c,e,tp)
          return c:IsSetCard(0x2c1) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
          and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetOriginalRace())
          end
          function s.spfilter(c,e,tp,race)
          return c:IsSetCard(0x2c1) and c:GetOriginalRace()==race
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          e:SetLabel(100)
          if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost()
          and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
          local race=g:GetFirst():GetOriginalRace()
          g:AddCard(e:GetHandler())
          Duel.Remove(g,POS_FACEUP,REASON_COST)
          e:SetLabel(100,race)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return e:GetLabel()==100 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local lab,race=e:GetLabel()
          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,race)
          if #g>0 then
          Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          \ No newline at end of file
          script/c100223036.lua deleted 100644 → 0
          View file @ d5209210
          --登竜華転生紋
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,100223034)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_REMOVE+CATEGORY_TOGRAVE)
          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)
          --spsummon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_FZONE)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.spcon)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          end
          function s.hgrfilter(c)
          return c:IsRace(RACE_DINOSAUR+RACE_SEASERPENT+RACE_WYRM)
          and (c:IsAbleToHand() or c:IsAbleToGrave() or c:IsAbleToRemove())
          end
          function s.gcheck(g,tp)
          return g:FilterCount(Card.IsRace,nil,RACE_DINOSAUR)==1
          and g:FilterCount(Card.IsRace,nil,RACE_SEASERPENT)==1
          and g:FilterCount(Card.IsRace,nil,RACE_WYRM)==1
          and g:IsExists(s.thfiter,1,nil,g)
          end
          function s.thfiter(c,g)
          return c:IsAbleToHand() and g:IsExists(s.rmfiter,1,c,g,c)
          end
          function s.rmfiter(c,g,tc)
          return c:IsAbleToRemove() and g:IsExists(s.tgfiter,1,Group.FromCards(c,tc))
          end
          function s.tgfiter(c)
          return c:IsAbleToGrave()
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          local g=Duel.GetMatchingGroup(s.hgrfilter,tp,LOCATION_DECK,0,nil)
          if chk==0 then return g:CheckSubGroup(s.gcheck,3,3,tp) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
          Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK)
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetMatchingGroup(s.hgrfilter,tp,LOCATION_DECK,0,nil)
          Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(id,2))
          local sg=g:SelectSubGroup(tp,s.gcheck,false,3,3,tp)
          if sg:GetCount()>2 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g1=sg:FilterSelect(tp,s.thfiter,1,1,nil,sg)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g2=sg:FilterSelect(tp,s.rmfiter,1,1,g1,sg,g1:GetFirst())
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g3=sg:FilterSelect(tp,s.tgfiter,1,1,g1+g2)
          Duel.SendtoHand(g1,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g1)
          Duel.Remove(g2,POS_FACEUP,REASON_EFFECT)
          Duel.SendtoGrave(g3,REASON_EFFECT)
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c,sump,sumtype,sumpos,targetp,se)
          return not c:IsRace(RACE_DRAGON+RACE_DINOSAUR+RACE_SEASERPENT+RACE_WYRM)
          end
          function s.cfilter(c,e,tp)
          return c:IsCode(100223034) and c:IsFaceup()
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_EXTRA,0,1,nil)
          end
          function s.spfilter(c,e,tp)
          return c:IsSetCard(0x2c1) and c:IsFaceupEx()
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.spgcheck(g,tp)
          return g:FilterCount(Card.IsLocation,nil,LOCATION_DECK)==1
          and g:FilterCount(Card.IsLocation,nil,LOCATION_GRAVE)==1
          and g:FilterCount(Card.IsLocation,nil,LOCATION_REMOVED)==1
          and g:GetClassCount(Card.GetRace)==#g
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          local g=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e,tp)
          if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
          and Duel.GetLocationCount(tp,LOCATION_MZONE)>2
          and g:CheckSubGroup(s.spgcheck,3,3,tp) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          if Duel.GetLocationCount(tp,LOCATION_MZONE)<=2 or Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
          local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.spfilter),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e,tp)
          if g:CheckSubGroup(s.spgcheck,3,3,tp) then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local sg=g:SelectSubGroup(tp,s.spgcheck,false,3,3,tp)
          if sg:GetCount()>2 then
          Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          end
          \ No newline at end of file
          script/c100223037.lua deleted 100644 → 0
          View file @ d5209210
          --登竜華恐巄門
          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)
          c:RegisterEffect(e1)
          --atkup
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetRange(LOCATION_SZONE)
          e2:SetTargetRange(LOCATION_MZONE,0)
          e2:SetCode(EFFECT_UPDATE_ATTACK)
          e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x2c1))
          e2:SetValue(300)
          c:RegisterEffect(e2)
          --negate
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,1))
          e3:SetCategory(CATEGORY_NEGATE)
          e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
          e3:SetType(EFFECT_TYPE_QUICK_O)
          e3:SetCode(EVENT_CHAINING)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1)
          e3:SetCondition(s.negcon)
          e3:SetCost(s.negcost)
          e3:SetTarget(s.negtg)
          e3:SetOperation(s.negop)
          local e4=Effect.CreateEffect(c)
          e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
          e4:SetRange(LOCATION_SZONE)
          e4:SetTargetRange(LOCATION_MZONE,0)
          e4:SetTarget(s.eftg)
          e4:SetLabelObject(e3)
          c:RegisterEffect(e4)
          --change type
          local e5=Effect.CreateEffect(c)
          e5:SetType(EFFECT_TYPE_FIELD)
          e5:SetCode(EFFECT_ADD_TYPE)
          e5:SetRange(LOCATION_SZONE)
          e5:SetTargetRange(LOCATION_MZONE,0)
          e5:SetTarget(s.eftg)
          e5:SetValue(TYPE_EFFECT)
          c:RegisterEffect(e5)
          local e6=e5:Clone()
          e6:SetCode(EFFECT_REMOVE_TYPE)
          e6:SetValue(TYPE_NORMAL)
          c:RegisterEffect(e6)
          end
          function s.negcon(e,tp,eg,ep,ev,re,r,rp)
          local loc,atk=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION,CHAININFO_TRIGGERING_ATTACK)
          return re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
          and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
          and (LOCATION_ONFIELD)&loc~=0
          and e:GetHandler():GetAttack()>atk
          end
          function s.costfilter(c)
          return c:IsFaceup() and c:IsSetCard(0x2c1) and c:IsAbleToDeckAsCost()
          and bit.band(c:GetType(),TYPE_SPELL+TYPE_CONTINUOUS)==TYPE_SPELL+TYPE_CONTINUOUS
          end
          function s.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_ONFIELD,0,1,nil) end
          Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
          Duel.HintSelection(g)
          Duel.SendtoDeck(g,nil,SEQ_DECKBOTTOM,REASON_COST)
          end
          function s.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
          end
          function s.negop(e,tp,eg,ep,ev,re,r,rp)
          Duel.NegateActivation(ev)
          end
          function s.eftg(e,c)
          return c:IsLevelAbove(10) and c:GetOriginalRace()==RACE_DINOSAUR
          or c:IsSetCard(0x2c1) and c:IsType(TYPE_PENDULUM)
          end
          \ No newline at end of file
          script/c100223038.lua deleted 100644 → 0
          View file @ d5209210
          --登竜華海瀧門
          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)
          c:RegisterEffect(e1)
          --indes
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
          e2:SetRange(LOCATION_SZONE)
          e2:SetTargetRange(LOCATION_MZONE,0)
          e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x2c1))
          e2:SetValue(1)
          c:RegisterEffect(e2)
          --to hand
          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:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1)
          e3:SetCondition(s.thcon)
          e3:SetCost(s.thcost)
          e3:SetTarget(s.thtg)
          e3:SetOperation(s.thop)
          local e4=Effect.CreateEffect(c)
          e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
          e4:SetRange(LOCATION_SZONE)
          e4:SetTargetRange(LOCATION_MZONE,0)
          e4:SetTarget(s.eftg)
          e4:SetLabelObject(e3)
          c:RegisterEffect(e4)
          --change type
          local e5=Effect.CreateEffect(c)
          e5:SetType(EFFECT_TYPE_FIELD)
          e5:SetCode(EFFECT_ADD_TYPE)
          e5:SetRange(LOCATION_SZONE)
          e5:SetTargetRange(LOCATION_MZONE,0)
          e5:SetTarget(s.eftg)
          e5:SetValue(TYPE_EFFECT)
          c:RegisterEffect(e5)
          local e6=e5:Clone()
          e6:SetCode(EFFECT_REMOVE_TYPE)
          e6:SetValue(TYPE_NORMAL)
          c:RegisterEffect(e6)
          end
          function s.thcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetTurnPlayer()==1-tp
          end
          function s.costfilter(c,tp)
          return c:IsFaceup() and c:IsSetCard(0x2c1) and c:IsAbleToDeckAsCost()
          and bit.band(c:GetType(),TYPE_SPELL+TYPE_CONTINUOUS)==TYPE_SPELL+TYPE_CONTINUOUS
          and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c)
          end
          function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_ONFIELD,0,1,nil,tp) end
          Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
          Duel.HintSelection(g)
          Duel.SendtoDeck(g,nil,SEQ_DECKBOTTOM,REASON_COST)
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsOnField() and chkc:IsAbleToHand() end
          if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
          local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToEffect(e) then
          Duel.SendtoHand(tc,nil,REASON_EFFECT)
          end
          end
          function s.eftg(e,c)
          return c:IsLevelAbove(10) and c:GetOriginalRace()==RACE_SEASERPENT
          or c:IsSetCard(0x2c1) and c:IsType(TYPE_PENDULUM)
          end
          \ No newline at end of file
          script/c100223039.lua deleted 100644 → 0
          View file @ d5209210
          --登竜華幻朧門
          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)
          c:RegisterEffect(e1)
          --remove
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
          e2:SetCode(EFFECT_TO_GRAVE_REDIRECT)
          e2:SetRange(LOCATION_SZONE)
          e2:SetCondition(s.rmcon)
          e2:SetTarget(s.rmtarget)
          e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
          e2:SetValue(LOCATION_REMOVED)
          c:RegisterEffect(e2)
          --atk zero
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,1))
          e3:SetCategory(CATEGORY_ATKCHANGE)
          e3:SetType(EFFECT_TYPE_QUICK_O)
          e3:SetCode(EVENT_FREE_CHAIN)
          e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1)
          e3:SetCondition(s.atkcon)
          e3:SetCost(s.atkcost)
          e3:SetTarget(s.atktg)
          e3:SetOperation(s.atkop)
          local e4=Effect.CreateEffect(c)
          e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
          e4:SetRange(LOCATION_SZONE)
          e4:SetTargetRange(LOCATION_MZONE,0)
          e4:SetTarget(s.eftg)
          e4:SetLabelObject(e3)
          c:RegisterEffect(e4)
          --change type
          local e5=Effect.CreateEffect(c)
          e5:SetType(EFFECT_TYPE_FIELD)
          e5:SetCode(EFFECT_ADD_TYPE)
          e5:SetRange(LOCATION_SZONE)
          e5:SetTargetRange(LOCATION_MZONE,0)
          e5:SetTarget(s.eftg)
          e5:SetValue(TYPE_EFFECT)
          c:RegisterEffect(e5)
          local e6=e5:Clone()
          e6:SetCode(EFFECT_REMOVE_TYPE)
          e6:SetValue(TYPE_NORMAL)
          c:RegisterEffect(e6)
          end
          function s.rmcon(e)
          local tp=e:GetHandlerPlayer()
          return Duel.GetTurnPlayer()==1-tp
          end
          function s.rmtarget(e,c)
          return c:IsLocation(LOCATION_MZONE) and c:GetOriginalType()&TYPE_MONSTER~=0
          end
          function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetTurnPlayer()==1-tp
          end
          function s.costfilter(c,tp)
          return c:IsFaceup() and c:IsSetCard(0x2c1) and c:IsAbleToDeckAsCost()
          and bit.band(c:GetType(),TYPE_SPELL+TYPE_CONTINUOUS)==TYPE_SPELL+TYPE_CONTINUOUS
          end
          function s.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_ONFIELD,0,1,nil,tp) end
          Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
          Duel.HintSelection(g)
          Duel.SendtoDeck(g,nil,SEQ_DECKBOTTOM,REASON_COST)
          end
          function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_MZONE) and aux.nzatk(chkc) end
          if chk==0 then return Duel.IsExistingTarget(aux.nzatk,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
          Duel.SelectTarget(tp,aux.nzatk,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
          end
          function s.atkop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToEffect(e) and tc:IsFaceup() then
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_SET_ATTACK_FINAL)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetValue(0)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1)
          end
          end
          function s.eftg(e,c)
          return c:IsLevelAbove(10) and c:GetOriginalRace()==RACE_WYRM
          or c:IsSetCard(0x2c1) and c:IsType(TYPE_PENDULUM)
          end
          \ No newline at end of file
          script/c100223040.lua deleted 100644 → 0
          View file @ d5209210
          --竜華三界流転
          local s,id,o=GetID()
          function s.initial_effect(c)
          --special summon
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --draw
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetHintTiming(0,TIMING_END_PHASE)
          e2:SetCountLimit(1,id+o)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetCost(aux.bfgcost)
          e2:SetTarget(s.drtg)
          e2:SetOperation(s.drop)
          c:RegisterEffect(e2)
          end
          function s.spfilter(c,e,tp)
          return c:IsFaceupEx() and c:IsSetCard(0x2c1)
          and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND+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 s.spop(e,tp,eg,ep,ev,re,r,rp)
          if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
          if #g>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0 then
          local tc=g:GetFirst()
          if not tc:IsLocation(LOCATION_MZONE) then return end
          local c=e:GetHandler()
          local fid=c:GetFieldID()
          tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1,fid)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
          e1:SetCode(EVENT_PHASE+PHASE_END)
          e1:SetCountLimit(1)
          e1:SetLabel(fid)
          e1:SetLabelObject(tc)
          e1:SetCondition(s.thcon)
          e1:SetOperation(s.thop)
          Duel.RegisterEffect(e1,tp)
          end
          end
          function s.thcon(e,tp,eg,ep,ev,re,r,rp)
          local tc=e:GetLabelObject()
          if tc:GetFlagEffectLabel(id)~=e:GetLabel() then
          e:Reset()
          return false
          else
          return true
          end
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          Duel.SendtoHand(e:GetLabelObject(),nil,REASON_EFFECT)
          end
          function s.cfilter(c)
          return bit.band(c:GetType(),TYPE_SPELL+TYPE_CONTINUOUS)==TYPE_SPELL+TYPE_CONTINUOUS
          and c:IsFaceupEx() and c:IsSetCard(0x2c1) and c:IsAbleToDeck()
          end
          function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_ONFIELD) and chkc:IsControler(tp) and s.cfilter(chkc) end
          if chk==0 then return Duel.IsExistingTarget(s.cfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil)
          and Duel.IsPlayerCanDraw(tp,1) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectTarget(tp,s.cfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
          Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
          end
          function s.drop(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetTargetsRelateToChain()
          if g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end
          if Duel.SendtoDeck(g,nil,SEQ_DECKBOTTOM,REASON_EFFECT)<1
          or not g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK+LOCATION_EXTRA) then return end
          Duel.BreakEffect()
          Duel.Draw(tp,1,REASON_EFFECT)
          end
          \ No newline at end of file
          script/c19089195.lua deleted 100644 → 0
          View file @ d5209210
          --潜海奇襲
          function c19089195.initial_effect(c)
          aux.AddCodeList(c,22702055)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetOperation(c19089195.activate)
          c:RegisterEffect(e1)
          --remove
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(19089195,1))
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetRange(LOCATION_SZONE)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetCountLimit(1)
          e2:SetCondition(c19089195.econ)
          e2:SetCost(c19089195.remcost)
          e2:SetOperation(c19089195.remop)
          c:RegisterEffect(e2)
          --destroy
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(19089195,2))
          e3:SetCategory(CATEGORY_DESTROY)
          e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
          e3:SetCode(EVENT_BATTLE_START)
          e3:SetRange(LOCATION_SZONE)
          e3:SetCondition(c19089195.descon)
          e3:SetTarget(c19089195.destg)
          e3:SetOperation(c19089195.desop)
          c:RegisterEffect(e3)
          end
          function c19089195.filter(c,tp)
          return c:IsCode(22702055) and (c:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0)
          and c:GetActivateEffect() and c:GetActivateEffect():IsActivatable(tp,true,true)
          end
          function c19089195.activate(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c19089195.filter),tp,LOCATION_HAND+LOCATION_GRAVE,0,nil,tp)
          if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(19089195,0)) then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
          local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c19089195.filter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,tp):GetFirst()
          if tc then
          local field=tc:IsType(TYPE_FIELD)
          if field then
          local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
          if fc then
          Duel.SendtoGrave(fc,REASON_RULE)
          Duel.BreakEffect()
          end
          Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
          else
          Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
          end
          local te=tc:GetActivateEffect()
          te:UseCountLimit(tp,1,true)
          local tep=tc:GetControler()
          local cost=te:GetCost()
          if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
          if field then
          Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
          end
          end
          end
          end
          function c19089195.econ(e,tp,eg,ep,ev,re,r,rp)
          return Duel.IsEnvironment(22702055) and not Duel.IsPlayerAffectedByEffect(tp,19089195)
          end
          function c19089195.costfilter(c)
          return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToRemoveAsCost()
          end
          function c19089195.remcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(c19089195.costfilter,tp,LOCATION_MZONE,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,c19089195.costfilter,tp,LOCATION_MZONE,0,1,1,nil)
          if Duel.Remove(g,0,REASON_COST+REASON_TEMPORARY)~=0 then
          local rc=g:GetFirst()
          if rc:IsType(TYPE_TOKEN) then return end
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          e1:SetCode(EVENT_PHASE+PHASE_END)
          e1:SetReset(RESET_PHASE+PHASE_END)
          e1:SetLabelObject(rc)
          e1:SetCountLimit(1)
          e1:SetOperation(c19089195.retop)
          Duel.RegisterEffect(e1,tp)
          end
          end
          function c19089195.retop(e,tp,eg,ep,ev,re,r,rp)
          Duel.ReturnToField(e:GetLabelObject())
          end
          function c19089195.remop(e,tp,eg,ep,ev,re,r,rp)
          local e0=Effect.CreateEffect(e:GetHandler())
          e0:SetType(EFFECT_TYPE_FIELD)
          e0:SetCode(19089195)
          e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e0:SetTargetRange(1,0)
          e0:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e0,tp)
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
          e1:SetTargetRange(LOCATION_ONFIELD,0)
          e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_SPELL+TYPE_TRAP))
          e1:SetValue(aux.indoval)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function c19089195.descon(e,tp,eg,ep,ev,re,r,rp)
          if not Duel.IsEnvironment(22702055) then return false end
          local tc,bc=Duel.GetBattleMonster(tp)
          if not tc or not bc then return false end
          if tc:IsFaceup() and tc:GetOriginalLevel()>=5 and tc:IsAttribute(ATTRIBUTE_WATER) then
          e:SetLabelObject(bc)
          return true
          else return false end
          end
          function c19089195.destg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          local bc=e:GetLabelObject()
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,bc,1,0,0)
          end
          function c19089195.desop(e,tp,eg,ep,ev,re,r,rp)
          local bc=e:GetLabelObject()
          if bc:IsRelateToBattle() then
          Duel.Destroy(bc,REASON_EFFECT)
          end
          end
          script/c25750986.lua deleted 100644 → 0
          View file @ d5209210
          --エターナル・カオス
          function c25750986.initial_effect(c)
          --activate
          local e1=Effect.CreateEffect(c)
          e1:SetCategory(CATEGORY_TOGRAVE)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e1:SetCountLimit(1,25750986+EFFECT_COUNT_CODE_OATH)
          e1:SetTarget(c25750986.target)
          e1:SetOperation(c25750986.activate)
          c:RegisterEffect(e1)
          end
          function c25750986.tfilter(c,tp)
          return c:IsFaceup() and Duel.IsExistingMatchingCard(c25750986.tgfilter,tp,LOCATION_DECK,0,1,c,tp,c:GetAttack())
          end
          function c25750986.tgfilter(c,tp,atk)
          return c:IsAttackBelow(atk) and c:IsAbleToGrave() and c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK)
          and Duel.IsExistingMatchingCard(c25750986.tgfilter1,tp,LOCATION_DECK,0,1,c,atk-c:GetAttack(),c:GetAttribute())
          end
          function c25750986.tgfilter1(c,atk,att)
          return c:IsAttackBelow(atk) and c:IsAbleToGrave() and c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK) and not c:IsAttribute(att)
          end
          function c25750986.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 c25750986.tfilter(chkc,tp) end
          if chk==0 then return Duel.IsExistingTarget(c25750986.tfilter,tp,0,LOCATION_MZONE,1,nil,tp) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
          Duel.SelectTarget(tp,c25750986.tfilter,tp,0,LOCATION_MZONE,1,1,nil,tp)
          Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,2,tp,LOCATION_DECK)
          end
          function c25750986.activate(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsFaceup() and tc:IsRelateToEffect(e) then
          local atk=tc:GetAttack()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g=Duel.SelectMatchingCard(tp,c25750986.tgfilter,tp,LOCATION_DECK,0,1,1,nil,tp,atk)
          local gc=g:GetFirst()
          if gc then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g1=Duel.SelectMatchingCard(tp,c25750986.tgfilter1,tp,LOCATION_DECK,0,1,1,gc,atk-gc:GetAttack(),gc:GetAttribute())
          g:Merge(g1)
          Duel.SendtoGrave(g,REASON_EFFECT)
          end
          end
          if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetCode(EFFECT_CANNOT_ACTIVATE)
          e1:SetTargetRange(1,0)
          e1:SetCondition(c25750986.actcon)
          e1:SetValue(c25750986.actlimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          local e2=Effect.CreateEffect(e:GetHandler())
          e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
          e2:SetCode(EVENT_CHAINING)
          e2:SetOperation(c25750986.aclimit1)
          e2:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e2,tp)
          end
          end
          function c25750986.actcon(e)
          return Duel.GetFlagEffect(e:GetHandlerPlayer(),25750986)~=0
          end
          function c25750986.actlimit(e,re,tp)
          return re:IsActiveType(TYPE_MONSTER) and re:GetActivateLocation()==LOCATION_GRAVE
          end
          function c25750986.aclimit1(e,tp,eg,ep,ev,re,r,rp)
          local tp=e:GetHandlerPlayer()
          if ep~=tp or not re:IsActiveType(TYPE_MONSTER) or not re:GetActivateLocation()==LOCATION_GRAVE then return end
          Duel.RegisterFlagEffect(tp,25750986,RESET_PHASE+PHASE_END,0,1)
          end
          script/c32543380.lua deleted 100644 → 0
          View file @ d5209210
          --ヴォルカニック・デビル
          function c32543380.initial_effect(c)
          c:EnableReviveLimit()
          --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)
          e1:SetCondition(c32543380.spcon)
          e1:SetTarget(c32543380.sptg)
          e1:SetOperation(c32543380.spop)
          c:RegisterEffect(e1)
          --must attack
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetCode(EFFECT_MUST_ATTACK)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCondition(c32543380.bpcon)
          e2:SetTargetRange(0,LOCATION_MZONE)
          c:RegisterEffect(e2)
          local e3=e2:Clone()
          e3:SetCode(EFFECT_MUST_ATTACK_MONSTER)
          e3:SetValue(c32543380.atklimit)
          c:RegisterEffect(e3)
          --special summon
          local e5=Effect.CreateEffect(c)
          e5:SetDescription(aux.Stringid(32543380,0))
          e5:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
          e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
          e5:SetCode(EVENT_BATTLE_DESTROYING)
          e5:SetCondition(c32543380.descon)
          e5:SetTarget(c32543380.destg)
          e5:SetOperation(c32543380.desop)
          c:RegisterEffect(e5)
          end
          function c32543380.bpcon(e,tp,eg,ep,ev,re,r,rp)
          local ph=Duel.GetCurrentPhase()
          return Duel.GetTurnPlayer()~=e:GetHandler():GetControler()
          and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
          end
          function c32543380.spfilter(c)
          return c:IsFaceup() and c:IsCode(21420702) and c:IsAbleToGraveAsCost()
          end
          function c32543380.spcon(e,c)
          if c==nil then return true end
          local tp=c:GetControler()
          return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and Duel.IsExistingMatchingCard(c32543380.spfilter,tp,LOCATION_ONFIELD,0,1,nil)
          end
          function c32543380.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
          local g=Duel.GetMatchingGroup(c32543380.spfilter,tp,LOCATION_ONFIELD,0,nil)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local tc=g:SelectUnselect(nil,tp,false,true,1,1)
          if tc then
          e:SetLabelObject(tc)
          return true
          else return false end
          end
          function c32543380.spop(e,tp,eg,ep,ev,re,r,rp,c)
          local g=e:GetLabelObject()
          Duel.SendtoGrave(g,REASON_SPSUMMON)
          end
          function c32543380.atklimit(e,c)
          return c==e:GetHandler()
          end
          function c32543380.descon(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local a=Duel.GetAttacker()
          local d=Duel.GetAttackTarget()
          if a~=c then d=a end
          return c:IsRelateToBattle() and c:IsFaceup()
          and d and d:IsLocation(LOCATION_GRAVE) and d:IsType(TYPE_MONSTER)
          end
          function c32543380.destg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
          Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetCount()*500)
          end
          function c32543380.desop(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
          local ct=Duel.Destroy(g,REASON_EFFECT)
          if ct>0 then
          Duel.Damage(1-tp,ct*500,REASON_EFFECT)
          end
          end
          script/c5285665.lua deleted 100644 → 0
          View file @ d5209210
          --E・HERO バブルマン・ネオ
          function c5285665.initial_effect(c)
          c:EnableReviveLimit()
          --cannot special summon
          local e1=Effect.CreateEffect(c)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_SPSUMMON_CONDITION)
          c:RegisterEffect(e1)
          --special summon
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD)
          e2:SetCode(EFFECT_SPSUMMON_PROC)
          e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
          e2:SetRange(LOCATION_HAND)
          e2:SetCondition(c5285665.spcon)
          e2:SetTarget(c5285665.sptg)
          e2:SetOperation(c5285665.spop)
          c:RegisterEffect(e2)
          --change code
          aux.EnableChangeCode(c,79979666)
          --destroy
          local e4=Effect.CreateEffect(c)
          e4:SetDescription(aux.Stringid(5285665,0))
          e4:SetCategory(CATEGORY_DESTROY)
          e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
          e4:SetCode(EVENT_DAMAGE_STEP_END)
          e4:SetCondition(aux.dsercon)
          e4:SetTarget(c5285665.destg)
          e4:SetOperation(c5285665.desop)
          c:RegisterEffect(e4)
          end
          function c5285665.spfilter(c)
          return c:IsCode(79979666,46411259) and c:IsAbleToGraveAsCost()
          end
          function c5285665.spfilter1(c,tp)
          return c:IsCode(79979666) and c:IsLocation(LOCATION_MZONE) and Duel.GetMZoneCount(tp,c)>0
          end
          function c5285665.spfilter2(c)
          return c:IsCode(46411259) and c:IsLocation(LOCATION_HAND)
          end
          function c5285665.spcon(e,c)
          if c==nil then return true end
          local tp=c:GetControler()
          local g=Duel.GetMatchingGroup(c5285665.spfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,nil)
          return g:CheckSubGroup(aux.gffcheck,2,2,c5285665.spfilter1,tp,c5285665.spfilter2,nil)
          end
          function c5285665.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
          local g=Duel.GetMatchingGroup(c5285665.spfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,nil)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local sg=g:SelectSubGroup(tp,aux.gffcheck,true,2,2,c5285665.spfilter1,tp,c5285665.spfilter2,nil)
          if sg then
          sg:KeepAlive()
          e:SetLabelObject(sg)
          return true
          else return false end
          end
          function c5285665.spop(e,tp,eg,ep,ev,re,r,rp,c)
          local g=e:GetLabelObject()
          Duel.SendtoGrave(g,REASON_SPSUMMON)
          g:DeleteGroup()
          end
          function c5285665.destg(e,tp,eg,ep,ev,re,r,rp,chk)
          local bc=e:GetHandler():GetBattleTarget()
          if chk==0 then return bc and bc:IsRelateToBattle() end
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,bc,1,0,0)
          end
          function c5285665.desop(e,tp,eg,ep,ev,re,r,rp)
          local bc=e:GetHandler():GetBattleTarget()
          if bc:IsRelateToBattle() then
          Duel.Destroy(bc,REASON_EFFECT)
          end
          end
          script/c86676862.lua deleted 100644 → 0
          View file @ d5209210
          --E-HERO マリシャス・デビル
          function c86676862.initial_effect(c)
          aux.AddCodeList(c,94820406)
          --fusion material
          c:EnableReviveLimit()
          aux.AddFusionProcCodeFun(c,58554959,c86676862.ffilter,1,true,true)
          --spsummon condition
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
          e2:SetCode(EFFECT_SPSUMMON_CONDITION)
          e2:SetValue(aux.DarkFusionLimit)
          c:RegisterEffect(e2)
          --Pos Change
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_FIELD)
          e3:SetCode(EFFECT_SET_POSITION)
          e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
          e3:SetRange(LOCATION_MZONE)
          e3:SetTargetRange(0,LOCATION_MZONE)
          e3:SetCondition(c86676862.poscon)
          e3:SetValue(POS_FACEUP_ATTACK)
          c:RegisterEffect(e3)
          --must attack
          local e4=Effect.CreateEffect(c)
          e4:SetType(EFFECT_TYPE_FIELD)
          e4:SetCode(EFFECT_MUST_ATTACK)
          e4:SetRange(LOCATION_MZONE)
          e4:SetCondition(c86676862.poscon)
          e4:SetTargetRange(0,LOCATION_MZONE)
          c:RegisterEffect(e4)
          local e5=e4:Clone()
          e5:SetCode(EFFECT_MUST_ATTACK_MONSTER)
          e5:SetValue(c86676862.atklimit)
          c:RegisterEffect(e5)
          end
          c86676862.material_setcode=0x8
          c86676862.dark_calling=true
          function c86676862.ffilter(c)
          return c:IsRace(RACE_FIEND) and c:IsLevelAbove(6)
          end
          function c86676862.poscon(e)
          local ph=Duel.GetCurrentPhase()
          return Duel.GetTurnPlayer()~=e:GetHandler():GetControler()
          and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
          end
          function c86676862.atklimit(e,c)
          return c==e:GetHandler()
          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