Skip to content

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

Fix spsummon

parent 282314d3
Pipeline #43642 canceled with stages
          in 2 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 68 additions and 61 deletions
          script/c101305008.lua
          View file @ e8a6d4d4
          ...@@ -35,6 +35,12 @@ function s.initial_effect(c) ...@@ -35,6 +35,12 @@ function s.initial_effect(c)
          e3:SetOperation(s.spop3) e3:SetOperation(s.spop3)
          c:RegisterEffect(e3) c:RegisterEffect(e3)
          end end
          ---The `nolimit` parameter for Special Summon effects of Phantasms cards
          ---@param c Card
          ---@return boolean
          function aux.PhantasmsSpSummonType(c)
          return c:IsType(TYPE_SPSUMMON)
          end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk) function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return not e:GetHandler():IsPublic() end if chk==0 then return not e:GetHandler():IsPublic() end
          end end
          ...@@ -44,17 +50,12 @@ function s.hfilter(c,e,tp) ...@@ -44,17 +50,12 @@ function s.hfilter(c,e,tp)
          end end
          function s.spfilter(c,e,tp) function s.spfilter(c,e,tp)
          if not c:IsSetCard(0x1144) or c:IsLevel(8) then return false end if not c:IsSetCard(0x1144) or c:IsLevel(8) then return false end
          if c:IsCode(101305005,101305006,101305007) then return c:IsCanBeSpecialSummoned(e,0,tp,false,aux.PhantasmsSpSummonType(c),POS_FACEUP_DEFENSE)
          return c:IsCanBeSpecialSummoned(e,0,tp,false,true,POS_FACEUP_DEFENSE)
          else
          return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
          end
          end end
          function s.spsummon(c,tp) function s.spsummon(c,tp)
          if c:IsCode(101305005,101305006,101305007) then local flag=aux.PhantasmsSpSummonType(c)
          Duel.SpecialSummon(c,0,tp,tp,false,true,POS_FACEUP_DEFENSE) if Duel.SpecialSummon(c,0,tp,tp,false,flag,POS_FACEUP_DEFENSE) and flag then
          else c:CompleteProcedure()
          Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
          end end
          end end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          ......
          script/c101305048.lua
          View file @ e8a6d4d4
          ...@@ -29,6 +29,12 @@ function s.initial_effect(c) ...@@ -29,6 +29,12 @@ function s.initial_effect(c)
          e3:SetOperation(s.drop) e3:SetOperation(s.drop)
          c:RegisterEffect(e3) c:RegisterEffect(e3)
          end end
          ---The `nolimit` parameter for Special Summon effects of Phantasms cards
          ---@param c Card
          ---@return boolean
          function aux.PhantasmsSpSummonType(c)
          return c:IsType(TYPE_SPSUMMON)
          end
          function s.tgfilter(c) function s.tgfilter(c)
          return c:IsFaceupEx() and c:IsAbleToGrave() return c:IsFaceupEx() and c:IsAbleToGrave()
          end end
          ...@@ -44,11 +50,7 @@ function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -44,11 +50,7 @@ function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          end end
          function s.spfilter(c,e,tp) function s.spfilter(c,e,tp)
          if not c:IsFaceupEx() or not c:IsSetCard(0x1144) then return false end if not c:IsFaceupEx() or not c:IsSetCard(0x1144) then return false end
          if c:IsCode(101305005,101305006,101305007) then return c:IsCanBeSpecialSummoned(e,0,tp,false,aux.PhantasmsSpSummonType(c))
          return c:IsCanBeSpecialSummoned(e,0,tp,false,true)
          else
          return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          end
          end end
          function s.spop(e,tp,eg,ep,ev,re,r,rp) function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler() local c=e:GetHandler()
          ...@@ -67,11 +69,8 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -67,11 +69,8 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
          Duel.BreakEffect() Duel.BreakEffect()
          if tc then if tc then
          local res=false local res=false
          if tc:IsCode(101305005,101305006,101305007) then local flag=aux.PhantasmsSpSummonType(tc)
          res=Duel.SpecialSummonStep(tc,0,tp,tp,false,true,POS_FACEUP) res=Duel.SpecialSummonStep(tc,0,tp,tp,false,flag,POS_FACEUP)
          else
          res=Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
          end
          if res then if res then
          local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(id,3)) e1:SetDescription(aux.Stringid(id,3))
          ...@@ -83,6 +82,9 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -83,6 +82,9 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
          e1:SetValue(s.efilter) e1:SetValue(s.efilter)
          e1:SetOwnerPlayer(tp) e1:SetOwnerPlayer(tp)
          tc:RegisterEffect(e1,true) tc:RegisterEffect(e1,true)
          if flag then
          tc:CompleteProcedure()
          end
          end end
          Duel.SpecialSummonComplete() Duel.SpecialSummonComplete()
          end end
          ......
          script/c101305066.lua
          View file @ e8a6d4d4
          ...@@ -25,13 +25,15 @@ function s.initial_effect(c) ...@@ -25,13 +25,15 @@ function s.initial_effect(c)
          e2:SetOperation(s.fspop) e2:SetOperation(s.fspop)
          c:RegisterEffect(e2) c:RegisterEffect(e2)
          end end
          ---The `nolimit` parameter for Special Summon effects of Phantasms cards
          ---@param c Card
          ---@return boolean
          function aux.PhantasmsSpSummonType(c)
          return c:IsType(TYPE_SPSUMMON)
          end
          function s.spfilter(c,e,tp) function s.spfilter(c,e,tp)
          if not c:IsSetCard(0x1144) or not c:IsType(TYPE_MONSTER) then return false end if not c:IsSetCard(0x1144) or not c:IsType(TYPE_MONSTER) then return false end
          if c:IsCode(101305005,101305006,101305007) then return c:IsCanBeSpecialSummoned(e,0,tp,false,aux.PhantasmsSpSummonType(c),POS_FACEUP_DEFENSE)
          return c:IsCanBeSpecialSummoned(e,0,tp,false,true,POS_FACEUP_DEFENSE)
          else
          return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
          end
          end end
          function s.target(e,tp,eg,ep,ev,re,r,rp,chk) function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
          ...@@ -49,44 +51,46 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp) ...@@ -49,44 +51,46 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
          local tc=g:GetFirst() local tc=g:GetFirst()
          if tc then if tc then
          local res=0 local res=0
          if tc:IsCode(101305005,101305006,101305007) then local flag=aux.PhantasmsSpSummonType(tc)
          res=Duel.SpecialSummon(tc,0,tp,tp,false,true,POS_FACEUP_DEFENSE) res=Duel.SpecialSummon(tc,0,tp,tp,false,flag,POS_FACEUP_DEFENSE)
          else if res>0 then
          res=Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) if Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,2,nil)
          end and Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,nil)
          if res>0 and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,2,nil) and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          and Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,nil) Duel.BreakEffect()
          and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
          Duel.BreakEffect() local ng=Duel.SelectMatchingCard(tp,aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,1,nil)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE) Duel.HintSelection(ng)
          local ng=Duel.SelectMatchingCard(tp,aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,1,nil) local nc=ng:GetFirst()
          Duel.HintSelection(ng) if nc:IsCanBeDisabledByEffect(e) then
          local nc=ng:GetFirst() local e1=Effect.CreateEffect(c)
          if nc:IsCanBeDisabledByEffect(e) then e1:SetType(EFFECT_TYPE_SINGLE)
          local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          e1:SetCode(EFFECT_DISABLE) nc:RegisterEffect(e1)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD) local e2=Effect.CreateEffect(c)
          nc:RegisterEffect(e1) e2:SetType(EFFECT_TYPE_SINGLE)
          local e2=Effect.CreateEffect(c) e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_DISABLE_EFFECT)
          e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetValue(RESET_TURN_SET)
          e2:SetCode(EFFECT_DISABLE_EFFECT) e2:SetReset(RESET_EVENT+RESETS_STANDARD)
          e2:SetValue(RESET_TURN_SET) nc:RegisterEffect(e2)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD) if tc:IsType(TYPE_TRAPMONSTER) then
          nc:RegisterEffect(e2) local e3=Effect.CreateEffect(c)
          if tc:IsType(TYPE_TRAPMONSTER) then e3:SetType(EFFECT_TYPE_SINGLE)
          local e3=Effect.CreateEffect(c) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e3:SetType(EFFECT_TYPE_SINGLE) e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
          e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e3:SetReset(RESET_EVENT+RESETS_STANDARD)
          e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) nc:RegisterEffect(e3)
          e3:SetReset(RESET_EVENT+RESETS_STANDARD) end
          nc:RegisterEffect(e3) Duel.AdjustInstantly()
          Duel.NegateRelatedChain(nc,RESET_TURN_SET)
          Duel.Destroy(nc,REASON_EFFECT)
          end end
          Duel.AdjustInstantly() end
          Duel.NegateRelatedChain(nc,RESET_TURN_SET) if flag then
          Duel.Destroy(nc,REASON_EFFECT) tc:CompleteProcedure()
          end end
          end end
          end end
          ......
          Markdown is supported
          0% or
          You are about to add 0 people to the discussion. Proceed with caution.
          Finish editing this message first!
          Please register or to comment