Skip to content

N
Nanahira-Cards
Commit 1b97c234 authored by nanahira's avatar nanahira
Browse files
Options

Merge branch 'master' into 'master' 

update 37564701

See merge request !1
parents ab13b30f 2bdbab55
Pipeline #35159 passed with stage
    in 35 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 50 additions and 78 deletions
    expansions/7cgl.cdb
    View file @ 1b97c234
    No preview for this file type
    expansions/script/c37564701.lua
    View file @ 1b97c234
    ...@@ -68,10 +68,10 @@ function cm.xyzcon(e,c,og,min,max) ...@@ -68,10 +68,10 @@ function cm.xyzcon(e,c,og,min,max)
    else else
    mg=Duel.GetMatchingGroup(cm.xyzfilter,tp,LOCATION_MZONE,0,nil,c) mg=Duel.GetMatchingGroup(cm.xyzfilter,tp,LOCATION_MZONE,0,nil,c)
    local exg=Duel.GetMatchingGroup(cm.xyzfilter1,tp,LOCATION_PZONE,0,nil,c) local exg=Duel.GetMatchingGroup(cm.xyzfilter1,tp,LOCATION_PZONE,0,nil,c)
    if #exg==2 and Duel.GetLocationCountFromEx(tp,tp,exg,c)>0 and Duel.GetFlagEffect(tp,m)==0 and not Duel.IsPlayerAffectedByEffect(EFFECT_MUST_BE_XMATERIAL) then return true end if #exg==2 and Duel.GetLocationCountFromEx(tp,tp,exg,c)>0 and Duel.GetFlagEffect(tp,m)==0 and not Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_XMATERIAL) then return true end
    end end
    local sg=Group.CreateGroup() local sg=Group.CreateGroup()
    local ce={Duel.IsPlayerAffectedByEffect(EFFECT_MUST_BE_XMATERIAL)} local ce={Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_XMATERIAL)}
    for _,te in ipairs(ce) do for _,te in ipairs(ce) do
    local tc=te:GetHandler() local tc=te:GetHandler()
    if not mg:IsContains(tc) then return false end if not mg:IsContains(tc) then return false end
    ...@@ -96,7 +96,7 @@ function cm.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og,min,max) ...@@ -96,7 +96,7 @@ function cm.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
    else else
    mg=Duel.GetMatchingGroup(cm.xyzfilter,tp,LOCATION_MZONE,0,nil,c) mg=Duel.GetMatchingGroup(cm.xyzfilter,tp,LOCATION_MZONE,0,nil,c)
    local exg=Duel.GetMatchingGroup(cm.xyzfilter1,tp,LOCATION_PZONE,0,nil,c) local exg=Duel.GetMatchingGroup(cm.xyzfilter1,tp,LOCATION_PZONE,0,nil,c)
    if #exg==2 and Duel.GetLocationCountFromEx(tp,tp,exg,c)>0 and Duel.GetFlagEffect(tp,m)==0 and not Duel.IsPlayerAffectedByEffect(EFFECT_MUST_BE_XMATERIAL) and (not Senya.CheckGroup(mg,Senya.CheckFieldFilter,nil,minc,maxc,tp,c) or Duel.SelectYesNo(tp,m*16)) then if #exg==2 and Duel.GetLocationCountFromEx(tp,tp,exg,c)>0 and Duel.GetFlagEffect(tp,m)==0 and not Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_XMATERIAL) and (not Senya.CheckGroup(mg,Senya.CheckFieldFilter,nil,minc,maxc,tp,c) or Duel.SelectYesNo(tp,m*16)) then
    Duel.HintSelection(exg) Duel.HintSelection(exg)
    Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1) Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
    c:SetMaterial(exg) c:SetMaterial(exg)
    ...@@ -105,7 +105,7 @@ function cm.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og,min,max) ...@@ -105,7 +105,7 @@ function cm.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og,min,max)
    end end
    end end
    local sg=Group.CreateGroup() local sg=Group.CreateGroup()
    local ce={Duel.IsPlayerAffectedByEffect(EFFECT_MUST_BE_XMATERIAL)} local ce={Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_XMATERIAL)}
    for _,te in ipairs(ce) do for _,te in ipairs(ce) do
    local tc=te:GetHandler() local tc=te:GetHandler()
    sg:AddCard(tc) sg:AddCard(tc)
    ...@@ -149,91 +149,63 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp) ...@@ -149,91 +149,63 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.ConfirmCards(1-tp,g) Duel.ConfirmCards(1-tp,g)
    end end
    end end
    function cm.PConditionFilter(c,e,tp) function cm.PConditionFilter(c,e,tp,lscale,rscale)
    local bool=aux.PendulumSummonableBool(c) local lv=0
    return (c:IsLocation(LOCATION_HAND) or (c:IsFaceup() and c:IsType(TYPE_PENDULUM))) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,bool,bool) if c.pendulum_level then
    lv=c.pendulum_level
    else
    lv=c:GetLevel()
    end
    local bool=Auxiliary.PendulumSummonableBool(c)
    return (c:IsLocation(LOCATION_HAND) or (c:IsFaceup() and c:IsType(TYPE_PENDULUM)))
    and lv>lscale and lv<rscale and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,bool,bool)
    and not c:IsForbidden() and not c:IsForbidden()
    end end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk) function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then if chk==0 then
    local c0=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
    local c1=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
    if not c0 or not c1 then return false end
    local lscale=c0:GetLeftScale()
    local rscale=c1:GetRightScale()
    if lscale>rscale then lscale,rscale=rscale,lscale end
    local loc=0 local loc=0
    if Duel.GetMZoneCount(tp)>0 then loc=loc+LOCATION_HAND end if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND end
    if Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)>0 then loc=loc+LOCATION_EXTRA end if Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)>0 then loc=loc+LOCATION_EXTRA end
    if loc==0 then return false end if loc==0 then return false end
    local g=nil local g=Duel.GetFieldGroup(tp,loc,0)
    if og then
    g=og:Filter(Card.IsLocation,nil,loc)
    else
    g=Duel.GetFieldGroup(tp,loc,0)
    end
    return g:IsExists(cm.PConditionFilter,1,nil,e,tp,lscale,rscale) return g:IsExists(cm.PConditionFilter,1,nil,e,tp,lscale,rscale)
    end end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,tp,LOCATION_EXTRA+LOCATION_HAND)
    end end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp) function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    if not cm.target(e,tp,eg,ep,ev,re,r,rp,0) then return end local c0=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
    local sg=Group.CreateGroup() local c1=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
    local ft1=math.max(Duel.GetMZoneCount(tp),2) if not c0 or not c1 then return false end
    local ft2=math.max(Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM),2) local lscale=c0:GetLeftScale()
    local ft=math.max(Duel.GetUsableMZoneCount(tp),2) local rscale=c1:GetRightScale()
    if Duel.IsPlayerAffectedByEffect(tp,59822133) then if lscale>rscale then lscale,rscale=rscale,lscale end
    if ft1>0 then ft1=1 end local loc=0
    if ft2>0 then ft2=1 end local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
    ft=1 local ft2=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)
    end local ft=Duel.GetUsableMZoneCount(tp)
    local loc=0 local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
    if ft1>0 then loc=loc+LOCATION_HAND end if ect and ect<ft2 then ft2=ect end
    if ft2>0 then loc=loc+LOCATION_EXTRA end if Duel.IsPlayerAffectedByEffect(tp,59822133) then
    local tg=nil if ft1>0 then ft1=1 end
    if og then if ft2>0 then ft2=1 end
    tg=og:Filter(Card.IsLocation,nil,loc):Filter(cm.PConditionFilter,nil,e,tp,lscale,rscale) ft=1
    else end
    tg=Duel.GetMatchingGroup(cm.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale) if ft1>0 then loc=loc|LOCATION_HAND end
    end if ft2>0 then loc=loc|LOCATION_EXTRA end
    ft1=math.min(ft1,tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND)) local tg=Duel.GetMatchingGroup(cm.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale)
    ft2=math.min(ft2,tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp] Auxiliary.GCheckAdditional=Auxiliary.PendOperationCheck(ft1,ft2,ft)
    if ect and ect<ft2 then ft2=ect end local g=tg:SelectSubGroup(tp,Auxiliary.TRUE,true,1,math.min(#tg,ft,2))
    while true do Auxiliary.GCheckAdditional=nil
    local ct1=tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND) if not g then return end
    local ct2=tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA) Duel.HintSelection(Group.FromCards(c0))
    local ct=ft Duel.HintSelection(Group.FromCards(c1))
    if ct1>ft1 then ct=math.min(ct,ft1) end Duel.SpecialSummon(g,SUMMON_TYPE_PENDULUM,tp,tp,false,false,POS_FACEUP)
    if ct2>ft2 then ct=math.min(ct,ft2) end
    if ct<=0 then break end
    if #sg>0 and not Duel.SelectYesNo(tp,210) then ft=0 break end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=tg:Select(tp,1,ct,nil)
    tg:Sub(g)
    sg:Merge(g)
    if #g<ct then ft=0 break end
    ft=ft-#g
    ft1=ft1-g:FilterCount(Card.IsLocation,nil,LOCATION_HAND)
    ft2=ft2-g:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
    end
    if ft>0 then
    local tg1=tg:Filter(Card.IsLocation,nil,LOCATION_HAND)
    local tg2=tg:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
    if ft1>0 and ft2==0 and #tg1>0 and (#sg==0 or Duel.SelectYesNo(tp,210)) then
    local ct=math.min(ft1,ft)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=tg1:Select(tp,1,ct,nil)
    sg:Merge(g)
    end
    if ft1==0 and ft2>0 and #tg2>0 and (#sg==0 or Duel.SelectYesNo(tp,210)) then
    local ct=math.min(ft2,ft)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=tg2:Select(tp,1,ct,nil)
    sg:Merge(g)
    end
    end
    if #sg<=0 then return end
    for tc in aux.Next(sg) do
    local bool=aux.PendulumSummonableBool(tc)
    Duel.SpecialSummonStep(tc,SUMMON_TYPE_PENDULUM,tp,tp,bool,bool,POS_FACEUP)
    end
    Duel.SpecialSummonComplete()
    for tc in aux.Next(sg) do tc:CompleteProcedure() end
    end end
    function cm.sumcon(e,tp,eg,ep,ev,re,r,rp) function cm.sumcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsPreviousPosition(POS_FACEUP) and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) return e:GetHandler():IsPreviousPosition(POS_FACEUP) and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
    ......
    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