Updated 400+ cards

expansions/script/c131000000.lua

+--Vivid BAD SQUAD 小豆泽心羽
+local m=131000000
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    
+    --pendulum summon
+    aux.EnablePendulumAttribute(c)
+    local e0=Effect.CreateEffect(c)
+    e0:SetDescription(aux.Stringid(131000000,0))
+    e0:SetType(EFFECT_TYPE_FIELD)
+    e0:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e0:SetRange(LOCATION_PZONE)
+    e0:SetCountLimit(1,10000000)
+    e0:SetCondition(c131000000.pendcon)
+    e0:SetOperation(c131000000.pendop)
+    e0:SetValue(SUMMON_TYPE_PENDULUM)
+    c:RegisterEffect(e0)
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e5:SetCode(EVENT_CHAIN_SOLVED)
+    e5:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e5:SetRange(LOCATION_PZONE)
+    e5:SetOperation(c131000000.cpop)
+    c:RegisterEffect(e5)    
+    --tohand
+    local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(131000000,1))
+    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e1:SetCode(EVENT_SUMMON_SUCCESS)
+    e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+    e1:SetTarget(c131000000.target)
+    e1:SetOperation(c131000000.operation)
+    c:RegisterEffect(e1)
+    local e2=e1:Clone()
+    e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+    c:RegisterEffect(e2)
+    local e3=e1:Clone()
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    c:RegisterEffect(e3)
+
+    --splimit
+    local e6=Effect.CreateEffect(c)
+    e6:SetType(EFFECT_TYPE_FIELD)
+    e6:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+    e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e6:SetRange(LOCATION_MZONE)
+    e6:SetTargetRange(1,0)
+    e6:SetTarget(c131000000.splimit)
+    c:RegisterEffect(e6)
+end
+function c131000000.scfilter(c)
+    return c:IsCode(131000001,131000005)
+end
+function c131000000.pendcon(e,c,og)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    if aux.PendulumChecklist&(0x1<<tp)~=0 and #eset==0 then return false end
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+    if rpz==nil or lpz==nil or (not Duel.IsExistingMatchingCard(c131000000.scfilter,e:GetHandlerPlayer(),LOCATION_PZONE,0,1,e:GetHandler()))  then return false end
+    local lscale=lpz:GetLeftScale()
+    local rscale=rpz:GetRightScale()
+    if lscale>rscale then lscale,rscale=rscale,lscale end
+
+    local loc=0
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+    if Duel.GetLocationCountFromEx(tp)>0 then loc=loc+LOCATION_EXTRA end
+    if loc==0 then return false end
+
+
+    if og then
+        return og:IsExists(c131000000.PConditionFilter,1,nil,e,tp,lscale,rscale)
+    else
+        return Duel.IsExistingMatchingCard(c131000000.PConditionFilter,tp,loc,0,1,nil,e,tp,lscale,rscale)
+    end
+end
+function c131000000.PConditionFilter(c,e,tp,lscale,rscale)
+    local lv=0
+    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))  or (c:IsLocation(LOCATION_DECK) and c:IsType(TYPE_PENDULUM) and  c:IsSetCard(0xacda)  ))
+        and lv>lscale and lv<rscale and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,bool,bool)
+        and not c:IsForbidden()
+end
+function c131000000.pendop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
+                Duel.Hint(HINT_CARD,0,131000000)
+                local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+                local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+                local lscale=lpz:GetLeftScale()
+                local rscale=rpz:GetRightScale()
+                if lscale>rscale then lscale,rscale=rscale,lscale end
+                local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
+                local ft2=Duel.GetLocationCountFromEx(tp)
+                local ft=Duel.GetUsableMZoneCount(tp)
+                if Duel.IsPlayerAffectedByEffect(tp,59822133) then
+                    if ft1>0 then ft1=1 end
+                    if ft2>0 then ft2=1 end
+                    ft=1
+                end
+                local loc=0
+                local ct0=0
+                if ft1>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+                if ft2>0 then loc=loc+LOCATION_EXTRA end
+                local tg=nil
+                if og then
+                    tg=og:Filter(Card.IsLocation,nil,loc):Filter(c131000000.PConditionFilter,nil,e,tp,lscale,rscale)
+                else
+                    tg=Duel.GetMatchingGroup(c131000000.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale)
+                end
+
+    local tp=e:GetOwnerPlayer()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    local ce=nil
+    local b1=aux.PendulumChecklist&(0x1<<tp)==0
+    local b2=#eset>0
+    if b1 and b2 then
+        local options={1163}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        if op>0 then
+            ce=eset[op]
+        end
+    elseif b2 and not b1 then
+        local options={}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        ce=eset[op+1]
+    end
+
+                ft0=1
+                ft1=math.min(ft1,tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK))
+                ft2=math.min(ft2,tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA))
+                local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
+                if ect and ect<ft2 then ft2=ect end
+                while true do
+                    local ct1=tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local ct2=tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                    local ct=ft
+                    if ct1>ft1 then ct=math.min(ct,ft1) end
+                    if ct2>ft2 then ct=math.min(ct,ft2) end
+                    if ct<=0 then break end
+                    if sg:GetCount()>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:GetCount()<ct then ft=0 break end
+                    ft=ft-g:GetCount()
+                    ft1=ft1-g:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    ft2=ft2-g:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                end
+                if ft>0 then
+                    local tg1=tg:Filter(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local tg2=tg:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
+                    if ft1>0 and ft2==0 and tg1:GetCount()>0 and (sg:GetCount()==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:GetCount()>0 and (sg:GetCount()==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 ce then
+        Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())
+        ce:Reset()
+    else
+        aux.PendulumChecklist=aux.PendulumChecklist|(0x1<<tp)
+    end
+                Duel.HintSelection(Group.FromCards(lpz))
+                Duel.HintSelection(Group.FromCards(rpz))
+end
+function c131000000.cpop(e,tp,eg,ep,ev,re,r,rp)
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    if lpz==nil  then return false end
+    local e1=Effect.CreateEffect(e:GetHandler())
+    e1:SetDescription(aux.Stringid(131000000,0))
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_BOTH_SIDE)
+    e1:SetRange(LOCATION_PZONE)
+    e1:SetCountLimit(1,10000000)
+    e1:SetCondition(c131000000.pendcon)
+    e1:SetOperation(c131000000.pendop)
+    e1:SetValue(SUMMON_TYPE_PENDULUM)
+    e1:SetReset(RESET_EVENT+0x1fe0000)
+    lpz:RegisterEffect(e1)
+    lpz:RegisterFlagEffect(131000000,RESET_EVENT+0x1fe0000,0,1)
+end
+
+function c131000000.filter(c)
+    return c:IsSetCard(0xacda) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c131000000.target(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c131000000.filter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c131000000.operation(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c131000000.filter,tp,LOCATION_DECK,0,1,1,nil)
+    if g:GetCount()>0 then
+        Duel.SendtoHand(g,nil,REASON_EFFECT)
+        Duel.ConfirmCards(1-tp,g)
+    end
+end
+function c131000000.splimit(e,c)
+    return not c:IsSetCard(0xacda)
+end
\ No newline at end of file

expansions/script/c131000001.lua

+--Vivid BAD SQUAD 白石杏
+local m=131000001
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    
+    --pendulum summon
+    aux.EnablePendulumAttribute(c)
+    local e0=Effect.CreateEffect(c)
+    e0:SetDescription(aux.Stringid(131000001,0))
+    e0:SetType(EFFECT_TYPE_FIELD)
+    e0:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e0:SetRange(LOCATION_PZONE)
+    e0:SetCountLimit(1,10000000)
+    e0:SetCondition(c131000001.pendcon)
+    e0:SetOperation(c131000001.pendop)
+    e0:SetValue(SUMMON_TYPE_PENDULUM)
+    c:RegisterEffect(e0)
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e5:SetCode(EVENT_CHAIN_SOLVED)
+    e5:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e5:SetRange(LOCATION_PZONE)
+    e5:SetOperation(c131000001.cpop)
+    c:RegisterEffect(e5)    
+    --tohand
+    local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(131000001,1))
+    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e1:SetCode(EVENT_SUMMON_SUCCESS)
+    e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+    e1:SetTarget(c131000001.target)
+    e1:SetOperation(c131000001.operation)
+    c:RegisterEffect(e1)
+    local e2=e1:Clone()
+    e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+    c:RegisterEffect(e2)
+    local e3=e1:Clone()
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    c:RegisterEffect(e3)   
+    --splimit
+    local e6=Effect.CreateEffect(c)
+    e6:SetType(EFFECT_TYPE_FIELD)
+    e6:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+    e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e6:SetRange(LOCATION_MZONE)
+    e6:SetTargetRange(1,0)
+    e6:SetTarget(c131000001.splimit)
+    c:RegisterEffect(e6)
+end
+function c131000001.scfilter(c)
+    return c:IsCode(131000000,131000004)
+end
+function c131000001.pendcon(e,c,og)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    if aux.PendulumChecklist&(0x1<<tp)~=0 and #eset==0 then return false end
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+    if rpz==nil or lpz==nil or (not Duel.IsExistingMatchingCard(c131000001.scfilter,e:GetHandlerPlayer(),LOCATION_PZONE,0,1,e:GetHandler()))  then return false end
+    local lscale=lpz:GetLeftScale()
+    local rscale=rpz:GetRightScale()
+    if lscale>rscale then lscale,rscale=rscale,lscale end
+
+    local loc=0
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+    if Duel.GetLocationCountFromEx(tp)>0 then loc=loc+LOCATION_EXTRA end
+    if loc==0 then return false end
+
+
+    if og then
+        return og:IsExists(c131000001.PConditionFilter,1,nil,e,tp,lscale,rscale)
+    else
+        return Duel.IsExistingMatchingCard(c131000001.PConditionFilter,tp,loc,0,1,nil,e,tp,lscale,rscale)
+    end
+end
+function c131000001.PConditionFilter(c,e,tp,lscale,rscale)
+    local lv=0
+    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))  or (c:IsLocation(LOCATION_DECK) and c:IsType(TYPE_PENDULUM) and  c:IsSetCard(0xacda)  ))
+        and lv>lscale and lv<rscale and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,bool,bool)
+        and not c:IsForbidden()
+end
+function c131000001.pendop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
+                Duel.Hint(HINT_CARD,0,131000001)
+                local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+                local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+                local lscale=lpz:GetLeftScale()
+                local rscale=rpz:GetRightScale()
+                if lscale>rscale then lscale,rscale=rscale,lscale end
+                local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
+                local ft2=Duel.GetLocationCountFromEx(tp)
+                local ft=Duel.GetUsableMZoneCount(tp)
+                if Duel.IsPlayerAffectedByEffect(tp,59822133) then
+                    if ft1>0 then ft1=1 end
+                    if ft2>0 then ft2=1 end
+                    ft=1
+                end
+                local loc=0
+                local ct0=0
+                if ft1>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+                if ft2>0 then loc=loc+LOCATION_EXTRA end
+                local tg=nil
+                if og then
+                    tg=og:Filter(Card.IsLocation,nil,loc):Filter(c131000001.PConditionFilter,nil,e,tp,lscale,rscale)
+                else
+                    tg=Duel.GetMatchingGroup(c131000001.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale)
+                end
+
+    local tp=e:GetOwnerPlayer()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    local ce=nil
+    local b1=aux.PendulumChecklist&(0x1<<tp)==0
+    local b2=#eset>0
+    if b1 and b2 then
+        local options={1163}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        if op>0 then
+            ce=eset[op]
+        end
+    elseif b2 and not b1 then
+        local options={}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        ce=eset[op+1]
+    end
+
+                ft0=1
+                ft1=math.min(ft1,tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK))
+                ft2=math.min(ft2,tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA))
+                local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
+                if ect and ect<ft2 then ft2=ect end
+                while true do
+                    local ct1=tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local ct2=tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                    local ct=ft
+                    if ct1>ft1 then ct=math.min(ct,ft1) end
+                    if ct2>ft2 then ct=math.min(ct,ft2) end
+                    if ct<=0 then break end
+                    if sg:GetCount()>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:GetCount()<ct then ft=0 break end
+                    ft=ft-g:GetCount()
+                    ft1=ft1-g:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    ft2=ft2-g:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                end
+                if ft>0 then
+                    local tg1=tg:Filter(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local tg2=tg:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
+                    if ft1>0 and ft2==0 and tg1:GetCount()>0 and (sg:GetCount()==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:GetCount()>0 and (sg:GetCount()==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 ce then
+        Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())
+        ce:Reset()
+    else
+        aux.PendulumChecklist=aux.PendulumChecklist|(0x1<<tp)
+    end
+                Duel.HintSelection(Group.FromCards(lpz))
+                Duel.HintSelection(Group.FromCards(rpz))
+end
+function c131000001.cpop(e,tp,eg,ep,ev,re,r,rp)
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    if lpz==nil  then return false end
+    local e1=Effect.CreateEffect(e:GetHandler())
+    e1:SetDescription(aux.Stringid(131000001,0))
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_BOTH_SIDE)
+    e1:SetRange(LOCATION_PZONE)
+    e1:SetCountLimit(1,10000000)
+    e1:SetCondition(c131000001.pendcon)
+    e1:SetOperation(c131000001.pendop)
+    e1:SetValue(SUMMON_TYPE_PENDULUM)
+    e1:SetReset(RESET_EVENT+0x1fe0000)
+    lpz:RegisterEffect(e1)
+    lpz:RegisterFlagEffect(131000001,RESET_EVENT+0x1fe0000,0,1)
+end
+
+function c131000001.filter(c)
+    return c:IsSetCard(0xacda) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and c:IsFaceup()
+end
+function c131000001.target(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c131000001.filter,tp,LOCATION_EXTRA,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA)
+end
+function c131000001.operation(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c131000001.filter,tp,LOCATION_EXTRA,0,1,1,nil)
+    if g:GetCount()>0 then
+        Duel.SendtoHand(g,nil,REASON_EFFECT)
+        Duel.ConfirmCards(1-tp,g)
+    end
+end
+function c131000001.splimit(e,c)
+    return not c:IsSetCard(0xacda)
+end
\ No newline at end of file

expansions/script/c131000002.lua

+--Vivid BAD SQUAD 东云彰人
+local m=131000002
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    
+    --pendulum summon
+    aux.EnablePendulumAttribute(c)
+    local e0=Effect.CreateEffect(c)
+    e0:SetDescription(aux.Stringid(131000002,0))
+    e0:SetType(EFFECT_TYPE_FIELD)
+    e0:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e0:SetRange(LOCATION_PZONE)
+    e0:SetCountLimit(1,10000000)
+    e0:SetCondition(c131000002.pendcon)
+    e0:SetOperation(c131000002.pendop)
+    e0:SetValue(SUMMON_TYPE_PENDULUM)
+    c:RegisterEffect(e0)
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e5:SetCode(EVENT_CHAIN_SOLVED)
+    e5:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e5:SetRange(LOCATION_PZONE)
+    e5:SetOperation(c131000002.cpop)
+    c:RegisterEffect(e5)    
+    --tohand
+    local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(131000002,1))
+    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e1:SetCode(EVENT_SUMMON_SUCCESS)
+    e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+    e1:SetTarget(c131000002.target)
+    e1:SetOperation(c131000002.operation)
+    c:RegisterEffect(e1)
+    local e2=e1:Clone()
+    e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+    c:RegisterEffect(e2)
+    local e3=e1:Clone()
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    c:RegisterEffect(e3)
+
+    --splimit
+    local e6=Effect.CreateEffect(c)
+    e6:SetType(EFFECT_TYPE_FIELD)
+    e6:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+    e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e6:SetRange(LOCATION_MZONE)
+    e6:SetTargetRange(1,0)
+    e6:SetTarget(c131000002.splimit)
+    c:RegisterEffect(e6)
+end
+function c131000002.scfilter(c)
+    return c:IsCode(131000003,131000007)
+end
+function c131000002.pendcon(e,c,og)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    if aux.PendulumChecklist&(0x1<<tp)~=0 and #eset==0 then return false end
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+    if rpz==nil or lpz==nil or (not Duel.IsExistingMatchingCard(c131000002.scfilter,e:GetHandlerPlayer(),LOCATION_PZONE,0,1,e:GetHandler()))  then return false end
+    local lscale=lpz:GetLeftScale()
+    local rscale=rpz:GetRightScale()
+    if lscale>rscale then lscale,rscale=rscale,lscale end
+
+    local loc=0
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+    if Duel.GetLocationCountFromEx(tp)>0 then loc=loc+LOCATION_EXTRA end
+    if loc==0 then return false end
+
+
+    if og then
+        return og:IsExists(c131000002.PConditionFilter,1,nil,e,tp,lscale,rscale)
+    else
+        return Duel.IsExistingMatchingCard(c131000002.PConditionFilter,tp,loc,0,1,nil,e,tp,lscale,rscale)
+    end
+end
+function c131000002.PConditionFilter(c,e,tp,lscale,rscale)
+    local lv=0
+    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))  or (c:IsLocation(LOCATION_DECK) and c:IsType(TYPE_PENDULUM) and  c:IsSetCard(0xacda)  ))
+        and lv>lscale and lv<rscale and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,bool,bool)
+        and not c:IsForbidden()
+end
+function c131000002.pendop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
+                Duel.Hint(HINT_CARD,0,131000002)
+                local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+                local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+                local lscale=lpz:GetLeftScale()
+                local rscale=rpz:GetRightScale()
+                if lscale>rscale then lscale,rscale=rscale,lscale end
+                local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
+                local ft2=Duel.GetLocationCountFromEx(tp)
+                local ft=Duel.GetUsableMZoneCount(tp)
+                if Duel.IsPlayerAffectedByEffect(tp,59822133) then
+                    if ft1>0 then ft1=1 end
+                    if ft2>0 then ft2=1 end
+                    ft=1
+                end
+                local loc=0
+                local ct0=0
+                if ft1>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+                if ft2>0 then loc=loc+LOCATION_EXTRA end
+                local tg=nil
+                if og then
+                    tg=og:Filter(Card.IsLocation,nil,loc):Filter(c131000002.PConditionFilter,nil,e,tp,lscale,rscale)
+                else
+                    tg=Duel.GetMatchingGroup(c131000002.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale)
+                end
+
+    local tp=e:GetOwnerPlayer()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    local ce=nil
+    local b1=aux.PendulumChecklist&(0x1<<tp)==0
+    local b2=#eset>0
+    if b1 and b2 then
+        local options={1163}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        if op>0 then
+            ce=eset[op]
+        end
+    elseif b2 and not b1 then
+        local options={}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        ce=eset[op+1]
+    end
+
+                ft0=1
+                ft1=math.min(ft1,tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK))
+                ft2=math.min(ft2,tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA))
+                local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
+                if ect and ect<ft2 then ft2=ect end
+                while true do
+                    local ct1=tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local ct2=tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                    local ct=ft
+                    if ct1>ft1 then ct=math.min(ct,ft1) end
+                    if ct2>ft2 then ct=math.min(ct,ft2) end
+                    if ct<=0 then break end
+                    if sg:GetCount()>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:GetCount()<ct then ft=0 break end
+                    ft=ft-g:GetCount()
+                    ft1=ft1-g:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    ft2=ft2-g:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                end
+                if ft>0 then
+                    local tg1=tg:Filter(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local tg2=tg:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
+                    if ft1>0 and ft2==0 and tg1:GetCount()>0 and (sg:GetCount()==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:GetCount()>0 and (sg:GetCount()==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 ce then
+        Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())
+        ce:Reset()
+    else
+        aux.PendulumChecklist=aux.PendulumChecklist|(0x1<<tp)
+    end
+                Duel.HintSelection(Group.FromCards(lpz))
+                Duel.HintSelection(Group.FromCards(rpz))
+end
+function c131000002.cpop(e,tp,eg,ep,ev,re,r,rp)
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    if lpz==nil  then return false end
+    local e1=Effect.CreateEffect(e:GetHandler())
+    e1:SetDescription(aux.Stringid(131000002,0))
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_BOTH_SIDE)
+    e1:SetRange(LOCATION_PZONE)
+    e1:SetCountLimit(1,10000000)
+    e1:SetCondition(c131000002.pendcon)
+    e1:SetOperation(c131000002.pendop)
+    e1:SetValue(SUMMON_TYPE_PENDULUM)
+    e1:SetReset(RESET_EVENT+0x1fe0000)
+    lpz:RegisterEffect(e1)
+    lpz:RegisterFlagEffect(131000002,RESET_EVENT+0x1fe0000,0,1)
+end
+
+function c131000002.filter(c)
+    return c:IsSetCard(0xacda) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c131000002.target(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c131000002.filter,tp,LOCATION_GRAVE,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+end
+function c131000002.operation(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c131000002.filter,tp,LOCATION_GRAVE,0,1,1,nil)
+    if g:GetCount()>0 then
+        Duel.SendtoHand(g,nil,REASON_EFFECT)
+        Duel.ConfirmCards(1-tp,g)
+    end
+end
+function c131000002.splimit(e,c)
+    return not c:IsSetCard(0xacda)
+end
\ No newline at end of file

expansions/script/c131000003.lua

+--Vivid BAD SQUAD 青柳冬弥
+local m=131000003
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    
+    --pendulum summon
+    aux.EnablePendulumAttribute(c)
+    local e0=Effect.CreateEffect(c)
+    e0:SetDescription(aux.Stringid(131000003,0))
+    e0:SetType(EFFECT_TYPE_FIELD)
+    e0:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e0:SetRange(LOCATION_PZONE)
+    e0:SetCountLimit(1,10000000)
+    e0:SetCondition(c131000003.pendcon)
+    e0:SetOperation(c131000003.pendop)
+    e0:SetValue(SUMMON_TYPE_PENDULUM)
+    c:RegisterEffect(e0)
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e5:SetCode(EVENT_CHAIN_SOLVED)
+    e5:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e5:SetRange(LOCATION_PZONE)
+    e5:SetOperation(c131000003.cpop)
+    c:RegisterEffect(e5)    
+    --tohand
+    local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(131000003,1))
+    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e1:SetCode(EVENT_SUMMON_SUCCESS)
+    e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+    e1:SetTarget(c131000003.target)
+    e1:SetOperation(c131000003.operation)
+    c:RegisterEffect(e1)
+    local e2=e1:Clone()
+    e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
+    c:RegisterEffect(e2)
+    local e3=e1:Clone()
+    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+    c:RegisterEffect(e3)
+
+    --splimit
+    local e6=Effect.CreateEffect(c)
+    e6:SetType(EFFECT_TYPE_FIELD)
+    e6:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+    e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e6:SetRange(LOCATION_MZONE)
+    e6:SetTargetRange(1,0)
+    e6:SetTarget(c131000003.splimit)
+    c:RegisterEffect(e6)
+end
+function c131000003.scfilter(c)
+    return c:IsCode(131000002,131000006)
+end
+function c131000003.pendcon(e,c,og)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    if aux.PendulumChecklist&(0x1<<tp)~=0 and #eset==0 then return false end
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+    if rpz==nil or lpz==nil or (not Duel.IsExistingMatchingCard(c131000003.scfilter,e:GetHandlerPlayer(),LOCATION_PZONE,0,1,e:GetHandler()))  then return false end
+    local lscale=lpz:GetLeftScale()
+    local rscale=rpz:GetRightScale()
+    if lscale>rscale then lscale,rscale=rscale,lscale end
+
+    local loc=0
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+    if Duel.GetLocationCountFromEx(tp)>0 then loc=loc+LOCATION_EXTRA end
+    if loc==0 then return false end
+
+
+    if og then
+        return og:IsExists(c131000003.PConditionFilter,1,nil,e,tp,lscale,rscale)
+    else
+        return Duel.IsExistingMatchingCard(c131000003.PConditionFilter,tp,loc,0,1,nil,e,tp,lscale,rscale)
+    end
+end
+function c131000003.PConditionFilter(c,e,tp,lscale,rscale)
+    local lv=0
+    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))  or (c:IsLocation(LOCATION_DECK) and c:IsType(TYPE_PENDULUM) and  c:IsSetCard(0xacda)  ))
+        and lv>lscale and lv<rscale and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,bool,bool)
+        and not c:IsForbidden()
+end
+function c131000003.pendop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
+                Duel.Hint(HINT_CARD,0,131000003)
+                local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+                local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+                local lscale=lpz:GetLeftScale()
+                local rscale=rpz:GetRightScale()
+                if lscale>rscale then lscale,rscale=rscale,lscale end
+                local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
+                local ft2=Duel.GetLocationCountFromEx(tp)
+                local ft=Duel.GetUsableMZoneCount(tp)
+                if Duel.IsPlayerAffectedByEffect(tp,59822133) then
+                    if ft1>0 then ft1=1 end
+                    if ft2>0 then ft2=1 end
+                    ft=1
+                end
+                local loc=0
+                local ct0=0
+                if ft1>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+                if ft2>0 then loc=loc+LOCATION_EXTRA end
+                local tg=nil
+                if og then
+                    tg=og:Filter(Card.IsLocation,nil,loc):Filter(c131000003.PConditionFilter,nil,e,tp,lscale,rscale)
+                else
+                    tg=Duel.GetMatchingGroup(c131000003.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale)
+                end
+
+    local tp=e:GetOwnerPlayer()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    local ce=nil
+    local b1=aux.PendulumChecklist&(0x1<<tp)==0
+    local b2=#eset>0
+    if b1 and b2 then
+        local options={1163}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        if op>0 then
+            ce=eset[op]
+        end
+    elseif b2 and not b1 then
+        local options={}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        ce=eset[op+1]
+    end
+
+                ft0=1
+                ft1=math.min(ft1,tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK))
+                ft2=math.min(ft2,tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA))
+                local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
+                if ect and ect<ft2 then ft2=ect end
+                while true do
+                    local ct1=tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local ct2=tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                    local ct=ft
+                    if ct1>ft1 then ct=math.min(ct,ft1) end
+                    if ct2>ft2 then ct=math.min(ct,ft2) end
+                    if ct<=0 then break end
+                    if sg:GetCount()>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:GetCount()<ct then ft=0 break end
+                    ft=ft-g:GetCount()
+                    ft1=ft1-g:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    ft2=ft2-g:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                end
+                if ft>0 then
+                    local tg1=tg:Filter(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local tg2=tg:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
+                    if ft1>0 and ft2==0 and tg1:GetCount()>0 and (sg:GetCount()==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:GetCount()>0 and (sg:GetCount()==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 ce then
+        Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())
+        ce:Reset()
+    else
+        aux.PendulumChecklist=aux.PendulumChecklist|(0x1<<tp)
+    end
+                Duel.HintSelection(Group.FromCards(lpz))
+                Duel.HintSelection(Group.FromCards(rpz))
+end
+function c131000003.cpop(e,tp,eg,ep,ev,re,r,rp)
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    if lpz==nil  then return false end
+    local e1=Effect.CreateEffect(e:GetHandler())
+    e1:SetDescription(aux.Stringid(131000003,0))
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_BOTH_SIDE)
+    e1:SetRange(LOCATION_PZONE)
+    e1:SetCountLimit(1,10000000)
+    e1:SetCondition(c131000003.pendcon)
+    e1:SetOperation(c131000003.pendop)
+    e1:SetValue(SUMMON_TYPE_PENDULUM)
+    e1:SetReset(RESET_EVENT+0x1fe0000)
+    lpz:RegisterEffect(e1)
+    lpz:RegisterFlagEffect(131000003,RESET_EVENT+0x1fe0000,0,1)
+end
+
+function c131000003.filter(c)
+    return c:IsSetCard(0xacda) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c131000003.target(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c131000003.filter,tp,LOCATION_REMOVED,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED)
+end
+function c131000003.operation(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,c131000003.filter,tp,LOCATION_REMOVED,0,1,1,nil)
+    if g:GetCount()>0 then
+        Duel.SendtoHand(g,nil,REASON_EFFECT)
+        Duel.ConfirmCards(1-tp,g)
+    end
+end
+function c131000003.splimit(e,c)
+    return not c:IsSetCard(0xacda)
+end
\ No newline at end of file

expansions/script/c131000004.lua

+--Vivid BAD SQUAD 小豆泽心羽☆
+local m=131000004
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    --xyz summon
+    c:EnableReviveLimit()
+    aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0xacda),4,3,c131000004.ovfilter,aux.Stringid(131000004,2))
+    --pendulum summon
+    aux.EnablePendulumAttribute(c,false)
+    
+    --pendulum summon
+    aux.EnablePendulumAttribute(c)
+    local e0=Effect.CreateEffect(c)
+    e0:SetDescription(aux.Stringid(131000004,0))
+    e0:SetType(EFFECT_TYPE_FIELD)
+    e0:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e0:SetRange(LOCATION_PZONE)
+    e0:SetCountLimit(1,10000000)
+    e0:SetCondition(c131000004.pendcon)
+    e0:SetOperation(c131000004.pendop)
+    e0:SetValue(SUMMON_TYPE_PENDULUM)
+    c:RegisterEffect(e0)
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e5:SetCode(EVENT_CHAIN_SOLVED)
+    e5:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e5:SetRange(LOCATION_PZONE)
+    e5:SetOperation(c131000004.cpop)
+    c:RegisterEffect(e5)   
+
+    --Search
+    local e2=Effect.CreateEffect(c)
+    e2:SetDescription(aux.Stringid(131000004,1))
+    e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e2:SetType(EFFECT_TYPE_IGNITION)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetCost(c131000004.thcost)
+    e2:SetTarget(c131000004.thtg)
+    e2:SetOperation(c131000004.thop)
+    c:RegisterEffect(e2)
+
+
+
+end
+c131000004.pendulum_level=4
+function c131000004.ovfilter(c)
+    return c:IsFaceup() and c:IsCode(131000000) 
+end
+
+function c131000004.scfilter(c)
+    return c:IsCode(131000001,131000005)
+end
+function c131000004.pendcon(e,c,og)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    if aux.PendulumChecklist&(0x1<<tp)~=0 and #eset==0 then return false end
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+    if rpz==nil or lpz==nil or (not Duel.IsExistingMatchingCard(c131000004.scfilter,e:GetHandlerPlayer(),LOCATION_PZONE,0,1,e:GetHandler()))  then return false end
+    local lscale=lpz:GetLeftScale()
+    local rscale=rpz:GetRightScale()
+    if lscale>rscale then lscale,rscale=rscale,lscale end
+
+    local loc=0
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+    if Duel.GetLocationCountFromEx(tp)>0 then loc=loc+LOCATION_EXTRA end
+    if loc==0 then return false end
+
+
+    if og then
+        return og:IsExists(c131000004.PConditionFilter,1,nil,e,tp,lscale,rscale)
+    else
+        return Duel.IsExistingMatchingCard(c131000004.PConditionFilter,tp,loc,0,1,nil,e,tp,lscale,rscale)
+    end
+end
+function c131000004.PConditionFilter(c,e,tp,lscale,rscale)
+    local lv=0
+    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))  or (c:IsLocation(LOCATION_DECK) and c:IsType(TYPE_PENDULUM) and  c:IsSetCard(0xacda)  ))
+        and lv>lscale and lv<rscale and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,bool,bool)
+        and not c:IsForbidden()
+end
+function c131000004.pendop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
+                Duel.Hint(HINT_CARD,0,131000004)
+                local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+                local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+                local lscale=lpz:GetLeftScale()
+                local rscale=rpz:GetRightScale()
+                if lscale>rscale then lscale,rscale=rscale,lscale end
+                local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
+                local ft2=Duel.GetLocationCountFromEx(tp)
+                local ft=Duel.GetUsableMZoneCount(tp)
+                if Duel.IsPlayerAffectedByEffect(tp,59822133) then
+                    if ft1>0 then ft1=1 end
+                    if ft2>0 then ft2=1 end
+                    ft=1
+                end
+                local loc=0
+                local ct0=0
+                if ft1>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+                if ft2>0 then loc=loc+LOCATION_EXTRA end
+                local tg=nil
+                if og then
+                    tg=og:Filter(Card.IsLocation,nil,loc):Filter(c131000004.PConditionFilter,nil,e,tp,lscale,rscale)
+                else
+                    tg=Duel.GetMatchingGroup(c131000004.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale)
+                end
+
+    local tp=e:GetOwnerPlayer()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    local ce=nil
+    local b1=aux.PendulumChecklist&(0x1<<tp)==0
+    local b2=#eset>0
+    if b1 and b2 then
+        local options={1163}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        if op>0 then
+            ce=eset[op]
+        end
+    elseif b2 and not b1 then
+        local options={}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        ce=eset[op+1]
+    end
+
+                ft0=1
+                ft1=math.min(ft1,tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK))
+                ft2=math.min(ft2,tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA))
+                local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
+                if ect and ect<ft2 then ft2=ect end
+                while true do
+                    local ct1=tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local ct2=tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                    local ct=ft
+                    if ct1>ft1 then ct=math.min(ct,ft1) end
+                    if ct2>ft2 then ct=math.min(ct,ft2) end
+                    if ct<=0 then break end
+                    if sg:GetCount()>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:GetCount()<ct then ft=0 break end
+                    ft=ft-g:GetCount()
+                    ft1=ft1-g:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    ft2=ft2-g:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                end
+                if ft>0 then
+                    local tg1=tg:Filter(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local tg2=tg:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
+                    if ft1>0 and ft2==0 and tg1:GetCount()>0 and (sg:GetCount()==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:GetCount()>0 and (sg:GetCount()==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 ce then
+        Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())
+        ce:Reset()
+    else
+        aux.PendulumChecklist=aux.PendulumChecklist|(0x1<<tp)
+    end
+                Duel.HintSelection(Group.FromCards(lpz))
+                Duel.HintSelection(Group.FromCards(rpz))
+end
+function c131000004.cpop(e,tp,eg,ep,ev,re,r,rp)
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    if lpz==nil  then return false end
+    local e1=Effect.CreateEffect(e:GetHandler())
+    e1:SetDescription(aux.Stringid(131000004,0))
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_BOTH_SIDE)
+    e1:SetRange(LOCATION_PZONE)
+    e1:SetCountLimit(1,10000000)
+    e1:SetCondition(c131000004.pendcon)
+    e1:SetOperation(c131000004.pendop)
+    e1:SetValue(SUMMON_TYPE_PENDULUM)
+    e1:SetReset(RESET_EVENT+0x1fe0000)
+    lpz:RegisterEffect(e1)
+    lpz:RegisterFlagEffect(131000004,RESET_EVENT+0x1fe0000,0,1)
+end
+
+
+function c131000004.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c131000004.thfilter(c)
+    return c:IsRace(RACE_WARRIOR) and c:IsLevelBelow(4)
+        and (c:IsFaceup() or not c:IsLocation(LOCATION_EXTRA)) and c:IsAbleToHand()
+end
+function c131000004.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(c131000004.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_EXTRA)
+end
+function c131000004.thop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c131000004.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_EXTRA,0,1,1,nil)
+    local tc=g:GetFirst()
+    if not tc then return end
+    Duel.SendtoHand(tc,nil,REASON_EFFECT)
+    Duel.ConfirmCards(1-tp,tc)
+end
\ No newline at end of file

expansions/script/c131000005.lua

+--Vivid BAD SQUAD 白石杏☆
+local m=131000005
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    --xyz summon
+    c:EnableReviveLimit()
+    aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0xacda),4,3,c131000005.ovfilter,aux.Stringid(131000005,2))
+    --pendulum summon
+    aux.EnablePendulumAttribute(c,false)
+    
+    --pendulum summon
+    aux.EnablePendulumAttribute(c)
+    local e0=Effect.CreateEffect(c)
+    e0:SetDescription(aux.Stringid(131000005,0))
+    e0:SetType(EFFECT_TYPE_FIELD)
+    e0:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e0:SetRange(LOCATION_PZONE)
+    e0:SetCountLimit(1,10000000)
+    e0:SetCondition(c131000005.pendcon)
+    e0:SetOperation(c131000005.pendop)
+    e0:SetValue(SUMMON_TYPE_PENDULUM)
+    c:RegisterEffect(e0)
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e5:SetCode(EVENT_CHAIN_SOLVED)
+    e5:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e5:SetRange(LOCATION_PZONE)
+    e5:SetOperation(c131000005.cpop)
+    c:RegisterEffect(e5)   
+
+    --material
+    local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(131000005,1))
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+    e1:SetRange(LOCATION_MZONE)
+    e1:SetCost(c131000005.cost)
+    e1:SetTarget(c131000005.target)
+    e1:SetOperation(c131000005.operation)
+    c:RegisterEffect(e1)
+end
+c131000005.pendulum_level=4
+function c131000005.ovfilter(c)
+    return c:IsFaceup() and c:IsCode(131000001) 
+end
+
+function c131000005.scfilter(c)
+    return c:IsCode(131000000,131000004)
+end
+function c131000005.pendcon(e,c,og)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    if aux.PendulumChecklist&(0x1<<tp)~=0 and #eset==0 then return false end
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+    if rpz==nil or lpz==nil or (not Duel.IsExistingMatchingCard(c131000005.scfilter,e:GetHandlerPlayer(),LOCATION_PZONE,0,1,e:GetHandler()))  then return false end
+    local lscale=lpz:GetLeftScale()
+    local rscale=rpz:GetRightScale()
+    if lscale>rscale then lscale,rscale=rscale,lscale end
+
+    local loc=0
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+    if Duel.GetLocationCountFromEx(tp)>0 then loc=loc+LOCATION_EXTRA end
+    if loc==0 then return false end
+
+
+    if og then
+        return og:IsExists(c131000005.PConditionFilter,1,nil,e,tp,lscale,rscale)
+    else
+        return Duel.IsExistingMatchingCard(c131000005.PConditionFilter,tp,loc,0,1,nil,e,tp,lscale,rscale)
+    end
+end
+function c131000005.PConditionFilter(c,e,tp,lscale,rscale)
+    local lv=0
+    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))  or (c:IsLocation(LOCATION_DECK) and c:IsType(TYPE_PENDULUM) and  c:IsSetCard(0xacda)  ))
+        and lv>lscale and lv<rscale and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,bool,bool)
+        and not c:IsForbidden()
+end
+function c131000005.pendop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
+                Duel.Hint(HINT_CARD,0,131000005)
+                local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+                local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+                local lscale=lpz:GetLeftScale()
+                local rscale=rpz:GetRightScale()
+                if lscale>rscale then lscale,rscale=rscale,lscale end
+                local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
+                local ft2=Duel.GetLocationCountFromEx(tp)
+                local ft=Duel.GetUsableMZoneCount(tp)
+                if Duel.IsPlayerAffectedByEffect(tp,59822133) then
+                    if ft1>0 then ft1=1 end
+                    if ft2>0 then ft2=1 end
+                    ft=1
+                end
+                local loc=0
+                local ct0=0
+                if ft1>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+                if ft2>0 then loc=loc+LOCATION_EXTRA end
+                local tg=nil
+                if og then
+                    tg=og:Filter(Card.IsLocation,nil,loc):Filter(c131000005.PConditionFilter,nil,e,tp,lscale,rscale)
+                else
+                    tg=Duel.GetMatchingGroup(c131000005.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale)
+                end
+
+    local tp=e:GetOwnerPlayer()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    local ce=nil
+    local b1=aux.PendulumChecklist&(0x1<<tp)==0
+    local b2=#eset>0
+    if b1 and b2 then
+        local options={1163}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        if op>0 then
+            ce=eset[op]
+        end
+    elseif b2 and not b1 then
+        local options={}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        ce=eset[op+1]
+    end
+
+                ft0=1
+                ft1=math.min(ft1,tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK))
+                ft2=math.min(ft2,tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA))
+                local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
+                if ect and ect<ft2 then ft2=ect end
+                while true do
+                    local ct1=tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local ct2=tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                    local ct=ft
+                    if ct1>ft1 then ct=math.min(ct,ft1) end
+                    if ct2>ft2 then ct=math.min(ct,ft2) end
+                    if ct<=0 then break end
+                    if sg:GetCount()>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:GetCount()<ct then ft=0 break end
+                    ft=ft-g:GetCount()
+                    ft1=ft1-g:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    ft2=ft2-g:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                end
+                if ft>0 then
+                    local tg1=tg:Filter(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local tg2=tg:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
+                    if ft1>0 and ft2==0 and tg1:GetCount()>0 and (sg:GetCount()==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:GetCount()>0 and (sg:GetCount()==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 ce then
+        Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())
+        ce:Reset()
+    else
+        aux.PendulumChecklist=aux.PendulumChecklist|(0x1<<tp)
+    end
+                Duel.HintSelection(Group.FromCards(lpz))
+                Duel.HintSelection(Group.FromCards(rpz))
+end
+function c131000005.cpop(e,tp,eg,ep,ev,re,r,rp)
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    if lpz==nil  then return false end
+    local e1=Effect.CreateEffect(e:GetHandler())
+    e1:SetDescription(aux.Stringid(131000005,0))
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_BOTH_SIDE)
+    e1:SetRange(LOCATION_PZONE)
+    e1:SetCountLimit(1,10000000)
+    e1:SetCondition(c131000005.pendcon)
+    e1:SetOperation(c131000005.pendop)
+    e1:SetValue(SUMMON_TYPE_PENDULUM)
+    e1:SetReset(RESET_EVENT+0x1fe0000)
+    lpz:RegisterEffect(e1)
+    lpz:RegisterFlagEffect(131000005,RESET_EVENT+0x1fe0000,0,1)
+end
+
+function c131000005.cost(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 c131000005.filter(c)
+    return  c:IsCanOverlay()
+end
+function c131000005.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(1-tp) and c131000005.filter(chkc) end
+    if chk==0 then return Duel.IsExistingTarget(c131000005.filter,tp,0,LOCATION_ONFIELD,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+    Duel.SelectTarget(tp,c131000005.filter,tp,0,LOCATION_ONFIELD,1,1,nil)
+end
+function c131000005.operation(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    local tc=Duel.GetFirstTarget()
+    if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
+        local og=tc:GetOverlayGroup()
+        if og:GetCount()>0 then
+            Duel.SendtoGrave(og,REASON_RULE)
+        end
+        Duel.Overlay(c,Group.FromCards(tc))
+    end
+end
\ No newline at end of file

expansions/script/c131000006.lua

+--Vivid BAD SQUAD 东云彰人☆
+local m=131000006
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    --xyz summon
+    c:EnableReviveLimit()
+    aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0xacda),4,3,c131000006.ovfilter,aux.Stringid(131000006,2))
+    --pendulum summon
+    aux.EnablePendulumAttribute(c,false)
+    
+    --pendulum summon
+    aux.EnablePendulumAttribute(c)
+    local e0=Effect.CreateEffect(c)
+    e0:SetDescription(aux.Stringid(131000006,0))
+    e0:SetType(EFFECT_TYPE_FIELD)
+    e0:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e0:SetRange(LOCATION_PZONE)
+    e0:SetCountLimit(1,10000000)
+    e0:SetCondition(c131000006.pendcon)
+    e0:SetOperation(c131000006.pendop)
+    e0:SetValue(SUMMON_TYPE_PENDULUM)
+    c:RegisterEffect(e0)
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e5:SetCode(EVENT_CHAIN_SOLVED)
+    e5:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
+    e5:SetRange(LOCATION_PZONE)
+    e5:SetOperation(c131000006.cpop)
+    c:RegisterEffect(e5)   
+
+    --atk up
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_ATKCHANGE)
+    e3:SetType(EFFECT_TYPE_QUICK_O)
+    e3:SetRange(LOCATION_MZONE)
+    e3:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
+    e3:SetCondition(c131000006.atkcon)
+    e3:SetCost(c131000006.atkcost)
+    e3:SetOperation(c131000006.atkop)
+    c:RegisterEffect(e3)
+
+
+end
+c131000006.pendulum_level=4
+function c131000006.ovfilter(c)
+    return c:IsFaceup() and c:IsCode(131000002) 
+end
+
+function c131000006.scfilter(c)
+    return c:IsCode(131000003,131000007)
+end
+function c131000006.pendcon(e,c,og)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    if aux.PendulumChecklist&(0x1<<tp)~=0 and #eset==0 then return false end
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+    if rpz==nil or lpz==nil or (not Duel.IsExistingMatchingCard(c131000006.scfilter,e:GetHandlerPlayer(),LOCATION_PZONE,0,1,e:GetHandler()))  then return false end
+    local lscale=lpz:GetLeftScale()
+    local rscale=rpz:GetRightScale()
+    if lscale>rscale then lscale,rscale=rscale,lscale end
+
+    local loc=0
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+    if Duel.GetLocationCountFromEx(tp)>0 then loc=loc+LOCATION_EXTRA end
+    if loc==0 then return false end
+
+
+    if og then
+        return og:IsExists(c131000006.PConditionFilter,1,nil,e,tp,lscale,rscale)
+    else
+        return Duel.IsExistingMatchingCard(c131000006.PConditionFilter,tp,loc,0,1,nil,e,tp,lscale,rscale)
+    end
+end
+function c131000006.PConditionFilter(c,e,tp,lscale,rscale)
+    local lv=0
+    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))  or (c:IsLocation(LOCATION_DECK) and c:IsType(TYPE_PENDULUM) and  c:IsSetCard(0xacda)  ))
+        and lv>lscale and lv<rscale and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_PENDULUM,tp,bool,bool)
+        and not c:IsForbidden()
+end
+function c131000006.pendop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
+                Duel.Hint(HINT_CARD,0,131000006)
+                local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+                local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
+                local lscale=lpz:GetLeftScale()
+                local rscale=rpz:GetRightScale()
+                if lscale>rscale then lscale,rscale=rscale,lscale end
+                local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
+                local ft2=Duel.GetLocationCountFromEx(tp)
+                local ft=Duel.GetUsableMZoneCount(tp)
+                if Duel.IsPlayerAffectedByEffect(tp,59822133) then
+                    if ft1>0 then ft1=1 end
+                    if ft2>0 then ft2=1 end
+                    ft=1
+                end
+                local loc=0
+                local ct0=0
+                if ft1>0 then loc=loc+LOCATION_HAND+LOCATION_DECK end
+                if ft2>0 then loc=loc+LOCATION_EXTRA end
+                local tg=nil
+                if og then
+                    tg=og:Filter(Card.IsLocation,nil,loc):Filter(c131000006.PConditionFilter,nil,e,tp,lscale,rscale)
+                else
+                    tg=Duel.GetMatchingGroup(c131000006.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale)
+                end
+
+    local tp=e:GetOwnerPlayer()
+    local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
+    local ce=nil
+    local b1=aux.PendulumChecklist&(0x1<<tp)==0
+    local b2=#eset>0
+    if b1 and b2 then
+        local options={1163}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        if op>0 then
+            ce=eset[op]
+        end
+    elseif b2 and not b1 then
+        local options={}
+        for _,te in ipairs(eset) do
+            table.insert(options,te:GetDescription())
+        end
+        local op=Duel.SelectOption(tp,table.unpack(options))
+        ce=eset[op+1]
+    end
+
+                ft0=1
+                ft1=math.min(ft1,tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK))
+                ft2=math.min(ft2,tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA))
+                local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
+                if ect and ect<ft2 then ft2=ect end
+                while true do
+                    local ct1=tg:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local ct2=tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                    local ct=ft
+                    if ct1>ft1 then ct=math.min(ct,ft1) end
+                    if ct2>ft2 then ct=math.min(ct,ft2) end
+                    if ct<=0 then break end
+                    if sg:GetCount()>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:GetCount()<ct then ft=0 break end
+                    ft=ft-g:GetCount()
+                    ft1=ft1-g:FilterCount(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    ft2=ft2-g:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)
+                end
+                if ft>0 then
+                    local tg1=tg:Filter(Card.IsLocation,nil,LOCATION_HAND+LOCATION_DECK)
+                    local tg2=tg:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
+                    if ft1>0 and ft2==0 and tg1:GetCount()>0 and (sg:GetCount()==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:GetCount()>0 and (sg:GetCount()==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 ce then
+        Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())
+        ce:Reset()
+    else
+        aux.PendulumChecklist=aux.PendulumChecklist|(0x1<<tp)
+    end
+                Duel.HintSelection(Group.FromCards(lpz))
+                Duel.HintSelection(Group.FromCards(rpz))
+end
+function c131000006.cpop(e,tp,eg,ep,ev,re,r,rp)
+    local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
+    if lpz==nil  then return false end
+    local e1=Effect.CreateEffect(e:GetHandler())
+    e1:SetDescription(aux.Stringid(131000006,0))
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetCode(EFFECT_SPSUMMON_PROC_G)
+    e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_BOTH_SIDE)
+    e1:SetRange(LOCATION_PZONE)
+    e1:SetCountLimit(1,10000000)
+    e1:SetCondition(c131000006.pendcon)
+    e1:SetOperation(c131000006.pendop)
+    e1:SetValue(SUMMON_TYPE_PENDULUM)
+    e1:SetReset(RESET_EVENT+0x1fe0000)
+    lpz:RegisterEffect(e1)
+    lpz:RegisterFlagEffect(131000006,RESET_EVENT+0x1fe0000,0,1)
+end
+
+function c131000006.atkcon(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    local bc=c:GetBattleTarget()
+    return bc and bc:GetAttack()>0
+end
+function c131000006.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c131000006.atkop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    local bc=c:GetBattleTarget()
+    if c:IsRelateToBattle() and c:IsFaceup() and bc:IsRelateToBattle() and bc:IsFaceup() then
+        local e1=Effect.CreateEffect(c)
+        e1:SetType(EFFECT_TYPE_SINGLE)
+        e1:SetCode(EFFECT_UPDATE_ATTACK)
+        e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_DAMAGE_CAL)
+        e1:SetValue(bc:GetAttack())
+        c:RegisterEffect(e1)
+    end
+end
\ No newline at end of file

