Skip to content

Y
ygopro-THC-cards
Commit 245b8cd0 authored by Grajade's avatar Grajade
Browse files
Options

Update script/c22201106.lua

parent f92f7054
Pipeline #7729 failed with stage
    in 50 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 101 additions and 102 deletions
    script/c22201106.lua
    View file @ 245b8cd0
    --未曾预见 --未曾预见
    function c22201106.initial_effect(c) function c22201106.initial_effect(c)
    --Activate --Activate
    local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET) e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN) e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetTarget(c22201106.target) e1:SetTarget(c22201106.target)
    e1:SetOperation(c22201106.activate) e1:SetOperation(c22201106.activate)
    c:RegisterEffect(e1) c:RegisterEffect(e1)
    end end
    function c22201106.filter(c) function c22201106.filter(c)
    return c:IsFaceup() and c:IsCanOverlay() return c:IsFaceup() and c:IsCanOverlay()
    end end
    function c22201106.filter2(c,g) function c22201106.filter2(sg)
    return g:IsExists(Card.IsOriginalCodeRule,1,c,c:GetOriginalCode()) return sg:GetClassCount(Card.GetOriginalCodeRule)==1
    end end
    function c22201106.spfilter(c,e,tp,ec) function c22201106.spfilter(c,e,tp)
    return c:IsCode(22200122) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,ec,c,0x60)>0 return c:IsCode(22200122) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c,0x60)>0
    end end
    function c22201106.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c22201106.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and c22201106.filter(chkc) end if chkc then return false end
    local g=Duel.GetMatchingGroup(c22201106.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) local g=Duel.GetMatchingGroup(c22201106.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
    local sg=g:Filter(c22201106.filter2,nil,g) if chk==0 then return g:CheckSubGroup(c22201106.filter2,2,2,nil) and Duel.IsExistingMatchingCard(c22201106.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,e:GetHandler())
    if chk==0 then end
    return sg:GetCount()>0 and Duel.IsExistingMatchingCard(c22201106.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,e:GetHandler()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    end local hg=g:SelectSubGroup(tp,c22201106.filter2,false,2,2)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) Duel.SetTargetCard(hg)
    local hg1=sg:Select(tp,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    local hg2=sg:Filter(Card.IsOriginalCodeRule,hg1:GetFirst(),hg1:GetFirst():GetOriginalCode()) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) function c22201106.tfilter(c,e)
    hg1:AddCard(hg2:Select(tp,1,1,nil):GetFirst()) return c:IsRelateToEffect(e) and not c:IsImmuneToEffect(e)
    Duel.SetTargetCard(hg1) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) function c22201106.activate(e,tp,eg,ep,ev,re,r,rp)
    end local c=e:GetHandler()
    function c22201106.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local c=e:GetHandler() local tc=Duel.SelectMatchingCard(tp,c22201106.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp):GetFirst()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP,0x60)>0 then
    local tc=Duel.SelectMatchingCard(tp,c22201106.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,e:GetHandler()):GetFirst() local fid=c:GetFieldID()
    if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP,0x60)>0 then local e2=Effect.CreateEffect(c)
    local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_PHASE+PHASE_END)
    e2:SetCode(EVENT_PHASE+PHASE_END) e2:SetCountLimit(1)
    e2:SetCountLimit(1) e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e2:SetLabel(fid)
    e2:SetLabelObject(tc) e2:SetLabelObject(tc)
    e2:SetCondition(c22201106.descon) e2:SetCondition(c22201106.descon)
    e2:SetOperation(c22201106.desop) e2:SetOperation(c22201106.desop)
    Duel.RegisterEffect(e2,tp) Duel.RegisterEffect(e2,tp)
    local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE) e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL) e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
    e3:SetValue(1) e3:SetValue(1)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD) e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e3,true) tc:RegisterEffect(e3,true)
    local e4=e3:Clone() local e4=e3:Clone()
    e4:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) e4:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
    tc:RegisterEffect(e4,true) tc:RegisterEffect(e4,true)
    local e5=e3:Clone() local e5=e3:Clone()
    e5:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) e5:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
    tc:RegisterEffect(e5,true) tc:RegisterEffect(e5,true)
    local e6=e5:Clone() local e6=e5:Clone()
    e6:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL) e6:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    tc:RegisterEffect(e6,true) tc:RegisterEffect(e6,true)
    tc:RegisterFlagEffect(22201106,RESET_EVENT+RESETS_STANDARD,0,1) tc:RegisterFlagEffect(22201106,RESET_EVENT+RESETS_STANDARD,0,1,fid)
    local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c22201106.tfilter,nil,e)
    if tg:GetCount()<1 then return end if tg:GetCount()>0 then
    local tg1=tg:GetFirst():GetOverlayGroup() local dg=Group.CreateGroup()
    local tg2=tg:GetNext():GetOverlayGroup() for tc in aux.Next(tg) do
    tg1:Merge(tg2) local rg=tc:GetOverlayGroup()
    if tg1:GetCount()>0 then if rg:GetCount()>0 then dg:Merge(rg) end
    Duel.SendtoGrave(tg1,REASON_RULE) if tc:IsType(TYPE_SPELL+TYPE_TRAP) then tc:CancelToGrave() end
    end end
    local tc1=tg:GetFirst() if dg:GetCount()>0 then
    while tc1 do Duel.SendtoGrave(dg,REASON_RULE)
    if tc1:IsType(TYPE_SPELL+TYPE_TRAP) then tc1:CancelToGrave() end end
    tc1=tg:GetNext() Duel.Overlay(tc,tg)
    end end
    Duel.Overlay(tc,tg) local e1=Effect.CreateEffect(c)
    local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CHANGE_CODE)
    e1:SetCode(EFFECT_CHANGE_CODE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetValue(tg:GetFirst():GetOriginalCode())
    e1:SetValue(tg:GetFirst():GetOriginalCode()) e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD) tc:RegisterEffect(e1)
    tc:RegisterEffect(e1) end
    end end
    end function c22201106.descon(e,tp,eg,ep,ev,re,r,rp)
    function c22201106.descon(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetLabelObject()
    local tc=e:GetLabelObject() if tc:GetFlagEffectLabel(22201106)==e:GetLabel() then
    if tc:GetFlagEffect(22201106)~=0 then return true
    return true else
    else e:Reset()
    e:Reset() return false
    return false end
    end end
    end function c22201106.desop(e,tp,eg,ep,ev,re,r,rp)
    function c22201106.desop(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetLabelObject()
    local tc=e:GetLabelObject() Duel.Destroy(tc,REASON_EFFECT)
    Duel.Destroy(tc,REASON_EFFECT) end
    end
    \ No newline at end of file
    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