Amazoness and Support

[7-ink]

http://forum.yugiohcardmaker.net/topic/320642-amazoness-support/

 

Amazoness Raider

 

[spoiler='Effect']1 "Amazoness" Warrior-Type monster + 1 Beast-Type monster
Must first be Special Summoned (from your Extra Deck) by returning the above cards you control to the Deck. (You do not use "Polymerization".) When this card is Special Summoned: You can Special Summon 1 Level 4 or lower "Amazoness" monster from your hand or Graveyard. You can only use this effect of "Amazoness Raider" once per turn. If this face-up card would be destroyed, you can destroy another face-up "Amazoness" card you control instead.[/spoiler]

[spoiler='Info']A fusion between beast and woman. It requires the returning of a beast type amazoness and another amazoness. With woman riding beast, they haste into battle by summoning another Amazoness monster.[/spoiler]

[spoiler='Script']Need so more work on it

--Amazoness Raider
function c501002018.initial_effect(c)
    c:EnableReviveLimit()
    --spsummon condition
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
    e1:SetValue(c501002018.splimit)
    c:RegisterEffect(e1)
    --special summon rule
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetCode(EFFECT_SPSUMMON_PROC)
    e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
    e2:SetRange(LOCATION_EXTRA)
    e2:SetCondition(c501002018.sprcon)
    e2:SetOperation(c501002018.sprop)
    c:RegisterEffect(e2)
    --summon success
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(501002018,0))
    e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e3:SetCode(EVENT_SPSUMMON_SUCCESS)

    e3:SetCountLimit(1,501002018)
    e3:SetTarget(c501002018.sptg)
    e3:SetOperation(c501002018.spop)
    c:RegisterEffect(e3)
    --destroy replace
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_DESTROY_REPLACE)
    e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e4:SetRange(LOCATION_MZONE)
    e4:SetTarget(c501002018.desreptg)
    e4:SetOperation(c501002018.desrepop)
    c:RegisterEffect(e4)
end
function c501002018.splimit(e,se,sp,st)
    return e:GetHandler():GetLocation()~=LOCATION_EXTRA
end
function c501002018.spfilter1(c,tp)
    return c:IsSetCard(0x4) and c:IsRace(RACE_WARRIOR) and c:IsAbleToDeckAsCost() and c:IsCanBeFusionMaterial(true)
        and Duel.IsExistingMatchingCard(c501002018.spfilter2,tp,LOCATION_MZONE,0,1,c)
end
function c501002018.spfilter2(c)
    local tpe=c:GetOriginalType()
    return c:IsRace(RACE_BEAST) and c:IsCanBeFusionMaterial() and
        ((bit.band(tpe,TYPE_FUSION)>0 and c:IsAbleToExtraAsCost()) or
        (bit.band(tpe,TYPE_FUSION)==0 and c:IsAbleToDeckAsCost()))
end
function c501002018.sprcon(e,c)
    if c==nil then return true end
    local tp=c:GetControler()
    return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2
        and Duel.IsExistingMatchingCard(c501002018.spfilter1,tp,LOCATION_ONFIELD,0,1,nil,tp)
end
function c501002018.sprop(e,tp,eg,ep,ev,re,r,rp,c)
    Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(501002018,2))
    local g1=Duel.SelectMatchingCard(tp,c501002018.spfilter1,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
    Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(501002018,3))
    local g2=Duel.SelectMatchingCard(tp,c501002018.spfilter2,tp,LOCATION_MZONE,0,1,1,g1:GetFirst())
    g1:Merge(g2)
    local tc=g1:GetFirst()
    while tc do
        if not tc:IsFaceup() then Duel.ConfirmCards(1-tp,tc) end
        tc=g1:GetNext()
    end
    Duel.SendtoDeck(g1,nil,2,REASON_COST)
end
function c501002018.filter(c,e,tp)
    return c:IsSetCard(0x4) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
        and not c:IsHasEffect(EFFECT_NECRO_VALLEY)
end
function c501002018.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
        and Duel.IsExistingMatchingCard(c501002018.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND)
end
function c501002018.spop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,c501002018.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
        Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
end
function c501002018.repfilter(c)
    return c:IsFaceup() and c:IsSetCard(0x4) and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED)
end
function c501002018.desreptg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return not c:IsReason(REASON_REPLACE) and c:IsOnField() and c:IsFaceup()
        and Duel.IsExistingMatchingCard(c501002018.repfilter,tp,LOCATION_ONFIELD,0,1,c) end
    if Duel.SelectYesNo(tp,aux.Stringid(501002018,0)) then
        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESREPLACE)
        local g=Duel.SelectMatchingCard(tp,c501002018.repfilter,tp,LOCATION_ONFIELD,0,1,1,c)
        e:SetLabelObject(g:GetFirst())
        Duel.HintSelection(g)
        g:GetFirst():SetStatus(STATUS_DESTROY_CONFIRMED,true)
        return true
    else return false end
end
function c501002018.desrepop(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    tc:SetStatus(STATUS_DESTROY_CONFIRMED,false)
    Duel.Destroy(tc,REASON_EFFECT+REASON_REPLACE)
end

[/spoiler]

 

Amazoness Royal Paldin

 

[spoiler='Effect']If this card was Normal Summoned, it cannot be destroyed by battle. Once, while this card is face-up, when another monster you control is targeted for an attack: You can change the attack target to this card, then proceed to damage calculation. Once per turn: You can target 1 Set card your opponent control; destroy that target, and if you do, send 1 EARTH monster from your hand or Field to the Graveyard.[/spoiler]