Skip to content

Y
ygopro-222DIY-cards
Commit 6dccaeef authored by Huangnan's avatar Huangnan
Browse files
Options

fix

parent 7a00c2f8
Pipeline #41958 failed with stages
        in 9 minutes and 22 seconds
        Hide whitespace changes
        Inline Side-by-side
        Showing with 102 additions and 83 deletions
        expansions/script/c11602010.lua 0 → 100644
        View file @ 6dccaeef
        --罗浮仙舟的无名客 丹恒
        function c11602010.initial_effect(c)
        --
        local e1=Effect.CreateEffect(c)
        e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
        e1:SetType(EFFECT_TYPE_IGNITION)
        e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
        e1:SetCountLimit(1,11602010)
        e1:SetCondition(c11602010.spcon)
        e1:SetTarget(c11602010.sptg)
        e1:SetOperation(c11602010.spop)
        c:RegisterEffect(e1)
        --to hand
        local e2=Effect.CreateEffect(c)
        e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_TOGRAVE)
        e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
        e2:SetProperty(EFFECT_FLAG_DELAY)
        e2:SetCode(EVENT_SUMMON_SUCCESS)
        e2:SetCountLimit(1,11602010+1)
        e2:SetTarget(c11602010.thtg)
        e2:SetOperation(c11602010.thop)
        c:RegisterEffect(e2)
        local e22=e2:Clone()
        e22:SetCode(EVENT_SPSUMMON_SUCCESS)
        c:RegisterEffect(e22)
        end
        function c11602010.cfilter(c)
        return c:IsSetCard(0xa548,0x9548) and c:IsFaceup()
        end
        function c11602010.spcon(e,tp,eg,ep,ev,re,r,rp)
        return Duel.IsExistingMatchingCard(c11602010.cfilter,tp,LOCATION_MZONE,0,1,nil)
        end
        function c11602010.sptg(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) end
        Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
        end
        function c11602010.spop(e,tp,eg,ep,ev,re,r,rp)
        local c=e:GetHandler()
        if c:IsRelateToEffect(e) then
        Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
        end
        end
        function c11602010.filter(c)
        return c:IsSetCard(0xa548) and c:IsType(0x1) and (c:IsAbleToHand() or c:IsAbleToGrave())
        end
        function c11602010.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
        if chk==0 then return Duel.IsExistingMatchingCard(c11602010.filter,tp,LOCATION_DECK,0,1,nil) end
        end
        function c11602010.thop(e,tp,eg,ep,ev,re,r,rp)
        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
        local g=Duel.SelectMatchingCard(tp,c11602010.filter,tp,LOCATION_DECK,0,1,1,nil)
        if g:GetCount()<=0 then return end
        local tc=g:GetFirst()
        if tc:IsAbleToHand() and (not tc:IsAbleToGrave() or Duel.SelectOption(tp,1190,1191)==0) then
        Duel.SendtoHand(tc,nil,REASON_EFFECT)
        Duel.ConfirmCards(1-tp,tc)
        else
        Duel.SendtoGrave(tc,REASON_EFFECT)
        end
        end
        \ No newline at end of file
        expansions/script/c12400166.lua
        View file @ 6dccaeef
        ......@@ -60,107 +60,65 @@ function s.desfilter(c)
        return not c:IsLocation(LOCATION_SZONE) or c:GetSequence()<5
        end
        function s.seqfilter(c,seq,tp)
        local loc=LOCATION_MZONE
        if seq>8 then
        loc=LOCATION_SZONE
        seq=seq-8
        end
        if seq>=5 and seq<=7 then return false end
        local cseq=c:GetSequence()
        local cloc=c:GetLocation()
        if cloc==LOCATION_SZONE and cseq>=5 then return false end
        if cloc==LOCATION_MZONE and cseq>=5 and loc==LOCATION_MZONE
        and (seq==1 and cseq==5 or seq==3 and cseq==6) then return true end
        return cseq==seq and cloc~=loc or cloc==loc and math.abs(cseq-seq)==1
        end
        function s.desfilter2(c)
        return not c:IsLocation(LOCATION_SZONE) or c:GetSequence()<5
        end
        function s.exmzfilter2(c,seq)
        return c:GetSequence()==seq
        end
        function s.seqfilter2(c,seq,tp)
        local loc=LOCATION_MZONE
        if seq>=8 then
        loc=LOCATION_SZONE
        seq=seq-8
        if cloc&LOCATION_SZONE~=0 and cseq>=5 then return false end
        if cloc&LOCATION_MZONE~=0 and cseq>=5 then
        if c:IsControler(tp) then
        return seq==1 and cseq==6 or seq==3 and cseq==5
        else
        return seq==1 and cseq==5 or seq==3 and cseq==6
        end
        end
        if seq>=5 and loc==LOCATION_SZONE then return false end
        if seq==7 and loc==LOCATION_MZONE then return false end
        local cseq=c:GetSequence()
        local cloc=c:GetLocation()
        if cloc==LOCATION_SZONE and cseq>=5 then return false end
        if cloc==LOCATION_MZONE and cseq>=5 and loc==LOCATION_MZONE
        and (seq==1 and cseq==5 or seq==3 and cseq==6) then return true end
        if cloc==LOCATION_MZONE and seq>=5 and loc==LOCATION_MZONE
        and Duel.IsExistingMatchingCard(s.exmzfilter2,tp,0,LOCATION_MZONE,1,nil,seq) then
        return seq==5 and cseq==1 or seq==6 and cseq==3
        if c:IsControler(tp) then
        return false
        end
        if cloc&LOCATION_MZONE~=0 then
        return cseq==seq or seq<5 and cseq<5 and math.abs(cseq-seq)==1
        else
        return cseq==seq
        end
        return cseq==seq and cloc~=loc or seq<5 and cseq<5 and cloc==loc and math.abs(cseq-seq)==1
        return false
        end
        function s.seqtg(e,tp,eg,ep,ev,re,r,rp,chk)
        local c=e:GetHandler()
        if chk==0 then return Duel.IsExistingMatchingCard(s.desfilter,tp,0,LOCATION_ONFIELD,1,nil) or Duel.IsExistingMatchingCard(s.desfilter2,tp,LOCATION_ONFIELD,0,1,nil) end
        Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,0,LOCATION_ONFIELD)
        local c=e:GetHandler()
        if chk==0 then return Duel.IsExistingMatchingCard(s.desfilter,tp,LOCATION_MZONE,LOCATION_ONFIELD,1,nil) end
        Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,1-tp,LOCATION_ONFIELD)
        end
        function s.seqop(e,tp,eg,ep,ev,re,r,rp)
        if Duel.IsExistingMatchingCard(s.desfilter,tp,0,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
        local filter=0
        for i=0,6 do
        if not Duel.IsExistingMatchingCard(s.seqfilter,tp,0,LOCATION_ONFIELD,1,nil,i,tp) then
        filter=filter|1<<(i+16)
        end
        end
        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ZONE)
        local flag=Duel.SelectField(tp,1,0,LOCATION_ONFIELD,filter)
        Duel.Hint(HINT_ZONE,tp,flag)
        local seq=math.log(flag>>16,2)
        local g=Duel.GetMatchingGroup(s.seqfilter,tp,0,LOCATION_ONFIELD,nil,seq,tp)
        if g:GetCount()>0 then
        Duel.Destroy(g,REASON_EFFECT)
        end
        else
        local filter=0
        for i=0,15 do
        if not Duel.IsExistingMatchingCard(s.seqfilter2,tp,LOCATION_ONFIELD,0,1,nil,i,tp) then
        filter=filter|1<<(i)
        end
        end
        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ZONE)
        local flag=Duel.SelectField(tp,1,LOCATION_ONFIELD,0,filter)
        Duel.Hint(HINT_ZONE,tp,flag)
        local seq=math.log(flag,2)
        local g=Duel.GetMatchingGroup(s.seqfilter2,tp,LOCATION_ONFIELD,0,nil,seq,tp)
        if g:GetCount()>0 then
        Duel.Destroy(g,REASON_EFFECT)
        local filter=0
        for i=0,6 do
        if not Duel.IsExistingMatchingCard(s.seqfilter,tp,LOCATION_MZONE,LOCATION_ONFIELD,1,nil,i,tp) then
        filter=filter|1<<(i+16)
        end
        end
        if Duel.IsExistingMatchingCard(Card.IsCanChangePosition,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
        local dg=Duel.SelectMatchingCard(tp,Card.IsCanChangePosition,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
        if dg:GetCount()>0 then
        Duel.ChangePosition(dg,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)
        end
        end
        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
        local flag=Duel.SelectField(tp,1,0,LOCATION_MZONE,filter)
        Duel.Hint(HINT_ZONE,tp,flag)
        local seq=math.log(flag>>16,2)
        local g=Duel.GetMatchingGroup(s.seqfilter,tp,LOCATION_MZONE,LOCATION_ONFIELD,nil,seq,tp)
        Duel.Destroy(g,REASON_EFFECT)
        end
        --
        function s.filter(c,e,tp)
        return c:IsSetCard(0x52a3) and ((c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable() and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 ) or (c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0))
        return c:IsSetCard(0x32a3) and ( (c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable() and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 ) or (c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0))
        end
        function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
        if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
        Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
        end
        function s.setop(e,tp,eg,ep,ev,re,r,rp)
        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
        local tc=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp):GetFirst()
        if tc then
        if tc:IsType(TYPE_SPELL+TYPE_TRAP) then
        Duel.SSet(tp,tc)
        end
        if tc:IsType(TYPE_MONSTER) then
        Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
        Duel.ConfirmCards(1-tp,tc)
        if Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil,tp) then
        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
        local tc=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp):GetFirst()
        if tc then
        if tc:IsType(TYPE_SPELL+TYPE_TRAP) then
        Duel.SSet(tp,tc)
        end
        if tc:IsType(TYPE_MONSTER) then
        Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
        Duel.ConfirmCards(1-tp,tc)
        end
        end
        end
        end
        ......@@ -176,4 +134,3 @@ end
        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