Skip to content

P
pre-release-database-cdb
Commit 5bb87f5d authored by wind2009's avatar wind2009
Browse files
Options

Fix cdb

parent 170820a6
Pipeline #41252 passed with stages
          in 3 minutes and 13 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 187 additions and 182 deletions
          BPRO.cdb
          View file @ 5bb87f5d
          No preview for this file type
          pack/2025-10-25 BPRO.ydk
          View file @ 5bb87f5d
          ......@@ -24,9 +24,11 @@
          101303023
          101303024
          101303025
          101303026
          101303027
          101303028
          101303029
          101303030
          101303031
          101303204
          101303033
          ......@@ -73,4 +75,7 @@
          101303074
          101303075
          101303076
          101303078
          \ No newline at end of file
          101303077
          101303078
          101303079
          101303080
          \ No newline at end of file
          script/c101303026.lua 0 → 100644
          View file @ 5bb87f5d
          --
          local s,id,o=GetID()
          function s.initial_effect(c)
          --special Summon
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,1))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetProperty(EFFECT_FLAG_DELAY)
          e1:SetRange(LOCATION_GRAVE)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.spcon)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --disable
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_CHAINING)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.discon)
          e2:SetCost(s.discost)
          e2:SetTarget(s.distg)
          e2:SetOperation(s.disop)
          c:RegisterEffect(e2)
          --to grave
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
          e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e3:SetCode(EVENT_REMOVE)
          e3:SetOperation(s.regop)
          c:RegisterEffect(e3)
          local e4=Effect.CreateEffect(c)
          e4:SetDescription(aux.Stringid(id,1))
          e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e4:SetCode(EVENT_PHASE+PHASE_END)
          e4:SetRange(LOCATION_REMOVED)
          e4:SetCountLimit(1,id+o*2)
          e4:SetCondition(s.tgcon)
          e4:SetTarget(s.tgtg)
          e4:SetOperation(s.tgop)
          c:RegisterEffect(e4)
          end
          function s.cfilter(c,tp)
          local typ,se,sp=c:GetSpecialSummonInfo(SUMMON_INFO_TYPE,SUMMON_INFO_REASON_EFFECT,SUMMON_INFO_REASON_PLAYER)
          return se and typ&TYPE_MONSTER~=0 and se:IsActivated() and sp==1-tp
          and c:IsSummonLocation(LOCATION_DECK+LOCATION_EXTRA)
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return eg:IsExists(s.cfilter,1,nil,tp)
          end
          function s.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 s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToChain() and aux.NecroValleyFilter()(tc) then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          function s.discon(e,tp,eg,ep,ev,re,r,rp)
          return re:IsHasCategory(CATEGORY_SPECIAL_SUMMON) and Duel.IsChainDisablable(ev)
          and re:IsActiveType(TYPE_MONSTER)
          end
          function s.discost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
          Duel.Remove(g,POS_FACEUP,REASON_COST)
          end
          function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
          if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
          end
          end
          function s.disop(e,tp,eg,ep,ev,re,r,rp)
          if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) then
          Duel.Destroy(eg,REASON_EFFECT)
          end
          end
          function s.regop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
          end
          function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
          return e:GetHandler():GetFlagEffect(id)>0
          end
          function s.tgfilter(c)
          return c:IsFaceup() and c:IsType(TYPE_MONSTER)
          end
          function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_REMOVED,0,1,e:GetHandler()) end
          end
          function s.tgop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_REMOVED,0,1,1,aux.ExceptThisCard(e))
          if g:GetCount()>0 then
          Duel.SendtoGrave(g,REASON_EFFECT+REASON_RETURN)
          end
          end
          \ No newline at end of file
          script/c101303030.lua
          View file @ 5bb87f5d
          --
          local s,id,o=GetID()
          function s.initial_effect(c)
          --special Summon
          --special summon
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,1))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e1:SetCode(EVENT_SPSUMMON_SUCCESS)
          e1:SetProperty(EFFECT_FLAG_DELAY)
          e1:SetRange(LOCATION_GRAVE)
          e1:SetCountLimit(1,id)
          e1:SetCondition(s.spcon)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
          e1:SetCode(EFFECT_SPSUMMON_PROC)
          e1:SetRange(LOCATION_HAND)
          e1:SetCondition(s.sprcon)
          e1:SetOperation(s.sprop)
          c:RegisterEffect(e1)
          --disable
          --tohand
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
          e2:SetType(EFFECT_TYPE_QUICK_O)
          e2:SetCode(EVENT_CHAINING)
          e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_POSITION)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCountLimit(1,id+o)
          e2:SetCondition(s.discon)
          e2:SetCost(s.discost)
          e2:SetTarget(s.distg)
          e2:SetOperation(s.disop)
          e2:SetCountLimit(1,id)
          e2:SetCost(s.thcost)
          e2:SetTarget(s.thtg)
          e2:SetOperation(s.thop)
          c:RegisterEffect(e2)
          --to grave
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
          e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e3:SetCode(EVENT_REMOVE)
          e3:SetOperation(s.regop)
          c:RegisterEffect(e3)
          local e4=Effect.CreateEffect(c)
          e4:SetDescription(aux.Stringid(id,1))
          e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
          e4:SetCode(EVENT_PHASE+PHASE_END)
          e4:SetRange(LOCATION_REMOVED)
          e4:SetCountLimit(1,id+o*2)
          e4:SetCondition(s.tgcon)
          e4:SetTarget(s.tgtg)
          e4:SetOperation(s.tgop)
          c:RegisterEffect(e4)
          end
          function s.cfilter(c,tp)
          local typ,se,sp=c:GetSpecialSummonInfo(SUMMON_INFO_TYPE,SUMMON_INFO_REASON_EFFECT,SUMMON_INFO_REASON_PLAYER)
          return se and typ&TYPE_MONSTER~=0 and se:IsActivated() and sp==1-tp
          and c:IsSummonLocation(LOCATION_DECK+LOCATION_EXTRA)
          function s.sprcon(e,c)
          if c==nil then return true end
          local tp=c:GetControler()
          return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and not Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil)
          end
          function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return eg:IsExists(s.cfilter,1,nil,tp)
          function s.sprop(e,tp,eg,ep,ev,re,r,rp,c)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetCode(EFFECT_ADD_TYPE)
          e1:SetValue(TYPE_TUNER)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
          c:RegisterEffect(e1)
          end
          function s.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)
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_EXTRA,0,1,nil,tp)
          and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
          local exg=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_EXTRA,0,nil,tp)
          Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
          local tc=exg:Select(tp,1,1,nil):GetFirst()
          Duel.ConfirmCards(1-tp,tc)
          e:SetLabelObject(tc)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if c:IsRelateToChain() and aux.NecroValleyFilter()(tc) then
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
          end
          end
          function s.discon(e,tp,eg,ep,ev,re,r,rp)
          return re:IsHasCategory(CATEGORY_SPECIAL_SUMMON) and Duel.IsChainDisablable(ev)
          and re:IsActiveType(TYPE_MONSTER)
          function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
          Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
          end
          function s.discost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
          Duel.Remove(g,POS_FACEUP,REASON_COST)
          function s.cfilter(c,tp)
          return c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_WATER) and c:IsLevelAbove(2) and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil,c)
          end
          function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
          if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
          end
          function s.thfilter(c,fc)
          return c:IsLevel(fc:GetLevel()-1) and c:IsRace(fc:GetRace())
          and c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToHand()
          end
          function s.disop(e,tp,eg,ep,ev,re,r,rp)
          if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) then
          Duel.Destroy(eg,REASON_EFFECT)
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return e:IsCostChecked() end
          local tc=e:GetLabelObject()
          Duel.SetTargetCard(tc)
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.regop(e,tp,eg,ep,ev,re,r,rp)
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
          end
          function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
          return e:GetHandler():GetFlagEffect(id)>0
          end
          function s.tgfilter(c)
          return c:IsFaceup() and c:IsType(TYPE_MONSTER)
          end
          function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_REMOVED,0,1,e:GetHandler()) end
          end
          function s.tgop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_REMOVED,0,1,1,aux.ExceptThisCard(e))
          if g:GetCount()>0 then
          Duel.SendtoGrave(g,REASON_EFFECT+REASON_RETURN)
          local tc=Duel.GetFirstTarget()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil,tc)
          local tc=g:GetFirst()
          if tc then
          Duel.SendtoHand(tc,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,tc)
          if tc:IsLocation(LOCATION_HAND) and c:IsRelateToChain() and c:IsFaceup()
          and c:IsCanTurnSet() and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.BreakEffect()
          Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE)
          end
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return not c:IsAttribute(ATTRIBUTE_WATER) and c:IsLocation(LOCATION_EXTRA)
          end
          \ No newline at end of file
          script/c101303032.lua deleted 100644 → 0
          View file @ 170820a6
          --
          local s,id,o=GetID()
          function s.initial_effect(c)
          --special summon
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
          e1:SetCode(EFFECT_SPSUMMON_PROC)
          e1:SetRange(LOCATION_HAND)
          e1:SetCondition(s.sprcon)
          e1:SetOperation(s.sprop)
          c:RegisterEffect(e1)
          --tohand
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_POSITION)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCountLimit(1,id)
          e2:SetCost(s.thcost)
          e2:SetTarget(s.thtg)
          e2:SetOperation(s.thop)
          c:RegisterEffect(e2)
          end
          function s.sprcon(e,c)
          if c==nil then return true end
          local tp=c:GetControler()
          return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          and not Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil)
          end
          function s.sprop(e,tp,eg,ep,ev,re,r,rp,c)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetCode(EFFECT_ADD_TYPE)
          e1:SetValue(TYPE_TUNER)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
          c:RegisterEffect(e1)
          end
          function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_EXTRA,0,1,nil,tp)
          and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
          local exg=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_EXTRA,0,nil,tp)
          Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
          local tc=exg:Select(tp,1,1,nil):GetFirst()
          Duel.ConfirmCards(1-tp,tc)
          e:SetLabelObject(tc)
          end
          function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
          Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
          end
          function s.cfilter(c,tp)
          return c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_WATER) and c:IsLevelAbove(2) and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil,c)
          end
          function s.thfilter(c,fc)
          return c:IsLevel(fc:GetLevel()-1) and c:IsRace(fc:GetRace())
          and c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToHand()
          end
          function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return e:IsCostChecked() end
          local tc=e:GetLabelObject()
          Duel.SetTargetCard(tc)
          Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
          end
          function s.thop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local tc=Duel.GetFirstTarget()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
          local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil,tc)
          local tc=g:GetFirst()
          if tc then
          Duel.SendtoHand(tc,nil,REASON_EFFECT)
          Duel.ConfirmCards(1-tp,tc)
          if tc:IsLocation(LOCATION_HAND) and c:IsRelateToChain() and c:IsFaceup()
          and c:IsCanTurnSet() and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.BreakEffect()
          Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE)
          end
          end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.splimit)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function s.splimit(e,c)
          return not c:IsAttribute(ATTRIBUTE_WATER) and c:IsLocation(LOCATION_EXTRA)
          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