Skip to content

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

1145141919810

parent 423a2b25
Pipeline #13955 passed with stage
    in 8 minutes and 58 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 42 additions and 1807 deletions
    deck/2022-06-05 1st.ydk deleted 100644 → 0
    View file @ 423a2b25
    #created by ...
    #main
    4223301
    4223302
    4223303
    4223304
    4223305
    4223306
    4223307
    4223308
    4223309
    4223310
    4223311
    12002501
    12002511
    12002512
    12002513
    12002514
    12002515
    12002516
    12002530
    12009032
    12011015
    12024002
    12025004
    12037052
    12039050
    12039051
    12039052
    12039053
    12039070
    12300300
    12300310
    12300314
    13254065
    13254073
    14700022
    14700023
    14700024
    14700025
    14700026
    14700027
    14700028
    14700029
    14700052
    #extra
    1184015
    12002520
    12002521
    12002522
    12002523
    12004020
    12008020
    12039060
    12039061
    12039063
    !side
    13254074
    14700021
    14700030
    14700031
    14700032
    deck/2022-06-05 2nd.ydk deleted 100644 → 0
    View file @ 423a2b25
    #created by ...
    #main
    15000604
    15004009
    15004010
    15004011
    15004020
    15004021
    15004022
    15004023
    15004024
    15004025
    15004030
    15004032
    15004034
    15004036
    16101036
    16101037
    16101186
    16104405
    16104406
    16104408
    16104409
    16104411
    16104412
    16114203
    16114212
    16114221
    16114235
    16150035
    17032990
    17033000
    17033030
    17033040
    18019024
    18019029
    18019030
    18019031
    18019032
    18019033
    18019034
    18019035
    18019036
    18023001
    18023004
    18023005
    18023006
    18023009
    18023010
    18024002
    18024003
    18024004
    18024005
    18024006
    18024008
    18024009
    18025001
    #extra
    15004012
    15004028
    16101035
    16104420
    16114225
    16114231
    16114234
    17032980
    17033010
    17033020
    17033021
    !side
    18019025
    18019026
    18019027
    18019028
    18023002
    18023003
    18023007
    18023008
    18023011
    18023012
    18024001
    18024007
    18024010
    deck/2022-06-05 3rd.ydk deleted 100644 → 0
    View file @ 423a2b25
    #created by ...
    #main
    20000500
    20000501
    20000502
    20000503
    20000504
    20000505
    20000506
    20000507
    20000508
    20000510
    20000511
    20000512
    20000513
    20000514
    20000515
    20000518
    20000519
    20000520
    20000525
    20000526
    20000527
    20000528
    20000529
    20000530
    20000531
    20000532
    20000533
    20000534
    23062024
    26807016
    26807017
    30005065
    30005090
    30005105
    30005110
    30655580
    30666660
    30681045
    30681050
    30681500
    30681505
    30681506
    30681507
    33300361
    33300362
    #extra
    20000509
    20000516
    20000517
    20000521
    20000522
    20000523
    20000524
    !side
    30005035
    30005070
    30681011
    30681015
    30681020
    30681025
    30681030
    30681035
    30681040
    33300352
    deck/2022-06-05 4th.ydk deleted 100644 → 0
    View file @ 423a2b25
    #created by ...
    #main
    33400330
    33400331
    33400332
    33400333
    33400334
    33400335
    33400336
    33400337
    33400338
    33400339
    33400340
    33400341
    33400342
    33400343
    33400344
    33400345
    33400346
    33400347
    33400348
    33400349
    33400415
    33401201
    33401319
    33401323
    33401324
    35800303
    35800305
    35800307
    35800309
    35800311
    35800313
    35800321
    35800323
    35800325
    35800327
    51300111
    51300141
    51417000
    51417001
    51417003
    51417005
    51417008
    51417010
    51417013
    51417015
    51417018
    51417020
    51417025
    51417030
    51417035
    51417185
    51417190
    51417195
    51417200
    51417666
    #extra
    33400020
    33400329
    33400403
    33400408
    33400416
    35800301
    35800315
    47530030
    !side
    51300121
    51300131
    51300151
    51417105
    51417110
    51417115
    51417120
    51417125
    deck/2022-06-05 5th.ydk deleted 100644 → 0
    View file @ 423a2b25
    #created by ...
    #main
    53716002
    53716003
    53716006
    53716007
    53716008
    53716009
    53716012
    53716015
    53796001
    53796002
    53796004
    53796005
    53796006
    53796007
    53796008
    53796010
    53796011
    53796012
    67200352
    70700301
    70700302
    70700303
    71400018
    71400021
    71400031
    71400033
    71400038
    71400066
    72413150
    72413160
    72413170
    72413510
    72413700
    72413710
    72900002
    72900009
    72900017
    72900027
    72900029
    72900034
    72900039
    72900041
    72900305
    72900306
    72900307
    72900308
    72979207
    72979231
    #extra
    53716001
    53716010
    53716011
    53716013
    53727014
    53728021
    53796003
    67200353
    67200354
    67200355
    !side
    72413450
    72413460
    75641013
    deck/2022-06-05 6th.ydk deleted 100644 → 0
    View file @ 423a2b25
    #created by ...
    #main
    77000501
    77000502
    77000503
    77000504
    77000505
    77000512
    77000513
    77000515
    77000516
    77000517
    77000518
    77000526
    77000527
    77000528
    77000529
    81010013
    81010014
    81010015
    81044002
    81044003
    81044004
    81044005
    81044006
    81066027
    81078011
    81078013
    81078014
    85400000
    92361300
    #extra
    77000506
    77000508
    77000509
    77000510
    77000511
    77000519
    77000520
    77000521
    77000522
    77000523
    77000524
    77000525
    !side
    81048046
    81066022
    81066023
    81066024
    81066025
    81066026
    92361301
    92361302
    92361303
    92361304
    92361305
    92361306
    92361307
    92361308
    expansions/222DIY.cdb
    View file @ d4c0a9c1
    No preview for this file type
    expansions/script/c12084012.lua deleted 100644 → 0
    View file @ 423a2b25
    --教典圣女 露米娅
    local m=12084012
    local cm=_G["c"..m]
    Duel.LoadScript("c12000000.lua")
    function cm.initial_effect(c)
    --fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x9fa8),2,true)
    aux.AddContactFusionProcedure(c,Card.IsAbleToRemoveAsCost,LOCATION_ONFIELD,0,Duel.Release,POS_FACEUP,REASON_COST)
    --special summon rule
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetCategory(CATEGORY_RECOVER)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.thcost)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    --burial
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,1))
    e3:SetCategory(CATEGORY_TOGRAVE)
    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e3:SetCode(EVENT_TO_GRAVE)
    e3:SetProperty(EFFECT_FLAG_DELAY)
    e3:SetCountLimit(1,m+100)
    e3:SetCondition(cm.tgcon)
    e3:SetTarget(cm.tgtg)
    e3:SetOperation(cm.tgop)
    c:RegisterEffect(e3)
    end
    function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsReleasable() end
    Duel.Release(e:GetHandler(),REASON_EFFECT)
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.SetTargetPlayer(tp)
    Duel.SetTargetParam(1000)
    Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1000)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
    Duel.Recover(p,d,REASON_EFFECT)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
    e1:SetCountLimit(1)
    e1:SetLabel(Duel.GetTurnCount())
    e1:SetCondition(cm.spcon)
    e1:SetOperation(cm.spop)
    if Duel.GetCurrentPhase()<=PHASE_STANDBY then
    e1:SetReset(RESET_PHASE+PHASE_STANDBY,2)
    else
    e1:SetReset(RESET_PHASE+PHASE_STANDBY)
    end
    Duel.RegisterEffect(e1,tp)
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0x9fae) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnCount()~=e:GetLabel() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_CARD,0,m)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function cm.tgcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
    end
    function cm.tgfilter(c)
    return c:IsSetCard(0x9fae) and c:IsAbleToGrave()
    end
    function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
    end
    function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoGrave(g,REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/script/c13959996.lua
    View file @ d4c0a9c1
    This source diff could not be displayed because it is too large. You can view the blob instead.
    expansions/script/c64800042.lua
    View file @ d4c0a9c1
    ......@@ -9,52 +9,59 @@ function cm.initial_effect(c)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
    c:RegisterEffect(e1)
    --
    --spsummon
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_TO_GRAVE)
    e2:SetProperty(0x14000+EFFECT_FLAG_SET_AVAILABLE)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetCode(EVENT_LEAVE_FIELD_P)
    e2:SetRange(LOCATION_HAND)
    e2:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL)
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetCondition(cm.thcon)
    e2:SetTarget(cm.sptg1)
    e2:SetOperation(cm.spop1)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetOperation(cm.chkop)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EVENT_TO_DECK)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e3:SetCode(EVENT_LEAVE_FIELD)
    e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
    e3:SetRange(LOCATION_HAND)
    e3:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL)
    e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK+CATEGORY_GRAVE_ACTION)
    e3:SetLabelObject(e2)
    e3:SetCondition(cm.thcon)
    e3:SetTarget(cm.sptg1)
    e3:SetOperation(cm.spop1)
    c:RegisterEffect(e3)
    local e4=e2:Clone()
    e4:SetCode(EVENT_REMOVE)
    c:RegisterEffect(e4)
    local e5=e2:Clone()
    e5:SetCode(EVENT_TO_HAND)
    c:RegisterEffect(e5)
    end
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,0):Filter(cm.repfilter,nil,tp)
    return #g==0 and eg:IsExists(cm.filter,1,nil,tp,rp) and eg:Filter(Card.IsControler,nil,tp):GetCount()==1 and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
    end
    function cm.filter(c,tp,rp)
    return c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp and (c:IsReason(REASON_BATTLE) or (rp==1-tp and c:IsReason(REASON_EFFECT)))
    function cm.chkop(e,tp,eg,ep,ev,re,r,rp)
    e:SetLabel(0)
    if eg:GetCount()==1 then
    local c=eg:GetFirst()
    local sn=Duel.GetFieldGroupCount(tp,LOCATION_SZONE,0)-Duel.GetFieldGroupCount(tp,LOCATION_FZONE,0)
    if c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) and sn<1 and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)<2 then
    e:SetLabel(1)
    end
    end
    end
    function cm.repfilter(c,tp)
    return c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5 and c:IsControler(tp)
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    Debug.Message(e:GetLabelObject():GetLabel())
    local ec=eg:GetFirst()
    return e:GetLabelObject():GetLabel()==1 and (ec:IsReason(REASON_BATTLE) or (rp==1-tp and ec:IsReason(REASON_EFFECT)))
    end
    function cm.sptg1(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,true,false) end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,1,nil) end
    if Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) then
    Duel.SetChainLimit(function(e,ep,tp)
    return tp==ep
    end)
    Duel.SetChainLimit(function(e,ep,tp) return tp==ep end)
    end
    local tdg=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,nil)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,tdg,tdg:GetCount(),0,0)
    end
    function cm.spop1(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,c)
    if aux.NecroValleyNegateCheck(g) then return end
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then
    c:CompleteProcedure()
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,c)
    g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,c)
    if g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end
    Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c81004001.lua deleted 100644 → 0
    View file @ 423a2b25
    --Tendaness Air
    local m=81004001
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    end
    function cm.filter(c,e,tp)
    return c:IsType(TYPE_PENDULUM)
    end
    function cm.mfilter(c)
    return c:GetLevel()>0 and c:IsType(TYPE_PENDULUM) and c:IsType(TYPE_RITUAL) and c:IsFaceup() and c:IsAbleToDeck()
    end
    function cm.cfilter(c)
    return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then
    local mg=Duel.GetRitualMaterial(tp)
    local mg2=nil
    if not Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil) then
    mg2=Duel.GetMatchingGroup(cm.mfilter,tp,LOCATION_EXTRA,0,nil)
    end
    return Duel.IsExistingMatchingCard(aux.RitualUltimateFilter,tp,LOCATION_HAND,0,1,nil,cm.filter,e,tp,mg,mg2,Card.GetLevel,"Greater")
    end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,tp,LOCATION_EXTRA)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local mg=Duel.GetRitualMaterial(tp)
    local mg2=nil
    if not Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil) then
    mg2=Duel.GetMatchingGroup(cm.mfilter,tp,LOCATION_EXTRA,0,nil)
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local tg=Duel.SelectMatchingCard(tp,aux.RitualUltimateFilter,tp,LOCATION_HAND,0,1,1,nil,cm.filter,e,tp,mg,mg2,Card.GetLevel,"Greater")
    local tc=tg:GetFirst()
    if tc then
    mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc)
    if mg2 then
    mg:Merge(mg2)
    end
    if tc.mat_filter then
    mg=mg:Filter(tc.mat_filter,tc,tp)
    else
    mg:RemoveCard(tc)
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
    aux.GCheckAdditional=aux.RitualCheckAdditional(tc,tc:GetLevel(),"Greater")
    local mat=mg:SelectSubGroup(tp,aux.RitualCheck,false,1,tc:GetLevel(),tp,tc,tc:GetLevel(),"Greater")
    aux.GCheckAdditional=nil
    if not mat or mat:GetCount()==0 then return end
    tc:SetMaterial(mat)
    local mat2=mat:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
    mat:Sub(mat2)
    Duel.ReleaseRitualMaterial(mat)
    Duel.SendtoDeck(mat2,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL)
    Duel.BreakEffect()
    Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
    tc:CompleteProcedure()
    end
    end
    expansions/script/c81017001.lua deleted 100644 → 0
    View file @ 423a2b25
    --白墓碑·木村有容
    local m=81017001
    local cm=_G["c"..m]
    Duel.LoadScript("c81000000.lua")
    function cm.initial_effect(c)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_HAND)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.spcost)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    end
    function cm.cfilter(c)
    return c:IsAttribute(ATTRIBUTE_WIND) and c:IsAbleToGraveAsCost()
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,c) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,c)
    Duel.SendtoGrave(g,REASON_COST)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    expansions/script/c81017002.lua deleted 100644 → 0
    View file @ 423a2b25
    --黑之执事·木村有容
    local m=81017002
    local cm=_G["c"..m]
    Duel.LoadScript("c81000000.lua")
    function cm.initial_effect(c)
    --spsummon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_HAND)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.spcost)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --double tribute
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_DOUBLE_TRIBUTE)
    e2:SetValue(cm.condition)
    c:RegisterEffect(e2)
    end
    function cm.cfilter(c)
    return c:IsAttack(2400,2800) and c:IsDefense(1000) and c:IsAbleToGraveAsCost()
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,e:GetHandler())
    Duel.SendtoGrave(g,REASON_COST)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not c:IsRelateToEffect(e) then return end
    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
    end
    function cm.condition(e,c)
    return c:IsAttack(2400,2800) and c:IsDefense(1000)
    end
    expansions/script/c81017003.lua deleted 100644 → 0
    View file @ 423a2b25
    --冥思世界·木村有容
    local m=81017003
    local cm=_G["c"..m]
    Duel.LoadScript("c81000000.lua")
    function cm.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:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetRange(LOCATION_MZONE)
    e1:SetValue(cm.atkval)
    c:RegisterEffect(e1)
    --atkup
    local e3=Effect.CreateEffect(c)
    e3:SetCategory(CATEGORY_ATKCHANGE)
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetRange(LOCATION_MZONE)
    e3:SetHintTiming(TIMING_DAMAGE_STEP)
    e3:SetCountLimit(1)
    e3:SetCondition(aux.dscon)
    e3:SetCost(cm.atkcost)
    e3:SetTarget(cm.atktg)
    e3:SetOperation(cm.atkop)
    c:RegisterEffect(e3)
    end
    function cm.atkval(e,c)
    local lp=Duel.GetLP(c:GetControler())
    if lp>=3000 then return 0
    else return (3000-lp)*2 end
    end
    function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckLPCost(tp,1000) and Duel.GetFlagEffect(tp,m)==0 end
    Duel.PayLPCost(tp,1000)
    Duel.RegisterFlagEffect(tp,m,RESET_CHAIN,0,1)
    end
    function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) 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 cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) and tc:IsFaceup() then
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EFFECT_SET_ATTACK_FINAL)
    e1:SetValue(100)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e1)
    end
    end
    expansions/script/c81017004.lua deleted 100644 → 0
    View file @ 423a2b25
    --境界线·木村有容
    local m=81017004
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --xyz summon
    aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),4,2)
    c:EnableReviveLimit()
    --announce
    local e0=Effect.CreateEffect(c)
    e0:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
    e0:SetType(EFFECT_TYPE_IGNITION)
    e0:SetRange(LOCATION_MZONE)
    e0:SetCountLimit(1,m)
    e0:SetCost(cm.tdcost)
    e0:SetTarget(cm.tdtg)
    e0:SetOperation(cm.tdop)
    c:RegisterEffect(e0)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCode(EVENT_REMOVE)
    e1:SetRange(LOCATION_GRAVE)
    e1:SetCountLimit(1,m+900)
    e1:SetCondition(cm.spcon)
    e1:SetCost(cm.spcost)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    end
    function cm.tdcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function cm.thfilter(c)
    return c:IsFacedown() and c:IsAbleToDeck()
    end
    function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_REMOVED,0,3,nil) and Duel.IsPlayerCanDraw(tp,1) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,3,tp,LOCATION_REMOVED)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    end
    function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
    if not e:GetHandler():IsRelateToEffect(e) then return end
    local gg=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_REMOVED,0,nil)
    local g=gg:RandomSelect(tp,3)
    if g:GetCount()==3 then
    Duel.SendtoDeck(g,nil,0,REASON_EFFECT+REASON_RETURN)
    Duel.ShuffleDeck(tp)
    end
    local g=Duel.GetDecktopGroup(tp,1)
    local tc=g:GetFirst()
    Duel.BreakEffect()
    Duel.Draw(tp,1,REASON_EFFECT)
    if tc then
    Duel.ConfirmCards(1-tp,tc)
    if not tc:IsAttribute(ATTRIBUTE_DARK) then
    Duel.BreakEffect()
    Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
    end
    Duel.ShuffleHand(tp)
    end
    end
    function cm.cfilter(c,tp)
    return c:IsPreviousLocation(LOCATION_DECK+LOCATION_EXTRA) and c:IsFacedown()
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.cfilter,1,nil)
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local g=Duel.GetDecktopGroup(tp,5)
    if chk==0 then return g:FilterCount(Card.IsAbleToRemoveAsCost,nil)==5
    end
    Duel.DisableShuffleCheck()
    Duel.Remove(g,POS_FACEDOWN,REASON_COST)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    end
    function cm.mfilter(c)
    return c:IsFacedown() and c:IsCanOverlay()
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not c:IsRelateToEffect(e) then return end
    if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
    local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.mfilter),tp,0,LOCATION_REMOVED,nil)
    if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
    Duel.BreakEffect()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
    local ls=Duel.AnnounceNumber(tp,1,2)
    local mg=g:RandomSelect(tp,ls)
    Duel.Overlay(c,mg)
    end
    end
    end
    expansions/script/c81017005.lua deleted 100644 → 0
    View file @ 423a2b25
    --忆往昔·木村有容
    local m=81017005
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --special summon (self)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_HAND)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    end
    function cm.counterfilter(c)
    return c:GetSummonLocation()~=LOCATION_EXTRA or c:IsType(TYPE_SYNCHRO)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,c)
    and Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetTargetRange(1,0)
    e1:SetTarget(cm.splimit)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,c)
    end
    function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
    return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
    end
    function cm.spfilter(c,e,tp)
    return c:IsType(TYPE_TUNER) and c:IsLevel(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,tp,LOCATION_DECK+LOCATION_HAND)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not c:IsRelateToEffect(e) then return end
    if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    local g=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,nil,e,tp)
    if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
    Duel.BreakEffect()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local sg=g:Select(tp,1,1,nil)
    if sg:GetCount()>0 then
    Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    end
    expansions/script/c81017006.lua deleted 100644 → 0
    View file @ 423a2b25
    --赤焰之花·木村有容
    local m=81017006
    local cm=_G["c"..m]
    Duel.LoadScript("c81000000.lua")
    function cm.initial_effect(c)
    --fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcFunRep(c,cm.ffilter,3,true)
    --immune
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_IMMUNE_EFFECT)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetValue(cm.immval)
    c:RegisterEffect(e1)
    end
    function cm.ffilter(c)
    return c:IsFusionType(TYPE_NORMAL) and c:IsOnField()
    end
    function cm.immval(e,te)
    return te:GetOwner()~=e:GetHandler() and te:IsActivated()
    end
    expansions/script/c81017090.lua deleted 100644 → 0
    View file @ 423a2b25
    --摄影视角 有容＆空鸽子
    local m=81017090
    local cm=_G["c"..m]
    Duel.LoadScript("c81000000.lua")
    function cm.initial_effect(c)
    --fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcCode2(c,81017000,81053000,true,true)
    --damage
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e4:SetCode(EVENT_SPSUMMON_SUCCESS)
    e4:SetRange(LOCATION_MZONE)
    e4:SetCountLimit(1,m)
    e4:SetTarget(cm.damtg)
    e4:SetOperation(cm.damop)
    c:RegisterEffect(e4)
    end
    function cm.cfilter(c,e,tp)
    return c:IsFaceup() and c:IsControler(tp) and c:IsType(TYPE_EFFECT) and c:IsCanBeEffectTarget(e)
    end
    function cm.damtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return eg:IsContains(chkc) and cm.cfilter(chkc,e,1-tp) end
    if chk==0 then return eg:IsExists(cm.cfilter,1,nil,e,1-tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    local g=eg:FilterSelect(tp,cm.cfilter,1,1,nil,e,1-tp)
    Duel.SetTargetCard(g)
    end
    function cm.damop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if tc and c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsType(TYPE_TOKEN) then
    local code=tc:GetOriginalCodeRule()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EFFECT_CHANGE_CODE)
    e1:SetValue(code)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e1)
    if not tc:IsType(TYPE_TRAPMONSTER) then
    local cid=c:CopyEffect(code,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
    end
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EVENT_PHASE+PHASE_END)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1)
    e2:SetLabelObject(e1)
    e2:SetLabel(cid)
    e2:SetOperation(cm.rstop)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e2)
    end
    end
    function cm.rstop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local cid=e:GetLabel()
    if cid~=0 then
    c:ResetEffect(cid,RESET_COPY)
    c:ResetEffect(RESET_DISABLE,RESET_EVENT)
    end
    local e1=e:GetLabelObject()
    e1:Reset()
    end
    expansions/script/c81053000.lua deleted 100644 → 0
    View file @ 423a2b25
    --空鸽子
    local m=81053000
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    c:EnableReviveLimit()
    --spsummon bgm
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e0:SetCode(EVENT_SPSUMMON_SUCCESS)
    e0:SetCondition(cm.sumcon)
    e0:SetOperation(cm.sumsuc)
    c:RegisterEffect(e0)
    --to hand
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_TOHAND)
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCountLimit(1,m)
    e1:SetCondition(cm.thcon)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    --immune spell
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_IMMUNE_EFFECT)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetValue(cm.efilter)
    c:RegisterEffect(e2)
    --remove
    local e3=Effect.CreateEffect(c)
    e3:SetCategory(CATEGORY_REMOVE)
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCountLimit(1,m+900)
    e3:SetCondition(cm.rmcon)
    e3:SetTarget(cm.rmtg)
    e3:SetOperation(cm.rmop)
    c:RegisterEffect(e3)
    end
    function cm.sumcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL) or e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM)
    end
    function cm.sumsuc(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_MUSIC,0,aux.Stringid(m,0))
    end
    function cm.thcfilter(c,tp)
    return c:IsFaceup() and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_MONSTER) and c:IsControler(tp)
    end
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.thcfilter,1,nil,tp)
    end
    function cm.thfilter(c)
    return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e)
    and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetCode(EFFECT_CANNOT_ACTIVATE)
    e1:SetTargetRange(1,0)
    e1:SetValue(cm.aclimit)
    e1:SetLabelObject(tc)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    end
    end
    function cm.aclimit(e,re,tp)
    local tc=e:GetLabelObject()
    return re:GetHandler():IsCode(tc:GetCode()) and not re:GetHandler():IsImmuneToEffect(e)
    end
    function cm.efilter(e,te)
    return te:IsActiveType(TYPE_SPELL) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
    end
    function cm.cfilter(c)
    return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and not c:IsCode(m)
    end
    function cm.rmcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
    end
    function cm.rmfilter(c)
    return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
    end
    function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.rmfilter,tp,LOCATION_EXTRA,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,0)
    end
    function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=Duel.SelectMatchingCard(tp,cm.rmfilter,tp,LOCATION_EXTRA,0,1,1,nil):GetFirst()
    if rc then
    if Duel.Remove(rc,POS_FACEUP,REASON_EFFECT)~=0 and c:IsRelateToEffect(e) and c:IsFaceup() then
    Duel.BreakEffect()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    e1:SetCode(EFFECT_SET_BASE_ATTACK)
    e1:SetValue(rc:GetBaseAttack())
    c:RegisterEffect(e1)
    end
    end
    end
    expansions/script/c81053001.lua deleted 100644 → 0
    View file @ 423a2b25
    --空鸽公主
    local m=81053001
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    c:EnableReviveLimit()
    --spsummon bgm
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e0:SetCode(EVENT_SPSUMMON_SUCCESS)
    e0:SetCondition(cm.sumcon)
    e0:SetOperation(cm.sumsuc)
    c:RegisterEffect(e0)
    --deck search
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DECKDES)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.operation)
    c:RegisterEffect(e1)
    --immune spell
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_IMMUNE_EFFECT)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetValue(cm.efilter)
    c:RegisterEffect(e2)
    --Atk up
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_UPDATE_ATTACK)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e3:SetRange(LOCATION_MZONE)
    e3:SetValue(cm.atkval)
    c:RegisterEffect(e3)
    --
    local e4=Effect.CreateEffect(c)
    e4:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
    e4:SetType(EFFECT_TYPE_QUICK_O)
    e4:SetCode(EVENT_CHAINING)
    e4:SetRange(LOCATION_MZONE)
    e4:SetCountLimit(1,m+900)
    e4:SetCondition(cm.negcon)
    e4:SetCost(cm.negcost)
    e4:SetTarget(cm.negtg)
    e4:SetOperation(cm.negop)
    c:RegisterEffect(e4)
    end
    function cm.sumcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL) or e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM)
    end
    function cm.sumsuc(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_MUSIC,0,aux.Stringid(m,0))
    end
    function cm.efilter(e,te)
    return (te:IsActiveType(TYPE_SPELL) or te:IsActiveType(TYPE_TRAP)) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then
    local ct=Duel.GetMatchingGroupCount(nil,tp,LOCATION_PZONE,LOCATION_PZONE,nil)
    if ct==0 or 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 cm.thfilter(c)
    return c:IsType(TYPE_RITUAL) and (c:IsType(TYPE_SPELL) or c:IsType(TYPE_PENDULUM)) and c:IsAbleToHand()
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    if not e:GetHandler():IsRelateToEffect(e) then return end
    local ct=Duel.GetMatchingGroupCount(nil,tp,LOCATION_PZONE,LOCATION_PZONE,nil)
    if ct==0 then return end
    local g=Duel.GetDecktopGroup(tp,ct)
    Duel.ConfirmDecktop(tp,ct)
    tg=g:Filter(cm.thfilter,nil)
    if tg:GetCount()>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local tc=tg:Select(tp,1,1,nil):GetFirst()
    if tc:IsAbleToHand() then
    Duel.SendtoHand(tc,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,tc)
    Duel.ShuffleHand(tp)
    else
    Duel.SendtoGrave(tc,REASON_RULE)
    end
    g:RemoveCard(tc)
    Duel.SendtoGrave(g,REASON_EFFECT+REASON_REVEAL)
    end
    Duel.ShuffleDeck(tp)
    end
    function cm.atkval(e,c)
    return Duel.GetMatchingGroupCount(Card.IsType,c:GetControler(),LOCATION_GRAVE,LOCATION_GRAVE,nil,TYPE_RITUAL)*300
    end
    function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
    return ep~=tp and Duel.IsExistingMatchingCard(nil,tp,LOCATION_PZONE,0,1,nil)
    end
    function cm.thcfilter(c)
    return c:IsType(TYPE_MONSTER) and c:IsDiscardable()
    end
    function cm.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thcfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.DiscardHand(tp,cm.thcfilter,1,1,REASON_COST+REASON_DISCARD)
    end
    function cm.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    local g=Duel.GetMatchingGroup(nil,tp,LOCATION_PZONE,0,nil)
    Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    end
    function cm.negop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_PZONE,0,1,1,nil)
    if #g>0 and Duel.Destroy(g,REASON_EFFECT)~=0 then
    Duel.NegateActivation(ev)
    end
    end
    expansions/script/c81053002.lua deleted 100644 → 0
    View file @ 423a2b25
    --空鸽奶茶
    local m=81053002
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    c:EnableReviveLimit()
    --spsummon bgm
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e0:SetCode(EVENT_SPSUMMON_SUCCESS)
    e0:SetCondition(cm.sumcon)
    e0:SetOperation(cm.sumsuc)
    c:RegisterEffect(e0)
    --search
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_TOHAND)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.thcost)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    --indes
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e3:SetRange(LOCATION_MZONE)
    e3:SetValue(aux.indoval)
    c:RegisterEffect(e3)
    --to grave
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_TOGRAVE)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,m+900)
    e2:SetCondition(cm.tgcon)
    e2:SetTarget(cm.tgtg)
    e2:SetOperation(cm.tgop)
    c:RegisterEffect(e2)
    end
    function cm.sumcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL) or e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM)
    end
    function cm.sumsuc(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_MUSIC,0,aux.Stringid(m,0))
    end
    function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToDeckAsCost() end
    Duel.SendtoDeck(c,nil,2,REASON_COST)
    end
    function cm.thfilter(c)
    return c:IsCode(81004001) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp,chk)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function cm.cfilter(c)
    return c:IsFaceup() and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and not c:IsCode(m)
    end
    function cm.tgcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
    end
    function cm.tgfilter(c)
    return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
    end
    function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
    end
    function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
    if #g>0 then
    Duel.SendtoGrave(g,REASON_EFFECT)
    end
    end
    expansions/script/c81053003.lua deleted 100644 → 0
    View file @ 423a2b25
    --空鸽猫女仆
    local m=81053003
    local cm=_G["c"..m]
    Duel.LoadScript("c81000000.lua")
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    c:EnableReviveLimit()
    --spsummon
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
    e1:SetCode(EVENT_BATTLE_DESTROYING)
    e1:SetCondition(aux.bdocon)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --special summon
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_REMOVE)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetRange(LOCATION_PZONE)
    e2:SetCountLimit(1,m)
    e2:SetTarget(cm.rmtg)
    e2:SetOperation(cm.rmop)
    c:RegisterEffect(e2)
    --redirect
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
    e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e3:SetCondition(cm.recon)
    e3:SetValue(LOCATION_DECKBOT)
    c:RegisterEffect(e3)
    end
    function cm.filter(c,e,tp)
    return c:IsType(TYPE_PENDULUM) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and cm.filter(chkc,e,tp) end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingTarget(cm.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function cm.rmfilter(c,e,tp)
    return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
    end
    function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and cm.rmfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.rmfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectTarget(tp,cm.rmfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
    end
    function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)~=0 and tc:IsRelateToEffect(e) then
    Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
    end
    end
    function cm.recon(e)
    return e:GetHandler():IsFaceup()
    end
    expansions/script/c81053004.lua deleted 100644 → 0
    View file @ 423a2b25
    --
    local m=81053004
    local cm=_G["c"..m]
    Duel.LoadScript("c81000000.lua")
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    c:EnableReviveLimit()
    --disable
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCode(EVENT_CHAIN_SOLVING)
    e1:SetCondition(cm.discon)
    e1:SetOperation(cm.disop)
    c:RegisterEffect(e1)
    --direct attack
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetCode(EFFECT_DIRECT_ATTACK)
    e2:SetRange(LOCATION_MZONE)
    e2:SetTargetRange(LOCATION_MZONE,0)
    e2:SetTarget(cm.datg)
    c:RegisterEffect(e2)
    --spsummon
    local e3=aux.AddRitualProcGreater2(c,cm.filter,nil,nil,cm.filter)
    e3:SetType(EFFECT_TYPE_IGNITION)
    e3:SetCode(0)
    e3:SetRange(LOCATION_MZONE)
    end
    function cm.discon(e,tp,eg,ep,ev,re,r,rp)
    local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
    return Duel.IsChainDisablable(ev) and re:IsHasCategory(CATEGORY_SPECIAL_SUMMON) and re:IsActiveType(TYPE_MONSTER) and (loc==LOCATION_HAND or loc==LOCATION_GRAVE) and e:GetHandler():GetFlagEffect(m)==0
    end
    function cm.disop(e,tp,eg,ep,ev,re,r,rp)
    if not Duel.SelectEffectYesNo(tp,e:GetHandler()) then return end
    e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
    if not Duel.NegateEffect(ev) then return end
    Duel.BreakEffect()
    Duel.Destroy(e:GetHandler(),REASON_EFFECT)
    end
    function cm.datg(e,c)
    return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM)
    end
    function cm.filter(c)
    return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM)
    end
    expansions/script/c81053005.lua deleted 100644 → 0
    View file @ 423a2b25
    --空鸽猫水着
    local m=81053005
    local cm=_G["c"..m]
    Duel.LoadScript("c81000000.lua")
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    c:EnableReviveLimit()
    aux.EnableReviveLimitPendulumSummonable(c,LOCATION_HAND)
    end
    expansions/script/c81053006.lua deleted 100644 → 0
    View file @ 423a2b25
    --空鸽女仆
    local m=81053006
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --link summon
    aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,2)
    c:EnableReviveLimit()
    --spsummon condition
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE)
    e0:SetCode(EFFECT_SPSUMMON_COST)
    e0:SetCost(cm.ssscost)
    c:RegisterEffect(e0)
    --search
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,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,m)
    e1:SetCondition(cm.thcon)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    --ritual summon
    local e2=aux.AddRitualProcGreater2(c,cm.filter,nil,nil,cm.matfilter)
    e2:SetDescription(aux.Stringid(m,0))
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetRange(LOCATION_MZONE)
    e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
    e2:SetCountLimit(1,m+900)
    e2:SetCondition(cm.rscon)
    --spsummon bgm
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
    e3:SetCondition(cm.sumcon)
    e3:SetOperation(cm.sumsuc)
    c:RegisterEffect(e3)
    end
    function cm.sumcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.sumsuc(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_MUSIC,0,aux.Stringid(m,2))
    end
    function cm.sssfilter(c)
    return c:GetType()==0x82
    end
    function cm.ssscost(e,c,tp,st)
    if bit.band(st,SUMMON_TYPE_LINK)~=SUMMON_TYPE_LINK then return true end
    return Duel.IsExistingMatchingCard(cm.sssfilter,tp,LOCATION_GRAVE,0,1,nil)
    end
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.thfilter(c)
    return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function cm.filter(c,e,tp,chk)
    return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and (not chk or c~=e:GetHandler())
    end
    function cm.matfilter(c,e,tp,chk)
    return not chk or c~=e:GetHandler()
    end
    function cm.rscon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnPlayer()~=tp
    end
    expansions/script/c81053007.lua deleted 100644 → 0
    View file @ 423a2b25
    --公主莅临·空鸽子
    local m=81053007
    local cm=_G["c"..m]
    xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    --search
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_SUMMON_SUCCESS)
    e2:SetCountLimit(1,m)
    e2:SetCost(cm.cost)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0 end
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetReset(RESET_PHASE+PHASE_END)
    e1:SetTargetRange(1,0)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.thfilter(c)
    return c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    expansions/script/c81053008.lua deleted 100644 → 0
    View file @ 423a2b25
    --吗丁啉及康泰克联合王国
    local m=81053008
    local cm=_G["c"..m]
    Duel.LoadScript("c81000000.lua")
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    --Ritual sum
    local e2=aux.AddRitualProcGreater2(c,cm.ritfilter,LOCATION_HAND)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_FZONE)
    e2:SetCountLimit(1)
    c:RegisterEffect(e2)
    --destroy
    local e3=Effect.CreateEffect(c)
    e3:SetCategory(CATEGORY_DISABLE)
    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
    e3:SetRange(LOCATION_FZONE)
    e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e3:SetCountLimit(1,m+900)
    e3:SetCondition(cm.discon)
    e3:SetTarget(cm.distg)
    e3:SetOperation(cm.disop)
    c:RegisterEffect(e3)
    end
    function cm.filter(c)
    return ((c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM)) or c:IsCode(81004001)) and c:IsAbleToHand()
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_DECK,0,nil)
    if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,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 cm.ritfilter(c)
    return c:IsType(TYPE_PENDULUM)
    end
    function cm.cfilter(c,tp)
    return c:IsFaceup() and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and c:IsControler(tp) and c:IsSummonType(SUMMON_TYPE_PENDULUM)
    end
    function cm.discon(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.cfilter,1,nil,tp)
    end
    function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and aux.NegateEffectMonsterFilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(aux.NegateEffectMonsterFilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
    local g=Duel.SelectTarget(tp,aux.NegateEffectMonsterFilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
    end
    function cm.disop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsDisabled() then
    Duel.NegateRelatedChain(tc,RESET_TURN_SET)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_DISABLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_DISABLE_EFFECT)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetValue(RESET_TURN_SET)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e2)
    end
    end
    expansions/script/c81053009.lua deleted 100644 → 0
    View file @ 423a2b25
    --Emptiness Air
    local m=81053009
    local cm=_G["c"..m]
    Duel.LoadScript("c81000000.lua")
    function cm.initial_effect(c)
    --change name
    aux.EnableChangeCode(c,81004001,LOCATION_DECK+LOCATION_GRAVE)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    end
    function cm.filter(c,e,tp)
    return c:IsType(TYPE_PENDULUM)
    end
    function cm.mfilter(c)
    return c:GetLevel()>0 and c:IsType(TYPE_PENDULUM) and c:IsType(TYPE_RITUAL) and c:IsFaceup() and c:IsAbleToGrave()
    end
    function cm.cfilter(c)
    return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then
    local mg=Duel.GetRitualMaterial(tp)
    local mg2=nil
    if not Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil) then
    mg2=Duel.GetMatchingGroup(cm.mfilter,tp,LOCATION_EXTRA,0,nil)
    end
    return Duel.IsExistingMatchingCard(aux.RitualUltimateFilter,tp,LOCATION_HAND,0,1,nil,cm.filter,e,tp,mg,mg2,Card.GetLevel,"Greater")
    end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local mg=Duel.GetRitualMaterial(tp)
    local mg2=nil
    if not Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil) then
    mg2=Duel.GetMatchingGroup(cm.mfilter,tp,LOCATION_EXTRA,0,nil)
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local tg=Duel.SelectMatchingCard(tp,aux.RitualUltimateFilter,tp,LOCATION_HAND,0,1,1,nil,cm.filter,e,tp,mg,mg2,Card.GetLevel,"Greater")
    local tc=tg:GetFirst()
    if tc then
    mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc)
    if mg2 then
    mg:Merge(mg2)
    end
    if tc.mat_filter then
    mg=mg:Filter(tc.mat_filter,tc,tp)
    else
    mg:RemoveCard(tc)
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
    aux.GCheckAdditional=aux.RitualCheckAdditional(tc,tc:GetLevel(),"Greater")
    local mat=mg:SelectSubGroup(tp,aux.RitualCheck,false,1,tc:GetLevel(),tp,tc,tc:GetLevel(),"Greater")
    aux.GCheckAdditional=nil
    if not mat or mat:GetCount()==0 then return end
    tc:SetMaterial(mat)
    local mat2=mat:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
    mat:Sub(mat2)
    Duel.ReleaseRitualMaterial(mat)
    Duel.SendtoGrave(mat2,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL)
    Duel.BreakEffect()
    Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
    tc:CompleteProcedure()
    end
    end
    expansions/script/c81053010.lua deleted 100644 → 0
    View file @ 423a2b25
    --空鸽小魔女
    local m=81053010
    local cm=_G["c"..m]
    Duel.LoadScript("c81000000.lua")
    function cm.initial_effect(c)
    aux.EnablePendulumAttribute(c)
    --revive limit
    aux.EnableReviveLimitPendulumSummonable(c,LOCATION_HAND)
    --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 & search
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_PZONE)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    --gain ATK
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCode(EFFECT_UPDATE_ATTACK)
    e2:SetValue(cm.atkval)
    c:RegisterEffect(e2)
    --immume
    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:SetValue(cm.efilter)
    c:RegisterEffect(e3)
    --indes battle
    local e4=e3:Clone()
    e4:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e4:SetValue(cm.indes)
    c:RegisterEffect(e4)
    end
    function cm.thfilter(c)
    return c:IsCode(81053008) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsDestructable() and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)~=0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    end
    function cm.efilter(e,te)
    return te:GetOwner()~=e:GetOwner()
    end
    function cm.indes(e,c)
    return not (c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM))
    end
    function cm.atkval(e,c)
    return Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)*1000
    end
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment