Skip to content

P
pre-release-database-cdb
Commit 8ec75470 authored by Amiya's avatar Amiya
Browse files
Options

新卡

parent a7b34bd4
Pipeline #42466 passed with stages
          in 3 minutes and 27 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 1049 additions and 0 deletions
          BLZD.cdb
          View file @ 8ec75470
          No preview for this file type
          script/c101304015.lua 0 → 100644
          View file @ 8ec75470
          --道化の一座 ホワイトフェイス
          local s,id,o=GetID()
          function s.initial_effect(c)
          --summon with 1 tribute
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_SUMMON_PROC)
          e1:SetCondition(s.otcon)
          e1:SetOperation(s.otop)
          e1:SetValue(SUMMON_TYPE_ADVANCE)
          c:RegisterEffect(e1)
          --draw or disable
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_DRAW+CATEGORY_DISABLE)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_SUMMON_SUCCESS)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetCondition(s.drcon)
          e2:SetTarget(s.drtg)
          e2:SetOperation(s.drop)
          c:RegisterEffect(e2)
          --summon
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SUMMON)
          e1:SetType(EFFECT_TYPE_QUICK_O)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetRange(LOCATION_MZONE)
          e1:SetHintTiming(0,TIMING_MAIN_END)
          e1:SetCountLimit(1)
          e1:SetCondition(s.sumcon)
          e1:SetTarget(s.sumtg)
          e1:SetOperation(s.sumop)
          c:RegisterEffect(e1)
          end
          function s.otfilter(c,tp)
          return c:IsType(TYPE_RITUAL+TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_PENDULUM+TYPE_LINK)
          end
          function s.otcon(e,c,minc)
          if c==nil then return true end
          local tp=c:GetControler()
          local mg=Duel.GetMatchingGroup(s.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
          return c:IsLevelAbove(7) and minc<=1 and Duel.CheckTribute(c,1,1,mg)
          end
          function s.otop(e,tp,eg,ep,ev,re,r,rp,c)
          local mg=Duel.GetMatchingGroup(s.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
          local sg=Duel.SelectTribute(tp,c,1,1,mg)
          c:SetMaterial(sg)
          Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL)
          end
          function s.drcon(e,tp,eg,ep,ev,re,r,rp)
          return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
          end
          function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
          local ct=e:GetHandler():GetMaterialCount()
          if chk==0 and ct==0 then return false end
          local b1=Duel.IsPlayerCanDraw(tp,ct)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id)==0)
          local b2=Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,ct,nil)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id+o)==0)
          if chk==0 then return b1 or b2 end
          local op=0
          if b1 or b2 then
          op=aux.SelectFromOptions(tp,
          {b1,aux.Stringid(id,1),1},
          {b2,aux.Stringid(id,2),2})
          end
          e:SetLabel(op,ct)
          if op==1 then
          if e:IsCostChecked() then
          e:SetCategory(CATEGORY_DRAW)
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
          end
          Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct)
          elseif op==2 then
          if e:IsCostChecked() then
          e:SetCategory(CATEGORY_DISABLE)
          Duel.RegisterFlagEffect(tp,id+o,RESET_PHASE+PHASE_END,0,1)
          end
          local g=Duel.GetMatchingGroup(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,nil)
          Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
          end
          end
          function s.drop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local op,ct=e:GetLabel()
          if op==1 then
          Duel.Draw(tp,ct,REASON_EFFECT)
          elseif op==2 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
          local g=Duel.SelectMatchingCard(tp,aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,ct,ct,nil)
          if g:GetCount()>0 then
          for tc in aux.Next(g) do
          Duel.NegateRelatedChain(tc,RESET_TURN_SET)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetCode(EFFECT_DISABLE)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          tc:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e2:SetCode(EFFECT_DISABLE_EFFECT)
          e2:SetValue(RESET_TURN_SET)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          tc:RegisterEffect(e2)
          if tc:IsType(TYPE_TRAPMONSTER) then
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_SINGLE)
          e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
          e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
          tc:RegisterEffect(e3)
          end
          end
          end
          end
          end
          function s.sumcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetTurnPlayer()==1-tp and Duel.IsMainPhase()
          end
          function s.sumfilter(c)
          return c:IsSummonable(true,nil,1) or c:IsMSetable(true,nil,1)
          end
          function s.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.sumfilter,tp,LOCATION_HAND,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
          end
          function s.sumop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
          local g=Duel.SelectMatchingCard(tp,s.sumfilter,tp,LOCATION_HAND,0,1,1,nil)
          local tc=g:GetFirst()
          if tc then
          local s1=tc:IsSummonable(true,nil,1)
          local s2=tc:IsMSetable(true,nil,1)
          if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) or not s2 then
          Duel.Summon(tp,tc,true,nil,1)
          else
          Duel.MSet(tp,tc,true,nil,1)
          end
          end
          end
          \ No newline at end of file
          script/c101304029.lua 0 → 100644
          View file @ 8ec75470
          --道化の一座 フレア
          local s,id,o=GetID()
          function s.initial_effect(c)
          c:EnableReviveLimit()
          --to hand
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_HANDES)
          e1:SetType(EFFECT_TYPE_IGNITION)
          e1:SetRange(LOCATION_HAND)
          e1:SetCountLimit(1,id)
          e1:SetCost(s.thcost)
          e1:SetTarget(s.thtg)
          e1:SetOperation(s.thop)
          c:RegisterEffect(e1)
          --to deck
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_TODECK+CATEGORY_POSITION)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_RELEASE)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetTarget(s.tdtg)
          e2:SetOperation(s.tdop)
          c:RegisterEffect(e2)
          end
          function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return not e:GetHandler():IsPublic() end
          end
          function s.thfilter(c)
          return c:IsSetCard(0x2dc) and not (c:IsType(TYPE_RITUAL) and c:IsType(TYPE_MONSTER)) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
          if g:GetCount()>0 then
          Duel.SendtoHand(g,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,g)
          Duel.ShuffleHand(tp)
          Duel.BreakEffect()
          Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD)
          end
          end
          function s.tdfilter(c)
          return c:IsFaceupEx() and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
          end
          function s.posfilter(c)
          return c:IsFaceup() and c:IsType(TYPE_EFFECT) and c:IsCanTurnSet()
          end
          function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
          local b1=Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,1,nil)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id)==0)
          local b2=Duel.IsExistingMatchingCard(s.posfilter,tp,0,LOCATION_MZONE,1,nil)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id+o)==0)
          if chk==0 then return b1 or b2 end
          local op=0
          if b1 or b2 then
          op=aux.SelectFromOptions(tp,
          {b1,aux.Stringid(id,1),1},
          {b2,aux.Stringid(id,2),2})
          end
          e:SetLabel(op,ct)
          if op==1 then
          if e:IsCostChecked() then
          e:SetCategory(CATEGORY_TODECK)
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
          end
          local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,nil)
          Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,LOCATION_GRAVE+LOCATION_MZONE)
          elseif op==2 then
          if e:IsCostChecked() then
          e:SetCategory(CATEGORY_DISABLE)
          Duel.RegisterFlagEffect(tp,id+o,RESET_PHASE+PHASE_END,0,1)
          end
          local g=Duel.GetMatchingGroup(s.posfilter,tp,0,LOCATION_MZONE,nil)
          Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
          end
          end
          function s.tdop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if e:GetLabel()==1 then
          local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,nil)
          if aux.NecroValleyNegateCheck(g) then return end
          Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
          elseif e:GetLabel()==2 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
          local sg=Duel.SelectMatchingCard(tp,s.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
          if sg:GetCount()>0 then
          Duel.HintSelection(sg)
          local tc=sg:GetFirst()
          Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)
          end
          end
          end
          \ No newline at end of file
          script/c101304032.lua 0 → 100644
          View file @ 8ec75470
          --道化の一座 ディアボロ
          local s,id,o=GetID()
          function s.initial_effect(c)
          --fusion material
          c:EnableReviveLimit()
          aux.AddFusionProcFunRep(c,s.ffilter,2,true)
          --pierce
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_PIERCE)
          e1:SetRange(LOCATION_MZONE)
          e1:SetTargetRange(LOCATION_MZONE,0)
          e1:SetTarget(aux.TargetBoolFunction(Card.IsSummonType,SUMMON_TYPE_ADVANCE))
          c:RegisterEffect(e1)
          --to deck
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,0))
          e2:SetCategory(CATEGORY_TODECK)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_RELEASE)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetTarget(s.tdtg)
          e2:SetOperation(s.tdop)
          c:RegisterEffect(e2)
          end
          function s.ffilter(c,fc,sub,mg,sg)
          return not sg or sg:FilterCount(aux.TRUE,c)==0
          or (sg:IsExists(Card.IsFusionAttribute,1,c,c:GetFusionAttribute())
          and not sg:IsExists(Card.IsRace,1,c,c:GetRace()))
          end
          function s.tdfilter(c)
          return c:IsFaceupEx() and c:IsType(TYPE_FUSION) and c:IsAbleToDeck()
          end
          function s.setfilter(c)
          return c:IsSetCard(0x2dc) and c:IsType(TYPE_TRAP) and c:IsSSetable()
          end
          function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
          local b1=Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,1,nil)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id)==0)
          local b2=Duel.GetLocationCount(tp,LOCATION_SZONE)>0
          and Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id+o)==0)
          if chk==0 then return b1 or b2 end
          local op=0
          if b1 or b2 then
          op=aux.SelectFromOptions(tp,
          {b1,aux.Stringid(id,1),1},
          {b2,aux.Stringid(id,2),2})
          end
          e:SetLabel(op,ct)
          if op==1 then
          if e:IsCostChecked() then
          e:SetCategory(CATEGORY_TODECK)
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
          end
          local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,nil)
          Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,LOCATION_GRAVE+LOCATION_MZONE)
          elseif op==2 then
          if e:IsCostChecked() then
          e:SetCategory(0)
          Duel.RegisterFlagEffect(tp,id+o,RESET_PHASE+PHASE_END,0,1)
          end
          end
          end
          function s.tdop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if e:GetLabel()==1 then
          local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,nil)
          if aux.NecroValleyNegateCheck(g) then return end
          Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
          elseif e:GetLabel()==2 then
          if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
          local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil)
          local tc=g:GetFirst()
          if tc then
          Duel.SSet(tp,tc)
          end
          end
          end
          \ No newline at end of file
          script/c101304040.lua 0 → 100644
          View file @ 8ec75470
          --道化の一座 メテオ
          local s,id,o=GetID()
          function s.initial_effect(c)
          --Synchro summon
          aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
          c:EnableReviveLimit()
          --act limit
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCode(EVENT_SUMMON_SUCCESS)
          e1:SetOperation(s.sucop)
          c:RegisterEffect(e1)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCode(EVENT_CHAIN_END)
          e2:SetOperation(s.cedop)
          c:RegisterEffect(e2)
          --to deck
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,0))
          e3:SetCategory(CATEGORY_TODECK)
          e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e3:SetCode(EVENT_RELEASE)
          e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
          e3:SetTarget(s.tdtg)
          e3:SetOperation(s.tdop)
          c:RegisterEffect(e3)
          end
          function s.chainlm(e,rp,tp)
          return tp==rp
          end
          function s.sucfilter(c)
          return c:IsSummonType(SUMMON_TYPE_ADVANCE) and c:IsControler(tp)
          end
          function s.sucop(e,tp,eg,ep,ev,re,r,rp)
          if eg:IsExists(s.sucfilter,1,nil,tp) and Duel.GetCurrentChain()==1 then
          e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD,0,1)
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          e1:SetCode(EVENT_CHAINING)
          e1:SetOperation(s.resetop)
          Duel.RegisterEffect(e1,tp)
          local e2=e1:Clone()
          e2:SetCode(EVENT_BREAK_EFFECT)
          e2:SetReset(RESET_CHAIN)
          Duel.RegisterEffect(e2,tp)
          end
          end
          function s.resetop(e,tp,eg,ep,ev,re,r,rp)
          e:GetHandler():ResetFlagEffect(id)
          e:Reset()
          end
          function s.cedop(e,tp,eg,ep,ev,re,r,rp)
          if e:GetHandler():GetFlagEffect(id)~=0 then
          Duel.SetChainLimitTillChainEnd(s.chainlm)
          end
          e:GetHandler():ResetFlagEffect(id)
          end
          function s.tdfilter(c)
          return c:IsFaceupEx() and c:IsType(TYPE_SYNCHRO) and c:IsAbleToDeck()
          end
          function s.thfilter(c)
          return c:IsSetCard(0x2dc) and c:IsAbleToHand()
          end
          function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.thfilter(chkc) end
          local b1=Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,1,nil)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id)==0)
          local b2=Duel.IsExistingTarget(s.thfilter,tp,LOCATION_GRAVE,0,1,nil)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id+o)==0)
          if chk==0 then return b1 or b2 end
          local op=0
          if b1 or b2 then
          op=aux.SelectFromOptions(tp,
          {b1,aux.Stringid(id,1),1},
          {b2,aux.Stringid(id,2),2})
          end
          e:SetLabel(op,ct)
          if op==1 then
          if e:IsCostChecked() then
          e:SetCategory(CATEGORY_TODECK)
          e:SetProperty(EFFECT_FLAG_DELAY)
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
          end
          local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,nil)
          Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,LOCATION_GRAVE+LOCATION_MZONE)
          elseif op==2 then
          if e:IsCostChecked() then
          e:SetCategory(CATEGORY_TOHAND)
          e:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
          Duel.RegisterFlagEffect(tp,id+o,RESET_PHASE+PHASE_END,0,1)
          end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
          local g=Duel.SelectTarget(tp,s.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
          end
          end
          function s.tdop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if e:GetLabel()==1 then
          local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,nil)
          if aux.NecroValleyNegateCheck(g) then return end
          Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
          elseif e:GetLabel()==2 then
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() and aux.NecroValleyFilter()(tc) then
          Duel.SendtoHand(tc,nil,REASON_EFFECT)
          end
          end
          end
          \ No newline at end of file
          script/c101304046.lua 0 → 100644
          View file @ 8ec75470
          --道化の一座 デビルズ
          local s,id,o=GetID()
          function s.initial_effect(c)
          --xyz summon
          aux.AddXyzProcedure(c,nil,3,2)
          c:EnableReviveLimit()
          --atk up
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_UPDATE_ATTACK)
          e1:SetRange(LOCATION_MZONE)
          e1:SetTargetRange(LOCATION_MZONE,0)
          e1:SetTarget(aux.TargetBoolFunction(Card.IsSummonType,SUMMON_TYPE_ADVANCE))
          e1:SetValue(1000)
          c:RegisterEffect(e1)
          --to deck
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,0))
          e2:SetCategory(CATEGORY_TODECK)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_RELEASE)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetTarget(s.tdtg)
          e2:SetOperation(s.tdop)
          c:RegisterEffect(e2)
          end
          function s.tdfilter(c)
          return c:IsFaceupEx() and c:IsType(TYPE_XYZ) and c:IsAbleToDeck()
          end
          function s.setfilter(c)
          return c:IsSetCard(0x2dc) and c:IsType(TYPE_SPELL) and c:IsSSetable()
          end
          function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
          local b1=Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,1,nil)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id)==0)
          local b2=Duel.GetLocationCount(tp,LOCATION_SZONE)>0
          and Duel.IsExistingMatchingCard(s.setfilter,tp,LOCATION_DECK,0,1,nil)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id+o)==0)
          if chk==0 then return b1 or b2 end
          local op=0
          if b1 or b2 then
          op=aux.SelectFromOptions(tp,
          {b1,aux.Stringid(id,1),1},
          {b2,aux.Stringid(id,2),2})
          end
          e:SetLabel(op,ct)
          if op==1 then
          if e:IsCostChecked() then
          e:SetCategory(CATEGORY_TODECK)
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
          end
          local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,nil)
          Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,LOCATION_GRAVE+LOCATION_MZONE)
          elseif op==2 then
          if e:IsCostChecked() then
          e:SetCategory(0)
          Duel.RegisterFlagEffect(tp,id+o,RESET_PHASE+PHASE_END,0,1)
          end
          end
          end
          function s.tdop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if e:GetLabel()==1 then
          local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_MZONE,LOCATION_GRAVE+LOCATION_MZONE,nil)
          if aux.NecroValleyNegateCheck(g) then return end
          Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
          elseif e:GetLabel()==2 then
          if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
          local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_DECK,0,1,1,nil)
          local tc=g:GetFirst()
          if tc then
          Duel.SSet(tp,tc)
          end
          end
          end
          \ No newline at end of file
          script/c101304059.lua 0 → 100644
          View file @ 8ec75470
          --道化の一座『下稽古』
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,101304015)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id)
          e1:SetCost(s.cost)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --Ritual Summon
          local e2=aux.AddRitualProcGreater2(c,s.filter,LOCATION_HAND,nil,nil,true)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetCountLimit(1,id+o)
          e2:SetCost(aux.bfgcost)
          c:RegisterEffect(e2)
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.CheckReleaseGroupEx(tp,aux.TRUE,1,REASON_COST,true,nil,tp) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
          local g=Duel.SelectReleaseGroupEx(tp,aux.TRUE,1,1,REASON_COST,true,nil,tp)
          Duel.Release(g,REASON_COST)
          end
          function s.thfilter1(c)
          return not c:IsCode(id) and c:IsSetCard(0x2dc) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
          end
          function s.thfilter2(c)
          return c:IsCode(101304015) and c:IsAbleToHand()
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter1,tp,LOCATION_DECK,0,1,nil)
          and Duel.IsExistingMatchingCard(s.thfilter2,tp,LOCATION_DECK,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK)
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          local g1=Duel.GetMatchingGroup(s.thfilter1,tp,LOCATION_DECK,0,nil)
          local g2=Duel.GetMatchingGroup(s.thfilter2,tp,LOCATION_DECK,0,nil)
          if g1:GetCount()>0 and g2:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local sg1=g1:Select(tp,1,1,nil)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local sg2=g2:Select(tp,1,1,nil)
          sg1:Merge(sg2)
          Duel.SendtoHand(sg1,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,sg1)
          end
          end
          function s.filter(c,e,tp,chk)
          return c:IsSetCard(0x2dc) and c:IsType(TYPE_RITUAL) and (not chk or c~=e:GetHandler())
          end
          \ No newline at end of file
          script/c101304060.lua 0 → 100644
          View file @ 8ec75470
          --道化の一座『開演』
          local s,id,o=GetID()
          function s.initial_effect(c)
          --activate
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          c:RegisterEffect(e1)
          --spsummon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(69540484,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_SZONE)
          e2:SetCountLimit(1,id)
          e2:SetTarget(s.sptg)
          e2:SetOperation(s.spop)
          c:RegisterEffect(e2)
          --draw
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(3576031,0))
          e3:SetCategory(CATEGORY_DRAW)
          e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e3:SetCode(EVENT_PHASE+PHASE_END)
          e3:SetRange(LOCATION_SZONE)
          e3:SetCountLimit(1,id+o)
          e3:SetCondition(s.drcon)
          e3:SetTarget(s.drtg)
          e3:SetOperation(s.drop)
          c:RegisterEffect(e3)
          if not s.global_check then
          s.global_check=true
          s[0]=0
          local ge1=Effect.CreateEffect(c)
          ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          ge1:SetCode(EVENT_RELEASE)
          ge1:SetOperation(s.checkop)
          Duel.RegisterEffect(ge1,0)
          local ge2=Effect.CreateEffect(c)
          ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
          ge2:SetOperation(s.clearop)
          Duel.RegisterEffect(ge2,0)
          end
          end
          function s.spfilter(c,e,tp,cost)
          return c:IsSetCard(0x2dc) and c:IsType(TYPE_MONSTER)
          and c:IsCanBeSpecialSummoned(e,0,tp,true,false,POS_FACEUP)
          and (c:IsLocation(LOCATION_DECK) and Duel.GetMZoneCount(tp)>0
          or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0)
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil,e,tp,e:IsCostChecked()) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,1,nil,e,tp,false)
          if g:GetCount()>0 then
          Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_ACTIVATE)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
          e1:SetTargetRange(1,0)
          e1:SetValue(s.aclimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.aclimit(e,re,tp)
          local rc=re:GetHandler()
          return re:IsActiveType(TYPE_MONSTER) and rc:IsSummonType(SUMMON_TYPE_SPECIAL) and rc:IsLocation(LOCATION_MZONE) and rc:IsSummonLocation(LOCATION_DECK+LOCATION_EXTRA)
          end
          function s.checkop(e,tp,eg,ep,ev,re,r,rp)
          for tc in aux.Next(eg) do
          s[0]=bit.bor(s[0],tc:GetType())
          end
          end
          function s.clearop(e,tp,eg,ep,ev,re,r,rp)
          s[0]=0
          end
          function s.drcon(e,tp,eg,ep,ev,re,r,rp)
          return s[tp]>0
          end
          function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
          local ct=0
          local type={TYPE_RITUAL,TYPE_FUSION,TYPE_SYNCHRO,TYPE_XYZ,TYPE_PENDULUM,TYPE_LINK}
          for i=1,#type do
          local value=type[i]
          if bit.band(s[tp],value)~=0 then
          ct=ct+1
          end
          end
          if chk==0 then return Duel.IsPlayerCanDraw(tp,ct) end
          Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct)
          end
          function s.drop(e,tp,eg,ep,ev,re,r,rp)
          local ct=0
          local type={TYPE_RITUAL,TYPE_FUSION,TYPE_SYNCHRO,TYPE_XYZ,TYPE_PENDULUM,TYPE_LINK}
          for i=1,#type do
          local value=type[i]
          if bit.band(s[tp],value)~=0 then
          ct=ct+1
          end
          end
          if Duel.Draw(tp,ct,REASON_EFFECT)~=0 then
          local g=Duel.GetMatchingGroup(Card.IsSSetable,tp,LOCATION_HAND,0,nil)
          if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.ShuffleHand(tp)
          Duel.BreakEffect()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
          local sg=g:Select(tp,1,1,nil)
          Duel.SSet(tp,sg,tp,false)
          end
          end
          end
          \ No newline at end of file
          script/c101304061.lua 0 → 100644
          View file @ 8ec75470
          --道化の一座『極芸』
          local s,id,o=GetID()
          function s.initial_effect(c)
          --activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --to hand
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_TOHAND)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(aux.exccon)
          e2:SetCost(s.thcost)
          e2:SetTarget(s.thtg)
          e2:SetOperation(s.thop)
          c:RegisterEffect(e2)
          end
          function s.spfilter(c,e,tp)
          return c:IsSetCard(0x2dc) and c:IsType(TYPE_MONSTER)
          and c:IsCanBeSpecialSummoned(e,0,tp,true,false,POS_FACEUP)
          and (c:IsLocation(LOCATION_DECK) and Duel.GetMZoneCount(tp)>0
          or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0)
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil,e,tp) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
          end
          function s.filter(c)
          return (c:IsFaceup() and c:IsType(TYPE_PENDULUM)
          or c:IsType(TYPE_LINK))
          and c:IsLocation(LOCATION_EXTRA)
          end
          function s.gcheck(g,tp,eft)
          return g:FilterCount(s.filter,nil)<=eft
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
          local eft=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)
          if ft>0 then
          if ft>=2 then ft=2 end
          if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
          local g=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,nil,e,tp)
          if g:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local sg=g:SelectSubGroup(tp,s.gcheck,false,1,ft,tp,eft)
          if sg:GetCount()>0 then
          local exg=sg:Filter(s.filter,nil)
          sg:Sub(exg)
          if exg:GetCount()>0 then
          for tc in aux.Next(exg) do
          Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP)
          end
          end
          if sg:GetCount()>0 then
          for tc in aux.Next(sg) do
          Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP)
          end
          end
          Duel.SpecialSummonComplete()
          end
          end
          end
          if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_ACTIVATE)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
          e1:SetTargetRange(1,0)
          e1:SetValue(s.aclimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          end
          function s.aclimit(e,re,tp)
          local rc=re:GetHandler()
          return re:IsActiveType(TYPE_MONSTER) and rc:IsSummonType(SUMMON_TYPE_SPECIAL) and rc:IsLocation(LOCATION_MZONE) and rc:IsSummonLocation(LOCATION_DECK+LOCATION_EXTRA)
          end
          function s.cfilter(c,tp)
          return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c)
          end
          function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return aux.bfgcost(e,tp,eg,ep,ev,re,r,rp,chk) and Duel.CheckReleaseGroupEx(tp,s.cfilter,1,REASON_COST,true,c,tp) end
          aux.bfgcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local g=Duel.SelectReleaseGroupEx(tp,s.cfilter,1,1,REASON_COST,true,c,tp)
          g:AddCard(c)
          Duel.Release(g,REASON_COST)
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          if chkc then return chkc:IsOnField() and chkc:IsAbleToHand() end
          if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
          local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          local tc=Duel.GetFirstTarget()
          if tc:IsRelateToChain() then
          Duel.SendtoHand(tc,nil,REASON_EFFECT)
          end
          end
          \ No newline at end of file
          script/c101304073.lua 0 → 100644
          View file @ 8ec75470
          --道化の一座『怪演』
          local s,id,o=GetID()
          function s.initial_effect(c)
          --activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH+CATEGORY_TOHAND)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetTarget(s.target)
          e1:SetOperation(s.activate)
          c:RegisterEffect(e1)
          --summon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SUMMON)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_FREE_CHAIN)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetHintTiming(0,TIMING_MAIN_END)
          e2:SetCondition(s.sumcon)
          e2:SetCost(aux.bfgcost)
          e2:SetTarget(s.sumtg)
          e2:SetOperation(s.sumop)
          c:RegisterEffect(e2)
          end
          function s.spfilter(c,e,tp)
          return c:IsSetCard(0x2dc) and c:IsType(TYPE_MONSTER)
          and c:IsCanBeSpecialSummoned(e,0,tp,true,false,POS_FACEUP)
          and (c:IsLocation(LOCATION_DECK) and Duel.GetMZoneCount(tp)>0
          or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0)
          end
          function s.thfilter(c)
          return c:IsSetCard(0x2dc) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
          end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          local ch=Duel.GetCurrentChain()
          local b1=Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil,e,tp)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id)==0)
          local b2=Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil)
          and (not e:IsCostChecked() or Duel.GetFlagEffect(tp,id+o)==0)
          if chk==0 then return b1 or b2 end
          local op=0
          if b1 or b2 then
          op=aux.SelectFromOptions(tp,
          {b1,aux.Stringid(id,2),1},
          {b2,aux.Stringid(id,3),2})
          end
          e:SetLabel(op)
          if op==1 then
          if e:IsCostChecked() then
          e:SetCategory(CATEGORY_SPECIAL_SUMMON)
          Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
          end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
          elseif op==2 then
          if e:IsCostChecked() then
          Duel.RegisterFlagEffect(tp,id+o,RESET_PHASE+PHASE_END,0,1)
          e:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
          end
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          end
          function s.filter(c)
          return (c:IsFaceup() and c:IsType(TYPE_PENDULUM)
          or c:IsType(TYPE_LINK))
          and c:IsLocation(LOCATION_EXTRA)
          end
          function s.gcheck(g,tp,eft)
          return g:FilterCount(s.filter,nil)<=eft
          end
          function s.activate(e,tp,eg,ep,ev,re,r,rp)
          if e:GetLabel()==1 then
          local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
          local eft=Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_PENDULUM)
          if ft>0 then
          if ft>=2 then ft=2 end
          if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
          local g=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,nil,e,tp)
          if g:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local sg=g:SelectSubGroup(tp,s.gcheck,false,1,ft,tp,eft)
          if sg:GetCount()>0 then
          local exg=sg:Filter(s.filter,nil)
          sg:Sub(exg)
          if exg:GetCount()>0 then
          for tc in aux.Next(exg) do
          Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP)
          end
          end
          if sg:GetCount()>0 then
          for tc in aux.Next(sg) do
          Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP)
          end
          end
          Duel.SpecialSummonComplete()
          end
          end
          end
          elseif e:GetLabel()==2 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,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
          if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_ACTIVATE)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
          e1:SetTargetRange(1,0)
          e1:SetValue(s.aclimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          end
          function s.aclimit(e,re,tp)
          local rc=re:GetHandler()
          return re:IsActiveType(TYPE_MONSTER) and rc:IsSummonType(SUMMON_TYPE_SPECIAL) and rc:IsLocation(LOCATION_MZONE) and rc:IsSummonLocation(LOCATION_DECK+LOCATION_EXTRA)
          end
          function s.sumcon(e,tp,eg,ep,ev,re,r,rp)
          return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
          end
          function s.sumfilter(c)
          return c:IsSetCard(0x2dc) and (c:IsSummonable(true,nil,1) or c:IsMSetable(true,nil,1))
          end
          function s.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_HAND,0,1,nil) end
          Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
          end
          function s.sumop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
          local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_HAND,0,1,1,nil)
          local tc=g:GetFirst()
          if tc then
          local s1=tc:IsSummonable(true,nil,1)
          local s2=tc:IsMSetable(true,nil,1)
          if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) or not s2 then
          Duel.Summon(tp,tc,true,nil,1)
          else
          Duel.MSet(tp,tc,true,nil,1)
          end
          end
          end
          \ No newline at end of file
          script/c101304074.lua 0 → 100644
          View file @ 8ec75470
          --道化の一座『新加入』
          local s,id,o=GetID()
          function s.initial_effect(c)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          c:RegisterEffect(e1)
          --draw
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,0))
          e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
          e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
          e2:SetRange(LOCATION_SZONE)
          e2:SetCountLimit(1,id)
          e2:SetTarget(s.drtg)
          e2:SetOperation(s.drop)
          c:RegisterEffect(e2)
          --destroy
          local custom_code=aux.RegisterMergedDelayedEvent_ToSingleCard(c,id,EVENT_SUMMON_SUCCESS)
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,1))
          e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
          e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e3:SetCode(custom_code)
          e3:SetRange(LOCATION_SZONE)
          e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
          e3:SetCountLimit(1,id+o)
          e3:SetCondition(s.descon)
          e3:SetTarget(s.destg)
          e3:SetOperation(s.desop)
          c:RegisterEffect(e3)
          --set
          local e4=Effect.CreateEffect(c)
          e4:SetDescription(aux.Stringid(id,2))
          e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e4:SetCode(EVENT_TO_GRAVE)
          e4:SetProperty(EFFECT_FLAG_DELAY)
          e4:SetCountLimit(1,id+o*2)
          e4:SetCondition(s.stcon)
          e4:SetTarget(s.sttg)
          e4:SetOperation(s.stop)
          c:RegisterEffect(e4)
          end
          function s.tdfilter(c)
          return c:IsFaceupEx() and c:IsSetCard(0x2dc) and c:IsAbleToDeck()
          end
          function s.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,nil)
          and Duel.IsPlayerCanDraw(tp,1) end
          Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,3,tp,LOCATION_GRAVE+LOCATION_REMOVED)
          Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
          end
          function s.drop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
          local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.tdfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,3,nil)
          if g:GetCount()>0 and Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)~=0
          and g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK+LOCATION_EXTRA) then
          Duel.BreakEffect()
          Duel.Draw(tp,1,REASON_EFFECT)
          end
          end
          function s.cfilter(c,tp,e)
          return c:IsControler(tp) and c:IsSummonType(SUMMON_TYPE_ADVANCE)
          end
          function s.descon(e,tp,eg,ep,ev,re,r,rp)
          return eg:IsExists(s.cfilter,1,nil,tp)
          end
          function s.desfilter(c)
          return c:IsType(TYPE_SPELL+TYPE_TRAP)
          end
          function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          local sg=eg:Filter(s.cfilter,1,nil,tp)
          local ct=0
          for tc in aux.Next(sg) do
          local mt=e:GetHandler():GetMaterialCount()
          if mt>ct then ct=mt end
          end
          if chkc then return chkc:IsOnField() and s.desfilter(chkc) and e:GetHandler()~=chkc end
          if chk==0 then return ct>0 and Duel.IsExistingTarget(s.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local g=Duel.SelectTarget(tp,s.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,e:GetHandler())
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
          end
          function s.desop(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
          local sg=g:Filter(Card.IsRelateToChain,nil)
          Duel.Destroy(sg,REASON_EFFECT)
          end
          function s.stcon(e,tp,eg,ep,ev,re,r,rp)
          return not e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
          end
          function s.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
          local c=e:GetHandler()
          if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
          and not c:IsForbidden() and c:CheckUniqueOnField(tp) end
          Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
          end
          function s.stop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToChain() and aux.NecroValleyFilter()(c) then
          Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
          end
          end
          \ No newline at end of file
          Markdown is supported
          0% or
          You are about to add 0 people to the discussion. Proceed with caution.
          Finish editing this message first!
          Please register or to comment