Skip to content

Y
ygopro-222DIY-cards
Commit c0e9a94f authored by REIKAI's avatar REIKAI 💬
Browse files
Options

update 11.19

parent 6d8e0ea3
Pipeline #18023 passed with stages
      in 18 minutes and 26 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 1 addition and 253 deletions
      expansions/222DIY.cdb
      View file @ c0e9a94f
      No preview for this file type
      expansions/script/c16400081.lua
      View file @ c0e9a94f
      ...@@ -63,7 +63,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -63,7 +63,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_HAND,nil) local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_HAND,nil)
      if g:GetCount()>0 then if g:GetCount()>0 then
      Duel.ConfirmCards(tp,g) Duel.ConfirmCards(tp,g)
      if Duel.Draw(1-tp,count) > 0 then if Duel.Draw(1-tp,count,REASON_EFFECT) > 0 then
      local e1=Effect.CreateEffect(e:GetHandler()) local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD) e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_ACTIVATE) e1:SetCode(EFFECT_CANNOT_ACTIVATE)
      ......
      expansions/script/c86570086.lua deleted 100644 → 0
      View file @ 6d8e0ea3
      --言灵法·灵长
      function c86570086.initial_effect(c)
      --link summon
      aux.AddLinkProcedure(c,nil,5,6,c86570086.lcheck)
      c:EnableReviveLimit()
      --
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
      c:RegisterEffect(e1)
      --cannot be target
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e2:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
      e2:SetRange(LOCATION_MZONE)
      e2:SetValue(aux.imval1)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
      e3:SetValue(1)
      c:RegisterEffect(e3)
      --attribute change
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(86570086,0))
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_FREE_CHAIN)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCondition(c86570086.raccon)
      e4:SetTarget(c86570086.ractg)
      e4:SetOperation(c86570086.racop)
      c:RegisterEffect(e4)
      --tohand
      local e5=Effect.CreateEffect(c)
      e5:SetDescription(aux.Stringid(86570086,1))
      e5:SetCategory(CATEGORY_TOHAND)
      e5:SetType(EFFECT_TYPE_QUICK_O)
      e5:SetCode(EVENT_FREE_CHAIN)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCountLimit(1,86570086)
      e5:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e5:SetCost(c86570086.thcost)
      e5:SetTarget(c86570086.thtg)
      e5:SetOperation(c86570086.thop)
      c:RegisterEffect(e5)
      --extra material
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_FIELD)
      e7:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
      e7:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
      e7:SetRange(LOCATION_EXTRA)
      e7:SetTargetRange(0,LOCATION_MZONE)
      e7:SetValue(c86570086.matval)
      c:RegisterEffect(e7)
      end
      function c86570086.matval(e,lc,mg,c,tp)
      if e:GetHandler()~=lc then return false,nil end
      return true,not mg or not mg:IsExists(Card.IsControler,1,nil,1-tp)
      end
      function c86570086.lcheck(g,lc)
      return g:IsExists(Card.IsLinkSetCard,1,nil,0x651)
      end
      function c86570086.raccon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function c86570086.ractg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFlagEffect(tp,86570086)==0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RACE)
      local rac=Duel.AnnounceRace(tp,1,RACE_ALL)
      e:SetLabel(rac)
      Duel.RegisterFlagEffect(tp,86570086,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
      Duel.RaiseEvent(e:GetHandler(),EVENT_CUSTOM+86570086,re,r,rp,ep,Duel.GetCurrentChain())
      end
      function c86570086.racop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local race=e:GetLabel()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_ACTIVATE)
      e1:SetTargetRange(0,1)
      e1:SetLabel(race)
      e1:SetRange(LOCATION_MZONE)
      e1:SetValue(c86570086.aclimit)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+EVENT_CUSTOM+86570086)
      c:RegisterEffect(e1)
      --disable spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e2:SetTargetRange(0,1)
      e2:SetTarget(c86570086.tglimit)
      e2:SetLabel(e:GetLabel())
      e2:SetReset(RESET_EVENT+RESETS_STANDARD+EVENT_CUSTOM+86570086)
      c:RegisterEffect(e2,true)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_CANNOT_SUMMON)
      c:RegisterEffect(e3,true)
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(93729065,4))
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e4:SetCode(EVENT_CUSTOM+86570086)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1)
      e4:SetLabelObject(e1)
      e4:SetLabel(race)
      e4:SetOperation(c86570086.rstop)
      e4:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e4)
      local e5=e4:Clone()
      e5:SetLabelObject(e2)
      c:RegisterEffect(e5)
      local e6=e4:Clone()
      e6:SetLabelObject(e3)
      c:RegisterEffect(e6)
      --disable
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_FIELD)
      e7:SetRange(LOCATION_MZONE)
      e7:SetTargetRange(0,LOCATION_MZONE)
      e7:SetLabel(race)
      e7:SetTarget(c86570086.disable)
      e7:SetCode(EFFECT_DISABLE)
      c:RegisterEffect(e7)
      local e8=e4:Clone()
      e8:SetLabelObject(e7)
      c:RegisterEffect(e8)
      end
      function c86570086.disable(e,c)
      return (c:IsType(TYPE_EFFECT) or c:GetOriginalType()&TYPE_EFFECT~=0) and c:IsRace(e:GetLabel())
      end
      function c86570086.aclimit(e,re,tp)
      local c=re:GetHandler()
      return re:IsActiveType(TYPE_MONSTER) and c:IsRace(e:GetLabel())
      end
      function c86570086.tglimit(e,c)
      return c:IsRace(e:GetLabel())
      end
      function c86570086.cfilter(c)
      return not c:IsStatus(STATUS_BATTLE_DESTROYED)
      end
      function c86570086.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckReleaseGroup(tp,c86570086.cfilter,1,nil) end
      local g=Duel.SelectReleaseGroup(tp,c86570086.cfilter,1,1,nil)
      Duel.Release(g,REASON_COST)
      end
      function c86570086.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,nil,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED)
      end
      function c86570086.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      end
      end
      function c86570086.rstop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local cid=e:GetLabel()
      if cid~=0 then
      c:ResetEffect(RESET_DISABLE,RESET_EVENT)
      end
      local e1=e:GetLabelObject()
      e1:Reset()
      local e2=e:GetLabelObject()
      e2:Reset()
      local e3=e:GetLabelObject()
      e3:Reset()
      Duel.HintSelection(Group.FromCards(c))
      Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
      end
      \ No newline at end of file
      expansions/script/c86570087.lua deleted 100644 → 0
      View file @ 6d8e0ea3
      --言灵皇圣·墨兰
      function c86570087.initial_effect(c)
      --link summon
      aux.AddLinkProcedure(c,nil,2,3,c86570087.lcheck)
      c:EnableReviveLimit()
      --
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
      c:RegisterEffect(e1)
      --
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetCondition(c86570087.sumcon)
      e2:SetOperation(c86570087.sumsuc)
      c:RegisterEffect(e2)
      --token
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(86570087,0))
      e3:SetCategory(CATEGORY_TOKEN+CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,86570087)
      e3:SetTarget(c86570087.tktg)
      e3:SetOperation(c86570087.tkop)
      c:RegisterEffect(e3)
      end
      function c86570087.lcheck(g,lc)
      return g:IsExists(Card.IsLinkSetCard,1,nil,0x651)
      end
      function c86570087.sumcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
      end
      function c86570087.sumsuc(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      --cannot be target
      local e2=Effect.CreateEffect(c)
      e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
      e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_SET_AVAILABLE)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetTargetRange(LOCATION_ONFIELD,0)
      e2:SetValue(aux.tgoval)
      e2:SetReset(RESET_PHASE+PHASE_END,2)
      Duel.RegisterEffect(e2,tp)
      end
      function c86570087.tkfilter(c,tp)
      return c:IsFaceup() and Duel.IsPlayerCanSpecialSummonMonster(tp,86570018,0x651,TYPES_TOKEN_MONSTER,0,0,4,c:GetRace(),ATTRIBUTE_DARK)
      end
      function c86570087.tktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c86570087.tkfilter(chkc,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c86570087.tkfilter,tp,LOCATION_MZONE,0,1,nil,tp) end
      Duel.SelectTarget(tp,c86570087.tkfilter,tp,LOCATION_MZONE,0,1,1,nil,tp)
      Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function c86570087.tkop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      local rac=tc:GetRace()
      if Duel.IsPlayerCanSpecialSummonMonster(tp,86570018,0x651,TYPES_TOKEN_MONSTER,0,0,4,rac,ATTRIBUTE_DARK) then
      local token=Duel.CreateToken(tp,86570018)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_RACE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetValue(rac)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
      token:RegisterEffect(e1)
      Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
      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