Skip to content

Y
ygopro-THC-cards
Commit 343c27d3 authored by oilloillo's avatar oilloillo
Browse files
Options

cant say anything

parent ff5479d5
Pipeline #8435 passed with stage
    in 44 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 124 additions and 124 deletions
    script/c999303.lua
    View file @ 343c27d3
    --丰收与成熟的象征
    function c999303.initial_effect(c)
    --syn summon
    aux.AddSynchroProcedure(c,nil,aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsRace,RACE_PLANT),1),1)
    c:EnableReviveLimit()
    -- sp
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(999303,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetLabel(0)
    e1:SetTarget(c999303.sptg)
    e1:SetOperation(c999303.spop)
    c:RegisterEffect(e1)
    --Cost Change
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD)
    e3:SetCode(EFFECT_LPCOST_CHANGE)
    e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e3:SetRange(LOCATION_MZONE)
    e3:SetTargetRange(1,0)
    e3:SetValue(c999303.costchange)
    c:RegisterEffect(e3)
    --mat check
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_MATERIAL_CHECK)
    e4:SetValue(c999303.valcheck)
    c:RegisterEffect(e4)
    e4:SetLabelObject(e1)
    --synchro success
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e5:SetCode(EVENT_SPSUMMON_SUCCESS)
    e5:SetCondition(c999303.regcon)
    e5:SetOperation(c999303.regop)
    c:RegisterEffect(e5)
    e5:SetLabelObject(e4)
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
    e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e6:SetCode(EVENT_LEAVE_FIELD)
    e6:SetOperation(c999303.checkop)
    c:RegisterEffect(e6)
    end
    c999303.DescSetName=0xa2
    function c999303.filter(c)
    return c:IsRace(RACE_PLANT)
    end
    function c999303.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    local count = e:GetLabel()
    if chk==0 then return count>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=count
    and Duel.IsPlayerCanSpecialSummonMonster(tp,999300,0,0x4011,0,0,2,RACE_PLANT,ATTRIBUTE_EARTH) end
    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,count,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,count,0,0)
    end
    function c999303.spop(e,tp,eg,ep,ev,re,r,rp)
    local count = e:GetLabel()
    if count>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=count
    and Duel.IsPlayerCanSpecialSummonMonster(tp,999300,0,0x4011,0,0,2,RACE_PLANT,ATTRIBUTE_EARTH) then
    for i=1,count do
    local token=Duel.CreateToken(tp,999300)
    Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
    end
    Duel.SpecialSummonComplete()
    end
    end
    function c999303.costchange(e,re,rp,val)
    if re then
    local c=re:GetHandler()
    if not c then return val end
    local code=c:GetOriginalCode()
    local mt=_G["c" .. code]
    if code ~= 999311 and mt and mt.DescSetName == 0xa2 then return 0 end
    end
    return val
    end
    function c999303.valcheck(e, c)
    e:SetLabel(0)
    local g = c:GetMaterial()
    local count = 0
    local tc = g:GetFirst()
    while tc do
    if tc:GetOriginalCode() == 999301 then
    e:SetLabel(e:GetLabel()+1)
    elseif tc:GetOriginalCode() == 999302 then
    e:SetLabel(e:GetLabel()+2)
    end
    if tc:IsRace(RACE_PLANT) and not tc:IsType(TYPE_TUNER) then count = count + 1 end
    tc = g:GetNext()
    end
    e:GetLabelObject():SetLabel(count)
    end
    function c999303.regcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():GetSummonType() == SUMMON_TYPE_SYNCHRO
    and e:GetLabelObject():GetLabel() ~= 0
    end
    function c999303.regop(e,tp,eg,ep,ev,re,r,rp)
    local att = e:GetLabelObject():GetLabel()
    local c = e:GetHandler()
    if bit.band(att, 1) ~= 0 then
    c:CopyEffect(999301, RESET_EVENT+0x1fe0000, 1)
    end
    if bit.band(att, 2) ~= 0 then
    c:CopyEffect(999302, RESET_EVENT+0x1fe0000, 1)
    end
    e:SetLabel(0)
    end
    function c999303.checkop(e,tp,eg,ep,ev,re,r,rp)
    e:GetHandler():SetMaterial(Group.CreateGroup())
    --丰收与成熟的象征
    function c999303.initial_effect(c)
    --syn summon
    aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsRace,RACE_PLANT),1)
    c:EnableReviveLimit()
    -- sp
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(999303,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetLabel(0)
    e1:SetTarget(c999303.sptg)
    e1:SetOperation(c999303.spop)
    c:RegisterEffect(e1)
    --Cost Change
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD)
    e3:SetCode(EFFECT_LPCOST_CHANGE)
    e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e3:SetRange(LOCATION_MZONE)
    e3:SetTargetRange(1,0)
    e3:SetValue(c999303.costchange)
    c:RegisterEffect(e3)
    --mat check
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_MATERIAL_CHECK)
    e4:SetValue(c999303.valcheck)
    c:RegisterEffect(e4)
    e4:SetLabelObject(e1)
    --synchro success
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e5:SetCode(EVENT_SPSUMMON_SUCCESS)
    e5:SetCondition(c999303.regcon)
    e5:SetOperation(c999303.regop)
    c:RegisterEffect(e5)
    e5:SetLabelObject(e4)
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
    e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e6:SetCode(EVENT_LEAVE_FIELD)
    e6:SetOperation(c999303.checkop)
    c:RegisterEffect(e6)
    end
    c999303.DescSetName=0xa2
    function c999303.filter(c)
    return c:IsRace(RACE_PLANT)
    end
    function c999303.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    local count = e:GetLabel()
    if chk==0 then return count>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=count
    and Duel.IsPlayerCanSpecialSummonMonster(tp,999300,0,0x4011,0,0,2,RACE_PLANT,ATTRIBUTE_EARTH) end
    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,count,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,count,0,0)
    end
    function c999303.spop(e,tp,eg,ep,ev,re,r,rp)
    local count = e:GetLabel()
    if count>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=count
    and Duel.IsPlayerCanSpecialSummonMonster(tp,999300,0,0x4011,0,0,2,RACE_PLANT,ATTRIBUTE_EARTH) then
    for i=1,count do
    local token=Duel.CreateToken(tp,999300)
    Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
    end
    Duel.SpecialSummonComplete()
    end
    end
    function c999303.costchange(e,re,rp,val)
    if re then
    local c=re:GetHandler()
    if not c then return val end
    local code=c:GetOriginalCode()
    local mt=_G["c" .. code]
    if code ~= 999311 and mt and mt.DescSetName == 0xa2 then return 0 end
    end
    return val
    end
    function c999303.valcheck(e, c)
    e:SetLabel(0)
    local g = c:GetMaterial()
    local count = 0
    local tc = g:GetFirst()
    while tc do
    if tc:GetOriginalCode() == 999301 then
    e:SetLabel(e:GetLabel()+1)
    elseif tc:GetOriginalCode() == 999302 then
    e:SetLabel(e:GetLabel()+2)
    end
    if tc:IsRace(RACE_PLANT) and not tc:IsType(TYPE_TUNER) then count = count + 1 end
    tc = g:GetNext()
    end
    e:GetLabelObject():SetLabel(count)
    end
    function c999303.regcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():GetSummonType() == SUMMON_TYPE_SYNCHRO
    and e:GetLabelObject():GetLabel() ~= 0
    end
    function c999303.regop(e,tp,eg,ep,ev,re,r,rp)
    local att = e:GetLabelObject():GetLabel()
    local c = e:GetHandler()
    if bit.band(att, 1) ~= 0 then
    c:CopyEffect(999301, RESET_EVENT+0x1fe0000, 1)
    end
    if bit.band(att, 2) ~= 0 then
    c:CopyEffect(999302, RESET_EVENT+0x1fe0000, 1)
    end
    e:SetLabel(0)
    end
    function c999303.checkop(e,tp,eg,ep,ev,re,r,rp)
    e:GetHandler():SetMaterial(Group.CreateGroup())
    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