Skip to content

Y
ygopro-222DIY-cards
Commit 6459a04d authored by 聖園ミカ's avatar 聖園ミカ 🐟
Browse files
Options

54188

parent 930ce326
Pipeline #30748 passed with stage
    in 14 minutes and 10 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 25 additions and 6467 deletions
    expansions/FiNALE.cdb
    View file @ 6459a04d
    No preview for this file type
    expansions/lflist.conf
    View file @ 6459a04d
    ...@@ -2047,12 +2047,6 @@ ...@@ -2047,12 +2047,6 @@
    96071030 0 --侍神·森岭 不见岳 96071030 0 --侍神·森岭 不见岳
    96071066 0 --侍神·京都堺 座敷童子 96071066 0 --侍神·京都堺 座敷童子
    96071079 0 --侍神·京都堺 玉藻前 96071079 0 --侍神·京都堺 玉藻前
    96077000 1 --The world of AI
    96077005 1 --耀光翔龙
    96077021 1 --尽灭黑洞龙
    96077026 1 --净洁白龙
    96077028 1 --闪耀光龙
    96077033 1 --深渊海神秘龙
    #986 #986
    98600002 0 --欧忒耳佩 98600002 0 --欧忒耳佩
    98600004 1 --情书 98600004 1 --情书
    ......
    expansions/script/c18700103.lua deleted 100644 → 0
    View file @ 930ce326
    --戏世游寰·雨都朋客-空
    local m=18700103
    local cm=_G["c"..m]
    xpcall(function() require("expansions/script/1") end,function() require("script/1") end)
    function cm.initial_effect(c)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_HAND)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_SUMMON_SUCCESS)
    e2:SetCountLimit(1,m+1)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e3)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0
    and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
    e:SetLabel(Duel.AnnounceType(tp))
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
    Duel.ConfirmDecktop(tp,1)
    local g=Duel.GetDecktopGroup(tp,1)
    local tc=g:GetFirst()
    local opt=e:GetLabel()
    if (opt==0 and tc:IsType(TYPE_MONSTER)) or (opt==1 and tc:IsType(TYPE_SPELL)) or (opt==2 and tc:IsType(TYPE_TRAP)) then
    if not c:IsRelateToEffect(e) then return end
    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function cm.thfilter(c)
    return c:IsSetCard(0x823) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    local e2=Effect.CreateEffect(e:GetHandler())
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e2:Reset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    e2:SetTargetRange(1,0)
    e2:SetTarget(cm.splimit)
    Duel.RegisterEffect(e2,tp)
    end
    function cm.splimit(e,c)
    return not c:IsType(TYPE_LINK) and c:IsLocation(LOCATION_EXTRA)
    end
    expansions/script/c18700122.lua deleted 100644 → 0
    View file @ 930ce326
    --戏世游寰·巡风行者-倪克斯
    local m=18700122
    local cm=_G["c"..m]
    xpcall(function() require("expansions/script/1") end,function() require("script/1") end)
    function cm.initial_effect(c)
    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:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e1:SetCode(EVENT_MOVE)
    e1:SetRange(LOCATION_HAND)
    e1:SetCountLimit(1,m)
    e1:SetCondition(cm.condition)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e2:SetCode(EVENT_MOVE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,m+1)
    e2:SetCondition(cm.condition)
    e2:SetTarget(cm.sdtg2)
    e2:SetOperation(cm.sdop2)
    c:RegisterEffect(e2)
    end
    function cm.cfilter(c)
    return c:IsPreviousLocation(LOCATION_MZONE) and c:IsLocation(LOCATION_MZONE)
    and (c:GetPreviousSequence()~=c:GetSequence() or c:GetPreviousControler()~=c:GetControler())
    end
    function cm.condition(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.cfilter,1,nil)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function cm.cfilter(c)
    return c:IsPreviousLocation(LOCATION_MZONE) and c:IsLocation(LOCATION_MZONE)
    and (c:GetPreviousSequence()~=c:GetSequence() or c:GetPreviousControler()~=c:GetControler())
    end
    function cm.condition(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.cfilter,1,nil)
    end
    function cm.sdtg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>1 end
    end
    function cm.sdop2(e,tp,eg,ep,ev,re,r,rp)
    Duel.SortDecktop(tp,tp,2)
    end
    expansions/script/c98622100.lua → expansions/script/c22100000.lua
    View file @ 6459a04d
    --终端意志·无名之人 --终端意志·无名之人
    local m=98622100 local m=22100000
    local cm=_G["c"..m] local cm=_G["c"..m]
    function cm.initial_effect(c) function cm.initial_effect(c)
    c:EnableReviveLimit() c:EnableReviveLimit()
    ......
    expansions/script/c29930000.lua deleted 100644 → 0
    View file @ 930ce326
    --森森挚深 烈蹄挽马
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,29930010,29930040)
    c:EnableReviveLimit()
    --material
    aux.AddSynchroProcedure2(c,s.matfilter1,aux.NonTuner(s.matfilter2))
    --set
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCondition(s.showcon)
    e1:SetCost(s.showcost)
    e1:SetTarget(s.target)
    e1:SetOperation(s.operation)
    c:RegisterEffect(e1)
    --battle
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
    e2:SetValue(1)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    --special summon
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(id,1))
    e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e4:SetCode(EVENT_TO_GRAVE)
    e4:SetProperty(EFFECT_FLAG_DELAY)
    e4:SetTarget(s.sptg)
    e4:SetOperation(s.spop)
    c:RegisterEffect(e4)
    end
    function s.matfilter1(c)
    return c:GetBaseAttack()==300 and c:GetBaseDefense()==100
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_WATER)
    and c:IsLevel(2)
    end
    function s.matfilter2(c)
    return c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    end
    function s.showcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
    end
    function s.showfilter(c)
    return c:GetBaseAttack()==400 and c:GetBaseDefense()==0
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
    end
    function s.showcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.showfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
    local g=Duel.SelectMatchingCard(tp,s.showfilter,tp,LOCATION_HAND,0,1,1,nil)
    Duel.ConfirmCards(1-tp,g)
    Duel.ShuffleHand(tp)
    end
    function s.pfilter(c,tp)
    return c:IsCode(29930010)
    and not c:IsForbidden() and c:CheckUniqueOnField(tp)
    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.pfilter,tp,LOCATION_DECK,0,1,nil,tp) end
    end
    function s.operation(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
    local tc=Duel.SelectMatchingCard(tp,s.pfilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
    if tc then Duel.MoveToField(tc,tp,tp,LOCATION_MZONE,POS_FACEUP,true) end
    end
    function s.cfilter(c)
    return c:IsFaceup() and not c:IsSetCard(0x48) and
    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ)
    end
    function s.spfilter(c,e,tp)
    return c:IsCode(29930040) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
    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.cfilter,tp,LOCATION_MZONE,0,1,nil)
    and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
    end
    function s.spop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
    local tc=g:GetFirst()
    local c=e:GetHandler()
    if tc then
    Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
    tc:RegisterFlagEffect(s,RESET_EVENT+RESETS_STANDARD,0,1)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,2))
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetCode(EFFECT_IMMUNE_EFFECT)
    e1:SetValue(s.efilter)
    e1:SetOwnerPlayer(tp)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e2:SetCode(EVENT_PHASE+PHASE_END)
    e2:SetCountLimit(1)
    e2:SetLabel(Duel.GetTurnCount()+1)
    e2:SetLabelObject(tc)
    e2:SetCondition(s.tdcon)
    e2:SetOperation(s.tdop)
    Duel.RegisterEffect(e2,tp)
    end
    end
    function s.efilter(e,te)
    return te:IsActiveType(TYPE_MONSTER) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
    end
    function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    if tc:GetFlagEffect(s)~=0 then
    return Duel.GetTurnCount()==e:GetLabel()
    else
    e:Reset()
    return false
    end
    end
    function s.tdop(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    Duel.Hint(HINT_CARD,0,id)
    Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    \ No newline at end of file
    expansions/script/c29930001.lua deleted 100644 → 0
    View file @ 930ce326
    --森森挚深 恋翼兔狲
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,29930011,29930040)
    c:EnableReviveLimit()
    --material
    aux.AddSynchroProcedure2(c,s.matfilter1,aux.NonTuner(s.matfilter2))
    --set
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCondition(s.showcon)
    e1:SetCost(s.showcost)
    e1:SetTarget(s.target)
    e1:SetOperation(s.operation)
    c:RegisterEffect(e1)
    --battle
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
    e2:SetValue(1)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    --special summon
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(id,1))
    e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e4:SetCode(EVENT_TO_GRAVE)
    e4:SetProperty(EFFECT_FLAG_DELAY)
    e4:SetTarget(s.sptg)
    e4:SetOperation(s.spop)
    c:RegisterEffect(e4)
    end
    function s.matfilter1(c)
    return c:GetBaseAttack()==300 and c:GetBaseDefense()==100
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_WATER)
    and c:IsLevel(2)
    end
    function s.matfilter2(c)
    return c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    end
    function s.showcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
    end
    function s.showfilter(c)
    return c:GetBaseAttack()==200 and c:GetBaseDefense()==200
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
    end
    function s.showcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.showfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
    local g=Duel.SelectMatchingCard(tp,s.showfilter,tp,LOCATION_HAND,0,1,1,nil)
    Duel.ConfirmCards(1-tp,g)
    Duel.ShuffleHand(tp)
    end
    function s.pfilter(c,tp)
    return c:IsCode(29930011)
    and not c:IsForbidden() and c:CheckUniqueOnField(tp)
    end
    function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingMatchingCard(s.pfilter,tp,LOCATION_DECK,0,1,nil,tp) end
    end
    function s.operation(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
    local tc=Duel.SelectMatchingCard(tp,s.pfilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
    if tc then Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) end
    end
    function s.cfilter(c)
    return c:IsFaceup() and not c:IsSetCard(0x48) and
    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ)
    end
    function s.spfilter(c,e,tp)
    return c:IsCode(29930040) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
    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.cfilter,tp,LOCATION_MZONE,0,1,nil)
    and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
    end
    function s.spop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
    local tc=g:GetFirst()
    local c=e:GetHandler()
    if tc then
    Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
    tc:RegisterFlagEffect(s,RESET_EVENT+RESETS_STANDARD,0,1)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,2))
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetCode(EFFECT_IMMUNE_EFFECT)
    e1:SetValue(s.efilter)
    e1:SetOwnerPlayer(tp)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e2:SetCode(EVENT_PHASE+PHASE_END)
    e2:SetCountLimit(1)
    e2:SetLabel(Duel.GetTurnCount()+1)
    e2:SetLabelObject(tc)
    e2:SetCondition(s.tdcon)
    e2:SetOperation(s.tdop)
    Duel.RegisterEffect(e2,tp)
    end
    end
    function s.efilter(e,te)
    return te:IsActiveType(TYPE_SPELL) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
    end
    function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    if tc:GetFlagEffect(s)~=0 then
    return Duel.GetTurnCount()==e:GetLabel()
    else
    e:Reset()
    return false
    end
    end
    function s.tdop(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    Duel.Hint(HINT_CARD,0,id)
    Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    \ No newline at end of file
    expansions/script/c29930002.lua deleted 100644 → 0
    View file @ 930ce326
    --森森挚深 凌甲野狼
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,29930012,29930040)
    c:EnableReviveLimit()
    --material
    aux.AddSynchroProcedure2(c,s.matfilter1,aux.NonTuner(s.matfilter2))
    --set
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCondition(s.showcon)
    e1:SetCost(s.showcost)
    e1:SetTarget(s.target)
    e1:SetOperation(s.operation)
    c:RegisterEffect(e1)
    --battle
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
    e2:SetValue(1)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    --special summon
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(id,1))
    e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e4:SetCode(EVENT_TO_GRAVE)
    e4:SetProperty(EFFECT_FLAG_DELAY)
    e4:SetTarget(s.sptg)
    e4:SetOperation(s.spop)
    c:RegisterEffect(e4)
    end
    function s.matfilter1(c)
    return c:GetBaseAttack()==300 and c:GetBaseDefense()==100
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_WATER)
    and c:IsLevel(2)
    end
    function s.matfilter2(c)
    return c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    end
    function s.showcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
    end
    function s.showfilter(c)
    return c:GetBaseAttack()==300 and c:GetBaseDefense()==100
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
    end
    function s.showcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.showfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
    local g=Duel.SelectMatchingCard(tp,s.showfilter,tp,LOCATION_HAND,0,1,1,nil)
    Duel.ConfirmCards(1-tp,g)
    Duel.ShuffleHand(tp)
    end
    function s.pfilter(c,tp)
    return c:IsCode(29930012)
    and not c:IsForbidden() and c:CheckUniqueOnField(tp)
    end
    function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingMatchingCard(s.pfilter,tp,LOCATION_DECK,0,1,nil,tp) end
    end
    function s.operation(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
    local tc=Duel.SelectMatchingCard(tp,s.pfilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
    if tc then Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) end
    end
    function s.cfilter(c)
    return c:IsFaceup() and not c:IsSetCard(0x48) and
    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ)
    end
    function s.spfilter(c,e,tp)
    return c:IsCode(29930040) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
    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.cfilter,tp,LOCATION_MZONE,0,1,nil)
    and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
    end
    function s.spop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
    local tc=g:GetFirst()
    local c=e:GetHandler()
    if tc then
    Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
    tc:RegisterFlagEffect(s,RESET_EVENT+RESETS_STANDARD,0,1)
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,2))
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetCode(EFFECT_IMMUNE_EFFECT)
    e1:SetValue(s.efilter)
    e1:SetOwnerPlayer(tp)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e2:SetCode(EVENT_PHASE+PHASE_END)
    e2:SetCountLimit(1)
    e2:SetLabel(Duel.GetTurnCount()+1)
    e2:SetLabelObject(tc)
    e2:SetCondition(s.tdcon)
    e2:SetOperation(s.tdop)
    Duel.RegisterEffect(e2,tp)
    end
    end
    function s.efilter(e,te)
    return te:IsActiveType(TYPE_TRAP) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
    end
    function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    if tc:GetFlagEffect(s)~=0 then
    return Duel.GetTurnCount()==e:GetLabel()
    else
    e:Reset()
    return false
    end
    end
    function s.tdop(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    Duel.Hint(HINT_CARD,0,id)
    Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    \ No newline at end of file
    expansions/script/c29930010.lua deleted 100644 → 0
    View file @ 930ce326
    --地隆啸天大终结
    function c29930010.initial_effect(c)
    aux.AddCodeList(c,29930000)
    c:SetUniqueOnField(1,0,29930010)
    --cannot be material
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e1:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e1:SetValue(c29930010.fuslimit)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e2:SetValue(1)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e3)
    local e4=e2:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e4)
    --cannot summon or special summon
    local e5=Effect.CreateEffect(c)
    e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_SPSUMMON_CONDITION)
    c:RegisterEffect(e5)
    --cannot attack
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_SINGLE)
    e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e6:SetCode(EFFECT_CANNOT_ATTACK)
    c:RegisterEffect(e6)
    --indes
    local e7=Effect.CreateEffect(c)
    e7:SetType(EFFECT_TYPE_FIELD)
    e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e7:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e7:SetRange(LOCATION_MZONE)
    e7:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
    e7:SetTarget(c29930010.indtg)
    e7:SetValue(1)
    c:RegisterEffect(e7)
    --no battle damage
    local e8=Effect.CreateEffect(c)
    e8:SetType(EFFECT_TYPE_SINGLE)
    e8:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e8:SetCode(EFFECT_NO_BATTLE_DAMAGE)
    c:RegisterEffect(e8)
    local e9=Effect.CreateEffect(c)
    e9:SetType(EFFECT_TYPE_SINGLE)
    e9:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e9:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
    e9:SetValue(1)
    c:RegisterEffect(e9)
    --horse token
    local e10=Effect.CreateEffect(c)
    e10:SetDescription(aux.Stringid(29930010,0))
    e10:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
    e10:SetType(EFFECT_TYPE_IGNITION)
    e10:SetRange(LOCATION_HAND)
    e10:SetCountLimit(1,29930010)
    e10:SetCost(c29930010.tkcost)
    e10:SetTarget(c29930010.tktg)
    e10:SetOperation(c29930010.tkop)
    c:RegisterEffect(e10)
    --negated
    local e11=Effect.CreateEffect(c)
    e11:SetDescription(aux.Stringid(29930010,1))
    e11:SetCategory(CATEGORY_DISABLE)
    e11:SetType(EFFECT_TYPE_QUICK_O)
    e11:SetCode(EVENT_CHAINING)
    e11:SetRange(LOCATION_MZONE)
    e11:SetCountLimit(1)
    e11:SetCondition(c29930010.discon)
    e11:SetCost(c29930010.discost)
    e11:SetTarget(c29930010.distg)
    e11:SetOperation(c29930010.disop)
    local e12=Effect.CreateEffect(c)
    e12:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
    e12:SetRange(LOCATION_MZONE)
    e12:SetTargetRange(LOCATION_MZONE,0)
    e12:SetTarget(c29930010.eftg)
    e12:SetLabelObject(e11)
    c:RegisterEffect(e12)
    --level&atk&def
    local e13=Effect.CreateEffect(c)
    e13:SetType(EFFECT_TYPE_SINGLE)
    e13:SetCode(EFFECT_UPDATE_ATTACK)
    e13:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e13:SetRange(LOCATION_MZONE)
    e13:SetValue(2000)
    local e15=e13:Clone()
    e15:SetCode(EFFECT_CHANGE_LEVEL)
    e15:SetValue(10)
    local e16=Effect.CreateEffect(c)
    e16:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
    e16:SetRange(LOCATION_MZONE)
    e16:SetTargetRange(LOCATION_MZONE,0)
    e16:SetTarget(c29930010.eftg)
    e16:SetLabelObject(e13)
    c:RegisterEffect(e16)
    local e18=e16:Clone()
    e18:SetLabelObject(e15)
    c:RegisterEffect(e18)
    Duel.AddCustomActivityCounter(29930010,ACTIVITY_SPSUMMON,c29930010.counterfilter)
    end
    function c29930010.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function c29930010.counterfilter(c)
    return not c:IsSummonLocation(LOCATION_EXTRA)
    or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ))
    or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO))
    or (c:GetBaseAttack()==9)
    end
    function c29930010.indtg(e,c)
    local tc=e:GetHandler()
    return c==tc or c==tc:GetBattleTarget()
    end
    function c29930010.tkcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(29930010,tp,ACTIVITY_SPSUMMON)==0 end
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetTargetRange(1,0)
    e1:SetTarget(c29930010.splimit)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToDeckAsCost() end
    Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_COST)
    end
    function c29930010.splimit(e,c)
    return c:IsLocation(LOCATION_EXTRA) and
    not((c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ))
    or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO))
    or (c:GetBaseAttack()==9))
    end
    function c29930010.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsPlayerCanSpecialSummonMonster(tp,29930013,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) end
    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
    end
    function c29930010.tkop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    if Duel.IsPlayerCanSpecialSummonMonster(tp,29930013,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) then
    local token=Duel.CreateToken(tp,29930013)
    Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function c29930010.eftg(e,c)
    return c:IsFaceup() and c:IsOriginalCodeRule(29930000)
    end
    function c29930010.discon(e,tp,eg,ep,ev,re,r,rp)
    return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) and re:IsActiveType(TYPE_MONSTER)
    end
    function c29930010.cfilter(c)
    return c:GetBaseAttack()==400 and c:GetBaseDefense()==0
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
    end
    function c29930010.discost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(c29930010.cfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
    local g=Duel.SelectMatchingCard(tp,c29930010.cfilter,tp,LOCATION_HAND,0,1,1,nil)
    Duel.ConfirmCards(1-tp,g)
    Duel.ShuffleHand(tp)
    end
    function c29930010.distg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
    end
    function c29930010.setfilter(c)
    return c:IsCanTurnSet() and c:IsFaceup()
    end
    function c29930010.thfilter(c)
    return c:IsAbleToDeck() and c:IsFaceup() and c:IsType(TYPE_MONSTER)
    end
    function c29930010.disop(e,tp,eg,ep,ev,re,r,rp)
    local sg=Duel.GetMatchingGroup(c29930010.setfilter,tp,0,LOCATION_MZONE,nil)
    if Duel.NegateEffect(ev) and sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(29930010,2)) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local tg=sg:Select(tp,1,1,nil)
    Duel.BreakEffect()
    local sg2=Duel.GetMatchingGroup(c29930010.thfilter,tp,0,LOCATION_ONFIELD,tg)
    if Duel.ChangePosition(tg,POS_FACEDOWN_DEFENSE)~=0 and sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(29930010,3)) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
    local tg2=sg2:Select(tp,1,1,nil)
    Duel.BreakEffect()
    Duel.SendtoDeck(tg2,nil,SEQ_DECKBOTTOM,REASON_EFFECT)
    end
    end
    end
    expansions/script/c29930011.lua deleted 100644 → 0
    View file @ 930ce326
    --唯意谨献散燎华
    function c29930011.initial_effect(c)
    aux.AddCodeList(c,29930001)
    c:SetUniqueOnField(1,0,29930011)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e1:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e1:SetValue(c29930011.fuslimit)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e2:SetValue(1)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e3)
    local e4=e2:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e4)
    --cat token
    local e10=Effect.CreateEffect(c)
    e10:SetDescription(aux.Stringid(29930011,0))
    e10:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
    e10:SetType(EFFECT_TYPE_IGNITION)
    e10:SetRange(LOCATION_HAND)
    e10:SetCountLimit(1,29930011)
    e10:SetCost(c29930011.tkcost)
    e10:SetTarget(c29930011.tktg)
    e10:SetOperation(c29930011.tkop)
    c:RegisterEffect(e10)
    --negated
    local e11=Effect.CreateEffect(c)
    e11:SetDescription(aux.Stringid(29930011,1))
    e11:SetCategory(CATEGORY_DISABLE)
    e11:SetType(EFFECT_TYPE_QUICK_O)
    e11:SetCode(EVENT_CHAINING)
    e11:SetRange(LOCATION_MZONE)
    e11:SetCountLimit(1)
    e11:SetCondition(c29930011.discon)
    e11:SetCost(c29930011.discost)
    e11:SetTarget(c29930011.distg)
    e11:SetOperation(c29930011.disop)
    local e12=Effect.CreateEffect(c)
    e12:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
    e12:SetRange(LOCATION_SZONE)
    e12:SetTargetRange(LOCATION_MZONE,0)
    e12:SetTarget(c29930011.eftg)
    e12:SetLabelObject(e11)
    c:RegisterEffect(e12)
    --level&atk&def
    local e13=Effect.CreateEffect(c)
    e13:SetType(EFFECT_TYPE_SINGLE)
    e13:SetCode(EFFECT_UPDATE_ATTACK)
    e13:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e13:SetRange(LOCATION_MZONE)
    e13:SetValue(1000)
    local e14=e13:Clone()
    e14:SetCode(EFFECT_UPDATE_DEFENSE)
    e14:SetValue(1000)
    local e15=e13:Clone()
    e15:SetCode(EFFECT_CHANGE_LEVEL)
    e15:SetValue(10)
    local e16=Effect.CreateEffect(c)
    e16:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
    e16:SetRange(LOCATION_SZONE)
    e16:SetTargetRange(LOCATION_MZONE,0)
    e16:SetTarget(c29930011.eftg)
    e16:SetLabelObject(e13)
    c:RegisterEffect(e16)
    local e17=e16:Clone()
    e17:SetLabelObject(e14)
    c:RegisterEffect(e17)
    local e18=e16:Clone()
    e18:SetLabelObject(e15)
    c:RegisterEffect(e18)
    Duel.AddCustomActivityCounter(29930011,ACTIVITY_SPSUMMON,c29930011.counterfilter)
    end
    function c29930011.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function c29930011.counterfilter(c)
    return not c:IsSummonLocation(LOCATION_EXTRA)
    or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ))
    or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO))
    or (c:GetBaseAttack()==9)
    end
    function c29930011.tkcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(29930011,tp,ACTIVITY_SPSUMMON)==0 end
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetTargetRange(1,0)
    e1:SetTarget(c29930011.splimit)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToDeckAsCost() end
    Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_COST)
    end
    function c29930011.splimit(e,c)
    return c:IsLocation(LOCATION_EXTRA) and
    not((c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ))
    or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO))
    or (c:GetBaseAttack()==9))
    end
    function c29930011.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsPlayerCanSpecialSummonMonster(tp,29930014,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) end
    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
    end
    function c29930011.tkop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    if Duel.IsPlayerCanSpecialSummonMonster(tp,29930014,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) then
    local token=Duel.CreateToken(tp,29930014)
    Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function c29930011.eftg(e,c)
    return c:IsFaceup() and c:IsOriginalCodeRule(29930001)
    end
    function c29930011.discon(e,tp,eg,ep,ev,re,r,rp)
    return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) and re:IsActiveType(TYPE_SPELL)
    end
    function c29930011.cfilter(c)
    return c:GetBaseAttack()==200 and c:GetBaseDefense()==200
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
    end
    function c29930011.discost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(c29930011.cfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
    local g=Duel.SelectMatchingCard(tp,c29930011.cfilter,tp,LOCATION_HAND,0,1,1,nil)
    Duel.ConfirmCards(1-tp,g)
    Duel.ShuffleHand(tp)
    end
    function c29930011.distg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
    end
    function c29930011.thfilter(c)
    return c:IsAbleToDeck() and c:IsFaceup() and c:IsType(TYPE_SPELL)
    end
    function c29930011.disop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.NegateEffect(ev) and Duel.SelectYesNo(tp,aux.Stringid(29930011,2)) then
    Duel.BreakEffect()
    local sg2=Duel.GetMatchingGroup(c29930011.thfilter,tp,0,LOCATION_ONFIELD,nil)
    if Duel.Recover(tp,1000,REASON_EFFECT)~=0 and sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(29930011,3)) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
    local tg2=sg2:Select(tp,1,1,nil)
    Duel.BreakEffect()
    Duel.SendtoDeck(tg2,nil,SEQ_DECKBOTTOM,REASON_EFFECT)
    end
    end
    end
    expansions/script/c29930012.lua deleted 100644 → 0
    View file @ 930ce326
    --躁飞乱打猛群击
    function c29930012.initial_effect(c)
    aux.AddCodeList(c,29930002)
    c:SetUniqueOnField(1,0,29930012)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e1:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e1:SetValue(c29930012.fuslimit)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e2:SetValue(1)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e3)
    local e4=e2:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e4)
    --dog token
    local e10=Effect.CreateEffect(c)
    e10:SetDescription(aux.Stringid(29930012,0))
    e10:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
    e10:SetType(EFFECT_TYPE_IGNITION)
    e10:SetRange(LOCATION_HAND)
    e10:SetCountLimit(1,29930012)
    e10:SetCost(c29930012.tkcost)
    e10:SetTarget(c29930012.tktg)
    e10:SetOperation(c29930012.tkop)
    c:RegisterEffect(e10)
    --negated
    local e11=Effect.CreateEffect(c)
    e11:SetDescription(aux.Stringid(29930012,1))
    e11:SetCategory(CATEGORY_DISABLE)
    e11:SetType(EFFECT_TYPE_QUICK_O)
    e11:SetCode(EVENT_CHAINING)
    e11:SetRange(LOCATION_MZONE)
    e11:SetCountLimit(1)
    e11:SetCondition(c29930012.discon)
    e11:SetCost(c29930012.discost)
    e11:SetTarget(c29930012.distg)
    e11:SetOperation(c29930012.disop)
    local e12=Effect.CreateEffect(c)
    e12:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
    e12:SetRange(LOCATION_SZONE)
    e12:SetTargetRange(LOCATION_MZONE,0)
    e12:SetTarget(c29930012.eftg)
    e12:SetLabelObject(e11)
    c:RegisterEffect(e12)
    --level&atk&def
    local e13=Effect.CreateEffect(c)
    e13:SetType(EFFECT_TYPE_SINGLE)
    e13:SetCode(EFFECT_UPDATE_ATTACK)
    e13:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e13:SetRange(LOCATION_MZONE)
    e13:SetValue(1500)
    local e14=e13:Clone()
    e14:SetCode(EFFECT_UPDATE_DEFENSE)
    e14:SetValue(500)
    local e15=e13:Clone()
    e15:SetCode(EFFECT_CHANGE_LEVEL)
    e15:SetValue(10)
    local e16=Effect.CreateEffect(c)
    e16:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
    e16:SetRange(LOCATION_SZONE)
    e16:SetTargetRange(LOCATION_MZONE,0)
    e16:SetTarget(c29930012.eftg)
    e16:SetLabelObject(e13)
    c:RegisterEffect(e16)
    local e17=e16:Clone()
    e17:SetLabelObject(e14)
    c:RegisterEffect(e17)
    local e18=e16:Clone()
    e18:SetLabelObject(e15)
    c:RegisterEffect(e18)
    Duel.AddCustomActivityCounter(29930012,ACTIVITY_SPSUMMON,c29930012.counterfilter)
    end
    function c29930012.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function c29930012.counterfilter(c)
    return not c:IsSummonLocation(LOCATION_EXTRA)
    or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ))
    or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO))
    or (c:GetBaseAttack()==9)
    end
    function c29930012.tkcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(29930012,tp,ACTIVITY_SPSUMMON)==0 end
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetTargetRange(1,0)
    e1:SetTarget(c29930012.splimit)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToDeckAsCost() end
    Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_COST)
    end
    function c29930012.splimit(e,c)
    return c:IsLocation(LOCATION_EXTRA) and
    not((c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ))
    or (c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO))
    or (c:GetBaseAttack()==9))
    end
    function c29930012.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsPlayerCanSpecialSummonMonster(tp,29930015,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) end
    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
    end
    function c29930012.tkop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    if Duel.IsPlayerCanSpecialSummonMonster(tp,29930015,0,TYPES_TOKEN_MONSTER+TYPE_TUNER,300,100,2,RACE_BEAST,ATTRIBUTE_WATER) then
    local token=Duel.CreateToken(tp,29930015)
    Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function c29930012.eftg(e,c)
    return c:IsFaceup() and c:IsOriginalCodeRule(29930002)
    end
    function c29930012.discon(e,tp,eg,ep,ev,re,r,rp)
    return rp==1-tp and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) and re:IsActiveType(TYPE_TRAP)
    end
    function c29930012.cfilter(c)
    return c:GetBaseAttack()==300 and c:GetBaseDefense()==100
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
    end
    function c29930012.discost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(c29930012.cfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
    local g=Duel.SelectMatchingCard(tp,c29930012.cfilter,tp,LOCATION_HAND,0,1,1,nil)
    Duel.ConfirmCards(1-tp,g)
    Duel.ShuffleHand(tp)
    end
    function c29930012.distg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
    end
    function c29930012.thfilter(c)
    return c:IsAbleToDeck() and c:IsFaceup() and c:IsType(TYPE_TRAP)
    end
    function c29930012.disop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.NegateEffect(ev) and Duel.SelectYesNo(tp,aux.Stringid(29930012,2)) then
    Duel.BreakEffect()
    local sg2=Duel.GetMatchingGroup(c29930012.thfilter,tp,0,LOCATION_ONFIELD,nil)
    if Duel.Damage(1-tp,1000,REASON_EFFECT)~=0 and sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(29930012,3)) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
    local tg2=sg2:Select(tp,1,1,nil)
    Duel.BreakEffect()
    Duel.SendtoDeck(tg2,nil,SEQ_DECKBOTTOM,REASON_EFFECT)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c29930050.lua deleted 100644 → 0
    View file @ 930ce326
    --墨夜 结抒谧狐 LV1
    local s,id,o=GetID()
    function s.initial_effect(c)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_HAND)
    e1:SetCost(s.spcost)
    e1:SetTarget(s.sptg)
    e1:SetOperation(s.spop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930051}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.cffilter(c)
    return c:GetBaseAttack()==100 and c:GetBaseDefense()==300
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
    end
    function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.cffilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
    local g=Duel.SelectMatchingCard(tp,s.cffilter,tp,LOCATION_HAND,0,1,1,nil)
    Duel.ConfirmCards(1-tp,g)
    Duel.ShuffleHand(tp)
    end
    function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    end
    function s.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not c:IsRelateToEffect(e) then return end
    if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) then
    --level up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetCondition(s.condition)
    e2:SetTarget(s.sptg1)
    e2:SetOperation(s.spop1)
    c:RegisterEffect(e2)
    --atk&def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_SET_BASE_ATTACK)
    e3:SetValue(1111)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_SET_BASE_DEFENSE)
    c:RegisterEffect(e4)
    --avoid
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetValue(s.ctval)
    c:RegisterEffect(e5)
    --revive
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(id,2))
    e6:SetType(EFFECT_TYPE_QUICK_O)
    e6:SetCode(EVENT_FREE_CHAIN)
    e6:SetRange(LOCATION_MZONE)
    e6:SetCountLimit(1)
    e6:SetTarget(s.retarget)
    e6:SetOperation(s.reoperation)
    c:RegisterEffect(e6)
    end
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_SPELL)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.spfilter(c,tp)
    return c:IsSummonPlayer(tp) and c:GetBaseAttack()==500 and c:GetBaseDefense()==2000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ) and c:IsFaceup()
    end
    function s.condition(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(s.spfilter,1,nil,tp)
    end
    function s.spfilterlv(c,e,tp)
    return c:IsCode(29930051) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToGrave() and Duel.GetMZoneCount(tp,c)>0
    and Duel.IsExistingMatchingCard(s.spfilterlv,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
    end
    function s.spop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) and Duel.GetMZoneCount(tp)>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilterlv,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
    if #g>0 then
    Duel.SpecialSummon(g,SUMMON_TYPE_RITUAL,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c29930051.lua deleted 100644 → 0
    View file @ 930ce326
    --墨夜 结抒谧狐 LV2
    local s,id,o=GetID()
    function s.initial_effect(c)
    c:EnableReviveLimit()
    --evo
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(s.gaincon)
    e1:SetOperation(s.gainop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930050,29930052}
    s.lvdn={29930050}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.gaincon(e,tp,eg,ep,ev,re,r,rp)
    local code1,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
    return re and (code1==29930050 or code2==29930050)
    end
    function s.gainop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    --level up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCode(EVENT_PHASE+PHASE_END)
    e2:SetCondition(s.condition)
    e2:SetTarget(s.sptg1)
    e2:SetOperation(s.spop1)
    c:RegisterEffect(e2)
    --atk&def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_SET_BASE_ATTACK)
    e3:SetValue(2222)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_SET_BASE_DEFENSE)
    c:RegisterEffect(e4)
    --avoid
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetValue(s.ctval)
    c:RegisterEffect(e5)
    --revive
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(id,2))
    e6:SetType(EFFECT_TYPE_QUICK_O)
    e6:SetCode(EVENT_FREE_CHAIN)
    e6:SetRange(LOCATION_MZONE)
    e6:SetCountLimit(1)
    e6:SetTarget(s.retarget)
    e6:SetOperation(s.reoperation)
    c:RegisterEffect(e6)
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_SPELL)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,2,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.condition(e,tp,eg,ep,ev,re,r,rp)
    return tp==Duel.GetTurnPlayer()
    end
    function s.spfilterlv(c,e,tp)
    return c:IsCode(29930052) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
    end
    function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToGrave() and Duel.GetMZoneCount(tp,c)>0
    and Duel.IsExistingMatchingCard(s.spfilterlv,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function s.spop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) and Duel.GetMZoneCount(tp)>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilterlv,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
    if #g>0 then
    Duel.SpecialSummon(g,SUMMON_TYPE_LINK,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c29930052.lua deleted 100644 → 0
    View file @ 930ce326
    --墨夜 结抒谧狐 LV3
    local s,id,o=GetID()
    function s.initial_effect(c)
    --link summon
    c:EnableReviveLimit()
    aux.AddLinkProcedure(c,s.chk,9,9)
    --evo
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(s.gaincon)
    e1:SetOperation(s.gainop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930051,29930061}
    s.lvdn={29930050,29930051}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.chk(c)
    return c:GetOriginalLevel()==999 and c:GetRace()==RACE_BEAST and c:GetAttribute()==ATTRIBUTE_EARTH
    end
    function s.gaincon(e,tp,eg,ep,ev,re,r,rp)
    local code1,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
    return re and (code1==29930051 or code2==29930051)
    end
    function s.gainop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    Duel.Hint(24,0,aux.Stringid(id,0))
    --indes
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetValue(1)
    c:RegisterEffect(e1)
    --level up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetCode(EVENT_TO_HAND)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(s.condition)
    e2:SetTarget(s.sptg1)
    e2:SetOperation(s.spop1)
    c:RegisterEffect(e2)
    --atk&def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_SET_BASE_ATTACK)
    e3:SetValue(3333)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e3)
    --avoid
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetValue(s.ctval)
    c:RegisterEffect(e5)
    --revive
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(id,2))
    e6:SetType(EFFECT_TYPE_QUICK_O)
    e6:SetCode(EVENT_FREE_CHAIN)
    e6:SetRange(LOCATION_MZONE)
    e6:SetCountLimit(1)
    e6:SetTarget(s.retarget)
    e6:SetOperation(s.reoperation)
    c:RegisterEffect(e6)
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_SPELL)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,3,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.cfilter(c,tp)
    return c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_MZONE)
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsLevel(2)
    and c:GetAttack()<500
    and c:IsPreviousPosition(POS_FACEUP) and c:IsControler(tp)
    end
    function s.condition(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(s.cfilter,1,nil,tp)
    end
    function s.spfilterlv(c,e,tp)
    return c:IsCode(29930061) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToGrave() and Duel.GetMZoneCount(tp,c)>0
    and Duel.IsExistingMatchingCard(s.spfilterlv,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function s.spop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) and Duel.GetMZoneCount(tp)>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilterlv,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
    if #g>0 then
    Duel.SpecialSummon(g,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c29930061.lua deleted 100644 → 0
    View file @ 930ce326
    --墨夜 结抒谧狐 LV6
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,29930000,29930001,29930002)
    --fusion material
    aux.AddFusionProcFunRep(c,s.ffilter,9,true)
    c:EnableReviveLimit()
    --evo
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(s.gaincon)
    e1:SetOperation(s.gainop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930052,29930062}
    s.lvdn={29930050,29930051,29930052}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.ffilter(c)
    return c:GetOriginalLevel()==999 and c:GetRace()==RACE_BEAST and c:GetAttribute()==ATTRIBUTE_EARTH
    end
    function s.gaincon(e,tp,eg,ep,ev,re,r,rp)
    local code1,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
    return re and (code1==29930052 or code2==29930052)
    end
    function s.gainop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    --indes
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetValue(1)
    c:RegisterEffect(e1)
    --level up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(s.condition)
    e2:SetTarget(s.sptg1)
    e2:SetOperation(s.spop1)
    c:RegisterEffect(e2)
    --atk&def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_SET_BASE_ATTACK)
    e3:SetValue(6666)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_SET_BASE_DEFENSE)
    c:RegisterEffect(e4)
    --avoid
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetValue(s.ctval)
    c:RegisterEffect(e5)
    --revive
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(id,2))
    e6:SetType(EFFECT_TYPE_QUICK_O)
    e6:SetCode(EVENT_FREE_CHAIN)
    e6:SetRange(LOCATION_MZONE)
    e6:SetCountLimit(1)
    e6:SetTarget(s.retarget)
    e6:SetOperation(s.reoperation)
    c:RegisterEffect(e6)
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_SPELL)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,6,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.cfilter(c)
    local b1=c:GetBaseAttack()==1500 and c:GetBaseDefense()==1000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO)
    local b2=c:IsOriginalCodeRule(29930000,299930001,29930002)
    return c:IsFaceup()
    and (b1 or b2)
    end
    function s.condition(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnPlayer()~=tp
    and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
    end
    function s.spfilterlv(c,e,tp)
    return c:IsCode(29930062) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToGrave() and Duel.GetMZoneCount(tp,c)>0
    and Duel.IsExistingMatchingCard(s.spfilterlv,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function s.spop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) and Duel.GetMZoneCount(tp)>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilterlv,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
    if #g>0 then
    Duel.SpecialSummon(g,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c29930062.lua deleted 100644 → 0
    View file @ 930ce326
    --墨夜 结抒谧狐 LV7
    local s,id,o=GetID()
    function s.initial_effect(c)
    --fusion material
    aux.AddSynchroProcedure(c,nil,s.ffilter,9,9)
    c:EnableReviveLimit()
    --evo
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(s.gaincon)
    e1:SetOperation(s.gainop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930061,29930063}
    s.lvdn={29930050,29930051,29930052,29930061}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.ffilter(c)
    return c:GetOriginalLevel()==999 and c:GetRace()==RACE_BEAST and c:GetAttribute()==ATTRIBUTE_EARTH
    end
    function s.gaincon(e,tp,eg,ep,ev,re,r,rp)
    local code1,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
    return re and (code1==29930061 or code2==29930061)
    end
    function s.gainop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    --indes
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetValue(1)
    c:RegisterEffect(e1)
    --level up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(s.condition)
    e2:SetTarget(s.sptg1)
    e2:SetOperation(s.spop1)
    c:RegisterEffect(e2)
    --atk&def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_SET_BASE_ATTACK)
    e3:SetValue(7777)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_SET_BASE_DEFENSE)
    c:RegisterEffect(e4)
    --avoid
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetValue(s.ctval)
    c:RegisterEffect(e5)
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_SINGLE)
    e6:SetCode(EFFECT_IMMUNE_EFFECT)
    e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e6:SetRange(LOCATION_MZONE)
    e6:SetValue(s.efilter)
    c:RegisterEffect(e6)
    --revive
    local e7=Effect.CreateEffect(c)
    e7:SetDescription(aux.Stringid(id,2))
    e7:SetType(EFFECT_TYPE_QUICK_O)
    e7:SetCode(EVENT_FREE_CHAIN)
    e7:SetRange(LOCATION_MZONE)
    e7:SetCountLimit(1)
    e7:SetTarget(s.retarget)
    e7:SetOperation(s.reoperation)
    c:RegisterEffect(e7)
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_SPELL)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,7,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.cfilter(c)
    return c:IsFaceup() and not c:IsSetCard(0x48) and
    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ)
    end
    function s.condition(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
    end
    function s.spfilterlv(c,e,tp)
    return c:IsCode(29930063) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToGrave() and Duel.GetMZoneCount(tp,c)>0
    and Duel.IsExistingMatchingCard(s.spfilterlv,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function s.spop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) and Duel.GetMZoneCount(tp)>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilterlv,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
    if #g>0 and Duel.SpecialSummon(g,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)>0 then
    Duel.BreakEffect()
    end
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_SKIP_BP)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetTargetRange(0,1)
    e1:SetLabel(Duel.GetTurnCount())
    e1:SetCondition(s.skipcon)
    e1:SetReset(RESET_PHASE+PHASE_BATTLE+RESET_SELF_TURN,1)
    Duel.RegisterEffect(e1,tp)
    end
    end
    function s.skipcon(e)
    return Duel.GetTurnCount()~=e:GetLabel()
    end
    function s.efilter(e,te)
    return te:IsActiveType(TYPE_SPELL) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
    end
    expansions/script/c29930063.lua deleted 100644 → 0
    View file @ 930ce326
    --墨夜 结抒谧狐 RisingLV9/九玉 星兽魄主
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,29930090)
    --fusion material
    aux.AddXyzProcedureLevelFree(c,s.ffilter,nil,9,9,nil,nil,nil)
    c:EnableReviveLimit()
    --evo
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(s.gaincon)
    e1:SetOperation(s.gainop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930062}
    s.lvdn={29930050,29930051,29930052,29930061,29930062}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.ffilter(c)
    return c:GetOriginalLevel()==999 and c:GetRace()==RACE_BEAST and c:GetAttribute()==ATTRIBUTE_EARTH
    end
    function s.gaincon(e,tp,eg,ep,ev,re,r,rp)
    local code1,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
    return re and (code1==29930062 or code2==29930062)
    end
    function s.gainop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    Duel.Hint(24,0,aux.Stringid(id,0))
    Duel.Hint(HINT_MUSIC,0,aux.Stringid(id,6))
    --indes
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CAN_FORBIDDEN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetValue(1)
    c:RegisterEffect(e1)
    --Attribute&Race ALL
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CAN_FORBIDDEN)
    e2:SetCode(EFFECT_ADD_ATTRIBUTE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetValue(ATTRIBUTE_ALL)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_ADD_RACE)
    e3:SetValue(RACE_ALL)
    c:RegisterEffect(e3)
    --atk&def
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_SET_BASE_ATTACK)
    e4:SetValue(9999)
    e4:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e4)
    local e5=e4:Clone()
    e5:SetCode(EFFECT_SET_BASE_DEFENSE)
    c:RegisterEffect(e5)
    -- ultraavoid
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_FIELD)
    e6:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e6:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e6:SetRange(LOCATION_MZONE)
    e6:SetTargetRange(LOCATION_MZONE,0)
    e6:SetTarget(s.indtg)
    e6:SetValue(s.tgval)
    c:RegisterEffect(e6)
    local e7=Effect.CreateEffect(c)
    e7:SetType(EFFECT_TYPE_SINGLE)
    e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CAN_FORBIDDEN)
    e7:SetCode(EFFECT_IMMUNE_EFFECT)
    e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e7:SetRange(LOCATION_MZONE)
    e7:SetValue(s.efilter)
    c:RegisterEffect(e7)
    --revive
    local e8=Effect.CreateEffect(c)
    e8:SetDescription(aux.Stringid(id,1))
    e8:SetType(EFFECT_TYPE_QUICK_O)
    e8:SetCode(EVENT_FREE_CHAIN)
    e8:SetRange(LOCATION_MZONE)
    e8:SetCountLimit(1)
    e8:SetTarget(s.retarget)
    e8:SetOperation(s.reoperation)
    c:RegisterEffect(e8)
    --9combo attack
    local e9=Effect.CreateEffect(c)
    e9:SetType(EFFECT_TYPE_SINGLE)
    e9:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e9:SetRange(LOCATION_MZONE)
    e9:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
    e9:SetValue(8)
    c:RegisterEffect(e9)
    --power gain
    local e10=Effect.CreateEffect(c)
    e10:SetDescription(aux.Stringid(id,2))
    e10:SetCategory(CATEGORY_ATKCHANGE)
    e10:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e10:SetCode(EVENT_ATTACK_ANNOUNCE)
    e10:SetCondition(s.atkcon)
    e10:SetOperation(s.atkop)
    c:RegisterEffect(e10)
    --genesis remake
    local e11=Effect.CreateEffect(c)
    e11:SetDescription(aux.Stringid(id,3))
    e11:SetCategory(CATEGORY_TODECK)
    e11:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e11:SetCode(EVENT_PHASE+PHASE_BATTLE)
    e11:SetCountLimit(1)
    e11:SetRange(LOCATION_MZONE)
    e11:SetCondition(s.tdcon)
    e11:SetTarget(s.tdtg)
    e11:SetOperation(s.tdop)
    c:RegisterEffect(e11)
    --tohand
    local e12=Effect.CreateEffect(c)
    e12:SetDescription(aux.Stringid(id,4))
    e12:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e12:SetType(EFFECT_TYPE_IGNITION)
    e12:SetRange(LOCATION_MZONE)
    e12:SetTarget(s.thtg)
    e12:SetOperation(s.thop)
    c:RegisterEffect(e12)
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_SPELL)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,9,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.indtg(e,c)
    return c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and (c:IsType(TYPE_XYZ) or c:IsType(TYPE_SYNCHRO))
    end
    function s.tgval(e,re,rp)
    return re:IsActiveType(TYPE_SPELL+TYPE_MONSTER) and rp==1-e:GetHandlerPlayer()
    end
    function s.efilter(e,te)
    return te:IsActiveType(TYPE_SPELL) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
    end
    function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c==Duel.GetAttacker() and Duel.GetAttackTarget()~=nil or c==Duel.GetAttackTarget()
    end
    function s.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsFaceup() and c:IsRelateToEffect(e) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(1111)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e2)
    end
    end
    function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():GetBattledGroupCount()>0
    end
    function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,nil)
    if chk==0 then return #g>0 end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,g,#g,0,LOCATION_ONFIELD)
    end
    function s.tdop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,nil)
    if #g>0 then
    Duel.Hint(24,0,aux.Stringid(id,5))
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_RULE)
    end
    end
    function s.thfilter(c)
    return c:IsCode(29930090) and c:IsAbleToHand()
    end
    function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function s.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
    if #g>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    \ No newline at end of file
    expansions/script/c29930090.lua deleted 100644 → 0
    View file @ 930ce326
    --结阴谧成一誓 贯心破
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,29930063)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetTarget(s.target)
    e1:SetOperation(s.activate)
    c:RegisterEffect(e1)
    --oru charge
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,id)
    e2:SetCondition(s.matcon)
    e2:SetTarget(s.mattg)
    e2:SetOperation(s.matop)
    c:RegisterEffect(e2)
    end
    function s.filter(c)
    return c:IsFaceup() and c:IsCode(29930063)
    end
    function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.filter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil)
    end
    function s.activate(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    tc:IsRelateToEffect(e)
    --disable&cannot activate
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_CANNOT_ACTIVATE)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetTargetRange(0,1)
    e1:SetCondition(s.actcon)
    e1:SetValue(s.actlimit)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    local e2=Effect.CreateEffect(e:GetHandler())
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetCode(EVENT_ATTACK_ANNOUNCE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetCondition(s.discon)
    e2:SetOperation(s.disop)
    e2:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e2,tp)
    local e3=e2:Clone()
    e3:SetCode(EVENT_BE_BATTLE_TARGET)
    Duel.RegisterEffect(e3,tp)
    local e4=Effect.CreateEffect(e:GetHandler())
    e4:SetType(EFFECT_TYPE_FIELD)
    e4:SetCode(EFFECT_DISABLE)
    e4:SetRange(LOCATION_MZONE)
    e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e4:SetTargetRange(0,LOCATION_MZONE)
    e4:SetTarget(s.distg)
    e4:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e4,tp)
    local e5=e4:Clone()
    e5:SetCode(EFFECT_DISABLE_EFFECT)
    Duel.RegisterEffect(e5,tp)
    end
    function s.actcon(e)
    local a=Duel.GetAttacker()
    local tp=e:GetHandlerPlayer()
    return a and a:IsControler(tp) and a:IsRace(RACE_BEAST) and
    (a:IsType(TYPE_SYNCHRO) or a:IsType(TYPE_XYZ))
    end
    function s.actlimit(e,re,tp)
    return re:IsActiveType(TYPE_SPELL+TYPE_MONSTER)
    end
    function s.cfilter(c,tp)
    return c:IsFaceup() and c:IsRace(RACE_BEAST) and
    (c:IsType(TYPE_SYNCHRO) or c:IsType(TYPE_XYZ)) and c:IsControler(tp)
    end
    function s.discon(e,tp,eg,ep,ev,re,r,rp)
    local c=Duel.GetAttackTarget()
    if not c then return false end
    if c:IsControler(1-tp) then c=Duel.GetAttacker() end
    return c and s.cfilter(c,tp)
    end
    function s.disop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetAttackTarget()
    if tc:IsControler(tp) then tc=Duel.GetAttacker() end
    tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE,0,1)
    Duel.AdjustInstantly(c)
    end
    function s.distg(e,c)
    return c:GetFlagEffect(id)~=0
    end
    function s.matfilter(c)
    return c:IsFaceup() and c:IsCode(29930063)
    end
    function s.matcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(s.matfilter,tp,LOCATION_ONFIELD,0,1,nil)
    end
    function s.xyzfilter(c)
    return c:IsFaceup() and not c:IsSetCard(0x48) and
    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ)
    end
    function s.mfilter(c)
    return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_BEAST) and c:IsCanOverlay()
    end
    function s.mattg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(tp) and chkc:IsPosition(LOCATION_MZONE) and s.xyzfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(s.xyzfilter,tp,LOCATION_MZONE,0,1,nil)
    and Duel.IsExistingMatchingCard(s.mfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    Duel.SelectTarget(tp,s.xyzfilter,tp,LOCATION_MZONE,0,1,1,nil)
    end
    function s.matop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.mfilter),tp,LOCATION_GRAVE,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.Overlay(tc,g)
    end
    end
    end
    expansions/script/c29930091.lua deleted 100644 → 0
    View file @ 930ce326
    --十载一心 于此地定缘
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,29930050)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCost(s.cost)
    e1:SetTarget(s.target)
    e1:SetOperation(s.activate)
    c:RegisterEffect(e1)
    --overlay
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,id)
    e2:SetTarget(s.ovtg)
    e2:SetOperation(s.ovop)
    c:RegisterEffect(e2)
    end
    function s.costfilter(c,tp)
    return c:IsFaceup() and c:IsRace(RACE_BEAST) and c:IsType(TYPE_XYZ)
    and c:CheckRemoveOverlayCard(tp,1,REASON_COST)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_MZONE,0,1,nil,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEATTACHFROM)
    local tc=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_MZONE,0,1,1,nil,tp):GetFirst()
    tc:RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function s.filter(c)
    return c:IsCode(29930050) and c:IsAbleToHand()
    end
    function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function s.activate(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function s.ovfilter(c)
    return c:IsFaceup() and not c:IsSetCard(0x48) and
    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ)
    end
    function s.ovtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.ovfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(s.ovfilter,tp,LOCATION_MZONE,0,1,nil)
    and e:GetHandler():IsCanOverlay() end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    Duel.SelectTarget(tp,s.ovfilter,tp,LOCATION_MZONE,0,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
    end
    function s.ovop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsRelateToEffect(e) and c:IsCanOverlay() and tc:IsRelateToEffect(e) and not c:IsImmuneToEffect(e) and not tc:IsImmuneToEffect(e) then
    Duel.Overlay(tc,Group.FromCards(c))
    end
    end
    expansions/script/c29930100.lua deleted 100644 → 0
    View file @ 930ce326
    --雪昼 符讴玹狐 LV1
    local s,id,o=GetID()
    function s.initial_effect(c)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(id,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_HAND)
    e1:SetCost(s.spcost)
    e1:SetTarget(s.sptg)
    e1:SetOperation(s.spop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930101}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.cffilter(c)
    return c:GetBaseAttack()==100 and c:GetBaseDefense()==300
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(2) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
    end
    function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.cffilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
    local g=Duel.SelectMatchingCard(tp,s.cffilter,tp,LOCATION_HAND,0,1,1,nil)
    Duel.ConfirmCards(1-tp,g)
    Duel.ShuffleHand(tp)
    end
    function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    end
    function s.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not c:IsRelateToEffect(e) then return end
    if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) then
    --level up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetCondition(s.condition)
    e2:SetTarget(s.sptg1)
    e2:SetOperation(s.spop1)
    c:RegisterEffect(e2)
    --atk&def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_SET_BASE_ATTACK)
    e3:SetValue(1111)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_SET_BASE_DEFENSE)
    c:RegisterEffect(e4)
    --avoid
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetValue(s.ctval)
    c:RegisterEffect(e5)
    --revive
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(id,2))
    e6:SetType(EFFECT_TYPE_QUICK_O)
    e6:SetCode(EVENT_FREE_CHAIN)
    e6:SetRange(LOCATION_MZONE)
    e6:SetCountLimit(1)
    e6:SetTarget(s.retarget)
    e6:SetOperation(s.reoperation)
    c:RegisterEffect(e6)
    end
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_TRAP)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.spfilter(c,tp)
    return c:IsSummonPlayer(tp) and c:GetBaseAttack()==500 and c:GetBaseDefense()==2000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ) and c:IsFaceup()
    end
    function s.condition(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(s.spfilter,1,nil,tp)
    end
    function s.spfilterlv(c,e,tp)
    return c:IsCode(29930101) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToGrave() and Duel.GetMZoneCount(tp,c)>0
    and Duel.IsExistingMatchingCard(s.spfilterlv,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
    end
    function s.spop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) and Duel.GetMZoneCount(tp)>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilterlv,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
    if #g>0 then
    Duel.SpecialSummon(g,SUMMON_TYPE_RITUAL,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c29930101.lua deleted 100644 → 0
    View file @ 930ce326
    --雪昼 符讴玹狐 LV2
    local s,id,o=GetID()
    function s.initial_effect(c)
    c:EnableReviveLimit()
    --evo
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(s.gaincon)
    e1:SetOperation(s.gainop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930100,29930102}
    s.lvdn={29930100}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.gaincon(e,tp,eg,ep,ev,re,r,rp)
    local code1,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
    return re and (code1==29930100 or code2==29930100)
    end
    function s.gainop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    --level up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCode(EVENT_PHASE+PHASE_END)
    e2:SetCondition(s.condition)
    e2:SetTarget(s.sptg1)
    e2:SetOperation(s.spop1)
    c:RegisterEffect(e2)
    --atk&def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_SET_BASE_ATTACK)
    e3:SetValue(2222)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_SET_BASE_DEFENSE)
    c:RegisterEffect(e4)
    --avoid
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetValue(s.ctval)
    c:RegisterEffect(e5)
    --revive
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(id,2))
    e6:SetType(EFFECT_TYPE_QUICK_O)
    e6:SetCode(EVENT_FREE_CHAIN)
    e6:SetRange(LOCATION_MZONE)
    e6:SetCountLimit(1)
    e6:SetTarget(s.retarget)
    e6:SetOperation(s.reoperation)
    c:RegisterEffect(e6)
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_TRAP)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,2,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.condition(e,tp,eg,ep,ev,re,r,rp)
    return tp==Duel.GetTurnPlayer()
    end
    function s.spfilterlv(c,e,tp)
    return c:IsCode(29930102) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
    end
    function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToGrave() and Duel.GetMZoneCount(tp,c)>0
    and Duel.IsExistingMatchingCard(s.spfilterlv,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function s.spop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) and Duel.GetMZoneCount(tp)>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilterlv,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
    if #g>0 then
    Duel.SpecialSummon(g,SUMMON_TYPE_LINK,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    expansions/script/c29930102.lua deleted 100644 → 0
    View file @ 930ce326
    --雪昼 符讴玹狐 LV3
    local s,id,o=GetID()
    function s.initial_effect(c)
    --link summon
    c:EnableReviveLimit()
    aux.AddLinkProcedure(c,s.chk,9,9)
    --evo
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(s.gaincon)
    e1:SetOperation(s.gainop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930101,29930111}
    s.lvdn={29930100,29930101}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.chk(c)
    return c:GetOriginalLevel()==999 and c:GetRace()==RACE_BEAST and c:GetAttribute()==ATTRIBUTE_EARTH
    end
    function s.gaincon(e,tp,eg,ep,ev,re,r,rp)
    local code1,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
    return re and (code1==29930101 or code2==29930101)
    end
    function s.gainop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    Duel.Hint(24,0,aux.Stringid(id,0))
    --indes
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetValue(1)
    c:RegisterEffect(e1)
    --level up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetCode(EVENT_TO_HAND)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(s.condition)
    e2:SetTarget(s.sptg1)
    e2:SetOperation(s.spop1)
    c:RegisterEffect(e2)
    --atk&def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_SET_BASE_ATTACK)
    e3:SetValue(3333)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e3)
    --avoid
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetValue(s.ctval)
    c:RegisterEffect(e5)
    --revive
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(id,2))
    e6:SetType(EFFECT_TYPE_QUICK_O)
    e6:SetCode(EVENT_FREE_CHAIN)
    e6:SetRange(LOCATION_MZONE)
    e6:SetCountLimit(1)
    e6:SetTarget(s.retarget)
    e6:SetOperation(s.reoperation)
    c:RegisterEffect(e6)
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_TRAP)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,3,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.cfilter(c,tp)
    return c:IsPreviousControler(tp) and c:IsPreviousLocation(LOCATION_MZONE)
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsLevel(2)
    and c:GetAttack()<500
    and c:IsPreviousPosition(POS_FACEUP) and c:IsControler(tp)
    end
    function s.condition(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(s.cfilter,1,nil,tp)
    end
    function s.spfilterlv(c,e,tp)
    return c:IsCode(29930111) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToGrave() and Duel.GetMZoneCount(tp,c)>0
    and Duel.IsExistingMatchingCard(s.spfilterlv,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function s.spop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) and Duel.GetMZoneCount(tp)>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilterlv,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
    if #g>0 then
    Duel.SpecialSummon(g,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    expansions/script/c29930111.lua deleted 100644 → 0
    View file @ 930ce326
    --雪昼 符讴玹狐 LV6
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,29930000,29930001,29930002)
    --fusion material
    aux.AddFusionProcFunRep(c,s.ffilter,9,true)
    c:EnableReviveLimit()
    --evo
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(s.gaincon)
    e1:SetOperation(s.gainop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930102,29930112}
    s.lvdn={29930100,29930101,29930102}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.ffilter(c)
    return c:GetOriginalLevel()==999 and c:GetRace()==RACE_BEAST and c:GetAttribute()==ATTRIBUTE_EARTH
    end
    function s.gaincon(e,tp,eg,ep,ev,re,r,rp)
    local code1,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
    return re and (code1==29930102 or code2==29930102)
    end
    function s.gainop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    --indes
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetValue(1)
    c:RegisterEffect(e1)
    --level up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(s.condition)
    e2:SetTarget(s.sptg1)
    e2:SetOperation(s.spop1)
    c:RegisterEffect(e2)
    --atk&def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_SET_BASE_ATTACK)
    e3:SetValue(6666)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_SET_BASE_DEFENSE)
    c:RegisterEffect(e4)
    --avoid
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetValue(s.ctval)
    c:RegisterEffect(e5)
    --revive
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(id,2))
    e6:SetType(EFFECT_TYPE_QUICK_O)
    e6:SetCode(EVENT_FREE_CHAIN)
    e6:SetRange(LOCATION_MZONE)
    e6:SetCountLimit(1)
    e6:SetTarget(s.retarget)
    e6:SetOperation(s.reoperation)
    c:RegisterEffect(e6)
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_TRAP)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,6,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.cfilter(c)
    local b1=c:GetBaseAttack()==1500 and c:GetBaseDefense()==1000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsLevel(4) and c:IsType(TYPE_SYNCHRO)
    local b2=c:IsOriginalCodeRule(29930000,299930001,29930002)
    return c:IsFaceup()
    and (b1 or b2)
    end
    function s.condition(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnPlayer()~=tp
    and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
    end
    function s.spfilterlv(c,e,tp)
    return c:IsCode(29930112) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToGrave() and Duel.GetMZoneCount(tp,c)>0
    and Duel.IsExistingMatchingCard(s.spfilterlv,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function s.spop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) and Duel.GetMZoneCount(tp)>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilterlv,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
    if #g>0 then
    Duel.SpecialSummon(g,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    expansions/script/c29930112.lua deleted 100644 → 0
    View file @ 930ce326
    --墨夜 结抒谧狐 LV7
    local s,id,o=GetID()
    function s.initial_effect(c)
    --fusion material
    aux.AddSynchroProcedure(c,nil,s.ffilter,9,9)
    c:EnableReviveLimit()
    --evo
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(s.gaincon)
    e1:SetOperation(s.gainop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930111,29930113}
    s.lvdn={29930100,29930101,29930102,29930111}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.ffilter(c)
    return c:GetOriginalLevel()==999 and c:GetRace()==RACE_BEAST and c:GetAttribute()==ATTRIBUTE_EARTH
    end
    function s.gaincon(e,tp,eg,ep,ev,re,r,rp)
    local code1,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
    return re and (code1==29930111 or code2==29930111)
    end
    function s.gainop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    --indes
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetValue(1)
    c:RegisterEffect(e1)
    --level up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(s.condition)
    e2:SetTarget(s.sptg1)
    e2:SetOperation(s.spop1)
    c:RegisterEffect(e2)
    --atk&def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_SET_BASE_ATTACK)
    e3:SetValue(7777)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_SET_BASE_DEFENSE)
    c:RegisterEffect(e4)
    --avoid
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetValue(s.ctval)
    c:RegisterEffect(e5)
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_SINGLE)
    e6:SetCode(EFFECT_IMMUNE_EFFECT)
    e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e6:SetRange(LOCATION_MZONE)
    e6:SetValue(s.efilter)
    c:RegisterEffect(e6)
    --revive
    local e7=Effect.CreateEffect(c)
    e7:SetDescription(aux.Stringid(id,2))
    e7:SetType(EFFECT_TYPE_QUICK_O)
    e7:SetCode(EVENT_FREE_CHAIN)
    e7:SetRange(LOCATION_MZONE)
    e7:SetCountLimit(1)
    e7:SetTarget(s.retarget)
    e7:SetOperation(s.reoperation)
    c:RegisterEffect(e7)
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_TRAP)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,7,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.cfilter(c)
    return c:IsFaceup() and not c:IsSetCard(0x48) and
    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ)
    end
    function s.condition(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
    end
    function s.spfilterlv(c,e,tp)
    return c:IsCode(29930113) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function s.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsAbleToGrave() and Duel.GetMZoneCount(tp,c)>0
    and Duel.IsExistingMatchingCard(s.spfilterlv,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function s.spop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) and Duel.GetMZoneCount(tp)>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,s.spfilterlv,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
    if #g>0 and Duel.SpecialSummon(g,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)>0 then
    Duel.BreakEffect()
    end
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_SKIP_BP)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetTargetRange(0,1)
    e1:SetLabel(Duel.GetTurnCount())
    e1:SetCondition(s.skipcon)
    e1:SetReset(RESET_PHASE+PHASE_BATTLE+RESET_SELF_TURN,1)
    Duel.RegisterEffect(e1,tp)
    end
    end
    function s.skipcon(e)
    return Duel.GetTurnCount()~=e:GetLabel()
    end
    function s.efilter(e,te)
    return te:IsActiveType(TYPE_TRAP) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
    end
    expansions/script/c29930113.lua deleted 100644 → 0
    View file @ 930ce326
    --雪昼 符讴玹狐 RagingLV9/九玉 星兽魄主
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,29930140)
    --fusion material
    aux.AddXyzProcedureLevelFree(c,s.ffilter,nil,9,9,nil,nil,nil)
    c:EnableReviveLimit()
    --evo
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(s.gaincon)
    e1:SetOperation(s.gainop)
    c:RegisterEffect(e1)
    --cannot be material
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e2:SetValue(s.fuslimit)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    c:RegisterEffect(e4)
    local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    c:RegisterEffect(e5)
    end
    s.lvup={29930112}
    s.lvdn={29930100,29930101,29930102,29930111,29930112}
    function s.fuslimit(e,c,sumtype)
    return sumtype&SUMMON_TYPE_FUSION==SUMMON_TYPE_FUSION
    end
    function s.ffilter(c)
    return c:GetOriginalLevel()==999 and c:GetRace()==RACE_BEAST and c:GetAttribute()==ATTRIBUTE_EARTH
    end
    function s.gaincon(e,tp,eg,ep,ev,re,r,rp)
    local code1,code2=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CODE,CHAININFO_TRIGGERING_CODE2)
    return re and (code1==29930112 or code2==29930112)
    end
    function s.gainop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    Duel.Hint(24,0,aux.Stringid(id,0))
    Duel.Hint(HINT_MUSIC,0,aux.Stringid(id,6))
    --indes
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CAN_FORBIDDEN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetValue(1)
    c:RegisterEffect(e1)
    --Attribute&Race ALL
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CAN_FORBIDDEN)
    e2:SetCode(EFFECT_ADD_ATTRIBUTE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetValue(ATTRIBUTE_ALL)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_ADD_RACE)
    e3:SetValue(RACE_ALL)
    c:RegisterEffect(e3)
    --atk&def
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_SET_BASE_ATTACK)
    e4:SetValue(9999)
    e4:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e4)
    local e5=e4:Clone()
    e5:SetCode(EFFECT_SET_BASE_DEFENSE)
    c:RegisterEffect(e5)
    -- ultraavoid
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_FIELD)
    e6:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e6:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e6:SetRange(LOCATION_MZONE)
    e6:SetTargetRange(LOCATION_MZONE,0)
    e6:SetTarget(s.indtg)
    e6:SetValue(s.tgval)
    c:RegisterEffect(e6)
    local e7=Effect.CreateEffect(c)
    e7:SetType(EFFECT_TYPE_SINGLE)
    e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CAN_FORBIDDEN)
    e7:SetCode(EFFECT_IMMUNE_EFFECT)
    e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e7:SetRange(LOCATION_MZONE)
    e7:SetValue(s.efilter)
    c:RegisterEffect(e7)
    --revive
    local e8=Effect.CreateEffect(c)
    e8:SetDescription(aux.Stringid(id,1))
    e8:SetType(EFFECT_TYPE_QUICK_O)
    e8:SetCode(EVENT_FREE_CHAIN)
    e8:SetRange(LOCATION_MZONE)
    e8:SetCountLimit(1)
    e8:SetTarget(s.retarget)
    e8:SetOperation(s.reoperation)
    c:RegisterEffect(e8)
    --9combo attack
    local e9=Effect.CreateEffect(c)
    e9:SetType(EFFECT_TYPE_SINGLE)
    e9:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e9:SetRange(LOCATION_MZONE)
    e9:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
    e9:SetValue(8)
    c:RegisterEffect(e9)
    --power gain
    local e10=Effect.CreateEffect(c)
    e10:SetDescription(aux.Stringid(id,2))
    e10:SetCategory(CATEGORY_ATKCHANGE)
    e10:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e10:SetCode(EVENT_ATTACK_ANNOUNCE)
    e10:SetCondition(s.atkcon)
    e10:SetOperation(s.atkop)
    c:RegisterEffect(e10)
    --genesis remake
    local e11=Effect.CreateEffect(c)
    e11:SetDescription(aux.Stringid(id,3))
    e11:SetCategory(CATEGORY_TODECK)
    e11:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e11:SetCode(EVENT_PHASE+PHASE_BATTLE)
    e11:SetCountLimit(1)
    e11:SetRange(LOCATION_MZONE)
    e11:SetCondition(s.tdcon)
    e11:SetTarget(s.tdtg)
    e11:SetOperation(s.tdop)
    c:RegisterEffect(e11)
    --tohand
    local e12=Effect.CreateEffect(c)
    e12:SetDescription(aux.Stringid(id,4))
    e12:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e12:SetType(EFFECT_TYPE_IGNITION)
    e12:SetRange(LOCATION_MZONE)
    e12:SetTarget(s.thtg)
    e12:SetOperation(s.thop)
    c:RegisterEffect(e12)
    end
    function s.ctval(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_TRAP)
    end
    function s.refilter(c)
    return (c:IsLocation(LOCATION_REMOVED) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToDeck()
    end
    function s.retarget(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.refilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function s.reoperation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.refilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,9,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    function s.indtg(e,c)
    return c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and (c:IsType(TYPE_XYZ) or c:IsType(TYPE_SYNCHRO))
    end
    function s.tgval(e,re,rp)
    return re:IsActiveType(TYPE_TRAP+TYPE_MONSTER) and rp==1-e:GetHandlerPlayer()
    end
    function s.efilter(e,te)
    return te:IsActiveType(TYPE_TRAP) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
    end
    function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c==Duel.GetAttacker() and Duel.GetAttackTarget()~=nil or c==Duel.GetAttackTarget()
    end
    function s.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsFaceup() and c:IsRelateToEffect(e) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(1111)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e2)
    end
    end
    function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():GetBattledGroupCount()>0
    end
    function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,nil)
    if chk==0 then return #g>0 end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,g,#g,0,LOCATION_ONFIELD)
    end
    function s.tdop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,nil)
    if #g>0 then
    Duel.Hint(24,0,aux.Stringid(id,5))
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_RULE)
    end
    end
    function s.thfilter(c)
    return c:IsCode(29930140) and c:IsAbleToHand()
    end
    function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function s.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
    if #g>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    expansions/script/c29930140.lua deleted 100644 → 0
    View file @ 930ce326
    --寄阳弦以千愿 双影蹴
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,29930113)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetTarget(s.target)
    e1:SetOperation(s.activate)
    c:RegisterEffect(e1)
    --oru charge
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,id)
    e2:SetCondition(s.matcon)
    e2:SetTarget(s.mattg)
    e2:SetOperation(s.matop)
    c:RegisterEffect(e2)
    --act in hand
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_HAND)
    e3:SetCondition(s.con)
    c:RegisterEffect(e3)
    end
    function s.con(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnPlayer()==e:GetHandlerPlayer()
    end
    function s.filter(c)
    return c:IsFaceup() and c:IsCode(29930113)
    end
    function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.filter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil)
    end
    function s.activate(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    tc:IsRelateToEffect(e)
    --disable&cannot activate
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_CANNOT_ACTIVATE)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetTargetRange(0,1)
    e1:SetCondition(s.actcon)
    e1:SetValue(s.actlimit)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    local e2=Effect.CreateEffect(e:GetHandler())
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetCode(EVENT_ATTACK_ANNOUNCE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetCondition(s.discon)
    e2:SetOperation(s.disop)
    e2:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e2,tp)
    local e3=e2:Clone()
    e3:SetCode(EVENT_BE_BATTLE_TARGET)
    Duel.RegisterEffect(e3,tp)
    local e4=Effect.CreateEffect(e:GetHandler())
    e4:SetType(EFFECT_TYPE_FIELD)
    e4:SetCode(EFFECT_DISABLE)
    e4:SetRange(LOCATION_MZONE)
    e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e4:SetTargetRange(0,LOCATION_MZONE)
    e4:SetTarget(s.distg)
    e4:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e4,tp)
    local e5=e4:Clone()
    e5:SetCode(EFFECT_DISABLE_EFFECT)
    Duel.RegisterEffect(e5,tp)
    end
    function s.actcon(e)
    local a=Duel.GetAttacker()
    local tp=e:GetHandlerPlayer()
    return a and a:IsControler(tp) and a:IsRace(RACE_BEAST) and
    (a:IsType(TYPE_SYNCHRO) or a:IsType(TYPE_XYZ))
    end
    function s.actlimit(e,re,tp)
    return re:IsActiveType(TYPE_TRAP+TYPE_MONSTER)
    end
    function s.cfilter(c,tp)
    return c:IsFaceup() and c:IsRace(RACE_BEAST) and
    (c:IsType(TYPE_SYNCHRO) or c:IsType(TYPE_XYZ)) and c:IsControler(tp)
    end
    function s.discon(e,tp,eg,ep,ev,re,r,rp)
    local c=Duel.GetAttackTarget()
    if not c then return false end
    if c:IsControler(1-tp) then c=Duel.GetAttacker() end
    return c and s.cfilter(c,tp)
    end
    function s.disop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetAttackTarget()
    if tc:IsControler(tp) then tc=Duel.GetAttacker() end
    tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE,0,1)
    Duel.AdjustInstantly(c)
    end
    function s.distg(e,c)
    return c:GetFlagEffect(id)~=0
    end
    function s.matfilter(c)
    return c:IsFaceup() and c:IsCode(29930113)
    end
    function s.matcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(s.matfilter,tp,LOCATION_ONFIELD,0,1,nil)
    end
    function s.xyzfilter(c)
    return c:IsFaceup() and not c:IsSetCard(0x48) and
    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ)
    end
    function s.mfilter(c)
    return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_BEAST) and c:IsCanOverlay()
    end
    function s.mattg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(tp) and chkc:IsPosition(LOCATION_MZONE) and s.xyzfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(s.xyzfilter,tp,LOCATION_MZONE,0,1,nil)
    and Duel.IsExistingMatchingCard(s.mfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    Duel.SelectTarget(tp,s.xyzfilter,tp,LOCATION_MZONE,0,1,1,nil)
    end
    function s.matop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.mfilter),tp,LOCATION_GRAVE,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.Overlay(tc,g)
    end
    end
    end
    expansions/script/c29930141.lua deleted 100644 → 0
    View file @ 930ce326
    --千战百炼 于此时入局
    local s,id,o=GetID()
    function s.initial_effect(c)
    aux.AddCodeList(c,29930100)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCost(s.cost)
    e1:SetTarget(s.target)
    e1:SetOperation(s.activate)
    c:RegisterEffect(e1)
    --overlay
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(id,1))
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,id)
    e2:SetTarget(s.ovtg)
    e2:SetOperation(s.ovop)
    c:RegisterEffect(e2)
    --act in hand
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_TRAP_ACT_IN_HAND)
    e3:SetCondition(s.con)
    c:RegisterEffect(e3)
    end
    function s.con(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnPlayer()==e:GetHandlerPlayer()
    end
    function s.costfilter(c,tp)
    return c:IsFaceup() and c:IsRace(RACE_BEAST) and c:IsType(TYPE_XYZ)
    and c:CheckRemoveOverlayCard(tp,1,REASON_COST)
    end
    function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_MZONE,0,1,nil,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEATTACHFROM)
    local tc=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_MZONE,0,1,1,nil,tp):GetFirst()
    tc:RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function s.filter(c)
    return c:IsCode(29930100) and c:IsAbleToHand()
    end
    function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function s.activate(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function s.ovfilter(c)
    return c:IsFaceup() and not c:IsSetCard(0x48) and
    c:GetBaseAttack()==1000 and c:GetBaseDefense()==1000
    and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_EARTH)
    and c:IsRank(2) and c:IsType(TYPE_XYZ)
    end
    function s.ovtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.ovfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(s.ovfilter,tp,LOCATION_MZONE,0,1,nil)
    and e:GetHandler():IsCanOverlay() end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    Duel.SelectTarget(tp,s.ovfilter,tp,LOCATION_MZONE,0,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
    end
    function s.ovop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsRelateToEffect(e) and c:IsCanOverlay() and tc:IsRelateToEffect(e) and not c:IsImmuneToEffect(e) and not tc:IsImmuneToEffect(e) then
    Duel.Overlay(tc,Group.FromCards(c))
    end
    end
    expansions/script/c96077000.lua deleted 100644 → 0
    View file @ 930ce326
    --The world of AI
    local m=96077000
    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:SetCountLimit(3,m)
    e1:SetTarget(cm.target)
    c:RegisterEffect(e1)
    end
    function cm.thfilter(c)
    return aux.IsCodeListed(c,96077000) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER)
    end
    function cm.spfilter(c,e,tp)
    return aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.mdfilter(c)
    return aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
    end
    function cm.cwfilter(c)
    return aux.IsCodeListed(c,96077000) and c:IsAbleToDeck()
    end
    --Activate
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    local b1=Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil,e,tp)
    local b2=Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
    local b3=Duel.IsExistingMatchingCard(cm.mdfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
    local b4=Duel.IsExistingMatchingCard(cm.cwfilter,tp,LOCATION_REMOVED,0,2,2,nil,e,tp)
    if chk==0 then return b1 or b2 or b3 or b4 end
    local off=1
    local ops={}
    local opval={}
    if b1 then
    ops[off]=aux.Stringid(m,0)
    opval[off-1]=1
    off=off+1
    end
    if b2 then
    ops[off]=aux.Stringid(m,1)
    opval[off-1]=2
    off=off+1
    end
    if b3 then
    ops[off]=aux.Stringid(m,2)
    opval[off-1]=3
    off=off+1
    end
    if b4 then
    ops[off]=aux.Stringid(m,3)
    opval[off-1]=4
    off=off+1
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EFFECT)
    local op=Duel.SelectOption(tp,table.unpack(ops))
    if opval[op]==1 then
    e:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e:SetOperation(cm.thop)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    elseif opval[op]==2 then
    e:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e:SetOperation(cm.spop)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
    elseif opval[op]==3 then
    e:SetCategory(CATEGORY_TOHAND)
    e:SetOperation(cm.hthop)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
    elseif opval[op]==4 then
    if chk==0 then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and cm.cwfilter(chkc) end
    if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
    and Duel.IsExistingTarget(cm.cwfilter,tp,LOCATION_REMOVED,0,2,nil) end
    local g=Duel.SelectTarget(tp,cm.cwfilter,tp,LOCATION_REMOVED,0,2,2,nil)
    e:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
    e:SetOperation(cm.tdop)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,2,tp,LOCATION_REMOVED)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    end
    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)
    end
    end
    function cm.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,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function cm.hthop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.mdfilter),tp,LOCATION_GRAVE,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
    local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
    if not e:GetHandler():IsRelateToEffect(e) or not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=2 then return end
    Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    local g=Duel.GetOperatedGroup()
    if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end
    local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
    if ct==2 then
    Duel.BreakEffect()
    Duel.Draw(tp,1,REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/script/c96077001.lua deleted 100644 → 0
    View file @ 930ce326
    --赤魔导士
    local m=96077001
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --to field
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.operation)
    c:RegisterEffect(e1)
    --spsummon from szone
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,1))
    e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e4:SetType(EFFECT_TYPE_QUICK_O)
    e4:SetRange(LOCATION_SZONE)
    e4:SetCode(EVENT_FREE_CHAIN)
    e4:SetCountLimit(1,96077002)
    e4:SetHintTiming(0,TIMING_MAIN_END)
    e4:SetCondition(cm.spcon)
    e4:SetTarget(cm.sptg)
    e4:SetOperation(cm.spop)
    c:RegisterEffect(e4)
    end
    --to field
    function cm.cfilter(c)
    return c:IsCode(96077000) and not c:IsPublic()
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,nil)
    Duel.ConfirmCards(1-tp,g)
    Duel.ShuffleHand(tp)
    end
    function cm.target(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.operation(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
    --spsummon from szone
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    local ph=Duel.GetCurrentPhase()
    return (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) and e:GetHandler():GetType()==TYPE_TRAP+TYPE_CONTINUOUS
    end
    function cm.sfilter(c,e,tp)
    return c:IsLocation(LOCATION_SZONE) and c:GetOriginalType()&TYPE_MONSTER>0
    and c:IsFaceup() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.sfilter,tp,LOCATION_SZONE,0,1,nil,e,tp) end
    local g=Duel.GetMatchingGroup(cm.sfilter,tp,LOCATION_SZONE,0,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
    end
    function cm.filter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToHand()
    and c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.sfilter,tp,LOCATION_SZONE,0,1,1,nil,e,tp)
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    \ No newline at end of file
    expansions/script/c96077003.lua deleted 100644 → 0
    View file @ 930ce326
    --宇宙英雄
    local m=96077003
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --fusion summon
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCode(EVENT_SUMMON_SUCCESS)
    e1:SetCountLimit(1,m)
    e1:SetCondition(cm.condition)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e2)
    --Special Summon (from hand : itself)
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,1))
    e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e3:SetCode(EVENT_ATTACK_ANNOUNCE)
    e3:SetRange(LOCATION_HAND)
    e3:SetCountLimit(1,96077004)
    e3:SetCondition(cm.spcon)
    e3:SetTarget(cm.sptg)
    e3:SetOperation(cm.spop)
    c:RegisterEffect(e3)
    end
    --fusion summon
    function cm.condition(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetCurrentPhase()&(PHASE_DAMAGE+PHASE_DAMAGE_CAL)==0
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
    Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
    end
    function cm.filter0(c)
    return c:IsFaceup() and c:IsCanBeFusionMaterial()
    end
    function cm.filter1(c,e)
    return not c:IsImmuneToEffect(e)
    end
    function cm.filter2(c,e,tp,m,f,gc,chkf)
    return c:IsType(TYPE_FUSION) and (not f or f(c))
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
    end
    function cm.chkfilter(c,tp)
    return c:IsOnField() and c:IsControler(tp)
    end
    function cm.fcheck(c)
    return function(tp,sg,fc)
    return not sg:IsExists(cm.chkfilter,1,c,tp)
    end
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then
    local chkf=tp
    local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsOnField,nil)
    local mg2=Duel.GetMatchingGroup(cm.filter0,tp,0,LOCATION_MZONE,nil)
    if mg2:GetCount()>0 then
    mg1:Merge(mg2)
    end
    local res=Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c,chkf)
    if not res then
    local ce=Duel.GetChainMaterial(tp)
    if ce~=nil then
    local fgroup=ce:GetTarget()
    local mg3=fgroup(ce,e,tp)
    local mf=ce:GetValue()
    res=Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,c,chkf)
    end
    end
    return res
    end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local chkf=tp
    if Duel.GetCurrentPhase()&(PHASE_DAMAGE+PHASE_DAMAGE_CAL)~=0 then return end
    if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end
    local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsOnField,nil):Filter(cm.filter1,nil,e)
    local mg2=Duel.GetMatchingGroup(cm.filter0,tp,0,LOCATION_MZONE,nil):Filter(cm.filter1,nil,e)
    if mg2:GetCount()>0 then
    mg1:Merge(mg2)
    end
    local sg1=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c,chkf)
    local mg3=nil
    local sg2=nil
    local ce=Duel.GetChainMaterial(tp)
    if ce~=nil then
    local fgroup=ce:GetTarget()
    mg3=fgroup(ce,e,tp)
    local mf=ce:GetValue()
    sg2=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,c,chkf)
    end
    if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
    local sg=sg1:Clone()
    if sg2 then sg:Merge(sg2) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local tg=sg:Select(tp,1,1,nil)
    local tc=tg:GetFirst()
    if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
    local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,c,chkf)
    tc:SetMaterial(mat1)
    Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
    Duel.BreakEffect()
    Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
    else
    local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,c,chkf)
    local fop=ce:GetOperation()
    fop(ce,e,tp,tc,mat2)
    end
    tc:CompleteProcedure()
    end
    end
    --Special Summon (from hand : itself)
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetAttacker():IsControler(1-tp)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    end
    function cm.filter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToHand()
    and c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not c:IsRelateToEffect(e) then return end
    if Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetValue(1)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e1)
    end
    Duel.SpecialSummonComplete()
    end
    \ No newline at end of file
    expansions/script/c96077005.lua deleted 100644 → 0
    View file @ 930ce326
    --耀光翔龙
    local m=96077005
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --special summon other monsters
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetCondition(cm.spcon)
    e1:SetCost(cm.spcost)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --spsummon
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetCode(EVENT_RELEASE)
    e2:SetCountLimit(1,96077006)
    e2:SetTarget(cm.suptg)
    e2:SetOperation(cm.supop)
    c:RegisterEffect(e2)
    end
    --special summon other monsters
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsReleasable() end
    Duel.Release(e:GetHandler(),REASON_COST)
    end
    function cm.spfilter(c,e,tp)
    return aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA+LOCATION_GRAVE)
    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,cm.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    local tc=g:GetFirst()
    if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetValue(1)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
    e2:SetValue(1)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_DISABLE)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e3)
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_DISABLE_EFFECT)
    e4:SetValue(RESET_TURN_SET)
    e4:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e4)
    end
    Duel.SpecialSummonComplete()
    end
    end
    --spsummon
    function cm.suptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.Hint(HINT_SELECTMSG,tp,HINGMSG_LVRANK)
    local lv=Duel.AnnounceLevel(tp,1,5)
    e:SetLabel(lv)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    end
    function cm.filter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToHand()
    and c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.supop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_CHANGE_LEVEL)
    e1:SetValue(e:GetLabel())
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    Duel.SpecialSummonComplete()
    end
    end
    \ No newline at end of file
    expansions/script/c96077007.lua deleted 100644 → 0
    View file @ 930ce326
    --胜利皇 维特利
    local m=96077007
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --disable attack
    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_ATTACK_ANNOUNCE)
    e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
    e1:SetCountLimit(1)
    e1:SetCost(cm.atkcost)
    e1:SetTarget(cm.atktg)
    e1:SetOperation(cm.atkop)
    c:RegisterEffect(e1)
    --FUSION Summon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
    e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
    e2:SetCountLimit(1,96077008)
    e2:SetCondition(cm.spcon)
    e2:SetTarget(cm.sptg)
    e2:SetOperation(cm.spop)
    c:RegisterEffect(e2)
    --SYNCHRO Summon
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,2))
    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
    e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
    e3:SetRange(LOCATION_HAND+LOCATION_GRAVE)
    e3:SetCountLimit(1,96077008)
    e3:SetCondition(cm.eqcon)
    e3:SetTarget(cm.eqtg)
    e3:SetOperation(cm.eqop)
    c:RegisterEffect(e3)
    --XYZ Summon
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,3))
    e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e4:SetCode(EVENT_SPSUMMON_SUCCESS)
    e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
    e4:SetRange(LOCATION_HAND+LOCATION_GRAVE)
    e4:SetCountLimit(1,96077008)
    e4:SetCondition(cm.matcon)
    e4:SetTarget(cm.mattg)
    e4:SetOperation(cm.matop)
    c:RegisterEffect(e4)
    end
    --disable attack
    function cm.cosfilter(c)
    return c:IsCode(96077000) and c:IsDiscardable()
    end
    function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.cosfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.DiscardHand(tp,cm.cosfilter,1,1,REASON_COST+REASON_DISCARD)
    end
    function cm.atktg(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.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not c:IsRelateToEffect(e) then return end
    if Duel.NegateAttack() then
    Duel.BreakEffect()
    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(2500)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e1)
    end
    Duel.SpecialSummonComplete()
    end
    --FUSION Summon
    function cm.cfilter(c,e,tp,se)
    return c:IsFaceup() and aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsType(TYPE_FUSION) and c:IsControler(tp) and c:IsCanBeEffectTarget(e)
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.cfilter,1,nil,e,tp,se)
    end
    function cm.tgfilter(c,tp,eg)
    return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsControler(tp)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.tgfilter(chkc,tp,eg) end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.Hint(HINT_SELECTMSG,tp,HINGMSG_LVRANK)
    local lv=Duel.AnnounceLevel(tp,1,5)
    e:SetLabel(lv)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_ADD_TYPE)
    e1:SetValue(TYPE_TUNER)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_CHANGE_LEVEL)
    e2:SetValue(e:GetLabel())
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e2)
    end
    Duel.SpecialSummonComplete()
    end
    --SYNCHRO Summon
    function cm.eqfilter(c,e,tp,se)
    return c:IsFaceup() and aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsType(TYPE_SYNCHRO) and c:IsControler(tp) and c:IsCanBeEffectTarget(e)
    end
    function cm.eqcon(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.eqfilter,1,nil,e,tp,se)
    end
    function cm.zbfilter(c)
    return c:IsFaceup() and aux.IsCodeListed(c,96077000) and c:IsType(TYPE_SYNCHRO)
    end
    function cm.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.zbfilter(chkc) end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingTarget(cm.zbfilter,tp,LOCATION_MZONE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
    Duel.SelectTarget(tp,cm.zbfilter,tp,LOCATION_MZONE,0,1,1,nil)
    end
    function cm.eqop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not c:IsRelateToEffect(e) then return end
    if c:IsLocation(LOCATION_MZONE) and c:IsFacedown() then return end
    local tc=Duel.GetFirstTarget()
    if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:IsControler(1-tp) or tc:IsFacedown() or not tc:IsRelateToEffect(e) or not c:CheckUniqueOnField(tp) then
    Duel.SendtoGrave(c,REASON_EFFECT)
    return
    end
    cm.zw_equip_monster(c,tp,tc)
    end
    function cm.zw_equip_monster(c,tp,tc)
    if not Duel.Equip(tp,c,tc) then return end
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_EQUIP_LIMIT)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetValue(cm.eqlimit)
    e1:SetLabelObject(tc)
    c:RegisterEffect(e1)
    --atkup
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_EQUIP)
    e2:SetCode(EFFECT_UPDATE_ATTACK)
    e2:SetValue(2000)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e2)
    end
    function cm.eqlimit(e,c)
    return c==e:GetLabelObject()
    end
    --XYZ Summon
    function cm.clfilter(c,e,tp,se)
    return c:IsFaceup() and aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsType(TYPE_XYZ) and c:IsControler(tp) and c:IsCanBeEffectTarget(e)
    and (se==nil or c:GetReasonEffect()~=se)
    end
    function cm.matcon(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.clfilter,1,nil,e,tp,se)
    end
    function cm.matfilter(c,tp,eg)
    return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsControler(tp)
    end
    function cm.mattg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.matfilter(chkc) end
    if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING)
    and Duel.IsExistingTarget(cm.matfilter,tp,LOCATION_MZONE,0,1,nil)
    and e:GetHandler():IsCanOverlay() end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    Duel.SelectTarget(tp,cm.matfilter,tp,LOCATION_MZONE,0,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
    end
    function cm.matop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
    Duel.Overlay(tc,Group.FromCards(c))
    end
    end
    \ No newline at end of file
    expansions/script/c96077009.lua deleted 100644 → 0
    View file @ 930ce326
    --数码访问龙
    local m=96077009
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetRange(LOCATION_HAND)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --Link special summon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
    e2:SetCode(EVENT_CUSTOM+m)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,96077010)
    e2:SetCondition(cm.lkcon)
    e2:SetTarget(cm.lktg)
    e2:SetOperation(cm.lkop)
    c:RegisterEffect(e2)
    if not cm.global_check then
    cm.global_check=true
    local ge1=Effect.CreateEffect(c)
    ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge1:SetCode(EVENT_BATTLE_DESTROYED)
    ge1:SetCondition(cm.regcon)
    ge1:SetOperation(cm.regop)
    Duel.RegisterEffect(ge1,0)
    local ge2=ge1:Clone()
    ge2:SetCode(EVENT_TO_GRAVE)
    ge2:SetCondition(cm.regcon2)
    Duel.RegisterEffect(ge2,0)
    end
    end
    function cm.cfilter(c)
    return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_FACEUP) and aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER)
    end
    function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
    if eg:IsExists(cm.cfilter,1,nil) then
    e:SetLabel(PLAYER_ALL)
    return true
    end
    e:SetLabel(PLAYER_NONE)
    return false
    end
    function cm.cfilter2(c,p)
    return not c:IsReason(REASON_BATTLE) and c:IsControler(p) and cm.cfilter(c)
    end
    function cm.regcon2(e,tp,eg,ep,ev,re,r,rp)
    local v=0
    if eg:IsExists(cm.cfilter2,1,nil,0) then v=v+1 end
    if eg:IsExists(cm.cfilter2,1,nil,1) then v=v+2 end
    if v==0 then return false end
    e:SetLabel(({0,1,PLAYER_ALL})[v])
    return true
    end
    function cm.regop(e,tp,eg,ep,ev,re,r,rp)
    Duel.RaiseEvent(eg,EVENT_CUSTOM+m,re,r,rp,ep,e:GetLabel())
    end
    --special summon
    function cm.spfilter(c)
    return aux.IsCodeListed(c,96077000) and c:IsFaceup() and c:IsAbleToHand() and not c:IsCode(m)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_ONFIELD) and cm.spfilter(chkc) end
    local c=e:GetHandler()
    if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingTarget(cm.spfilter,tp,LOCATION_ONFIELD,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
    local g=Duel.SelectTarget(tp,cm.spfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
    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 not c:IsRelateToEffect(e) then return end
    if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    Duel.SendtoHand(tc,nil,REASON_EFFECT)
    end
    end
    end
    --Link special summon
    function cm.lkcon(e,tp,eg,ep,ev,re,r,rp)
    return ev==tp or ev==PLAYER_ALL
    end
    function cm.lkfilter(c,mc)
    return c:IsLinkSummonable(nil,mc)
    end
    function cm.supfilter(c,e,tp)
    return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    and Duel.IsExistingMatchingCard(cm.lkfilter,tp,LOCATION_EXTRA,0,1,nil,c)
    end
    function cm.lktg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2)
    and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(cm.supfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
    end
    function cm.lkop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
    Duel.BreakEffect()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.supfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
    local tc=g:GetFirst()
    if not tc then return end
    if not Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
    Duel.SpecialSummonComplete()
    return
    end
    local c=e:GetHandler()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_DISABLE_EFFECT)
    e2:SetValue(RESET_TURN_SET)
    tc:RegisterEffect(e2)
    Duel.SpecialSummonComplete()
    Duel.AdjustAll()
    if not tc:IsLocation(LOCATION_MZONE) then return end
    local tg=Duel.GetMatchingGroup(cm.lkfilter,tp,LOCATION_EXTRA,0,nil,tc)
    if tg:GetCount()>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local sg=tg:Select(tp,1,1,nil)
    local sc=sg:GetFirst()
    --effect gain
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e3:SetCode(EVENT_BE_PRE_MATERIAL)
    e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
    e3:SetCondition(cm.effcon)
    e3:SetOperation(cm.effop2)
    tc:RegisterEffect(e3,true)
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e4:SetCode(EVENT_BE_MATERIAL)
    e4:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
    e4:SetCondition(cm.effcon)
    e4:SetOperation(cm.effop1)
    tc:RegisterEffect(e4,true)
    Duel.LinkSummon(tp,sc,nil,tc)
    end
    end
    end
    function cm.effcon(e,tp,eg,ep,ev,re,r,rp)
    return r==REASON_LINK
    end
    function cm.effop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetOperation(cm.sumop)
    rc:RegisterEffect(e1,true)
    e:Reset()
    end
    function cm.chainlm(e,rp,tp)
    return tp==rp
    end
    function cm.effop2(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e1,true)
    e:Reset()
    end
    \ No newline at end of file
    expansions/script/c96077011.lua deleted 100644 → 0
    View file @ 930ce326
    --能量重构
    local m=96077011
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --select effect
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetTarget(cm.target)
    c:RegisterEffect(e1)
    --act in hand
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
    e2:SetCondition(cm.handcon)
    c:RegisterEffect(e2)
    --sset
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,4))
    e3:SetType(EFFECT_TYPE_IGNITION)
    e3:SetRange(LOCATION_GRAVE)
    e3:SetCondition(aux.exccon)
    e3:SetCost(cm.setcost)
    e3:SetTarget(cm.settg)
    e3:SetOperation(cm.setop)
    c:RegisterEffect(e3)
    end
    --Activate
    function cm.thfilter(c)
    return c:IsCode(96077000) and c:IsAbleToHand()
    end
    function cm.spfilter(c,e,tp)
    return aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    local b1=Duel.IsPlayerCanDraw(tp,1)
    local b2=Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp)
    local g=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
    local b3=g:GetCount()>0
    local b4=Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
    if chk==0 then return b1 or b2 or b3 or b4 end
    local off=1
    local ops={}
    local opval={}
    if b1 then
    ops[off]=aux.Stringid(m,0)
    opval[off-1]=1
    off=off+1
    end
    if b2 then
    ops[off]=aux.Stringid(m,1)
    opval[off-1]=2
    off=off+1
    end
    if b3 then
    ops[off]=aux.Stringid(m,2)
    opval[off-1]=3
    off=off+1
    end
    if b4 then
    ops[off]=aux.Stringid(m,3)
    opval[off-1]=4
    off=off+1
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EFFECT)
    local op=Duel.SelectOption(tp,table.unpack(ops))
    if opval[op]==1 then
    e:SetCategory(CATEGORY_DRAW)
    e:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e:SetOperation(cm.draw)
    Duel.SetTargetPlayer(tp)
    Duel.SetTargetParam(1)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    elseif opval[op]==2 then
    e:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e:SetOperation(cm.thop)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED)
    elseif opval[op]==3 then
    e:SetCategory(CATEGORY_DESTROY)
    e:SetOperation(cm.desop)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    elseif opval[op]==4 then
    e:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e:SetOperation(cm.spop)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
    end
    end
    function cm.draw(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 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+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    end
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
    if g:GetCount()>0 then
    Duel.Destroy(g,REASON_EFFECT)
    end
    end
    function cm.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,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    --act in hand
    function cm.hanfilter(c)
    return c:IsFaceup() and aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER)
    end
    function cm.handcon(e)
    return Duel.IsExistingMatchingCard(cm.hanfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
    end
    --sset
    function cm.ssetfilter(c)
    return aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
    end
    function cm.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.ssetfilter,tp,LOCATION_GRAVE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectMatchingCard(tp,cm.ssetfilter,tp,LOCATION_GRAVE,0,1,1,nil)
    Duel.Remove(g,POS_FACEUP,REASON_COST)
    end
    function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsSSetable() end
    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
    end
    function cm.setop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SSet(tp,c)~=0 then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
    e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e1)
    end
    end
    \ No newline at end of file
    expansions/script/c96077012.lua deleted 100644 → 0
    View file @ 930ce326
    --宇宙骑士 胜光
    local m=96077012
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcCodeFun(c,96077003,aux.FilterBoolFunction(Card.IsAttackAbove,2500),1,true,true)
    --place
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_ATKCHANGE)
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_PHASE+PHASE_END)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.operation)
    c:RegisterEffect(e1)
    --wuxiao
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_DISABLE)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_LEAVE_FIELD)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetCountLimit(1,96077013)
    e2:SetCondition(cm.wxcon)
    e2:SetTarget(cm.wxtg)
    e2:SetOperation(cm.wxop)
    c:RegisterEffect(e2)
    end
    --place
    function cm.filter(c)
    return aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and not c:IsForbidden()
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil)
    and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
    end
    function cm.mcfilter(c)
    return c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    local tc=g:GetFirst()
    if tc then
    Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
    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)
    tc:RegisterEffect(e1)
    Duel.AdjustAll()
    Duel.BreakEffect()
    local ct=Duel.GetMatchingGroupCount(cm.mcfilter,tp,LOCATION_SZONE,0,nil)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_UPDATE_ATTACK)
    e2:SetValue(ct*500)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e2)
    end
    end
    end
    --wuxiao
    function cm.wxcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:IsSummonType(SUMMON_TYPE_FUSION) and c:IsPreviousLocation(LOCATION_MZONE)
    and c:IsPreviousControler(tp) and c:GetReasonPlayer()==1-tp
    end
    function cm.wxtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,1,nil) end
    local g=Duel.GetMatchingGroup(aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,nil)
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,g:GetCount(),0,0)
    if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
    Duel.SetChainLimit(cm.chainlm)
    end
    end
    function cm.chainlm(e,rp,tp)
    return not e:GetHandler():IsType(TYPE_MONSTER)
    end
    function cm.wxfilter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToHand()
    and c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.wxop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,nil)
    local tc=g:GetFirst()
    while tc do
    local e1=Effect.CreateEffect(e:GetHandler())
    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(e:GetHandler())
    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+RESET_SELF_TURN)
    tc:RegisterEffect(e2)
    tc=g:GetNext()
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.wxfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    \ No newline at end of file
    expansions/script/c96077014.lua deleted 100644 → 0
    View file @ 930ce326
    --宇宙龙战士 轰天
    local m=96077014
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcCodeFun(c,96077003,cm.mfilter,1,true,true)
    --Atk & Def
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_REMOVE)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.regtg)
    e1:SetOperation(cm.regop)
    c:RegisterEffect(e1)
    --SP Summon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_LEAVE_FIELD)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetCountLimit(1,96077015)
    e2:SetCondition(cm.spcon)
    e2:SetTarget(cm.sptg)
    e2:SetOperation(cm.spop)
    c:RegisterEffect(e2)
    end
    function cm.mfilter(c)
    return c:IsStatus(STATUS_SPSUMMON_TURN) and c:IsFusionType(TYPE_EFFECT) and c:IsLocation(LOCATION_MZONE)
    end
    --Atk & Def
    function cm.filter(c)
    return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
    end
    function cm.regtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and cm.filter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,0,LOCATION_GRAVE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectTarget(tp,cm.filter,tp,0,LOCATION_GRAVE,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,1-tp,LOCATION_GRAVE)
    e:SetLabel(g:GetFirst():GetAttack())
    end
    function cm.regop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsFaceup() and c:IsRelateToEffect(e) and Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_REMOVED) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(e:GetLabel())
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e2)
    local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
    local tc=g:GetFirst()
    while tc do
    local e3=Effect.CreateEffect(e:GetHandler())
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_UPDATE_ATTACK)
    e3:SetValue(cm.value)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_UPDATE_DEFENSE)
    tc:RegisterEffect(e4)
    tc=g:GetNext()
    end
    end
    end
    function cm.value(e,c)
    return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_REMOVED,LOCATION_REMOVED)*(-500)
    end
    --SP Summon
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:IsSummonType(SUMMON_TYPE_FUSION) and c:IsPreviousLocation(LOCATION_MZONE)
    and c:IsPreviousControler(tp) and c:GetReasonPlayer()==1-tp
    end
    function cm.spfilter(c,e,tp)
    return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and cm.spfilter(chkc,e,tp) end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingTarget(cm.spfilter,tp,LOCATION_GRAVE,0,3,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectTarget(tp,cm.spfilter,tp,LOCATION_GRAVE,0,3,3,nil,e,tp)
    end
    function cm.stfilter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToHand()
    and c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetTargetsRelateToChain()
    if #g~=3 then return end
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
    local sg=g:Select(tp,1,1,nil)
    Duel.HintSelection(sg)
    g:RemoveCard(sg:GetFirst())
    local opt=Duel.SelectOption(1-tp,aux.Stringid(m,1),aux.Stringid(m,2))
    if opt==0 then
    Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
    else
    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
    if ft>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
    if ft>0 then
    local sg2=g
    if ft<#g then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    sg2=g:Select(tp,ft,ft,nil)
    end
    Duel.SpecialSummon(sg2,0,tp,tp,false,false,POS_FACEUP)
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.stfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c96077016.lua deleted 100644 → 0
    View file @ 930ce326
    --宇宙皇 王牌帝
    local m=96077016
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcCodeFun(c,96077003,aux.FilterBoolFunction(Card.IsFusionType,TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK),1,true,true)
    --immue
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY+CATEGORY_DAMAGE)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_CHAINING)
    e1:SetCountLimit(1,m)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCondition(cm.imcon)
    e1:SetTarget(cm.imtg)
    e1:SetOperation(cm.imop)
    c:RegisterEffect(e1)
    --atk
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_ATKCHANGE)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP)
    e2:SetCountLimit(1,96077017)
    e2:SetRange(LOCATION_MZONE)
    e2:SetTarget(cm.tg)
    e2:SetOperation(cm.op)
    c:RegisterEffect(e2)
    --swap ad
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD)
    e3:SetCode(EFFECT_MUST_ATTACK)
    e3:SetRange(LOCATION_MZONE)
    e3:SetTargetRange(0,LOCATION_MZONE)
    c:RegisterEffect(e3)
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_FIELD)
    e4:SetCode(EFFECT_CANNOT_ACTIVATE)
    e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e4:SetTargetRange(0,1)
    e4:SetRange(LOCATION_MZONE)
    e4:SetValue(1)
    e4:SetCondition(cm.actcon)
    c:RegisterEffect(e4)
    end
    --immue
    function cm.imcon(e,tp,eg,ep,ev,re,r,rp)
    return rp==1-tp and re:IsActiveType(TYPE_MONSTER)
    end
    function cm.imtg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
    local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0)
    end
    function cm.imop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=re:GetHandler()
    if c:IsRelateToEffect(e) and c:IsFaceup() then
    local atk=0
    if rc:IsRelateToEffect(re) and (rc:IsFaceup() or not rc:IsLocation(LOCATION_MZONE)) then
    if rc:IsControler(1-tp) then
    atk=rc:GetBaseAttack()
    end
    else
    atk=rc:GetTextAttack()
    end
    if atk>0 then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(atk)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e1)
    end
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,3))
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCode(EFFECT_IMMUNE_EFFECT)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CLIENT_HINT)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    e2:SetValue(cm.efilter)
    c:RegisterEffect(e2)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
    if g:GetCount()>0 then
    local atk=g:GetFirst():GetTextAttack()
    if atk<0 then atk=0 end
    Duel.HintSelection(g)
    if Duel.Destroy(g,REASON_EFFECT)~=0 then
    Duel.Damage(1-tp,atk,REASON_EFFECT)
    end
    end
    end
    end
    function cm.efilter(e,te)
    return te:IsActivated() and te:IsActiveType(TYPE_MONSTER) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
    end
    --atk
    function cm.q(c)
    return c:IsFaceup() and c:IsType(TYPE_MONSTER)
    end
    function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    local c=e:GetHandler()
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.q(chkc) end
    if chk==0 then return not c:IsAttack(0) and Duel.IsExistingTarget(cm.q,tp,LOCATION_MZONE,0x04,1,c) end
    Duel.Hint(3,tp,HINTMSG_FACEUP)
    local g=Duel.SelectTarget(tp,cm.q,tp,LOCATION_MZONE,0x04,1,1,c)
    Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,c,1,0,c:GetAttack())
    Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,1,0,c:GetAttack())
    end
    function cm.op(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsRelateToEffect(e) and not c:IsAttack(0) and c:IsFaceup() then
    local atk=c:GetAttack()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_ATTACK_FINAL)
    e1:SetValue(0)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e1,true)
    if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_UPDATE_ATTACK)
    e2:SetValue(atk)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e3:SetValue(1)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e3,true)
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_FIELD)
    e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e4:SetCode(EFFECT_REVERSE_DAMAGE)
    e4:SetTargetRange(1,0)
    e4:SetValue(1)
    e4:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e4,tp)
    end
    end
    end
    --swap ad
    function cm.actcon(e)
    local ph=Duel.GetCurrentPhase()
    return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
    end
    \ No newline at end of file
    expansions/script/c96077018.lua deleted 100644 → 0
    View file @ 930ce326
    --叛逆辉光 胜利龙
    local m=96077018
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --xyz summon
    aux.AddXyzProcedure(c,nil,7,2)
    c:EnableReviveLimit()
    --atk
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_ATKCHANGE)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCountLimit(1,m)
    e1:SetOperation(cm.atkop)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(CATEGORY_DEFCHANGE)
    c:RegisterEffect(e2)
    --spsummon
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,1))
    e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCountLimit(1,96077019)
    e3:SetCost(cm.spcost)
    e3:SetTarget(cm.sptg)
    e3:SetOperation(cm.spop)
    c:RegisterEffect(e3)
    end
    --atk
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
    local tc=g:GetFirst()
    while tc do
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_ATTACK_FINAL)
    e1:SetValue(0)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    tc=g:GetNext()
    end
    end
    --spsummon
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function cm.spfilter(c,e,tp)
    return c:IsLevel(7) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
    end
    function cm.filter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToHand()
    and c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,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)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c96077021.lua deleted 100644 → 0
    View file @ 930ce326
    --尽灭黑洞龙
    local m=96077021
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --xyz summon
    aux.AddXyzProcedure(c,nil,7,2)
    c:EnableReviveLimit()
    --destroy
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_DESTROY)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
    e1:SetCost(cm.descost)
    e1:SetTarget(cm.destg)
    e1:SetOperation(cm.desop)
    c:RegisterEffect(e1)
    --atk up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_ATKCHANGE)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_ATTACK_ANNOUNCE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetCountLimit(1,96077021)
    e2:SetCondition(cm.upcon)
    e2:SetTarget(cm.uptg)
    e2:SetOperation(cm.upop)
    c:RegisterEffect(e2)
    end
    --destroy
    function cm.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 cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsOnField() and chkc:IsFaceup() end
    if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    end
    function cm.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
    --atk up
    function cm.upcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetBattleMonster(1-tp)
    return tc and tc:IsRelateToBattle() and (Duel.GetAttacker()==c or Duel.GetAttackTarget()==c)
    end
    function cm.uptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and aux.nzatk(chkc) end
    if chk==0 then return Duel.IsExistingTarget(aux.nzatk,tp,0,LOCATION_MZONE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    Duel.SelectTarget(tp,aux.nzatk,tp,0,LOCATION_MZONE,1,1,nil)
    end
    function cm.upop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel:GetFirstTarget()
    if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(tc:GetAttack())
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e1)
    end
    end
    \ No newline at end of file
    expansions/script/c96077022.lua deleted 100644 → 0
    View file @ 930ce326
    --凯旋骑士 英勇王
    local m=96077022
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --xyz summon
    aux.AddXyzProcedure(c,nil,7,2)
    c:EnableReviveLimit()
    --remove
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_REMOVE)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.rmcost)
    e1:SetTarget(cm.rmtg)
    e1:SetOperation(cm.rmop)
    c:RegisterEffect(e1)
    --spsummon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,2))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_DESTROYED)
    e2:SetCountLimit(1,96077023)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetTarget(cm.sptg)
    e2:SetOperation(cm.spop)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e3:SetCode(EVENT_LEAVE_FIELD_P)
    e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e3:SetLabelObject(e2)
    e3:SetOperation(cm.chk)
    c:RegisterEffect(e3)
    end
    --remove
    function cm.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function cm.rmfilter(c)
    return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
    end
    function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and chkc:IsControler(1-tp) and cm.rmfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.rmfilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectTarget(tp,cm.rmfilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,1,nil)
    local tc=g:GetFirst()
    if tc:IsLocation(LOCATION_GRAVE) then
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,1-tp,LOCATION_GRAVE)
    else
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
    end
    end
    function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    local c=e:GetHandler()
    local atk=0
    if tc:IsRelateToEffect(e) and Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=0 then
    if tc:IsType(TYPE_XYZ) then atk=tc:GetRank() else atk=tc:GetLevel() end
    if c:IsFaceup() and c:IsRelateToEffect(e) and atk>0 then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(atk*300)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e2)
    end
    end
    end
    --spsummon
    function cm.spfilter(c,e,tp)
    return c:IsLevel(7) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetLabel()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
    end
    function cm.cfilter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToHand()
    and c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.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,cm.spfilter,tp,LOCATION_GRAVE,0,1,e:GetLabel(),nil,e,tp)
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function cm.chk(e,tp,eg,ep,ev,re,r,rp)
    e:GetLabelObject():SetLabel(e:GetHandler():GetOverlayCount())
    end
    \ No newline at end of file
    expansions/script/c96077024.lua deleted 100644 → 0
    View file @ 930ce326
    --圣光玉龙 虹光
    local m=96077024
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --synchro summon
    aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
    c:EnableReviveLimit()
    --destroy
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_DESTROY)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.destg)
    e1:SetOperation(cm.desop)
    c:RegisterEffect(e1)
    --atkdown
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_PHASE+PHASE_END)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,96077025)
    e2:SetTarget(cm.atktg)
    e2:SetOperation(cm.atkop)
    c:RegisterEffect(e2)
    end
    --destroy
    function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
    local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
    if chk==0 then return g:GetCount()>0 end
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
    if g:GetCount()>0 then
    Duel.Destroy(g,REASON_EFFECT)
    end
    end
    --atkdown
    function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    if not Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) then
    Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000)
    end
    end
    function cm.cfilter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToHand()
    and c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
    if g:GetCount()>0 then
    local sc=g:GetFirst()
    while sc do
    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)
    sc:RegisterEffect(e1)
    sc=g:GetNext()
    end
    else
    Duel.Damage(1-tp,1000,REASON_EFFECT)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c96077026.lua deleted 100644 → 0
    View file @ 930ce326
    --净洁白龙
    local m=96077026
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --synchro summon
    aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
    c:EnableReviveLimit()
    --destroy
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetCategory(CATEGORY_DESTROY+CATEGORY_REMOVE)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
    e1:SetTarget(cm.destg)
    e1:SetOperation(cm.desop)
    c:RegisterEffect(e1)
    --special summon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,2))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
    e2:SetCountLimit(1,96077027)
    e2:SetCost(cm.spcost)
    e2:SetTarget(cm.sptg)
    e2:SetOperation(cm.spop)
    c:RegisterEffect(e2)
    end
    --destroy
    function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    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_REMOVE,g,1,0,0)
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
    if g:GetCount()>0 then
    Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT,LOCATION_REMOVED)
    end
    end
    --special summon
    function cm.cfilter(c)
    return c:IsCode(96077000) and c:IsDiscardable()
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.DiscardHand(tp,cm.cfilter,1,1,REASON_COST+REASON_DISCARD)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    end
    function cm.filter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToHand()
    and c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c96077028.lua deleted 100644 → 0
    View file @ 930ce326
    --闪耀光龙
    local m=96077028
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --synchro summon
    aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
    c:EnableReviveLimit()
    --Disable
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_DISABLE)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.hdtg)
    e1:SetOperation(cm.hdop)
    c:RegisterEffect(e1)
    --atk up
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_DESTROY)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,96077029)
    e2:SetCondition(cm.condition)
    e2:SetTarget(cm.target)
    e2:SetOperation(cm.operation)
    c:RegisterEffect(e2)
    end
    --Disable
    function cm.hdtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(aux.NegateMonsterFilter,tp,0,LOCATION_ONFIELD,1,nil) end
    local g=Duel.GetMatchingGroup(aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,nil)
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,g:GetCount(),0,0)
    if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
    Duel.SetChainLimit(cm.chainlm)
    end
    end
    function cm.chainlm(e,rp,tp)
    return not e:GetHandler():IsType(TYPE_MONSTER)
    end
    function cm.hdop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(aux.NegateMonsterFilter,tp,0,LOCATION_MZONE,nil)
    local tc=g:GetFirst()
    while tc do
    local e1=Effect.CreateEffect(e:GetHandler())
    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(e:GetHandler())
    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)
    tc=g:GetNext()
    end
    end
    --atk up
    function cm.condition(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetLP(tp)<Duel.GetLP(1-tp) and Duel.IsAbleToEnterBP() and not e:GetHandler():IsHasEffect(EFFECT_ATTACK_ALL)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    local b1=Duel.GetFieldGroup(1-tp,LOCATION_MZONE,0):Filter(aux.TRUE,nil,POS_ATTACK):GetCount()>0
    local b2=Duel.GetMatchingGroupCount(Card.IsType,tp,0,LOCATION_ONFIELD,c,TYPE_SPELL+TYPE_TRAP)>0
    if chk==0 then return b1 or b2 end
    local s=0
    if b1 and not b2 then
    s=Duel.SelectOption(tp,aux.Stringid(m,1))
    end
    if not b1 and b2 then
    s=Duel.SelectOption(tp,aux.Stringid(m,2))+1
    end
    if b1 and b2 then
    s=Duel.SelectOption(tp,aux.Stringid(m,1),aux.Stringid(m,2))
    end
    e:SetLabel(s)
    local g=nil
    if s==0 then
    g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
    end
    if s==1 then
    g=Duel.GetMatchingGroup(Card.IsType,tp,0,LOCATION_ONFIELD,c,TYPE_SPELL+TYPE_TRAP)
    end
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local g=nil
    if e:GetLabel()==0 then
    g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
    local ct=Duel.Destroy(g,REASON_EFFECT)
    if ct>0 and c:IsFaceup() and c:IsRelateToEffect(e) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
    e1:SetValue(ct*500)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    end
    end
    if e:GetLabel()==1 then
    g=Duel.GetMatchingGroup(Card.IsType,tp,0,LOCATION_ONFIELD,aux.ExceptThisCard(e),TYPE_SPELL+TYPE_TRAP)
    if g:GetCount()>0 then
    local ct=Duel.Destroy(g,REASON_EFFECT)
    Duel.Damage(1-tp,ct*500,REASON_EFFECT)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c96077030.lua deleted 100644 → 0
    View file @ 930ce326
    --红莲焰召唤龙
    local m=96077030
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    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:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --to hand
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_TOHAND)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_LEAVE_DECK)
    e2:SetRange(LOCATION_EXTRA)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e2:SetCountLimit(1,96077031)
    e2:SetCondition(cm.thcon)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    --pendulum set
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e3:SetCode(EVENT_LEAVE_DECK)
    e3:SetRange(LOCATION_GRAVE)
    e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e3:SetCountLimit(1,96077031)
    e3:SetCondition(cm.pencon)
    e3:SetTarget(cm.pentg)
    e3:SetOperation(cm.penop)
    c:RegisterEffect(e3)
    --spsummon
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,2))
    e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e4:SetCode(EVENT_SUMMON_SUCCESS)
    e4:SetProperty(EFFECT_FLAG_DELAY)
    e4:SetCountLimit(1,96077032)
    e4:SetTarget(cm.stptg)
    e4:SetOperation(cm.stpop)
    c:RegisterEffect(e4)
    local e5=e4:Clone()
    e5:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e5)
    end
    --special summon
    function cm.spfilter(c,e,tp)
    return aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectTarget(tp,cm.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)~=0 and tc:IsRelateToEffect(e) then
    Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1,true)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetCode(EFFECT_CANNOT_DISEFFECT)
    e2:SetRange(LOCATION_MZONE)
    e2:SetValue(cm.efilter)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e2,true)
    end
    end
    function cm.efilter(e,ct)
    local te=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT)
    return te:GetHandler()==e:GetHandler()
    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
    --spsummon
    function cm.stpfilter(c,e,tp)
    return aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.stptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.stpfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectTarget(tp,cm.stpfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
    end
    function cm.filter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToHand()
    and c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.stpop(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.stpfilter,tp,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)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c96077033.lua deleted 100644 → 0
    View file @ 930ce326
    --深渊海神秘龙
    local m=96077033
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    aux.EnablePendulumAttribute(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCountLimit(1,m)
    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)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_LEAVE_DECK)
    e2:SetRange(LOCATION_EXTRA)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e2:SetCountLimit(1,96077034)
    e2:SetCondition(cm.thcon)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    --pendulum set
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e3:SetCode(EVENT_LEAVE_DECK)
    e3:SetRange(LOCATION_GRAVE)
    e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e3:SetCountLimit(1,96077034)
    e3:SetCondition(cm.pencon)
    e3:SetTarget(cm.pentg)
    e3:SetOperation(cm.penop)
    c:RegisterEffect(e3)
    --special summon
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,1))
    e4:SetCategory(CATEGORY_DESTROY)
    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e4:SetProperty(EFFECT_FLAG_DELAY)
    e4:SetCode(EVENT_MOVE)
    e4:SetCountLimit(1,96077035)
    e4:SetCondition(cm.spcon)
    e4:SetTarget(cm.sptg)
    e4:SetOperation(cm.spop)
    c:RegisterEffect(e4)
    end
    --Activate
    function cm.spfilter1(c,e,tp)
    return aux.IsCodeListed(c,96077000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    and Duel.IsExistingTarget(cm.spfilter2,tp,LOCATION_PZONE,0,1,c,e,tp,c)
    end
    function cm.xyzlv(e,c,rc)
    return e:GetHandler():GetLevel()+e:GetLabel()*0x10000
    end
    function cm.spfilter2(c,e,tp,mc)
    if not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return false end
    local e1=nil
    local e2=nil
    if c:IsLevelAbove(1) and mc:IsLevelAbove(1) then
    e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_XYZ_LEVEL)
    e1:SetValue(cm.xyzlv)
    e1:SetLabel(mc:GetLevel())
    c:RegisterEffect(e1,true)
    e2=Effect.CreateEffect(e:GetHandler())
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_XYZ_LEVEL)
    e2:SetValue(cm.xyzlv)
    e2:SetLabel(c:GetLevel())
    mc:RegisterEffect(e2,true)
    end
    local res=Duel.IsExistingMatchingCard(Card.IsXyzSummonable,tp,LOCATION_EXTRA,0,1,nil,Group.FromCards(c,mc),2,2)
    if e1 then e1:Reset() end
    if e2 then e2:Reset() end
    return res
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return false end
    if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2)
    and not Duel.IsPlayerAffectedByEffect(tp,59822133)
    and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
    and Duel.IsExistingTarget(cm.spfilter1,tp,LOCATION_PZONE,0,1,nil,e,tp) end
    local g=Duel.GetFieldGroup(tp,LOCATION_PZONE,0)
    Duel.SetTargetCard(g)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0)
    end
    function cm.spfilter3(c,e,tp)
    return c:IsRelateToEffect(e) and aux.IsCodeListed(c,96077000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end
    local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(cm.spfilter3,nil,e,tp)
    if g:GetCount()<2 then return end
    local tc1=g:GetFirst()
    local tc2=g:GetNext()
    Duel.SpecialSummonStep(tc1,0,tp,tp,false,false,POS_FACEUP)
    Duel.SpecialSummonStep(tc2,0,tp,tp,false,false,POS_FACEUP)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc1:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_DISABLE_EFFECT)
    e2:SetValue(RESET_TURN_SET)
    tc1:RegisterEffect(e2)
    local e3=e1:Clone()
    tc2:RegisterEffect(e3)
    local e4=e2:Clone()
    tc2:RegisterEffect(e4)
    Duel.SpecialSummonComplete()
    Duel.AdjustAll()
    if g:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<2 then return end
    local e5=nil
    local e6=nil
    if tc1:IsLevelAbove(1) and tc2:IsLevelAbove(1) then
    e5=Effect.CreateEffect(e:GetHandler())
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_XYZ_LEVEL)
    e5:SetValue(cm.xyzlv)
    e5:SetLabel(tc2:GetLevel())
    e5:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc1:RegisterEffect(e5,true)
    e6=Effect.CreateEffect(e:GetHandler())
    e6:SetType(EFFECT_TYPE_SINGLE)
    e6:SetCode(EFFECT_XYZ_LEVEL)
    e6:SetValue(cm.xyzlv)
    e6:SetLabel(tc1:GetLevel())
    e6:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc2:RegisterEffect(e6,true)
    end
    local xyzg=Duel.GetMatchingGroup(Card.IsXyzSummonable,tp,LOCATION_EXTRA,0,nil,g,2,2)
    if xyzg:GetCount()>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
    Duel.XyzSummon(tp,xyz,g)
    else
    if e5 then e5:Reset() end
    if e6 then e5:Reset() end
    end
    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
    --special summon
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:IsReason(REASON_COST) and re:IsActivated() and re:IsActiveType(TYPE_XYZ)
    and c:IsPreviousLocation(LOCATION_OVERLAY)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil) end
    local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    end
    function cm.atkfilter(c)
    return c:IsFaceup() and aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_ONFIELD,1,1,nil)
    if #g>0 then
    Duel.HintSelection(g)
    Duel.Destroy(g,REASON_EFFECT)
    Duel.BreakEffect()
    local sg=Duel.GetMatchingGroup(cm.atkfilter,tp,LOCATION_MZONE,0,nil)
    for tc in aux.Next(sg) do
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetValue(1000)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c96077036.lua deleted 100644 → 0
    View file @ 930ce326
    --水晶翼未来龙
    local m=96077036
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    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:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --to hand
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_TOHAND)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_LEAVE_DECK)
    e2:SetRange(LOCATION_EXTRA)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e2:SetCountLimit(1,96077037)
    e2:SetCondition(cm.thcon)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    --pendulum set
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e3:SetCode(EVENT_LEAVE_DECK)
    e3:SetRange(LOCATION_GRAVE)
    e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e3:SetCountLimit(1,96077037)
    e3:SetCondition(cm.pencon)
    e3:SetTarget(cm.pentg)
    e3:SetOperation(cm.penop)
    c:RegisterEffect(e3)
    --effect gain
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e4:SetCode(EVENT_BE_MATERIAL)
    e4:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
    e4:SetCountLimit(1,96077038)
    e4:SetCondition(cm.effcon)
    e4:SetOperation(cm.effop)
    c:RegisterEffect(e4)
    end
    --special summon
    function cm.filter(c,e,tp)
    return c:IsType(TYPE_PENDULUM) and not c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
    and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
    and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
    and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_PZONE,0,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINGMSG_LVRANK)
    local lv=Duel.AnnounceLevel(tp,1,5)
    e:SetLabel(lv)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_PZONE)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,tp,LOCATION_EXTRA)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not e:GetHandler():IsRelateToEffect(e) then return end
    if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_PZONE,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    g:AddCard(c)
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_CHANGE_LEVEL)
    e1:SetValue(e:GetLabel())
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    --spsummon limit
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e2:SetTargetRange(1,0)
    e2:SetTarget(cm.sslimit)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e2)
    end
    end
    function cm.sslimit(e,c,sump,sumtype,sumpos,targetp,se)
    return c:IsLocation(LOCATION_EXTRA) and not aux.IsCodeListed(c,96077000) and c:IsType(TYPE_SYNCHRO)
    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
    --effect gain
    function cm.effcon(e,tp,eg,ep,ev,re,r,rp)
    return bit.band(r,REASON_FUSION+REASON_SYNCHRO+REASON_XYZ+REASON_LINK)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
    and aux.IsCodeListed(e:GetHandler():GetReasonCard(),96077000)
    end
    function cm.effop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    local e1=Effect.CreateEffect(rc)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetCategory(CATEGORY_TODECK+CATEGORY_DESTROY+CATEGORY_RECOVER)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetTarget(cm.destg)
    e1:SetOperation(cm.desop)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e1,true)
    if not rc:IsType(TYPE_EFFECT) then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_ADD_TYPE)
    e2:SetValue(TYPE_EFFECT)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e2,true)
    end
    rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
    end
    function cm.desfilter3(c,tp)
    return Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,1,c)
    end
    function cm.tdfilter(c)
    return (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED)) and aux.Stringid(m,3) and c:IsAbleToDeck()
    end
    function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsOnField() and cm.desfilter3(chkc,tp) end
    if chk==0 then return Duel.IsExistingTarget(cm.desfilter3,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectTarget(tp,cm.desfilter3,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,tp)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    local exc=nil
    if tc:IsRelateToEffect(e) then exc=tc end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.tdfilter),tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,exc)
    if g:GetCount()>0 and Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0
    and g:GetFirst():IsLocation(LOCATION_DECK+LOCATION_EXTRA) and tc:IsRelateToEffect(e) then
    if Duel.Destroy(tc,REASON_EFFECT)~=0 then
    Duel.BreakEffect()
    Duel.Recover(tp,1000,REASON_EFFECT)
    end
    end
    end
    \ No newline at end of file
    expansions/script/c96077039.lua deleted 100644 → 0
    View file @ 930ce326
    --猎食毒合成龙
    local m=96077039
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    aux.EnablePendulumAttribute(c)
    --fusion (p)
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.pftg)
    e1:SetOperation(cm.pfop)
    c:RegisterEffect(e1)
    --to hand
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_TOHAND)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_LEAVE_DECK)
    e2:SetRange(LOCATION_EXTRA)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e2:SetCountLimit(1,96077040)
    e2:SetCondition(cm.thcon)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    --pendulum set
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e3:SetCode(EVENT_LEAVE_DECK)
    e3:SetRange(LOCATION_GRAVE)
    e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e3:SetCountLimit(1,96077040)
    e3:SetCondition(cm.pencon)
    e3:SetTarget(cm.pentg)
    e3:SetOperation(cm.penop)
    c:RegisterEffect(e3)
    --Special Summon
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,3))
    e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e4:SetProperty(EFFECT_FLAG_DELAY)
    e4:SetCode(EVENT_DESTROYED)
    e4:SetCountLimit(1,96077041)
    e4:SetCondition(cm.spcon)
    e4:SetTarget(cm.sptg)
    e4:SetOperation(cm.spop)
    c:RegisterEffect(e4)
    end
    --fusion (p)
    function cm.mffilter0(c,e)
    return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e)
    end
    function cm.mffilter1(c,e)
    return not c:IsImmuneToEffect(e)
    end
    function cm.mffilter2(c,e,tp,m,f,gc,chkf)
    return aux.IsCodeListed(c,96077000) and c:IsType(TYPE_FUSION) and (not f or f(c))
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
    end
    function cm.pftg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then
    local chkf=tp
    local mg1=Duel.GetFusionMaterial(tp)
    mg1:Merge(Duel.GetMatchingGroup(cm.mffilter0,tp,LOCATION_PZONE,0,nil,e))
    local res=Duel.IsExistingMatchingCard(cm.mffilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
    if not res then
    local ce=Duel.GetChainMaterial(tp)
    if ce~=nil then
    local fgroup=ce:GetTarget()
    local mg2=fgroup(ce,e,tp)
    local mf=ce:GetValue()
    res=Duel.IsExistingMatchingCard(cm.mffilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
    end
    end
    return res
    end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.pfop(e,tp,eg,ep,ev,re,r,rp)
    local chkf=tp
    local mg1=Duel.GetFusionMaterial(tp):Filter(cm.mffilter1,nil,e)
    mg1:Merge(Duel.GetMatchingGroup(cm.mffilter0,tp,LOCATION_PZONE,0,nil,e))
    local sg1=Duel.GetMatchingGroup(cm.mffilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
    local mg2=nil
    local sg2=nil
    local ce=Duel.GetChainMaterial(tp)
    if ce~=nil then
    local fgroup=ce:GetTarget()
    mg2=fgroup(ce,e,tp)
    local mf=ce:GetValue()
    sg2=Duel.GetMatchingGroup(cm.mffilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
    end
    if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
    local sg=sg1:Clone()
    if sg2 then sg:Merge(sg2) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local tg=sg:Select(tp,1,1,nil)
    local tc=tg:GetFirst()
    if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
    local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
    tc:SetMaterial(mat1)
    Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
    Duel.BreakEffect()
    Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
    else
    local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
    local fop=ce:GetOperation()
    fop(ce,e,tp,tc,mat2)
    end
    tc:CompleteProcedure()
    end
    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
    --Special Summon
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
    end
    function cm.spfilter(c,e,tp)
    return aux.IsCodeListed(c,96077000) and not c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
    local tc=g:GetFirst()
    if tc then
    Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
    local atk=tc:GetAttack()
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_ATTACK)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetValue(atk*2)
    tc:RegisterEffect(e1)
    end
    end
    \ No newline at end of file
    expansions/script/c96077042.lua deleted 100644 → 0
    View file @ 930ce326
    --AI世界 创界树
    local m=96077042
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    c:EnableCounterPermit(0x4e)
    c:SetCounterLimit(0x4e,6)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    c:RegisterEffect(e1)
    --counter
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetRange(LOCATION_SZONE)
    e2:SetOperation(cm.counter)
    c:RegisterEffect(e2)
    --to hand from deck
    local e3=Effect.CreateEffect(c)
    e3:SetCategory(CATEGORY_TOHAND)
    e3:SetDescription(aux.Stringid(m,0))
    e3:SetCountLimit(3,m)
    e3:SetType(EFFECT_TYPE_IGNITION)
    e3:SetRange(LOCATION_SZONE)
    e3:SetCost(cm.cost)
    e3:SetTarget(cm.tg)
    e3:SetOperation(cm.op)
    c:RegisterEffect(e3)
    --special summon
    local e4=Effect.CreateEffect(c)
    e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e4:SetDescription(aux.Stringid(m,1))
    e4:SetCountLimit(3,m)
    e4:SetType(EFFECT_TYPE_IGNITION)
    e4:SetRange(LOCATION_SZONE)
    e4:SetCost(cm.cost1)
    e4:SetTarget(cm.tg1)
    e4:SetOperation(cm.op1)
    c:RegisterEffect(e4)
    --destory
    local e5=Effect.CreateEffect(c)
    e5:SetCategory(CATEGORY_DESTROY)
    e5:SetDescription(aux.Stringid(m,2))
    e5:SetCountLimit(3,m)
    e5:SetType(EFFECT_TYPE_IGNITION)
    e5:SetRange(LOCATION_SZONE)
    e5:SetCost(cm.cost2)
    e5:SetTarget(cm.tg2)
    e5:SetOperation(cm.op2)
    c:RegisterEffect(e5)
    --atkup defup
    local e6=Effect.CreateEffect(c)
    e6:SetCategory(CATEGORY_ATKCHANGE)
    e6:SetDescription(aux.Stringid(m,3))
    e6:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e6:SetType(EFFECT_TYPE_IGNITION)
    e6:SetRange(LOCATION_SZONE)
    e6:SetCountLimit(3,m)
    e6:SetCost(cm.cost3)
    e6:SetTarget(cm.tg3)
    e6:SetOperation(cm.op3)
    c:RegisterEffect(e6)
    --draw
    local e7=Effect.CreateEffect(c)
    e7:SetDescription(aux.Stringid(m,4))
    e7:SetCategory(CATEGORY_DRAW)
    e7:SetType(EFFECT_TYPE_IGNITION)
    e7:SetRange(LOCATION_SZONE)
    e7:SetCountLimit(3,m)
    e7:SetCost(cm.cost4)
    e7:SetTarget(cm.drtg)
    e7:SetOperation(cm.drop)
    c:RegisterEffect(e7)
    --destroy
    local e8=Effect.CreateEffect(c)
    e8:SetDescription(aux.Stringid(m,5))
    e8:SetCategory(CATEGORY_TOGRAVE)
    e8:SetType(EFFECT_TYPE_IGNITION)
    e8:SetRange(LOCATION_SZONE)
    e8:SetCountLimit(3,m)
    e8:SetCost(cm.cost5)
    e8:SetTarget(cm.destg)
    e8:SetOperation(cm.desop)
    c:RegisterEffect(e8)
    --atk/def up
    local e9=Effect.CreateEffect(c)
    e9:SetType(EFFECT_TYPE_FIELD)
    e9:SetCode(EFFECT_UPDATE_ATTACK)
    e9:SetRange(LOCATION_SZONE)
    e9:SetTargetRange(LOCATION_MZONE,0)
    e9:SetTarget(cm.tgfilter)
    e9:SetValue(500)
    c:RegisterEffect(e9)
    local e10=e9:Clone()
    e10:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e10)
    --indes
    local e11=Effect.CreateEffect(c)
    e11:SetType(EFFECT_TYPE_FIELD)
    e11:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
    e11:SetRange(LOCATION_SZONE)
    e11:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
    e11:SetTarget(cm.indtg)
    e11:SetValue(cm.indct)
    c:RegisterEffect(e11)
    end
    --counter
    function cm.cfilter(c)
    return aux.IsCodeListed(c,96077000)
    end
    function cm.counter(e,tp,eg,ep,ev,re,r,rp)
    if eg:IsExists(cm.cfilter,1,nil) then
    e:GetHandler():AddCounter(0x4e,1)
    end
    end
    --to hand from deck
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x4e,1,REASON_COST) end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.RemoveCounter(tp,1,0,0x4e,1,REASON_COST)
    end
    function cm.filter(c,e,tp)
    return c:IsAbleToHand() and c:IsCode(96077000)
    end
    function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true
    and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function cm.op(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SendtoHand(g:GetFirst(),nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    --special summon
    function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x4e,2,REASON_COST) end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.RemoveCounter(tp,1,0,0x4e,2,REASON_COST)
    end
    function cm.filter1(c,e,tp)
    return aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
    end
    function cm.op1(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.filter1),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP)
    end
    end
    --destory
    function cm.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x4e,3,REASON_COST) end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.RemoveCounter(tp,1,0,0x4e,3,REASON_COST)
    end
    function cm.tg2(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.op2(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
    --atkup defup
    function cm.cost3(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x4e,4,REASON_COST) end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.RemoveCounter(tp,1,0,0x4e,4,REASON_COST)
    end
    function cm.filter3(c)
    return c:IsFaceup() and c:IsRace(RACE_PLANT)
    end
    function cm.tg3(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and cm.filter3(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.filter3,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    local g=Duel.SelectTarget(tp,cm.filter3,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
    end
    function cm.op3(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsRace(RACE_PLANT) 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(tc:GetAttack()*2)
    tc:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_UPDATE_DEFENSE)
    e2:SetValue(tc:GetDefense()*2)
    tc:RegisterEffect(e2)
    end
    end
    --draw
    function cm.cost4(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x4e,5,REASON_COST) end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.RemoveCounter(tp,1,0,0x4e,5,REASON_COST)
    end
    function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
    local ct=5-Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
    if chk==0 then return ct>0 and Duel.IsPlayerCanDraw(tp,ct) end
    Duel.SetTargetPlayer(tp)
    Duel.SetTargetParam(ct)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct)
    end
    function cm.drop(e,tp,eg,ep,ev,re,r,rp)
    local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
    local ct=5-Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
    if ct>0 then
    Duel.Draw(p,ct,REASON_EFFECT)
    end
    end
    --destroy
    function cm.cost5(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x4e,6,REASON_COST) end
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    Duel.RemoveCounter(tp,1,0,0x4e,6,REASON_COST)
    end
    function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
    local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,nil)
    if chk==0 then return g:GetCount()>0 end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,nil)
    if g:GetCount()>0 then
    Duel.SendtoGrave(g,REASON_EFFECT)
    end
    end
    --atk/def up
    function cm.tgfilter(e,c)
    return c:GetBaseAttack()==2500
    end
    --indes
    function cm.indtg(e,c)
    return c:GetBaseAttack()==2500
    end
    function cm.indct(e,re,r,rp)
    if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 then
    return 1
    else return 0 end
    end
    \ No newline at end of file
    expansions/script/c96077043.lua deleted 100644 → 0
    View file @ 930ce326
    --次元魔方阵
    local m=96077043
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --copy
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cpcost)
    e1:SetTarget(cm.cptg)
    e1:SetOperation(cm.cpop)
    c:RegisterEffect(e1)
    --to hand
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND+CATEGORY_DRAW)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_PHASE+PHASE_END)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,96077044)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    end
    --copy
    function cm.cpfilter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemoveAsCost()
    and c:CheckActivateEffect(true,true,false)~=nil
    end
    function cm.cpcost(e,tp,eg,ep,ev,re,r,rp,chk)
    e:SetLabel(1)
    if chk==0 then return true end
    end
    function cm.cptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then
    if e:GetLabel()==0 then return false end
    e:SetLabel(0)
    return Duel.IsExistingMatchingCard(cm.cpfilter,tp,LOCATION_DECK,0,1,nil)
    end
    e:SetLabel(0)
    local g=Duel.SelectMatchingCard(tp,cm.cpfilter,tp,LOCATION_DECK,0,1,1,nil)
    local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true)
    Duel.SendtoGrave(g,REASON_COST)
    e:SetProperty(te:GetProperty())
    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)
    end
    function cm.cpop(e,tp,eg,ep,ev,re,r,rp)
    local te=e:GetLabelObject()
    if te then
    e:SetLabelObject(te:GetLabelObject())
    local op=te:GetOperation()
    if op then op(e,tp,eg,ep,ev,re,r,rp) end
    end
    end
    --to hand
    function cm.tdfilter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToDeck()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    local c=e:GetHandler()
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.tdfilter(chkc) and chkc~=c end
    if chk==0 then return Duel.IsExistingTarget(cm.tdfilter,tp,LOCATION_GRAVE,0,1,c) and c:IsAbleToHand() end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectTarget(tp,cm.tdfilter,tp,LOCATION_GRAVE,0,1,4,c)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,g,4,0,0)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA)
    and c:IsRelateToEffect(e) then
    Duel.SendtoHand(c,nil,REASON_EFFECT)
    Duel.ShuffleDeck(tp)
    Duel.BreakEffect()
    Duel.Draw(tp,1,REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/script/c96077045.lua deleted 100644 → 0
    View file @ 930ce326
    --核心危机
    local m=96077045
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.AddCodeList(c,96077000)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.operation)
    c:RegisterEffect(e1)
    --disable
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
    e2:SetCode(EVENT_CHAINING)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,96077046)
    e2:SetCondition(cm.discon)
    e2:SetCost(aux.bfgcost)
    e2:SetTarget(cm.distg)
    e2:SetOperation(cm.disop)
    c:RegisterEffect(e2)
    end
    --Activate
    function cm.spfilter(c,e,tp)
    return aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.target(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_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND)
    end
    function cm.filter(c)
    return (c:IsCode(96077000) or aux.IsCodeListed(c,96077000)) and c:IsAbleToHand()
    and c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.operation(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(cm.spfilter),tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.BreakEffect()
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    end
    --disable
    function cm.tgfilter(c,tp)
    return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) and aux.IsCodeListed(c,96077000) and c:IsType(TYPE_MONSTER)
    end
    function cm.discon(e,tp,eg,ep,ev,re,r,rp)
    if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
    local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
    return tg and tg:IsExists(cm.tgfilter,1,nil,tp) and Duel.IsChainDisablable(ev)
    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)
    if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
    end
    end
    function cm.disop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) then
    Duel.Destroy(eg,REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/strings.conf
    View file @ 6459a04d
    ...@@ -252,6 +252,7 @@ ...@@ -252,6 +252,7 @@
    !setname 0x3a7a 封璇击 !setname 0x3a7a 封璇击
    !setname 0x3a7b 璇姬 !setname 0x3a7b 璇姬
    !setname 0x6a7b 天之杯 !setname 0x6a7b 天之杯
    !setname 0x9a7b 狩猎游戏
    !counter 0xa7f 好感指示物 !counter 0xa7f 好感指示物
    #乐 3113279818 130 0xe00-0xe0f #乐 3113279818 130 0xe00-0xe0f
    ...@@ -451,6 +452,11 @@ ...@@ -451,6 +452,11 @@
    !setname 0x821 血罪灵骸 !setname 0x821 血罪灵骸
    !setname 0x822 奇物 !setname 0x822 奇物
    !setname 0x823 戏世游寰 !setname 0x823 戏世游寰
    !setname 0x824 祈星魔女
    !setname 0x3824 祈星·焚
    !setname 0x5824 祈星·漓
    !setname 0x6824 祈星·岚
    !setname 0x9824 祈星·晶
    !counter 0x1820 灵骸指示物 !counter 0x1820 灵骸指示物
    #imun. 3545696124 190 0x7a0-0x7af #imun. 3545696124 190 0x7a0-0x7af
    ...@@ -508,6 +514,9 @@ ...@@ -508,6 +514,9 @@
    !setname 0x492 原初八文 !setname 0x492 原初八文
    !setname 0x496 急流精怪 !setname 0x496 急流精怪
    #持剑者 380518667 221 0x760-0x76f
    !counter 0x760 元素指示物
    #Do It Yourself 2664084600 226 0x740-0x74f #Do It Yourself 2664084600 226 0x740-0x74f
    !setname 0x740 lain !setname 0x740 lain
    ...@@ -658,6 +667,7 @@ ...@@ -658,6 +667,7 @@
    #setcard="terraria" 泰拉 #setcard="terraria" 泰拉
    #setcard="TaleSouls" 传说之魂 #setcard="TaleSouls" 传说之魂
    #setcard="RCore" 热核侵染 #setcard="RCore" 热核侵染
    #setcard="Desaimoth" 灾害超兽
    !counter 0x1019 负荷指示物 !counter 0x1019 负荷指示物
    !counter 0x1556 上升负荷指示物 !counter 0x1556 上升负荷指示物
    ...@@ -1036,6 +1046,7 @@ ...@@ -1036,6 +1046,7 @@
    !setname 0x3620 永夜抄 !setname 0x3620 永夜抄
    !setname 0x6620 灵代 !setname 0x6620 灵代
    !setname 0xa620 时光酒桌 !setname 0xa620 时光酒桌
    !setname 0x3623 承岚
    !setname 0x626 黄昏 !setname 0x626 黄昏
    !setname 0x3626 黄昏之骑士 !setname 0x3626 黄昏之骑士
    !setname 0x6629 伊兹尼亚 !setname 0x6629 伊兹尼亚
    ...@@ -1390,7 +1401,7 @@ ...@@ -1390,7 +1401,7 @@
    #AddCodeList(81041005) 想要传达给你的爱恋卡名记述 #AddCodeList(81041005) 想要传达给你的爱恋卡名记述
    #八云鵺 2637581064 819 0x850-0x85f #八云鵺 2637581064 819 0x850-0x85f
    !setname 0x850 茶☆苦☆茶 !setname 0x850 ☆茶☆苦☆茶
    !setname 0x1850 無☆茶☆苦☆茶 !setname 0x1850 無☆茶☆苦☆茶
    !setname 0x2850 滅☆茶☆苦☆茶 !setname 0x2850 滅☆茶☆苦☆茶
    !setname 0x851 TC. !setname 0x851 TC.
    ...@@ -1399,7 +1410,9 @@ ...@@ -1399,7 +1410,9 @@
    !setname 0xa851 F-TC. !setname 0xa851 F-TC.
    !setname 0xc851 C-TC. !setname 0xc851 C-TC.
    !setname 0x855 都市传说 !setname 0x855 都市传说
    !setname 0x85a 梦幻馆
    #AddCodeList(81902001) TC.记述 #AddCodeList(81902001) TC.记述
    #AddCodeList(81902002) M-TC.记述
    #AddCodeList(81902003) 都市传说记述 #AddCodeList(81902003) 都市传说记述
    !counter 0x850 恋之埋火指示物 !counter 0x850 恋之埋火指示物
    !counter 0x1851 传染病指示物 !counter 0x1851 传染病指示物
    ...@@ -1407,16 +1420,15 @@ ...@@ -1407,16 +1420,15 @@
    !counter 0x1855 完美冻结指示物 !counter 0x1855 完美冻结指示物
    #屋屋赛高 - 820 0xf50-0xf5f #屋屋赛高 - 820 0xf50-0xf5f
    !setname 0xf55 法属乏术型物
    !setname 0x3f55 屋屋 !setname 0x3f55 屋屋
    !setname 0xf57 屋屋特制法属 !setname 0xf57 特制法属
    !setname 0x3f57 法属乏术空物 !setname 0x3f57 特制法属乏术空物
    !setname 0xaf57 作战指令 !setname 0xaf57 作战指令
    !setname 0xf58 法属乏术 !setname 0xf58 法属乏术
    !setname 0x3f58 乏术型物
    !setname 0xf59 卡丘世界 !setname 0xf59 卡丘世界
    !setname 0x7f59 超弦体技能 !setname 0x7f59 超弦体技能
    !setname 0xaf59 机电棋子 !setname 0xaf59 机电棋子
    !counter 0x1f59 毁灭点
    !counter 0x3f59 技能点 !counter 0x3f59 技能点
    #互联网流浪者-深渊 3565313751 842 0x840-0x84f #互联网流浪者-深渊 3565313751 842 0x840-0x84f
    ...@@ -1494,6 +1506,8 @@ ...@@ -1494,6 +1506,8 @@
    #陀螺 3161407259 930 0xaf0-0xaff #陀螺 3161407259 930 0xaf0-0xaff
    !setname 0xaf0 异魔神 !setname 0xaf0 异魔神
    !setname 0xaf1 寄生兽
    !setname 0xaf2 镜世界
    #水镜 457663161 960 0xef0-0xeff #水镜 457663161 960 0xef0-0xeff
    !setname 0xef1 侍神 !setname 0xef1 侍神
    ...@@ -1507,6 +1521,11 @@ ...@@ -1507,6 +1521,11 @@
    !setname 0x3ef6 王国军 !setname 0x3ef6 王国军
    !setname 0x3ef7 圣化 !setname 0x3ef7 圣化
    !setname 0x5ef7 黯雾 !setname 0x5ef7 黯雾
    !setname 0x3ef8 御三家
    !setname 0x5ef8 起源
    !setname 0x6ef8 心魂
    !setname 0x9ef8 宝石
    !setname 0x3ef9 口袋精灵
    #奇跡の早苗 2060043514 961 0x7e0-0x7ef #奇跡の早苗 2060043514 961 0x7e0-0x7ef
    !setname 0x37e0 苍蓝奇迹 !setname 0x37e0 苍蓝奇迹
    ...@@ -1518,7 +1537,6 @@ ...@@ -1518,7 +1537,6 @@
    ##柚木梨沙 1141457733 000-200 ##柚木梨沙 1141457733 000-200
    !setname 0x870 少女分形 !setname 0x870 少女分形
    !setname 0x871 濑名歌铃 !setname 0x871 濑名歌铃
    ##持剑者 380518667 221
    ##◇星空璀璨之地 3077843411 280-281 ##◇星空璀璨之地 3077843411 280-281
    #cm.Koyuki 三水小雪（仅魔陷） #cm.Koyuki 三水小雪（仅魔陷）
    ##◇識之梦 1073149304 307 ##◇識之梦 1073149304 307
    ......
    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