Skip to content

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

Fix

parent e19faba9
Pipeline #43595 passed with stages
          in 2 minutes and 55 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 114 additions and 71 deletions
          LOCR.cdb
          View file @ 3e3c348d
          No preview for this file type
          script/c100257019.lua
          View file @ 3e3c348d
          ......@@ -34,7 +34,7 @@ end
          function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
          local g=Duel.GetMatchingGroup(s.sprfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_MZONE,0,e:GetHandler())
          if chk==0 then return g:CheckSubGroup(s.gcheck,4,4,tp) end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
          local sg=g:SelectSubGroup(tp,s.gcheck,false,4,4,tp)
          Duel.SendtoGrave(sg,REASON_COST)
          end
          ......@@ -65,7 +65,8 @@ function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
          Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0)
          end
          function s.desop(e,tp,eg,ep,ev,re,r,rp)
          local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToChain,nil)
          local c=e:GetHandler()
          local g=Duel.GetTargetsRelateToChain():Filter(Card.IsOnField,nil)
          if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)>0 then
          if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
          or Duel.GetLocationCount(1-tp,LOCATION_MZONE)<=0
          ......@@ -78,5 +79,13 @@ function s.desop(e,tp,eg,ep,ev,re,r,rp)
          Duel.SpecialSummonStep(token1,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
          Duel.SpecialSummonStep(token2,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE)
          Duel.SpecialSummonComplete()
          if c:IsFaceup() and c:IsRelateToChain() then
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_UPDATE_ATTACK)
          e1:SetValue(1600)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
          c:RegisterEffect(e1)
          end
          end
          end
          \ No newline at end of file
          script/c100257020.lua
          View file @ 3e3c348d
          --闇の神ーダークゴッド
          --闇の神－ダークゴッド
          local s,id,o=GetID()
          function s.initial_effect(c)
          --special summon
          ......@@ -11,16 +11,34 @@ function s.initial_effect(c)
          e1:SetTarget(s.sptg)
          e1:SetOperation(s.spop)
          c:RegisterEffect(e1)
          --token
          --indestructable by battle
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
          e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e2:SetRange(LOCATION_MZONE)
          e2:SetCountLimit(1)
          e2:SetTarget(s.sptg2)
          e2:SetOperation(s.spop2)
          e2:SetValue(1)
          c:RegisterEffect(e2)
          --token
          local e3=Effect.CreateEffect(c)
          e3:SetDescription(aux.Stringid(id,1))
          e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
          e3:SetType(EFFECT_TYPE_IGNITION)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCountLimit(1)
          e3:SetTarget(s.sptg2)
          e3:SetOperation(s.spop2)
          c:RegisterEffect(e3)
          --damage
          local e4=Effect.CreateEffect(c)
          e4:SetDescription(aux.Stringid(id,2))
          e4:SetCategory(CATEGORY_DAMAGE)
          e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
          e4:SetCode(EVENT_BATTLE_DESTROYED)
          e4:SetRange(LOCATION_MZONE)
          e4:SetTarget(s.damtg)
          e4:SetOperation(s.damop)
          c:RegisterEffect(e4)
          end
          function s.rfilter(c,tp)
          return c:IsRace(RACE_FAIRY+RACE_FIEND) and (c:IsControler(tp) or c:IsFaceup())
          ......@@ -57,39 +75,40 @@ end
          function s.spop2(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
          if ft<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0,TYPES_TOKEN_MONSTER,3000,1000,10,RACE_FIEND,ATTRIBUTE_DARK) then return end
          if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
          local fid=e:GetHandler():GetFieldID()
          c:RegisterFlagEffect(id,RESET_EVENT+RESET_TOFIELD,0,1,fid)
          for i=1,ft do
          local token=Duel.CreateToken(tp,id+o)
          Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
          e1:SetRange(LOCATION_MZONE)
          e1:SetValue(1)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          token:RegisterEffect(e1,true)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK)
          e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD)
          token:RegisterEffect(e2,true)
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCode(EVENT_LEAVE_FIELD)
          e3:SetLabelObject(c)
          e3:SetLabel(fid)
          e3:SetCondition(s.descon)
          e3:SetOperation(s.desop)
          e3:SetReset(RESET_EVENT+RESETS_STANDARD)
          token:RegisterEffect(e3)
          if ft>0 and Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0,TYPES_TOKEN_MONSTER,3000,1000,10,RACE_FIEND,ATTRIBUTE_DARK) then
          if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
          local fid=e:GetHandler():GetFieldID()
          c:RegisterFlagEffect(id,RESET_EVENT+RESET_TOFIELD,0,1,fid)
          for i=1,ft do
          local token=Duel.CreateToken(tp,id+o)
          Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
          local e1=Effect.CreateEffect(c)
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
          e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
          e1:SetRange(LOCATION_MZONE)
          e1:SetValue(1)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          token:RegisterEffect(e1,true)
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_SINGLE)
          e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK)
          e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e2:SetReset(RESET_EVENT+RESETS_STANDARD)
          token:RegisterEffect(e2,true)
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
          e3:SetRange(LOCATION_MZONE)
          e3:SetCode(EVENT_LEAVE_FIELD)
          e3:SetLabelObject(c)
          e3:SetLabel(fid)
          e3:SetCondition(s.descon)
          e3:SetOperation(s.desop)
          e3:SetReset(RESET_EVENT+RESETS_STANDARD)
          token:RegisterEffect(e3)
          end
          Duel.SpecialSummonComplete()
          end
          Duel.SpecialSummonComplete()
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          ......@@ -106,4 +125,14 @@ function s.descon(e,tp,eg,ep,ev,re,r,rp)
          end
          function s.desop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Destroy(e:GetHandler(),REASON_EFFECT)
          end
          \ No newline at end of file
          end
          function s.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return true end
          Duel.SetTargetPlayer(1-tp)
          Duel.SetTargetParam(700)
          Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,700)
          end
          function s.damop(e,tp,eg,ep,ev,re,r,rp)
          local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
          Duel.Damage(p,d,REASON_EFFECT)
          end
          script/c100257021.lua
          View file @ 3e3c348d
          ......@@ -26,18 +26,20 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
          if not tc then return end
          if Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then
          Duel.ConfirmCards(1-tp,tc)
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.sumlimit)
          e1:SetLabel(tc:GetCode())
          e1:SetReset(RESET_PHASE+PHASE_END,2)
          Duel.RegisterEffect(e1,tp)
          local e2=e1:Clone()
          e2:SetCode(EFFECT_CANNOT_MSET)
          Duel.RegisterEffect(e2,tp)
          if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_SUMMON)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetTargetRange(1,0)
          e1:SetTarget(s.sumlimit)
          e1:SetLabel(tc:GetCode())
          e1:SetReset(RESET_PHASE+PHASE_END,2)
          Duel.RegisterEffect(e1,tp)
          local e2=e1:Clone()
          e2:SetCode(EFFECT_CANNOT_MSET)
          Duel.RegisterEffect(e2,tp)
          end
          end
          end
          function s.sumlimit(e,c)
          ......
          script/c100257022.lua
          View file @ 3e3c348d
          ......@@ -14,6 +14,7 @@ function s.initial_effect(c)
          c:RegisterEffect(e1)
          --summon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_RELEASE+CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY)
          e2:SetType(EFFECT_TYPE_IGNITION)
          e2:SetRange(LOCATION_MZONE)
          ......@@ -44,33 +45,35 @@ function s.spcon(e,tp,eg,ep,ev,re,r,rp)
          return e:GetHandler():IsSummonType(SUMMON_TYPE_NORMAL)
          end
          function s.rlfilter(c,e,tp,ec)
          return c:IsLevelAbove(1) and c:IsLevelBelow(ec:GetLevel()) and c:IsReleasable()
          return c:IsLevelAbove(1) and ec:GetLevel()>c:GetLevel() and c:IsReleasable(REASON_EFFECT)
          and not c:IsType(TYPE_TUNER) and c:IsFaceup()
          and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,ec:GetLevel()-c:GetLevel(),Group.FromCards(c,ec))
          end
          function s.spfilter(c,e,tp,lv,sg)
          return c:IsLevel(lv) and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
          return c:IsLevel(lv) and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
          and Duel.GetLocationCountFromEx(tp,tp,sg,c)>0
          end
          function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.rlfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e,tp,e:GetHandler()) and e:GetHandler():IsReleasable() end
          local c=e:GetHandler()
          if chk==0 then return Duel.IsExistingMatchingCard(s.rlfilter,tp,LOCATION_MZONE,0,1,c,e,tp,c)
          and c:IsReleasable(REASON_EFFECT) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          Duel.SetOperationInfo(0,CATEGORY_RELEASE,nil,2,tp,LOCATION_MZONE)
          end
          function s.spop(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not c:IsRelateToChain() then return end
          if not c:IsRelateToChain() or not c:IsFaceup() or not c:IsReleasable(REASON_EFFECT) then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
          local tc=Duel.SelectMatchingCard(tp,s.rlfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e,tp,e:GetHandler()):GetFirst()
          local tc=Duel.SelectMatchingCard(tp,s.rlfilter,tp,LOCATION_MZONE,0,1,1,c,e,tp,c):GetFirst()
          if tc then
          lv=c:GetLevel()-tc:GetLevel()
          local lv=c:GetLevel()-tc:GetLevel()
          if Duel.Release(Group.FromCards(c,tc),REASON_EFFECT)>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,lv,nil)
          local sc=g:GetFirst()
          if sc and Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)~=0
          if sc and Duel.SpecialSummon(sc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)~=0
          and Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil)
          and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
          and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
          Duel.BreakEffect()
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
          local sg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
          ......@@ -79,4 +82,4 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
          end
          end
          end
          end
          \ No newline at end of file
          end
          script/c100257023.lua
          View file @ 3e3c348d
          ......@@ -12,10 +12,10 @@ function s.initial_effect(c)
          e1:SetTarget(s.sumtg)
          e1:SetOperation(s.sumop)
          c:RegisterEffect(e1)
          --summon
          --spsummon
          local e2=Effect.CreateEffect(c)
          e2:SetDescription(aux.Stringid(id,1))
          e2:SetCategory(CATEGORY_SUMMON)
          e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
          e2:SetProperty(EFFECT_FLAG_DELAY)
          e2:SetCode(EVENT_SUMMON_SUCCESS)
          ......@@ -72,7 +72,7 @@ function s.spcon2(e,tp,eg,ep,ev,re,r,rp)
          return e:GetHandler():IsSummonType(SUMMON_TYPE_NORMAL)
          end
          function s.rlfilter(c,e,tp,ec)
          return c:IsLevelAbove(1) and c:IsLevelBelow(ec:GetLevel()) and c:IsReleasable()
          return c:IsLevelAbove(1) and ec:GetLevel()>c:GetLevel() and c:IsReleasable(REASON_EFFECT)
          and not c:IsType(TYPE_TUNER) and c:IsFaceup()
          and Duel.IsExistingMatchingCard(s.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,ec:GetLevel()-c:GetLevel(),Group.FromCards(c,ec))
          end
          ......@@ -82,17 +82,17 @@ function s.spfilter2(c,e,tp,lv,sg)
          end
          function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.IsExistingMatchingCard(s.rlfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e,tp,e:GetHandler())
          and e:GetHandler():IsReleasable()
          and e:GetHandler():IsReleasable(REASON_EFFECT)
          and aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          end
          function s.spop2(e,tp,eg,ep,ev,re,r,rp)
          local c=e:GetHandler()
          if not c:IsRelateToChain() then return end
          if not c:IsRelateToChain() or not c:IsFaceup() or not c:IsReleasable(REASON_EFFECT) then return end
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
          local tc=Duel.SelectMatchingCard(tp,s.rlfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e,tp,e:GetHandler()):GetFirst()
          if tc then
          lv=c:GetLevel()-tc:GetLevel()
          local lv=c:GetLevel()-tc:GetLevel()
          if Duel.Release(Group.FromCards(c,tc),REASON_EFFECT)>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local g=Duel.SelectMatchingCard(tp,s.spfilter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,lv,nil)
          ......@@ -105,4 +105,4 @@ function s.spop2(e,tp,eg,ep,ev,re,r,rp)
          end
          end
          end
          end
          \ No newline at end of file
          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