Skip to content

Y
ygopro-THC-cards
Commit 21b2eeea authored by GuGu's avatar GuGu
Browse files
Options

Update c24100.lua

parent c21c2902
Pipeline #29468 passed with stage
    in 11 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 23 additions and 37 deletions
    script/c24100.lua
    View file @ 21b2eeea
    ...@@ -8,16 +8,17 @@ function c24100.initial_effect(c) ...@@ -8,16 +8,17 @@ function c24100.initial_effect(c)
    e1:SetDescription(aux.Stringid(24100,1)) e1:SetDescription(aux.Stringid(24100,1))
    e1:SetType(EFFECT_TYPE_FIELD) e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetCode(EFFECT_SPSUMMON_PROC)
    e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e1:SetRange(LOCATION_EXTRA) e1:SetRange(LOCATION_EXTRA)
    e1:SetCondition(c24100.sprcon) e1:SetCondition(c24100.sprcon)
    e1:SetTarget(c24100.sprtg)
    e1:SetOperation(c24100.sprop) e1:SetOperation(c24100.sprop)
    c:RegisterEffect(e1) c:RegisterEffect(e1)
    --sp --sp
    local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(24100,2)) e2:SetDescription(aux.Stringid(24100,2))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetProperty(EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CAN_FORBIDDEN)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS) e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetCondition(c24100.spcon) e2:SetCondition(c24100.spcon)
    ...@@ -26,10 +27,9 @@ function c24100.initial_effect(c) ...@@ -26,10 +27,9 @@ function c24100.initial_effect(c)
    c:RegisterEffect(e2) c:RegisterEffect(e2)
    --direct attack --direct attack
    local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
    e3:SetCategory(CATEGORY_TOGRAVE)
    e3:SetDescription(aux.Stringid(24100,3)) e3:SetDescription(aux.Stringid(24100,3))
    e3:SetType(EFFECT_TYPE_IGNITION) e3:SetType(EFFECT_TYPE_IGNITION)
    e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e3:SetProperty(EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CAN_FORBIDDEN)
    e3:SetRange(LOCATION_MZONE) e3:SetRange(LOCATION_MZONE)
    e3:SetCountLimit(1) e3:SetCountLimit(1)
    e3:SetCondition(c24100.dcon) e3:SetCondition(c24100.dcon)
    ...@@ -41,43 +41,33 @@ function c24100.initial_effect(c) ...@@ -41,43 +41,33 @@ function c24100.initial_effect(c)
    e4:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON) e4:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
    e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e4) c:RegisterEffect(e4)
    --inactivatable end
    local e5=Effect.CreateEffect(c) function c24100.fselect(g,tp,sc)
    e5:SetType(EFFECT_TYPE_SINGLE) return g:GetCount()==2 and Duel.GetLocationCountFromEx(tp,tp,g,sc)>0
    e5:SetCode(EFFECT_CANNOT_DISABLE)
    e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_RANGE)
    e5:SetValue(1)
    c:RegisterEffect(e5)
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_FIELD)
    e6:SetCode(EFFECT_CANNOT_INACTIVATE)
    e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_RANGE)
    e6:SetValue(c24100.effectfilter)
    c:RegisterEffect(e6)
    end end
    function c24100.sprfilter(c) function c24100.sprfilter(c)
    return c:IsSetCard(0x514a) and c:IsFaceup() return c:IsSetCard(0x514a) and c:IsFaceup() and c:IsAbleToGraveAsCost()
    end end
    function c24100.sprcon(e,c) function c24100.sprcon(e,c)
    if c==nil then return true end if c==nil then return true end
    local tp=c:GetControler() local tp=c:GetControler()
    return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 local rg=Duel.GetMatchingGroup(c24100.sprfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
    and Duel.IsExistingMatchingCard(c24100.sprfilter,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil,tp) return rg:CheckSubGroup(c24100.fselect,2,2,tp,c)
    and not (Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 and not Duel.IsExistingMatchingCard(c24100.sprfilter,tp,LOCATION_MZONE,0,1,nil,tp)) end
    function c24100.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
    local rg=Duel.GetMatchingGroup(c24100.sprfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
    local sg=rg:SelectSubGroup(tp,c24100.fselect,true,2,2,tp,c)
    if sg then
    sg:KeepAlive()
    e:SetLabelObject(sg)
    return true
    else return false end
    end end
    function c24100.sprop(e,tp,eg,ep,ev,re,r,rp,c) function c24100.sprop(e,tp,eg,ep,ev,re,r,rp,c)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then local g=e:GetLabelObject()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) Duel.SendtoGrave(g,REASON_SPSUMMON)
    local g1=Duel.SelectMatchingCard(tp,c24100.sprfilter,tp,LOCATION_MZONE,0,1,1,nil) g:DeleteGroup()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g2=Duel.SelectMatchingCard(tp,c24100.sprfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
    g1:Merge(g2)
    Duel.SendtoGrave(g1,REASON_COST)
    else
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g=Duel.SelectMatchingCard(tp,c24100.sprfilter,tp,LOCATION_MZONE,LOCATION_MZONE,2,2,nil)
    Duel.SendtoGrave(g,REASON_COST)
    end
    end end
    function c24100.spcon(e,tp,eg,ep,ev,re,r,rp) function c24100.spcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO
    ...@@ -127,8 +117,4 @@ function c24100.dop(e,tp,eg,ep,ev,re,r,rp) ...@@ -127,8 +117,4 @@ function c24100.dop(e,tp,eg,ep,ev,re,r,rp)
    end end
    function c24100.aclimit(e,re,tp) function c24100.aclimit(e,re,tp)
    return re:IsActiveType(TYPE_MONSTER) return re:IsActiveType(TYPE_MONSTER)
    end
    function c24100.effectfilter(e,ct)
    local te=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT)
    return e:GetHandler()==te:GetHandler()
    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