Skip to content

Y
ygopro-222DIY-cards
Commit 6831678e authored by Tachibana's avatar Tachibana
Browse files
Options

rar

parent 79418b32
Pipeline #3685 failed with stages
      in 62 minutes and 10 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 38 additions and 47 deletions
      expansions/script/c33310100.lua
      View file @ 6831678e
      --可可莉柯特·布兰琪
      if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
      local m,cm=rsof.DefineCard(33310100,"Cochrot")
      if not pcall(function() require("expansions/script/c33301000") end) then require("script/c33301000") end
      local m,cm=rscf.DefineCard(33310100,"Cochrot")
      function cm.initial_effect(c)
      c:EnableReviveLimit()
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e0:SetCode(EVENT_SPSUMMON_SUCCESS)
      e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
      e0:SetOperation(cm.skipop)
      c:RegisterEffect(e0)
      local e1=rsef.SC(c,EVENT_SPSUMMON_SUCCESS,nil,nil,nil,rscon.sumtype("rit"),cm.atkop)
      local e2,e3=rsef.SV_INDESTRUCTABLE(c,"battle,effect")
      local e4=rsef.RegisterClone(c,e3,"code",EFFECT_AVOID_BATTLE_DAMAGE)
      ......@@ -20,9 +14,6 @@ local e0=Effect.CreateEffect(c)
      c:RegisterEffect(e5)
      local e6=rsef.STO(c,EVENT_REMOVE,{m,0},nil,nil,"de,dsp",nil,nil,rsop.target(cm.actfilter,nil,LOCATION_GRAVE+LOCATION_DECK),cm.actop)
      end
      function cm.skipop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_MUSIC,0,aux.Stringid(33310100,0))
      end
      function cm.atkop(e,tp)
      local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
      if #g<=0 then return end
      ......@@ -35,13 +26,13 @@ function cm.damcon(e,tp,eg,ep,ev,re,r,rp)
      return ep~=tp
      end
      function cm.damop(e,tp,eg,ep,ev,re,r,rp)
      Duel.ChangeBattleDamage(1,ev*2)
      Duel.ChangeBattleDamage(ep,ev*2)
      end
      function cm.actfilter(c,e,tp)
      return c:IsCode(33310101) and c:GetActivateEffect() and c:GetActivateEffect():IsActivatable(tp,true,true)
      end
      function cm.actop(e,tp)
      rsof.SelectHint(tp,HINTMSG_TOFIELD)
      rshint.Select(tp,HINTMSG_TOFIELD)
      local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.actfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp):GetFirst()
      if not tc then return end
      Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      ......
      expansions/script/c33310101.lua
      View file @ 6831678e
      --恶魔的提线魔术
      if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
      local m,cm=rsof.DefineCard(33310101)
      if not pcall(function() require("expansions/script/c33301000") end) then require("script/c33301000") end
      local m,cm=rscf.DefineCard(33310101)
      function cm.initial_effect(c)
      local e1=rsef.ACT(c)
      local e2=rsef.QO(c,nil,{m,0},{1,0x1},"tg",nil,LOCATION_SZONE,nil,nil,rsop.target2(cm.fun,cm.copyfilter,"tg",LOCATION_DECK+LOCATION_HAND),cm.copyop)
      local e2=rsef.QO(c,nil,{m,0},{1,0x1},"tg",nil,LOCATION_SZONE,nil,nil,rsop.target(cm.copyfilter,"tg",LOCATION_DECK),cm.copyop)
      local e3=rsef.QO(c,nil,{m,1},{1,0x1},"dis",nil,LOCATION_SZONE,rscon.excard2(Card.IsType,LOCATION_MZONE,0,1,nil,TYPE_RITUAL),nil,rsop.target(aux.disfilter1,"dis",0,LOCATION_ONFIELD),cm.disop)
      local e4=rsef.QO(c,nil,{m,2},{1,0x1},nil,nil,LOCATION_SZONE,cm.skipcon,nil,nil,cm.skipop)
      end
      ......@@ -12,8 +12,8 @@ function cm.copyfilter(c,e,tp)
      return c:CheckActivateEffect(false,true,false)~=nil
      end
      function cm.copyop(e,tp)
      rsof.SelectHint(tp,"tg")
      local tc=Duel.SelectMatchingCard(tp,cm.copyfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil):GetFirst()
      rshint.Select(tp,"tg")
      local tc=Duel.SelectMatchingCard(tp,cm.copyfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
      if not tc or Duel.SendtoGrave(tc,REASON_EFFECT)<=0 or not tc:IsLocation(LOCATION_GRAVE) then return end
      local te=tc:GetActivateEffect()
      local op=te:GetOperation()
      ......@@ -21,17 +21,17 @@ function cm.copyop(e,tp)
      end
      function cm.disop(e,tp)
      local c=e:GetHandler()
      rsof.SelectHint(tp,"dis")
      rshint.Select(tp,"dis")
      local tc=Duel.SelectMatchingCard(tp,aux.disfilter1,tp,0,LOCATION_ONFIELD,1,1,nil):GetFirst()
      if not tc then return end
      Duel.HintSelection(rsgf.Mix2(tc))
      local e1,e2=rsef.SV_LIMIT({c,tc},"dis,dise",nil,nil,rsreset.est_pend)
      local e1,e2=rsef.SV_LIMIT({c,tc},"dis,dise",nil,nil,rsreset.est)
      Duel.AdjustInstantly(c)
      if tc:IsDisabled() and tc:IsType(TYPE_MONSTER) then
      local e3=rsef.SV_INDESTRUCTABLE({c,tc},"battle",nil,nil,rsreset.est_pend)
      local e3=rsef.SV_INDESTRUCTABLE({c,tc},"battle",nil,nil,rsreset.est)
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetReset(rsreset.est_pend)
      e4:SetReset(rsreset.est)
      e4:SetCode(EFFECT_MUST_ATTACK)
      tc:RegisterEffect(e4)
      end
      ......@@ -42,7 +42,7 @@ end
      function cm.skipop(e,tp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
      e1:SetCode(EVENT_CHAIN_END)
      e1:SetCode(EVENT_CHAIN_SOLVED)
      e1:SetOperation(cm.skipop2)
      Duel.RegisterEffect(e1,tp)
      end
      ......
      expansions/script/c33310102.lua
      View file @ 6831678e
      --睡美人的小憇
      if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
      local m,cm=rsof.DefineCard(33310102)
      if not pcall(function() require("expansions/script/c33301000") end) then require("script/c33301000") end
      local m,cm=rscf.DefineCard(33310102)
      function cm.initial_effect(c)
      local e1=rsef.ACT(c,nil,nil,nil,"sp,rm",nil,nil,nil,cm.tg,cm.act)
      local e2=rsef.I(c,{m,0},{1,m},"td,th","tg",LOCATION_GRAVE,nil,nil,rstg.target({cm.tdfilter,"td",LOCATION_REMOVED },rsop.list(Card.IsAbleToHand,"th")),cm.tdop)
      local e2=rsef.I(c,{m,0},nil,"td,th","tg",LOCATION_GRAVE,nil,nil,rstg.target({cm.tdfilter,"td",LOCATION_REMOVED },rsop.list(Card.IsAbleToHand,"th")),cm.tdop)
      end
      function cm.spfilter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) and c:CheckSetCard("Cochrot") and Duel.IsExistingMatchingCard(cm.matfilter,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE,0,1,c,c,e,tp)
      ......@@ -26,10 +26,10 @@ function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,tp,LOCATION_GRAVE)
      end
      function cm.act(e,tp)
      rsof.SelectHint(tp,"sp")
      rshint.Select(tp,"sp")
      local tc=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp):GetFirst()
      if not tc then return end
      rsof.SelectHint(tp,"res")
      rshint.Select(tp,"res")
      local matc=Duel.SelectMatchingCard(tp,cm.matfilter,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE,0,1,1,tc,tc,e,tp):GetFirst()
      tc:SetMaterial(Group.FromCards(matc))
      if matc:IsLocation(LOCATION_GRAVE) then
      ......
      expansions/script/c33310103.lua
      View file @ 6831678e
      --可可莉柯特·兽耳布偶
      if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
      local m,cm=rsof.DefineCard(33310103,"Cochrot")
      if not pcall(function() require("expansions/script/c33301000") end) then require("script/c33301000") end
      local m,cm=rscf.DefineCard(33310103,"Cochrot")
      function cm.initial_effect(c)
      c:EnableReviveLimit()
      local e1=rsef.I(c,{m,0},{1,m},"se,th,sp,dish,ga",nil,LOCATION_HAND,nil,nil,rsop.target({aux.FilterBoolFunction(Card.IsDiscardable,REASON_EFFECT),"dish",LOCATION_HAND },{cm.thfilter,"th",LOCATION_DECK }),cm.thop)
      local e1=rsef.I(c,{m,0},{1,m},"se,th,sp,dish,ga",nil,LOCATION_HAND,nil,nil,rsop.target({1,"dish" },{cm.thfilter,"th",LOCATION_DECK }),cm.thop)
      local e2=rsef.FC(c,EVENT_SPSUMMON_SUCCESS)
      e2:SetOperation(cm.limitop)
      local e3=rsef.RegisterClone(c,e2,"code",EVENT_SUMMON_SUCCESS)
      ......@@ -16,17 +16,17 @@ end
      function cm.thfilter(c)
      return c:IsCode(33310102) and c:IsAbleToHand()
      end
      function cm.thop(e,tp)
      function cm.thop(e,tp)
      local ct=Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_EFFECT,nil,REASON_EFFECT)
      if ct==0 then return end
      rsof.SelectHint(tp,"th")
      rshint.Select(tp,"th")
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g<=0 or Duel.SendtoHand(g,nil,REASON_EFFECT)<=0 then return end
      Duel.ConfirmCards(1-tp,g)
      local sg=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.spfilter),tp,0,LOCATION_GRAVE,nil,e,tp)
      if #sg>0 and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
      Duel.BreakEffect()
      rsof.SelectHint(tp,"sp")
      rshint.Select(tp,"sp")
      local sc=sg:Select(tp,1,1,nil):GetFirst()
      if Duel.SpecialSummon(sc,0,tp,1-tp,false,false,POS_FACEUP)>0 then
      local e1,e2=rsef.SV_LIMIT({e:GetHandler(),sc,true},"dis,dise",nil,nil,rsreset.est)
      ......@@ -64,14 +64,14 @@ function cm.limitop3(e,tp,eg,ep,ev,re,r,rp)
      end
      e:GetHandler():ResetFlagEffect(m)
      end
      function cm.chlimit(e,ep,eg,tp)
      function cm.chlimit(e,ep,tp)
      return tp==ep
      end
      function cm.thfilter2(c)
      return c:IsAbleToHand() and c:GetType()&0x82==0x82
      end
      function cm.thop2(e,tp)
      rsof.SelectHint(tp,"th")
      rshint.Select(tp,"th")
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter2),tp,LOCATION_GRAVE,0,1,1,nil)
      rsof.SendtoHand(g)
      rsop.SendtoHand(g)
      end
      \ No newline at end of file
      expansions/script/c33310104.lua
      View file @ 6831678e
      --可 可 莉 柯 特 · 地 狱 尖 啸 者
      if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
      local m,cm=rsof.DefineCard(33310104,"Cochrot")
      --可可莉柯特·地狱尖啸者
      if not pcall(function() require("expansions/script/c33301000") end) then require("script/c33301000") end
      local m,cm=rscf.DefineCard(33310104,"Cochrot")
      function cm.initial_effect(c)
      c:EnableReviveLimit()
      local e1=rsef.QO(c,nil,{m,0},{1,m},"se,th,rm,dish,ga",nil,LOCATION_HAND,nil,nil,rsop.target({aux.FilterBoolFunction(Card.IsDiscardable,REASON_EFFECT),"dish",LOCATION_HAND },{cm.thfilter,"th",LOCATION_DECK+LOCATION_GRAVE }),cm.thop)
      local e1=rsef.QO(c,nil,{m,0},{1,m},"se,th,rm,dish,ga",nil,LOCATION_HAND,nil,nil,rsop.target({1,"dish" },{cm.thfilter,"th",LOCATION_DECK }),cm.thop)
      --act limit
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      ......@@ -22,16 +22,16 @@ end
      function cm.thop(e,tp)
      local ct=Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_EFFECT,nil,REASON_EFFECT)
      if ct==0 then return end
      rsof.SelectHint(tp,"th")
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
      rshint.Select(tp,"th")
      local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if #g<=0 or Duel.SendtoHand(g,nil,REASON_EFFECT)<=0 then return end
      Duel.ConfirmCards(1-tp,g)
      local rg=Duel.GetMatchingGroup(aux.NecroValleyFilter(Card.IsAbleToRemove),tp,LOCATION_GRAVE,0,nil)
      if #rg>0 and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
      Duel.BreakEffect()
      rsof.SelectHint(tp,"rm")
      rshint.Select(tp,"rm")
      rg=rg:Select(tp,1,1,nil)
      rsof.Remove(rg)
      rsop.Remove(rg)
      end
      end
      function cm.con(e)
      ......@@ -42,7 +42,7 @@ function cm.aclimit(e,re,tp)
      return not re:GetOwnerPlayer()~=e:GetOwnerPlayer()
      end
      function cm.tdop(e,tp)
      rsof.SelectHint(tp,"td")
      rshint.Select(tp,"td")
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(Card.IsAbleToDeck),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
      rsof.SendtoDeck(g)
      rsop.SendtoDeck(g)
      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