Skip to content

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

得得得得得

parent ad3a14da
Pipeline #13433 passed with stage
    in 9 minutes and 10 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 0 additions and 928 deletions
    deck/2022-06-05 1st.ydk
    View file @ 491fa87b
    ......@@ -11,15 +11,6 @@
    4223309
    4223310
    4223311
    4231200
    4231201
    4231202
    4231203
    4231204
    4231205
    4231206
    4231207
    4231208
    12002501
    12002511
    12002512
    ......@@ -54,8 +45,6 @@
    14700052
    #extra
    1184015
    4231209
    4231210
    12002520
    12002521
    12002522
    ......
    expansions/222DIY.cdb
    View file @ 491fa87b
    No preview for this file type
    expansions/script/c4231200.lua deleted 100644 → 0
    View file @ ad3a14da
    --天使的心跳3P降临到我身边！
    local m=4231200
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    iFunc(c).c("RegisterEffect",iFunc(c)
    .e("SetCategory",CATEGORY_SUMMON)
    .e("SetType",EFFECT_TYPE_ACTIVATE)
    .e("SetCode",EVENT_FREE_CHAIN)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    local ph=Duel.GetCurrentPhase()
    return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE end)
    .e("SetCost",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetCode(EFFECT_CANNOT_ACTIVATE)
    e1:SetTargetRange(1,1)
    e1:SetValue(1)
    e1:SetReset(RESET_PHASE+PHASE_BATTLE,1)
    Duel.RegisterEffect(e1,tp) end)
    .e("SetTarget",function (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)>2 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,3,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0)
    if Duel.GetTurnPlayer()==tp then end end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<3 then return end
    local g=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,nil,e,tp)
    if g:GetCount()<3 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local sg=g:Select(tp,3,3,nil)
    local tc=sg:GetFirst()
    while tc do
    Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_ATTACK)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetValue(tc:GetAttack()*2)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetValue(1)
    tc:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e3:SetValue(1)
    tc:RegisterEffect(e3)
    local e11=Effect.CreateEffect(e:GetHandler())
    e11:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e11:SetCode(EVENT_PHASE+PHASE_BATTLE)
    e11:SetCountLimit(1)
    e11:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e11:SetLabel(fid)
    e11:SetLabelObject(tc)
    e11:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    if tc:GetFlagEffectLabel(m)~=e:GetLabel() then
    e:Reset()
    return false
    else return true end end)
    e11:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
    Duel.SendtoDeck(e:GetLabelObject(),nil,2,REASON_EFFECT)
    end)
    Duel.RegisterEffect(e11,tp)
    tc=sg:GetNext()
    end
    Duel.SpecialSummonComplete() end)
    .Return())
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xa29) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function iCount(name,tp,m,id)
    return ((name=="get" or name=="set")
    and {(name=="get"
    and {tonumber(((Duel.GetFlagEffect(tp,m)==nil) and {0} or {Duel.GetFlagEffect(tp,m)})[1])}
    or { Debug.Message("","请使用Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)") })[1]}
    or {(bit.band(iCount("get",tp,m,id),math.pow(2,id-1))==0 and {true} or {false})[1]})[1]
    end
    function iFunc(c,x)
    local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
    local fe = function(name,...) if name =="RegisterEffect" then c:RegisterEffect(__this:Clone()) else (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) end return iFunc(c,__this) end
    local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
    local func ={e = fe,Clone = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
    return func
    end
    \ No newline at end of file
    expansions/script/c4231201.lua deleted 100644 → 0
    View file @ ad3a14da
    --天降奏百二十三式·星羽
    local m=4231201
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    iFunc(c).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_TOHAND+CATEGORY_SEARCH)
    .e("SetType",EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
    .e("SetCode",EVENT_SUMMON_SUCCESS)
    .e("SetProperty",EFFECT_FLAG_DELAY)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,1) and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    --cant chain as effect include spsummon
    Duel.SetChainLimit(function(e,ep,tp) return not(ep~=tp and e:IsHasCategory(CATEGORY_SPECIAL_SUMMON)) end) end)
    .e("SetOperation",function(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)
    Duel.SendtoHand(e:GetHandler():GetColumnGroup(),nil,REASON_EFFECT)
    end end)
    .Clone("RegisterEffect")
    .e("SetCode",EVENT_SPSUMMON_SUCCESS)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetCategory",CATEGORY_SPECIAL_SUMMON)
    .e("SetType",EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    .e("SetProperty",EFFECT_FLAG_DELAY)
    .e("SetCode",EVENT_TO_GRAVE)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,2) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
    if Duel.GetFieldGroupCount(tp,LOCATION_GRAVE,LOCATION_GRAVE)>0 then
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,PLAYER_ALL,LOCATION_GRAVE)
    end
    --cant chain as effect include spsummon
    Duel.SetChainLimit(function(e,ep,tp) return not(ep~=tp and e:IsHasCategory(CATEGORY_SPECIAL_SUMMON)) end) end)
    .e("SetOperation",function(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,cm.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)
    .Return())
    end
    function cm.thfilter(c)
    return c:IsSetCard(0xa29) and c:IsAbleToHand()
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xa29) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function iCount(name,tp,m,id)
    return ((name=="get" or name=="set")
    and {(name=="get"
    and {tonumber(((Duel.GetFlagEffect(tp,m)==nil) and {0} or {Duel.GetFlagEffect(tp,m)})[1])}
    or { Debug.Message("","请使用Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)") })[1]}
    or {(bit.band(iCount("get",tp,m,id),(2^(id-1)))==0 and {true} or {false})[1]})[1]
    end
    function iFunc(c,x)
    local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
    local fe = function(name,...) if name =="RegisterEffect" then c:RegisterEffect(__this:Clone()) else (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) end return iFunc(c,__this) end
    local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
    local func ={e = fe,Clone = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
    return func
    end
    \ No newline at end of file
    expansions/script/c4231202.lua deleted 100644 → 0
    View file @ ad3a14da
    --天降奏兔四十八式·雪莲
    local m=4231202
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    iFunc(c).c("RegisterEffect",iFunc(c)
    .e("SetType",EFFECT_TYPE_SINGLE)
    .e("SetCode",EFFECT_IMMUNE_EFFECT)
    .e("SetProperty",EFFECT_FLAG_SINGLE_RANGE)
    .e("SetRange",LOCATION_MZONE)
    .e("SetValue",function(e,te)
    return te:IsHasCategory(CATEGORY_SPECIAL_SUMMON) end)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_TOHAND)
    .e("SetType",EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
    .e("SetCode",EVENT_SUMMON_SUCCESS)
    .e("SetProperty",EFFECT_FLAG_DELAY)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,1) and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,tp,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    local colg = e:GetHandler():GetColumnGroup()
    if colg:GetCount()>0 then
    local sg = colg:Filter(Card.IsFaceup,nil)
    local tc=sg:GetFirst()
    while tc do
    tc:GetTextAttack()
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_CANNOT_TRIGGER)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    tc=sg:GetNext()
    end
    end
    end end)
    .Clone("RegisterEffect")
    .e("SetCode",EVENT_SPSUMMON_SUCCESS)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_SPECIAL_SUMMON)
    .e("SetType",EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    .e("SetProperty",EFFECT_FLAG_DELAY)
    .e("SetCode",EVENT_TO_HAND)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    return not e:GetHandler():IsReason(REASON_DRAW) end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return iCount(0,tp,m,2) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) end)
    .e("SetOperation",function(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,cm.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)
    .Return())
    end
    function cm.thfilter(c)
    return c:IsSetCard(0xa29) and c:IsAbleToHand()
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xa29) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function iCount(name,tp,m,id)
    return ((name=="get" or name=="set")
    and {(name=="get"
    and {tonumber(((Duel.GetFlagEffect(tp,m)==nil) and {0} or {Duel.GetFlagEffect(tp,m)})[1])}
    or { Debug.Message("","请使用Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)") })[1]}
    or {(bit.band(iCount("get",tp,m,id),(2^(id-1)))==0 and {true} or {false})[1]})[1]
    end
    function iFunc(c,x)
    local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
    local fe = function(name,...) if name =="RegisterEffect" then c:RegisterEffect(__this:Clone()) else (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) end return iFunc(c,__this) end
    local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
    local func ={e = fe,Clone = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
    return func
    end
    \ No newline at end of file
    expansions/script/c4231203.lua deleted 100644 → 0
    View file @ ad3a14da
    --天降奏核心百四式·融解
    local m=4231203
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    iFunc(c).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH+CATEGORY_DECKDES)
    .e("SetType",EFFECT_TYPE_QUICK_O)
    .e("SetCode",EVENT_FREE_CHAIN)
    .e("SetHintTiming",0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
    .e("SetProperty",EFFECT_FLAG_DELAY+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
    .e("SetRange",LOCATION_MZONE)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2 end)
    .e("SetCost",function(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)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
    if chk==0 then return iCount(0,tp,m,1) and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp,ft) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp,ft)
    local tc=g:GetFirst()
    if tc then
    if ft>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) and (not tc:IsAbleToHand() or Duel.SelectOption(tp,1190,1152)==1) then
    Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
    else
    Duel.SendtoHand(tc,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,tc)
    end
    end end)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_SPECIAL_SUMMON)
    .e("SetType",EFFECT_TYPE_QUICK_O)
    .e("SetCode",EVENT_FREE_CHAIN)
    .e("SetRange",LOCATION_HAND+LOCATION_GRAVE)
    .e("SetHintTiming",0,TIMING_END_PHASE+TIMINGS_CHECK_MONSTER)
    .e("SetProperty",EFFECT_FLAG_DELAY+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
    .e("SetCost",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsPlayerCanDiscardDeckAsCost(tp,3) end
    Duel.DiscardDeck(tp,3,REASON_COST)end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,2) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) end)
    .Return())
    end
    function cm.filter(c,e,tp,ft)
    return c:IsSetCard(0xa29) and not c:IsCode(m) and c:IsType(TYPE_MONSTER) and (c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
    end
    function iCount(name,tp,m,id)
    return ((name=="get" or name=="set")
    and {(name=="get"
    and {tonumber(((Duel.GetFlagEffect(tp,m)==nil) and {0} or {Duel.GetFlagEffect(tp,m)})[1])}
    or { Debug.Message("","请使用Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)") })[1]}
    or {(bit.band(iCount("get",tp,m,id),(2^(id-1)))==0 and {true} or {false})[1]})[1]
    end
    function iFunc(c,x)
    local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
    local fe = function(name,...) if name =="RegisterEffect" then c:RegisterEffect(__this:Clone()) else (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) end return iFunc(c,__this) end
    local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
    local func ={e = fe,Clone = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
    return func
    end
    expansions/script/c4231204.lua deleted 100644 → 0
    View file @ ad3a14da
    --天降奏剑百十一式·斩铁
    local m=4231204
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    iFunc(c).c("RegisterEffect",iFunc(c)
    .e("SetCategory",CATEGORY_ATKCHANGE)
    .e("SetType",EFFECT_TYPE_QUICK_O)
    .e("SetCode",EVENT_FREE_CHAIN)
    .e("SetHintTiming",0,TIMING_END_PHASE+TIMING_DAMAGE_STEP+TIMINGS_CHECK_MONSTER)
    .e("SetRange",LOCATION_HAND)
    .e("SetCost",function(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsDiscardable() end
    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD) end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,1) and Duel.IsExistingMatchingCard(cm.atkfilter,tp,LOCATION_MZONE,0,1,nil) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    --cant chain as effect include spsummon
    Duel.SetChainLimit(function(e,ep,tp) return not(ep~=tp and e:IsHasCategory(CATEGORY_SPECIAL_SUMMON)) end) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    local g = Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
    local tc=g:GetFirst()
    if tc then
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(2000)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e1)
    local e4=Effect.CreateEffect(e:GetHandler())
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_IMMUNE_EFFECT)
    e4:SetValue(function(e,re) return e:GetOwnerPlayer()~=re:GetOwnerPlayer() end)
    e4:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    e4:SetOwnerPlayer(tp)
    tc:RegisterEffect(e4)
    end end)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
    .e("SetType",EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD)
    .e("SetCode",EVENT_SPSUMMON_SUCCESS)
    .e("SetProperty",EFFECT_FLAG_DELAY)
    .e("SetRange",LOCATION_GRAVE)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.filter,1,nil,tp) end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,2) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    --cant chain as effect include spsummon
    Duel.SetChainLimit(function(e,ep,tp) return not(ep~=tp and e:IsHasCategory(CATEGORY_SPECIAL_SUMMON)) end) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0
    end end)
    .Return())
    end
    function cm.filter(c)
    return c:IsSetCard(0xa29) and c:IsType(TYPE_MONSTER)
    end
    function iCount(name,tp,m,id)
    return ((name=="get" or name=="set")
    and {(name=="get"
    and {tonumber(((Duel.GetFlagEffect(tp,m)==nil) and {0} or {Duel.GetFlagEffect(tp,m)})[1])}
    or { Debug.Message("","请使用Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)") })[1]}
    or {(bit.band(iCount("get",tp,m,id),(2^(id-1)))==0 and {true} or {false})[1]})[1]
    end
    function iFunc(c,x)
    local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
    local fe = function(name,...) if name =="RegisterEffect" then c:RegisterEffect(__this:Clone()) else (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) end return iFunc(c,__this) end
    local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
    local func ={e = fe,Clone = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
    return func
    end
    expansions/script/c4231205.lua deleted 100644 → 0
    View file @ ad3a14da
    --天降奏致静九十式·仁义
    local m=4231205
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    iFunc(c).c("RegisterEffect",iFunc(c)
    .e("SetType",EFFECT_TYPE_SINGLE)
    .e("SetCode",EFFECT_IMMUNE_EFFECT)
    .e("SetProperty",EFFECT_FLAG_SINGLE_RANGE)
    .e("SetRange",LOCATION_MZONE)
    .e("SetValue",function(e,te)
    return te:IsHasCategory(CATEGORY_SPECIAL_SUMMON) end)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_SPECIAL_SUMMON)
    .e("SetType",EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD)
    .e("SetCode",EVENT_SPSUMMON_SUCCESS)
    .e("SetProperty",EFFECT_FLAG_DELAY)
    .e("SetRange",LOCATION_HAND)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.filter,1,nil,tp) end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,1) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
    if Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
    local g=Duel.SelectMatchingCard(tp,cm.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
    end end)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_SPECIAL_SUMMON)
    .e("SetType",EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD)
    .e("SetCode",EVENT_LEAVE_FIELD)
    .e("SetProperty",EFFECT_FLAG_DELAY)
    .e("SetRange",LOCATION_GRAVE)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.filter,1,nil,tp) end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,2) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) end)
    .Return())
    end
    function cm.filter(c,e,tp)
    return c:IsSetCard(0xa29) and c:IsType(TYPE_MONSTER)
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xa29) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function iCount(name,tp,m,id)
    return ((name=="get" or name=="set")
    and {(name=="get"
    and {tonumber(((Duel.GetFlagEffect(tp,m)==nil) and {0} or {Duel.GetFlagEffect(tp,m)})[1])}
    or { Debug.Message("","请使用Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)") })[1]}
    or {(bit.band(iCount("get",tp,m,id),(2^(id-1)))==0 and {true} or {false})[1]})[1]
    end
    function iFunc(c,x)
    local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
    local fe = function(name,...) if name =="RegisterEffect" then c:RegisterEffect(__this:Clone()) else (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) end return iFunc(c,__this) end
    local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
    local func ={e = fe,Clone = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
    return func
    end
    \ No newline at end of file
    expansions/script/c4231206.lua deleted 100644 → 0
    View file @ ad3a14da
    --天降奏百二十四式·毒咬
    local m=4231206
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    iFunc(c).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_SPECIAL_SUMMON)
    .e("SetType",EFFECT_TYPE_QUICK_O)
    .e("SetCode",EVENT_FREE_CHAIN)
    .e("SetHintTiming",0,TIMING_END_PHASE)
    .e("SetProperty",EFFECT_FLAG_DELAY+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
    .e("SetRange",LOCATION_HAND)
    .e("SetCost",function(e,tp,eg,ep,ev,re,r,rp,chk)
    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
    if chk==0 then return ft>-1 and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,ft,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,ft,tp)
    Duel.SendtoHand(g,nil,REASON_COST) end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,1) and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
    local colg = e:GetHandler():GetColumnGroup()
    if colg:GetCount()>0 then
    local sg = colg:Filter(Card.IsFaceup,nil)
    local tc=sg:GetFirst()
    while tc do
    tc:GetTextAttack()
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_ATTACK_FINAL)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetValue(math.ceil(tc:GetAttack()/2))
    tc:RegisterEffect(e1)
    tc=sg:GetNext()
    end
    end
    end end)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_TOHAND+CATEGORY_SEARCH)
    .e("SetType",EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
    .e("SetCode",EVENT_SPSUMMON_SUCCESS)
    .e("SetProperty",EFFECT_FLAG_DELAY+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,2) and Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) end)
    .e("SetOperation",function(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
    local atk = g:GetFirst():GetTextAttack()
    atk=(atk >=0 and {atk} or {0})[1]
    if Duel.SendtoGrave(g,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(function(c,a) return c:IsFaceup() and c:GetAttack()>atk end,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,atk) then
    if Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(m,1)) then
    local tc = Duel.SelectMatchingCard(tp,function(c,a) return c:IsFaceup() and c:GetAttack()>a end,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,atk):GetFirst()
    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:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e2)
    end
    end
    end end)
    .Return())
    end
    function cm.cfilter(c,ft,tp)
    return c:IsFaceup() and c:IsAbleToHandAsCost() and c:IsSetCard(0xa29) and c:IsType(TYPE_MONSTER) and (ft>0 or c:GetSequence()<5) and (c:IsControler(tp) or (c:IsControler(1-tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0))
    end
    function cm.tgfilter(c)
    return c:IsSetCard(0xa29) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
    end
    function iCount(name,tp,m,id)
    return ((name=="get" or name=="set")
    and {(name=="get"
    and {tonumber(((Duel.GetFlagEffect(tp,m)==nil) and {0} or {Duel.GetFlagEffect(tp,m)})[1])}
    or { Debug.Message("","请使用Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)") })[1]}
    or {(bit.band(iCount("get",tp,m,id),(2^(id-1)))==0 and {true} or {false})[1]})[1]
    end
    function iFunc(c,x)
    local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
    local fe = function(name,...) if name =="RegisterEffect" then c:RegisterEffect(__this:Clone()) else (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) end return iFunc(c,__this) end
    local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
    local func ={e = fe,Clone = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
    return func
    end
    \ No newline at end of file
    expansions/script/c4231207.lua deleted 100644 → 0
    View file @ ad3a14da
    --天降奏临八十三式·赠礼
    local m=4231207
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    iFunc(c).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_SPECIAL_SUMMON)
    .e("SetType",EFFECT_TYPE_QUICK_O)
    .e("SetCode",EVENT_FREE_CHAIN)
    .e("SetHintTiming",0,TIMING_END_PHASE)
    .e("SetRange",LOCATION_MZONE)
    .e("SetCost",function(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToHandAsCost() end
    Duel.SendtoHand(c,nil,REASON_COST)
    Duel.ConfirmCards(1-tp,c) end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,1) and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
    if g then
    if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 then
    local colg = g:GetFirst():GetColumnGroup()
    if colg:GetCount()>0 then
    local sg = colg:Filter(Card.IsFaceup,nil)
    local tc=sg:GetFirst()
    while tc do
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_CANNOT_ATTACK)
    e1:SetRange(LOCATION_MZONE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    tc=sg:GetNext()
    end
    end
    end
    end end)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,1))
    .e("SetCategory",CATEGORY_DISABLE)
    .e("SetType",EFFECT_TYPE_QUICK_O)
    .e("SetCode",EVENT_CHAINING)
    .e("SetProperty",EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
    .e("SetRange",LOCATION_HAND)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    local ct=Duel.GetCurrentChain()
    if ct<2 then return end
    local te,p=Duel.GetChainInfo(ct-1,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
    return te and te:GetHandler():IsSetCard(0xa29) and re:GetHandler():IsType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainDisablable(ev) end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return iCount(0,tp,m,2) and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    if Duel.NegateActivation(ev) and Duel.Destroy(eg,REASON_EFFECT)>0 then
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
    end end)
    .Return()).c("RegisterEffect",iFunc(c)
    --activate cost
    .e("SetType",EFFECT_TYPE_FIELD)
    .e("SetCode",EFFECT_ACTIVATE_COST)
    .e("SetRange",LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD)
    .e("SetProperty",EFFECT_FLAG_PLAYER_TARGET)
    .e("SetTargetRange",0,1)
    .e("SetCondition",function(e,te,tp)
    local ct=Duel.GetCurrentChain()
    if ct<1 then return end
    local rete,p=Duel.GetChainInfo(ct-1,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
    return te and rete:GetHandler() == e:GetHandler() and p==1-tp end)
    .e("SetCost",function(e,te_or_c,tp)
    local ct=Duel.GetFlagEffect(tp,m)
    return Duel.CheckLPCost(tp,ct*500)end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    Duel.PayLPCost(tp,500) end)
    .Return()).c("RegisterEffect",iFunc(c)
    --accumulate
    .e("SetType",EFFECT_TYPE_FIELD)
    .e("SetCode",0x10000000+m)
    .e("SetRange",LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD)
    .e("SetProperty",EFFECT_FLAG_PLAYER_TARGET)
    .e("SetTargetRange",0,1)
    .Return())
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xa29) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
    end
    function iCount(name,tp,m,id)
    return ((name=="get" or name=="set")
    and {(name=="get"
    and {tonumber(((Duel.GetFlagEffect(tp,m)==nil) and {0} or {Duel.GetFlagEffect(tp,m)})[1])}
    or { Debug.Message("","请使用Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)") })[1]}
    or {(bit.band(iCount("get",tp,m,id),(2^(id-1)))==0 and {true} or {false})[1]})[1]
    end
    function iFunc(c,x)
    local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
    local fe = function(name,...) if name =="RegisterEffect" then c:RegisterEffect(__this:Clone()) else (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) end return iFunc(c,__this) end
    local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
    local func ={e = fe,Clone = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
    return func
    end
    \ No newline at end of file
    expansions/script/c4231208.lua deleted 100644 → 0
    View file @ ad3a14da
    --天降奏萌五十三式·点燃
    local m=4231208
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    iFunc(c).c("RegisterEffect",iFunc(c)
    --end battle phase
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_SPECIAL_SUMMON)
    .e("SetType",EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    .e("SetCode",EVENT_ATTACK_ANNOUNCE)
    .e("SetRange",LOCATION_HAND)
    .e("SetCost",function(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)
    .e("SetTarget",function(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)
    Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,Duel.GetAttacker():GetAttack()/2) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local at=Duel.GetAttacker()
    if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 and Duel.Damage(1-tp,at:GetAttack()/2,REASON_EFFECT) then
    Duel.SendtoHand(at,nil,REASON_EFFECT)
    Duel.ConfirmCards(PLAYER_ALL,at)
    end end)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,1))
    .e("SetCategory",CATEGORY_TOHAND)
    .e("SetType",EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    .e("SetCode",EVENT_LEAVE_FIELD)
    .e("SetProperty",EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_DELAY)
    .e("SetRange",LOCATION_GRAVE)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.cfilter,1,nil,tp,rp) and not eg:IsContains(e:GetHandler()) end)
    .e("SetTarget",function(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)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    if e:GetHandler():IsRelateToEffect(e) then
    Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,e:GetHandler())
    end end)
    .Return()).c("RegisterEffect",iFunc(c)
    --activate cost
    .e("SetType",EFFECT_TYPE_FIELD)
    .e("SetCode",EFFECT_ACTIVATE_COST)
    .e("SetRange",LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD)
    .e("SetProperty",EFFECT_FLAG_PLAYER_TARGET)
    .e("SetTargetRange",0,1)
    .e("SetCondition",function(e,te,tp)
    local ct=Duel.GetCurrentChain()
    if ct<1 then return end
    local rete,p=Duel.GetChainInfo(ct-1,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
    return te and rete:GetHandler() == e:GetHandler() and p==1-tp end)
    .e("SetCost",function(e,te_or_c,tp)
    local ct=Duel.GetFlagEffect(tp,m)
    return Duel.CheckLPCost(tp,ct*500)end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    Duel.PayLPCost(tp,500) end)
    .Return()).c("RegisterEffect",iFunc(c)
    --accumulate
    .e("SetType",EFFECT_TYPE_FIELD)
    .e("SetCode",0x10000000+m)
    .e("SetRange",LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD)
    .e("SetProperty",EFFECT_FLAG_PLAYER_TARGET)
    .e("SetTargetRange",0,1)
    .Return())
    end
    function cm.cfilter(c,tp,rp)
    return (c:IsSetCard(0xa29) and c:IsType(TYPE_MONSTER) and c:IsReason(REASON_BATTLE)) or (c:GetReasonPlayer()==1-tp and c:IsReason(REASON_EFFECT))
    end
    function iCount(name,tp,m,id)
    return ((name=="get" or name=="set")
    and {(name=="get"
    and {tonumber(((Duel.GetFlagEffect(tp,m)==nil) and {0} or {Duel.GetFlagEffect(tp,m)})[1])}
    or { Debug.Message("","请使用Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)") })[1]}
    or {(bit.band(iCount("get",tp,m,id),(2^(id-1)))==0 and {true} or {false})[1]})[1]
    end
    function iFunc(c,x)
    local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
    local fe = function(name,...) if name =="RegisterEffect" then c:RegisterEffect(__this:Clone()) else (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) end return iFunc(c,__this) end
    local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
    local func ={e = fe,Clone = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
    return func
    end
    \ No newline at end of file
    expansions/script/c4231209.lua deleted 100644 → 0
    View file @ ad3a14da
    --天降奏缎带·白翼炎天使
    local m=4231209
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --synchro summon
    aux.AddSynchroProcedure(c,function(c) return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_FIRE) end,aux.NonTuner(nil),1)
    c:EnableReviveLimit()
    iFunc(c).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,0))
    .e("SetCategory",CATEGORY_REMOVE+CATEGORY_DAMAGE)
    .e("SetType",EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    .e("SetProperty",EFFECT_FLAG_DELAY)
    .e("SetCode",EVENT_TO_HAND)
    .e("SetRange",LOCATION_MZONE)
    .e("SetCountLimit",1)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.cfilter,1,nil,tp) and bit.band(r,REASON_EFFECT)~=0 end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
    Duel.SetTargetPlayer(1-tp)
    Duel.SetTargetParam(1000)
    Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000)
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,0)
    end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
    Duel.Damage(p,d,REASON_EFFECT)
    end end)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,1))
    .e("SetCategory",CATEGORY_NEGATE+CATEGORY_REMOVE)
    .e("SetProperty",EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
    .e("SetType",EFFECT_TYPE_QUICK_O)
    .e("SetCode",EVENT_CHAINING)
    .e("SetRange",LOCATION_MZONE)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    return re:GetActivateLocation()==LOCATION_GRAVE and re:GetHandler():IsType(TYPE_MONSTER) and Duel.IsChainNegatable(ev) and rp==1-tp end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,1) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) and e:GetHandler():IsAbleToRemove() end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,0,1-tp,LOCATION_GRAVE) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    Duel.NegateActivation(ev)
    local g = Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,3,nil)
    if g then
    g:AddCard(g,e:GetHandler())
    Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
    end end)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,2))
    .e("SetCategory",CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
    .e("SetType",EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    .e("SetRange",LOCATION_REMOVED)
    .e("SetProperty",EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    .e("SetCode",EVENT_SPSUMMON_SUCCESS)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(function(c,tp)return c:GetSummonPlayer()==1-tp and c:IsPreviousLocation(LOCATION_HAND)end,1,nil,tp) end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return iCount(0,tp,m,2) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    local g=eg:Filter(cm.desfilter,nil,e,tp)
    if g:GetCount()>0 then
    Duel.Destroy(g,REASON_EFFECT)
    Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
    end end)
    .Return())
    end
    function cm.desfilter(c,e,tp)
    return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsSummonPlayer(1-tp)
    end
    function cm.cfilter(c,tp)
    return c:IsReason(REASON_EFFECT) and c:IsControler(1-tp)
    end
    function iCount(name,tp,m,id)
    return ((name=="get" or name=="set")
    and {(name=="get"
    and {tonumber(((Duel.GetFlagEffect(tp,m)==nil) and {0} or {Duel.GetFlagEffect(tp,m)})[1])}
    or { Debug.Message("","请使用Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)") })[1]}
    or {(bit.band(iCount("get",tp,m,id),(2^(id-1)))==0 and {true} or {false})[1]})[1]
    end
    function iFunc(c,x)
    local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
    local fe = function(name,...) if name =="RegisterEffect" then c:RegisterEffect(__this:Clone()) else (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) end return iFunc(c,__this) end
    local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
    local func ={e = fe,Clone = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
    return func
    end
    \ No newline at end of file
    expansions/script/c4231210.lua deleted 100644 → 0
    View file @ ad3a14da
    --天降奏权杖·白翼圣天使
    local m=4231210
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --synchro summon
    aux.AddSynchroProcedure(c,function(c) return c:IsRace(RACE_FAIRY) end,aux.NonTuner(nil),1)
    c:EnableReviveLimit()
    iFunc(c).c("RegisterEffect",iFunc(c)
    .e("SetType",EFFECT_TYPE_FIELD)
    .e("SetCode",EFFECT_INDESTRUCTABLE_COUNT)
    .e("SetRange",LOCATION_MZONE)
    .e("SetTargetRange",LOCATION_MZONE,0)
    .e("SetTarget",function(e,c)return c:IsSetCard(0x128) end)
    .e("SetValue",function(e,re,r,rp) if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 then return 1 else return 0 end end)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetType",EFFECT_TYPE_FIELD)
    .e("SetProperty",EFFECT_FLAG_PLAYER_TARGET)
    .e("SetRange",LOCATION_MZONE)
    .e("SetCode",EFFECT_SPSUMMON_COUNT_LIMIT)
    .e("SetTargetRange",1,1)
    .e("SetTarget",function(e,c,sump,sumtype,sumpos,targetp,se)
    return c:IsLocation(LOCATION_DECK+LOCATION_GRAVE) end)
    .e("SetValue",1)
    .Return()).c("RegisterEffect",iFunc(c)
    .e("SetDescription",aux.Stringid(m,1))
    .e("SetType",EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
    .e("SetProperty",EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    .e("SetCategory",CATEGORY_SPECIAL_SUMMON)
    .e("SetCode",EVENT_LEAVE_FIELD)
    .e("SetCountLimit",1,m)
    .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsPreviousPosition(POS_FACEUP) and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) end)
    .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0) end)
    .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
    if g then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end end)
    .Return())
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xa29) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) and not c:IsCode(m)
    end
    function iCount(name,tp,m,id)
    return ((name=="get" or name=="set")
    and {(name=="get"
    and {tonumber(((Duel.GetFlagEffect(tp,m)==nil) and {0} or {Duel.GetFlagEffect(tp,m)})[1])}
    or { Debug.Message("","请使用Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)") })[1]}
    or {(bit.band(iCount("get",tp,m,id),(2^(id-1)))==0 and {true} or {false})[1]})[1]
    end
    function iFunc(c,x)
    local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
    local fe = function(name,...) if name =="RegisterEffect" then c:RegisterEffect(__this:Clone()) else (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) end return iFunc(c,__this) end
    local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
    local func ={e = fe,Clone = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
    return func
    end
    \ No newline at end of file
    expansions/strings.conf
    View file @ 491fa87b
    ......@@ -74,7 +74,6 @@
    !setname 0xa25 工作室
    !setname 0xa26 手冲魔女
    !setname 0x1a26 手冲魔女术式
    !setname 0xa29 天降奏
    !setname 0xa2a 元素塔罗使
    !setname 0x1a2c 【合理体】
    !setname 0x2a2c 莉昂
    ......
    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