Skip to content

Y
ygopro-222DIY-cards
Commit e7055fdf authored by Huangnan's avatar Huangnan
Browse files
Options

delete&fix

parent e1669b65
Pipeline #34055 passed with stage
    in 30 minutes and 6 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 6 additions and 4414 deletions
    expansions/FiNALE.cdb
    View file @ e7055fdf
    No preview for this file type
    expansions/script/c18017302.lua deleted 100644 → 0
    View file @ e1669b65
    --ARTHEMIS ROAR
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_REMOVE)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
    e1:SetCost(s.cost)
    e1:SetTarget(s.rmtg1)
    e1:SetOperation(s.rmop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_REMOVE)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
    e2:SetCost(s.rmcost2)
    e2:SetTarget(s.rmtg2)
    e2:SetOperation(s.rmop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.rmtg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    local c=e:GetHandler()
    if chkc then return chkc:IsOnField() and chkc:IsAbleToRemove() and chkc~=c end
    if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,c)
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
    end
    function s.rmop1(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
    end
    end
    function s.rmcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.rmtg2(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,PLAYER_ALL,LOCATION_ONFIELD)
    end
    function s.rmop2(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,c)
    if g:GetCount()>=0 then
    Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/script/c18017303.lua deleted 100644 → 0
    View file @ e1669b65
    --BILLION MAIDEN
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_ATKCHANGE)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCost(s.cost)
    e1:SetTarget(s.atktg1)
    e1:SetOperation(s.atkop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_ATKCHANGE)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetCost(s.atkcost2)
    e2:SetTarget(s.atktg2)
    e2:SetOperation(s.atkop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.filter(c)
    return c:IsFaceup()
    end
    function s.atktg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_MZONE,0,1,nil) and Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_TRAP)>0 end
    end
    function s.atkop1(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    local tc=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil):GetFirst()
    if tc and Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_TRAP)>0 then
    local atk=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_TRAP)*100
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    e1:SetValue(atk)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(e:GetHandler())
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_ATTACK_ALL)
    e2:SetValue(1)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e2)
    end
    end
    function s.atkcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.atktg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_MZONE,0,1,nil) and Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_TRAP)>0 end
    end
    function s.atkop2(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    local tc=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil):GetFirst()
    if tc and Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_TRAP)>0 then
    local atk=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_TRAP)*100
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    e1:SetValue(atk)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(e:GetHandler())
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_ATTACK_ALL)
    e2:SetValue(1)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e2)
    local e3=Effect.CreateEffect(e:GetHandler())
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_IMMUNE_EFFECT)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
    e3:SetRange(LOCATION_MZONE)
    e3:SetValue(s.efilter)
    e3:SetOwnerPlayer(tp)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e3)
    end
    end
    function s.efilter(e,re)
    return e:GetOwnerPlayer()~=re:GetOwnerPlayer()
    end
    \ No newline at end of file
    expansions/script/c18017304.lua deleted 100644 → 0
    View file @ e1669b65
    --ETERNAL SABBATH
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCost(s.cost)
    e1:SetTarget(s.sptg1)
    e1:SetOperation(s.spop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetCost(s.spcost2)
    e2:SetTarget(s.sptg2)
    e2:SetOperation(s.spop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.spfilter(c,e,tp)
    return aux.IsCodeListed(c,18017314) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
    end
    function s.spop1(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function s.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
    end
    function s.xyzfilter(c,e,tp,mc)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ) and mc:IsCanBeXyzMaterial(c)
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
    end
    function s.spop2(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp):GetFirst()
    if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0
    and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
    and Duel.IsExistingMatchingCard(s.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,tc)
    and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.xyzfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc)
    local sc=g:GetFirst()
    if sc then
    local mg=tc:GetOverlayGroup()
    if mg:GetCount()~=0 then
    Duel.Overlay(sc,mg)
    end
    sc:SetMaterial(Group.FromCards(tc))
    Duel.Overlay(sc,Group.FromCards(tc))
    Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
    sc:CompleteProcedure()
    end
    end
    end
    \ No newline at end of file
    expansions/script/c18017305.lua deleted 100644 → 0
    View file @ e1669b65
    --FIREWIND GLINT
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_DISABLE)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
    e1:SetCost(s.cost)
    e1:SetTarget(s.distg1)
    e1:SetOperation(s.disop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_DISABLE)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
    e2:SetCost(s.discost2)
    e2:SetTarget(s.distg2)
    e2:SetOperation(s.disop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.distg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    local c=e:GetHandler()
    if chkc then return chkc:IsOnField() and aux.NegateAnyFilter(chkc) and chkc~=c end
    if chk==0 then return Duel.IsExistingTarget(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
    Duel.SelectTarget(tp,aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,c)
    end
    function s.disop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsCanBeDisabledByEffect(e) then
    Duel.NegateRelatedChain(tc,RESET_TURN_SET)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_DISABLE_EFFECT)
    e2:SetValue(RESET_TURN_SET)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e2)
    if not c:IsStatus(STATUS_ACT_FROM_HAND) and c:IsLocation(LOCATION_SZONE) then
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_FIELD)
    e4:SetCode(EFFECT_DISABLE)
    e4:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
    e4:SetTarget(s.distg)
    e4:SetReset(RESET_PHASE+PHASE_END)
    e4:SetLabel(c:GetSequence(),c:GetFieldID())
    Duel.RegisterEffect(e4,tp)
    end
    end
    end
    function s.discost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.distg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
    end
    function s.disop2(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
    local tc=Duel.SelectMatchingCard(tp,aux.NegateAnyFilter,tp,0,LOCATION_MZONE,1,1,nil):GetFirst()
    if tc then
    Duel.NegateRelatedChain(tc,RESET_TURN_SET)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_DISABLE_EFFECT)
    e2:SetValue(RESET_TURN_SET)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e2)
    if not c:IsStatus(STATUS_ACT_FROM_HAND) and c:IsLocation(LOCATION_SZONE) then
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_FIELD)
    e4:SetCode(EFFECT_DISABLE)
    e4:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
    e4:SetTarget(s.distg)
    e4:SetReset(RESET_PHASE+PHASE_END)
    e4:SetLabel(c:GetSequence(),c:GetFieldID())
    Duel.RegisterEffect(e4,tp)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c18017306.lua deleted 100644 → 0
    View file @ e1669b65
    --GIGA ZEPPELIN
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_TOHAND)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCost(s.cost)
    e1:SetTarget(s.thtg1)
    e1:SetOperation(s.thop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOHAND)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetCost(s.thcost2)
    e2:SetTarget(s.thtg2)
    e2:SetOperation(s.thop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.thfilter(c)
    return not c:IsCode(id) and aux.IsCodeListed(c,18017314) and c:IsAbleToHand()
    end
    function s.thtg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
    end
    function s.thop1(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_GRAVE,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function s.thcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.thfilter2(c)
    return not c:IsCode(id) and aux.IsCodeListed(c,18017314) and c:IsAbleToHand()
    end
    function s.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter2,tp,LOCATION_GRAVE,0,2,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_GRAVE)
    end
    function s.thop2(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter2),tp,LOCATION_GRAVE,0,2,2,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    \ No newline at end of file
    expansions/script/c18017307.lua deleted 100644 → 0
    View file @ e1669b65
    --MEGA DETH FUGA
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_DRAW)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(0,TIMING_BATTLE_START)
    e1:SetCost(s.cost)
    e1:SetTarget(s.settg1)
    e1:SetOperation(s.setop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_DRAW)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetHintTiming(0,TIMING_BATTLE_START)
    e2:SetCost(s.setcost2)
    e2:SetTarget(s.settg2)
    e2:SetOperation(s.setop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.setfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_TRAP) and c:IsSSetable()
    end
    function s.settg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_HAND,0,1,nil) and Duel.IsPlayerCanDraw(tp,1) end
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    end
    function s.setop1(e,tp,eg,ep,ev,re,r,rp)
    local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
    local ct=0
    if ft>1 then
    for i=1,ft do
    if Duel.IsPlayerCanDraw(tp,ct) then
    ct=ct+1
    end
    end
    elseif ft==1 then
    ct=1
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_HAND,0,1,ct,nil)
    if g:GetCount()>0 then
    local dr=g:GetCount()
    Duel.SSet(tp,g)
    Duel.Draw(tp,dr,REASON_EFFECT)
    end
    end
    function s.setcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.settg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_HAND,0,1,nil) and Duel.IsPlayerCanDraw(tp,1) end
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    end
    function s.setop2(e,tp,eg,ep,ev,re,r,rp)
    local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
    local ct=0
    if ft>1 then
    for i=1,ft do
    if Duel.IsPlayerCanDraw(tp,ct) then
    ct=ct+1
    end
    end
    elseif ft==1 then
    ct=1
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_HAND,0,1,ct,nil)
    if g:GetCount()>0 then
    local dr=g:GetCount()
    Duel.SSet(tp,g)
    for tc in aux.Next(g) do
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
    e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(e:GetHandler())
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
    e2:SetCode(id)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e2)
    local e3=Effect.CreateEffect(e:GetHandler())
    e3:SetType(EFFECT_TYPE_FIELD)
    e3:SetCode(EFFECT_ACTIVATE_COST)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
    e3:SetTargetRange(1,0)
    e3:SetCost(s.costchk)
    e3:SetTarget(s.costtg)
    e3:SetOperation(s.costop)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e3)
    end
    Duel.Draw(tp,dr,REASON_EFFECT)
    end
    end
    function s.costtg(e,te,tp)
    local tc=te:GetHandler()
    return tc:GetEffectCount(EFFECT_TRAP_ACT_IN_SET_TURN)==1 and tc:IsType(TYPE_TRAP) and tc:GetEffectCount(id)==1 and tc==e:GetHandler()
    end
    function s.costchk(e,te_or_c,tp)
    return Duel.CheckLPCost(tp,1000)
    end
    function s.costop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_CARD,0,id)
    Duel.PayLPCost(tp,1000)
    end
    \ No newline at end of file
    expansions/script/c18017308.lua deleted 100644 → 0
    View file @ e1669b65
    --MEGA DETH PAPTY
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_DRAW)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
    e1:SetCost(s.cost)
    e1:SetTarget(s.drtg1)
    e1:SetOperation(s.drop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
    e2:SetCost(s.drcost2)
    e2:SetTarget(s.drtg2)
    e2:SetOperation(s.drop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.drtg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsPlayerCanDraw(tp,3) end
    Duel.SetTargetPlayer(tp)
    Duel.SetTargetParam(3)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,3)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,tp,3)
    end
    function s.drop1(e,tp,eg,ep,ev,re,r,rp)
    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
    if Duel.Draw(p,d,REASON_EFFECT)==3 then
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,p,LOCATION_HAND,0,nil)
    if g:GetCount()<3 then return end
    Duel.ShuffleHand(p)
    Duel.BreakEffect()
    Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK)
    local sg=g:Select(p,3,3,nil)
    aux.PlaceCardsOnDeckBottom(p,sg)
    end
    end
    function s.drcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.drtg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsPlayerCanDraw(tp,3) end
    Duel.SetTargetPlayer(tp)
    Duel.SetTargetParam(3)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,3)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,tp,3)
    end
    function s.desfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_TRAP) and c:IsPublic()
    end
    function s.drop2(e,tp,eg,ep,ev,re,r,rp)
    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
    if Duel.Draw(p,d,REASON_EFFECT)==3 then
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,p,LOCATION_HAND,0,nil)
    if g:GetCount()<3 then return end
    Duel.ShuffleHand(p)
    Duel.BreakEffect()
    Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK)
    local sg=g:Select(p,3,3,nil)
    aux.PlaceCardsOnDeckBottom(p,sg)
    if Duel.IsExistingMatchingCard(s.desfilter,tp,LOCATION_HAND,0,1,nil)
    and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
    and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
    local ct=Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
    local pg=Duel.SelectMatchingCard(tp,s.desfilter,tp,LOCATION_HAND,0,1,ct,nil)
    Duel.ConfirmCards(1-tp,pg)
    Duel.ShuffleHand(tp)
    local ps=pg:GetCount()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local dg=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD):Select(tp,ps,ps,nil)
    if dg:GetCount()>0 then
    Duel.HintSelection(dg)
    Duel.Destroy(dg,REASON_EFFECT)
    end
    end
    end
    end
    \ No newline at end of file
    expansions/script/c18017309.lua deleted 100644 → 0
    View file @ e1669b65
    --QUEEN's INFERNO
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_HANDES+CATEGORY_DRAW)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCost(s.cost)
    e1:SetTarget(s.drtg1)
    e1:SetOperation(s.drop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_HANDES+CATEGORY_DRAW)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetCost(s.drcost2)
    e2:SetTarget(s.drtg2)
    e2:SetOperation(s.drop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.drfilter1(c)
    return c:IsDiscardable(REASON_EFFECT) and c:IsType(TYPE_TRAP)
    end
    function s.drtg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.drfilter1,tp,LOCATION_HAND,0,1,nil)
    and Duel.IsPlayerCanDraw(tp,2) end
    Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
    end
    function s.drop1(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
    local g=Duel.SelectMatchingCard(tp,s.drfilter1,tp,LOCATION_HAND,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD)
    Duel.BreakEffect()
    Duel.Draw(tp,2,REASON_EFFECT)
    end
    end
    function s.drcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.drfilter2(c)
    return c:IsDiscardable(REASON_EFFECT)
    end
    function s.drtg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.drfilter2,tp,LOCATION_HAND,0,1,nil)
    and Duel.IsPlayerCanDraw(tp,2) end
    Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
    end
    function s.drop2(e,tp,eg,ep,ev,re,r,rp)
    if Duel.Draw(tp,2,REASON_EFFECT)==2 then
    Duel.BreakEffect()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
    local g=Duel.SelectMatchingCard(tp,s.drfilter2,tp,LOCATION_HAND,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c18017310.lua deleted 100644 → 0
    View file @ e1669b65
    --RED HOT RAIN
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
    e1:SetCost(s.cost)
    e1:SetTarget(s.thtg1)
    e1:SetOperation(s.thop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
    e2:SetCost(s.thcost2)
    e2:SetTarget(s.thtg2)
    e2:SetOperation(s.thop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.thtg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>2 end
    end
    function s.thfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsAbleToHand()
    end
    function s.thop1(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<=2 then return end
    Duel.ConfirmDecktop(tp,3)
    local g=Duel.GetDecktopGroup(tp,3)
    local ct=g:GetCount()
    if ct>0 and g:FilterCount(s.thfilter,nil)>0
    and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
    Duel.DisableShuffleCheck()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local sg=g:FilterSelect(tp,s.thfilter,1,1,nil)
    Duel.SendtoHand(sg,nil,REASON_EFFECT)
    ct=g:GetCount()-sg:GetCount()
    end
    if ct>0 then
    Duel.SortDecktop(tp,tp,ct)
    for i=1,ct do
    local mg=Duel.GetDecktopGroup(tp,1)
    Duel.MoveSequence(mg:GetFirst(),SEQ_DECKBOTTOM)
    end
    end
    end
    function s.thcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>2 end
    end
    function s.thop2(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<=2 then return end
    Duel.ConfirmDecktop(tp,3)
    local g=Duel.GetDecktopGroup(tp,3)
    local ct=g:GetCount()
    if ct>0 and g:FilterCount(s.thfilter,nil)>0
    and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
    Duel.DisableShuffleCheck()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local sg=g:FilterSelect(tp,s.thfilter,1,3,nil)
    Duel.SendtoHand(sg,nil,REASON_EFFECT)
    ct=g:GetCount()-sg:GetCount()
    end
    if ct>0 then
    Duel.SortDecktop(tp,tp,ct)
    for i=1,ct do
    local mg=Duel.GetDecktopGroup(tp,1)
    Duel.MoveSequence(mg:GetFirst(),SEQ_DECKBOTTOM)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c18017311.lua deleted 100644 → 0
    View file @ e1669b65
    --ROSES OF DEATH
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCost(s.cost)
    e1:SetTarget(s.thtg1)
    e1:SetOperation(s.thop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DRAW)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetCost(s.thcost2)
    e2:SetTarget(s.thtg2)
    e2:SetOperation(s.thop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.thfilter(c)
    return not c:IsCode(id) and aux.IsCodeListed(c,18017314) and c:IsType(TYPE_TRAP) and c:IsAbleToHand()
    end
    function s.thtg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function s.thop1(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function s.thcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.thfilter2(c)
    return not c:IsCode(id) and aux.IsCodeListed(c,18017314) and c:IsAbleToHand()
    end
    function s.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter2,tp,LOCATION_DECK,0,1,nil) and Duel.IsPlayerCanDraw(tp,1) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function s.thop2(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,s.thfilter2,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    if Duel.IsPlayerCanDraw(tp,1) then
    Duel.Draw(tp,1,REASON_EFFECT)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c18017312.lua deleted 100644 → 0
    View file @ e1669b65
    --SPREAD ZEPPELIN
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_DESTROY)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
    e1:SetCost(s.cost)
    e1:SetTarget(s.destg1)
    e1:SetOperation(s.desop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_DESTROY)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
    e2:SetCost(s.descost2)
    e2:SetTarget(s.destg2)
    e2:SetOperation(s.desop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.desfilter(c,g)
    return g:IsContains(c)
    end
    function s.destg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    local cg=c:GetColumnGroup()
    if chk==0 then return Duel.IsExistingMatchingCard(s.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c,cg) end
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    end
    function s.desop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local cg=c:GetColumnGroup()
    if not c:IsRelateToEffect(e) or not c:IsLocation(LOCATION_MZONE) then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectMatchingCard(tp,s.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,cg)
    if g:GetCount()>0 then
    Duel.Destroy(g,REASON_EFFECT)
    end
    end
    function s.descost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.destg2(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    local cg=c:GetColumnGroup()
    if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_SZONE+LOCATION_MZONE,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,1-tp,LOCATION_SZONE+LOCATION_MZONE)
    end
    function s.desfilter2(c,i)
    if c:IsLocation(LOCATION_FZONE) then return false end
    if (i==1 and c:GetSequence()==5) or (i==3 and c:GetSequence()==6) then return true end
    return i+c:GetSequence()==4
    end
    function s.desop2(e,tp,eg,ep,ev,re,r,rp)
    local flag=0
    for i=0,4 do
    if Duel.IsExistingMatchingCard(s.desfilter2,tp,0,LOCATION_ONFIELD,1,nil,i) then
    flag=flag|(1<<(i))
    end
    end
    flag=flag|(1<<(5))
    flag=flag|(1<<(6))
    local dis=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,~flag)
    dis=math.log(dis,2)
    local sg=Duel.GetMatchingGroup(s.desfilter2,tp,0,LOCATION_ONFIELD,aux.ExceptThisCard(e),dis)
    Duel.Destroy(sg,REASON_EFFECT)
    end
    \ No newline at end of file
    expansions/script/c18017313.lua deleted 100644 → 0
    View file @ e1669b65
    --VOIVOD RUSH
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(0,TIMING_BATTLE_START)
    e1:SetCost(s.cost)
    e1:SetTarget(s.drtg1)
    e1:SetOperation(s.drop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetHintTiming(0,TIMING_BATTLE_START)
    e2:SetCost(s.drcost2)
    e2:SetTarget(s.drop2)
    e2:SetOperation(s.drop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc or Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.tdfilter1(c)
    return c:IsFaceupEx() and aux.IsCodeListed(c,18017314) and c:IsType(TYPE_TRAP) and c:IsAbleToDeck()
    end
    function s.drtg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsPlayerCanDraw(tp,2)
    and Duel.IsExistingMatchingCard(s.tdfilter1,tp,LOCATION_REMOVED+LOCATION_GRAVE,0,5,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,5,0,0)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
    end
    function s.drop1(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.tdfilter1),tp,LOCATION_REMOVED+LOCATION_GRAVE,0,nil)
    if g:GetCount()<5 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local sg=g:Select(tp,5,5,nil)
    Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    local og=Duel.GetOperatedGroup()
    if og:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end
    local ct=og:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
    if ct==5 then
    Duel.BreakEffect()
    Duel.Draw(tp,2,REASON_EFFECT)
    end
    end
    function s.drcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.tdfilter2(c)
    return c:IsFaceupEx() and aux.IsCodeListed(c,18017314) and c:IsAbleToDeck()
    end
    function s.drop2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsPlayerCanDraw(tp,2)
    and Duel.IsExistingMatchingCard(s.tdfilter2,tp,LOCATION_REMOVED+LOCATION_GRAVE,0,5,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,5,0,0)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
    end
    function s.drop2(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.tdfilter2),tp,LOCATION_REMOVED+LOCATION_GRAVE,0,nil)
    if g:GetCount()<5 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local sg=g:Select(tp,5,5,nil)
    Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    local og=Duel.GetOperatedGroup()
    if og:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end
    local ct=og:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
    if ct==5 then
    Duel.BreakEffect()
    Duel.Draw(tp,2,REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/script/c18017314.lua deleted 100644 → 0
    View file @ e1669b65
    --雪音克莉丝
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_CHAINING)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetCondition(s.xyzcon)
    e1:SetTarget(s.xyztg)
    e1:SetOperation(s.xyzop)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_NEGATE)
    e2:SetType(EFFECT_TYPE_XMATERIAL+EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetCost(s.spcost)
    e2:SetTarget(s.sptg)
    e2:SetOperation(s.spop)
    c:RegisterEffect(e2)
    end
    function s.xyzcon(e,tp,eg,ep,ev,re,r,rp)
    return re:IsActiveType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
    end
    function s.xyzfilter(c)
    return c:IsXyzSummonable(nil) and aux.IsCodeListed(c,18017314)
    end
    function s.xyztg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.xyzfilter,tp,LOCATION_EXTRA,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function s.xyzop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(s.xyzfilter,tp,LOCATION_EXTRA,0,nil)
    if g:GetCount()>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local tg=g:Select(tp,1,1,nil)
    Duel.XyzSummon(tp,tg:GetFirst(),nil)
    end
    end
    function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local ct=e:GetHandler():GetOverlayGroup():GetCount()
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,ct,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,ct,ct,REASON_COST)
    e:SetLabel(ct)
    end
    function s.spfilter(c,e,tp)
    return c:IsCode(18017314) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
    end
    function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return e:GetHandler():IsAbleToExtra() end
    local g=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
    Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    end
    function s.spop(e,tp,eg,ep,ev,re,r,rp)
    local ct=e:GetLabel()
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 and c:IsLocation(LOCATION_EXTRA) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local dg=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD):Select(tp,1,ct,nil)
    if dg:GetCount() and Duel.Destroy(dg,REASON_EFFECT)~=0
    and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) then
    local tc=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp):GetFirst()
    if tc then
    Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    end
    \ No newline at end of file
    expansions/script/c18017316.lua deleted 100644 → 0
    View file @ e1669b65
    --魔弓・Ichaival
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    aux.AddXyzProcedure(c,nil,3,2,s.ovfilter,aux.Stringid(id,0),2,s.xyzop)
    c:EnableReviveLimit()
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,1))
    e1:SetCategory(CATEGORY_DESTROY)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetCountLimit(1)
    e1:SetCost(s.descost)
    e1:SetTarget(s.destg)
    e1:SetOperation(s.desop)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,2))
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_CHAINING)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(s.matcon)
    e2:SetTarget(s.mattg)
    e2:SetOperation(s.matop)
    c:RegisterEffect(e2)
    if not s.global_check then
    s.global_check=true
    local ge1=Effect.GlobalEffect()
    ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge1:SetCode(EVENT_CHAINING)
    ge1:SetOperation(s.checkop)
    Duel.RegisterEffect(ge1,0)
    end
    end
    function s.ovfilter(c)
    return c:IsFaceup() and c:IsCode(18017314)
    end
    function s.xyzop(e,tp,chk)
    if chk==0 then return Duel.GetFlagEffect(tp,id)>0 and Duel.GetFlagEffect(tp,id+o*1000)==0 end
    Duel.RegisterFlagEffect(tp,id+o*1000,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
    end
    function s.checkop(e,tp,eg,ep,ev,re,r,rp)
    if re:IsActiveType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE) then
    Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(1-tp,id,RESET_PHASE+PHASE_END,0,1)
    end
    end
    function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsOnField() end
    if chk==0 then return Duel.IsExistingTarget(Card.IsType,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,TYPE_SPELL+TYPE_TRAP) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectTarget(tp,Card.IsType,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,TYPE_SPELL+TYPE_TRAP)
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    end
    function s.desop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    Duel.Destroy(tc,REASON_EFFECT)
    end
    end
    function s.matcon(e,tp,eg,ep,ev,re,r,rp)
    local g=e:GetHandler():GetOverlayGroup()
    return re:IsHasType(EFFECT_TYPE_ACTIVATE) and rp==tp
    and re:IsActiveType(TYPE_TRAP)
    and not g:IsExists(Card.IsCode,1,nil,re:GetHandler():GetCode())
    end
    function s.mattg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return re:GetHandler():IsCanOverlay() end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    re:GetHandler():CreateEffectRelation(e)
    end
    function s.matop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=re:GetHandler()
    if c:IsRelateToChain() and tc:IsRelateToChain() and not tc:IsImmuneToEffect(e) then
    tc:CancelToGrave()
    Duel.Overlay(c,tc)
    end
    end
    \ No newline at end of file
    expansions/script/c18017317.lua deleted 100644 → 0
    View file @ e1669b65
    --Bye-Bye Lullaby
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    aux.AddXyzProcedure(c,nil,3,3,s.ovfilter,aux.Stringid(id,0),2,s.xyzop)
    c:EnableReviveLimit()
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,1))
    e1:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetCountLimit(1)
    e1:SetCost(s.drcost)
    e1:SetTarget(s.drtg)
    e1:SetOperation(s.drop)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,2))
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_CHAINING)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(s.matcon)
    e2:SetTarget(s.mattg)
    e2:SetOperation(s.matop)
    c:RegisterEffect(e2)
    if not s.global_check then
    s.global_check=true
    local ge1=Effect.GlobalEffect()
    ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge1:SetCode(EVENT_CHAINING)
    ge1:SetOperation(s.checkop)
    Duel.RegisterEffect(ge1,0)
    end
    end
    function s.ovfilter(c)
    return c:IsFaceup() and aux.IsCodeListed(c,18017314)
    end
    function s.xyzop(e,tp,chk)
    if chk==0 then return Duel.GetFlagEffect(tp,id)>0 and Duel.GetFlagEffect(tp,id+o*1000)==0 end
    Duel.RegisterFlagEffect(tp,id+o*1000,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
    end
    function s.checkop(e,tp,eg,ep,ev,re,r,rp)
    if re:IsActiveType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE) then
    Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(1-tp,id,RESET_PHASE+PHASE_END,0,1)
    end
    end
    function s.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_HAND,0,1,nil,TYPE_TRAP)
    and Duel.IsPlayerCanDraw(tp,1) end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    end
    function s.drop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
    local g=Duel.SelectMatchingCard(tp,Card.IsType,tp,LOCATION_HAND,0,1,1,nil,TYPE_TRAP)
    if g:GetCount()>0 then
    Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD)
    Duel.BreakEffect()
    Duel.Draw(tp,1,REASON_EFFECT)
    end
    end
    function s.matcon(e,tp,eg,ep,ev,re,r,rp)
    local g=e:GetHandler():GetOverlayGroup()
    return re:IsHasType(EFFECT_TYPE_ACTIVATE) and rp==tp
    and re:IsActiveType(TYPE_TRAP)
    and not g:IsExists(Card.IsCode,1,nil,re:GetHandler():GetCode())
    end
    function s.mattg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return re:GetHandler():IsCanOverlay() end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    re:GetHandler():CreateEffectRelation(e)
    end
    function s.matop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=re:GetHandler()
    if c:IsRelateToChain() and tc:IsRelateToChain() and not tc:IsImmuneToEffect(e) then
    tc:CancelToGrave()
    Duel.Overlay(c,tc)
    end
    end
    \ No newline at end of file
    expansions/script/c18017318.lua deleted 100644 → 0
    View file @ e1669b65
    --GUN BULLET XXX
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    aux.AddXyzProcedure(c,nil,3,3,s.ovfilter,aux.Stringid(id,0),2,s.xyzop)
    c:EnableReviveLimit()
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,1))
    e1:SetCategory(CATEGORY_DESTROY)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetCountLimit(1)
    e1:SetCost(s.descost)
    e1:SetTarget(s.destg)
    e1:SetOperation(s.desop)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,2))
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_CHAINING)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(s.matcon)
    e2:SetTarget(s.mattg)
    e2:SetOperation(s.matop)
    c:RegisterEffect(e2)
    if not s.global_check then
    s.global_check=true
    local ge1=Effect.GlobalEffect()
    ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge1:SetCode(EVENT_CHAINING)
    ge1:SetOperation(s.checkop)
    Duel.RegisterEffect(ge1,0)
    end
    end
    function s.ovfilter(c)
    return c:IsFaceup() and aux.IsCodeListed(c,18017314)
    end
    function s.xyzop(e,tp,chk)
    if chk==0 then return Duel.GetFlagEffect(tp,id)>0 and Duel.GetFlagEffect(tp,id+o*1000)==0 end
    Duel.RegisterFlagEffect(tp,id+o*1000,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
    end
    function s.checkop(e,tp,eg,ep,ev,re,r,rp)
    if re:IsActiveType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE) then
    Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(1-tp,id,RESET_PHASE+PHASE_END,0,1)
    end
    end
    function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsOnField() end
    if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    end
    function s.desop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    Duel.Destroy(tc,REASON_EFFECT)
    end
    end
    function s.matcon(e,tp,eg,ep,ev,re,r,rp)
    local g=e:GetHandler():GetOverlayGroup()
    return re:IsHasType(EFFECT_TYPE_ACTIVATE) and rp==tp
    and re:IsActiveType(TYPE_TRAP)
    and not g:IsExists(Card.IsCode,1,nil,re:GetHandler():GetCode())
    end
    function s.mattg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return re:GetHandler():IsCanOverlay() end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    re:GetHandler():CreateEffectRelation(e)
    end
    function s.matop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=re:GetHandler()
    if c:IsRelateToChain() and tc:IsRelateToChain() and not tc:IsImmuneToEffect(e) then
    tc:CancelToGrave()
    Duel.Overlay(c,tc)
    end
    end
    \ No newline at end of file
    expansions/script/c18017319.lua deleted 100644 → 0
    View file @ e1669b65
    --Take this! "All loaded"
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    aux.AddXyzProcedure(c,nil,3,3,s.ovfilter,aux.Stringid(id,0),2,s.xyzop)
    c:EnableReviveLimit()
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,1))
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetCost(s.setcost)
    e1:SetTarget(s.settg)
    e1:SetOperation(s.setop)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,2))
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_CHAINING)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(s.matcon)
    e2:SetTarget(s.mattg)
    e2:SetOperation(s.matop)
    c:RegisterEffect(e2)
    if not s.global_check then
    s.global_check=true
    local ge1=Effect.GlobalEffect()
    ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge1:SetCode(EVENT_CHAINING)
    ge1:SetOperation(s.checkop)
    Duel.RegisterEffect(ge1,0)
    end
    end
    function s.ovfilter(c)
    return c:IsFaceup() and aux.IsCodeListed(c,18017314)
    end
    function s.xyzop(e,tp,chk)
    if chk==0 then return Duel.GetFlagEffect(tp,id)>0 and Duel.GetFlagEffect(tp,id+o*1000)==0 end
    Duel.RegisterFlagEffect(tp,id+o*1000,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
    end
    function s.checkop(e,tp,eg,ep,ev,re,r,rp)
    if re:IsActiveType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE) then
    Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(1-tp,id,RESET_PHASE+PHASE_END,0,1)
    end
    end
    function s.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function s.setfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_TRAP+TYPE_SPELL) and c:IsSSetable()
    end
    function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(id,0))
    end
    function s.setop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.setfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SSet(tp,g:GetFirst())
    end
    end
    function s.matcon(e,tp,eg,ep,ev,re,r,rp)
    local g=e:GetHandler():GetOverlayGroup()
    return re:IsHasType(EFFECT_TYPE_ACTIVATE) and rp==tp
    and re:IsActiveType(TYPE_TRAP)
    and not g:IsExists(Card.IsCode,1,nil,re:GetHandler():GetCode())
    end
    function s.mattg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return re:GetHandler():IsCanOverlay() end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    re:GetHandler():CreateEffectRelation(e)
    end
    function s.matop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=re:GetHandler()
    if c:IsRelateToChain() and tc:IsRelateToChain() and not tc:IsImmuneToEffect(e) then
    tc:CancelToGrave()
    Duel.Overlay(c,tc)
    end
    end
    \ No newline at end of file
    expansions/script/c18017320.lua deleted 100644 → 0
    View file @ e1669b65
    --TRUST HEART
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    aux.AddXyzProcedure(c,nil,3,3,s.ovfilter,aux.Stringid(id,0),2,s.xyzop)
    c:EnableReviveLimit()
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,1))
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetCost(s.setcost)
    e1:SetTarget(s.settg)
    e1:SetOperation(s.setop)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,2))
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_CHAINING)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(s.matcon)
    e2:SetTarget(s.mattg)
    e2:SetOperation(s.matop)
    c:RegisterEffect(e2)
    if not s.global_check then
    s.global_check=true
    local ge1=Effect.GlobalEffect()
    ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge1:SetCode(EVENT_CHAINING)
    ge1:SetOperation(s.checkop)
    Duel.RegisterEffect(ge1,0)
    end
    end
    function s.ovfilter(c)
    return c:IsFaceup() and aux.IsCodeListed(c,18017314)
    end
    function s.xyzop(e,tp,chk)
    if chk==0 then return Duel.GetFlagEffect(tp,id)>0 and Duel.GetFlagEffect(tp,id+o*1000)==0 end
    Duel.RegisterFlagEffect(tp,id+o*1000,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
    end
    function s.checkop(e,tp,eg,ep,ev,re,r,rp)
    if re:IsActiveType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE) then
    Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
    Duel.RegisterFlagEffect(1-tp,id,RESET_PHASE+PHASE_END,0,1)
    end
    end
    function s.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function s.setfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_TRAP+TYPE_SPELL) and c:IsSSetable()
    end
    function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(id,0))
    end
    function s.setop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SSet(tp,g:GetFirst())
    end
    end
    function s.matcon(e,tp,eg,ep,ev,re,r,rp)
    local g=e:GetHandler():GetOverlayGroup()
    return re:IsHasType(EFFECT_TYPE_ACTIVATE) and rp==tp
    and re:IsActiveType(TYPE_TRAP)
    and not g:IsExists(Card.IsCode,1,nil,re:GetHandler():GetCode())
    end
    function s.mattg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return re:GetHandler():IsCanOverlay() end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    re:GetHandler():CreateEffectRelation(e)
    end
    function s.matop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=re:GetHandler()
    if c:IsRelateToChain() and tc:IsRelateToChain() and not tc:IsImmuneToEffect(e) then
    tc:CancelToGrave()
    Duel.Overlay(c,tc)
    end
    end
    \ No newline at end of file
    expansions/script/c18017321.lua deleted 100644 → 0
    View file @ e1669b65
    --MEGA DETH CARNIVAL
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    aux.AddXyzProcedure(c,nil,7,3,s.ovfilter,aux.Stringid(id,0),2,s.xyzop)
    c:EnableReviveLimit()
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,1))
    e1:SetCategory(CATEGORY_REMOVE)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
    e1:SetCondition(s.descon1)
    e1:SetCost(s.descost)
    e1:SetTarget(s.destg)
    e1:SetOperation(s.desop)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCountLimit(1)
    e2:SetCondition(s.descon2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(id,2))
    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
    e3:SetCode(EVENT_PHASE+PHASE_END)
    e3:SetRange(LOCATION_MZONE)
    e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e3:SetCountLimit(1)
    e3:SetTarget(s.ovtg)
    e3:SetOperation(s.ovop)
    c:RegisterEffect(e3)
    end
    function s.ovfilter(c)
    return c:IsFaceup() and aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cfilter(c)
    return c:IsType(TYPE_TRAP) and c:IsDiscardable()
    end
    function s.xyzop(e,tp,chk)
    if chk==0 then return Duel.GetFlagEffect(tp,id)==0 and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.DiscardHand(tp,s.cfilter,1,1,REASON_COST+REASON_DISCARD)
    Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
    end
    function s.descon1(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnPlayer()==tp
    end
    function s.descon2(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnPlayer()==1-tp
    end
    function s.rmfilter(c)
    return c:IsType(TYPE_TRAP) and c:IsAbleToRemoveAsCost()
    end
    function s.descost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) and Duel.IsExistingMatchingCard(s.rmfilter,tp,LOCATION_GRAVE,0,1,nil) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectMatchingCard(tp,s.rmfilter,tp,LOCATION_GRAVE,0,1,1,nil)
    Duel.Remove(g,POS_FACEUP,REASON_COST)
    end
    function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_ONFIELD)
    end
    function s.desop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
    if g:GetCount()>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local sg=g:Select(tp,1,1,nil)
    Duel.HintSelection(sg)
    Duel.Destroy(sg,REASON_EFFECT)
    end
    end
    function s.ofilter(c,e)
    return c:IsCanOverlay() and (not e or not c:IsImmuneToEffect(e))
    and aux.IsCodeListed(c,18017314)
    end
    function s.ovtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    end
    function s.ovop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if Duel.CheckLPCost(tp,1000) then
    Duel.PayLPCost(tp,1000)
    end
    if c:IsRelateToEffect(e) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
    local g=Duel.SelectMatchingCard(tp,s.ofilter,tp,LOCATION_DECK,0,1,1,nil,e)
    local tc=g:GetFirst()
    if tc then
    Duel.Overlay(c,tc)
    end
    Duel.ShuffleDeck(tp)
    end
    end
    \ No newline at end of file
    expansions/script/c18017322.lua deleted 100644 → 0
    View file @ e1669b65
    --∀∀De·Le·METALICA改
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    aux.AddXyzProcedure(c,nil,9,3,s.ovfilter,aux.Stringid(id,0),2,s.xyzop)
    c:EnableReviveLimit()
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,1))
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetCost(s.cost)
    e1:SetTarget(s.tg)
    e1:SetOperation(s.op)
    c:RegisterEffect(e1)
    end
    function s.ovfilter(c)
    return c:IsFaceup() and aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.xyzop(e,tp,chk)
    if chk==0 then return Duel.GetFlagEffect(tp,id)==0 and Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_GRAVE,0,7,nil,TYPE_TRAP) end
    Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function s.filter(c)
    return c:IsFaceup()
    and (c:IsType(TYPE_MONSTER) and c:GetFlagEffect(id)==0
    or c:IsType(TYPE_TRAP) and c:CheckActivateEffect(false,true,false)~=nil)
    end
    function s.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsOnField() and s.filter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_ONFIELD,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_ONFIELD,0,1,1,nil)
    if g:GetFirst():IsType(TYPE_TRAP) and c:CheckActivateEffect(false,true,false)~=nil then
    local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true)
    Duel.ClearTargetCard()
    g:GetFirst():CreateEffectRelation(e)
    local tg=te:GetTarget()
    e:SetProperty(te:GetProperty())
    if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end
    te:SetLabelObject(e:GetLabelObject())
    e:SetLabelObject(te)
    Duel.ClearOperationInfo(0)
    end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    end
    function s.op(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if not tc:IsRelateToEffect(e) then return end
    if tc:IsType(TYPE_MONSTER) and tc:GetFlagEffect(id)==0 and tc:IsImmuneToEffect(e) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_IMMUNE_EFFECT)
    e1:SetValue(s.efilter)
    e1:SetOwnerPlayer(tp)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e1)
    c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
    elseif c:IsType(TYPE_TRAP) then
    local te=e:GetLabelObject()
    if not te then return end
    e:SetLabelObject(te:GetLabelObject())
    local op=te:GetOperation()
    if op then op(e,tp,eg,ep,ev,re,r,rp) end
    end
    end
    function s.efilter(e,re)
    return e:GetOwnerPlayer()~=re:GetOwnerPlayer()
    end
    \ No newline at end of file
    expansions/script/c18017323.lua deleted 100644 → 0
    View file @ e1669b65
    --DESTRUCTION SABBATH
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    aux.AddXyzProcedure(c,nil,11,3,s.ovfilter,aux.Stringid(id,0),2,s.xyzop)
    c:EnableReviveLimit()
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,1))
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCategory(CATEGORY_TODECK)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetCost(s.tdcost)
    e1:SetTarget(s.tdtg1)
    e1:SetOperation(s.tdop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,2))
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetCategory(CATEGORY_TODECK)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1)
    e2:SetCost(s.tdcost)
    e2:SetTarget(s.tdtg2)
    e2:SetOperation(s.tdop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(id,3))
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetCategory(CATEGORY_TODECK)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCountLimit(1)
    e3:SetCost(s.tdcost)
    e3:SetTarget(s.tdtg3)
    e3:SetOperation(s.tdop3)
    c:RegisterEffect(e3)
    end
    function s.ovfilter(c)
    return c:IsFaceup() and aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cfilter(c)
    return c:IsType(TYPE_TRAP) and not c:IsPublic()
    end
    function s.xyzop(e,tp,chk)
    if chk==0 then return Duel.GetFlagEffect(tp,id)==0 and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND,0,5,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
    local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND,0,5,5,nil)
    Duel.ConfirmCards(1-tp,g)
    Duel.ShuffleHand(tp)
    Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
    end
    function s.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 s.tdtg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,1,nil) end
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,nil)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
    end
    function s.tdop1(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,nil)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    function s.filter2(c)
    return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck()
    end
    function s.tdtg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.filter2,tp,0,LOCATION_ONFIELD,1,nil) end
    local g=Duel.GetMatchingGroup(s.filter2,tp,0,LOCATION_ONFIELD,nil)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
    end
    function s.tdop2(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(s.filter2,tp,0,LOCATION_ONFIELD,nil)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    function s.tdtg3(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,nil) end
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,nil)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
    end
    function s.tdop3(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,nil)
    if aux.NecroValleyNegateCheck(g) then return end
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    \ No newline at end of file
    expansions/script/c18017324.lua deleted 100644 → 0
    View file @ e1669b65
    --FIREWIND METEOR
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    aux.AddXyzProcedure(c,nil,13,3,s.ovfilter,aux.Stringid(id,0),2,s.xyzop)
    c:EnableReviveLimit()
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_ATKCHANGE)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCost(s.atkcost)
    e1:SetTarget(s.atktg)
    e1:SetOperation(s.atkop)
    c:RegisterEffect(e1)
    end
    function s.ovfilter(c)
    local g=c:GetOverlayGroup():Filter(Card.IsType,nil,TYPE_TRAP)
    local gc=g:GetClassCount(Card.GetCode)
    if gc<7 then return false end
    return c:IsFaceup() and aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.xyzop(e,tp,chk)
    if chk==0 then return Duel.GetFlagEffect(tp,id)==0 end
    Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
    end
    function s.atkcost(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)
    local g=Duel.GetOperatedGroup()
    if g:GetFirst():GetType()==TYPE_TRAP then
    e:SetLabelObject(g:GetFirst())
    end
    end
    function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    local tc=e:GetLabelObject()
    if tc and tc:GetType()==TYPE_TRAP and c:CheckActivateEffect(false,true,false)~=nil
    and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
    local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true)
    Duel.ClearTargetCard()
    g:GetFirst():CreateEffectRelation(e)
    local tg=te:GetTarget()
    e:SetProperty(te:GetProperty())
    if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end
    te:SetLabelObject(e:GetLabelObject())
    e:SetLabelObject(te)
    Duel.ClearOperationInfo(0)
    end
    end
    function s.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(500)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    end
    local te=e:GetLabelObject()
    if not te then return end
    e:SetLabelObject(te:GetLabelObject())
    local op=te:GetOperation()
    if op then op(e,tp,eg,ep,ev,re,r,rp) end
    end
    \ No newline at end of file
    expansions/script/c18017325.lua deleted 100644 → 0
    View file @ e1669b65
    --G3FA HEXA REVOLVER
    local s,id,o=GetID()
    function s.initial_effect(c)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_NEGATE)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_CHAINING)
    e1:SetCondition(s.negcon)
    e1:SetCost(s.negcost1)
    e1:SetTarget(s.negtg1)
    e1:SetOperation(s.negop1)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_CHAINING)
    e2:SetCondition(s.negcon)
    e2:SetCost(s.negcost2)
    e2:SetTarget(s.negtg2)
    e2:SetOperation(s.negop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and (not cc and Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)) or Duel.CheckRemoveOverlayCard(tp,1,0,3,REASON_COST)) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.negcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsChainNegatable(ev)
    end
    function s.negcost1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,false) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,false)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.negtg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
    end
    function s.negop1(e,tp,eg,ep,ev,re,r,rp)
    Duel.NegateActivation(ev)
    end
    function s.negcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,true) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,true)
    Duel.RemoveOverlayCard(tp,1,0,2,2,REASON_COST)
    end
    function s.negtg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
    if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
    end
    end
    function s.negop2(e,tp,eg,ep,ev,re,r,rp)
    if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
    Duel.Remove(eg,POS_FACEUP,REASON_EFFECT)
    end
    end
    expansions/script/c18017326.lua deleted 100644 → 0
    View file @ e1669b65
    --QUEEN'S DOWNPOUR
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,18017314)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCost(s.cost)
    e1:SetTarget(s.sptg)
    e1:SetOperation(s.spop)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetCost(s.spcost2)
    e2:SetTarget(s.sptg2)
    e2:SetOperation(s.spop2)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e3)
    end
    function s.xfilter(c)
    return aux.IsCodeListed(c,18017314) and c:IsType(TYPE_XYZ)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk,cc)
    local c=e:GetHandler()
    local xg=Group.CreateGroup()
    local mg=Duel.GetMatchingGroup(s.xfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(mg) do
    xg:Merge(tc:GetOverlayGroup())
    end
    if not c:IsStatus(STATUS_SET_TURN) then return true end
    local ct=#{c:IsHasEffect(EFFECT_TRAP_ACT_IN_SET_TURN,tp)}
    if chk==0 then return ct>1 or xg:GetCount()>0 and Duel.CheckRemoveOverlayCard(tp,1,0,2,REASON_COST) end
    if ct==1 or xg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,3)) then
    local cost=xg:Select(tp,1,1,nil)
    Duel.SendtoGrave(cost,REASON_COST)
    end
    end
    function s.spfilter(c,e,tp)
    return c:IsCode(18017314) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE)
    end
    function s.spop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function s.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckRemoveOverlayCard(tp,1,0,1,REASON_COST)
    and s.cost(e,tp,eg,ep,ev,re,r,rp,0,1) end
    s.cost(e,tp,eg,ep,ev,re,r,rp,1,1)
    Duel.RemoveOverlayCard(tp,1,0,1,1,REASON_COST)
    end
    function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE)
    end
    function s.xyzfilter(c)
    return c:IsXyzSummonable(nil)
    end
    function s.spop2(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
    if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 then
    Duel.AdjustAll()
    if Duel.IsExistingMatchingCard(s.xyzfilter,tp,LOCATION_EXTRA,0,1,nil)
    and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
    local g=Duel.GetMatchingGroup(s.xyzfilter,tp,LOCATION_EXTRA,0,nil)
    if g:GetCount()>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local tg=g:Select(tp,1,1,nil)
    Duel.XyzSummon(tp,tg:GetFirst(),nil)
    end
    end
    end
    end
    \ No newline at end of file
    expansions/script/c18017703.lua deleted 100644 → 0
    View file @ e1669b65
    --卑微的锈色 凡妮莎
    local s,id,o=GetID()
    function s.initial_effect(c)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_MONSTER_SSET)
    e1:SetValue(TYPE_TRAP)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_CHAINING)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,id)
    e2:SetCondition(s.setcon)
    e2:SetTarget(s.settg)
    e2:SetOperation(s.setop)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetCategory(CATEGORY_POSITION)
    e3:SetType(EFFECT_TYPE_ACTIVATE)
    e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetCountLimit(1,id+o*10000)
    e3:SetTarget(s.target)
    e3:SetOperation(s.activate)
    c:RegisterEffect(e3)
    end
    function s.setcon(e,tp,eg,ep,ev,re,r,rp)
    local rc=re:GetHandler()
    return rc:IsType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
    end
    function s.setfilter(c,rc)
    return c:IsSetCard(0xa6e5) and c:GetType()==TYPE_TRAP and c:IsSSetable()
    end
    function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return not e:GetHandler():IsStatus(STATUS_SET_TURN) and Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil) end
    end
    function s.setop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SSet(tp,g:GetFirst())
    end
    end
    function s.filter(c)
    return c:IsFaceup() and c:IsCanTurnSet()
    end
    function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.filter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
    end
    function s.activate(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then
    Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
    end
    end
    \ No newline at end of file
    expansions/script/c18017704.lua deleted 100644 → 0
    View file @ e1669b65
    --卑微的锈色 米拉亚尔克
    local s,id,o=GetID()
    function s.initial_effect(c)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_MONSTER_SSET)
    e1:SetValue(TYPE_TRAP)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_CHAINING)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,id)
    e2:SetCondition(s.thcon)
    e2:SetTarget(s.thtg)
    e2:SetOperation(s.thop)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetCategory(CATEGORY_TODECK)
    e3:SetType(EFFECT_TYPE_ACTIVATE)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e3:SetCountLimit(1,id+o*10000)
    e3:SetTarget(s.target)
    e3:SetOperation(s.activate)
    c:RegisterEffect(e3)
    end
    function s.thcon(e,tp,eg,ep,ev,re,r,rp)
    local rc=re:GetHandler()
    return rc:IsType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
    end
    function s.thfilter(c)
    return c:IsSetCard(0x96e5) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
    end
    function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function s.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsOnField() and chkc:IsFacedown() and chkc:IsAbleToDeck() end
    if chk==0 then return Duel.IsExistingTarget(Card.IsFacedown,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectTarget(tp,Card.IsFacedown,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
    end
    function s.activate(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    expansions/script/c18017705.lua deleted 100644 → 0
    View file @ e1669b65
    --卑微的锈色 艾尔莎
    local s,id,o=GetID()
    function s.initial_effect(c)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_MONSTER_SSET)
    e1:SetValue(TYPE_TRAP)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_CHAINING)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,id)
    e2:SetCondition(s.thcon)
    e2:SetTarget(s.thtg)
    e2:SetOperation(s.thop)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetCategory(CATEGORY_DISABLE)
    e3:SetType(EFFECT_TYPE_ACTIVATE)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e3:SetCountLimit(1,id+o*10000)
    e3:SetTarget(s.target)
    e3:SetOperation(s.activate)
    c:RegisterEffect(e3)
    end
    function s.thcon(e,tp,eg,ep,ev,re,r,rp)
    local rc=re:GetHandler()
    return rc:IsType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
    end
    function s.thfilter(c)
    return c:IsFaceupEx() and c:IsSetCard(0xa6e5) and c:IsAbleToHand()
    end
    function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsOnField() and aux.NegateAnyFilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
    local g=Duel.SelectTarget(tp,aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
    end
    function s.activate(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsCanBeDisabledByEffect(e,false) then
    Duel.NegateRelatedChain(tc,RESET_TURN_SET)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EFFECT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetCode(EFFECT_DISABLE_EFFECT)
    e2:SetValue(RESET_TURN_SET)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e2)
    if tc:IsType(TYPE_TRAPMONSTER) then
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e3)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c18017706.lua deleted 100644 → 0
    View file @ e1669b65
    --并不卑微的锈色
    local s,id,o=GetID()
    function s.initial_effect(c)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_MONSTER_SSET)
    e1:SetValue(TYPE_TRAP)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_DRAW)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_CHAINING)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,id)
    e2:SetCondition(s.drcon)
    e2:SetTarget(s.drtg)
    e2:SetOperation(s.drop)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetCategory(CATEGORY_TODECK)
    e3:SetType(EFFECT_TYPE_ACTIVATE)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e3:SetCountLimit(1,id+o*10000)
    e3:SetTarget(s.target)
    e3:SetOperation(s.activate)
    c:RegisterEffect(e3)
    end
    function s.drcon(e,tp,eg,ep,ev,re,r,rp)
    local rc=re:GetHandler()
    return rc:IsType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
    end
    function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
    Duel.SetTargetPlayer(tp)
    Duel.SetTargetParam(1)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    end
    function s.drop(e,tp,eg,ep,ev,re,r,rp)
    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
    Duel.Draw(p,d,REASON_EFFECT)
    end
    function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsOnField() and aux.NegateAnyFilter(chkc) end
    if chk==0 then return not e:GetHandler():IsStatus(STATUS_SET_TURN) and Duel.IsExistingTarget(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
    local g=Duel.SelectTarget(tp,aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
    end
    function s.activate(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsCanBeDisabledByEffect(e,false) then
    Duel.NegateRelatedChain(tc,RESET_TURN_SET)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EFFECT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetCode(EFFECT_DISABLE_EFFECT)
    e2:SetValue(RESET_TURN_SET)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e2)
    if tc:IsType(TYPE_TRAPMONSTER) then
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e3)
    end
    end
    end
    function s.spfilter(c,e,tp)
    return c:IsSetCard(0x96e5) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
    end
    function s.activate(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    \ No newline at end of file
    expansions/script/c96066002.lua deleted 100644 → 0
    View file @ e1669b65
    --铃兰之剑佣兵团 麦莎
    local m=96066002--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCountLimit(1)
    e1:SetCost(cm.spcost)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --atk
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetCode(EFFECT_UPDATE_ATTACK)
    e2:SetRange(LOCATION_PZONE)
    e2:SetTargetRange(LOCATION_MZONE,0)
    e2:SetTarget(cm.efilter)
    e2:SetValue(300)
    c:RegisterEffect(e2)
    --defup
    local e3=e2:Clone()
    e3:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e3)
    --avoid battle damage
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_FIELD)
    e4:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
    e4:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e4:SetRange(LOCATION_PZONE)
    e4:SetTargetRange(LOCATION_MZONE,0)
    e4:SetTarget(cm.efilter)
    e4:SetValue(1)
    c:RegisterEffect(e4)
    end
    --special summon
    function cm.cfilter(c)
    return c:IsSetCard(0xef6) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeckAsCost()
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,2,REASON_COST)
    end
    function cm.spfilter(c,e,tp)
    return c:IsType(TYPE_NORMAL) and c:IsLevel(4,8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (not c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp)>0)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_EXTRA+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_EXTRA+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    if not Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_EXTRA+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_HAND+LOCATION_EXTRA+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    --atk and avoid battle damage
    function cm.efilter(e,c)
    return c:IsType(TYPE_NORMAL)
    end
    \ No newline at end of file
    expansions/script/c96066003.lua deleted 100644 → 0
    View file @ e1669b65
    --铃兰之剑佣兵团 法卡尔
    local m=96066003--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    --SpecialSummon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCountLimit(1)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --recover
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_RECOVER)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e2:SetRange(LOCATION_PZONE)
    e2:SetCode(EVENT_BATTLE_DAMAGE)
    e2:SetCondition(cm.reccon)
    e2:SetTarget(cm.rectg)
    e2:SetOperation(cm.recop)
    c:RegisterEffect(e2)
    --Normal monster
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e3:SetCode(EFFECT_ADD_TYPE)
    e3:SetRange(LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE)
    e3:SetValue(TYPE_NORMAL)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_REMOVE_TYPE)
    e4:SetValue(TYPE_EFFECT)
    c:RegisterEffect(e4)
    --effect reg
    local e5=Effect.CreateEffect(c)
    e5:SetDescription(aux.Stringid(m,2))
    e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e5:SetCode(EVENT_BE_PRE_MATERIAL)
    e5:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
    e5:SetCondition(cm.regcon)
    e5:SetOperation(cm.regop)
    c:RegisterEffect(e5)
    --to hand
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(m,3))
    e6:SetCategory(CATEGORY_TOHAND)
    e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e6:SetCode(EVENT_LEAVE_DECK)
    e6:SetRange(LOCATION_EXTRA)
    e6:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e6:SetCountLimit(1,m)
    e6:SetCondition(cm.thcon)
    e6:SetTarget(cm.thtg)
    e6:SetOperation(cm.thop)
    c:RegisterEffect(e6)
    --pendulum set
    local e7=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(m,4))
    e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e7:SetCode(EVENT_LEAVE_DECK)
    e7:SetRange(LOCATION_REMOVED)
    e7:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e7:SetCountLimit(1,m)
    e7:SetCondition(cm.pencon)
    e7:SetTarget(cm.pentg)
    e7:SetOperation(cm.penop)
    c:RegisterEffect(e7)
    end
    --SpecialSummon
    function cm.spfilter(c,e,tp)
    return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
    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 Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_EXTRA+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_EXTRA+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    local c=e:GetHandler()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_HAND+LOCATION_EXTRA+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
    local tc=g:GetFirst()
    if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then
    local fid=c:GetFieldID()
    tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,fid)
    --destroy
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e1:SetCode(EVENT_PHASE+PHASE_BATTLE)
    e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e1:SetCountLimit(1)
    e1:SetLabel(fid)
    e1:SetLabelObject(tc)
    e1:SetCondition(cm.descon)
    e1:SetOperation(cm.desop)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    end
    end
    function cm.descon(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    return tc:GetFlagEffectLabel(m)==e:GetLabel()
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    Duel.Destroy(tc,REASON_EFFECT)
    end
    --recover
    function cm.reccon(e,tp,eg,ep,ev,re,r,rp)
    return ep~=tp and eg:GetFirst():IsControler(tp) and eg:GetFirst():IsType(TYPE_NORMAL)
    end
    function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.SetTargetPlayer(tp)
    Duel.SetTargetParam(ev)
    Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,ev)
    end
    function cm.recop(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)
    end
    --effect reg
    function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
    local rc=e:GetHandler():GetReasonCard()
    return r==REASON_SUMMON and rc:IsFaceup() and rc:IsSetCard(0xef6)
    end
    function cm.regop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    --negate
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,2))
    e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_CHAINING)
    e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_CLIENT_HINT)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetCondition(cm.condition)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.operation)
    rc:RegisterEffect(e1)
    --extra att
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_EXTRA_ATTACK)
    e2:SetValue(2)
    rc:RegisterEffect(e2)
    --immune
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_IMMUNE_EFFECT)
    e3:SetValue(cm.efilter)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e3)
    end
    --negate
    function cm.condition(e,tp,eg,ep,ev,re,r,rp)
    return rp==1-tp and re:IsActiveType(TYPE_MONSTER) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
    if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
    end
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
    Duel.Destroy(eg,REASON_EFFECT)
    end
    end
    --immune
    function cm.efilter(e,te)
    local c=e:GetHandler()
    local ec=te:GetHandler()
    if te:GetHandlerPlayer()==e:GetHandlerPlayer() or ec:IsHasCardTarget(c) or (te:IsHasType(EFFECT_TYPE_ACTIONS) and te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) and c:IsRelateToEffect(te)) then return false
    end
    return true
    end
    --to hand
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(Card.IsPreviousLocation,1,nil,LOCATION_EXTRA)
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsAbleToHand() end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    Duel.SendtoHand(c,nil,REASON_EFFECT)
    end
    end
    --pendulum set
    function cm.pencon(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(Card.IsPreviousLocation,1,nil,LOCATION_EXTRA)
    end
    function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
    end
    function cm.penop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
    end
    end
    \ No newline at end of file
    expansions/script/c96066004.lua deleted 100644 → 0
    View file @ e1669b65
    --铃兰之剑佣兵团 贝拉
    local m=96066004--卡密编号
    local set=0x3ef6--王国军字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Normal monster
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetCode(EFFECT_ADD_TYPE)
    e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
    e1:SetValue(TYPE_NORMAL)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_REMOVE_TYPE)
    e2:SetValue(TYPE_EFFECT)
    e2:SetRange(LOCATION_DECK)
    c:RegisterEffect(e2)
    --effect reg
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,0))
    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e3:SetCode(EVENT_BE_PRE_MATERIAL)
    e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
    e3:SetCondition(cm.regcon)
    e3:SetOperation(cm.regop)
    c:RegisterEffect(e3)
    --to field
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,1))
    e4:SetType(EFFECT_TYPE_IGNITION)
    e4:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
    e4:SetCountLimit(1,m)
    e4:SetCost(cm.tfcost)
    e4:SetTarget(cm.tftg)
    e4:SetOperation(cm.tfop)
    c:RegisterEffect(e4)
    --tohand
    local e5=Effect.CreateEffect(c)
    e5:SetDescription(aux.Stringid(m,2))
    e5:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH)
    e5:SetType(EFFECT_TYPE_QUICK_O)
    e5:SetCode(EVENT_FREE_CHAIN)
    e5:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
    e5:SetRange(LOCATION_SZONE)
    e5:SetCountLimit(1)
    e5:SetCondition(cm.thcon)
    e5:SetTarget(cm.thtg)
    e5:SetOperation(cm.thop)
    c:RegisterEffect(e5)
    --draw
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(m,3))
    e6:SetCategory(CATEGORY_DRAW)
    e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e6:SetCode(EVENT_SUMMON_SUCCESS)
    e6:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
    e6:SetRange(LOCATION_SZONE)
    e6:SetCountLimit(1)
    e6:SetCondition(cm.drcon)
    e6:SetTarget(cm.drtg)
    e6:SetOperation(cm.drop)
    c:RegisterEffect(e6)
    local e7=e6:Clone()
    e7:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e7)
    --draw two
    local e8=Effect.CreateEffect(c)
    e8:SetDescription(aux.Stringid(m,5))
    e8:SetCategory(CATEGORY_DRAW)
    e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e8:SetCode(EVENT_CHAINING)
    e8:SetProperty(EFFECT_FLAG_DELAY)
    e8:SetRange(LOCATION_SZONE)
    e8:SetCountLimit(1)
    e8:SetCondition(cm.drcon2)
    e8:SetCost(cm.drcost2)
    e8:SetTarget(cm.drtg2)
    e8:SetOperation(cm.drop2)
    c:RegisterEffect(e8)
    end
    --effect reg
    function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
    local rc=e:GetHandler():GetReasonCard()
    return r==REASON_SUMMON and rc:IsFaceup() and rc:IsSetCard(0xef6)
    end
    function cm.regop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    --destroy & damage
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CLIENT_HINT)
    e1:SetCountLimit(1)
    e1:SetRange(LOCATION_MZONE)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.operation)
    rc:RegisterEffect(e1)
    --atkup
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_UPDATE_ATTACK)
    e2:SetValue(cm.atkval)
    rc:RegisterEffect(e2)
    --defup
    local e3=e2:Clone()
    e3:SetCode(EFFECT_UPDATE_DEFENSE)
    rc:RegisterEffect(e3)
    --indes
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
    e4:SetCountLimit(1)
    e4:SetValue(cm.indct)
    e4:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e4)
    end
    --destroy & damage
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end
    if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    if g:GetFirst():IsType(TYPE_MONSTER) then
    local atk=g:GetFirst():GetTextAttack()
    if atk<0 then atk=0 end
    Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk)
    end
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) and tc:IsControler(1-tp) then
    local atk=tc:GetTextAttack()
    if atk<0 then atk=0 end
    if Duel.Destroy(tc,REASON_EFFECT)~=0 and tc:IsType(TYPE_MONSTER) then
    Duel.BreakEffect()
    Duel.Damage(1-tp,atk,REASON_EFFECT)
    end
    end
    end
    --atkup
    function cm.atkfilter(c)
    return c:IsSetCard(0xef6) or c:IsType(TYPE_NORMAL)
    end
    function cm.atkval(e,c)
    return Duel.GetMatchingGroupCount(cm.atkfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,nil)*100
    end
    --indes
    function cm.indct(e,re,r,rp)
    return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
    end
    --to field
    function cm.costfilter(c)
    return c:IsType(TYPE_NORMAL) and c:IsAbleToRemoveAsCost()
    end
    function cm.tfcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,c) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
    Duel.Remove(g,POS_FACEUP,REASON_COST)
    end
    function cm.tftg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
    end
    function cm.tfop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not c:IsRelateToEffect(e) then return end
    if Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
    local e1=Effect.CreateEffect(c)
    e1:SetCode(EFFECT_CHANGE_TYPE)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
    e1:SetValue(TYPE_TRAP+TYPE_CONTINUOUS)
    c:RegisterEffect(e1)
    end
    end
    --tohand
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
    end
    function cm.thfilter(c)
    return c:IsType(TYPE_NORMAL) 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+LOCATION_GRAVE,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    --draw
    function cm.cfilter(c,tp)
    return c:IsFaceup() and c:IsType(TYPE_NORMAL) and c:IsSummonPlayer(tp) and not c:IsType(TYPE_TOKEN)
    end
    function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.cfilter,1,nil,tp)
    end
    function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
    Duel.SetTargetPlayer(tp)
    Duel.SetTargetParam(1)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    end
    function cm.drop(e,tp,eg,ep,ev,re,r,rp)
    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
    Duel.Draw(p,d,REASON_EFFECT)
    end
    --draw two
    function cm.drcon2(e,tp,eg,ep,ev,re,r,rp)
    return re:IsActiveType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.costfilter(c)
    return c:IsType(TYPE_NORMAL) and c:IsDiscardable()
    end
    function cm.drcost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.DiscardHand(tp,cm.costfilter,1,1,REASON_COST+REASON_DISCARD,nil)
    end
    function cm.drtg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    end
    function cm.drop2(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if Duel.Draw(tp,1,REASON_EFFECT)~=0 then
    local dc=Duel.GetOperatedGroup():GetFirst()
    if dc:IsSetCard(0xef6) and Duel.IsPlayerCanDraw(tp,1)
    and Duel.SelectYesNo(tp,aux.Stringid(m,4)) then
    Duel.BreakEffect()
    Duel.ConfirmCards(1-tp,dc)
    Duel.Draw(tp,1,REASON_EFFECT)
    Duel.ShuffleHand(tp)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c96066005.lua deleted 100644 → 0
    View file @ e1669b65
    --集结！铃兰之剑！
    local m=96066005--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    --recover
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_RECOVER)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetCountLimit(1,m)
    e2:SetCost(aux.bfgcost)
    e2:SetTarget(cm.rectg)
    e2:SetOperation(cm.recop)
    c:RegisterEffect(e2)
    end
    --Activate
    function cm.filter1(c)
    return c:IsSetCard(0xef6) and c:IsType(TYPE_MONSTER) or c:IsType(TYPE_NORMAL) and c:IsAbleToHand()
    end
    function cm.filter2(c,e,tp)
    return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    end
    function cm.mdfilter(c)
    return c:IsType(TYPE_NORMAL) and c:IsFaceup()
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    local b1=Duel.IsExistingMatchingCard(cm.filter1,tp,LOCATION_DECK,0,1,nil)
    local b2=Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_HAND,0,1,nil,e,tp)
    if chk==0 then return b1 or b2 end
    local op=0
    if b1 and b2 then
    if Duel.IsExistingMatchingCard(cm.mdfilter,tp,LOCATION_MZONE,0,1,nil) then
    op=Duel.SelectOption(tp,aux.Stringid(m,0),aux.Stringid(m,1),aux.Stringid(m,2))
    else
    op=Duel.SelectOption(tp,aux.Stringid(m,0),aux.Stringid(m,1))
    end
    elseif b1 then
    op=Duel.SelectOption(tp,aux.Stringid(m,0))
    else
    op=Duel.SelectOption(tp,aux.Stringid(m,1))+1
    end
    e:SetLabel(op)
    if op~=0 then
    if op==1 then
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
    else
    e:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    else
    e:SetProperty(0)
    e:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local op=e:GetLabel()
    local res=0
    if op~=1 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.filter1,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    res=Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    if op~=0 then
    local g=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_HAND,0,1,1,nil,e,tp)
    if #g>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    --recover
    function cm.recfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xef6) and c:GetAttack()>0
    end
    function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and cm.recfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.recfilter,tp,LOCATION_MZONE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    local g=Duel.SelectTarget(tp,cm.recfilter,tp,LOCATION_MZONE,0,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,g:GetFirst():GetAttack())
    end
    function cm.recop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:GetAttack()>0 then
    Duel.Recover(tp,tc:GetAttack(),REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/script/c96066006.lua deleted 100644 → 0
    View file @ e1669b65
    --黄金星币
    local m=96066006--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    --Atk up
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_ATKCHANGE)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetCountLimit(1,m)
    e2:SetCost(aux.bfgcost)
    e2:SetTarget(cm.rectg)
    e2:SetOperation(cm.recop)
    c:RegisterEffect(e2)
    end
    --Activate
    function cm.hspfilter(c,e,tp)
    return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.hspfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.hspfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
    local tc=g:GetFirst()
    if tc then Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP)
    Duel.BreakEffect()
    Duel.Draw(tp,2,REASON_EFFECT)
    end
    end
    --Atk up
    function cm.recfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xef6)
    end
    function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.recfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.recfilter,tp,LOCATION_MZONE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    Duel.SelectTarget(tp,cm.recfilter,tp,LOCATION_MZONE,0,1,1,nil)
    end
    function cm.recop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) and tc:IsFaceup() then
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetValue(1000)
    tc:RegisterEffect(e1)
    end
    end
    \ No newline at end of file
    expansions/script/c96066007.lua deleted 100644 → 0
    View file @ e1669b65
    --铃兰心铃
    local m=96066007--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    --to hand
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,m+1)
    e2:SetCost(aux.bfgcost)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    end
    function cm.tgfilter(c)
    return c:IsType(TYPE_NORMAL) and c:IsAbleToGrave()
    end
    function cm.target(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.thcfilter(c)
    return not c:IsType(TYPE_EFFECT) and c:IsFaceup()
    end
    function cm.thfilter(c,tc)
    return c:IsSetCard(0xef6) and c:IsType(TYPE_MONSTER)
    and c:IsAbleToHand() and not c:IsCode(tc:GetCode())
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local tc=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
    if tc and Duel.SendtoGrave(tc,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_GRAVE)
    and Duel.IsExistingMatchingCard(cm.thcfilter,tp,LOCATION_MZONE,0,1,nil)
    and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil,tc)
    and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,tc)
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    --to hand
    function cm.tshfilter(c)
    return c:IsSetCard(0xef6) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.tshfilter,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.tshfilter,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
    \ No newline at end of file
    expansions/script/c96066009.lua deleted 100644 → 0
    View file @ e1669b65
    --漂泊者 哈斯娜
    local m=96066009--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Normal monster
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetCode(EFFECT_ADD_TYPE)
    e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
    e1:SetValue(TYPE_NORMAL)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_REMOVE_TYPE)
    e2:SetValue(TYPE_EFFECT)
    c:RegisterEffect(e2)
    --to hand
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,0))
    e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e3:SetProperty(EFFECT_FLAG_DELAY)
    e3:SetCode(EVENT_SUMMON_SUCCESS)
    e3:SetCountLimit(1,m)
    e3:SetTarget(cm.thtg)
    e3:SetOperation(cm.thop)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e4)
    --copy effect
    local e5=Effect.CreateEffect(c)
    e5:SetDescription(aux.Stringid(m,2))
    e5:SetCategory(CATEGORY_TODECK)
    e5:SetType(EFFECT_TYPE_QUICK_O)
    e5:SetRange(LOCATION_MZONE)
    e5:SetCode(EVENT_FREE_CHAIN)
    e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e5:SetCountLimit(1,m+1)
    e5:SetCost(cm.cpcost)
    e5:SetTarget(cm.cptg)
    e5:SetOperation(cm.cpop)
    c:RegisterEffect(e5)
    end
    --to hand
    function cm.thfilter(c)
    return c:IsSetCard(0xef6) and c:IsType(TYPE_SPELL+TYPE_TRAP) 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)
    local sg=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
    if sg:GetCount()<1 then return end
    if Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
    Duel.BreakEffect()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local dg=sg:Select(tp,1,1,nil)
    Duel.Destroy(dg,REASON_EFFECT)
    end
    end
    end
    --copy effect
    function cm.cpcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckLPCost(tp,1000) end
    Duel.PayLPCost(tp,1000)
    end
    function cm.cpfilter(c)
    return c:IsSetCard(0xef6) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck() and c:CheckActivateEffect(false,true,false)~=nil
    end
    function cm.cptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then
    local te=e:GetLabelObject()
    local tg=te:GetTarget()
    return tg and tg(e,tp,eg,ep,ev,re,r,rp,0,chkc)
    end
    if chk==0 then return Duel.IsExistingTarget(cm.cpfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    local g=Duel.SelectTarget(tp,cm.cpfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true)
    Duel.ClearTargetCard()
    g:GetFirst():CreateEffectRelation(e)
    local tg=te:GetTarget()
    if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end
    te:SetLabelObject(e:GetLabelObject())
    e:SetLabelObject(te)
    Duel.ClearOperationInfo(0)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
    end
    function cm.cpop(e,tp,eg,ep,ev,re,r,rp)
    local te=e:GetLabelObject()
    if not te then return end
    if not te:GetHandler():IsRelateToEffect(e) then return end
    e:SetLabelObject(te:GetLabelObject())
    local op=te:GetOperation()
    if op then op(e,tp,eg,ep,ev,re,r,rp) end
    Duel.BreakEffect()
    Duel.SendtoDeck(te:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    \ No newline at end of file
    expansions/script/c96066011.lua deleted 100644 → 0
    View file @ e1669b65
    --漂泊者 霍玛
    local m=96066011--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Normal monster
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetCode(EFFECT_ADD_TYPE)
    e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
    e1:SetValue(TYPE_NORMAL)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_REMOVE_TYPE)
    e2:SetValue(TYPE_EFFECT)
    c:RegisterEffect(e2)
    --summon
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,0))
    e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetRange(LOCATION_GRAVE)
    e3:SetCost(aux.bfgcost)
    e3:SetTarget(cm.sumtg)
    e3:SetOperation(cm.sumop)
    c:RegisterEffect(e3)
    --to hand(self)
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,1))
    e4:SetCategory(CATEGORY_TOHAND)
    e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e4:SetCode(EVENT_SUMMON_SUCCESS)
    e4:SetProperty(EFFECT_FLAG_DELAY)
    e4:SetRange(LOCATION_REMOVED)
    e4:SetCountLimit(1,m)
    e4:SetCondition(cm.thcon)
    e4:SetTarget(cm.thtg)
    e4:SetOperation(cm.thop)
    c:RegisterEffect(e4)
    local e5=e4:Clone()
    e5:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e5)
    end
    --summon
    function cm.sumfilter(c)
    return c:IsType(TYPE_NORMAL) and c:IsSummonable(true,nil)
    end
    function cm.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.sumfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
    end
    function cm.sumop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.sumfilter,tp,LOCATION_HAND,0,1,1,nil)
    local tc=g:GetFirst()
    if tc then
    Duel.Summon(tp,tc,true,nil)
    end
    end
    --to hand(self)
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    local ec=eg:GetFirst()
    return ec:IsControler(tp) and ec:IsType(TYPE_NORMAL)
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,e:GetHandler()) end
    Duel.SetTargetPlayer(tp)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,3,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,p,LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
    if g:GetCount()>=3 then
    Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK)
    local sg=g:Select(p,3,3,nil)
    Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    Duel.BreakEffect()
    Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/script/c96066012.lua deleted 100644 → 0
    View file @ e1669b65
    --漂泊者 阿列克谢
    local m=96066012--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Normal monster
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetCode(EFFECT_ADD_TYPE)
    e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
    e1:SetValue(TYPE_NORMAL)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_REMOVE_TYPE)
    e2:SetValue(TYPE_EFFECT)
    c:RegisterEffect(e2)
    --cannot direct attack
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,1))
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetHintTiming(0,TIMING_ATTACK)
    e3:SetRange(LOCATION_GRAVE)
    e3:SetCondition(cm.grcondition)
    e3:SetCost(aux.bfgcost)
    e3:SetOperation(cm.groperation)
    c:RegisterEffect(e3)
    --spsummon itself
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,1))
    e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e4:SetCode(EVENT_SUMMON_SUCCESS)
    e4:SetProperty(EFFECT_FLAG_DELAY)
    e4:SetRange(LOCATION_REMOVED)
    e4:SetCountLimit(1,m)
    e4:SetCondition(cm.spcon)
    e4:SetTarget(cm.sptg)
    e4:SetOperation(cm.spop)
    c:RegisterEffect(e4)
    local e5=e4:Clone()
    e5:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e5)
    end
    --cannot direct attack
    function cm.grcondition(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnPlayer()~=tp and aux.bpcon(e,tp,eg,ep,ev,re,r,rp)
    end
    function cm.groperation(e,tp,eg,ep,ev,re,r,rp)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK)
    e1:SetTargetRange(0,LOCATION_MZONE)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    end
    --spsummon itself
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    local ec=eg:GetFirst()
    return ec:IsControler(tp) and ec:IsType(TYPE_NORMAL)
    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) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
    c:CompleteProcedure()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e1:SetCode(EFFECT_SET_BASE_ATTACK)
    e1:SetValue(3000)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e1,true)
    end
    Duel.SpecialSummonComplete()
    end
    \ No newline at end of file
    expansions/script/c96066013.lua deleted 100644 → 0
    View file @ e1669b65
    --星辉徽章
    local m=96066013--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --act in hand
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE)
    e0:SetCode(EFFECT_TRAP_ACT_IN_HAND)
    e0:SetCondition(cm.handcon)
    c:RegisterEffect(e0)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CAN_FORBIDDEN)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(TIMING_DAMAGE_STEP)
    e1:SetCondition(aux.dscon)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    --TODECK
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND+CATEGORY_SEARCH)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    end
    function cm.hcfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xef6) and c:IsType(TYPE_NORMAL)
    end
    function cm.handcon(e)
    return Duel.IsExistingMatchingCard(cm.hcfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
    end
    --Activate
    function cm.filter(c)
    return c:IsSetCard(0xef6) and c:IsFaceup()
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.filter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,LOCATION_MZONE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    Duel.SelectTarget(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsControler(tp) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetValue(1000)
    tc:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_UPDATE_DEFENSE)
    tc:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD)
    e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e3:SetTargetRange(LOCATION_MZONE,0)
    e3:SetValue(aux.tgoval)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    e3:SetOwnerPlayer(tp)
    tc:RegisterEffect(e3)
    end
    end
    --TODECK
    function cm.thfilter(c)
    return c:IsType(TYPE_NORMAL) and c:IsAbleToDeck()
    end
    function cm.thfilter2(c)
    return c:IsSetCard(0xef6) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and cm.thfilter(chkc) end
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter2,tp,LOCATION_DECK,0,1,nil)
    and Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,2,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,2,2,nil)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
    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.thfilter2,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
    if g:GetCount()~=0 then
    Duel.SendtoDeck(g,nil,SEQ_DECKTOP,REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/script/c96066014.lua deleted 100644 → 0
    View file @ e1669b65
    --三角金星
    local m=96066014--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_EQUIP)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(TIMING_DAMAGE_STEP)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
    e1:SetCondition(aux.dscon)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.operation)
    c:RegisterEffect(e1)
    --negate
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_DISABLE)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_CHAINING)
    e2:SetRange(LOCATION_SZONE)
    e2:SetCondition(cm.discon)
    e2:SetTarget(cm.distg)
    e2:SetOperation(cm.disop)
    c:RegisterEffect(e2)
    --atk2
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,1))
    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e3:SetCode(EVENT_ATTACK_ANNOUNCE)
    e3:SetRange(LOCATION_SZONE)
    e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e3:SetCondition(cm.atkcon2)
    e3:SetOperation(cm.atkop2)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EVENT_BE_BATTLE_TARGET)
    c:RegisterEffect(e4)
    end
    --Activate
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    local c=e:GetHandler()
    local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_REMAIN_FIELD)
    e1:SetProperty(EFFECT_FLAG_OATH)
    e1:SetReset(RESET_CHAIN)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetCode(EVENT_CHAIN_DISABLED)
    e2:SetOperation(cm.tgop)
    e2:SetLabel(cid)
    e2:SetReset(RESET_CHAIN)
    Duel.RegisterEffect(e2,tp)
    end
    function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
    local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
    if cid~=e:GetLabel() then return end
    if e:GetOwner():IsRelateToChain(ev) then
    e:GetOwner():CancelToGrave(false)
    end
    end
    function cm.filter(c)
    return c:IsType(TYPE_NORMAL)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and cm.filter(chkc) end
    if chk==0 then return e:IsCostChecked()
    and Duel.IsExistingTarget(cm.filter,tp,LOCATION_MZONE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
    Duel.SelectTarget(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not c:IsLocation(LOCATION_SZONE) then return end
    if not c:IsRelateToEffect(e) or c:IsStatus(STATUS_LEAVE_CONFIRMED) then return end
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsControler(tp) then
    Duel.Equip(tp,c,tc)
    --Atkup
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_EQUIP)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(1000)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e1)
    --Equip limit
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_EQUIP_LIMIT)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetValue(cm.eqlimit)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e2)
    else
    c:CancelToGrave(false)
    end
    end
    function cm.eqlimit(e,c)
    return e:GetHandler():GetEquipTarget()==c
    or c:IsControler(e:GetHandlerPlayer()) and c:IsType(TYPE_NORMAL)
    end
    --negate
    function cm.discon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler():GetEquipTarget()
    if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end
    if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return end
    local loc,tg=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION,CHAININFO_TARGET_CARDS)
    if not tg or not tg:IsContains(c) then return false end
    return Duel.IsChainDisablable(ev) and loc~=LOCATION_DECK
    end
    function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
    end
    function cm.disop(e,tp,eg,ep,ev,re,r,rp)
    Duel.NegateEffect(ev)
    end
    --atk2
    function cm.atkcon2(e,tp,eg,ep,ev,re,r,rp)
    local eqc=e:GetHandler():GetEquipTarget()
    local a=Duel.GetAttacker()
    local d=Duel.GetAttackTarget()
    return d and (a==eqc or d==eqc)
    end
    function cm.atkop2(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local a=Duel.GetAttacker()
    local d=Duel.GetAttackTarget()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_DISABLE)
    e1:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
    e1:SetTarget(cm.distg2)
    e1:SetReset(RESET_PHASE+PHASE_DAMAGE)
    Duel.RegisterEffect(e1,tp)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetCode(EVENT_CHAIN_SOLVING)
    e2:SetRange(LOCATION_MZONE)
    e2:SetOperation(cm.disop2)
    e2:SetReset(RESET_PHASE+PHASE_DAMAGE)
    Duel.RegisterEffect(e2,tp)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD)
    e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
    e3:SetRange(LOCATION_MZONE)
    e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
    e3:SetReset(RESET_PHASE+PHASE_DAMAGE)
    Duel.RegisterEffect(e3,tp)
    Duel.AdjustInstantly()
    if a:IsRelateToBattle() then
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_SET_BATTLE_ATTACK)
    e4:SetReset(RESET_PHASE+PHASE_DAMAGE)
    e4:SetValue(a:GetBaseAttack())
    a:RegisterEffect(e4,true)
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_SET_BATTLE_DEFENSE)
    e5:SetReset(RESET_PHASE+PHASE_DAMAGE)
    e5:SetValue(a:GetBaseDefense())
    a:RegisterEffect(e5,true)
    end
    if d and d:IsRelateToBattle() then
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_SINGLE)
    e6:SetCode(EFFECT_SET_BATTLE_ATTACK)
    e6:SetValue(d:GetBaseAttack())
    e6:SetReset(RESET_PHASE+PHASE_DAMAGE)
    d:RegisterEffect(e6,true)
    local e7=Effect.CreateEffect(c)
    e7:SetType(EFFECT_TYPE_SINGLE)
    e7:SetCode(EFFECT_SET_BATTLE_DEFENSE)
    e7:SetValue(d:GetBaseDefense())
    e7:SetReset(RESET_PHASE+PHASE_DAMAGE)
    d:RegisterEffect(e7,true)
    end
    end
    function cm.distg2(e,c)
    return c~=e:GetHandler()
    end
    function cm.disop2(e,tp,eg,ep,ev,re,r,rp)
    local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
    if bit.band(loc,LOCATION_ONFIELD)~=0 then
    Duel.NegateEffect(ev)
    end
    end
    \ No newline at end of file
    expansions/script/c96066015.lua deleted 100644 → 0
    View file @ e1669b65
    --铃兰之剑 进击的麦莎
    local m=96066015--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --link summon
    c:EnableReviveLimit()
    aux.AddLinkProcedure(c,cm.matfilter,1,1)
    --to hand
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.thcost)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    --pendulum summon
    local e2=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,2))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,m+1)
    e2:SetCondition(cm.spcon)
    e2:SetCost(cm.spcost)
    e2:SetOperation(cm.spop)
    c:RegisterEffect(e2)
    end
    --link summon
    function cm.matfilter(c)
    return c:IsLinkType(TYPE_NORMAL) and not c:IsLinkType(TYPE_TOKEN)
    end
    --to hand
    function cm.spcfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xef6) and c:IsAbleToHandAsCost()
    end
    function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.spcfilter,tp,LOCATION_ONFIELD,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.spcfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
    Duel.SendtoHand(g,nil,REASON_COST)
    end
    function cm.tshfilter(c)
    return c:IsSetCard(0xef6) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.tshfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,0,0,0)
    end
    function cm.sumfilter(c)
    return c:IsSummonable(true,nil) and c:IsType(TYPE_NORMAL)
    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.tshfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    if Duel.IsExistingMatchingCard(cm.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil)
    and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
    Duel.BreakEffect()
    Duel.ShuffleHand(tp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
    local sg=Duel.SelectMatchingCard(tp,cm.sumfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
    if sg:GetCount()>0 then
    Duel.Summon(tp,sg:GetFirst(),true,nil)
    end
    end
    end
    end
    --pendulum summon
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetTurnPlayer()==tp then return false end
    local c=e:GetHandler()
    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
    local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
    if lpz==nil or rpz==nil then return false end
    local loc=0
    if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND end
    if Duel.GetLocationCountFromEx(tp,tp,e:GetHandler(),TYPE_PENDULUM)>0 then loc=loc+LOCATION_EXTRA end
    if loc==0 then return false end
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_EXTRA_PENDULUM_SUMMON)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetTargetRange(1,0)
    e1:SetValue(aux.TRUE)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    local eset={e1}
    local lscale=lpz:GetLeftScale()
    local rscale=rpz:GetRightScale()
    if lscale>rscale then lscale,rscale=rscale,lscale end
    local g=Duel.GetFieldGroup(tp,loc,0)
    local res=g:IsExists(aux.PConditionFilter,1,nil,e,tp,lscale,rscale,eset)
    e1:Reset()
    local ph=Duel.GetCurrentPhase()
    return res and (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2)
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToExtraAsCost() end
    Duel.SendtoDeck(c,nil,SEQ_DECKTOP,REASON_COST)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_EXTRA_PENDULUM_SUMMON)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetTargetRange(1,0)
    e1:SetValue(aux.TRUE)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    local eset={e1}
    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
    local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
    local lscale=lpz:GetLeftScale()
    local rscale=rpz:GetRightScale()
    if lscale>rscale then lscale,rscale=rscale,lscale end
    local loc=0
    local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
    local ft2=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)
    local ft=Duel.GetUsableMZoneCount(tp)
    local ect=cm and Duel.IsPlayerAffectedByEffect(tp,m) and cm[tp]
    if ect and ect<ft2 then ft2=ect end
    if Duel.IsPlayerAffectedByEffect(tp,m) then
    if ft1>0 then ft1=1 end
    if ft2>0 then ft2=1 end
    ft=1
    end
    if ft1>0 then loc=loc|LOCATION_HAND end
    if ft2>0 then loc=loc|LOCATION_EXTRA end
    local tg=Duel.GetMatchingGroup(aux.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale,eset)
    tg=tg:Filter(aux.PConditionExtraFilterSpecific,nil,e,tp,lscale,rscale,e1)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    aux.GCheckAdditional=aux.PendOperationCheck(ft1,ft2,ft)
    local g=tg:SelectSubGroup(tp,aux.TRUE,true,1,math.min(#tg,ft))
    aux.GCheckAdditional=nil
    if not g then
    e1:Reset()
    return
    end
    local sg=Group.CreateGroup()
    sg:Merge(g)
    Duel.HintSelection(Group.FromCards(lpz))
    Duel.HintSelection(Group.FromCards(rpz))
    Duel.SpecialSummon(sg,SUMMON_TYPE_PENDULUM,tp,tp,true,true,POS_FACEUP)
    e1:Reset()
    end
    \ No newline at end of file
    expansions/script/c96066017.lua deleted 100644 → 0
    View file @ e1669b65
    --铃兰之剑 急袭的法卡尔
    local m=96066017--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --xyz summon
    aux.AddXyzProcedure(c,nil,4,2)
    c:EnableReviveLimit()
    --to hand
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_GRAVE_ACTION)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCountLimit(1,m)
    e1:SetCondition(cm.thcon)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    --indes
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e2:SetValue(cm.indval)
    e2:SetCondition(cm.rmcon)
    c:RegisterEffect(e2)
    --immune
    local e3=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,2))
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCode(EFFECT_IMMUNE_EFFECT)
    e3:SetCondition(cm.rmcon)
    e3:SetValue(cm.efilter)
    c:RegisterEffect(e3)
    --atk/def
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e4:SetRange(LOCATION_MZONE)
    e4:SetCode(EFFECT_SET_BASE_ATTACK)
    e4:SetCondition(cm.rmcon)
    e4:SetValue(cm.atkval)
    c:RegisterEffect(e4)
    local e5=e4:Clone()
    e5:SetCode(EFFECT_SET_BASE_DEFENSE)
    e5:SetValue(cm.defval)
    c:RegisterEffect(e5)
    --to grave
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(m,1))
    e6:SetCategory(CATEGORY_TOGRAVE)
    e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e6:SetCode(EVENT_LEAVE_FIELD)
    e6:SetCountLimit(1,m+1)
    e6:SetCondition(cm.rmcon)
    e6:SetTarget(cm.tgtg)
    e6:SetOperation(cm.tgop)
    c:RegisterEffect(e6)
    end
    --to hand
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
    end
    function cm.thfilter(c)
    return c:IsSetCard(0xef6) 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+LOCATION_GRAVE,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    --indes
    function cm.cfilter(c)
    return c:IsType(TYPE_NORMAL)
    end
    function cm.rmcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():GetOverlayGroup():IsExists(cm.cfilter,1,nil)
    end
    function cm.indval(e,c)
    return not c:IsType(TYPE_NORMAL)
    end
    --immune
    function cm.efilter(e,te)
    return te:IsActiveType(TYPE_MONSTER) and te:GetOwner()~=e:GetOwner()
    end
    --atk/def
    function cm.atkval(e,c)
    return c:GetBaseAttack()*2
    end
    function cm.defval(e,c)
    return c:GetBaseDefense()*2
    end
    --to grave
    function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>0 end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,0,LOCATION_ONFIELD)
    end
    function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(nil,1-tp,LOCATION_ONFIELD,0,nil)
    if g:GetCount()>0 then
    Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE)
    local sg=g:Select(1-tp,2,2,nil)
    Duel.HintSelection(sg)
    Duel.SendtoGrave(sg,REASON_RULE,1-tp)
    end
    end
    \ No newline at end of file
    expansions/script/c96066019.lua deleted 100644 → 0
    View file @ e1669b65
    --铃兰之剑 狂暴的拉维耶
    local m=96066019--卡密编号
    local set=0xef6--铃兰之剑字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --synchro summon
    c:EnableReviveLimit()
    aux.AddSynchroMixProcedure(c,cm.matfilter1,nil,nil,aux.NonTuner(nil),1,99)
    --to hand
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_GRAVE_ACTION)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCountLimit(1,m)
    e1:SetCondition(cm.thcon)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    --immune
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,5))
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_IMMUNE_EFFECT)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(cm.imcon)
    e2:SetValue(cm.efilter)
    c:RegisterEffect(e2)
    --destroy
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,6))
    e3:SetCategory(CATEGORY_DESTROY)
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCountLimit(1)
    e3:SetCondition(cm.descon)
    e3:SetTarget(cm.destg)
    e3:SetOperation(cm.desop)
    c:RegisterEffect(e3)
    --atk up
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,7))
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_UPDATE_ATTACK)
    e4:SetRange(LOCATION_MZONE)
    e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e4:SetCondition(cm.atcon)
    e4:SetValue(1000)
    c:RegisterEffect(e4)
    --def up
    local e5=e4:Clone()
    e5:SetCode(EFFECT_UPDATE_DEFENSE)
    e5:SetCondition(cm.atcon)
    c:RegisterEffect(e5)
    --double
    local e6=e4:Clone()
    e6:SetCode(EFFECT_CHANGE_INVOLVING_BATTLE_DAMAGE)
    e6:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
    e6:SetCondition(cm.atcon)
    c:RegisterEffect(e6)
    --special summon or self
    local e7=Effect.CreateEffect(c)
    e7:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON)
    e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e7:SetProperty(EFFECT_FLAG_DELAY)
    e7:SetCode(EVENT_DESTROYED)
    e7:SetCountLimit(1,m+1)
    e7:SetTarget(cm.tdtg)
    e7:SetOperation(cm.tdop)
    c:RegisterEffect(e7)
    end
    --synchro summon
    function cm.matfilter1(c,syncard)
    return c:IsTuner(syncard) or (c:IsSynchroType(TYPE_NORMAL) and c:IsSetCard(0xef6))
    end
    --to hand
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
    end
    function cm.thfilter(c)
    return c:IsSetCard(0xef6) 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+LOCATION_GRAVE,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    --immune
    function cm.nmfilter(c)
    return c:IsType(TYPE_NORMAL)
    end
    function cm.imcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:IsSummonType(SUMMON_TYPE_SYNCHRO) and c:GetMaterial():IsExists(cm.nmfilter,1,nil)
    end
    function cm.efilter(e,te)
    return not te:GetOwner():IsSetCard(0xef6)
    end
    --destroy
    function cm.emfilter(c)
    return c:IsType(TYPE_EFFECT)
    end
    function cm.descon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:IsSummonType(SUMMON_TYPE_SYNCHRO) and c:GetMaterial():IsExists(cm.emfilter,1,nil)
    end
    function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
    local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
    if #g>0 then
    Duel.HintSelection(g)
    Duel.Destroy(g,REASON_EFFECT)
    end
    end
    --atk up
    function cm.pmfilter(c)
    return c:IsType(TYPE_PENDULUM)
    end
    function cm.atcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:IsSummonType(SUMMON_TYPE_SYNCHRO) and c:GetMaterial():IsExists(cm.pmfilter,1,nil) and e:GetHandler():GetBattleTarget()~=nil
    end
    --special summon or self
    function cm.tdfilter(c)
    return c:IsType(TYPE_NORMAL) and c:IsAbleToDeck()
    end
    function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    if e:GetActivateLocation()==LOCATION_GRAVE+LOCATION_REMOVED then
    e:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
    else
    e:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON)
    end
    end
    function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if #g>0 then
    local c=e:GetHandler()
    if Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0
    and g:FilterCount(Card.IsLocation,nil,LOCATION_DECK)>0
    and c:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    and Duel.SelectYesNo(tp,aux.Stringid(m,4)) then
    Duel.BreakEffect()
    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c96066021.lua deleted 100644 → 0
    View file @ e1669b65
    --铃兰之剑 悠闲的贝拉
    local m=96066021--卡密编号
    local set=0x3ef6--王国军字段
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcFun2(c,cm.matfilter,aux.FilterBoolFunction(Card.IsFusionSetCard,0xef6),true)
    aux.AddContactFusionProcedure(c,Card.IsAbleToRemoveAsCost,LOCATION_ONFIELD,0,Duel.Remove,POS_FACEUP,REASON_COST)
    --to hand
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_GRAVE_ACTION)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    --activate cost
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e2:SetCode(EFFECT_ACTIVATE_COST)
    e2:SetRange(LOCATION_MZONE)
    e2:SetTargetRange(0,1)
    e2:SetCondition(cm.costcon)
    e2:SetCost(cm.costchk)
    e2:SetOperation(cm.costop)
    c:RegisterEffect(e2)
    --material check
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_MATERIAL_CHECK)
    e3:SetValue(cm.valcheck)
    e3:SetLabelObject(e2)
    c:RegisterEffect(e3)
    --indes
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_FIELD)
    e4:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
    e4:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
    e4:SetRange(LOCATION_MZONE)
    e4:SetTargetRange(LOCATION_ONFIELD,0)
    e4:SetCondition(cm.costcon)
    e4:SetValue(cm.indct)
    c:RegisterEffect(e4)
    --material check
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_MATERIAL_CHECK)
    e5:SetValue(cm.valcheck)
    e5:SetLabelObject(e4)
    c:RegisterEffect(e5)
    --end battle phase
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(m,3))
    e6:SetType(EFFECT_TYPE_QUICK_O)
    e6:SetCode(EVENT_FREE_CHAIN)
    e6:SetRange(LOCATION_GRAVE)
    e6:SetCountLimit(1,m+1+EFFECT_COUNT_CODE_DUEL)
    e6:SetCost(aux.bfgcost)
    e6:SetOperation(cm.operation)
    c:RegisterEffect(e6)
    end
    --fusion material
    function cm.matfilter(c)
    return c:IsLevelAbove(4) and c:IsFusionType(TYPE_MONSTER)
    end
    --to hand
    function cm.thfilter(c)
    return c:IsSetCard(0xef6) 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+LOCATION_GRAVE,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    --activate cost
    function cm.costcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
    end
    function cm.costchk(e,te_or_c,tp)
    local ct=Duel.GetFlagEffect(tp,m)
    return Duel.CheckLPCost(tp,ct*500)
    end
    function cm.costop(e,tp,eg,ep,ev,re,r,rp)
    Duel.PayLPCost(tp,500)
    end
    --material check
    function cm.valcheck(e,c)
    e:GetLabelObject():SetLabel(c:GetMaterial():FilterCount(Card.IsFusionType,nil,TYPE_NORMAL))
    end
    --indes
    function cm.indct(e,re,r,rp)
    if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 then
    return 1
    else return 0 end
    end
    --end battle phase
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE_STEP,1)
    end
    \ No newline at end of file
    expansions/strings.conf
    View file @ e7055fdf
    ...@@ -503,6 +503,9 @@ ...@@ -503,6 +503,9 @@
    !setname 0x826 风吟游歌 !setname 0x826 风吟游歌
    !setname 0x827 忆质渊 !setname 0x827 忆质渊
    !setname 0x828 姬丝缇可 !setname 0x828 姬丝缇可
    !setname 0x829 Gavv
    !setname 0x3829 骑士饱藏
    !setname 0x82a 故世
    !counter 0x1820 灵骸指示物 !counter 0x1820 灵骸指示物
    !counter 0x1822 誓约指示物 !counter 0x1822 誓约指示物
    !counter 0x1823 幽梦指示物 !counter 0x1823 幽梦指示物
    ...@@ -673,6 +676,8 @@ ...@@ -673,6 +676,8 @@
    !setname 0xc88 天神右翼 !setname 0xc88 天神右翼
    !setname 0xc89 圣殿骑士 !setname 0xc89 圣殿骑士
    !setname 0xc8e 刻神指令 !setname 0xc8e 刻神指令
    !setname 0xc8d 恐怖人偶
    !setname 0xc8a 秘密道具
    !setname 0xc8f 时刻喷射龙 !setname 0xc8f 时刻喷射龙
    !counter 0xc8f 王之指示物 !counter 0xc8f 王之指示物
    #AddCodeList(c,30900609) 异界王卡名记述 #AddCodeList(c,30900609) 异界王卡名记述
    ...@@ -1016,6 +1021,7 @@ ...@@ -1016,6 +1021,7 @@
    !setname 0x5ca5 LCBE.G.O !setname 0x5ca5 LCBE.G.O
    !setname 0x3ca6 染荆 !setname 0x3ca6 染荆
    !setname 0x6ca0 残赫 !setname 0x6ca0 残赫
    #!setname 0x6ca5
    !counter 0xca0 少女病指示物 !counter 0xca0 少女病指示物
    !counter 0xcaf 妖精乡指示物 !counter 0xcaf 妖精乡指示物
    #setcard="lcb_jianqi" 剑契组 #setcard="lcb_jianqi" 剑契组
    ......
    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