c33308

function c33308.initial_effect(c)
    --xyz summon
    aux.AddXyzProcedure(c,nil,3,3)
    c:EnableReviveLimit()
    --sendtograve
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(33308,0))
    e1:SetCategory(CATEGORY_TOGRAVE)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCountLimit(1,33308)
    e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetTarget(c33308.mattg)
    e1:SetOperation(c33308.matop)
    c:RegisterEffect(e1)
    --
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(33308,1))
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetCountLimit(1,33308)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCost(c33308.dacost)
    e2:SetTarget(c33308.datg)
    e2:SetOperation(c33308.daop)
    c:RegisterEffect(e2,false,1)
end

function c33308.matfilter(c)
    return c:IsSetCard(0x14d) and c:IsAbleToGrave()
end
function c33308.mattg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(c33308.matfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
end
function c33308.matop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g=Duel.SelectMatchingCard(tp,c33308.matfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
        Duel.SendtoGrave(g,REASON_EFFECT)
    end
end

function c33308.dacost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
end
function c33308.datg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return true end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    Duel.RegisterEffect(e2,tp)
end
function c33308.daop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
    e2:SetCode(EFFECT_CANNOT_ACTIVATE)
    e2:SetTargetRange(1,1)
    e2:SetValue(c33308.aclimit)
    e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,1)
    Duel.RegisterEffect(e2,tp)
end
function c33308.aclimit(e,re,tp)
    return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_TRAP) and not re:GetHandler():IsImmuneToEffect(e)
end