expansions/script/c131000008.lua

+--街道的Sekai
+local m=131000008
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    --Activate
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_ACTIVATE)
+    e1:SetCode(EVENT_FREE_CHAIN)
+    e1:SetOperation(c131000008.activate)
+    c:RegisterEffect(e1)  
+    --remove overlay replace
+    local e2=Effect.CreateEffect(c)
+    e2:SetDescription(aux.Stringid(131000008,1))
+    e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+    e2:SetCode(EFFECT_OVERLAY_REMOVE_REPLACE)
+    e2:SetRange(LOCATION_FZONE)
+    e2:SetCondition(c131000008.rcon)
+    e2:SetOperation(c131000008.rop)
+    c:RegisterEffect(e2)
+end
+function c131000008.thfilter(c)
+    return c:IsSetCard(0xacda) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden()
+end
+function c131000008.activate(e,tp,eg,ep,ev,re,r,rp)
+    if not e:GetHandler():IsRelateToEffect(e) then return end
+    if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
+    local g=Duel.GetMatchingGroup(c131000008.thfilter,tp,LOCATION_EXTRA,0,nil)
+    if g:GetCount()>0   and Duel.SelectYesNo(tp,aux.Stringid(131000008,0)) then
+        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
+        local g=Duel.SelectMatchingCard(tp,c131000008.thfilter,tp,LOCATION_EXTRA,0,1,1,nil)
+        local tc=g:GetFirst()
+        if tc then
+            Duel.MoveToField(tc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
+        end
+    end
+end
+function c131000008.cfilter(c)
+    return c:IsType(TYPE_PENDULUM) and c:IsAbleToDeck() 
+end
+function c131000008.rcon(e,tp,eg,ep,ev,re,r,rp)
+    return  bit.band(r,REASON_COST)~=0 and re:IsActivated() and re:IsActiveType(TYPE_XYZ)
+        and re:GetHandler():GetOverlayCount()>=ev-1 and re:GetHandler():IsSetCard(0xacda)
+        and Duel.IsExistingMatchingCard(c131000008.cfilter,tp,LOCATION_EXTRA,0,3,nil)
+end
+function c131000008.rop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+    local g=Duel.SelectMatchingCard(tp,c131000008.cfilter,tp,LOCATION_EXTRA,0,3,3,e:GetHandler())
+    return Duel.SendtoDeck(g,nil,2,REASON_COST)
+end

expansions/script/c131000009.lua

+--Vivid BAD SQUAD MEIKO
+local m=131000009
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    --pendulum summon
+    aux.EnablePendulumAttribute(c)
+    --special summon
+    local e2=Effect.CreateEffect(c)
+    e2:SetDescription(aux.Stringid(131000009,0))
+    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e2:SetType(EFFECT_TYPE_IGNITION)
+    e2:SetRange(LOCATION_PZONE)
+    e2:SetCondition(c131000009.spcon)
+    e2:SetTarget(c131000009.sptg)
+    e2:SetOperation(c131000009.spop)
+    c:RegisterEffect(e2)
+    --synchro limit
+    local e3=Effect.CreateEffect(c)
+    e3:SetType(EFFECT_TYPE_SINGLE)
+    e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
+    e3:SetValue(c131000009.synlimit)
+    c:RegisterEffect(e3)
+    --search
+    local e1=Effect.CreateEffect(c)
+    e1:SetDescription(aux.Stringid(131000009,1))
+    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e1:SetType(EFFECT_TYPE_IGNITION)
+    e1:SetRange(LOCATION_HAND)
+    e1:SetCost(c131000009.cost)
+    e1:SetTarget(c131000009.target)
+    e1:SetOperation(c131000009.operation)
+    c:RegisterEffect(e1)
+end
+
+function c131000009.spcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0)==0
+        and Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)>0
+and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_PZONE,0,1,e:GetHandler(),0xacda)
+end
+function c131000009.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c131000009.spop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+end
+function c131000009.synlimit(e,c)
+    if not c then return false end
+    return not c:IsType(TYPE_PENDULUM) 
+end
+
+function c131000009.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsAbleToGraveAsCost() and c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+end
+function c131000009.filter(c)
+    return c:IsCode(131000008) and c:IsAbleToHand()
+end
+function c131000009.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    if chk==0 then return Duel.IsExistingMatchingCard(c131000009.filter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c131000009.operation(e,tp,eg,ep,ev,re,r,rp,chk)
+    local tg=Duel.GetFirstMatchingCard(c131000009.filter,tp,LOCATION_DECK,0,nil)
+    if tg then
+        Duel.SendtoHand(tg,nil,REASON_EFFECT)
+        Duel.ConfirmCards(1-tp,tg)
+    end
+end
\ No newline at end of file

expansions/script/c131000010.lua

+--Vivid BAD SQUAD 镜音连
+local m=131000010
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    --pendulum summon
+    aux.EnablePendulumAttribute(c)
+    --special summon
+    local e2=Effect.CreateEffect(c)
+    e2:SetDescription(aux.Stringid(131000010,0))
+    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e2:SetType(EFFECT_TYPE_IGNITION)
+    e2:SetRange(LOCATION_PZONE)
+    e2:SetCondition(c131000010.spcon)
+    e2:SetTarget(c131000010.sptg)
+    e2:SetOperation(c131000010.spop)
+    c:RegisterEffect(e2)
+    --synchro limit
+
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
+    e1:SetValue(c131000010.synlimit)
+    c:RegisterEffect(e1)
+    --synchro level
+    local e3=Effect.CreateEffect(c)
+    e3:SetType(EFFECT_TYPE_SINGLE)
+    e3:SetCode(EFFECT_SYNCHRO_MATERIAL_CUSTOM)
+    e3:SetTarget(c131000010.syntg)
+    e3:SetValue(1)
+    e3:SetOperation(c131000010.synop)
+    c:RegisterEffect(e3)
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_SINGLE)
+    e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e4:SetCode(89818984)
+    e4:SetRange(LOCATION_MZONE)
+    c:RegisterEffect(e4)
+end
+
+function c131000010.spcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0)==0
+        and Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)>0
+and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_PZONE,0,1,e:GetHandler(),0xacda)
+end
+function c131000010.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c131000010.spop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+end
+function c131000010.synlimit(e,c)
+    if not c then return false end
+    return not c:IsType(TYPE_PENDULUM) 
+end
+function c131000010.cardiansynlevel(c)
+    return 2
+end
+function c131000010.synfilter(c,syncard,tuner,f)
+    return c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard,tuner) and (f==nil or f(c,syncard))
+end
+function c131000010.syncheck(c,g,mg,tp,lv,syncard,minc,maxc)
+    g:AddCard(c)
+    local ct=g:GetCount()
+    local res=c131000010.syngoal(g,tp,lv,syncard,minc,ct)
+        or (ct<maxc and mg:IsExists(c131000010.syncheck,1,g,g,mg,tp,lv,syncard,minc,maxc))
+    g:RemoveCard(c)
+    return res
+end
+function c131000010.syngoal(g,tp,lv,syncard,minc,ct)
+    return ct>=minc and Duel.GetLocationCountFromEx(tp,tp,g,syncard)>0
+        and (g:CheckWithSumEqual(Card.GetSynchroLevel,lv,ct,ct,syncard)
+            or g:CheckWithSumEqual(c131000010.cardiansynlevel,lv,ct,ct,syncard))
+end
+function c131000010.syntg(e,syncard,f,min,max)
+    local minc=min+1
+    local maxc=max+1
+    local c=e:GetHandler()
+    local tp=syncard:GetControler()
+    local lv=syncard:GetLevel()
+    if lv<=c:GetLevel() and lv<=c131000010.cardiansynlevel(c) then return false end
+    local g=Group.FromCards(c)
+    local mg=Duel.GetMatchingGroup(c131000010.synfilter,tp,LOCATION_MZONE,LOCATION_MZONE,c,syncard,c,f)
+    return mg:IsExists(c131000010.syncheck,1,g,g,mg,tp,lv,syncard,minc,maxc)
+end
+function c131000010.synop(e,tp,eg,ep,ev,re,r,rp,syncard,f,min,max)
+    local minc=min+1
+    local maxc=max+1
+    local c=e:GetHandler()
+    local lv=syncard:GetLevel()
+    local g=Group.FromCards(c)
+    local mg=Duel.GetMatchingGroup(c131000010.synfilter,tp,LOCATION_MZONE,LOCATION_MZONE,c,syncard,c,f)
+    for i=1,maxc do
+        local cg=mg:Filter(c131000010.syncheck,g,g,mg,tp,lv,syncard,minc,maxc)
+        if cg:GetCount()==0 then break end
+        local minct=1
+        if c131000010.syngoal(g,tp,lv,syncard,minc,i) then
+            minct=0
+        end
+        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
+        local sg=cg:Select(tp,minct,1,nil)
+        if sg:GetCount()==0 then break end
+        g:Merge(sg)
+    end
+    Duel.SetSynchroMaterial(g)
+end