Skip to content

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

Remove released cards

parent 5a65ff59
Pipeline #41659 passed with stages
            in 3 minutes and 46 seconds
            Hide whitespace changes
            Inline Side-by-side
            Showing with 3 additions and 8281 deletions
            .gitlab-ci.yml
            View file @ 1bf2ea15
            ...@@ -87,11 +87,11 @@ add_script_diff: ...@@ -87,11 +87,11 @@ add_script_diff:
            image: git-registry.moenext.com/mycard/ygopro-cdb-descgen:master-x86 image: git-registry.moenext.com/mycard/ygopro-cdb-descgen:master-x86
            variables: variables:
            YGOPRO_PIC_URL_PREFIX: 'https://cdntx.moecube.com/ygopro-super-pre/data/pics/' YGOPRO_PIC_URL_PREFIX: 'https://cdntx.moecube.com/ygopro-super-pre/data/pics/'
            YGOPRO_PIC_URL_SUFFIX: '.jpg?version=15.13' YGOPRO_PIC_URL_SUFFIX: '.jpg?version=19.0'
            FIELDS: 'name,desc,overallString,picUrl' FIELDS: 'name,desc,overallString,picUrl'
            GIT_DEPTH: '1000' GIT_DEPTH: '1000'
            OUTPUT_FILENAME: test-release.json OUTPUT_FILENAME: test-release.json
            REF_COMMIT: '18.37' # 更新的时候改这里，修改成上一个tag的版本号 REF_COMMIT: '18.38' # 更新的时候改这里，修改成上一个tag的版本号
            script: script:
            - apt update;apt -y install wget - apt update;apt -y install wget
            - currentPath=$PWD - currentPath=$PWD
            ......
            BPRO.cdb deleted 100644 → 0
            View file @ 5a65ff59
            File deleted
            CH01.cdb deleted 100644 → 0
            View file @ 5a65ff59
            File deleted
            etc.cdb
            View file @ 1bf2ea15
            No preview for this file type
            pack/2025-10-25 BPRO.ydk deleted 100644 → 0
            View file @ 5a65ff59
            #created by ygomobile
            101303201
            101303202
            101303203
            101303004
            101303005
            101303006
            101303007
            101303008
            101303009
            101303010
            101303011
            101303012
            101303013
            101303014
            101303015
            101303016
            101303017
            101303018
            101303019
            101303020
            101303021
            101303022
            101303023
            101303024
            101303025
            101303026
            101303027
            101303028
            101303029
            101303030
            101303031
            101303204
            101303033
            101303034
            101303035
            101303036
            101303037
            101303038
            101303039
            101303040
            101303041
            101303042
            101303043
            101303044
            101303045
            101303046
            101303205
            101303206
            101303049
            101303050
            101303051
            101303207
            101303053
            101303054
            101303055
            101303056
            101303057
            101303058
            101303059
            101303060
            101303061
            101303062
            101303063
            101303064
            101303065
            101303066
            101303067
            101303068
            101303069
            101303208
            101303071
            101303072
            101303073
            101303074
            101303075
            101303076
            101303077
            101303078
            101303079
            101303080
            \ No newline at end of file
            pack/etc.ydk
            View file @ 1bf2ea15
            #created by ygomobile #created by ygomobile
            100248019
            100248041
            100249001 100249001
            100238301
            100200280
            100252001 100252001
            100200281 100200281
            100254201 100254201
            ......
            script-fix.cdb
            View file @ 1bf2ea15
            No preview for this file type
            script/c100200280.lua deleted 100644 → 0
            View file @ 5a65ff59
            --磁石の戦士Ω＋
            local s,id,o=GetID()
            function s.initial_effect(c)
            --spsummon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --pos
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_POSITION)
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_CHAINING)
            e2:SetRange(LOCATION_MZONE)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetCountLimit(1,id+o)
            e2:SetCondition(s.poscon)
            e2:SetCost(s.poscost)
            e2:SetTarget(s.postg)
            e2:SetOperation(s.posop)
            c:RegisterEffect(e2)
            end
            function s.desfilter(c,tp)
            return c:IsFaceupEx() and c:IsRace(RACE_ROCK) and Duel.GetMZoneCount(tp,c)>0
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            local c=e:GetHandler()
            local g=Duel.GetMatchingGroup(s.desfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,c,tp)
            if chk==0 then return #g>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local g=Duel.SelectMatchingCard(tp,s.desfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,aux.ExceptThisCard(e),tp)
            if g:IsExists(Card.IsLocation,1,nil,LOCATION_MZONE) then
            Duel.HintSelection(g)
            end
            if Duel.Destroy(g,REASON_EFFECT)>0 and c:IsRelateToChain() and aux.NecroValleyFilter()(c)
            and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
            e1:SetValue(LOCATION_REMOVED)
            c:RegisterEffect(e1,true)
            end
            end
            function s.poscon(e,tp,eg,ep,ev,re,r,rp)
            local loc,attr=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION,CHAININFO_TRIGGERING_ATTRIBUTE)
            return re:IsActiveType(TYPE_MONSTER)
            and (attr&ATTRIBUTE_EARTH)~=0
            and (loc&LOCATION_ONFIELD)~=0
            end
            function s.poscost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:GetHandler():IsReleasable() end
            Duel.Release(e:GetHandler(),REASON_COST)
            end
            function s.posfilter(c)
            return c:IsFaceup() and c:IsCanTurnSet()
            end
            function s.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.posfilter(chkc) end
            if chk==0 then return Duel.IsExistingTarget(s.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
            local g=Duel.SelectTarget(tp,s.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
            Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
            end
            function s.posop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then
            Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
            end
            end
            script/c100248019.lua deleted 100644 → 0
            View file @ 5a65ff59
            --The Fallen ＆ The Virtuous
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,68468459)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
            e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            end
            function s.cfilter(c)
            return aux.IsCodeListed(c,68468459) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()
            end
            function s.cfilter2(c)
            return c:IsFaceupEx() and c:IsSetCard(0x2d7) and c:IsType(TYPE_MONSTER)
            end
            function s.spfilter(c,e,tp)
            return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then
            if e:GetLabel()==1 then
            return chkc:IsOnField() and chkc:IsFaceup() and chkc~=e:GetHandler()
            elseif e:GetLabel()==2 then
            return chkc:IsLocation(LOCATION_GRAVE) and s.spfilter(chkc,e,tp)
            end
            return false
            end
            local b1=(Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_EXTRA,0,1,nil) or not e:IsCostChecked())
            and Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler())
            local b2=Duel.IsExistingMatchingCard(s.cfilter2,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil)
            and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp)
            if chk==0 then return b1 or b2 end
            local op=aux.SelectFromOptions(tp,
            {b1,aux.Stringid(id,1),1},
            {b2,aux.Stringid(id,2),2})
            e:SetLabel(op)
            if op==1 then
            if e:IsCostChecked() then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_EXTRA,0,1,1,nil)
            Duel.SendtoGrave(g,REASON_COST)
            end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_DESTROY)
            end
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
            elseif op==2 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_SPECIAL_SUMMON)
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
            end
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if not tc:IsRelateToChain() then return end
            if e:GetLabel()==1 and tc:IsOnField() then
            Duel.Destroy(tc,REASON_EFFECT)
            elseif e:GetLabel()==2 and aux.NecroValleyFilter()(tc) then
            Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            script/c100248041.lua deleted 100644 → 0
            View file @ 5a65ff59
            --聖痕喰らいし竜
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddMaterialCodeList(c,68468459)
            --fusion procedure
            c:EnableReviveLimit()
            aux.AddFusionProcMix(c,true,true,68468459,s.matfilter1,s.matfilter2,nil)
            --to deck
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_TODECK)
            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.tdtg)
            e1:SetOperation(s.tdop)
            c:RegisterEffect(e1)
            --atk
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCode(EFFECT_UPDATE_ATTACK)
            e2:SetCondition(s.efcon)
            e2:SetValue(500)
            c:RegisterEffect(e2)
            --immune
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_SINGLE)
            e3:SetCode(EFFECT_IMMUNE_EFFECT)
            e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCondition(s.efcon)
            e3:SetValue(s.efilter)
            c:RegisterEffect(e3)
            --to grave
            local e4=Effect.CreateEffect(c)
            e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
            e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e4:SetCode(EVENT_TO_GRAVE)
            e4:SetOperation(s.regop)
            c:RegisterEffect(e4)
            --to hand
            local e5=Effect.CreateEffect(c)
            e5:SetDescription(aux.Stringid(id,1))
            e5:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
            e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e5:SetCode(EVENT_PHASE+PHASE_END)
            e5:SetRange(LOCATION_GRAVE)
            e5:SetCountLimit(1,id+o)
            e5:SetCondition(s.thcon)
            e5:SetTarget(s.thtg)
            e5:SetOperation(s.thop)
            c:RegisterEffect(e5)
            end
            function s.matfilter1(c)
            return c:IsFusionAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK)
            end
            function s.matfilter2(c)
            return c:IsFusionType(TYPE_EFFECT)
            end
            function s.tdfilter(c)
            return c:IsAbleToDeck()
            end
            function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_GRAVE+LOCATION_REMOVED,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,PLAYER_ALL,LOCATION_GRAVE+LOCATION_REMOVED)
            end
            function s.tdop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.tdfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_GRAVE+LOCATION_REMOVED,1,2,nil)
            if g:GetCount()>0 then
            Duel.HintSelection(g)
            Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
            end
            end
            function s.effilter(c)
            return c:IsFaceupEx() and c:IsSetCard(0x2d7) and c:IsType(TYPE_MONSTER)
            end
            function s.efcon(e)
            return Duel.IsExistingMatchingCard(s.effilter,e:GetHandlerPlayer(),LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,nil)
            end
            function s.efilter(e,te)
            return te:GetOwner()~=e:GetOwner()
            end
            function s.regop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():GetFlagEffect(id)>0
            end
            function s.thfilter(c)
            return c:IsSetCard(0x145,0x14d) 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)
            local tc=g:GetFirst()
            if tc then
            Duel.SendtoHand(tc,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,tc)
            end
            end
            script/c101303004.lua deleted 100644 → 0
            View file @ 5a65ff59
            --磁石の戦士マグネット・テルスリオン
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,101303005,101303006)
            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:SetDescription(aux.Stringid(id,0))
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetCode(EFFECT_SPSUMMON_PROC)
            e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetCondition(s.spcon)
            e2:SetTarget(s.sptg)
            e2:SetOperation(s.spop)
            c:RegisterEffect(e2)
            --target
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_DESTROY+CATEGORY_CONTROL)
            e3:SetType(EFFECT_TYPE_QUICK_O)
            e3:SetCode(EVENT_CHAINING)
            e3:SetRange(LOCATION_MZONE)
            e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e3:SetCountLimit(1)
            e3:SetCondition(s.descon)
            e3:SetTarget(s.destg)
            e3:SetOperation(s.desop)
            c:RegisterEffect(e3)
            --spsummon
            local e4=Effect.CreateEffect(c)
            e4:SetDescription(aux.Stringid(id,2))
            e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e4:SetType(EFFECT_TYPE_QUICK_O)
            e4:SetCode(EVENT_FREE_CHAIN)
            e4:SetRange(LOCATION_MZONE)
            e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
            e4:SetCondition(s.spcon2)
            e4:SetCost(s.spcost2)
            e4:SetTarget(s.sptg2)
            e4:SetOperation(s.spop2)
            c:RegisterEffect(e4)
            end
            function s.spcostfilter(c)
            return c:IsFaceupEx() and c:IsAbleToRemoveAsCost() and c:IsCode(101303005,101303006)
            end
            function s.gcheck(g,tp)
            return aux.gfcheck(g,Card.IsCode,101303005,101303006)
            and Duel.GetMZoneCount(tp,g)>0
            end
            function s.spcon(e,c)
            if c==nil then return true end
            local tp=c:GetControler()
            local g=Duel.GetMatchingGroup(s.spcostfilter,tp,LOCATION_GRAVE+LOCATION_MZONE+LOCATION_HAND,0,c)
            return g:CheckSubGroup(s.gcheck,2,2,tp)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
            local g=Duel.GetMatchingGroup(s.spcostfilter,tp,LOCATION_GRAVE+LOCATION_MZONE+LOCATION_HAND,0,c)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
            local sg=g:SelectSubGroup(tp,s.gcheck,true,2,2,tp)
            if sg then
            sg:KeepAlive()
            e:SetLabelObject(sg)
            return true
            else return false end
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
            local sg=e:GetLabelObject()
            Duel.Remove(sg,POS_FACEUP,REASON_SPSUMMON)
            sg:DeleteGroup()
            end
            function s.descon(e,tp,eg,ep,ev,re,r,rp)
            return rp==1-tp
            end
            function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end
            if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
            e:SetLabel(0)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
            if g:GetCount()>0 then
            local tc=g:GetFirst()
            if not tc:IsAttribute(ATTRIBUTE_EARTH) or tc:IsFacedown() then
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
            else
            e:SetLabel(1)
            end
            end
            end
            function s.desop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and tc:IsLocation(LOCATION_MZONE) then
            if e:GetLabel()==1 and tc:IsControlerCanBeChanged()
            and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
            Duel.GetControl(tc,tp)
            else
            Duel.Destroy(tc,REASON_EFFECT)
            end
            end
            end
            function s.spcon2(e,tp,eg,ep,ev,re,r,rp)
            return Duel.GetTurnPlayer()==1-tp
            end
            function s.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
            local c=e:GetHandler()
            if chk==0 then return c:IsReleasable() and Duel.GetMZoneCount(tp,c)>1 end
            Duel.Release(c,REASON_COST)
            end
            function s.spfilter(c,e,tp)
            return c:IsFaceup() and c:IsSetCard(0x6066) 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 not Duel.IsPlayerAffectedByEffect(tp,59822133)
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_REMOVED,0,2,nil,e,tp)
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_REMOVED)
            end
            function s.spop2(e,tp,eg,ep,ev,re,r,rp)
            if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
            if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end
            local g=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_REMOVED,0,nil,e,tp)
            if g:GetCount()>=2 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local sg=g:Select(tp,2,2,nil)
            Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            script/c101303005.lua deleted 100644 → 0
            View file @ 5a65ff59
            --磁石の戦士Σ＋
            local s,id,o=GetID()
            function s.initial_effect(c)
            --must attack
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetCode(EFFECT_MUST_ATTACK)
            e1:SetRange(LOCATION_MZONE)
            e1:SetTargetRange(0,LOCATION_MZONE)
            e1:SetCondition(s.atkcon)
            c:RegisterEffect(e1)
            local e2=e1:Clone()
            e2:SetCode(EFFECT_MUST_ATTACK_MONSTER)
            e2:SetValue(s.atklimit)
            c:RegisterEffect(e2)
            --attack redirect
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_FIELD)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCode(EFFECT_PATRICIAN_OF_DARKNESS)
            e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e3:SetCondition(s.podcond)
            e3:SetTargetRange(0,1)
            c:RegisterEffect(e3)
            --spsummon or th hand
            local e4=Effect.CreateEffect(c)
            e4:SetDescription(aux.Stringid(id,1))
            e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_GRAVE_SPSUMMON+CATEGORY_GRAVE_ACTION)
            e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
            e4:SetCode(EVENT_TO_GRAVE)
            e4:SetCountLimit(1,id)
            e4:SetTarget(s.sptg)
            e4:SetOperation(s.spop)
            c:RegisterEffect(e4)
            end
            function s.atkfilter(c)
            return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsFaceup()
            end
            function s.atkcon(e)
            return Duel.IsExistingMatchingCard(s.atkfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
            end
            function s.atklimit(e,c)
            return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsFaceup()
            end
            function s.podfilter(c)
            return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsFaceup()
            end
            function s.podcond(e)
            local tp=e:GetOwnerPlayer()
            return Duel.IsExistingMatchingCard(s.podfilter,tp,0,LOCATION_MZONE,1,nil)
            end
            function s.filter(c,e,tp)
            return not c:IsCode(id) and c:IsLevelBelow(4) and c:IsSetCard(0x2066)
            and (c:IsAbleToHand() or Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.filter(chkc,e,tp) end
            if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
            local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() then
            if aux.NecroValleyNegateCheck(tc) then return end
            if not aux.NecroValleyFilter()(tc) then return end
            if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
            and (not tc:IsAbleToHand() or Duel.SelectOption(tp,1190,1152)==1) then
            Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
            elseif tc:IsAbleToHand() then
            Duel.SendtoHand(tc,nil,REASON_EFFECT)
            end
            end
            end
            script/c101303006.lua deleted 100644 → 0
            View file @ 5a65ff59
            --磁石の戦士Σ－
            local s,id,o=GetID()
            function s.initial_effect(c)
            --fusion summon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_FUSION_SUMMON+CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id)
            e1:SetCost(s.fspcost)
            e1:SetTarget(s.fsptg)
            e1:SetOperation(s.fspop)
            c:RegisterEffect(e1)
            --to grave
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_TOGRAVE)
            e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e2:SetCode(EVENT_SUMMON_SUCCESS)
            e2:SetProperty(EFFECT_FLAG_DELAY)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.tgtg)
            e2:SetOperation(s.tgop)
            c:RegisterEffect(e2)
            local e3=e2:Clone()
            e3:SetCode(EVENT_SPSUMMON_SUCCESS)
            c:RegisterEffect(e3)
            --disable attack
            local e4=Effect.CreateEffect(c)
            e4:SetDescription(aux.Stringid(id,2))
            e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e4:SetCode(EVENT_ATTACK_ANNOUNCE)
            e4:SetRange(LOCATION_MZONE)
            e4:SetCountLimit(1)
            e4:SetCondition(s.atkcon)
            e4:SetOperation(s.atkop)
            c:RegisterEffect(e4)
            end
            function s.fspcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return not e:GetHandler():IsPublic() end
            end
            function s.spfilter1(c,e)
            return c:IsRace(RACE_ROCK) and not c:IsImmuneToEffect(e)
            end
            function s.spfilter2(c,e,tp,m,f,gc,chkf)
            return c:IsType(TYPE_FUSION) and (not f or f(c))
            and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
            end
            function s.fsptg(e,tp,eg,ep,ev,re,r,rp,chk)
            local c=e:GetHandler()
            if chk==0 then
            local chkf=tp
            local mg1=Duel.GetFusionMaterial(tp):Filter(s.spfilter1,nil,e)
            local res=Duel.IsExistingMatchingCard(s.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c,chkf)
            if not res then
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            local mg2=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            res=Duel.IsExistingMatchingCard(s.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c,chkf)
            end
            end
            return res
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
            end
            function s.fspop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local chkf=tp
            if not c:IsRelateToChain() or c:IsImmuneToEffect(e) then return end
            local mg1=Duel.GetFusionMaterial(tp):Filter(s.spfilter1,nil,e)
            local sg1=Duel.GetMatchingGroup(s.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c,chkf)
            local mg2=nil
            local sg2=nil
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            mg2=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            sg2=Duel.GetMatchingGroup(s.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c,chkf)
            end
            if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
            local sg=sg1:Clone()
            if sg2 then sg:Merge(sg2) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local tg=sg:Select(tp,1,1,nil)
            local tc=tg:GetFirst()
            if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or ce and not Duel.SelectYesNo(tp,ce:GetDescription())) then
            local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,c,chkf)
            tc:SetMaterial(mat1)
            Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
            Duel.BreakEffect()
            Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
            elseif ce then
            local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,c,chkf)
            local fop=ce:GetOperation()
            fop(ce,e,tp,tc,mat2)
            end
            tc:CompleteProcedure()
            end
            end
            function s.tgfilter(c)
            return c:IsSetCard(0xe9) and c:IsLevel(8) and c:IsAbleToGrave()
            end
            function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
            end
            function s.tgop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.SendtoGrave(g,REASON_EFFECT)
            end
            end
            function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
            local a=Duel.GetAttacker()
            local b=Duel.GetAttackTarget()
            return a and a:IsFaceup() and a:IsAttribute(ATTRIBUTE_EARTH)
            and b and b:IsFaceup() and b:IsAttribute(ATTRIBUTE_EARTH)
            end
            function s.atkop(e,tp,eg,ep,ev,re,r,rp)
            Duel.NegateAttack()
            end
            script/c101303007.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ジャンク・ウォリアー／バスター
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,60800381,80280737)
            --Cannot special summon
            local e0=Effect.CreateEffect(c)
            e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
            e0:SetType(EFFECT_TYPE_SINGLE)
            e0:SetCode(EFFECT_SPSUMMON_CONDITION)
            e0:SetValue(aux.AssaultModeLimit)
            c:RegisterEffect(e0)
            --atkup
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e1:SetCode(EFFECT_UPDATE_ATTACK)
            e1:SetRange(LOCATION_MZONE)
            e1:SetValue(s.val)
            c:RegisterEffect(e1)
            --immune
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e2:SetCode(EFFECT_IMMUNE_EFFECT)
            e2:SetRange(LOCATION_MZONE)
            e2:SetValue(s.immval)
            c:RegisterEffect(e2)
            --toextra
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,0))
            e3:SetCategory(CATEGORY_TOEXTRA+CATEGORY_SPECIAL_SUMMON)
            e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
            e3:SetCode(EVENT_DESTROYED)
            e3:SetTarget(s.sptg)
            e3:SetOperation(s.spop)
            c:RegisterEffect(e3)
            --double
            local e4=Effect.CreateEffect(c)
            e4:SetType(EFFECT_TYPE_SINGLE)
            e4:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
            e4:SetCondition(s.damcon)
            e4:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
            c:RegisterEffect(e4)
            end
            s.assault_name=60800381
            function s.val(e,c)
            return Duel.GetMatchingGroupCount(s.filter,c:GetControler(),LOCATION_MZONE,0,nil)*1000
            end
            function s.filter(c)
            return c:IsFaceup() and c:IsSetCard(0x104f)
            end
            function s.immval(e,re)
            return re:GetOwnerPlayer()~=e:GetHandlerPlayer() and re:IsActivated()
            and re:IsActiveType(TYPE_MONSTER)
            end
            function s.spfilter(c,e,tp)
            return c:IsCode(60800381) and c:IsType(TYPE_SYNCHRO) and c:IsAbleToExtra() and c:GetOwner()==tp
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.spfilter(chkc,e,tp) end
            if chk==0 then return Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
            local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
            Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,g,1,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain()
            and aux.NecroValleyFilter()(tc) and Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)>0
            and tc:IsLocation(LOCATION_EXTRA)
            and tc:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,tc)>0
            and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
            Duel.BreakEffect()
            tc:SetMaterial(nil)
            Duel.SpecialSummon(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)
            tc:CompleteProcedure()
            end
            end
            function s.damcon(e)
            return e:GetHandler():GetBattleTarget()~=nil
            end
            script/c101303008.lua deleted 100644 → 0
            View file @ 5a65ff59
            --クリムゾン・ブレーダー／バスター
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,80280737,80321197)
            --Cannot special summon
            local e0=Effect.CreateEffect(c)
            e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
            e0:SetType(EFFECT_TYPE_SINGLE)
            e0:SetCode(EFFECT_SPSUMMON_CONDITION)
            e0:SetValue(aux.AssaultModeLimit)
            c:RegisterEffect(e0)
            --set
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_TODECK+CATEGORY_SEARCH+CATEGORY_TOHAND)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id)
            e1:SetCost(s.thcost)
            e1:SetTarget(s.thtg)
            e1:SetOperation(s.thop)
            c:RegisterEffect(e1)
            --aclimit
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e2:SetCode(EFFECT_CANNOT_ACTIVATE)
            e2:SetRange(LOCATION_MZONE)
            e2:SetTargetRange(0,1)
            e2:SetValue(s.aclimit)
            c:RegisterEffect(e2)
            --spsummon
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e3:SetCode(EVENT_DESTROYED)
            e3:SetProperty(EFFECT_FLAG_DELAY)
            e3:SetTarget(s.sptg)
            e3:SetOperation(s.spop)
            c:RegisterEffect(e3)
            end
            s.assault_name=80321197
            function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return not e:GetHandler():IsPublic() end
            end
            function s.thfilter(c)
            return aux.IsCodeOrListed(c,80280737) and c:IsAbleToHand()
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            local c=e:GetHandler()
            if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) and c:IsAbleToDeck() 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:IsRelateToChain() then
            Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
            end
            end
            end
            function s.aclimit(e,re)
            local rc=re:GetHandler()
            return re:IsActiveType(TYPE_MONSTER) and rc:IsLevelAbove(5) and rc:IsSummonLocation(LOCATION_EXTRA)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
            end
            function s.spfilter(c,e,tp)
            return c:IsCode(80321197) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            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_GRAVE,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            script/c101303009.lua deleted 100644 → 0
            View file @ 5a65ff59
            --バスター・リッチー
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,80280737,40012727,76407432)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetCode(EVENT_SUMMON_SUCCESS)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            local e2=e1:Clone()
            e2:SetCode(EVENT_SPSUMMON_SUCCESS)
            c:RegisterEffect(e2)
            --nontuner
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_SINGLE)
            e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCode(EFFECT_NONTUNER)
            e3:SetValue(s.tnval)
            c:RegisterEffect(e3)
            --search
            local e4=Effect.CreateEffect(c)
            e4:SetDescription(aux.Stringid(id,1))
            e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
            e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e4:SetCode(EVENT_BE_MATERIAL)
            e4:SetProperty(EFFECT_FLAG_DELAY)
            e4:SetCountLimit(1,id+o)
            e4:SetCondition(s.thcon)
            e4:SetTarget(s.thtg)
            e4:SetOperation(s.thop)
            c:RegisterEffect(e4)
            end
            function s.spfilter(c,e,tp)
            return (aux.IsCodeListed(c,80280737) or (c:IsRace(RACE_ZOMBIE) and c:IsLevelBelow(4))) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,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_GRAVE,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            function s.tnval(e,c)
            return e:GetHandler():IsControler(c:GetControler())
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO
            end
            function s.filter(c)
            return c:IsCode(40012727,76407432) 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:GetCount()>0 then
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,g)
            end
            end
            script/c101303010.lua deleted 100644 → 0
            View file @ 5a65ff59
            --耀聖の花詩ルキナ
            local s,id,o=GetID()
            function s.initial_effect(c)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetCode(EFFECT_SPSUMMON_PROC)
            e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
            e1:SetCondition(s.spcon)
            e1:SetValue(s.spval)
            c:RegisterEffect(e1)
            --tohand
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,0))
            e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id)
            e2:SetTarget(s.thtg)
            e2:SetOperation(s.thop)
            c:RegisterEffect(e2)
            --switch locations
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_TOHAND)
            e3:SetType(EFFECT_TYPE_QUICK_O)
            e3:SetCode(EVENT_FREE_CHAIN)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCountLimit(1,id+o)
            e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END+TIMING_END_PHASE)
            e3:SetCondition(s.chcon)
            e3:SetTarget(s.chtg)
            e3:SetOperation(s.chop)
            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,tp,LOCATION_REASON_TOFIELD,0x4)>0
            end
            function s.spval(e,c)
            return 0,0x4
            end
            function s.thfilter(c)
            return not c:IsCode(id) and c:IsSetCard(0x2d8) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
            end
            function s.thop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
            if #g>0 then
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,g)
            end
            end
            function s.chcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():GetSequence()<5 and Duel.GetTurnPlayer()==1-tp
            end
            function s.chfilter(c)
            return c:GetSequence()==2
            end
            function s.chtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.chfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end
            end
            function s.rthfilter(c)
            return c:IsFaceup() and c:IsAbleToHand() and c:IsLevelBelow(6)
            end
            function s.chop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local cs=c:GetSequence()
            if not c:IsRelateToChain() or not c:IsControler(tp) or cs>4 or cs==2 then return end
            local g=Duel.GetMatchingGroup(s.chfilter,tp,LOCATION_MZONE,0,nil)
            if g:GetCount()==1 then
            local tc=g:GetFirst()
            Duel.SwapSequence(c,tc)
            if c:GetSequence()==cs then return end
            if Duel.IsExistingMatchingCard(s.rthfilter,tp,0,LOCATION_MZONE,1,nil)
            and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
            local rg=Duel.SelectMatchingCard(tp,s.rthfilter,tp,0,LOCATION_MZONE,1,1,nil)
            Duel.HintSelection(rg)
            Duel.SendtoHand(rg,nil,REASON_EFFECT)
            end
            end
            end
            script/c101303011.lua deleted 100644 → 0
            View file @ 5a65ff59
            --耀聖の波詩ディーナ
            local s,id,o=GetID()
            function s.initial_effect(c)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetCode(EFFECT_SPSUMMON_PROC)
            e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
            e1:SetCondition(s.spcon)
            e1:SetValue(s.spval)
            c:RegisterEffect(e1)
            --place
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,0))
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id)
            e2:SetTarget(s.ptg)
            e2:SetOperation(s.pop)
            c:RegisterEffect(e2)
            --switch locations
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_REMOVE)
            e3:SetType(EFFECT_TYPE_QUICK_O)
            e3:SetCode(EVENT_FREE_CHAIN)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCountLimit(1,id+o)
            e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END+TIMING_END_PHASE)
            e3:SetCondition(s.chcon)
            e3:SetTarget(s.chtg)
            e3:SetOperation(s.chop)
            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,tp,LOCATION_REASON_TOFIELD,0x4)>0
            end
            function s.spval(e,c)
            return 0,0x4
            end
            function s.pfilter(c,tp)
            return c:IsAllTypes(TYPE_CONTINUOUS+TYPE_SPELL) and c:IsSetCard(0x2d8)
            and not c:IsForbidden() and c:CheckUniqueOnField(tp)
            end
            function s.ptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
            and Duel.IsExistingMatchingCard(s.pfilter,tp,LOCATION_DECK,0,1,nil,tp) end
            end
            function s.pop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
            local tc=Duel.SelectMatchingCard(tp,s.pfilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
            if tc then Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) end
            end
            function s.chcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():GetSequence()<5 and Duel.GetTurnPlayer()==1-tp
            end
            function s.chfilter(c)
            return c:GetSequence()==2
            end
            function s.chtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.chfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end
            end
            function s.chop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local cs=c:GetSequence()
            if not c:IsRelateToChain() or not c:IsControler(tp) or cs>4 or cs==2 then return end
            local g=Duel.GetMatchingGroup(s.chfilter,tp,LOCATION_MZONE,0,nil)
            if g:GetCount()==1 then
            local tc=g:GetFirst()
            Duel.SwapSequence(c,tc)
            if c:GetSequence()==cs then return end
            if Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_HAND,1,nil)
            and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
            local rg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_HAND,nil):RandomSelect(tp,1)
            Duel.HintSelection(rg)
            local rc=rg:GetFirst()
            Duel.SendtoHand(rg,nil,REASON_EFFECT)
            Duel.Remove(rc,POS_FACEUP,REASON_EFFECT)
            Duel.ShuffleHand(1-tp)
            local fid=c:GetFieldID()
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
            e1:SetCode(EVENT_PHASE+PHASE_END)
            e1:SetCountLimit(1)
            e1:SetLabel(fid)
            e1:SetLabelObject(rc)
            e1:SetCondition(s.retcon)
            e1:SetOperation(s.retop)
            e1:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e1,tp)
            rc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,fid,aux.Stringid(id,3))
            end
            end
            end
            function s.retcon(e,tp,eg,ep,ev,re,r,rp)
            local tc=e:GetLabelObject()
            if tc:GetFlagEffectLabel(id)==e:GetLabel() then
            return true
            else
            e:Reset()
            return false
            end
            end
            function s.retop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_CARD,0,id)
            local tc=e:GetLabelObject()
            Duel.SendtoHand(tc,nil,REASON_EFFECT)
            end
            script/c101303012.lua deleted 100644 → 0
            View file @ 5a65ff59
            --耀聖の月詩フォルトナ
            local s,id,o=GetID()
            function s.initial_effect(c)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetCode(EFFECT_SPSUMMON_PROC)
            e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
            e1:SetCondition(s.spcon)
            e1:SetValue(s.spval)
            c:RegisterEffect(e1)
            --place
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,0))
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id)
            e2:SetTarget(s.ptg)
            e2:SetOperation(s.pop)
            c:RegisterEffect(e2)
            --switch locations
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_TOHAND)
            e3:SetType(EFFECT_TYPE_QUICK_O)
            e3:SetCode(EVENT_FREE_CHAIN)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCountLimit(1,id+o)
            e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END+TIMING_END_PHASE)
            e3:SetCondition(s.chcon)
            e3:SetTarget(s.chtg)
            e3:SetOperation(s.chop)
            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,tp,LOCATION_REASON_TOFIELD,0x4)>0
            end
            function s.spval(e,c)
            return 0,0x4
            end
            function s.pfilter(c,tp)
            return c:IsType(TYPE_CONTINUOUS) and c:IsType(TYPE_TRAP) and c:IsSetCard(0x2d8)
            and not c:IsForbidden() and c:CheckUniqueOnField(tp)
            end
            function s.ptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
            and Duel.IsExistingMatchingCard(s.pfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,tp) end
            end
            function s.pop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
            local tc=Duel.SelectMatchingCard(tp,s.pfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,tp):GetFirst()
            if tc then Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) end
            end
            function s.chcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():GetSequence()<5 and Duel.GetTurnPlayer()==1-tp
            end
            function s.chfilter(c)
            return c:GetSequence()==2
            end
            function s.chtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.chfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end
            end
            function s.rthfilter(c)
            return c:IsFaceup() and c:IsAbleToHand() and c:IsType(TYPE_SPELL+TYPE_TRAP)
            end
            function s.chop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local cs=c:GetSequence()
            if not c:IsRelateToChain() or not c:IsControler(tp) or cs>4 or cs==2 then return end
            local g=Duel.GetMatchingGroup(s.chfilter,tp,LOCATION_MZONE,0,nil)
            if g:GetCount()==1 then
            local tc=g:GetFirst()
            Duel.SwapSequence(c,tc)
            if c:GetSequence()==cs then return end
            if Duel.IsExistingMatchingCard(s.rthfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
            and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
            local rg=Duel.SelectMatchingCard(tp,s.rthfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
            Duel.HintSelection(rg)
            Duel.SendtoHand(rg,nil,REASON_EFFECT)
            end
            end
            end
            script/c101303013.lua deleted 100644 → 0
            View file @ 5a65ff59
            --燿ける聖詩の獄神精
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,101303039)
            --splimit
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
            e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e1:SetRange(LOCATION_MZONE)
            e1:SetTargetRange(1,0)
            e1:SetTarget(s.splimit)
            c:RegisterEffect(e1)
            --lv up
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,0))
            e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_FREE_CHAIN)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetRange(LOCATION_MZONE)
            e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
            e2:SetCountLimit(1,id)
            e2:SetCondition(s.lvcon)
            e2:SetTarget(s.lvtg)
            e2:SetOperation(s.lvop)
            c:RegisterEffect(e2)
            --search
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
            e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e3:SetProperty(EFFECT_FLAG_DELAY)
            e3:SetCode(EVENT_BE_MATERIAL)
            e3:SetCountLimit(1,id+o)
            e3:SetCondition(s.thcon)
            e3:SetTarget(s.thtg)
            e3:SetOperation(s.thop)
            c:RegisterEffect(e3)
            end
            function s.splimit(e,c)
            return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
            end
            function s.lvcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsMainPhase()
            end
            function s.lvfilter(c,e)
            return c:GetSequence()==2 and c:IsFaceup() and c:IsLevelAbove(1)
            and c:IsCanBeEffectTarget(e)
            end
            function s.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return false end
            if chk==0 then return Duel.IsExistingMatchingCard(s.lvfilter,tp,LOCATION_MZONE,0,1,nil,e) end
            local g=Duel.GetMatchingGroup(s.lvfilter,tp,LOCATION_MZONE,0,nil,e)
            if g:GetCount()==1 then
            Duel.SetTargetCard(g)
            else
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
            Duel.SelectTarget(tp,s.lvfilter,tp,LOCATION_MZONE,0,1,1,nil,e)
            end
            end
            function s.syncfilter(c,tp)
            return (c:IsSetCard(0x2d8) or c:IsCode(101303039)) and c:IsType(TYPE_SYNCHRO) and c:IsSynchroSummonable(nil)
            end
            function s.lvop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local tc=Duel.GetFirstTarget()
            if tc:IsFaceup() and tc:IsRelateToChain() and not tc:IsImmuneToEffect(e) then
            local e1=Effect.CreateEffect(c)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_UPDATE_LEVEL)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            e1:SetValue(3)
            tc:RegisterEffect(e1)
            Duel.AdjustAll()
            if Duel.IsExistingMatchingCard(s.syncfilter,tp,LOCATION_EXTRA,0,1,nil,tp) and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.syncfilter,tp,LOCATION_EXTRA,0,1,1,nil,tp)
            Duel.SynchroSummon(tp,g:GetFirst(),nil)
            end
            end
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO
            end
            function s.thfilter(c)
            return c:IsSetCard(0x2d8) 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
            script/c101303014.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ロワイヤル・デーモン
            local s,id,o=GetID()
            function s.initial_effect(c)
            --search
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
            e1:SetCountLimit(1,id)
            e1:SetCost(s.thcost)
            e1:SetTarget(s.thtg)
            e1:SetOperation(s.thop)
            c:RegisterEffect(e1)
            --spsummon
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e2:SetCode(EVENT_BATTLE_DESTROYED)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetCountLimit(1,id+o)
            e2:SetCondition(s.spcon)
            e2:SetTarget(s.sptg)
            e2:SetOperation(s.spop)
            c:RegisterEffect(e2)
            end
            function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:GetHandler():IsReleasable() end
            Duel.Release(e:GetHandler(),REASON_COST)
            end
            function s.thfilter(c)
            return c:IsSetCard(0x45) and not c:IsCode(id) and c:IsAbleToHand()
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil)
            and Duel.IsPlayerCanSummon(tp)
            and Duel.IsPlayerCanAdditionalSummon(tp)
            and Duel.GetFlagEffect(tp,id)==0 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
            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)
            if Duel.IsPlayerCanSummon(tp) and Duel.IsPlayerCanAdditionalSummon(tp) and Duel.GetFlagEffect(tp,id)==0 then
            local e2=Effect.CreateEffect(e:GetHandler())
            e2:SetDescription(aux.Stringid(id,2))
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0)
            e2:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
            e2:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_FIEND))
            e2:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e2,tp)
            Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
            end
            end
            function s.splimit(e,c)
            return not c:IsSetCard(0x45) and c:IsLocation(LOCATION_EXTRA)
            end
            function s.cfilter(c,tp)
            local rm=TYPE_RITUAL|TYPE_MONSTER
            return c:GetPreviousTypeOnField()&rm==rm and c:IsPreviousControler(tp)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return eg:IsExists(s.cfilter,1,nil,tp) and not eg:IsContains(e:GetHandler())
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsRelateToChain() and aux.NecroValleyFilter()(c) then
            Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            script/c101303015.lua deleted 100644 → 0
            View file @ 5a65ff59
            --デューク・デーモン
            local s,id,o=GetID()
            function s.initial_effect(c)
            --atk up
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_UPDATE_ATTACK)
            e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e1:SetRange(LOCATION_MZONE)
            e1:SetValue(s.atkval)
            c:RegisterEffect(e1)
            --lv up
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,0))
            e2:SetCategory(CATEGORY_TOGRAVE)
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_MZONE)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetCountLimit(1,id)
            e2:SetTarget(s.lvtg)
            e2:SetOperation(s.lvop)
            c:RegisterEffect(e2)
            --spsummon
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e3:SetCode(EVENT_BATTLE_DESTROYED)
            e3:SetRange(LOCATION_GRAVE)
            e3:SetCountLimit(1,id+o)
            e3:SetCondition(s.spcon)
            e3:SetTarget(s.sptg)
            e3:SetOperation(s.spop)
            c:RegisterEffect(e3)
            end
            function s.atkval(e,c)
            return c:GetLevel()*200
            end
            function s.tgfilter(c)
            return c:IsFaceup() and c:IsLevelAbove(1)
            end
            function s.filter(c)
            return c:IsSetCard(0x45) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() and not c:IsCode(id)
            end
            function s.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.tgfilter(chkc)
            and chkc:IsControler(tp) end
            if chk==0 then return Duel.IsExistingTarget(s.tgfilter,tp,LOCATION_MZONE,0,1,nil)
            and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
            Duel.SelectTarget(tp,s.tgfilter,tp,LOCATION_MZONE,0,1,1,nil)
            Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
            end
            function s.lvop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local tc=Duel.GetFirstTarget()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
            if g:GetCount()>0 then
            local gc=g:GetFirst()
            if Duel.SendtoGrave(gc,REASON_EFFECT)~=0 and gc:IsLocation(LOCATION_GRAVE)
            and tc:IsRelateToChain() and tc:IsFaceup() and tc:IsType(TYPE_MONSTER) then
            local lv=gc:GetLevel()
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_UPDATE_LEVEL)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD)
            e1:SetValue(lv)
            tc:RegisterEffect(e1)
            end
            end
            end
            function s.cfilter(c,tp)
            local rm=TYPE_RITUAL|TYPE_MONSTER
            return c:GetPreviousTypeOnField()&rm==rm and c:IsPreviousControler(tp)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return eg:IsExists(s.cfilter,1,nil,tp) and not eg:IsContains(e:GetHandler())
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsRelateToChain() and aux.NecroValleyFilter()(c) then
            Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            script/c101303016.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ハイネス・デーモン
            local s,id,o=GetID()
            function s.initial_effect(c)
            --search
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetCode(EVENT_SUMMON_SUCCESS)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCountLimit(1,id)
            e1:SetCost(s.thcost)
            e1:SetTarget(s.thtg)
            e1:SetOperation(s.thop)
            c:RegisterEffect(e1)
            --spsummon
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e2:SetCode(EVENT_BATTLE_DESTROYED)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetCountLimit(1,id+o)
            e2:SetCondition(s.spcon)
            e2:SetTarget(s.sptg)
            e2:SetOperation(s.spop)
            c:RegisterEffect(e2)
            end
            function s.costfilter(c)
            return c:IsSetCard(0x45) and c:IsAbleToRemoveAsCost()
            end
            function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_GRAVE,0,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
            local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_GRAVE,0,1,1,nil)
            Duel.Remove(g,POS_FACEUP,REASON_COST)
            end
            function s.thfilter(c)
            return not c:IsCode(id) and c:IsSetCard(0x45) 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,2,nil) 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 g and g:GetCount()>1 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local sg=g:Select(tp,2,2,nil)
            Duel.SendtoHand(sg,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,sg)
            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:IsSetCard(0x45) and c:IsLocation(LOCATION_EXTRA)
            end
            function s.cfilter(c,tp)
            local rm=TYPE_RITUAL|TYPE_MONSTER
            return c:GetPreviousTypeOnField()&rm==rm and c:IsPreviousControler(tp)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return eg:IsExists(s.cfilter,1,nil,tp) and not eg:IsContains(e:GetHandler())
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsRelateToChain() and aux.NecroValleyFilter()(c) then
            Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            script/c101303017.lua deleted 100644 → 0
            View file @ 5a65ff59
            --空牙団の疾風 レクス
            local s,id,o=GetID()
            function s.initial_effect(c)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id)
            e1:SetCost(s.spcost)
            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_DRAW)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e2:SetProperty(EFFECT_FLAG_DELAY)
            e2:SetCode(EVENT_TO_HAND)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
            e2:SetCondition(s.drcon)
            e2:SetTarget(s.drtg)
            e2:SetOperation(s.drop)
            c:RegisterEffect(e2)
            end
            function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return not e:GetHandler():IsPublic() end
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0x114) and not c:IsCode(id) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            local c=e:GetHandler()
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1
            and Duel.IsPlayerCanSpecialSummonCount(tp,2)
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
            and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
            if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0
            and c:IsRelateToChain() and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then
            Duel.BreakEffect()
            Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            function s.cfilter(c,tp)
            return c:IsControler(tp) and c:IsPreviousLocation(LOCATION_DECK)
            end
            function s.drcon(e,tp,eg,ep,ev,re,r,rp)
            return eg:IsExists(s.cfilter,1,nil,1-tp) and re and not re:GetHandler():IsSetCard(0x114)
            end
            function s.drfilter(c)
            return c:IsFaceup() and c:IsSetCard(0x114)
            end
            function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
            and Duel.IsExistingMatchingCard(s.drfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end
            Duel.SetTargetPlayer(tp)
            Duel.SetTargetParam(1)
            Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
            end
            function s.drop(e,tp,eg,ep,ev,re,r,rp)
            local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
            Duel.Draw(p,d,REASON_EFFECT)
            end
            script/c101303018.lua deleted 100644 → 0
            View file @ 5a65ff59
            --堕天使グルガルタ
            local s,id,o=GetID()
            function s.initial_effect(c)
            c:SetSPSummonOnce(id)
            --token
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_TOKEN+CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --to hand
            local e2=Effect.CreateEffect(c)
            e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
            e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e2:SetCode(EVENT_TO_GRAVE)
            e2:SetProperty(EFFECT_FLAG_DELAY)
            e2:SetCountLimit(1,id)
            e2:SetTarget(s.thtg)
            e2:SetOperation(s.thop)
            c:RegisterEffect(e2)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
            and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
            and Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0xef,TYPES_TOKEN_MONSTER,0,0,6,RACE_FAIRY,ATTRIBUTE_DARK) end
            Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and not Duel.IsPlayerAffectedByEffect(tp,59822133)
            and Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0xef,TYPES_TOKEN_MONSTER,0,0,6,RACE_FAIRY,ATTRIBUTE_DARK) then
            for i=1,2 do
            local token=Duel.CreateToken(tp,id+o)
            Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
            end
            Duel.SpecialSummonComplete()
            end
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
            e1:SetTargetRange(1,0)
            e1:SetTarget(s.splimit)
            e1:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e1,tp)
            end
            function s.splimit(e,c)
            return not c:IsRace(RACE_FAIRY)
            end
            function s.thfilter(c)
            return (c:IsSetCard(0xef) and not c:IsCode(id)
            or c:IsSetCard(0x11d) and c:IsAllTypes(TYPE_QUICKPLAY+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
            script/c101303019.lua deleted 100644 → 0
            View file @ 5a65ff59
            --堕天使ジェフティ
            local s,id,o=GetID()
            function s.initial_effect(c)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCode(EVENT_SUMMON_SUCCESS)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            local e2=e1:Clone()
            e2:SetCode(EVENT_SPSUMMON_SUCCESS)
            c:RegisterEffect(e2)
            --to hand
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_TOHAND)
            e3:SetType(EFFECT_TYPE_IGNITION)
            e3:SetRange(LOCATION_GRAVE)
            e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e3:SetCountLimit(1,id+o)
            e3:SetCondition(s.thcon)
            e3:SetCost(aux.bfgcost)
            e3:SetTarget(s.thtg)
            e3:SetOperation(s.thop)
            c:RegisterEffect(e3)
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0xef) and not c:IsCode(id)
            and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
            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_DEFENSE)
            end
            end
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
            e1:SetTargetRange(1,0)
            e1:SetTarget(s.splimit)
            e1:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e1,tp)
            end
            function s.splimit(e,c)
            return not c:IsRace(RACE_FAIRY)
            end
            function s.cfilter(c)
            return c:IsFaceup() and c:IsType(TYPE_FUSION) and c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_DARK)
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
            end
            function s.thfilter(c)
            return (c:IsSetCard(0xef)
            or c:IsSetCard(0x11d) and c:IsType(TYPE_QUICKPLAY))
            and c:IsAbleToHand()
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.thfilter(chkc) end
            if chk==0 then return Duel.IsExistingTarget(s.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectTarget(tp,s.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
            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:IsRelateToChain() and aux.NecroValleyFilter()(tc) then
            Duel.SendtoHand(tc,nil,REASON_EFFECT)
            end
            end
            script/c101303020.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ビック・バイパー Type－L
            local s,id,o=GetID()
            function s.initial_effect(c)
            --effect
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE)
            e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e1:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
            e1:SetRange(LOCATION_MZONE)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.spcon)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --Special summon
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
            e2:SetCode(EVENT_DESTROYED)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.sptg2)
            e2:SetOperation(s.spop2)
            c:RegisterEffect(e2)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.GetTurnPlayer()==tp
            end
            function s.spfilter(c,e,tp)
            return c:IsRace(RACE_MACHINE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.tgfilter(c)
            return c:IsLevelBelow(4) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_MACHINE) and c:IsAbleToGrave()
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
            local b2=Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil)
            if chk==0 then return b1 or b2 end
            local op=0
            if b1 or b2 then
            op=aux.SelectFromOptions(tp,
            {b1,aux.Stringid(id,2),1},
            {b2,aux.Stringid(id,3),2})
            end
            e:SetLabel(op)
            if op==1 then
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_SPECIAL_SUMMON)
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
            elseif op==2 then
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_TOGRAVE)
            end
            Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
            end
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            if e:GetLabel()==1 then
            if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            elseif e:GetLabel()==2 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.SendtoGrave(g,REASON_EFFECT)
            end
            end
            end
            function s.spfilter2(c,e,tp)
            return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_MACHINE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.spfilter2(chkc,e,tp) end
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingTarget(s.spfilter2,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectTarget(tp,s.spfilter2,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
            end
            function s.spop2(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and aux.NecroValleyFilter()(tc)
            and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)~=0
            and tc:GetBaseAttack()<=1200 then
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_UPDATE_ATTACK)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetValue(1200)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD)
            tc:RegisterEffect(e1)
            end
            Duel.SpecialSummonComplete()
            end
            script/c101303021.lua deleted 100644 → 0
            View file @ 5a65ff59
            --巨大戦艦 デリンジャー・コア
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,66947414)
            c:EnableCounterPermit(0x1f)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_COUNTER)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id)
            e1:SetCost(s.spcost)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --to hand
            local e2=Effect.CreateEffect(c)
            e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH+CATEGORY_TOHAND)
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_FREE_CHAIN)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id+o)
            e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
            e2:SetCondition(s.thcon)
            e2:SetCost(s.thcost)
            e2:SetTarget(s.thtg)
            e2:SetOperation(s.thop)
            c:RegisterEffect(e2)
            end
            function s.cfilter(c)
            return c:IsSetCard(0x15) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
            end
            function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
            local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND,0,1,1,e:GetHandler())
            Duel.ConfirmCards(1-tp,g)
            Duel.ShuffleHand(tp)
            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:IsRelateToChain()
            and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0
            and c:IsCanAddCounter(0x1f,3) then
            Duel.BreakEffect()
            c:AddCounter(0x1f,3)
            end
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsMainPhase()
            end
            function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1f,1,REASON_COST) end
            e:GetHandler():RemoveCounter(tp,0x1f,1,REASON_COST)
            end
            function s.thfilter(c)
            return (c:IsCode(66947414) or aux.IsCodeOrListed(c,66947414) and c:IsType(TYPE_SPELL+TYPE_TRAP)) and c:IsAbleToHand()
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0x15) and c:IsLevelBelow(9) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            local b1=Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil)
            local b2=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
            if chk==0 then return b1 or b2 end
            local op=0
            if b1 or b2 then
            op=aux.SelectFromOptions(tp,
            {b1,aux.Stringid(id,2),1},
            {b2,aux.Stringid(id,3),2})
            end
            e:SetLabel(op)
            if op==1 then
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
            end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
            elseif op==2 then
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_SPECIAL_SUMMON)
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
            end
            end
            function s.thop(e,tp,eg,ep,ev,re,r,rp)
            if e:GetLabel()==1 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,g)
            end
            elseif e:GetLabel()==2 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            end
            script/c101303022.lua deleted 100644 → 0
            View file @ 5a65ff59
            --超巨大戦艦 メタル・スレイブ
            local s,id,o=GetID()
            function s.initial_effect(c)
            c:EnableCounterPermit(0x1f)
            --spsummon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id)
            e1:SetCost(s.spcost)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            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_FREE_CHAIN)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
            e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
            e2:SetCost(s.descost)
            e2:SetTarget(s.destg)
            e2:SetOperation(s.desop)
            c:RegisterEffect(e2)
            end
            function s.costfilter(c)
            return c:IsSetCard(0x15) and c:IsLevelBelow(10) and c:IsAbleToGraveAsCost()
            end
            function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
            local g=Duel.GetMatchingGroup(s.costfilter,tp,LOCATION_DECK+LOCATION_HAND,0,nil)
            if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local tg=g:SelectSubGroup(tp,aux.dncheck,false,1,5)
            Duel.SendtoGrave(tg,REASON_COST)
            e:SetLabel(tg:GetCount())
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:IsCostChecked()
            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:IsRelateToChain() and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0
            and e:GetLabel()>0 and c:IsCanAddCounter(0x1f,e:GetLabel()) then
            Duel.BreakEffect()
            c:AddCounter(0x1f,e:GetLabel())
            end
            end
            function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1f,1,REASON_COST) end
            e:GetHandler():RemoveCounter(tp,0x1f,1,REASON_COST)
            end
            function s.cfilter(c,e)
            return c:IsFaceup() and c:IsCanBeEffectTarget(e)
            end
            function s.desfilter(c,tp)
            return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsSetCard(0x15) and c:IsControler(tp)
            end
            function s.fselect(g,tp)
            return g:IsExists(s.desfilter,1,nil,tp)
            end
            function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return false end
            local rg=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,e)
            if chk==0 then return rg:CheckSubGroup(s.fselect,2,2,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local sg=rg:SelectSubGroup(tp,s.fselect,false,2,2,tp)
            Duel.SetTargetCard(sg)
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,#sg,0,0)
            end
            function s.desop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Destroy(Duel.GetTargetsRelateToChain(),REASON_EFFECT)
            end
            script/c101303023.lua deleted 100644 → 0
            View file @ 5a65ff59
            --R－ACEクイック・アタッカー
            local s,id,o=GetID()
            function s.initial_effect(c)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id)
            e1:SetCost(s.spcost)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --search
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON)
            e3:SetType(EFFECT_TYPE_IGNITION)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCountLimit(1,id+o)
            e3:SetCost(s.thcost)
            e3:SetTarget(s.thtg)
            e3:SetOperation(s.thop)
            c:RegisterEffect(e3)
            end
            function s.cfilter(c,tp)
            return c:IsSetCard(0x18b) and c:IsFaceupEx() and c:IsAbleToDeckAsCost() and Duel.GetMZoneCount(tp,c)>0
            end
            function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,e:GetHandler(),tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
            local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,1,e:GetHandler(),tp)
            if g:IsExists(Card.IsLocation,1,nil,LOCATION_HAND) then
            Duel.ConfirmCards(1-tp,g)
            end
            if g:IsExists(Card.IsLocation,1,nil,LOCATION_ONFIELD) then
            Duel.HintSelection(g)
            end
            Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_COST)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsRelateToChain() then
            Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:GetHandler():IsReleasable() end
            Duel.Release(e:GetHandler(),REASON_COST)
            end
            function s.thfilter(c)
            return c:IsSetCard(0x18b) and c:IsType(TYPE_MONSTER) 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)
            local tc=g:GetFirst()
            if Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0
            and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
            and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
            and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
            e1:SetTargetRange(1,0)
            e1:SetTarget(s.splimit)
            e1:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e1,tp)
            end
            function s.splimit(e,c)
            return not c:IsAttribute(ATTRIBUTE_FIRE) and c:IsLocation(LOCATION_EXTRA)
            end
            script/c101303024.lua deleted 100644 → 0
            View file @ 5a65ff59
            --白き竜の落胤
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,68468459)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id)
            e1:SetCost(s.spcost)
            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:SetProperty(EFFECT_FLAG_DELAY)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.sptg2)
            e2:SetOperation(s.spop2)
            c:RegisterEffect(e2)
            local e3=e2:Clone()
            e3:SetCode(EVENT_SPSUMMON_SUCCESS)
            c:RegisterEffect(e3)
            end
            function s.costfilter(c)
            return aux.IsCodeListed(c,68468459) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()
            end
            function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_EXTRA,0,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_EXTRA,0,1,1,nil)
            Duel.SendtoGrave(g,REASON_COST)
            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:IsRelateToChain() 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_FUSION+TYPE_SYNCHRO) and c:IsLevel(8)) and c:IsLocation(LOCATION_EXTRA)
            end
            function s.spfilter2(c,e,tp)
            return c:IsSetCard(0x2d7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter2,tp,LOCATION_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.spop2(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter2),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            script/c101303025.lua deleted 100644 → 0
            View file @ 5a65ff59
            --鉄獣の炎工 キット
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,68468459)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.spcon)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --specail summon
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e2:SetProperty(EFFECT_FLAG_DELAY)
            e2:SetCode(EVENT_TO_GRAVE)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.sptg2)
            e2:SetOperation(s.spop2)
            c:RegisterEffect(e2)
            end
            function s.cfilter(c)
            return c:IsSetCard(0x14d,0x155) and c:IsFaceup() and not c:IsCode(id)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            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:IsRelateToChain() then
            Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            function s.spfilter(c,e,tp)
            return not c:IsCode(id)
            and (c:IsSetCard(0x14d,0x155) or aux.IsCodeOrListed(c,68468459))
            and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
            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_GRAVE,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
            end
            function s.spop2(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
            end
            end
            script/c101303026.lua deleted 100644 → 0
            View file @ 5a65ff59
            --蒼穹を睨めるダーク
            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_FIELD+EFFECT_TYPE_TRIGGER_O)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetRange(LOCATION_GRAVE)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.spcon)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --disable
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_CHAINING)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id+o)
            e2:SetCondition(s.discon)
            e2:SetCost(s.discost)
            e2:SetTarget(s.distg)
            e2:SetOperation(s.disop)
            c:RegisterEffect(e2)
            --to grave
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
            e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e3:SetCode(EVENT_REMOVE)
            e3:SetOperation(s.regop)
            c:RegisterEffect(e3)
            local e4=Effect.CreateEffect(c)
            e4:SetDescription(aux.Stringid(id,2))
            e4:SetCategory(CATEGORY_TOGRAVE)
            e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e4:SetCode(EVENT_PHASE+PHASE_END)
            e4:SetRange(LOCATION_REMOVED)
            e4:SetCountLimit(1,id+o*2)
            e4:SetCondition(s.tgcon)
            e4:SetTarget(s.tgtg)
            e4:SetOperation(s.tgop)
            c:RegisterEffect(e4)
            end
            function s.cfilter(c,tp)
            local typ,se,sp=c:GetSpecialSummonInfo(SUMMON_INFO_TYPE,SUMMON_INFO_REASON_EFFECT,SUMMON_INFO_REASON_PLAYER)
            return se and typ&TYPE_MONSTER~=0 and se:IsActivated() and sp==1-tp
            and c:IsSummonLocation(LOCATION_DECK+LOCATION_EXTRA)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return eg:IsExists(s.cfilter,1,nil,tp)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            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:IsRelateToChain() and aux.NecroValleyFilter()(c) then
            Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            function s.discon(e,tp,eg,ep,ev,re,r,rp)
            return re:IsHasCategory(CATEGORY_SPECIAL_SUMMON) and Duel.IsChainDisablable(ev)
            and re:IsActiveType(TYPE_MONSTER)
            end
            function s.discost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
            local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
            Duel.Remove(g,POS_FACEUP,REASON_COST)
            end
            function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return true end
            Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
            if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
            end
            end
            function s.disop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToChain(ev) then
            Duel.Destroy(eg,REASON_EFFECT)
            end
            end
            function s.regop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
            end
            function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():GetFlagEffect(id)>0
            end
            function s.tgfilter(c)
            return c:IsFaceup() and c:IsType(TYPE_MONSTER)
            end
            function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_REMOVED,0,1,e:GetHandler()) end
            end
            function s.tgop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_REMOVED,0,1,1,aux.ExceptThisCard(e))
            if g:GetCount()>0 then
            Duel.SendtoGrave(g,REASON_EFFECT+REASON_RETURN)
            end
            end
            script/c101303027.lua deleted 100644 → 0
            View file @ 5a65ff59
            --天雷ノ双風神 シーナ
            local s,id,o=GetID()
            function s.initial_effect(c)
            --spsummon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
            e1:SetType(EFFECT_TYPE_QUICK_O)
            e1:SetCode(EVENT_CHAINING)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.spcon)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --battle indes
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
            e2:SetCountLimit(1)
            e2:SetValue(s.valcon)
            c:RegisterEffect(e2)
            end
            function s.cfilter(c)
            return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WIND)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return rp==1-tp
            and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
            end
            function s.thfilter(c,res)
            if c:IsCode(id) and c:IsLocation(LOCATION_MZONE) then return false end
            return (res and c:IsFaceup() and c:IsType(TYPE_MONSTER)
            or not res and c:IsType(TYPE_SPELL+TYPE_TRAP)) and c:IsAbleToHand()
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            local c=e:GetHandler()
            local res=re:IsActiveType(TYPE_MONSTER)
            if chk==0 then
            return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,res)
            end
            local g=Duel.GetMatchingGroup(s.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,res)
            if res then
            e:SetLabel(1)
            else
            e:SetLabel(0)
            end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsRelateToChain() and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
            local res=false
            if e:GetLabel()==1 then res=true end
            local g=Duel.GetMatchingGroup(s.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,res)
            if g:GetCount()>0 then
            Duel.BreakEffect()
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            end
            end
            end
            function s.valcon(e,re,r,rp)
            return bit.band(r,REASON_BATTLE)~=0
            end
            script/c101303028.lua deleted 100644 → 0
            View file @ 5a65ff59
            --スレット・アームド・ドラゴン
            local s,id,o=GetID()
            function s.initial_effect(c)
            --spsummon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY)
            e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_GRAVE)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --destroy
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_MZONE)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetCountLimit(1,id+o)
            e2:SetCost(s.descost)
            e2:SetTarget(s.destg)
            e2:SetOperation(s.desop)
            c:RegisterEffect(e2)
            end
            function s.desfilter(c,tp)
            return c:IsFaceup() and Duel.GetMZoneCount(tp,c)>0
            and c:IsRace(RACE_DRAGON)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            local c=e:GetHandler()
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.desfilter(chkc,tp) end
            if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            and Duel.IsExistingTarget(s.desfilter,tp,LOCATION_MZONE,0,1,nil,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local g=Duel.SelectTarget(tp,s.desfilter,tp,LOCATION_MZONE,0,1,1,nil,tp)
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and tc:IsType(TYPE_MONSTER) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
            if c:IsRelateToChain() and aux.NecroValleyFilter()(c) then
            Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            end
            function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
            Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
            end
            function s.desfilter2(c)
            return c:IsFaceup() and c:IsAttackBelow(2400)
            end
            function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_MZONE)
            and s.desfilter2(chkc) end
            if chk==0 then return Duel.IsExistingTarget(s.desfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local g=Duel.SelectTarget(tp,s.desfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
            end
            function s.spfilter(c,e,tp,tc)
            return c:IsRace(RACE_DRAGON) and c:GetOriginalLevel()==tc:GetOriginalLevel()+2 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.desop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain()
            and tc:IsType(TYPE_MONSTER)
            and Duel.Destroy(tc,REASON_EFFECT)~=0
            and tc:IsPreviousControler(tp)
            and tc:GetOriginalLevel()>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp,tc)
            and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp,tc)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            end
            script/c101303029.lua deleted 100644 → 0
            View file @ 5a65ff59
            --WAKE CUP！ アル
            local s,id,o=GetID()
            function s.initial_effect(c)
            --spsummon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --flip
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_TOGRAVE)
            e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O)
            e2:SetProperty(EFFECT_FLAG_DELAY)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.tgtg)
            e2:SetOperation(s.tgop)
            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_FIELD+EFFECT_TYPE_TRIGGER_O)
            e3:SetCode(EVENT_PHASE+PHASE_END)
            e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCountLimit(1,id+o*2)
            e3:SetCondition(s.spcon2)
            e3:SetTarget(s.sptg2)
            e3:SetOperation(s.spop2)
            c:RegisterEffect(e3)
            end
            function s.dfilter(c)
            return c:IsType(TYPE_FLIP) and c:IsDiscardable(REASON_EFFECT)
            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.dfilter,tp,LOCATION_HAND,0,1,e:GetHandler())
            and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)
            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()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
            local tc=Duel.SelectMatchingCard(tp,s.dfilter,tp,LOCATION_HAND,0,1,1,aux.ExceptThisCard(e))
            if tc and Duel.SendtoGrave(tc,REASON_EFFECT+REASON_DISCARD)>0 and c:IsRelateToChain() then
            Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)
            end
            end
            function s.tgfilter(c)
            return c:IsFaceup() and c:IsAbleToGrave()
            end
            function s.cfilter(c)
            return c:IsFaceup() and c:IsType(TYPE_FLIP)
            end
            function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
            local ct=Duel.GetMatchingGroupCount(s.cfilter,tp,LOCATION_MZONE,0,nil)
            if chk==0 then return ct>0 and Duel.IsExistingMatchingCard(s.tgfilter,tp,0,LOCATION_ONFIELD,1,nil) end
            local g=Duel.GetMatchingGroup(s.tgfilter,tp,0,LOCATION_ONFIELD,nil)
            Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
            end
            function s.tgop(e,tp,eg,ep,ev,re,r,rp)
            local ct=Duel.GetMatchingGroupCount(s.cfilter,tp,LOCATION_MZONE,0,nil)
            if ct==0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,0,LOCATION_ONFIELD,1,ct,nil)
            if g:GetCount()>0 then
            Duel.HintSelection(g)
            Duel.SendtoGrave(g,REASON_EFFECT)
            end
            end
            function s.spcon2(e,tp,eg,ep,ev,re,r,rp)
            return Duel.GetTurnPlayer()==tp
            end
            function s.spfilter(c,e,tp)
            return c:IsType(TYPE_FLIP) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
            end
            function s.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.spfilter(chkc,e,tp) end
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
            end
            function s.spop2(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and aux.NecroValleyFilter()(tc) then
            Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
            end
            end
            script/c101303030.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ファースト・ペンギン
            local s,id,o=GetID()
            function s.initial_effect(c)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
            e1:SetCode(EFFECT_SPSUMMON_PROC)
            e1:SetRange(LOCATION_HAND)
            e1:SetCondition(s.sprcon)
            e1:SetOperation(s.sprop)
            c:RegisterEffect(e1)
            --tohand
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_POSITION)
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id)
            e2:SetCost(s.thcost)
            e2:SetTarget(s.thtg)
            e2:SetOperation(s.thop)
            c:RegisterEffect(e2)
            end
            function s.sprcon(e,c)
            if c==nil then return true end
            local tp=c:GetControler()
            return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and not Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil)
            end
            function s.sprop(e,tp,eg,ep,ev,re,r,rp,c)
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetCode(EFFECT_ADD_TYPE)
            e1:SetValue(TYPE_TUNER)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
            c:RegisterEffect(e1)
            end
            function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_EXTRA,0,1,nil,tp)
            and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
            local exg=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_EXTRA,0,nil,tp)
            Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
            local tc=exg:Select(tp,1,1,nil):GetFirst()
            Duel.ConfirmCards(1-tp,tc)
            e:SetLabel(tc:GetLevel()-1,tc:GetRace())
            end
            function s.cfilter(c,tp)
            return c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_WATER) and c:IsLevelAbove(2)
            and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil,c:GetLevel()-1,c:GetRace())
            end
            function s.thfilter(c,level,race)
            return c:IsLevel(level) and c:IsRace(race) and c:IsType(TYPE_MONSTER)
            and c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToHand()
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:IsCostChecked() 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()
            local lv,race=e:GetLabel()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil,lv,race)
            local tc=g:GetFirst()
            if tc then
            Duel.SendtoHand(tc,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,tc)
            if tc:IsLocation(LOCATION_HAND) and c:IsRelateToChain() and c:IsFaceup() and c:IsType(TYPE_MONSTER)
            and c:IsCanTurnSet() and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE)
            end
            end
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
            e1:SetTargetRange(1,0)
            e1:SetTarget(s.splimit)
            e1:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e1,tp)
            end
            function s.splimit(e,c)
            return not c:IsAttribute(ATTRIBUTE_WATER) and c:IsLocation(LOCATION_EXTRA)
            end
            script/c101303031.lua deleted 100644 → 0
            View file @ 5a65ff59
            --デス・エンペラー・デーモン
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,101303059)
            c:EnableReviveLimit()
            --pendulum summon
            aux.EnablePendulumAttribute(c)
            --spsummon condition
            local e0=Effect.CreateEffect(c)
            e0:SetType(EFFECT_TYPE_SINGLE)
            e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
            e0:SetCode(EFFECT_SPSUMMON_CONDITION)
            e0:SetValue(aux.ritlimit)
            c:RegisterEffect(e0)
            --Destroy spell & trap
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_DESTROY)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_PZONE)
            e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.destg)
            e1:SetOperation(s.desop)
            c:RegisterEffect(e1)
            --remove
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_REMOVE)
            e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e2:SetCode(EVENT_SPSUMMON_SUCCESS)
            e2:SetProperty(EFFECT_FLAG_DELAY)
            e2:SetCountLimit(1,id+o)
            e2:SetCondition(s.rmcon)
            e2:SetTarget(s.rmtg)
            e2:SetOperation(s.rmop)
            c:RegisterEffect(e2)
            --immune
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_SINGLE)
            e3:SetCode(EFFECT_IMMUNE_EFFECT)
            e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCondition(s.econ)
            e3:SetValue(s.efilter)
            c:RegisterEffect(e3)
            --spsummon
            local e4=Effect.CreateEffect(c)
            e4:SetDescription(aux.Stringid(id,2))
            e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e4:SetType(EFFECT_TYPE_IGNITION)
            e4:SetRange(LOCATION_MZONE)
            e4:SetCountLimit(1,id+o*2)
            e4:SetCondition(s.econ)
            e4:SetTarget(s.sptg)
            e4:SetOperation(s.spop)
            c:RegisterEffect(e4)
            end
            function s.filter1(c)
            return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP)
            end
            function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsOnField() and s.filter1(chkc) and chkc~=e:GetHandler() end
            if chk==0 then return e:GetHandler():IsDestructable()
            and Duel.IsExistingTarget(s.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local g=Duel.SelectTarget(tp,s.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
            g:AddCard(e:GetHandler())
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0)
            end
            function s.desop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() then
            Duel.Destroy(Group.FromCards(tc,e:GetHandler()),REASON_EFFECT)
            end
            end
            function s.rmcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsSummonLocation(LOCATION_EXTRA)
            and e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL)
            end
            function s.rmfilter(c)
            return c:GetSequence()<5 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_MZONE,LOCATION_MZONE,1,nil) end
            local g=Duel.GetMatchingGroup(s.rmfilter,tp,LOCATION_MZONE,LOCATION_MZONE,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.GetMatchingGroup(s.rmfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
            if g:GetCount()>0 then
            Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
            end
            end
            function s.econ(e)
            return e:GetHandler():GetSequence()>4
            end
            function s.efilter(e,te)
            return te:IsActiveType(TYPE_MONSTER) and te:GetOwner()~=e:GetOwner()
            end
            function s.spfilter(c,e,tp)
            return c:IsFaceupEx() and c:IsRace(RACE_FIEND)
            and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
            if #g>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            script/c101303033.lua deleted 100644 → 0
            View file @ 5a65ff59
            --DDD聖賢王アルフレッド
            local s,id,o=GetID()
            function s.initial_effect(c)
            --fusion material
            aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0xaf),2,true)
            c:EnableReviveLimit()
            --fusion
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON+CATEGORY_TODECK)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_MZONE)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --place
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e2:SetCode(EVENT_REMOVE)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.tftg)
            e2:SetOperation(s.tfop)
            c:RegisterEffect(e2)
            end
            function s.spfilter1(c,e)
            return (c:IsLocation(LOCATION_MZONE) or c:IsFaceupEx() and c:GetOriginalType()&TYPE_MONSTER~=0)
            and c:IsCanBeFusionMaterial() and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
            end
            function s.spfilter2(c,e,tp,m,f,chkf)
            return c:IsType(TYPE_FUSION) and c:IsSetCard(0x10af) and (not f or f(c))
            and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then
            local chkf=tp
            local mg1=Duel.GetMatchingGroup(s.spfilter1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_REMOVED,0,nil,e)
            local res=Duel.IsExistingMatchingCard(s.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
            if not res then
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            local mg2=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            res=Duel.IsExistingMatchingCard(s.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
            end
            end
            return res
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
            Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_MZONE+LOCATION_HAND+LOCATION_REMOVED)
            end
            function s.cfilter(c)
            return c:IsFacedown() or c:IsLocation(LOCATION_HAND)
            end
            function s.hfilter(c)
            return c:IsLocation(LOCATION_REMOVED) or (c:IsLocation(LOCATION_MZONE) and c:IsFaceup())
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local chkf=tp
            local mg1=Duel.GetMatchingGroup(s.spfilter1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_REMOVED,0,nil,e)
            local sg1=Duel.GetMatchingGroup(s.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
            local mg2=nil
            local sg2=nil
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            mg2=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            sg2=Duel.GetMatchingGroup(s.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
            end
            if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
            local sg=sg1:Clone()
            if sg2 then sg:Merge(sg2) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local tg=sg:Select(tp,1,1,nil)
            local tc=tg:GetFirst()
            if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or ce and not Duel.SelectYesNo(tp,ce:GetDescription())) then
            local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
            tc:SetMaterial(mat1)
            if mat1:IsExists(s.cfilter,1,nil) then
            local cg=mat1:Filter(s.cfilter,nil)
            Duel.ConfirmCards(1-tp,cg)
            end
            if mat1:IsExists(s.hfilter,1,nil) then
            local cg=mat1:Filter(s.hfilter,nil)
            Duel.HintSelection(cg)
            end
            Duel.SendtoDeck(mat1,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
            Duel.BreakEffect()
            Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
            elseif ce then
            local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
            local fop=ce:GetOperation()
            fop(ce,e,tp,tc,mat2)
            end
            tc:CompleteProcedure()
            end
            end
            function s.tffilter(c,tp)
            return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS) and c:IsSetCard(0xae) and not c:IsForbidden() and c:CheckUniqueOnField(tp)
            end
            function s.mfilter(c)
            return c:IsFaceup() and c:IsSetCard(0x10af)
            end
            function s.tftg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and s.tffilter(chkc,tp) end
            local count1=Duel.GetTargetCount(s.tffilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil,tp)
            local count2=Duel.GetMatchingGroupCount(s.mfilter,tp,LOCATION_MZONE,0,nil)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and count1>0 and count2>0 end
            local ct=math.min((Duel.GetLocationCount(tp,LOCATION_SZONE)),count1,count2)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
            local g=Duel.SelectTarget(tp,s.tffilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,ct,nil,tp)
            local gg=g:Filter(Card.IsLocation,nil,LOCATION_GRAVE)
            if gg:GetCount()>0 then
            Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,gg,gg:GetCount(),0,0)
            end
            end
            function s.tfop(e,tp,eg,ep,ev,re,r,rp)
            local g=Duel.GetTargetsRelateToChain()
            local ct=math.min(g:GetCount(),Duel.GetLocationCount(tp,LOCATION_SZONE))
            local pg=g
            if ct<=0 then
            pg=Group.CreateGroup()
            elseif g:GetCount()>ct then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
            pg=g:Select(tp,ct,ct,nil)
            g:Sub(pg)
            else
            g=Group.CreateGroup()
            end
            for tc in aux.Next(pg) do
            Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
            end
            local sg=g:Filter(Card.IsLocation,nil,LOCATION_REMOVED)
            if sg:GetCount()>0 then
            Duel.SendtoGrave(sg,REASON_RULE)
            end
            end
            script/c101303034.lua deleted 100644 → 0
            View file @ 5a65ff59
            --超電導戦騎プラズマ・マグナム
            local s,id,o=GetID()
            function s.initial_effect(c)
            --material
            aux.AddFusionProcFunRep(c,s.matfilter,2,true)
            c:EnableReviveLimit()
            --search
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.thcon)
            e1:SetTarget(s.thtg)
            e1:SetOperation(s.thop)
            c:RegisterEffect(e1)
            --attribute
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetCode(EFFECT_CHANGE_ATTRIBUTE)
            e2:SetRange(LOCATION_MZONE)
            e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
            e2:SetValue(ATTRIBUTE_EARTH)
            c:RegisterEffect(e2)
            --summon
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_SUMMON)
            e3:SetType(EFFECT_TYPE_IGNITION)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCountLimit(1,id+o)
            e3:SetCost(s.sumcost)
            e3:SetTarget(s.sumtg)
            e3:SetOperation(s.sumop)
            c:RegisterEffect(e3)
            end
            function s.matfilter(c)
            return c:IsFusionAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_ROCK)
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
            end
            function s.thfilter(c)
            return c:IsSetCard(0x2da) and (c:GetType()==TYPE_SPELL or c:IsType(TYPE_QUICKPLAY+TYPE_FIELD)) and c:IsAbleToHand()
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
            end
            function s.thop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,g)
            end
            end
            function s.cfilter(c)
            return c:IsSetCard(0xe9) and c:IsLevel(8) and c:IsAbleToGraveAsCost()
            end
            function s.sumcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_DECK,0,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_DECK,0,1,1,nil)
            Duel.SendtoGrave(g,REASON_COST)
            end
            function s.sumfilter(c)
            return c:IsSetCard(0x2066) and c:IsLevelBelow(4) and c:IsSummonable(true,nil)
            end
            function s.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
            end
            function s.sumop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
            local tc=Duel.SelectMatchingCard(tp,s.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil):GetFirst()
            if tc then
            Duel.Summon(tp,tc,true,nil)
            end
            end
            script/c101303035.lua deleted 100644 → 0
            View file @ 5a65ff59
            --神芸なる知恵の乙女
            local s,id,o=GetID()
            function s.initial_effect(c)
            c:EnableReviveLimit()
            aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x1cd),2,true)
            --splimit
            local e0=Effect.CreateEffect(c)
            e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
            e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e0:SetCode(EVENT_SPSUMMON_SUCCESS)
            e0:SetCondition(s.condition)
            e0:SetOperation(s.regop)
            c:RegisterEffect(e0)
            --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(s.splimit)
            c:RegisterEffect(e2)
            --summon process
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_FIELD)
            e3:SetCode(EFFECT_SPSUMMON_PROC)
            e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
            e3:SetRange(LOCATION_EXTRA)
            e3:SetCondition(s.spcon)
            e3:SetTarget(s.sptg)
            e3:SetOperation(s.spop)
            c:RegisterEffect(e3)
            --set
            local e4=Effect.CreateEffect(c)
            e4:SetDescription(aux.Stringid(id,0))
            e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e4:SetCode(EVENT_SPSUMMON_SUCCESS)
            e4:SetProperty(EFFECT_FLAG_DELAY)
            e4:SetTarget(s.settg)
            e4:SetOperation(s.setop)
            c:RegisterEffect(e4)
            --fusion summon
            local e5=Effect.CreateEffect(c)
            e5:SetDescription(aux.Stringid(id,1))
            e5:SetCategory(CATEGORY_FUSION_SUMMON+CATEGORY_SPECIAL_SUMMON)
            e5:SetType(EFFECT_TYPE_QUICK_O)
            e5:SetCode(EVENT_FREE_CHAIN)
            e5:SetRange(LOCATION_MZONE)
            e5:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
            e5:SetCountLimit(1)
            e5:SetCondition(s.fspcon)
            e5:SetTarget(s.fsptg)
            e5:SetOperation(s.fspop)
            c:RegisterEffect(e5)
            end
            function s.getrg(tp,sc)
            local rg=Duel.GetReleaseGroup(tp,true,REASON_SPSUMMON)
            local mrg=rg:Filter(Card.IsHasEffect,nil,EFFECT_EXTRA_RELEASE)
            if mrg:GetCount()>0 then
            return mrg:Filter(s.spfilter,nil,tp,sc)
            else
            return rg:Filter(s.spfilter,nil,tp,sc)
            end
            end
            function s.splimit(e,se,sp,st)
            return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION and Duel.GetFlagEffect(sp,id)==0
            end
            function s.condition(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            return c:IsSummonType(SUMMON_TYPE_FUSION) or c:GetFlagEffect(id)>0
            end
            function s.regop(e,tp,eg,ep,ev,re,r,rp)
            Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
            end
            function s.spfilter(c,tp,sc)
            return c:IsFusionSetCard(0x1cd) and c:IsLevelAbove(7) and Duel.GetLocationCountFromEx(tp,tp,c,sc)>0 and (c:IsControler(tp) or c:IsFaceup())
            end
            function s.cfilter(c)
            return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDiscardable(REASON_SPSUMMON)
            end
            function s.spcon(e,c)
            if c==nil then return true end
            local tp=c:GetControler()
            if Duel.GetFlagEffect(tp,id)>0 then return false end
            local rg=s.getrg(tp,c)
            return rg:GetCount()>0 and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND,0,1,nil)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
            local g=s.getrg(tp,c)
            local g2=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_HAND,0,nil)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
            local tc=g2:SelectUnselect(nil,tp,false,true,1,1)
            if tc then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
            local tc2=g:SelectUnselect(nil,tp,false,true,1,1)
            if tc2 then
            local sg=Group.FromCards(tc,tc2)
            sg:KeepAlive()
            e:SetLabelObject(sg)
            return true
            end
            end
            return false
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
            e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD+RESET_PHASE+PHASE_END,0,1)
            local g=e:GetLabelObject()
            local hg=g:Filter(Card.IsLocation,nil,LOCATION_HAND)
            g:Sub(hg)
            Duel.SendtoGrave(hg,REASON_SPSUMMON+REASON_DISCARD)
            Duel.Release(g,REASON_SPSUMMON)
            g:DeleteGroup()
            end
            function s.setfilter(c)
            return c:IsSetCard(0x1cd) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
            end
            function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil) end
            Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
            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)
            local tc=g:GetFirst()
            if tc then
            Duel.SSet(tp,tc)
            end
            end
            function s.fspcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.GetTurnPlayer()==1-tp
            end
            function s.filter1(c,e)
            return not c:IsImmuneToEffect(e) and c:IsOnField()
            end
            function s.filter2(c,e,tp,m,f,chkf)
            return c:IsType(TYPE_FUSION) and (not f or f(c))
            and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
            end
            function s.fsptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then
            local chkf=tp
            local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsOnField,nil)
            local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
            if not res then
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            local mg2=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
            end
            end
            return res
            end
            Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
            end
            function s.fspop(e,tp,eg,ep,ev,re,r,rp)
            local chkf=tp
            local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
            local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
            local mg2=nil
            local sg2=nil
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            mg2=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
            end
            if #sg1>0 or (sg2~=nil and #sg2>0) then
            local sg=sg1:Clone()
            if sg2 then sg:Merge(sg2) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local tg=sg:Select(tp,1,1,nil)
            local tc=tg:GetFirst()
            if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or ce and not Duel.SelectYesNo(tp,ce:GetDescription())) then
            local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
            tc:SetMaterial(mat1)
            Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
            Duel.BreakEffect()
            Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
            elseif ce then
            local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
            local fop=ce:GetOperation()
            fop(ce,e,tp,tc,mat2)
            end
            tc:CompleteProcedure()
            end
            end
            script/c101303036.lua deleted 100644 → 0
            View file @ 5a65ff59
            --黄昏の堕天使ルシファー
            local s,id,o=GetID()
            function s.initial_effect(c)
            --material
            aux.AddFusionProcFunRep(c,s.matfilter,2,true)
            c:EnableReviveLimit()
            --set
            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:SetCountLimit(1,id)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCondition(s.setcon)
            e1:SetTarget(s.settg)
            e1:SetOperation(s.setop)
            c:RegisterEffect(e1)
            --cannot target
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
            e2:SetRange(LOCATION_MZONE)
            e2:SetValue(aux.tgoval)
            c:RegisterEffect(e2)
            --copy effect
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_TODECK)
            e3:SetType(EFFECT_TYPE_QUICK_O)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCode(EVENT_FREE_CHAIN)
            e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
            e3:SetCountLimit(1,id+o)
            e3:SetCost(s.cpcost)
            e3:SetTarget(s.cptg)
            e3:SetOperation(s.cpop)
            c:RegisterEffect(e3)
            end
            function s.matfilter(c)
            return c:IsFusionAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_FAIRY) and c:IsLevelAbove(6)
            end
            function s.setcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
            end
            function s.setfilter(c,tp)
            return c:IsSetCard(0xef) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
            end
            function s.gcheck(sg,tp)
            return sg:IsExists(s.setfilter1,1,nil,tp) and sg:IsExists(s.setfilter2,1,nil,tp)
            end
            function s.setfilter1(c,tp)
            return c:IsSetCard(0xef) and c:IsType(TYPE_SPELL) and c:IsSSetable()
            and (Duel.GetLocationCount(tp,LOCATION_SZONE)>1
            or Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:IsType(TYPE_FIELD))
            end
            function s.setfilter2(c)
            return c:IsSetCard(0xef) and c:IsType(TYPE_TRAP) and c:IsSSetable()
            end
            function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
            local sg=Duel.GetMatchingGroup(s.setfilter,tp,LOCATION_DECK,0,nil,tp)
            if chk==0 then return sg:CheckSubGroup(s.gcheck,2,2,tp) end
            end
            function s.setop(e,tp,eg,ep,ev,re,r,rp)
            local sg=Duel.GetMatchingGroup(s.setfilter,tp,LOCATION_DECK,0,nil,tp)
            if not sg:CheckSubGroup(s.gcheck,2,2,tp) then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
            local g=sg:SelectSubGroup(tp,s.gcheck,false,2,2,tp)
            if g:GetCount()==2 then
            Duel.SSet(tp,g)
            end
            end
            function s.cpcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.CheckLPCost(tp,1000) end
            Duel.PayLPCost(tp,1000)
            end
            function s.cpfilter(c)
            return c:IsSetCard(0xef) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck() and c:CheckActivateEffect(false,true,false)~=nil
            end
            function s.cptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then
            local te=e:GetLabelObject()
            local tg=te:GetTarget()
            return tg and tg(e,tp,eg,ep,ev,re,r,rp,0,chkc)
            end
            if chk==0 then return Duel.IsExistingTarget(s.cpfilter,tp,LOCATION_GRAVE,0,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
            local g=Duel.SelectTarget(tp,s.cpfilter,tp,LOCATION_GRAVE,0,1,1,nil)
            local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true)
            Duel.ClearTargetCard()
            g:GetFirst():CreateEffectRelation(e)
            local tg=te:GetTarget()
            if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end
            te:SetLabelObject(e:GetLabelObject())
            e:SetLabelObject(te)
            Duel.ClearOperationInfo(0)
            Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
            end
            function s.cpop(e,tp,eg,ep,ev,re,r,rp)
            local te=e:GetLabelObject()
            if not te then return end
            if not te:GetHandler():IsRelateToChain() then return end
            e:SetLabelObject(te:GetLabelObject())
            local op=te:GetOperation()
            if op then op(e,tp,eg,ep,ev,re,r,rp) end
            Duel.BreakEffect()
            Duel.SendtoDeck(te:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
            end
            script/c101303037.lua deleted 100644 → 0
            View file @ 5a65ff59
            --星辰鋏竜シャウラス
            local s,id,o=GetID()
            function s.initial_effect(c)
            --fusion material
            aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x1c9),aux.FilterBoolFunction(Card.IsLocation,LOCATION_HAND),true)
            c:EnableReviveLimit()
            --to deck
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_TODECK)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetRange(LOCATION_MZONE)
            e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.tdtg)
            e1:SetOperation(s.tdop)
            c:RegisterEffect(e1)
            --special summon
            local custom_code=s.RegisterMergedEvent_ToSingleCard(c,id,EVENT_TO_GRAVE)
            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(custom_code)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetProperty(EFFECT_FLAG_DELAY)
            e2:SetCountLimit(1,id+o)
            e2:SetCondition(s.spcon)
            e2:SetTarget(s.sptg)
            e2:SetOperation(s.spop)
            c:RegisterEffect(e2)
            end
            function s.RegisterMergedEvent_ToSingleCard(c,code,events)
            local g=Group.CreateGroup()
            g:KeepAlive()
            local mt=getmetatable(c)
            local seed=0
            if type(events) == "table" then
            for _, event in ipairs(events) do
            seed = seed + event
            end
            else
            seed = events
            end
            while(mt[seed]==true) do
            seed = seed + 1
            end
            mt[seed]=true
            local event_code_single = (code ~ (seed << 16)) | EVENT_CUSTOM
            if type(events) == "table" then
            for _, event in ipairs(events) do
            s.RegisterMergedEvent_ToSingleCard_AddOperation(c,g,event,event_code_single)
            end
            else
            s.RegisterMergedEvent_ToSingleCard_AddOperation(c,g,events,event_code_single)
            end
            --listened to again
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
            e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
            e3:SetCode(EVENT_MOVE)
            e3:SetLabelObject(g)
            e3:SetOperation(s.ThisCardMovedToPublicResetCheck_ToSingleCard)
            c:RegisterEffect(e3)
            return event_code_single
            end
            function s.RegisterMergedEvent_ToSingleCard_AddOperation(c,g,event,event_code_single)
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
            e1:SetCode(event)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
            e1:SetRange(0xff)
            e1:SetLabel(event_code_single)
            e1:SetLabelObject(g)
            e1:SetOperation(s.MergedDelayEventCheck1_ToSingleCard)
            c:RegisterEffect(e1)
            local ec={
            EVENT_CHAIN_ACTIVATING,
            EVENT_CHAINING,
            EVENT_ATTACK_ANNOUNCE,
            EVENT_BREAK_EFFECT,
            EVENT_CHAIN_SOLVING,
            EVENT_CHAIN_SOLVED,
            EVENT_CHAIN_END,
            EVENT_SUMMON,
            EVENT_SPSUMMON,
            EVENT_MSET,
            EVENT_BATTLE_DESTROYED
            }
            for _,code in ipairs(ec) do
            local ce=e1:Clone()
            ce:SetCode(code)
            ce:SetOperation(s.MergedDelayEventCheck2_ToSingleCard)
            c:RegisterEffect(ce)
            end
            end
            function s.MergedDelayEventCheck1_ToSingleCard(e,tp,eg,ep,ev,re,r,rp)
            local g=e:GetLabelObject()
            local c=e:GetOwner()
            g:Merge(eg)
            if Duel.CheckEvent(EVENT_MOVE) then
            local _,meg=Duel.CheckEvent(EVENT_MOVE,true)
            if meg:IsContains(c) and (c:IsFaceup() or c:IsPublic()) then
            g:Clear()
            end
            end
            if Duel.GetCurrentChain()==0 and #g>0 and g:IsExists(Card.IsReason,1,nil,REASON_ADJUST|REASON_EFFECT) then
            local _eg=g:Clone()
            Duel.RaiseEvent(_eg,e:GetLabel(),re,r,rp,ep,ev)
            g:Clear()
            end
            end
            function s.MergedDelayEventCheck2_ToSingleCard(e,tp,eg,ep,ev,re,r,rp)
            local g=e:GetLabelObject()
            if Duel.CheckEvent(EVENT_MOVE) then
            local _,meg=Duel.CheckEvent(EVENT_MOVE,true)
            local c=e:GetOwner()
            if meg:IsContains(c) and (c:IsFaceup() or c:IsPublic()) then
            g:Clear()
            end
            end
            if #g>0 then
            local _eg=g:Clone()
            Duel.RaiseEvent(_eg,e:GetLabel(),re,r,rp,ep,ev)
            g:Clear()
            end
            end
            function s.ThisCardMovedToPublicResetCheck_ToSingleCard(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetOwner()
            local g=e:GetLabelObject()
            if c:IsFaceup() or c:IsPublic() then
            g:Clear()
            end
            end
            function s.tdfilter1(c,e)
            return c:IsSetCard(0x1c9) and c:IsCanBeEffectTarget(e) and c:IsAbleToDeck()
            end
            function s.typefilter(c,ec)
            return (c:GetType()&ec:GetType())&(TYPE_MONSTER+TYPE_SPELL+TYPE_TRAP)~=0
            end
            function s.tdfilter2(c,g)
            return c:IsFaceup() and g:IsExists(s.typefilter,1,nil,c) and c:IsAbleToDeck()
            end
            function s.gcheck(g,tp)
            return Duel.IsExistingTarget(s.tdfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,g)
            end
            function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            local g=Duel.GetMatchingGroup(s.tdfilter1,tp,LOCATION_GRAVE,0,nil,e)
            if chkc then return false end
            if chk==0 then return g:CheckSubGroup(s.gcheck,2,2,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
            local sg=g:SelectSubGroup(tp,s.gcheck,false,2,2,tp)
            Duel.SetTargetCard(sg)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
            local tg=Duel.SelectTarget(tp,s.tdfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,sg)
            sg:Merge(tg)
            Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,3,0,0)
            end
            function s.tdop(e,tp,eg,ep,ev,re,r,rp)
            local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(aux.NecroValleyFilter(Card.IsRelateToChain),nil)
            if g:GetCount()~=3 then return end
            Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return eg:IsExists(Card.IsType,2,nil,TYPE_MONSTER) and not eg:IsContains(e:GetHandler())
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsRelateToEffect(e) and aux.NecroValleyFilter()(c)
            and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
            e1:SetValue(LOCATION_REMOVED)
            c:RegisterEffect(e1,true)
            end
            end
            script/c101303038.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ナイトウィング・プリースト
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,80280737)
            --Synchro summon
            aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
            c:EnableReviveLimit()
            --set
            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.settg)
            e1:SetOperation(s.setop)
            c:RegisterEffect(e1)
            --search
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id+o)
            e2:SetCost(s.thcost)
            e2:SetTarget(s.thtg)
            e2:SetOperation(s.thop)
            c:RegisterEffect(e2)
            end
            function s.setfilter(c)
            return c:IsCode(80280737) and c:IsSSetable()
            end
            function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
            and Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,nil) end
            end
            function s.setop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.setfilter),tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
            local tc=g:GetFirst()
            if tc then
            Duel.SSet(tp,tc)
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetDescription(aux.Stringid(id,2))
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
            e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD)
            tc:RegisterEffect(e1)
            end
            end
            function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
            Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
            end
            function s.thfilter(c,e,tp)
            if not (aux.IsCodeListed(c,80280737) and c:IsType(TYPE_MONSTER)) then return false end
            local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
            return c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))
            end
            function 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,e,tp) end
            end
            function s.thop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
            local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
            local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
            local tc=g:GetFirst()
            if tc then
            if tc:IsAbleToHand() and (not tc:IsCanBeSpecialSummoned(e,0,tp,false,false) or ft<=0 or Duel.SelectOption(tp,1190,1152)==0) then
            Duel.SendtoHand(tc,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,tc)
            elseif tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
            Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            local e2=Effect.CreateEffect(e:GetHandler())
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
            e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e2:SetTargetRange(1,0)
            e2:SetTarget(s.splimit)
            e2:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e2,tp)
            end
            function s.splimit(e,c)
            return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
            end
            script/c101303039.lua deleted 100644 → 0
            View file @ 5a65ff59
            --調獄神ジュノーラ
            local s,id,o=GetID()
            function s.initial_effect(c)
            --synchro summon
            aux.AddSynchroMixProcedure(c,s.matfilter,nil,nil,aux.NonTuner(nil),2,2)
            c:EnableReviveLimit()
            --disable
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_DISABLE)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetCondition(s.discon)
            e1:SetTarget(s.distg)
            e1:SetOperation(s.disop)
            c:RegisterEffect(e1)
            --not special summon
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_FREE_CHAIN)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id)
            e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
            e2:SetTarget(s.nstg)
            e2:SetOperation(s.nsop)
            c:RegisterEffect(e2)
            end
            function s.matfilter(c,syncard)
            return c:IsTuner(syncard) or c:GetSequence()==2
            end
            function s.discon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
            end
            function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,nil) end
            local g=Duel.GetMatchingGroup(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,nil)
            Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,g:GetCount(),0,0)
            Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
            end
            function s.disop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local g=Duel.GetMatchingGroup(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,nil)
            for tc in aux.Next(g) do
            Duel.NegateRelatedChain(tc,RESET_TURN_SET)
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetCode(EFFECT_DISABLE)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD)
            tc:RegisterEffect(e1)
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e2:SetCode(EFFECT_DISABLE_EFFECT)
            e2:SetValue(RESET_TURN_SET)
            e2:SetReset(RESET_EVENT+RESETS_STANDARD)
            tc:RegisterEffect(e2)
            if tc:IsType(TYPE_TRAPMONSTER) then
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_SINGLE)
            e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
            e3:SetReset(RESET_EVENT+RESETS_STANDARD)
            tc:RegisterEffect(e3)
            end
            end
            end
            function s.nsfilter(c,tp)
            return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE)
            end
            function s.cfilter(c,tp)
            local chk=c:GetColumnGroup():IsExists(s.nsfilter,1,nil,1-tp)
            return c:IsFaceup() and c:IsSetCard(0x2d8) and chk
            end
            function s.nstg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil,tp) end
            Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
            end
            function s.nsop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_MZONE,0,nil,tp)
            if g:GetCount()==0 then return end
            local sg=Group.CreateGroup()
            for tc in aux.Next(g) do
            local tg=tc:GetColumnGroup():Filter(s.nsfilter,nil,1-tp)
            Group.Merge(sg,tg)
            end
            for tc in aux.Next(sg) do
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
            e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
            e1:SetRange(LOCATION_MZONE)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            e1:SetValue(1)
            tc:RegisterEffect(e1)
            local e3=e1:Clone()
            e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
            e3:SetValue(s.fuslimit)
            tc:RegisterEffect(e3)
            local e4=e1:Clone()
            e4:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
            tc:RegisterEffect(e4)
            local e5=e1:Clone()
            e5:SetDescription(aux.Stringid(id,1))
            e5:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
            e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE|EFFECT_FLAG_CLIENT_HINT)
            tc:RegisterEffect(e5)
            end
            end
            function s.fuslimit(e,c,sumtype)
            return sumtype==SUMMON_TYPE_FUSION
            end
            script/c101303040.lua deleted 100644 → 0
            View file @ 5a65ff59
            --獄花の大燿聖ストリチア
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Synchro summon
            aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
            c:EnableReviveLimit()
            --atkup
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e1:SetRange(LOCATION_MZONE)
            e1:SetCode(EFFECT_SET_BASE_ATTACK)
            e1:SetCondition(s.atkcon)
            e1:SetValue(3000)
            c:RegisterEffect(e1)
            --special summon
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,0))
            e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_FREE_CHAIN)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id)
            e2:SetHintTiming(0,TIMING_MAIN_END)
            e2:SetCondition(s.spcon)
            e2:SetTarget(s.sptg)
            e2:SetOperation(s.spop)
            c:RegisterEffect(e2)
            end
            function s.atkcon(e)
            return e:GetHandler():GetSequence()==2
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsMainPhase()
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0x2d8) and c:IsLevelBelow(6) 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_GRAVE,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
            end
            function s.lvfilter(c)
            return c:IsFaceup() and c:IsLevelAbove(4)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
            local tc=g:GetFirst()
            if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then
            Duel.AdjustAll()
            if Duel.IsExistingMatchingCard(s.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
            and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
            Duel.BreakEffect()
            local lg=Duel.GetMatchingGroup(s.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
            for lc in aux.Next(lg) do
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_UPDATE_LEVEL)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            e1:SetValue(-3)
            lc:RegisterEffect(e1)
            end
            end
            end
            end
            local e2=Effect.CreateEffect(e:GetHandler())
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
            e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e2:SetTargetRange(1,0)
            e2:SetTarget(s.splimit)
            e2:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e2,tp)
            end
            function s.splimit(e,c)
            return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
            end
            script/c101303041.lua deleted 100644 → 0
            View file @ 5a65ff59
            --黒き竜のエクレシア
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,68468459)
            --synchro summon
            aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
            c:EnableReviveLimit()
            --spsummon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
            e1:SetType(EFFECT_TYPE_QUICK_O)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetRange(LOCATION_MZONE)
            e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.spcon)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            --to deck
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_TODECK)
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.tdtg)
            e2:SetOperation(s.tdop)
            c:RegisterEffect(e2)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsMainPhase()
            end
            function s.spfilter(c,e,tp)
            return aux.IsCodeOrListed(c,68468459) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            local c=e:GetHandler()
            if chk==0 then return Duel.GetMZoneCount(tp,c)>0
            and c:IsAbleToRemove()
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_REMOVE,c,1,0,0)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_DECK)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local fid=c:GetFieldID()
            if c:IsRelateToChain() and Duel.Remove(c,0,REASON_EFFECT+REASON_TEMPORARY)~=0 then
            if c:GetOriginalCode()==id then
            c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,fid,aux.Stringid(id,2))
            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:SetLabel(fid)
            e1:SetLabelObject(c)
            e1:SetCountLimit(1)
            e1:SetCondition(s.retcon)
            e1:SetOperation(s.retop)
            Duel.RegisterEffect(e1,tp)
            end
            if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            end
            end
            function s.retcon(e,tp,eg,ep,ev,re,r,rp)
            local tc=e:GetLabelObject()
            if tc:GetFlagEffectLabel(id)~=e:GetLabel() then
            e:Reset()
            return false
            else return true end
            end
            function s.retop(e,tp,eg,ep,ev,re,r,rp)
            Duel.ReturnToField(e:GetLabelObject())
            end
            function s.tdfilter(c,tp)
            return c:IsFaceupEx() and c:IsLevel(8) and c:IsType(TYPE_FUSION)
            and Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
            end
            function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            local c=e:GetHandler()
            if chkc then return false end
            if chk==0 then return Duel.IsExistingTarget(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,tp) and c:IsAbleToDeck() end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
            local g1=Duel.SelectTarget(tp,s.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,tp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
            local g2=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
            g1:Merge(g2)
            g1:AddCard(c)
            Duel.SetOperationInfo(0,CATEGORY_TODECK,g1,3,0,0)
            end
            function s.ntdfilter(c)
            return not c:IsAbleToDeck()
            end
            function s.tdop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToChain,nil,e)
            local sg=g:Filter(Card.IsLocation,nil,LOCATION_GRAVE)
            if not c:IsRelateToChain() then return end
            g:AddCard(c)
            local res=true
            for tc in aux.Next(sg) do
            if not aux.NecroValleyFilter()(tc) then res=false end
            end
            if g:IsExists(s.ntdfilter,1,nil) then return end
            if res and g:GetCount()==3 then
            Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
            end
            end
            script/c101303042.lua deleted 100644 → 0
            View file @ 5a65ff59
            --鎖縛竜ザレン
            local s,id,o=GetID()
            function s.initial_effect(c)
            --synchro summon
            aux.AddSynchroMixProcedure(c,aux.Tuner(nil),nil,nil,aux.FilterBoolFunction(Card.IsSynchroType,TYPE_SYNCHRO),1,99)
            c:EnableReviveLimit()
            local e0=Effect.CreateEffect(c)
            e0:SetType(EFFECT_TYPE_SINGLE)
            e0:SetCode(EFFECT_MATERIAL_CHECK)
            e0:SetValue(s.valcheck)
            c:RegisterEffect(e0)
            --nontuner
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e1:SetRange(LOCATION_MZONE)
            e1:SetCode(EFFECT_NONTUNER)
            e1:SetValue(s.tnval)
            c:RegisterEffect(e1)
            --disable
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_CHAINING)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id)
            e2:SetCondition(s.discon)
            e2:SetTarget(s.distg)
            e2:SetOperation(s.disop)
            c:RegisterEffect(e2)
            end
            function s.valcheck(e,c)
            local g=c:GetMaterial()
            if g:IsExists(Card.IsType,2,nil,TYPE_TUNER) then
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
            e1:SetCode(21142671)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD+RESET_PHASE+PHASE_END)
            c:RegisterEffect(e1)
            end
            end
            function s.tnval(e,c)
            return e:GetHandler():IsControler(c:GetControler())
            end
            function s.discon(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if ev<=1 then return false end
            return not c:IsStatus(STATUS_BATTLE_DESTROYED)
            and (Duel.IsChainDisablable(ev) or Duel.IsChainDisablable(ev-1))
            end
            function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
            local b1=Duel.IsChainDisablable(ev)
            local b2=Duel.IsChainDisablable(ev-1)
            if chk==0 then return b1 or b2 end
            local te=Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT)
            local op=aux.SelectFromOptions(tp,
            {b1,aux.Stringid(id,2),1},
            {b2,aux.Stringid(id,3),2})
            e:SetLabel(op)
            if op==1 then
            Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
            if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
            end
            elseif op==2 then
            Duel.SetOperationInfo(0,CATEGORY_DISABLE,te:GetHandler(),1,0,0)
            if te:GetHandler():IsDestructable() and te:GetHandler():IsRelateToEffect(te) then
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,te:GetHandler(),1,0,0)
            end
            end
            end
            function s.disop(e,tp,eg,ep,ev,re,r,rp)
            local op=e:GetLabel()
            if op==1 then
            if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToChain(ev) then
            Duel.Destroy(eg,REASON_EFFECT)
            end
            elseif op==2 then
            local te=Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT)
            if Duel.NegateEffect(ev-1) and te:GetHandler():IsRelateToChain(ev-1) then
            Duel.Destroy(te:GetHandler(),REASON_EFFECT)
            end
            end
            end
            script/c101303043.lua deleted 100644 → 0
            View file @ 5a65ff59
            --K9-EX “Ripper／M”
            local s,id,o=GetID()
            function s.initial_effect(c)
            --xyz summon
            aux.AddXyzProcedure(c,nil,9,2)
            c:EnableReviveLimit()
            --to deck
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_TODECK)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.tdcon)
            e1:SetTarget(s.tdtg)
            e1:SetOperation(s.tdop)
            c:RegisterEffect(e1)
            --pierce
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetCode(EFFECT_PIERCE)
            c:RegisterEffect(e2)
            --disable
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
            e3:SetType(EFFECT_TYPE_QUICK_O)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCode(EVENT_CHAINING)
            e3:SetCountLimit(1,id+o)
            e3:SetCondition(s.discon)
            e3:SetCost(s.discost)
            e3:SetTarget(s.distg)
            e3:SetOperation(s.disop)
            c:RegisterEffect(e3)
            end
            function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            return c:IsSpecialSummonSetCard(0x1cb) and re:IsActiveType(TYPE_SPELL+TYPE_TRAP)
            end
            function s.tdfilter(c)
            return c:IsAbleToDeck()
            end
            function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(1-tp) and s.tdfilter(chkc) end
            if chk==0 then return Duel.IsExistingTarget(s.tdfilter,tp,0,LOCATION_GRAVE+LOCATION_REMOVED,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
            local g=Duel.SelectTarget(tp,s.tdfilter,tp,0,LOCATION_GRAVE+LOCATION_REMOVED,1,2,nil)
            Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
            end
            function s.tdop(e,tp,eg,ep,ev,re,r,rp)
            local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(aux.NecroValleyFilter(Card.IsRelateToChain),nil)
            if g:GetCount()>0 then
            Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
            end
            end
            function s.discon(e,tp,eg,ep,ev,re,r,rp)
            return ep~=tp
            and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev)
            end
            function s.discost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end
            e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
            end
            function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return true end
            local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
            Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
            end
            function s.disop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.NegateEffect(ev) then
            local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
            if sg:GetCount()>0 then
            Duel.BreakEffect()
            Duel.Destroy(sg,REASON_EFFECT)
            end
            end
            end
            script/c101303044.lua deleted 100644 → 0
            View file @ 5a65ff59
            --エクソシスター・カルマエル
            local s,id,o=GetID()
            function s.initial_effect(c)
            --xyz summon
            aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x172),4,2)
            c:EnableReviveLimit()
            --set
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.recon)
            e1:SetTarget(s.retg)
            e1:SetOperation(s.reop)
            c:RegisterEffect(e1)
            --change effect
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_CHAINING)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id+o)
            e2:SetCondition(s.chcon)
            e2:SetTarget(s.chtg)
            e2:SetOperation(s.chop)
            c:RegisterEffect(e2)
            end
            function s.recon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
            end
            function s.retg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return true end
            Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
            end
            function s.reop(e,tp,eg,ep,ev,re,r,rp)
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
            e1:SetCode(EVENT_PHASE+PHASE_END)
            e1:SetCountLimit(1)
            e1:SetOperation(s.setop)
            e1:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e1,tp)
            end
            function s.setfilter(c)
            return c:IsFaceupEx() and c:IsSetCard(0x172) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
            end
            function s.setop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_CARD,0,id)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.setfilter),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
            local tc=g:GetFirst()
            if tc then
            Duel.SSet(tp,tc)
            end
            end
            function s.chcon(e,tp,eg,ep,ev,re,r,rp)
            return rp==1-tp and (re:IsActiveType(TYPE_MONSTER)
            or (re:GetActiveType()==TYPE_SPELL or re:GetActiveType()==TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE))
            end
            function s.chtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,rp,0,LOCATION_GRAVE,1,nil,REASON_EFFECT)
            and e:GetHandler():GetOverlayCount()>0 end
            Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
            end
            function s.chop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsRelateToChain() and c:IsType(TYPE_MONSTER) then
            local og=c:GetOverlayGroup()
            if og:GetCount()==0 then return end
            Duel.SendtoGrave(og,REASON_EFFECT)
            local g=Group.CreateGroup()
            Duel.ChangeTargetCard(ev,g)
            Duel.ChangeChainOperation(ev,s.repop)
            end
            end
            function s.repop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(Card.IsAbleToHand),tp,0,LOCATION_GRAVE,1,1,nil)
            if g:GetCount()>0 then
            Duel.HintSelection(g)
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            end
            end
            script/c101303045.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ガンホー！スプリガンズ！
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,29601381,68468459)
            --xyz summon
            aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x155),4,2,nil,nil,99)
            c:EnableReviveLimit()
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCode(EVENT_TO_GRAVE)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            c:RegisterEffect(e1)
            local e2=e1:Clone()
            e2:SetCode(EVENT_SPSUMMON_SUCCESS)
            e2:SetCondition(s.spcon)
            c:RegisterEffect(e2)
            --spsummon or tohand
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DECKDES)
            e3:SetType(EFFECT_TYPE_IGNITION)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCountLimit(1,id)
            e3:SetCost(s.spcost2)
            e3:SetTarget(s.sptg2)
            e3:SetOperation(s.spop2)
            c:RegisterEffect(e3)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
            end
            function s.spfilter(c,e,tp)
            return c:IsCode(29601381) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,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_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            function s.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end
            e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
            end
            function s.spfilter2(c,e,tp)
            if not ((c:IsSetCard(0x155,0x179) or aux.IsCodeOrListed(c,68468459)) and c:IsType(TYPE_MONSTER)) then return false end
            local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
            return c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))
            end
            function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.spfilter2,tp,LOCATION_DECK,0,1,nil,e,tp) end
            end
            function s.spop2(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
            local g=Duel.SelectMatchingCard(tp,s.spfilter2,tp,LOCATION_DECK,0,1,1,nil,e,tp)
            local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
            local tc=g:GetFirst()
            if tc then
            if tc:IsAbleToHand() and (not tc:IsCanBeSpecialSummoned(e,0,tp,false,false) or ft<=0 or Duel.SelectOption(tp,1190,1152)==0) then
            Duel.SendtoHand(tc,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,tc)
            elseif ft>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
            Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            end
            script/c101303046.lua deleted 100644 → 0
            View file @ 5a65ff59
            --トポロジック・ブラスター・ドラゴン
            local s,id,o=GetID()
            function s.initial_effect(c)
            --link summon
            aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2)
            c:EnableReviveLimit()
            --zone limit
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
            e1:SetCode(EFFECT_MUST_USE_MZONE)
            e1:SetRange(LOCATION_MZONE)
            e1:SetTargetRange(1,0)
            e1:SetValue(s.zonelimit)
            c:RegisterEffect(e1)
            --effect
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,0))
            e2:SetCategory(CATEGORY_TODECK+CATEGORY_REMOVE)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
            e2:SetCode(EVENT_SPSUMMON_SUCCESS)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
            e2:SetCondition(s.econ)
            e2:SetTarget(s.etg)
            e2:SetOperation(s.eop)
            c:RegisterEffect(e2)
            end
            function s.zonelimit(e)
            return 0x1f001f | (0x600060 & ~e:GetHandler():GetLinkedZone())
            end
            function s.cfilter(c,zone)
            local seq=c:GetSequence()
            if c:IsLocation(LOCATION_MZONE) then
            if c:IsControler(1) then seq=seq+16 end
            else
            seq=c:GetPreviousSequence()
            if c:IsPreviousControler(1) then seq=seq+16 end
            end
            return bit.extract(zone,seq)~=0
            end
            function s.econ(e,tp,eg,ep,ev,re,r,rp)
            local zone=Duel.GetLinkedZone(0)+(Duel.GetLinkedZone(1)<<0x10)
            return not eg:IsContains(e:GetHandler()) and eg:IsExists(s.cfilter,1,nil,zone) and e:GetHandler():GetSequence()>4
            end
            function s.tdfilter(c)
            return c:IsAbleToDeck() and c:IsType(TYPE_SPELL+TYPE_TRAP)
            end
            function s.etg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler())
            or Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
            or Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_EXTRA,1,nil) end
            end
            function s.eop(e,tp,eg,ep,ev,re,r,rp)
            local b1=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_MZONE,LOCATION_MZONE,1,aux.ExceptThisCard(e))
            and Duel.GetFlagEffect(tp,id)==0
            local b2=Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
            and Duel.GetFlagEffect(tp,id+o)==0
            local b3=Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_EXTRA,1,nil)
            and Duel.GetFlagEffect(tp,id+o*2)==0
            if not (b1 or b2 or b3) then return end
            local op=aux.SelectFromOptions(tp,
            {b1,aux.Stringid(id,1),1},
            {b2,aux.Stringid(id,2),2},
            {b3,aux.Stringid(id,3),3})
            if op==1 then
            Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
            local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_MZONE,LOCATION_MZONE,aux.ExceptThisCard(e))
            if g:GetCount()>0 then
            Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
            end
            elseif op==2 then
            Duel.RegisterFlagEffect(tp,id+o,RESET_PHASE+PHASE_END,0,1)
            local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
            if g:GetCount()>0 then
            Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
            end
            elseif op==3 then
            Duel.RegisterFlagEffect(tp,id+o*2,RESET_PHASE+PHASE_END,0,1)
            local g=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA)
            if g:GetCount()>0 then
            Duel.BreakEffect()
            Duel.ConfirmCards(tp,g,true)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
            local tg=g:FilterSelect(tp,Card.IsAbleToRemove,1,1,nil)
            if tg:GetCount()>0 then
            Duel.Remove(tg,POS_FACEUP,REASON_EFFECT)
            end
            Duel.ShuffleExtra(1-tp)
            end
            end
            end
            script/c101303049.lua deleted 100644 → 0
            View file @ 5a65ff59
            --絢嵐たる海霊ヴァルルーン
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,5318639)
            aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0x1d1),2,2)
            c:EnableReviveLimit()
            --to hand
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetCountLimit(1,id)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCondition(s.thcon)
            e1:SetTarget(s.thtg)
            e1:SetOperation(s.thop)
            c:RegisterEffect(e1)
            --move
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.mvtg)
            e2:SetOperation(s.mvop)
            c:RegisterEffect(e2)
            --place
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,2))
            e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e3:SetProperty(EFFECT_FLAG_DELAY)
            e3:SetCode(EVENT_CHAINING)
            e3:SetRange(LOCATION_MZONE)
            e3:SetCountLimit(1,id+2*o)
            e3:SetCondition(s.setcon)
            e3:SetTarget(s.settg)
            e3:SetOperation(s.setop)
            c:RegisterEffect(e3)
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
            end
            function s.filter(c)
            return c:IsCode(5318639) 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+LOCATION_GRAVE,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
            end
            function s.thop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.filter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
            if #g>0 then
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,g)
            end
            end
            function s.mvfilter(c)
            return c:IsFaceup() and (c:IsControler(c:GetOwner()) or c:IsAbleToChangeControler())
            and not c:IsForbidden() and c:CheckUniqueOnField(c:GetOwner())
            end
            function s.mvfilter2(c,e)
            return c:IsType(TYPE_MONSTER) and (c:IsControler(c:GetOwner()) or c:IsAbleToChangeControler())
            and not c:IsImmuneToEffect(e)
            and not c:IsForbidden() and c:CheckUniqueOnField(c:GetOwner())
            end
            function s.isowner(c,tp)
            return c:GetOwner()==tp
            end
            function s.tgfilter(c,tp)
            return c:IsSetCard(0x1d1) and c:IsControler(tp)
            end
            function s.gcheck(g,tp)
            return g:FilterCount(s.isowner,nil,0)<=Duel.GetLocationCount(0,LOCATION_SZONE)
            and g:FilterCount(s.isowner,nil,1)<=Duel.GetLocationCount(1,LOCATION_SZONE)
            and g:FilterCount(s.tgfilter,nil,tp)>0
            end
            function s.mvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return false end
            local g=Duel.GetMatchingGroup(s.mvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil):Filter(Card.IsCanBeEffectTarget,nil,e)
            if chk==0 then return g:CheckSubGroup(s.gcheck,2,2,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
            local sg=g:SelectSubGroup(tp,s.gcheck,false,2,2,tp)
            Duel.SetTargetCard(sg)
            end
            function s.mvop(e,tp,eg,ep,ev,re,r,rp)
            local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
            local tg=g:Filter(Card.IsRelateToEffect,nil,e):Filter(s.mvfilter2,nil,e)
            local pg=Group.CreateGroup()
            for p in aux.TurnPlayers() do
            local sg=tg:Filter(s.isowner,nil,p)
            local ct=Duel.GetLocationCount(p,LOCATION_SZONE)
            if sg:GetCount()<=ct then
            pg:Merge(sg)
            elseif ct>0 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
            local tpg=sg:Select(tp,ct,ct,nil)
            pg:Merge(tpg)
            end
            end
            for tc in aux.Next(pg) do
            Duel.MoveToField(tc,tp,tc:GetOwner(),LOCATION_SZONE,POS_FACEUP,true)
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetCode(EFFECT_CHANGE_TYPE)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
            e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
            tc:RegisterEffect(e1)
            end
            local gg=tg-pg
            if gg:GetCount()>0 then
            Duel.SendtoGrave(gg,REASON_RULE)
            end
            end
            function s.setcon(e,tp,eg,ep,ev,re,r,rp)
            return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_QUICKPLAY)
            end
            function s.pfilter(c,tp)
            return c:IsAllTypes(TYPE_CONTINUOUS+TYPE_TRAP) and c:IsSetCard(0x1d1)
            and not c:IsForbidden() and c:CheckUniqueOnField(tp)
            end
            function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
            and Duel.IsExistingMatchingCard(s.pfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
            end
            function s.setop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
            local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.pfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,tp):GetFirst()
            if tc then Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) end
            end
            script/c101303050.lua deleted 100644 → 0
            View file @ 5a65ff59
            --空牙団の船匠 キール
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,64400161)
            --link summon
            c:EnableReviveLimit()
            aux.AddLinkProcedure(c,nil,2,2,s.lcheck)
            --set
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.setcon)
            e1:SetTarget(s.settg)
            e1:SetOperation(s.setop)
            c:RegisterEffect(e1)
            --special summon
            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:SetCountLimit(1,id+o)
            e2:SetHintTiming(0,TIMING_END_PHASE)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetCondition(s.spcon)
            e2:SetTarget(s.sptg)
            e2:SetOperation(s.spop)
            c:RegisterEffect(e2)
            end
            function s.lcheck(g,lc)
            return not aux.SameValueCheck(g,Card.GetLinkRace)
            end
            function s.setcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
            end
            function s.setfilter(c)
            return (c:IsSetCard(0x114) and c:IsType(TYPE_SPELL+TYPE_TRAP) or c:IsCode(64400161))
            and c:IsSSetable()
            end
            function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil) end
            end
            function s.setop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
            local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.SSet(tp,g:GetFirst())
            end
            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:IsSetCard(0x114)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.GetTurnPlayer()~=tp
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0x114) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            local c=e:GetHandler()
            if chk==0 then return c:IsAbleToRemove()
            and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_REMOVE,c,1,0,0)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if not c:IsRelateToChain() then return end
            if Duel.Remove(c,POS_FACEUP,REASON_EFFECT)==0 then return end
            if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
            if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 then
            Duel.AdjustAll()
            local ag=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
            local tg=ag:GetMaxGroup(Card.GetBaseAttack)
            if tg:IsExists(Card.IsControler,1,nil,1-tp)
            and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
            and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g2=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
            Duel.SpecialSummon(g2,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            end
            script/c101303051.lua deleted 100644 → 0
            View file @ 5a65ff59
            --R－ACEアビトレイター
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,63899465,37617348)
            c:SetSPSummonOnce(id)
            --link summon
            aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkAttribute,ATTRIBUTE_FIRE),2)
            c:EnableReviveLimit()
            --search
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetCondition(s.thcon)
            e1:SetTarget(s.thtg)
            e1:SetOperation(s.thop)
            c:RegisterEffect(e1)
            --destroy
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_DESTROY)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e2:SetRange(LOCATION_MZONE)
            e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
            e2:SetCode(EVENT_CHAINING)
            e2:SetCountLimit(2,id)
            e2:SetCondition(s.descon)
            e2:SetTarget(s.destg)
            e2:SetOperation(s.desop)
            c:RegisterEffect(e2)
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
            end
            function s.thfilter(c)
            return c:IsCode(63899465,37617348) 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+LOCATION_GRAVE,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
            end
            function s.thop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,g)
            end
            end
            function s.descon(e,tp,eg,ep,ev,re,r,rp)
            local rc=re:GetHandler()
            return rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE)
            and (rc:GetType()==TYPE_TRAP or rc:GetType()&TYPE_QUICKPLAY==TYPE_QUICKPLAY)
            and rc:IsSetCard(0x18b)
            end
            function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            local c=e:GetHandler()
            if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
            if chk==0 then return Duel.IsExistingTarget(nil,tp,0,LOCATION_ONFIELD,1,nil) and c:GetFlagEffect(id)==0 end
            c:RegisterFlagEffect(id,RESET_CHAIN,0,1)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local g=Duel.SelectTarget(tp,nil,tp,0,LOCATION_ONFIELD,1,1,nil)
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
            end
            function s.desop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and tc:IsOnField() then
            Duel.Destroy(tc,REASON_EFFECT)
            end
            end
            script/c101303053.lua deleted 100644 → 0
            View file @ 5a65ff59
            --マグネット・ボンディング
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,44839512)
            --activate
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_FUSION_SUMMON+CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetHintTiming(TIMING_MAIN_END,TIMING_MAIN_END)
            e1:SetProperty(EFFECT_FLAG_FUSION_SUMMON)
            e1:SetCondition(s.condition)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            end
            function s.condition(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsMainPhase()
            end
            function s.thfilter1(c)
            return (c:IsCode(44839512) or c:IsSetCard(0x2066) and c:IsLevelBelow(4))
            and c:IsAbleToHand()
            end
            function s.thfilter2(c)
            return c:IsSetCard(0xe9) and c:IsLevel(8) and c:IsAbleToHand()
            end
            function s.filter1(c,e)
            return (c:IsLocation(LOCATION_MZONE) or c:IsFaceupEx()) and c:IsRace(RACE_ROCK)
            and not c:IsImmuneToEffect(e) and c:IsAbleToDeck()
            end
            function s.filter2(c,e,tp,m,f,chkf)
            return c:IsType(TYPE_FUSION) and c:IsRace(RACE_ROCK) and (not f or f(c))
            and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
            local b1=Duel.IsExistingMatchingCard(s.thfilter1,tp,LOCATION_DECK,0,1,nil)
            and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id)==0)
            local b2=Duel.IsExistingMatchingCard(s.thfilter2,tp,LOCATION_DECK,0,1,nil)
            and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id+o)==0)
            local chkf=tp
            local mg1=Duel.GetMatchingGroup(s.filter1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e)
            local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
            if not res then
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            local mg2=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
            end
            end
            local b3=res and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id+o*2)==0)
            if chk==0 then return b1 or b2 or b3 end
            local op=0
            if b1 or b2 or b3 then
            op=aux.SelectFromOptions(tp,
            {b1,aux.Stringid(id,1),1},
            {b2,aux.Stringid(id,2),2},
            {b3,aux.Stringid(id,3),3})
            end
            e:SetLabel(op)
            if op==1 or op==2 then
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
            Duel.RegisterFlagEffect(tp,id+(op-1)*o,RESET_PHASE+PHASE_END,0,1)
            end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
            elseif op==3 then
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_FUSION_SUMMON+CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
            Duel.RegisterFlagEffect(tp,id+o*2,RESET_PHASE+PHASE_END,0,1)
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
            Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED)
            end
            end
            function s.cffilter(c)
            return c:IsFacedown() or c:IsLocation(LOCATION_HAND)
            end
            function s.hsfilter(c)
            return c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) or (c:IsLocation(LOCATION_MZONE) and c:IsFaceup())
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            if e:GetLabel()==1 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,s.thfilter1,tp,LOCATION_DECK,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,g)
            end
            elseif e:GetLabel()==2 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,s.thfilter2,tp,LOCATION_DECK,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,g)
            end
            elseif e:GetLabel()==3 then
            local chkf=tp
            local mg1=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.filter1),tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e)
            local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
            local mg2=nil
            local sg2=nil
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            mg2=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
            end
            if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
            local sg=sg1:Clone()
            if sg2 then sg:Merge(sg2) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local tg=sg:Select(tp,1,1,nil)
            local tc=tg:GetFirst()
            if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or ce and not Duel.SelectYesNo(tp,ce:GetDescription())) then
            local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
            tc:SetMaterial(mat1)
            if mat1:IsExists(s.cffilter,1,nil) then
            local cg=mat1:Filter(s.cffilter,nil)
            Duel.ConfirmCards(1-tp,cg)
            end
            if mat1:IsExists(s.hsfilter,1,nil) then
            local cg=mat1:Filter(s.hsfilter,nil)
            Duel.HintSelection(cg)
            end
            Duel.SendtoDeck(mat1,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
            Duel.BreakEffect()
            Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
            elseif ce then
            local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
            local fop=ce:GetOperation()
            fop(ce,e,tp,tc,mat2)
            end
            end
            end
            end
            script/c101303054.lua deleted 100644 → 0
            View file @ 5a65ff59
            --決闘進化－バスター・ゾーン
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,80280737)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+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)
            --indes
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
            e2:SetRange(LOCATION_FZONE)
            e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
            e2:SetTarget(s.indtg)
            e2:SetValue(1)
            c:RegisterEffect(e2)
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_FIELD)
            e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
            e3:SetRange(LOCATION_FZONE)
            e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
            e3:SetTarget(s.indtg)
            e3:SetValue(aux.indoval)
            c:RegisterEffect(e3)
            --Activate
            local e4=Effect.CreateEffect(c)
            e4:SetDescription(aux.Stringid(id,1))
            e4:SetType(EFFECT_TYPE_IGNITION)
            e4:SetRange(LOCATION_FZONE)
            e4:SetCountLimit(1,id)
            e4:SetCost(s.cost)
            e4:SetOperation(s.operation)
            c:RegisterEffect(e4)
            end
            function s.thfilter(c)
            return aux.IsCodeListed(c,80280737) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,nil)
            if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local sg=g:Select(tp,1,1,nil)
            Duel.SendtoHand(sg,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,sg)
            end
            end
            function s.indtg(e,c)
            return c:IsSetCard(0x104f) and c:IsStatus(STATUS_SPSUMMON_TURN)
            end
            function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.CheckLPCost(tp,2000) and Duel.GetFlagEffect(tp,101303054)==0 end
            Duel.PayLPCost(tp,2000)
            end
            function s.operation(e,tp,eg,ep,ev,re,r,rp)
            Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
            end
            script/c101303055.lua deleted 100644 → 0
            View file @ 5a65ff59
            --終刻変転
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetCategory(CATEGORY_DESTROY)
            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)
            --to hand
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
            e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e2:SetCode(EVENT_DESTROYED)
            e2:SetProperty(EFFECT_FLAG_DELAY)
            e2:SetCountLimit(1,id+o)
            e2:SetCondition(s.thcon)
            e2:SetTarget(s.thtg)
            e2:SetOperation(s.thop)
            c:RegisterEffect(e2)
            end
            function s.desfilter(c)
            return c:IsFaceupEx() and not c:IsCode(id) and c:IsSetCard(0x1d2)
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.desfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_ONFIELD,0,1,e:GetHandler()) end
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_ONFIELD)
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local g=Duel.SelectMatchingCard(tp,s.desfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
            if g:GetCount()>0 then
            if g:IsExists(Card.IsLocation,1,nil,LOCATION_ONFIELD) then
            Duel.HintSelection(g)
            end
            Duel.Destroy(g,REASON_EFFECT)
            end
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            return c:IsReason(REASON_EFFECT)
            end
            function s.thfilter(c)
            return not c:IsCode(id) and c:IsSetCard(0x1d2) and c:IsAbleToHand()
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0x1d2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.thop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_GRAVE,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.HintSelection(g)
            if Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 and g:IsExists(Card.IsLocation,1,nil,LOCATION_HAND) then
            local sg=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_HAND,0,nil,e,tp)
            if sg:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local tg=sg:Select(tp,1,1,nil)
            Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            end
            end
            script/c101303056.lua deleted 100644 → 0
            View file @ 5a65ff59
            --エルフェンノーツ～廻郷のパラレリズム～
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            c:RegisterEffect(e1)
            --indes
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
            e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
            e2:SetRange(LOCATION_SZONE)
            e2:SetTargetRange(LOCATION_MZONE,0)
            e2:SetTarget(s.indtg)
            e2:SetValue(1)
            c:RegisterEffect(e2)
            --special summon
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,0))
            e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e3:SetType(EFFECT_TYPE_IGNITION)
            e3:SetRange(LOCATION_SZONE)
            e3:SetCountLimit(1,id)
            e3:SetCost(s.spcost)
            e3:SetTarget(s.sptg)
            e3:SetOperation(s.spop)
            c:RegisterEffect(e3)
            end
            function s.indtg(e,c)
            return c:GetSequence()==2
            end
            function s.cfilter(c,e,tp)
            return c:IsAbleToGraveAsCost() and c:IsType(TYPE_MONSTER)
            and Duel.GetMZoneCount(tp,c)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c)
            end
            function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,e,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,e,tp)
            Duel.SendtoGrave(g,REASON_COST)
            e:SetLabelObject(g:GetFirst())
            end
            function s.spfilter(c,e,tp,ec)
            return c:IsSetCard(0x2d8) and c:GetOriginalAttribute()~=ec:GetOriginalAttribute()
            and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:IsCostChecked() end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,e:GetLabelObject())
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
            end
            end
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
            e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e1:SetTargetRange(1,0)
            e1:SetTarget(s.splimit)
            e1:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e1,tp)
            end
            function s.splimit(e,c)
            return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
            end
            script/c101303057.lua deleted 100644 → 0
            View file @ 5a65ff59
            --エルフェンノーツ～再邂のテルチェット～
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            c:RegisterEffect(e1)
            --cannot be target
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
            e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_SET_AVAILABLE)
            e2:SetRange(LOCATION_SZONE)
            e2:SetTargetRange(LOCATION_MZONE,0)
            e2:SetTarget(s.tglimit)
            e2:SetValue(aux.tgoval)
            c:RegisterEffect(e2)
            --pierce
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_FIELD)
            e3:SetCode(EFFECT_PIERCE)
            e3:SetRange(LOCATION_SZONE)
            e3:SetTargetRange(LOCATION_MZONE,0)
            e3:SetCondition(s.piercecon)
            e3:SetTarget(s.piercetg)
            c:RegisterEffect(e3)
            --cannot be destroyed
            local e4=Effect.CreateEffect(c)
            e4:SetType(EFFECT_TYPE_FIELD)
            e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
            e4:SetRange(LOCATION_SZONE)
            e4:SetTargetRange(LOCATION_ONFIELD,0)
            e4:SetCondition(s.indcon)
            e4:SetTarget(s.indtg)
            e4:SetValue(aux.indoval)
            c:RegisterEffect(e4)
            --avoid battle damage
            local e5=Effect.CreateEffect(c)
            e5:SetType(EFFECT_TYPE_FIELD)
            e5:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
            e5:SetRange(LOCATION_SZONE)
            e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e5:SetTargetRange(1,0)
            e5:SetCondition(s.abdcon)
            c:RegisterEffect(e5)
            end
            function s.tglimit(e,c)
            return c:GetSequence()==2
            end
            function s.piercefilter(c)
            return c:GetSequence()==2 and c:IsAttribute(ATTRIBUTE_EARTH+ATTRIBUTE_FIRE)
            and c:IsFaceup()
            end
            function s.piercecon(e)
            return Duel.IsExistingMatchingCard(s.piercefilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
            end
            function s.piercetg(e,c)
            return c:IsType(TYPE_SYNCHRO)
            end
            function s.indfilter(c)
            return c:GetSequence()==2 and c:IsAttribute(ATTRIBUTE_WATER+ATTRIBUTE_WIND)
            and c:IsFaceup()
            end
            function s.indcon(e)
            return Duel.IsExistingMatchingCard(s.indfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
            end
            function s.indtg(e,c)
            return c~=e:GetHandler() and c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP)
            end
            function s.abdfilter(c)
            return c:GetSequence()==2 and c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK)
            and c:IsFaceup()
            end
            function s.abdcon(e)
            return Duel.IsExistingMatchingCard(s.abdfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
            end
            script/c101303058.lua deleted 100644 → 0
            View file @ 5a65ff59
            --開闢なる予幻視
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,97556336)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetCountLimit(1,id)
            e1:SetHintTiming(0,TIMING_END_PHASE)
            e1:SetCondition(s.condition)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            --tuner
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetCountLimit(1,id+o)
            e2:SetCost(aux.bfgcost)
            e2:SetTarget(s.tntg)
            e2:SetOperation(s.tnop)
            c:RegisterEffect(e2)
            end
            function s.cfilter(c)
            return c:IsFaceup() and c:IsCode(97556336)
            end
            function s.condition(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
            end
            function s.thfilter(c,e,tp)
            if not (c:IsAttack(300) and c:IsDefense(200)) then return false end
            local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
            return c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))
            end
            function 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,e,tp) end
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
            local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
            local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
            local tc=g:GetFirst()
            if tc then
            if tc:IsAbleToHand() and (not tc:IsCanBeSpecialSummoned(e,0,tp,false,false) or ft<=0 or Duel.SelectOption(tp,1190,1152)==0) then
            Duel.SendtoHand(tc,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,tc)
            elseif tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
            Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            end
            function s.tnfilter(c)
            return c:IsFaceup() and not c:IsType(TYPE_TUNER)
            end
            function s.tntg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.tnfilter(chkc) end
            if chk==0 then return Duel.IsExistingTarget(s.tnfilter,tp,LOCATION_MZONE,0,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
            Duel.SelectTarget(tp,s.tnfilter,tp,LOCATION_MZONE,0,1,1,nil)
            end
            function s.tnop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and tc:IsFaceup() and tc:IsType(TYPE_MONSTER) and not tc:IsType(TYPE_TUNER) then
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_ADD_TYPE)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            e1:SetValue(TYPE_TUNER)
            tc:RegisterEffect(e1)
            end
            end
            script/c101303059.lua deleted 100644 → 0
            View file @ 5a65ff59
            --スローン・オブ・デーモンズ
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,101303031)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetTarget(s.target)
            e1:SetOperation(s.operation)
            c:RegisterEffect(e1)
            --tohand
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_TOHAND)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e2:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
            e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
            e2:SetCountLimit(1,id)
            e2:SetCondition(s.thcon)
            e2:SetTarget(s.thtg)
            e2:SetOperation(s.thop)
            c:RegisterEffect(e2)
            end
            function s.rfilter(c,e,tp)
            return c:IsFaceupEx() and c:IsSetCard(0x45)
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then
            local mg=Duel.GetRitualMaterial(tp)
            return Duel.IsExistingMatchingCard(aux.RitualUltimateFilter,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0,1,nil,s.rfilter,e,tp,mg,nil,Card.GetLevel,"Greater")
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA)
            end
            function s.operation(e,tp,eg,ep,ev,re,r,rp)
            ::cancel::
            local mg=Duel.GetRitualMaterial(tp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local tg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(aux.RitualUltimateFilter),tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,0,1,1,nil,s.rfilter,e,tp,mg,nil,Card.GetLevel,"Greater")
            local tc=tg:GetFirst()
            if tc then
            mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc)
            if tc.mat_filter then
            mg=mg:Filter(tc.mat_filter,tc,tp)
            else
            mg:RemoveCard(tc)
            end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
            aux.GCheckAdditional=aux.RitualCheckAdditional(tc,tc:GetLevel(),"Greater")
            local mat=mg:SelectSubGroup(tp,aux.RitualCheck,true,1,tc:GetLevel(),tp,tc,tc:GetLevel(),"Greater")
            aux.GCheckAdditional=nil
            if not mat then goto cancel end
            tc:SetMaterial(mat)
            Duel.ReleaseRitualMaterial(mat)
            Duel.BreakEffect()
            Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
            tc:CompleteProcedure()
            end
            end
            function s.cfilter(c)
            return c:IsFaceupEx() and c:IsCode(101303031)
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_EXTRA,0,1,nil)
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:GetHandler():IsAbleToHand() end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
            end
            function s.thop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsRelateToChain() and aux.NecroValleyFilter()(c) then
            Duel.SendtoHand(c,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,c)
            end
            end
            script/c101303060.lua deleted 100644 → 0
            View file @ 5a65ff59
            --デーモンの盤上遊戯
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            c:RegisterEffect(e1)
            --atkup
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetCode(EFFECT_UPDATE_ATTACK)
            e2:SetRange(LOCATION_FZONE)
            e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
            e2:SetTarget(s.atktg)
            e2:SetValue(1000)
            c:RegisterEffect(e2)
            --search
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,0))
            e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
            e3:SetType(EFFECT_TYPE_IGNITION)
            e3:SetRange(LOCATION_FZONE)
            e3:SetCountLimit(1,id)
            e3:SetCost(s.thcost)
            e3:SetTarget(s.thtg)
            e3:SetOperation(s.thop)
            c:RegisterEffect(e3)
            --to extra
            local e4=Effect.CreateEffect(c)
            e4:SetDescription(aux.Stringid(id,1))
            e4:SetCategory(CATEGORY_TOEXTRA)
            e4:SetType(EFFECT_TYPE_IGNITION)
            e4:SetRange(LOCATION_FZONE)
            e4:SetCountLimit(1,id)
            e4:SetTarget(s.tetg)
            e4:SetOperation(s.teop)
            c:RegisterEffect(e4)
            end
            function s.atktg(e,c)
            return c:GetSequence()>4 and c:IsRace(RACE_FIEND)
            end
            function s.costfilter(c)
            return (c:IsSetCard(0x45) or c:IsRace(RACE_FIEND)) and c:IsAbleToRemoveAsCost()
            end
            function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
            local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil)
            Duel.Remove(g,POS_FACEUP,REASON_COST)
            end
            function s.thfilter(c)
            return not c:IsType(TYPE_FIELD) and c:IsSetCard(0x45) 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.tefilter(c)
            return c:IsType(TYPE_PENDULUM) and c:IsSetCard(0x45)
            end
            function s.tetg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.tefilter,tp,LOCATION_DECK,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,nil,1,tp,LOCATION_DECK)
            end
            function s.teop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(id,2))
            local g=Duel.SelectMatchingCard(tp,s.tefilter,tp,LOCATION_DECK,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.SendtoExtraP(g,nil,REASON_EFFECT)
            end
            end
            script/c101303061.lua deleted 100644 → 0
            View file @ 5a65ff59
            --飛竜戦艇－ファンドラ
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            c:RegisterEffect(e1)
            --atk up
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetCode(EFFECT_UPDATE_ATTACK)
            e2:SetRange(LOCATION_FZONE)
            e2:SetTargetRange(LOCATION_MZONE,0)
            e2:SetTarget(aux.TargetBoolFunction(s.aufilter))
            e2:SetValue(s.atkval)
            c:RegisterEffect(e2)
            --search
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,0))
            e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_HANDES)
            e3:SetType(EFFECT_TYPE_IGNITION)
            e3:SetRange(LOCATION_FZONE)
            e3:SetCountLimit(1,id)
            e3:SetTarget(s.thtg)
            e3:SetOperation(s.thop)
            c:RegisterEffect(e3)
            --special summon
            local e4=Effect.CreateEffect(c)
            e4:SetDescription(aux.Stringid(id,1))
            e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e4:SetProperty(EFFECT_FLAG_DELAY)
            e4:SetCode(EVENT_DESTROYED)
            e4:SetRange(LOCATION_FZONE)
            e4:SetCountLimit(1,id+o)
            e4:SetCondition(s.spcon)
            e4:SetTarget(s.sptg)
            e4:SetOperation(s.spop)
            c:RegisterEffect(e4)
            end
            function s.aufilter(c)
            return c:IsSetCard(0x114)
            end
            function s.cfilter(c)
            return c:IsFaceup() and c:IsSetCard(0x114)
            end
            function s.atkval(e)
            local g=Duel.GetMatchingGroup(s.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil)
            return g:GetClassCount(Card.GetCode)*300
            end
            function s.thfilter(c)
            return c:IsSetCard(0x114) and c:IsType(TYPE_MONSTER) 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)
            Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
            Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
            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 and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_HAND) then
            Duel.ConfirmCards(1-tp,g)
            Duel.BreakEffect()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
            local dg=Duel.SelectMatchingCard(tp,Card.IsDiscardable,tp,LOCATION_HAND,0,1,1,nil,REASON_EFFECT)
            Duel.ShuffleHand(tp)
            Duel.SendtoGrave(dg,REASON_EFFECT+REASON_DISCARD)
            end
            end
            function s.cfilter2(c,tp)
            return c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_MZONE)
            and c:IsPreviousPosition(POS_FACEUP)
            and c:IsPreviousSetCard(0x114) and c:IsReason(REASON_EFFECT)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return rp==1-tp and eg:IsExists(s.cfilter2,1,e:GetHandler(),tp)
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0x114) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then 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)
            Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            script/c101303062.lua deleted 100644 → 0
            View file @ 5a65ff59
            --飆風の空牙団
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetCountLimit(1,id)
            e1:SetHintTiming(0,TIMING_END_PHASE)
            e1:SetCondition(s.condition)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            --change cost
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e2:SetCode(id)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetCountLimit(1,id+o)
            c:RegisterEffect(e2)
            end
            function s.condition(e,tp,eg,ep,ev,re,r,rp)
            return not Duel.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,0,1,nil)
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0x114) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.spfilter2(c,e,tp)
            return c:IsSetCard(0x114) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
            if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0
            and Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,2,nil)
            and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter2,tp,LOCATION_DECK,0,1,nil,e,tp)
            and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g2=Duel.SelectMatchingCard(tp,s.spfilter2,tp,LOCATION_DECK,0,1,1,nil,e,tp)
            Duel.SpecialSummon(g2,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
            e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e1:SetTargetRange(1,0)
            e1:SetTarget(s.splimit)
            e1:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e1,tp)
            end
            function s.splimit(e,c)
            return not c:IsSetCard(0x114)
            end
            script/c101303063.lua deleted 100644 → 0
            View file @ 5a65ff59
            --佚楽の堕天使
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            end
            function s.filter1(c,e)
            return c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
            end
            function s.filter2(c,e,tp,m,f,chkf)
            if not (c:IsType(TYPE_FUSION) and c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_DARK) and (not f or f(c))
            and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false)) then return false end
            aux.FCheckAdditional=s.fcheck
            local res=c:CheckFusionMaterial(m,nil,chkf)
            aux.FCheckAdditional=nil
            return res
            end
            function s.filter3(c,e)
            return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
            end
            function s.filter4(c,e)
            return c:IsFaceup() and c:IsSetCard(0xef) and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
            end
            function s.fcheck(tp,sg,fc)
            return not sg:IsExists(Card.IsControler,1,nil,1-tp) or fc:IsSetCard(0xef)
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then
            local chkf=tp
            local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
            local mg2=Duel.GetMatchingGroup(s.filter3,tp,LOCATION_GRAVE,0,nil,e)
            local mg3=Duel.GetMatchingGroup(s.filter4,tp,0,LOCATION_MZONE,nil,e)
            mg1:Merge(mg2)
            mg1:Merge(mg3)
            local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
            if not res then
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            local mg4=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg4,mf,chkf)
            end
            end
            return res
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
            Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_GRAVE)
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            local chkf=tp
            if Duel.GetCurrentPhase()&(PHASE_DAMAGE+PHASE_DAMAGE_CAL)~=0 then return end
            local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
            local mg2=Duel.GetMatchingGroup(s.filter3,tp,LOCATION_GRAVE,0,nil,e)
            local mg3=Duel.GetMatchingGroup(s.filter4,tp,0,LOCATION_MZONE,nil,e)
            mg1:Merge(mg2)
            mg1:Merge(mg3)
            local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
            local mg4=nil
            local sg2=nil
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            mg4=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg4,mf,chkf)
            end
            if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
            local sg=sg1:Clone()
            if sg2 then sg:Merge(sg2) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local tg=sg:Select(tp,1,1,nil)
            local tc=tg:GetFirst()
            if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or ce and not Duel.SelectYesNo(tp,ce:GetDescription())) then
            aux.FCheckAdditional=tc.branded_fusion_check or s.fcheck
            local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
            aux.FCheckAdditional=nil
            tc:SetMaterial(mat1)
            Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
            Duel.BreakEffect()
            Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
            elseif ce then
            local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
            local fop=ce:GetOperation()
            fop(ce,e,tp,tc,mat2)
            end
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_UPDATE_ATTACK)
            e1:SetValue(1000)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD)
            tc:RegisterEffect(e1,true)
            tc:CompleteProcedure()
            end
            end
            script/c101303064.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ボスオンパレード
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,66947414)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
            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_DESTROY+CATEGORY_SPECIAL_SUMMON)
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_SZONE)
            e2:SetCountLimit(1)
            e2:SetTarget(s.sptg)
            e2:SetOperation(s.spop)
            c:RegisterEffect(e2)
            --place
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,2))
            e3:SetType(EFFECT_TYPE_IGNITION)
            e3:SetRange(LOCATION_GRAVE)
            e3:SetCost(aux.bfgcost)
            e3:SetTarget(s.settg)
            e3:SetOperation(s.setop)
            c:RegisterEffect(e3)
            end
            function s.thfilter(c)
            return c:IsSetCard(0x15) 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.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)
            end
            end
            function s.dfilter(c,e,tp)
            return c:IsType(TYPE_MONSTER)
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c)
            end
            function s.spfilter(c,e,tp,ec)
            return c:IsAttack(1200) and c:IsDefenseBelow(1000) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_MACHINE)
            and (Duel.GetMZoneCount(tp,ec)>0
            and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            or Duel.GetMZoneCount(1-tp,ec)>0
            and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp))
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            local g=Duel.GetMatchingGroup(s.dfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e,tp)
            if chk==0 then return #g>0 end
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local g=Group.CreateGroup()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            if Duel.IsExistingMatchingCard(s.dfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,e,tp) then
            g=Duel.SelectMatchingCard(tp,s.dfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,e,tp)
            else
            g=Duel.SelectMatchingCard(tp,Card.IsType,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,TYPE_MONSTER)
            end
            if g:GetCount()>0 then
            if g:IsExists(Card.IsLocation,1,nil,LOCATION_MZONE) then
            Duel.HintSelection(g)
            end
            if Duel.Destroy(g,REASON_EFFECT)>0 and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,nil) then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local sg=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,nil)
            if #sg>0 then
            local tc=sg:GetFirst()
            local ssp=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
            local osp=Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp)
            if osp and (not ssp or Duel.SelectYesNo(tp,aux.Stringid(id,3))) then
            Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP)
            elseif ssp then
            Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            end
            end
            end
            function s.tffilter(c,tp)
            return c:IsCode(66947414)
            and not c:IsForbidden() and c:CheckUniqueOnField(tp)
            end
            function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
            and Duel.IsExistingMatchingCard(s.tffilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
            end
            function s.setop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
            local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.tffilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,tp):GetFirst()
            if tc then
            Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
            end
            end
            script/c101303065.lua deleted 100644 → 0
            View file @ 5a65ff59
            --絢嵐たる軒昂
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,5318639)
            --activate
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetHintTiming(TIMING_DRAW_PHASE,TIMING_DRAW_PHASE+TIMING_END_PHASE)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            --set
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e2:SetProperty(EFFECT_FLAG_DELAY)
            e2:SetCode(EVENT_DESTROYED)
            e2:SetCondition(s.setcon)
            e2:SetTarget(s.settg)
            e2:SetOperation(s.setop)
            c:RegisterEffect(e2)
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0x1d1) and c:IsLevelBelow(6) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.thfilter(c)
            return c:IsCode(5318639) and c:IsAbleToHand()
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
            local b1=Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id)==0)
            local b2=Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil)
            and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id+o)==0)
            if chk==0 then return b1 or b2 end
            local op=0
            if b1 or b2 then
            op=aux.SelectFromOptions(tp,
            {b1,aux.Stringid(id,2),1},
            {b2,aux.Stringid(id,3),2})
            end
            e:SetLabel(op)
            if op==1 then
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_SPECIAL_SUMMON)
            Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
            elseif op==2 then
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
            Duel.RegisterFlagEffect(tp,id+o,RESET_PHASE+PHASE_END,0,1)
            end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
            end
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            if e:GetLabel()==1 then
            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_GRAVE,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            elseif e:GetLabel()==2 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,g)
            end
            end
            end
            function s.setcon(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            return c:IsReason(REASON_EFFECT) and re:GetHandler():IsCode(5318639)
            end
            function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:GetHandler():IsSSetable() end
            Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
            end
            function s.setop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsRelateToChain() and aux.NecroValleyFilter()(c) then
            Duel.SSet(tp,c)
            end
            end
            script/c101303066.lua deleted 100644 → 0
            View file @ 5a65ff59
            --エクソシスター・バト・マーテル
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_HANDES)
            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)
            --summon
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_SUMMON)
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetRange(LOCATION_SZONE)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.sumtg)
            e2:SetOperation(s.sumop)
            c:RegisterEffect(e2)
            --remove
            local custom_code=aux.RegisterMergedDelayedEvent_ToSingleCard(c,id,EVENT_TO_GRAVE)
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,2))
            e3:SetCategory(CATEGORY_REMOVE)
            e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e3:SetCode(custom_code)
            e3:SetRange(LOCATION_SZONE)
            e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
            e3:SetCountLimit(1,id+o*2)
            e3:SetCondition(s.rmcon)
            e3:SetTarget(s.rmtg)
            e3:SetOperation(s.rmop)
            c:RegisterEffect(e3)
            end
            function s.thfilter(c)
            return c:IsSetCard(0x172) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER)
            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,2,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK)
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            if not Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,2,nil) then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,2,2,nil)
            if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then
            Duel.ConfirmCards(1-tp,g)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
            local dg=Duel.SelectMatchingCard(tp,Card.IsDiscardable,tp,LOCATION_HAND,0,1,1,nil,REASON_EFFECT)
            Duel.ShuffleHand(tp)
            if dg:GetCount()>0 then
            Duel.BreakEffect()
            Duel.SendtoGrave(dg,REASON_EFFECT+REASON_DISCARD)
            end
            end
            end
            function s.cfilter(c,tp)
            return c:IsFaceup()
            and Duel.IsExistingMatchingCard(s.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,c)
            end
            function s.sumfilter(c,ec)
            return aux.IsCodeListed(ec,c:GetCode()) and c:IsSetCard(0x172) and c:IsSummonable(true,nil)
            end
            function s.sumtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.cfilter(chkc,tp) end
            if chk==0 then return Duel.IsExistingTarget(s.cfilter,tp,LOCATION_MZONE,0,1,nil,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
            Duel.SelectTarget(tp,s.cfilter,tp,LOCATION_MZONE,0,1,1,nil,tp)
            Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
            end
            function s.sumop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if not (tc:IsRelateToChain() and tc:IsFaceup() and tc:IsType(TYPE_MONSTER)) then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
            local sc=Duel.SelectMatchingCard(tp,s.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,tc):GetFirst()
            if sc then
            Duel.Summon(tp,sc,true,nil)
            end
            end
            function s.rmcon(e,tp,eg,ep,ev,re,r,rp)
            return eg:IsExists(Card.IsControler,1,nil,1-tp)
            end
            function s.rmfilter(c,tp)
            return c:IsLocation(LOCATION_GRAVE) and c:IsControler(1-tp) and c:IsAbleToRemove(1-tp) and c:IsType(TYPE_MONSTER)
            end
            function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            local sg=eg:Filter(s.rmfilter,nil,tp)
            if chk==0 then return sg:GetCount()>0 end
            Duel.SetTargetCard(sg)
            Duel.SetOperationInfo(0,CATEGORY_REMOVE,sg,1,0,0)
            end
            function s.rmop(e,tp,eg,ep,ev,re,r,rp)
            local sg=eg:Filter(s.rmfilter,nil,tp):Filter(aux.NecroValleyFilter(Card.IsRelateToChain),nil)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
            local rg=sg:Select(1-tp,1,1,nil)
            if rg and rg:GetCount()>0 then
            Duel.HintSelection(rg)
            Duel.Remove(rg,POS_FACEUP,REASON_EFFECT,1-tp)
            end
            end
            script/c101303067.lua deleted 100644 → 0
            View file @ 5a65ff59
            --禁じられた聖冠
            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_DISABLE)
            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.effilter(c)
            return c:IsFaceup() and c:GetFlagEffect(id)==0
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
            local g=Duel.GetMatchingGroup(s.effilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
            if chk==0 then return g:GetCount()>0 end
            Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
            if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
            Duel.SetChainLimit(s.chainlm)
            end
            end
            function s.chainlm(e,rp,tp)
            return not e:GetHandler():IsType(TYPE_MONSTER)
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
            local g=Duel.SelectMatchingCard(tp,s.effilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
            local tc=g:GetFirst()
            if tc and not tc:IsImmuneToEffect(e) then
            Duel.HintSelection(g)
            Duel.NegateRelatedChain(tc,RESET_TURN_SET)
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_DISABLE)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            tc:RegisterEffect(e1)
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetCode(EFFECT_DISABLE_EFFECT)
            e2:SetValue(RESET_TURN_SET)
            e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            tc:RegisterEffect(e2)
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_SINGLE)
            e3:SetCode(EFFECT_CANNOT_ATTACK)
            e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            tc:RegisterEffect(e3)
            local e4=Effect.CreateEffect(c)
            e4:SetType(EFFECT_TYPE_SINGLE)
            e4:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
            e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e4:SetValue(1)
            e4:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            tc:RegisterEffect(e4)
            local e5=e4:Clone()
            e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
            tc:RegisterEffect(e5)
            local e6=Effect.CreateEffect(c)
            e6:SetType(EFFECT_TYPE_SINGLE)
            e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
            e6:SetRange(LOCATION_MZONE)
            e6:SetCode(EFFECT_IMMUNE_EFFECT)
            e6:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            e6:SetValue(s.efilter)
            tc:RegisterEffect(e6)
            local e7=Effect.CreateEffect(c)
            e7:SetType(EFFECT_TYPE_SINGLE)
            e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
            e7:SetRange(LOCATION_MZONE)
            e7:SetCode(EFFECT_UNRELEASABLE_SUM)
            e7:SetValue(1)
            e7:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            tc:RegisterEffect(e7)
            local e8=e7:Clone()
            e8:SetCode(EFFECT_UNRELEASABLE_NONSUM)
            tc:RegisterEffect(e8)
            local e9=e7:Clone()
            e9:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
            e9:SetValue(s.fuslimit)
            tc:RegisterEffect(e9)
            local e10=e7:Clone()
            e10:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
            tc:RegisterEffect(e10)
            local e11=e7:Clone()
            e11:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
            tc:RegisterEffect(e11)
            local e12=e7:Clone()
            e12:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
            tc:RegisterEffect(e12)
            tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,1))
            end
            end
            function s.efilter(e,te)
            return te:GetOwner()~=e:GetHandler() and te:IsActivated()
            end
            function s.fuslimit(e,c,sumtype)
            return sumtype==SUMMON_TYPE_FUSION
            end
            script/c101303068.lua deleted 100644 → 0
            View file @ 5a65ff59
            --幻惑の操手
            local s,id,o=GetID()
            function s.initial_effect(c)
            --tograve
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_TOGRAVE)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetHintTiming(TIMING_END_PHASE)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.tgtg)
            e1:SetOperation(s.tgop)
            c:RegisterEffect(e1)
            --spsummon
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetCountLimit(1,id)
            e2:SetCondition(s.spcon)
            e2:SetCost(aux.bfgcost)
            e2:SetTarget(s.sptg)
            e2:SetOperation(s.spop)
            c:RegisterEffect(e2)
            end
            function s.tgfilter(c)
            return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ILLUSION) and c:IsAbleToGrave()
            end
            function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
            end
            function s.tgop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
            if #g>0 then
            Duel.SendtoGrave(g,REASON_EFFECT)
            end
            end
            function s.cfilter(c)
            return c:IsFaceup() and c:IsRace(RACE_ILLUSION) and c:IsLevelAbove(5)
            end
            function s.spcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
            end
            function s.spfilter(c,e,tp)
            return c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and s.spfilter(chkc,e,tp) end
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingTarget(s.spfilter,tp,0,LOCATION_GRAVE,1,nil,e,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectTarget(tp,s.spfilter,tp,0,LOCATION_GRAVE,1,1,nil,e,tp)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc and tc:IsRelateToChain() and aux.NecroValleyFilter()(tc) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then
            tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,2))
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
            e1:SetCode(EVENT_PHASE+PHASE_END)
            e1:SetCountLimit(1)
            e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
            e1:SetLabel(Duel.GetTurnCount()+1)
            e1:SetLabelObject(tc)
            e1:SetCondition(s.rmcon)
            e1:SetOperation(s.rmop)
            Duel.RegisterEffect(e1,tp)
            end
            end
            function s.rmcon(e,tp,eg,ep,ev,re,r,rp)
            local tc=e:GetLabelObject()
            if tc:GetFlagEffect(id)~=0 then
            return Duel.GetTurnCount()==e:GetLabel()
            else
            e:Reset()
            return false
            end
            end
            function s.rmop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_CARD,0,id)
            local tc=e:GetLabelObject()
            Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
            end
            script/c101303069.lua deleted 100644 → 0
            View file @ 5a65ff59
            --騷動
            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_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetHintTiming(0,TIMING_END_PHASE)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            --position
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_POSITION)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e2:SetCode(EVENT_ATTACK_ANNOUNCE)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetCountLimit(1,id+o)
            e2:SetCondition(s.poscon)
            e2:SetCost(aux.bfgcost)
            e2:SetTarget(s.postg)
            e2:SetOperation(s.posop)
            c:RegisterEffect(e2)
            end
            function s.rthfilter(c)
            return c:IsPosition(POS_FACEDOWN_DEFENSE) and c:IsAbleToHand()
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.rthfilter(chkc) end
            if chk==0 then return Duel.IsExistingTarget(s.rthfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
            local g=Duel.SelectTarget(tp,s.rthfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
            end
            function s.spfilter(c,e,tp,sp)
            return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE,sp)
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and tc:IsLocation(LOCATION_MZONE) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then
            local sp=tc:GetControler()
            local g=Duel.GetMatchingGroup(s.spfilter,sp,LOCATION_HAND,0,nil,e,tp,sp)
            if #g>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(sp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.Hint(HINT_SELECTMSG,sp,HINTMSG_SPSUMMON)
            local sg=g:Select(sp,1,1,nil)
            Duel.ShuffleHand(sp)
            Duel.SpecialSummon(sg,0,tp,sp,false,false,POS_FACEDOWN_DEFENSE)
            end
            end
            end
            function s.poscon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.GetAttacker():GetControler()~=tp
            end
            function s.postg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(aux.AND(Card.IsFacedown,Card.IsCanChangePosition),tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_POSITION,nil,1,0,0)
            end
            function s.posop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
            local g=Duel.SelectMatchingCard(tp,aux.AND(Card.IsFacedown,Card.IsCanChangePosition),tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
            if g:GetCount()>0 then
            Duel.HintSelection(g)
            Duel.ChangePosition(g,POS_FACEUP_ATTACK)
            end
            end
            script/c101303071.lua deleted 100644 → 0
            View file @ 5a65ff59
            --エルフェンノーツ～託選のアリスティア～
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            c:RegisterEffect(e1)
            --move
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,0))
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_FREE_CHAIN)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetRange(LOCATION_SZONE)
            e2:SetHintTiming(TIMING_END_PHASE)
            e2:SetCountLimit(1)
            e2:SetTarget(s.mvtg)
            e2:SetOperation(s.mvop)
            c:RegisterEffect(e2)
            --disable
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
            e3:SetType(EFFECT_TYPE_QUICK_O)
            e3:SetRange(LOCATION_SZONE)
            e3:SetCode(EVENT_CHAINING)
            e3:SetCountLimit(1,id)
            e3:SetCondition(s.discon)
            e3:SetTarget(s.distg)
            e3:SetOperation(s.disop)
            c:RegisterEffect(e3)
            end
            function s.mvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end
            if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil)
            and Duel.GetLocationCount(tp,LOCATION_MZONE,PLAYER_NONE,0)>0
            and Duel.GetFlagEffect(tp,id+o)==0 end
            Duel.RegisterFlagEffect(tp,id,RESET_CHAIN,0,1)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
            Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil)
            end
            function s.mvop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if not tc:IsRelateToChain() or not tc:IsLocation(LOCATION_MZONE) or tc:IsControler(1-tp)
            or Duel.GetLocationCount(tp,LOCATION_MZONE,PLAYER_NONE,0)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
            local seq=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0)
            local nseq=math.log(seq,2)
            Duel.MoveSequence(tc,nseq)
            end
            function s.cfilter(c)
            return c:IsFaceup() and c:IsSetCard(0x2d8)
            end
            function s.discon(e,tp,eg,ep,ev,re,r,rp)
            return rp==1-tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev)
            and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,3,nil)
            end
            function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetFlagEffect(tp,id)==0 end
            Duel.RegisterFlagEffect(tp,id+o,RESET_CHAIN,0,1)
            Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
            end
            function s.cdfilter(c)
            return c:IsFaceup() and c:IsType(TYPE_SYNCHRO)
            end
            function s.disop(e,tp,eg,ep,ev,re,r,rp)
            local rc=re:GetHandler()
            if Duel.NegateEffect(ev) and rc:IsRelateToChain(ev) and rc:IsDestructable()
            and Duel.IsExistingMatchingCard(s.cdfilter,tp,LOCATION_MZONE,0,1,nil)
            and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.BreakEffect()
            Duel.Destroy(rc,REASON_EFFECT)
            end
            end
            script/c101303072.lua deleted 100644 → 0
            View file @ 5a65ff59
            --エルフェンノーツ～狂奏のラプソディア～
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            c:RegisterEffect(e1)
            --cannot attack
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
            e2:SetRange(LOCATION_SZONE)
            e2:SetTargetRange(0,LOCATION_MZONE)
            e2:SetCondition(s.atkcon)
            e2:SetValue(s.atklimit)
            c:RegisterEffect(e2)
            --spsummon
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,0))
            e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DISABLE)
            e3:SetType(EFFECT_TYPE_QUICK_O)
            e3:SetCode(EVENT_FREE_CHAIN)
            e3:SetRange(LOCATION_SZONE)
            e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e3:SetHintTiming(TIMING_END_PHASE)
            e3:SetCountLimit(1,id)
            e3:SetCost(s.spcost)
            e3:SetTarget(s.sptg)
            e3:SetOperation(s.spop)
            c:RegisterEffect(e3)
            end
            function s.atkfilter(c)
            return c:GetSequence()==2
            end
            function s.atkcon(e)
            return Duel.IsExistingMatchingCard(s.atkfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
            end
            function s.atklimit(e,c)
            return c:GetSequence()~=2
            end
            function s.costfilter(c,e,tp)
            return c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() and Duel.GetMZoneCount(tp,c)>0
            and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,c:GetOriginalAttribute())
            end
            function s.spfilter(c,e,tp,attr)
            return c:IsSetCard(0x2d8) and c:GetOriginalAttribute()&attr==0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,e,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,e,tp)
            local tc=g:GetFirst()
            e:SetLabel(tc:GetOriginalAttribute())
            Duel.SendtoGrave(tc,REASON_COST)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            local attr=e:GetLabel()
            if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.spfilter(chkc,e,tp,attr) end
            if chk==0 then return e:IsCostChecked() end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,attr)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and aux.NecroValleyFilter()(tc)
            and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0
            and Duel.IsExistingMatchingCard(aux.AND(Card.IsFaceup,Card.IsAllTypes),tp,LOCATION_MZONE,0,1,nil,TYPE_SYNCHRO+TYPE_MONSTER)
            and Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,nil)
            and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
            local g=Duel.SelectMatchingCard(tp,aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,1,nil)
            local dc=g:GetFirst()
            if dc then
            Duel.HintSelection(g)
            Duel.BreakEffect()
            Duel.NegateRelatedChain(dc,RESET_TURN_SET)
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetCode(EFFECT_DISABLE)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            dc:RegisterEffect(e1)
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e2:SetCode(EFFECT_DISABLE_EFFECT)
            e2:SetValue(RESET_TURN_SET)
            e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            dc:RegisterEffect(e2)
            if dc:IsType(TYPE_TRAPMONSTER) then
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_SINGLE)
            e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
            e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            dc:RegisterEffect(e3)
            end
            end
            end
            end
            script/c101303073.lua deleted 100644 → 0
            View file @ 5a65ff59
            --デーモンの諧謔
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,101303014,101303015,101303016)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
            e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0x45) and c:IsLevelBelow(7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.cspfilter(c,e,tp)
            return c:IsCode(101303014,101303015,101303016) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
            end
            function s.cfilter(c)
            return c:IsFaceup() and c:IsSetCard(0x45) and c:IsType(TYPE_RITUAL)
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
            local b1=Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp)
            local b2=Duel.IsExistingMatchingCard(s.cspfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp)
            and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_EXTRA,0,1,nil)
            and not Duel.IsPlayerAffectedByEffect(tp,59822133)
            if b2 and (not b1 or Duel.SelectYesNo(tp,aux.Stringid(id,0))) then
            local g=Duel.GetMatchingGroup(s.cspfilter,tp,LOCATION_DECK+LOCATION_HAND,0,nil,e,tp)
            local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
            if ft>0 and #g>0 then
            if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local sg=g:SelectSubGroup(tp,aux.dncheck,false,1,math.min(3,ft))
            if sg then
            Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            elseif b1 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            end
            script/c101303074.lua deleted 100644 → 0
            View file @ 5a65ff59
            --デーモンの気魄
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            c:RegisterEffect(e1)
            --disable
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,0))
            e2:SetCategory(CATEGORY_DISABLE)
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_FREE_CHAIN)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetRange(LOCATION_SZONE)
            e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
            e2:SetCountLimit(1,id)
            e2:SetCondition(s.discon)
            e2:SetTarget(s.distg)
            e2:SetOperation(s.disop)
            c:RegisterEffect(e2)
            --search
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
            e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e3:SetCode(EVENT_REMOVE)
            e3:SetProperty(EFFECT_FLAG_DELAY)
            e3:SetCountLimit(1,id+o)
            e3:SetCondition(s.thcon)
            e3:SetTarget(s.thtg)
            e3:SetOperation(s.thop)
            c:RegisterEffect(e3)
            end
            function s.cfilter(c)
            return c:GetSequence()>4 and c:IsSetCard(0x45) and c:IsType(TYPE_RITUAL)
            and c:IsFaceup()
            end
            function s.discon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
            end
            function s.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and aux.NegateAnyFilter(chkc) end
            if chk==0 then return Duel.IsExistingTarget(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
            local g=Duel.SelectTarget(tp,aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,1,nil)
            Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
            end
            function s.disop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local tc=Duel.GetFirstTarget()
            if tc:IsFaceup() and tc:IsRelateToChain() and tc:IsCanBeDisabledByEffect(e,false) then
            Duel.NegateRelatedChain(tc,RESET_TURN_SET)
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetCode(EFFECT_DISABLE)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            tc:RegisterEffect(e1)
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e2:SetCode(EFFECT_DISABLE_EFFECT)
            e2:SetValue(RESET_TURN_SET)
            e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            tc:RegisterEffect(e2)
            if tc:IsType(TYPE_TRAPMONSTER) then
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_SINGLE)
            e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
            e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            tc:RegisterEffect(e3)
            end
            end
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsPreviousLocation(LOCATION_HAND+LOCATION_ONFIELD)
            end
            function s.thfilter(c)
            return c:IsSetCard(0x45) and not c:IsCode(id) and c:IsAbleToHand()
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
            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
            script/c101303075.lua deleted 100644 → 0
            View file @ 5a65ff59
            --空牙団の奥義
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetCategory(CATEGORY_DESTROY+CATEGORY_REMOVE)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e1:SetHintTiming(0,TIMING_END_PHASE)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            --to hand
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_TOHAND)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e2:SetCode(EVENT_SPSUMMON_SUCCESS)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetProperty(EFFECT_FLAG_DELAY)
            e2:SetCountLimit(1,id)
            e2:SetCondition(s.thcon)
            e2:SetTarget(s.thtg)
            e2:SetOperation(s.thop)
            c:RegisterEffect(e2)
            end
            function s.cfilter(c)
            return c:IsFaceup() and c:IsSetCard(0x114)
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsOnField() and chkc:IsFaceup() end
            if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
            and Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
            local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_MZONE,0,nil)
            local ct=g:GetClassCount(Card.GetCode)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local sg=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,e:GetHandler())
            if not (Duel.IsExistingMatchingCard(s.cfilter1,tp,LOCATION_MZONE,0,1,nil)
            and Duel.IsExistingMatchingCard(s.cfilter2,tp,LOCATION_MZONE,0,1,nil)
            and sg:IsExists(Card.IsAbleToRemove,1,nil)) then
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
            end
            end
            function s.cfilter1(c)
            return c:IsFaceup() and c:IsSetCard(0x114) and c:IsLevelAbove(8)
            end
            function s.cfilter2(c)
            return c:IsFaceup() and c:IsSetCard(0x114) and c:IsLinkAbove(3)
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToChain,nil)
            if not g:IsExists(aux.NOT(Card.IsAbleToRemove),1,nil)
            and Duel.IsExistingMatchingCard(s.cfilter1,tp,LOCATION_MZONE,0,1,nil)
            and Duel.IsExistingMatchingCard(s.cfilter2,tp,LOCATION_MZONE,0,1,nil)
            and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
            else
            Duel.Destroy(g,REASON_EFFECT)
            end
            end
            function s.cthfilter(c,tp)
            return c:IsSetCard(0x114) and c:IsFaceup() and c:IsControler(tp)
            and (c:IsLevelAbove(8) or c:IsLinkAbove(3))
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return eg:IsExists(s.cthfilter,1,nil,tp)
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:GetHandler():IsAbleToHand() end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
            end
            function s.thop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsRelateToChain() and aux.NecroValleyFilter()(c) then
            Duel.SendtoHand(c,nil,REASON_EFFECT)
            end
            end
            script/c101303076.lua deleted 100644 → 0
            View file @ 5a65ff59
            --アシスト★ヤミー！
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            c:RegisterEffect(e1)
            --lp change
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,0))
            e2:SetCategory(CATEGORY_RECOVER)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e2:SetRange(LOCATION_SZONE)
            e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
            e2:SetCountLimit(1)
            e2:SetTarget(s.lptg)
            e2:SetOperation(s.lpop)
            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:SetRange(LOCATION_SZONE)
            e3:SetHintTiming(0,TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_BATTLE_END)
            e3:SetCountLimit(1,id)
            e3:SetCondition(s.thcon)
            e3:SetCost(s.thcost)
            e3:SetTarget(s.thtg)
            e3:SetOperation(s.thop)
            c:RegisterEffect(e3)
            --to grave
            local e4=Effect.CreateEffect(c)
            e4:SetDescription(aux.Stringid(id,2))
            e4:SetCategory(CATEGORY_TOGRAVE)
            e4:SetType(EFFECT_TYPE_QUICK_O)
            e4:SetCode(EVENT_FREE_CHAIN)
            e4:SetRange(LOCATION_GRAVE)
            e4:SetHintTiming(TIMING_END_PHASE)
            e4:SetCountLimit(1,id)
            e4:SetCost(aux.bfgcost)
            e4:SetTarget(s.tgtg)
            e4:SetOperation(s.tgop)
            c:RegisterEffect(e4)
            end
            function s.lptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLP(1-tp)>=100 end
            Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,100)
            end
            function s.lpop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.Recover(tp,100,REASON_EFFECT)~=0 and Duel.GetLP(1-tp)>=100 then
            Duel.PayLPCost(1-tp,100)
            end
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return (Duel.IsMainPhase() or Duel.GetTurnPlayer()~=tp and Duel.IsBattlePhase())
            and e:GetHandler():IsStatus(STATUS_EFFECT_ENABLED)
            end
            function s.cfilter(c,ec,tp)
            return c:IsFaceup() and c:IsSetCard(0x1ca) and c:IsAbleToGraveAsCost()
            and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_GRAVE+LOCATION_ONFIELD,LOCATION_GRAVE+LOCATION_ONFIELD,1,Group.FromCards(c,ec))
            end
            function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
            local c=e:GetHandler()
            if chk==0 then return c:IsAbleToGraveAsCost() and c:IsFaceup()
            and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,0,1,c,c,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler(),c,tp)
            g:AddCard(c)
            Duel.SendtoGrave(g,REASON_COST)
            end
            function s.thfilter(c)
            return c:IsAbleToHand()
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_GRAVE+LOCATION_ONFIELD,LOCATION_GRAVE+LOCATION_ONFIELD,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE+LOCATION_ONFIELD)
            end
            function s.thop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_GRAVE+LOCATION_ONFIELD,LOCATION_GRAVE+LOCATION_ONFIELD,1,1,nil)
            if g:GetCount()>0 then
            Duel.HintSelection(g)
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            end
            end
            function s.tgfilter(c)
            return c:IsSetCard(0x1ca) and not c:IsCode(id) and c:IsAbleToGrave()
            end
            function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
            end
            function s.tgop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
            if g:GetCount()>0 then
            Duel.SendtoGrave(g,REASON_EFFECT)
            end
            end
            script/c101303077.lua deleted 100644 → 0
            View file @ 5a65ff59
            --禁断儀式術
            local s,id,o=GetID()
            function s.initial_effect(c)
            --Activate
            local e1=aux.AddRitualProcEqual2(c,aux.TRUE,LOCATION_GRAVE,aux.TRUE,aux.FALSE,false,s.extraop)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCountLimit(1,id)
            e1:SetHintTiming(TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
            c:RegisterEffect(e1)
            --ritual
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            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:SetOperation(s.rlop)
            c:RegisterEffect(e2)
            if not s.globle_check then
            s.globle_check=true
            Ritual_ReleaseRitualMaterial=Duel.ReleaseRitualMaterial
            Duel.ReleaseRitualMaterial=function(mat)
            if mat:IsExists(s.rlfilter,1,nil,0) and Duel.GetFlagEffect(0,id)~=0 then
            Duel.RegisterFlagEffect(0,id+o,RESET_PHASE+PHASE_END,0,1)
            end
            if mat:IsExists(s.rlfilter,1,nil,1) and Duel.GetFlagEffect(1,id)~=0 then
            Duel.RegisterFlagEffect(1,id+o,RESET_PHASE+PHASE_END,0,1)
            end
            Ritual_ReleaseRitualMaterial(mat)
            end
            end
            end
            function s.rlfilter(c,tp)
            return c:IsLocation(LOCATION_GRAVE) and c:IsAllTypes(TYPE_RITUAL+TYPE_MONSTER)
            and c:IsControler(tp)
            end
            function s.extraop(e,tp,eg,ep,ev,re,r,rp,tc,mat)
            if not tc then return end
            local fid=e:GetHandler():GetFieldID()
            tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1,fid)
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
            e1:SetCode(EVENT_PHASE+PHASE_END)
            e1:SetCountLimit(1)
            e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
            e1:SetLabel(fid)
            e1:SetLabelObject(tc)
            e1:SetCondition(s.descon)
            e1:SetOperation(s.desop)
            Duel.RegisterEffect(e1,tp)
            end
            function s.descon(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.desop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_CARD,0,id)
            Duel.Destroy(e:GetLabelObject(),REASON_EFFECT)
            end
            function s.rlop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetFlagEffect(tp,id)==0 then
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetCode(EFFECT_EXTRA_RITUAL_MATERIAL)
            e1:SetTargetRange(LOCATION_GRAVE,0)
            e1:SetCondition(s.rlcon)
            e1:SetTarget(s.rltg)
            e1:SetValue(1)
            e1:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e1,tp)
            end
            Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
            end
            function s.rlcon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.GetFlagEffect(e:GetHandlerPlayer(),id)>Duel.GetFlagEffect(e:GetHandlerPlayer(),id+o)
            end
            function s.rltg(e,c)
            return c:IsAllTypes(TYPE_RITUAL+TYPE_MONSTER)
            end
            script/c101303078.lua deleted 100644 → 0
            View file @ 5a65ff59
            --武器庫整理
            local s,id,o=GetID()
            function s.initial_effect(c)
            --send
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_TOGRAVE)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetHintTiming(TIMING_END_PHASE)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.tgtg)
            e1:SetOperation(s.tgop)
            c:RegisterEffect(e1)
            --equip
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_EQUIP)
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_FREE_CHAIN)
            e2:SetRange(LOCATION_GRAVE)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetHintTiming(TIMING_END_PHASE)
            e2:SetCountLimit(1,id)
            e2:SetCost(aux.bfgcost)
            e2:SetTarget(s.eqtg)
            e2:SetOperation(s.eqop)
            c:RegisterEffect(e2)
            end
            function s.tgfilter(c)
            return c:IsType(TYPE_EQUIP) and c:IsAbleToGrave()
            end
            function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
            end
            function s.tgop(e,tp,eg,ep,ev,re,r,rp)
            local g=Duel.GetMatchingGroup(s.tgfilter,tp,LOCATION_DECK,0,nil)
            if g:GetCount()>0 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
            local sg=g:SelectSubGroup(tp,aux.dncheck,false,1,2)
            Duel.SendtoGrave(sg,REASON_EFFECT)
            end
            end
            function s.eqfilter(c,tc,tp)
            return c:IsAllTypes(TYPE_EQUIP+TYPE_SPELL) and c:CheckEquipTarget(tc) and not c:IsForbidden()
            and c:CheckUniqueOnField(tp,LOCATION_SZONE)
            end
            function s.mfilter(c,tp)
            return c:IsFaceup() and Duel.IsExistingMatchingCard(s.eqfilter,c:GetControler(),LOCATION_GRAVE+LOCATION_HAND,0,1,nil,c,tp)
            end
            function s.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and s.mfilter(chkc) end
            if chk==0 then return Duel.IsExistingTarget(s.mfilter,tp,LOCATION_MZONE,0,1,nil,tp) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
            local g=Duel.SelectTarget(tp,s.mfilter,tp,LOCATION_MZONE,0,1,1,nil)
            Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND)
            end
            function s.eqop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            local ct=Duel.GetLocationCount(tp,LOCATION_SZONE)
            if ct>2 then ct=2 end
            if tc:IsRelateToChain() and tc:IsFaceup() and tc:IsType(TYPE_MONSTER) and ct>0 then
            local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.eqfilter),tp,LOCATION_GRAVE+LOCATION_HAND,0,nil,tc,tp)
            local sg=g:SelectSubGroup(tp,aux.dncheck,false,1,ct)
            if not sg or sg:GetCount()==0 then return end
            for ec in aux.Next(sg) do
            if Duel.Equip(tp,ec,tc,true,true) then
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_EQUIP)
            e1:SetDescription(aux.Stringid(id,2))
            e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
            e1:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
            e1:SetValue(aux.ChangeBattleDamage(1,HALF_DAMAGE))
            e1:SetReset(RESET_EVENT+RESETS_STANDARD)
            ec:RegisterEffect(e1,true)
            end
            end
            Duel.EquipComplete()
            end
            end
            script/c101303079.lua deleted 100644 → 0
            View file @ 5a65ff59
            --舌先減少
            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_DISABLE+CATEGORY_SEARCH+CATEGORY_TOHAND)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_CHAINING)
            e1:SetCondition(s.discon)
            e1:SetTarget(s.distg)
            e1:SetOperation(s.disop)
            c:RegisterEffect(e1)
            --atk
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_ATKCHANGE)
            e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
            e2:SetCode(EVENT_DESTROYED)
            e2:SetCondition(s.atkcon)
            e2:SetTarget(s.atktg)
            e2:SetOperation(s.atkop)
            c:RegisterEffect(e2)
            end
            function s.discon(e,tp,eg,ep,ev,re,r,rp)
            local ex=Duel.GetOperationInfo(ev,CATEGORY_ANNOUNCE)
            return rp==1-tp and ex and Duel.IsChainDisablable(ev)
            end
            function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return true end
            Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
            end
            function s.thfilter(c,code)
            return c:IsCode(code) and c:IsAbleToHand()
            end
            function s.disop(e,tp,eg,ep,ev,re,r,rp)
            local code=Duel.GetChainInfo(ev,CHAININFO_TARGET_PARAM)
            if Duel.NegateEffect(ev)
            and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil,code)
            and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil,code)
            if g:GetCount()>0 then
            Duel.BreakEffect()
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,g)
            end
            end
            end
            function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            return c:IsReason(REASON_EFFECT) and rp==1-tp and c:IsPreviousControler(tp)
            and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEDOWN)
            end
            function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end
            if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
            Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
            end
            function s.atkop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsFaceup() and tc:IsRelateToChain() and tc:IsLocation(LOCATION_MZONE) then
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_UPDATE_ATTACK)
            e1:SetValue(-500)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD)
            tc:RegisterEffect(e1)
            end
            end
            script/c101303080.lua deleted 100644 → 0
            View file @ 5a65ff59
            --死地誤算守護
            local s,id,o=GetID()
            function s.initial_effect(c)
            --activate
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetHintTiming(TIMING_END_PHASE)
            e1:SetCost(s.cost)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            --lv
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
            e2:SetCode(EVENT_PHASE+PHASE_END)
            e2:SetRange(LOCATION_SZONE)
            e2:SetCountLimit(1)
            e2:SetTarget(s.lvtg)
            e2:SetOperation(s.lvop)
            c:RegisterEffect(e2)
            --atk up
            local e3=Effect.CreateEffect(c)
            e3:SetType(EFFECT_TYPE_EQUIP)
            e3:SetCode(EFFECT_UPDATE_ATTACK)
            e3:SetCondition(s.lvcon(3))
            e3:SetValue(s.atkval)
            c:RegisterEffect(e3)
            --immune
            local e4=Effect.CreateEffect(c)
            e4:SetType(EFFECT_TYPE_EQUIP)
            e4:SetCode(EFFECT_IMMUNE_EFFECT)
            e4:SetCondition(s.lvcon(5))
            e4:SetValue(s.efilter)
            c:RegisterEffect(e4)
            --tograve
            local e5=Effect.CreateEffect(c)
            e5:SetCategory(CATEGORY_TOGRAVE)
            e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
            e5:SetCode(EVENT_PHASE+PHASE_STANDBY)
            e5:SetRange(LOCATION_SZONE)
            e5:SetCountLimit(1)
            e5:SetCondition(s.tgcon2)
            e5:SetTarget(s.tgtg2)
            e5:SetOperation(s.tgop2)
            c:RegisterEffect(e5)
            end
            function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return true end
            local c=e:GetHandler()
            local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_REMAIN_FIELD)
            e1:SetProperty(EFFECT_FLAG_OATH)
            e1:SetReset(RESET_CHAIN)
            c:RegisterEffect(e1)
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
            e2:SetCode(EVENT_CHAIN_DISABLED)
            e2:SetOperation(s.tgop)
            e2:SetLabel(cid)
            e2:SetReset(RESET_CHAIN)
            Duel.RegisterEffect(e2,tp)
            end
            function s.tgop(e,tp,eg,ep,ev,re,r,rp)
            local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
            if cid~=e:GetLabel() then return end
            if e:GetOwner():IsRelateToChain(ev) then
            e:GetOwner():CancelToGrave(false)
            end
            end
            function s.spfilter(c,e,tp)
            return (c:IsLevel(1) or c:IsRank(1)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp)
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return e:IsCostChecked()
            and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
            end
            function s.eqlimit(e,c)
            return e:GetOwner()==c
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
            local tc=g:GetFirst()
            if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then
            Duel.Equip(tp,c,tc)
            --Add Equip limit
            local e1=Effect.CreateEffect(tc)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_EQUIP_LIMIT)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD)
            e1:SetValue(s.eqlimit)
            c:RegisterEffect(e1)
            end
            end
            if c:IsOnField() and not c:GetEquipTarget() then
            c:CancelToGrave(false)
            end
            end
            function s.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chk==0 then return e:GetHandler():GetEquipTarget() end
            end
            function s.lvop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            local tc=c:GetEquipTarget()
            if tc:IsFaceup() then
            local e1=Effect.CreateEffect(c)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetType(EFFECT_TYPE_SINGLE)
            if tc:IsLevelAbove(1) then
            e1:SetCode(EFFECT_UPDATE_LEVEL)
            else
            e1:SetCode(EFFECT_UPDATE_RANK)
            end
            e1:SetReset(RESET_EVENT+RESETS_STANDARD)
            e1:SetValue(1)
            tc:RegisterEffect(e1)
            end
            end
            function s.lvcon(lv)
            return function(e)
            local tc=e:GetHandler():GetEquipTarget()
            return tc:IsLevelAbove(lv) or tc:IsRankAbove(lv)
            end
            end
            function s.atkval(e,c)
            return c:GetBaseAttack()
            end
            function s.efilter(e,te)
            return te:GetOwnerPlayer()~=e:GetHandlerPlayer() and te:GetOwner()~=e:GetOwner()
            and te:IsActivated()
            end
            function s.tgcon2(e,tp,eg,ep,ev,re,r,rp)
            local tc=e:GetHandler():GetEquipTarget()
            return Duel.GetTurnPlayer()==tp
            and (tc:IsLevelAbove(7) or tc:IsRankAbove(7))
            end
            function s.tgtg2(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return true end
            local dg=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
            Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,dg,dg:GetCount(),0,0)
            end
            function s.tgop2(e,tp,eg,ep,ev,re,r,rp)
            local dg=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
            Duel.SendtoGrave(dg,REASON_EFFECT)
            end
            script/c101303201.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ヴァレット・ローダー
            local s,id,o=GetID()
            function s.initial_effect(c)
            --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_SUMMON_SUCCESS)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCountLimit(1,id)
            e1:SetTarget(s.thtg)
            e1:SetOperation(s.thop)
            c:RegisterEffect(e1)
            local e2=e1:Clone()
            e2:SetCode(EVENT_SPSUMMON_SUCCESS)
            c:RegisterEffect(e2)
            --change attribute
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,1))
            e3:SetType(EFFECT_TYPE_IGNITION)
            e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e3:SetRange(LOCATION_GRAVE)
            e3:SetCountLimit(1,id+o)
            e3:SetCost(aux.bfgcost)
            e3:SetTarget(s.atttg)
            e3:SetOperation(s.attop)
            c:RegisterEffect(e3)
            end
            function s.thfilter(c)
            return c:IsLevel(7) and c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToHand()
            end
            function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
            end
            function s.thop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
            if #g>0 then
            Duel.SendtoHand(g,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,g)
            end
            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:IsAttribute(ATTRIBUTE_DARK) and c:IsLocation(LOCATION_EXTRA)
            end
            function s.attfilter(c)
            return c:IsFaceup() and not c:IsAttribute(ATTRIBUTE_DARK)
            end
            function s.atttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.attfilter(chkc) end
            if chk==0 then return Duel.IsExistingTarget(s.attfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
            Duel.SelectTarget(tp,s.attfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
            end
            function s.attop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and tc:IsFaceup() and tc:IsType(TYPE_MONSTER) and not tc:IsAttribute(ATTRIBUTE_DARK) then
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_CHANGE_ATTRIBUTE)
            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e1:SetValue(ATTRIBUTE_DARK)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            tc:RegisterEffect(e1)
            end
            end
            script/c101303202.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ホロウヴァレット・ドラゴン
            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+CATEGORY_REMOVE)
            e1:SetType(EFFECT_TYPE_QUICK_O)
            e1:SetCode(EVENT_CHAINING)
            e1:SetRange(LOCATION_MZONE)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.rmcon)
            e1:SetTarget(s.rmtg)
            e1:SetOperation(s.rmop)
            c:RegisterEffect(e1)
            --to grave
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
            e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e2:SetCode(EVENT_TO_GRAVE)
            e2:SetOperation(s.regop)
            c:RegisterEffect(e2)
            end
            function s.rmcon(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
            local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
            if not g or not g:IsContains(c) then return false end
            return re:IsActiveType(TYPE_LINK)
            end
            function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
            local c=e:GetHandler()
            local g=Duel.GetDecktopGroup(1-tp,1)
            if chk==0 then return c:IsDestructable() and g:GetCount()>0 and g:GetFirst():IsAbleToRemove(tp) end
            Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_DECK)
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,c,1,0,0)
            end
            function s.rmop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsRelateToChain() and Duel.Destroy(c,REASON_EFFECT)>0 then
            local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
            if ct>5 then ct=6 end
            if ct>1 then
            local cg=Duel.GetDecktopGroup(1-tp,1)
            if not cg:GetFirst():IsAbleToRemove(tp) then
            return
            end
            local tbl={}
            for i=1,ct do
            table.insert(tbl,i)
            end
            Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(id,2))
            ct=Duel.AnnounceNumber(tp,table.unpack(tbl))
            end
            Duel.BreakEffect()
            Duel.ConfirmDecktop(1-tp,ct)
            local g=Duel.GetDecktopGroup(1-tp,ct)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
            Duel.RevealSelectDeckSequence(true)
            local sg=g:FilterSelect(tp,Card.IsAbleToRemove,1,1,nil,tp)
            Duel.RevealSelectDeckSequence(false)
            if #sg>0 then
            Duel.DisableShuffleCheck(true)
            Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
            end
            end
            end
            function s.regop(e,tp,eg,ep,ev,re,r,rp)
            local c=e:GetHandler()
            if c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsReason(REASON_DESTROY) and c:IsPreviousLocation(LOCATION_ONFIELD) then
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,1))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e1:SetCode(EVENT_PHASE+PHASE_END)
            e1:SetCountLimit(1,id+o)
            e1:SetRange(LOCATION_GRAVE)
            e1:SetTarget(s.sptg)
            e1:SetOperation(s.spop)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            c:RegisterEffect(e1)
            end
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0x102) and not c:IsCode(id) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            script/c101303203.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ヴァレット・デトネイター
            local s,id,o=GetID()
            function s.initial_effect(c)
            --spsummon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetCode(EFFECT_SPSUMMON_PROC)
            e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
            e1:SetRange(LOCATION_HAND)
            e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
            e1:SetCondition(s.spcon)
            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:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.spstg)
            e2:SetOperation(s.spsop)
            c:RegisterEffect(e2)
            end
            function s.cfilter(c)
            return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_LINK) and c:IsFaceup()
            end
            function s.spcon(e,c)
            if c==nil then return true end
            return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(s.cfilter,c:GetControler(),LOCATION_MZONE,0,1,nil)
            end
            function s.sfilter(c,e,tp)
            return (c:GetOriginalType()&TYPE_MONSTER)~=0
            and (c:GetOriginalAttribute()&ATTRIBUTE_DARK)~=0
            and (c:GetOriginalRace()&RACE_DRAGON)~=0
            and c:IsFaceup() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            and c:GetSequence()<5
            end
            function s.spstg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsOnField() and s.sfilter(chkc,e,tp) end
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingTarget(s.sfilter,tp,LOCATION_SZONE,0,1,nil,e,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectTarget(tp,s.sfilter,tp,LOCATION_SZONE,0,1,1,nil,e,tp)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
            end
            function s.spsop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_DISABLE)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD)
            tc:RegisterEffect(e1)
            local e2=Effect.CreateEffect(e:GetHandler())
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetCode(EFFECT_DISABLE_EFFECT)
            e2:SetValue(RESET_TURN_SET)
            e2:SetReset(RESET_EVENT+RESETS_STANDARD)
            tc:RegisterEffect(e2)
            local e3=Effect.CreateEffect(e:GetHandler())
            e3:SetType(EFFECT_TYPE_SINGLE)
            e3:SetCode(EFFECT_CANNOT_ATTACK)
            e3:SetReset(RESET_EVENT+RESETS_STANDARD)
            tc:RegisterEffect(e3)
            end
            Duel.SpecialSummonComplete()
            local e4=Effect.CreateEffect(e:GetHandler())
            e4:SetType(EFFECT_TYPE_FIELD)
            e4:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
            e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e4:SetTargetRange(1,0)
            e4:SetTarget(s.splimit)
            e4:SetReset(RESET_PHASE+PHASE_END)
            Duel.RegisterEffect(e4,tp)
            end
            function s.splimit(e,c)
            return not c:IsAttribute(ATTRIBUTE_DARK) and c:IsLocation(LOCATION_EXTRA)
            end
            script/c101303204.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ヴァレルロード・FF・ドラゴン
            local s,id,o=GetID()
            function s.initial_effect(c)
            --fusion material
            c:EnableReviveLimit()
            aux.AddFusionProcFun2(c,s.mfilter,aux.FilterBoolFunction(Card.IsFusionAttribute,ATTRIBUTE_DARK),true)
            --search
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.thcon)
            e1:SetTarget(s.thtg)
            e1:SetOperation(s.thop)
            c:RegisterEffect(e1)
            --equip
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_EQUIP)
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetRange(LOCATION_MZONE)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.eqtg)
            e2:SetOperation(s.eqop)
            c:RegisterEffect(e2)
            --destroy
            local e3=Effect.CreateEffect(c)
            e3:SetDescription(aux.Stringid(id,2))
            e3:SetCategory(CATEGORY_DESTROY)
            e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e3:SetCode(EVENT_BE_MATERIAL)
            e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
            e3:SetCountLimit(1,id+o*2)
            e3:SetCondition(s.descon)
            e3:SetTarget(s.destg)
            e3:SetOperation(s.desop)
            c:RegisterEffect(e3)
            end
            function s.mfilter(c)
            return c:IsFusionType(TYPE_LINK) and c:IsFusionAttribute(ATTRIBUTE_DARK)
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
            end
            function s.thfilter(c)
            return c:IsSetCard(0x102) and c:IsType(TYPE_MONSTER) 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.eqfilter(c,tp)
            return c:IsAttribute(ATTRIBUTE_DARK) and c:IsFaceup()
            and Duel.IsExistingMatchingCard(s.eqfilter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,tp)
            end
            function s.eqfilter2(c,tp)
            return c:IsFaceupEx() and c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_LINK) and not c:IsForbidden()
            and c:CheckUniqueOnField(tp,LOCATION_SZONE)
            end
            function s.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.eqfilter(chkc,tp) end
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
            and Duel.IsExistingTarget(s.eqfilter,tp,LOCATION_MZONE,0,1,nil,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
            Duel.SelectTarget(tp,s.eqfilter,tp,LOCATION_MZONE,0,1,1,nil,tp)
            Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,1,tp,0)
            end
            function s.eqop(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
            local c=e:GetHandler()
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and tc:IsType(TYPE_MONSTER) and tc:IsFaceup() then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
            local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.eqfilter2),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,tp)
            local ec=g:GetFirst()
            if not ec or not Duel.Equip(tp,ec,tc) then return end
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_EQUIP_LIMIT)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD)
            e1:SetValue(s.eqlimit)
            e1:SetLabelObject(tc)
            ec:RegisterEffect(e1)
            local e2=Effect.CreateEffect(ec)
            e2:SetType(EFFECT_TYPE_EQUIP)
            e2:SetCode(EFFECT_UPDATE_ATTACK)
            e2:SetValue(500)
            e2:SetReset(RESET_EVENT+RESETS_STANDARD)
            ec:RegisterEffect(e2)
            end
            end
            function s.eqlimit(e,c)
            return c==e:GetLabelObject()
            end
            function s.descon(e,tp,eg,ep,ev,re,r,rp)
            return r==REASON_LINK and e:GetHandler():IsLocation(LOCATION_GRAVE)
            end
            function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return chkc:IsOnField() end
            if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
            end
            function s.desop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            if tc:IsRelateToChain() and tc:IsOnField() then
            Duel.Destroy(tc,REASON_EFFECT)
            end
            end
            script/c101303205.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ヴァレルシュラウド・ドラゴン
            local s,id,o=GetID()
            function s.initial_effect(c)
            --link summon
            aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),3)
            c:EnableReviveLimit()
            --cannot release
            local e1=Effect.CreateEffect(c)
            e1:SetType(EFFECT_TYPE_FIELD)
            e1:SetCode(EFFECT_CANNOT_RELEASE)
            e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
            e1:SetRange(LOCATION_MZONE)
            e1:SetTargetRange(0,1)
            e1:SetTarget(s.rellimit)
            c:RegisterEffect(e1)
            --disable
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DISABLE)
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetCode(EVENT_FREE_CHAIN)
            e2:SetRange(LOCATION_MZONE)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetCountLimit(1)
            e2:SetHintTiming(0,TIMING_MAIN_END)
            e2:SetCondition(s.discon)
            e2:SetTarget(s.distg)
            e2:SetOperation(s.disop)
            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_FIELD+EFFECT_TYPE_TRIGGER_O)
            e3:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
            e3:SetRange(LOCATION_MZONE)
            e3:SetProperty(EFFECT_FLAG_NO_TURN_RESET)
            e3:SetCountLimit(1)
            e3:SetTarget(s.sptg)
            e3:SetOperation(s.spop)
            c:RegisterEffect(e3)
            end
            function s.rellimit(e,c,tp)
            return c==e:GetHandler()
            end
            function s.discon(e,tp,eg,ep,ev,re,r,rp)
            return Duel.IsMainPhase()
            end
            function s.desfilter(c)
            return c:IsFaceup() and c:IsSetCard(0x102)
            end
            function s.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            local sg=Duel.GetMatchingGroup(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,nil)
            if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.desfilter(chkc) end
            if chk==0 then return sg:GetCount()>0 and Duel.IsExistingTarget(s.desfilter,tp,LOCATION_MZONE,0,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local g=Duel.SelectTarget(tp,s.desfilter,tp,LOCATION_MZONE,0,1,1,nil)
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
            Duel.SetOperationInfo(0,CATEGORY_DISABLE,sg,1,0,0)
            Duel.SetChainLimit(s.chainlm)
            end
            function s.chainlm(e,ep,tp)
            return tp==ep
            end
            function s.disop(e,tp,eg,ep,ev,re,r,rp)
            local tc=Duel.GetFirstTarget()
            local sg=Duel.GetMatchingGroup(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,nil)
            if sg:GetCount()>0 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
            local tg=sg:Select(tp,1,1,nil)
            Duel.HintSelection(tg)
            local sc=tg:GetFirst()
            if not sc:IsCanBeDisabledByEffect(e) then return end
            Duel.NegateRelatedChain(sc,RESET_TURN_SET)
            local e2=Effect.CreateEffect(e:GetHandler())
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
            e2:SetCode(EFFECT_DISABLE)
            e2:SetReset(RESET_EVENT+RESETS_STANDARD)
            sc:RegisterEffect(e2)
            local e3=e2:Clone()
            e3:SetCode(EFFECT_DISABLE_EFFECT)
            e3:SetValue(RESET_TURN_SET)
            sc:RegisterEffect(e3)
            if sc:IsType(TYPE_TRAPMONSTER) then
            local e4=e2:Clone()
            e4:SetCode(EFFECT_DISABLE_TRAPMONSTER)
            sc:RegisterEffect(e4)
            end
            Duel.AdjustInstantly(sc)
            if tc:IsRelateToChain() and tc:IsType(TYPE_MONSTER) then
            Duel.BreakEffect()
            Duel.Destroy(tc,REASON_EFFECT)
            end
            end
            end
            function s.spfilter(c,e,tp)
            return c:IsSetCard(0x10f) and c:IsType(TYPE_LINK) and c:IsLinkBelow(4)
            and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
            end
            function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
            e:GetHandler():RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,3))
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
            end
            function s.spop(e,tp,eg,ep,ev,re,r,rp)
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
            local tc=g:GetFirst()
            if not tc then return end
            Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
            end
            script/c101303206.lua deleted 100644 → 0
            View file @ 5a65ff59
            --トゥリスヴァレル・ドラゴン
            local s,id,o=GetID()
            function s.initial_effect(c)
            aux.AddCodeList(c,67526112,20071842,101303207)
            --link summon
            aux.AddLinkProcedure(c,s.mfilter,2,99,s.lcheck)
            c:EnableReviveLimit()
            --search
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCountLimit(1,id)
            e1:SetCondition(s.thcon)
            e1:SetTarget(s.thtg)
            e1:SetOperation(s.thop)
            c:RegisterEffect(e1)
            --tohand
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(id,1))
            e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND)
            e2:SetType(EFFECT_TYPE_IGNITION)
            e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,id+o)
            e2:SetTarget(s.thtg2)
            e2:SetOperation(s.thop2)
            c:RegisterEffect(e2)
            end
            function s.mfilter(c)
            return c:IsLinkAttribute(ATTRIBUTE_DARK) and (c:IsLinkRace(RACE_DRAGON) or c:IsHasEffect(77189532))
            end
            function s.lcheck(g)
            return g:IsExists(Card.IsLinkSetCard,1,nil,0x102)
            end
            function s.thcon(e,tp,eg,ep,ev,re,r,rp)
            return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
            end
            function s.thfilter(c)
            return c:IsCode(67526112,20071842,101303207) 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.thfilter2(c)
            return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
            end
            function s.thtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
            if chkc then return false end
            if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,0,1,nil)
            and Duel.IsExistingTarget(s.thfilter2,tp,LOCATION_GRAVE,0,1,nil) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
            local g1=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,0,1,1,nil)
            e:SetLabelObject(g1:GetFirst())
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local g2=Duel.SelectTarget(tp,s.thfilter2,tp,LOCATION_GRAVE,0,1,1,nil)
            Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,1,0,0)
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,g2,1,0,0)
            end
            function s.thop2(e,tp,eg,ep,ev,re,r,rp)
            local tc1,tc2=Duel.GetFirstTarget()
            if tc1~=e:GetLabelObject() then tc1,tc2=tc2,tc1 end
            if tc1:IsRelateToChain() and Duel.Destroy(tc1,REASON_EFFECT)>0 and tc2:IsRelateToChain() and aux.NecroValleyFilter()(tc2) then
            Duel.SendtoHand(tc2,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,tc2)
            end
            end
            script/c101303207.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ダブル・トリガー
            local s,id,o=GetID()
            function s.initial_effect(c)
            --activate
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(id,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON+CATEGORY_REMOVE)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetProperty(EFFECT_FLAG_FUSION_SUMMON)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            end
            function s.filter1(c,tp)
            return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove()
            end
            function s.filter2(c,tp)
            return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
            end
            function s.fspfilter(c,e,tp,m,f,chkf)
            return c:IsType(TYPE_FUSION) and (not f or f(c)) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
            end
            function s.fcheck(tp,sg,fc)
            return sg:IsExists(Card.IsFusionSetCard,1,nil,0x102)
            end
            function s.rcheck(tp,g,c)
            return g:IsExists(Card.IsSetCard,1,nil,0x102)
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
            local chkf=tp
            local mg=Duel.GetMatchingGroup(s.filter1,tp,LOCATION_GRAVE,0,nil,tp)
            aux.FCheckAdditional=s.fcheck
            local b1=Duel.IsExistingMatchingCard(s.fspfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,nil,chkf)
            and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id)==0)
            if not b1 then
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            local mg2=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            b1=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
            and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id)==0)
            end
            end
            aux.FCheckAdditional=nil
            aux.RCheckAdditional=s.rcheck
            local rg=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_GRAVE,0,nil,tp)
            local b2=Duel.IsExistingMatchingCard(aux.RitualUltimateFilter,tp,LOCATION_HAND,0,1,nil,aux.TRUE,e,tp,Group.CreateGroup(),rg,Card.GetLevel,"Greater")
            and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id+o)==0)
            aux.RCheckAdditional=nil
            if chk==0 then return b1 or b2 end
            local op=0
            if b1 or b2 then
            op=aux.SelectFromOptions(tp,
            {b1,aux.Stringid(id,1),1},
            {b2,aux.Stringid(id,2),2})
            end
            e:SetLabel(op)
            if op==1 then
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON+CATEGORY_REMOVE)
            Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
            Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_GRAVE)
            end
            if op==2 then
            if e:IsCostChecked() then
            e:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
            Duel.RegisterFlagEffect(tp,id+o,RESET_PHASE+PHASE_END,0,1)
            end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
            Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_GRAVE)
            end
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            if e:GetLabel()==1 then
            local chkf=tp
            local mg1=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.filter1),tp,LOCATION_GRAVE,0,nil,tp)
            aux.FCheckAdditional=s.fcheck
            local sg1=Duel.GetMatchingGroup(s.fspfilter,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
            local mg2=nil
            local sg2=nil
            local ce=Duel.GetChainMaterial(tp)
            if ce~=nil then
            local fgroup=ce:GetTarget()
            mg2=fgroup(ce,e,tp)
            local mf=ce:GetValue()
            sg2=Duel.GetMatchingGroup(s.fspfilter,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
            end
            if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
            local sg=sg1:Clone()
            if sg2 then sg:Merge(sg2) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local tg=sg:Select(tp,1,1,nil)
            local tc=tg:GetFirst()
            if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or ce and not Duel.SelectYesNo(tp,ce:GetDescription())) then
            local mat=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
            tc:SetMaterial(mat)
            Duel.Remove(mat,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
            Duel.BreakEffect()
            Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
            elseif ce then
            local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
            local fop=ce:GetOperation()
            fop(ce,e,tp,tc,mat2)
            end
            tc:CompleteProcedure()
            end
            aux.FCheckAdditional=nil
            elseif e:GetLabel()==2 then
            ::rcancel::
            local mg=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.filter2),tp,LOCATION_GRAVE,0,nil,tp)
            aux.RCheckAdditional=s.rcheck
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local tg=Duel.SelectMatchingCard(tp,aux.RitualUltimateFilter,tp,LOCATION_HAND,0,1,1,nil,aux.TRUE,e,tp,Group.CreateGroup(),mg,Card.GetLevel,"Greater")
            local tc=tg:GetFirst()
            if tc then
            if tc.mat_filter then
            mg=mg:Filter(tc.mat_filter,tc,tp)
            end
            local lv=tc:GetLevel()
            aux.GCheckAdditional=aux.RitualCheckAdditional(tc,tc:GetLevel(),"Greater")
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
            local mat=mg:SelectSubGroup(tp,aux.RitualCheck,true,1,tc:GetLevel(),tp,tc,tc:GetLevel(),"Greater")
            aux.GCheckAdditional=nil
            if not mat then
            aux.RCheckAdditional=nil
            goto rcancel
            end
            tc:SetMaterial(mat)
            Duel.ReleaseRitualMaterial(mat)
            Duel.BreakEffect()
            Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
            tc:CompleteProcedure()
            end
            aux.RCheckAdditional=nil
            end
            end
            script/c101303208.lua deleted 100644 → 0
            View file @ 5a65ff59
            --ヴァレル・リブート
            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_NEGATE)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_CHAINING)
            e1:SetCondition(s.condition)
            e1:SetTarget(s.target)
            e1:SetOperation(s.activate)
            c:RegisterEffect(e1)
            --act in hand
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_SINGLE)
            e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
            e2:SetCost(s.cost)
            e2:SetDescription(aux.Stringid(id,1))
            c:RegisterEffect(e2)
            end
            function s.cfilter(c)
            return c:IsFaceup() and c:IsSetCard(0x102,0x10f)
            end
            function s.condition(e,tp,eg,ep,ev,re,r,rp)
            return rp==1-tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev)
            and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
            end
            function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return true end
            Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
            end
            function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return true end
            Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
            end
            function s.activate(e,tp,eg,ep,ev,re,r,rp)
            local rc=re:GetHandler()
            if Duel.NegateActivation(ev) and rc:IsRelateToChain(ev) and rc:IsCanTurnSet() and not rc:IsType(TYPE_PENDULUM) then
            rc:CancelToGrave()
            Duel.ChangePosition(rc,POS_FACEDOWN)
            Duel.RaiseEvent(rc,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
            local e1=Effect.CreateEffect(e:GetHandler())
            e1:SetType(EFFECT_TYPE_SINGLE)
            e1:SetCode(EFFECT_CANNOT_TRIGGER)
            e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
            rc:RegisterEffect(e1,true)
            end
            end
            script/c1527418.lua deleted 100644 → 0
            View file @ 5a65ff59
            --空牙団の叡智 ウィズ
            function c1527418.initial_effect(c)
            --recover
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(1527418,0))
            e1:SetCategory(CATEGORY_RECOVER)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetCountLimit(1,1527418)
            e1:SetTarget(c1527418.rectg)
            e1:SetOperation(c1527418.recop)
            c:RegisterEffect(e1)
            --negate
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(1527418,1))
            e2:SetCategory(CATEGORY_NEGATE)
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
            e2:SetCode(EVENT_CHAINING)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,1527419)
            e2:SetCondition(c1527418.negcon)
            e2:SetCost(c1527418.negcost)
            e2:SetTarget(c1527418.negtg)
            e2:SetOperation(c1527418.negop)
            c:RegisterEffect(e2)
            end
            function c1527418.recfilter(c)
            return c:IsFaceup() and c:IsSetCard(0x114) and not c:IsCode(1527418)
            end
            function c1527418.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(c1527418.recfilter,tp,LOCATION_MZONE,0,1,nil) end
            local g=Duel.GetMatchingGroup(c1527418.recfilter,tp,LOCATION_MZONE,0,nil)
            local rec=g:GetClassCount(Card.GetCode)*500
            Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,rec)
            end
            function c1527418.recop(e,tp,eg,ep,ev,re,r,rp)
            local g=Duel.GetMatchingGroup(c1527418.recfilter,tp,LOCATION_MZONE,0,nil)
            local rec=g:GetClassCount(Card.GetCode)*500
            Duel.Recover(tp,rec,REASON_EFFECT)
            end
            function c1527418.negcon(e,tp,eg,ep,ev,re,r,rp)
            return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
            and ep~=tp and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainNegatable(ev)
            end
            function c1527418.cfilter(c,e,tp)
            if c:IsLocation(LOCATION_HAND) then
            return c:IsSetCard(0x114) and c:IsDiscardable()
            else
            return e:GetHandler():IsSetCard(0x114) and c:IsAbleToRemoveAsCost() and c:IsHasEffect(101303062,tp)
            end
            end
            function c1527418.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(c1527418.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
            local g=Duel.SelectMatchingCard(tp,c1527418.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
            local tc=g:GetFirst()
            local te=tc:IsHasEffect(101303062,tp)
            if te then
            te:UseCountLimit(tp)
            Duel.Remove(tc,POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
            else
            Duel.SendtoGrave(tc,REASON_COST+REASON_DISCARD)
            end
            end
            function c1527418.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 c1527418.negop(e,tp,eg,ep,ev,re,r,rp)
            Duel.NegateActivation(ev)
            end
            script/c38916526.lua deleted 100644 → 0
            View file @ 5a65ff59
            --空牙団の英雄 ラファール
            function c38916526.initial_effect(c)
            --to hand
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(38916526,0))
            e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
            e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
            e1:SetProperty(EFFECT_FLAG_DELAY)
            e1:SetCode(EVENT_SPSUMMON_SUCCESS)
            e1:SetCountLimit(1,38916526)
            e1:SetTarget(c38916526.thtg)
            e1:SetOperation(c38916526.thop)
            c:RegisterEffect(e1)
            --negate
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(38916526,1))
            e2:SetCategory(CATEGORY_NEGATE)
            e2:SetType(EFFECT_TYPE_QUICK_O)
            e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
            e2:SetCode(EVENT_CHAINING)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,38916527)
            e2:SetCondition(c38916526.negcon)
            e2:SetCost(c38916526.negcost)
            e2:SetTarget(c38916526.negtg)
            e2:SetOperation(c38916526.negop)
            c:RegisterEffect(e2)
            end
            function c38916526.ctfilter(c)
            return c:IsFaceup() and c:IsSetCard(0x114) and not c:IsCode(38916526)
            end
            function c38916526.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then
            local ct=Duel.GetMatchingGroup(c38916526.ctfilter,tp,LOCATION_MZONE,0,nil):GetClassCount(Card.GetCode)
            if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<ct then return false end
            local g=Duel.GetDecktopGroup(tp,ct)
            return g:FilterCount(Card.IsAbleToHand,nil)>0
            end
            Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
            end
            function c38916526.thop(e,tp,eg,ep,ev,re,r,rp)
            local ct=Duel.GetMatchingGroup(c38916526.ctfilter,tp,LOCATION_MZONE,0,nil):GetClassCount(Card.GetCode)
            Duel.ConfirmDecktop(tp,ct)
            local g=Duel.GetDecktopGroup(tp,ct)
            if g:GetCount()>0 then
            local tg=g:Filter(Card.IsAbleToHand,nil)
            if tg:GetCount()>0 then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local sg=tg:Select(tp,1,1,nil)
            Duel.SendtoHand(sg,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,sg)
            end
            Duel.ShuffleDeck(tp)
            end
            end
            function c38916526.negcon(e,tp,eg,ep,ev,re,r,rp)
            return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
            and ep~=tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
            end
            function c38916526.cfilter(c,e,tp)
            if c:IsLocation(LOCATION_HAND) then
            return c:IsSetCard(0x114) and c:IsDiscardable()
            else
            return e:GetHandler():IsSetCard(0x114) and c:IsAbleToRemoveAsCost() and c:IsHasEffect(101303062,tp)
            end
            end
            function c38916526.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(c38916526.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
            local g=Duel.SelectMatchingCard(tp,c38916526.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
            local tc=g:GetFirst()
            local te=tc:IsHasEffect(101303062,tp)
            if te then
            te:UseCountLimit(tp)
            Duel.Remove(tc,POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
            else
            Duel.SendtoGrave(tc,REASON_COST+REASON_DISCARD)
            end
            end
            function c38916526.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 c38916526.negop(e,tp,eg,ep,ev,re,r,rp)
            Duel.NegateActivation(ev)
            end
            script/c67466547.lua deleted 100644 → 0
            View file @ 5a65ff59
            --空牙団の舵手 ヘルマー
            function c67466547.initial_effect(c)
            --special summon
            local e1=Effect.CreateEffect(c)
            e1:SetDescription(aux.Stringid(67466547,0))
            e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e1:SetType(EFFECT_TYPE_IGNITION)
            e1:SetCountLimit(1,67466547)
            e1:SetRange(LOCATION_MZONE)
            e1:SetTarget(c67466547.sptg)
            e1:SetOperation(c67466547.spop)
            c:RegisterEffect(e1)
            --draw
            local e2=Effect.CreateEffect(c)
            e2:SetDescription(aux.Stringid(67466547,1))
            e2:SetCategory(CATEGORY_DRAW)
            e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
            e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY)
            e2:SetCode(EVENT_SPSUMMON_SUCCESS)
            e2:SetRange(LOCATION_MZONE)
            e2:SetCountLimit(1,67466548)
            e2:SetCondition(c67466547.drcon)
            e2:SetCost(c67466547.drcost)
            e2:SetTarget(c67466547.drtg)
            e2:SetOperation(c67466547.drop)
            c:RegisterEffect(e2)
            end
            function c67466547.spfilter(c,e,tp)
            return c:IsSetCard(0x114) and not c:IsCode(67466547) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function c67466547.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(c67466547.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
            end
            function c67466547.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,c67466547.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            function c67466547.cfilter(c,tp)
            return c:IsFaceup() and c:IsSetCard(0x114) and c:IsControler(tp)
            end
            function c67466547.drcon(e,tp,eg,ep,ev,re,r,rp)
            return not eg:IsContains(e:GetHandler()) and eg:IsExists(c67466547.cfilter,1,nil,tp)
            end
            function c67466547.drcfilter(c,e,tp)
            if c:IsLocation(LOCATION_HAND) then
            return c:IsSetCard(0x114) and c:IsDiscardable()
            else
            return e:GetHandler():IsSetCard(0x114) and c:IsAbleToRemoveAsCost() and c:IsHasEffect(101303062,tp)
            end
            end
            function c67466547.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsExistingMatchingCard(c67466547.drcfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
            local g=Duel.SelectMatchingCard(tp,c67466547.drcfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
            local tc=g:GetFirst()
            local te=tc:IsHasEffect(101303062,tp)
            if te then
            te:UseCountLimit(tp)
            Duel.Remove(tc,POS_FACEUP,REASON_EFFECT+REASON_REPLACE)
            else
            Duel.SendtoGrave(tc,REASON_COST+REASON_DISCARD)
            end
            end
            function c67466547.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
            Duel.SetTargetPlayer(tp)
            Duel.SetTargetParam(1)
            Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
            end
            function c67466547.drop(e,tp,eg,ep,ev,re,r,rp)
            local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
            Duel.Draw(p,d,REASON_EFFECT)
            end
            script/c80280737.lua deleted 100644 → 0
            View file @ 5a65ff59
            --バスター・モード
            function c80280737.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:SetHintTiming(0,TIMING_END_PHASE)
            e1:SetTarget(c80280737.target)
            e1:SetOperation(c80280737.activate)
            c:RegisterEffect(e1)
            end
            function c80280737.filter1(c,e,tp)
            return c:IsType(TYPE_SYNCHRO) and c:IsReleasable() and Duel.GetMZoneCount(tp,c)>0
            and Duel.IsExistingMatchingCard(c80280737.filter2,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetCode())
            end
            function c80280737.filter2(c,e,tp,tcode)
            return c:IsSetCard(0x104f) and c.assault_name==tcode and c:IsCanBeSpecialSummoned(e,0,tp,false,true,POS_FACEUP_ATTACK)
            end
            function c80280737.target(e,tp,eg,ep,ev,re,r,rp,chk)
            local g=Duel.GetReleaseGroup(tp,false):Filter(c80280737.filter1,nil,e,tp)
            if Duel.GetFlagEffect(tp,101303054)>Duel.GetFlagEffect(tp,80280737) then
            g:Merge(Duel.GetMatchingGroup(c80280737.filter1,tp,LOCATION_EXTRA,0,nil,e,tp))
            end
            if chk==0 then return e:IsCostChecked() and g:GetCount()>0 end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
            local rg=g:Select(tp,1,1,nil)
            if rg:IsExists(Card.IsLocation,1,nil,LOCATION_EXTRA) then
            Duel.Hint(HINT_CARD,0,101303054)
            Duel.RegisterFlagEffect(tp,80280737,RESET_PHASE+PHASE_END,0,1)
            end
            aux.UseExtraReleaseCount(rg,tp)
            e:SetLabel(rg:GetFirst():GetCode())
            Duel.Release(rg,REASON_COST)
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
            end
            function c80280737.activate(e,tp,eg,ep,ev,re,r,rp)
            if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
            local tc=Duel.SelectMatchingCard(tp,c80280737.filter2,tp,LOCATION_DECK,0,1,1,nil,e,tp,e:GetLabel()):GetFirst()
            if tc and Duel.SpecialSummon(tc,0,tp,tp,false,true,POS_FACEUP_ATTACK)>0 then
            tc:CompleteProcedure()
            end
            end
            script/c975299.lua deleted 100644 → 0
            View file @ 5a65ff59
            --巨大要塞ゼロス
            function c975299.initial_effect(c)
            aux.AddCodeList(c,66947414)
            --Activate
            local e1=Effect.CreateEffect(c)
            e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
            e1:SetType(EFFECT_TYPE_ACTIVATE)
            e1:SetCode(EVENT_FREE_CHAIN)
            e1:SetOperation(c975299.activate)
            c:RegisterEffect(e1)
            --atk/def up
            local e2=Effect.CreateEffect(c)
            e2:SetType(EFFECT_TYPE_FIELD)
            e2:SetCode(EFFECT_UPDATE_ATTACK)
            e2:SetRange(LOCATION_FZONE)
            e2:SetTargetRange(LOCATION_MZONE,0)
            e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x15))
            e2:SetValue(500)
            c:RegisterEffect(e2)
            local e3=e2:Clone()
            e3:SetCode(EFFECT_UPDATE_DEFENSE)
            c:RegisterEffect(e3)
            --indes
            local e4=Effect.CreateEffect(c)
            e4:SetType(EFFECT_TYPE_FIELD)
            e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
            e4:SetRange(LOCATION_FZONE)
            e4:SetTargetRange(LOCATION_MZONE,0)
            e4:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x15))
            e4:SetValue(aux.indoval)
            c:RegisterEffect(e4)
            --cannot be target
            local e5=Effect.CreateEffect(c)
            e5:SetType(EFFECT_TYPE_FIELD)
            e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
            e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
            e5:SetRange(LOCATION_FZONE)
            e5:SetTargetRange(LOCATION_MZONE,0)
            e5:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x15))
            e5:SetValue(aux.tgoval)
            c:RegisterEffect(e5)
            --spsummon
            local e6=Effect.CreateEffect(c)
            e6:SetDescription(aux.Stringid(975299,1))
            e6:SetCategory(CATEGORY_SPECIAL_SUMMON)
            e6:SetType(EFFECT_TYPE_IGNITION)
            e6:SetRange(LOCATION_FZONE)
            e6:SetCountLimit(1)
            e6:SetTarget(c975299.sptg)
            e6:SetOperation(c975299.spop)
            c:RegisterEffect(e6)
            --counter
            local e7=Effect.CreateEffect(c)
            e7:SetDescription(aux.Stringid(975299,2))
            e7:SetCategory(CATEGORY_COUNTER)
            e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
            e7:SetCode(EVENT_SUMMON_SUCCESS)
            e7:SetRange(LOCATION_FZONE)
            e7:SetCondition(c975299.ctcon)
            e7:SetTarget(c975299.cttg)
            e7:SetOperation(c975299.ctop)
            c:RegisterEffect(e7)
            local e8=e7:Clone()
            e8:SetCode(EVENT_SPSUMMON_SUCCESS)
            c:RegisterEffect(e8)
            end
            function c975299.thfilter(c)
            return c:IsCode(66947414) and c:IsAbleToHand()
            end
            function c975299.activate(e,tp,eg,ep,ev,re,r,rp)
            local g=Duel.GetMatchingGroup(c975299.thfilter,tp,LOCATION_DECK,0,nil)
            if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(975299,0)) then
            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
            local sg=g:Select(tp,1,1,nil)
            Duel.SendtoHand(sg,nil,REASON_EFFECT)
            Duel.ConfirmCards(1-tp,sg)
            end
            end
            function c975299.spfilter(c,e,tp)
            return c:IsSetCard(0x15) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
            end
            function c975299.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
            and Duel.IsExistingMatchingCard(c975299.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
            Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
            end
            function c975299.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,c975299.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
            if g:GetCount()>0 then
            Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
            end
            end
            function c975299.ctfilter(c,tp)
            return c:IsFaceup() and c:IsSetCard(0x15) and c:IsControler(tp)
            end
            function c975299.ctcon(e,tp,eg,ep,ev,re,r,rp)
            return eg:IsExists(c975299.ctfilter,1,nil,tp)
            end
            function c975299.cttg(e,tp,eg,ep,ev,re,r,rp,chk)
            if chk==0 then return true end
            local ec=eg:FilterCount(c975299.ctfilter,nil,tp)
            Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,ec,0,0x1f)
            end
            function c975299.ctop(e,tp,eg,ep,ev,re,r,rp)
            local g=eg:Filter(c975299.ctfilter,nil,tp)
            local tc=g:GetFirst()
            while tc do
            tc:AddCounter(0x1f,1)
            tc=g:GetNext()
            end
            end
            test-strings.conf
            View file @ 1bf2ea15
            #The first line is used for comment #The first line is used for comment
            !setname 0x100 结合术 !setname 0x2d9 世界末日
            !setname 0x2d7 艾克莉西娅 \ No newline at end of file
            !setname 0x2d8 耀圣
            !setname 0x2d9 世界末日
            !setname 0x2da 磁力
            !setname 0x6066 磁石战士Σ
            \ No newline at end of file
            test-update.cdb
            View file @ 1bf2ea15
            No preview for this file type
            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