Skip to content

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

fix eff2 not include changePos & SpSummon with faceDown

parent 75589ab8
Pipeline #8401 passed with stage
    in 44 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 165 additions and 151 deletions
    script/c999018.lua
    View file @ d920c4f9
    --遮雨荷✿濑笈叶
    local M = c999018
    local Mid = 999018
    function M.initial_effect(c)
    -- fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcFun2(c, aux.FilterBoolFunction(Card.IsFusionSetCard, 0xaa6), aux.FilterBoolFunction(Card.IsFusionSetCard, 0x229), true)
    M.addEff1(c)
    M.addEff2(c)
    M.addCommonEff(c)
    end
    M.hana_mat={
    aux.FilterBoolFunction(Card.IsFusionSetCard,0xaa6),
    aux.FilterBoolFunction(Card.IsFusionSetCard,0x229),
    }
    function M.addEff1(c)
    function filter(c, tp)
    return c:IsPreviousLocation(LOCATION_HAND) and c:IsType(TYPE_MONSTER) and c:GetPreviousControler() == tp
    end
    local function cond(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(filter, 1, nil, tp)
    end
    local function target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk == 0 then return e:GetHandler():GetFlagEffect(Mid) < 1 and Duel.IsPlayerCanDraw(tp, 1) end
    Duel.SetOperationInfo(0, CATEGORY_DRAW, nil, 1, 0, 0)
    c:RegisterFlagEffect(Mid, RESET_EVENT+0x1fe0000, 0, 1)
    end
    local function operation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Draw(tp, 1, REASON_EFFECT)
    if bit.band(r, REASON_FUSION) == REASON_FUSION then
    Duel.Draw(tp, 1, REASON_EFFECT)
    end
    end
    local e2 = Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(Mid, 0))
    e2:SetCategory(CATEGORY_DRAW)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetCode(EVENT_TO_GRAVE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1, Mid*10+1)
    e2:SetCondition(cond)
    e2:SetTarget(target)
    e2:SetOperation(operation)
    c:RegisterEffect(e2)
    local e3 = e2:Clone()
    e3:SetCode(EVENT_REMOVE)
    c:RegisterEffect(e3)
    local e4 = e2:Clone()
    e4:SetCode(EVENT_TO_DECK)
    c:RegisterEffect(e4)
    end
    function M.addEff2(c)
    local function tg(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)
    and c:IsLocation(LOCATION_GRAVE)
    end
    Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, c, 1, 0, 0)
    end
    local function op(e,tp,eg,ep,ev,re,r,rp)
    local c = e:GetHandler()
    if c:IsRelateToEffect(e) and c:IsLocation(LOCATION_GRAVE) then
    if 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_LEAVE_FIELD_REDIRECT)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
    e1:SetValue(LOCATION_DECKSHF)
    c:RegisterEffect(e1, true)
    end
    end
    end
    local e2 = Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(Mid, 1))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e2:SetCode(EVENT_MSET)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1, Mid * 10 + 2)
    e2:SetTarget(tg)
    e2:SetOperation(op)
    c:RegisterEffect(e2)
    end
    function M.addCommonEff(c)
    local function thfilter(c)
    return c:IsAbleToHand() and (c:IsSetCard(0x229) or c:GetCode() == 24235)
    end
    local function thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk == 0 then return Duel.IsExistingMatchingCard(thfilter, tp, LOCATION_GRAVE+LOCATION_DECK, 0, 1, nil) end
    Duel.SetOperationInfo(0, CATEGORY_TOHAND, nil, 1, 0, 0)
    end
    local function thop(e,tp,eg,ep,ev,re,r,rp)
    if not Duel.IsExistingMatchingCard(thfilter, tp, LOCATION_GRAVE+LOCATION_DECK, 0, 1, nil) then return end
    local g = Duel.SelectMatchingCard(tp, thfilter, tp, LOCATION_GRAVE+LOCATION_DECK, 0, 1, 1, nil)
    if g:GetCount() > 0 then
    Duel.SendtoHand(g, nil, REASON_EFFECT)
    Duel.ConfirmCards(1-tp, g)
    end
    end
    local function thcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsPreviousPosition(POS_FACEUP) and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
    end
    local function repop(e,tp,eg,ep,ev,re,r,rp)
    local c = e:GetHandler()
    local e1 = Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(Mid, 2))
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
    e1:SetCode(EVENT_PHASE+PHASE_END)
    e1:SetCountLimit(1)
    e1:SetTarget(thtg)
    e1:SetOperation(thop)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1, tp)
    end
    local e2 = Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_TODECK)
    e2:SetDescription(aux.Stringid(Mid, 2))
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
    e2:SetCode(EVENT_TO_GRAVE)
    e2:SetCountLimit(1, Mid*10+3)
    e2:SetCondition(thcon)
    e2:SetOperation(repop)
    c:RegisterEffect(e2)
    local e3 = e2:Clone()
    e3:SetCode(EVENT_REMOVE)
    c:RegisterEffect(e3)
    local e4 = e2:Clone()
    e4:SetCode(EVENT_TO_DECK)
    c:RegisterEffect(e4)
    --遮雨荷✿濑笈叶
    local M = c999018
    local Mid = 999018
    function M.initial_effect(c)
    -- fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcFun2(c, aux.FilterBoolFunction(Card.IsFusionSetCard, 0xaa6), aux.FilterBoolFunction(Card.IsFusionSetCard, 0x229), true)
    M.addEff1(c)
    M.addEff2(c)
    M.addCommonEff(c)
    end
    function M.addEff1(c)
    function filter(c, tp)
    return c:IsPreviousLocation(LOCATION_HAND) and c:IsType(TYPE_MONSTER) and c:GetPreviousControler() == tp
    end
    local function cond(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(filter, 1, nil, tp)
    end
    local function target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk == 0 then return e:GetHandler():GetFlagEffect(Mid) < 1 and Duel.IsPlayerCanDraw(tp, 1) end
    Duel.SetOperationInfo(0, CATEGORY_DRAW, nil, 1, 0, 0)
    c:RegisterFlagEffect(Mid, RESET_EVENT+0x1fe0000, 0, 1)
    end
    local function operation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Draw(tp, 1, REASON_EFFECT)
    if bit.band(r, REASON_FUSION) == REASON_FUSION then
    Duel.Draw(tp, 1, REASON_EFFECT)
    end
    end
    local e2 = Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(Mid, 0))
    e2:SetCategory(CATEGORY_DRAW)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetCode(EVENT_TO_GRAVE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1, Mid*10+1)
    e2:SetCondition(cond)
    e2:SetTarget(target)
    e2:SetOperation(operation)
    c:RegisterEffect(e2)
    local e3 = e2:Clone()
    e3:SetCode(EVENT_REMOVE)
    c:RegisterEffect(e3)
    local e4 = e2:Clone()
    e4:SetCode(EVENT_TO_DECK)
    c:RegisterEffect(e4)
    end
    function M.addEff2(c)
    local function tg(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)
    and c:IsLocation(LOCATION_GRAVE)
    end
    Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, c, 1, 0, 0)
    end
    local function op(e,tp,eg,ep,ev,re,r,rp)
    local c = e:GetHandler()
    if c:IsRelateToEffect(e) and c:IsLocation(LOCATION_GRAVE) then
    if 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_LEAVE_FIELD_REDIRECT)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
    e1:SetValue(LOCATION_DECKSHF)
    c:RegisterEffect(e1, true)
    end
    end
    end
    local e2 = Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(Mid, 1))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e2:SetCode(EVENT_MSET)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1, Mid * 10 + 2)
    e2:SetTarget(tg)
    e2:SetOperation(op)
    c:RegisterEffect(e2)
    local function tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk == 0 then
    local sg = eg:Filter(Card.IsPosition, nil, POS_FACEDOWN_DEFENSE)
    return sg:GetCount() > 0
    end
    Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, c, 1, 0, 0)
    end
    local e32 = e2:Clone()
    e32:SetTarget(tg2)
    e32:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e32)
    local e22 = e32:Clone()
    e22:SetCode(EVENT_CHANGE_POS)
    c:RegisterEffect(e22)
    end
    function M.addCommonEff(c)
    local function thfilter(c)
    return c:IsAbleToHand() and (c:IsSetCard(0x229) or c:GetCode() == 24235)
    end
    local function thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk == 0 then return Duel.IsExistingMatchingCard(thfilter, tp, LOCATION_GRAVE+LOCATION_DECK, 0, 1, nil) end
    Duel.SetOperationInfo(0, CATEGORY_TOHAND, nil, 1, 0, 0)
    end
    local function thop(e,tp,eg,ep,ev,re,r,rp)
    if not Duel.IsExistingMatchingCard(thfilter, tp, LOCATION_GRAVE+LOCATION_DECK, 0, 1, nil) then return end
    local g = Duel.SelectMatchingCard(tp, thfilter, tp, LOCATION_GRAVE+LOCATION_DECK, 0, 1, 1, nil)
    if g:GetCount() > 0 then
    Duel.SendtoHand(g, nil, REASON_EFFECT)
    Duel.ConfirmCards(1-tp, g)
    end
    end
    local function thcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsPreviousPosition(POS_FACEUP) and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
    end
    local function repop(e,tp,eg,ep,ev,re,r,rp)
    local c = e:GetHandler()
    local e1 = Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(Mid, 2))
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
    e1:SetCode(EVENT_PHASE+PHASE_END)
    e1:SetCountLimit(1)
    e1:SetTarget(thtg)
    e1:SetOperation(thop)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1, tp)
    end
    local e2 = Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_TODECK)
    e2:SetDescription(aux.Stringid(Mid, 2))
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
    e2:SetCode(EVENT_TO_GRAVE)
    e2:SetCountLimit(1, Mid*10+3)
    e2:SetCondition(thcon)
    e2:SetOperation(repop)
    c:RegisterEffect(e2)
    local e3 = e2:Clone()
    e3:SetCode(EVENT_REMOVE)
    c:RegisterEffect(e3)
    local e4 = e2:Clone()
    e4:SetCode(EVENT_TO_DECK)
    c:RegisterEffect(e4)
    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