Skip to content

Y
ygopro-222DIY-cards
Commit fa3382a1 authored by TanakaKotoha's avatar TanakaKotoha
Browse files
Options

daniaozhuanzhuanzhuan

parent fdc0d47c
Pipeline #2486 passed with stages
      in 45 minutes and 46 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 243 additions and 239 deletions
      expansions/script/c10174059.lua
      View file @ fa3382a1
      ......@@ -20,7 +20,7 @@ function cm.desop(e,tp)
      if op==1 then
      Duel.Damage(1-tp,1000,REASON_EFFECT)
      elseif op==2 then
      g:SelectDestroy(tp,nil,1,1,nil)
      g:SelectDestroy(tp,aux.TRUE,1,1,nil,{})
      elseif op==3 then
      if c:GetFlagEffect(m)<=0 then
      local e1=Effect.CreateEffect(c)
      ......
      expansions/script/c60150810.lua
      View file @ fa3382a1
      ......@@ -29,7 +29,7 @@ function c60150810.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      local tc=Duel.GetFieldCard(tp,LOCATION_DECK,0)
      local tc2=Duel.GetFieldCard(tp,0,LOCATION_DECK)
      local tc2=Duel.GetFieldCard(1-tp,LOCATION_DECK,0)
      if (tc:IsAbleToRemove() and tc2:IsAbleToRemove()) and Duel.SelectYesNo(tp,aux.Stringid(60150810,0)) then
      if Duel.SelectYesNo(tp,aux.Stringid(60150810,1)) then
      Duel.BreakEffect()
      ......
      expansions/script/c60150811.lua
      View file @ fa3382a1
      ......@@ -61,7 +61,7 @@ function c60150811.spop(e,tp,eg,ep,ev,re,r,rp)
      e2:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,2)
      Duel.RegisterEffect(e2,tp)
      local tc3=Duel.GetFieldCard(tp,LOCATION_DECK,0)
      local tc2=Duel.GetFieldCard(tp,0,LOCATION_DECK)
      local tc2=Duel.GetFieldCard(1-tp,LOCATION_DECK,0)
      if (tc3:IsAbleToRemove() and tc2:IsAbleToRemove()) and Duel.SelectYesNo(tp,aux.Stringid(60150810,0)) then
      if Duel.SelectYesNo(tp,aux.Stringid(60150810,1)) then
      Duel.BreakEffect()
      ......
      expansions/script/c60150812.lua
      View file @ fa3382a1
      ......@@ -54,7 +54,7 @@ function c60150812.activate2(e,tp,eg,ep,ev,re,r,rp)
      Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
      end
      local tc3=Duel.GetFieldCard(tp,LOCATION_DECK,0)
      local tc2=Duel.GetFieldCard(tp,0,LOCATION_DECK)
      local tc2=Duel.GetFieldCard(1-tp,LOCATION_DECK,0)
      if (tc3:IsAbleToRemove() and tc2:IsAbleToRemove()) and Duel.SelectYesNo(tp,aux.Stringid(60150810,0)) then
      if Duel.SelectYesNo(tp,aux.Stringid(60150810,1)) then
      Duel.BreakEffect()
      ......
      expansions/script/c60150817.lua
      View file @ fa3382a1
      ......@@ -57,7 +57,7 @@ function c60150817.spop2(e,tp,eg,ep,ev,re,r,rp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      local tc=Duel.GetFieldCard(tp,LOCATION_DECK,0)
      local tc2=Duel.GetFieldCard(tp,0,LOCATION_DECK)
      local tc2=Duel.GetFieldCard(1-tp,LOCATION_DECK,0)
      if (tc:IsAbleToRemove() and tc2:IsAbleToRemove()) and Duel.SelectYesNo(tp,aux.Stringid(60150810,0)) then
      if Duel.SelectYesNo(tp,aux.Stringid(60150810,1)) then
      Duel.BreakEffect()
      ......
      expansions/script/c60150819.lua
      View file @ fa3382a1
      ......@@ -39,7 +39,7 @@ function c60150819.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tc)
      local tc=Duel.GetFieldCard(tp,LOCATION_DECK,0)
      local tc2=Duel.GetFieldCard(tp,0,LOCATION_DECK)
      local tc2=Duel.GetFieldCard(1-tp,LOCATION_DECK,0)
      if (tc:IsAbleToRemove() and tc2:IsAbleToRemove()) and Duel.SelectYesNo(tp,aux.Stringid(60150810,0)) then
      if Duel.SelectYesNo(tp,aux.Stringid(60150810,1)) then
      Duel.BreakEffect()
      ......
      expansions/script/c60159902.lua
      View file @ fa3382a1
      --白虎的化身 哈克
      function c60159902.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCountLimit(1,60159902)
      e1:SetTarget(c60159902.target)
      e1:SetOperation(c60159902.operation)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(60159901,0))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetTarget(c60159902.target2)
      e2:SetOperation(c60159902.operation2)
      c:RegisterEffect(e2)
      --Activate
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCost(c60159902.descost)
      e3:SetTarget(c60159902.target3)
      e3:SetOperation(c60159902.activate)
      c:RegisterEffect(e3)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCountLimit(1,60159902)
      e1:SetTarget(c60159902.target)
      e1:SetOperation(c60159902.operation)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(60159901,0))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetTarget(c60159902.target2)
      e2:SetOperation(c60159902.operation2)
      c:RegisterEffect(e2)
      --Activate
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DESTROY)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCost(c60159902.descost)
      e3:SetTarget(c60159902.target3)
      e3:SetOperation(c60159902.activate)
      c:RegisterEffect(e3)
      end
      function c60159902.sfilter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c60159902.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummon(tp)
      and Duel.IsExistingMatchingCard(c60159902.sfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummon(tp)
      and Duel.IsExistingMatchingCard(c60159902.sfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
      end
      function c60159902.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
      Duel.ConfirmDecktop(tp,1)
      local g=Duel.GetDecktopGroup(tp,1)
      local tc=g:GetFirst()
      if (tc:IsAttribute(ATTRIBUTE_WIND) or tc:IsAttribute(ATTRIBUTE_FIRE) or tc:IsAttribute(ATTRIBUTE_EARTH))
      and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
      if Duel.SelectYesNo(tp,aux.Stringid(60159901,1)) then
      Duel.DisableShuffleCheck()
      Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      Duel.SpecialSummonComplete()
      Duel.ShuffleDeck(tp)
      else
      Duel.ShuffleDeck(tp)
      end
      else
      Duel.ShuffleDeck(tp)
      end
      local c=e:GetHandler()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
      Duel.ConfirmDecktop(tp,1)
      local g=Duel.GetDecktopGroup(tp,1)
      local tc=g:GetFirst()
      if (tc:IsAttribute(ATTRIBUTE_WIND) or tc:IsAttribute(ATTRIBUTE_FIRE) or tc:IsAttribute(ATTRIBUTE_EARTH))
      and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
      if Duel.SelectYesNo(tp,aux.Stringid(60159901,1)) then
      Duel.DisableShuffleCheck()
      Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      Duel.SpecialSummonComplete()
      Duel.ShuffleDeck(tp)
      else
      Duel.ShuffleDeck(tp)
      end
      else
      Duel.ShuffleDeck(tp)
      end
      end
      function c60159902.filter(c)
      return ((c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_AQUA))
      or (c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WINDBEAST))
      or (c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_DRAGON)))
      and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      return ((c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_AQUA))
      or (c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WINDBEAST))
      or (c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_DRAGON)))
      and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c60159902.target2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159902.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159902.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c60159902.operation2(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c60159902.filter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c60159902.filter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function c60159902.cfilter(c)
      return c:IsAttribute(ATTRIBUTE_WATER) and c:IsRace(RACE_BEAST) and c:IsAbleToRemoveAsCost()
      return c:IsAttribute(ATTRIBUTE_WATER) and c:IsRace(RACE_BEAST) and c:IsAbleToRemoveAsCost()
      end
      function c60159902.descost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159902.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
      local g=Duel.SelectMatchingCard(tp,c60159902.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159902.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
      local g=Duel.SelectMatchingCard(tp,c60159902.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function c60159902.dfilter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable()
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable()
      end
      function c60159902.target3(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(c60159902.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end
      local sg=Duel.GetMatchingGroup(c60159902.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingMatchingCard(c60159902.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end
      local sg=Duel.GetMatchingGroup(c60159902.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
      end
      function c60159902.activate(e,tp,eg,ep,ev,re,r,rp)
      local sg=Duel.GetMatchingGroup(c60159902.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler())
      Duel.Destroy(sg,REASON_EFFECT)
      local sg=Duel.GetMatchingGroup(c60159902.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler())
      Duel.Destroy(sg,REASON_EFFECT)
      end
      \ No newline at end of file
      expansions/script/c60159903.lua
      View file @ fa3382a1
      --青龙的化身 木莉
      function c60159903.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCountLimit(1,60159903)
      e1:SetTarget(c60159903.target)
      e1:SetOperation(c60159903.operation)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(60159901,0))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetTarget(c60159903.target2)
      e2:SetOperation(c60159903.operation2)
      c:RegisterEffect(e2)
      --multiatk
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(60159903,2))
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCondition(c60159903.atkcon)
      e3:SetCost(c60159903.atkcost)
      e3:SetTarget(c60159903.atktg)
      e3:SetOperation(c60159903.atkop)
      c:RegisterEffect(e3)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCountLimit(1,60159903)
      e1:SetTarget(c60159903.target)
      e1:SetOperation(c60159903.operation)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(60159901,0))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetTarget(c60159903.target2)
      e2:SetOperation(c60159903.operation2)
      c:RegisterEffect(e2)
      --multiatk
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(60159903,2))
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCondition(c60159903.atkcon)
      e3:SetCost(c60159903.atkcost)
      e3:SetTarget(c60159903.atktg)
      e3:SetOperation(c60159903.atkop)
      c:RegisterEffect(e3)
      end
      function c60159903.sfilter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c60159903.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummon(tp)
      and Duel.IsExistingMatchingCard(c60159903.sfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummon(tp)
      and Duel.IsExistingMatchingCard(c60159903.sfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
      end
      function c60159903.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
      Duel.ConfirmDecktop(tp,1)
      local g=Duel.GetDecktopGroup(tp,1)
      local tc=g:GetFirst()
      if (tc:IsAttribute(ATTRIBUTE_EARTH) or tc:IsAttribute(ATTRIBUTE_FIRE) or tc:IsAttribute(ATTRIBUTE_WATER))
      and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
      if Duel.SelectYesNo(tp,aux.Stringid(60159901,1)) then
      Duel.DisableShuffleCheck()
      Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      Duel.SpecialSummonComplete()
      Duel.ShuffleDeck(tp)
      else
      Duel.ShuffleDeck(tp)
      end
      else
      Duel.ShuffleDeck(tp)
      end
      local c=e:GetHandler()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
      Duel.ConfirmDecktop(tp,1)
      local g=Duel.GetDecktopGroup(tp,1)
      local tc=g:GetFirst()
      if (tc:IsAttribute(ATTRIBUTE_EARTH) or tc:IsAttribute(ATTRIBUTE_FIRE) or tc:IsAttribute(ATTRIBUTE_WATER))
      and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
      if Duel.SelectYesNo(tp,aux.Stringid(60159901,1)) then
      Duel.DisableShuffleCheck()
      Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      Duel.SpecialSummonComplete()
      Duel.ShuffleDeck(tp)
      else
      Duel.ShuffleDeck(tp)
      end
      else
      Duel.ShuffleDeck(tp)
      end
      end
      function c60159903.filter(c)
      return ((c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_AQUA))
      or (c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WINDBEAST))
      or (c:IsAttribute(ATTRIBUTE_WATER) and c:IsRace(RACE_BEAST)))
      and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      return ((c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_AQUA))
      or (c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WINDBEAST))
      or (c:IsAttribute(ATTRIBUTE_WATER) and c:IsRace(RACE_BEAST)))
      and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c60159903.target2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159903.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159903.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c60159903.operation2(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c60159903.filter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c60159903.filter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function c60159903.atkcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsAbleToEnterBP()
      return Duel.IsAbleToEnterBP()
      end
      function c60159903.cfilter(c)
      return c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_DRAGON) and c:IsAbleToRemoveAsCost()
      return c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_DRAGON) and c:IsAbleToRemoveAsCost()
      end
      function c60159903.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159903.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
      local g=Duel.SelectMatchingCard(tp,c60159903.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159903.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
      local g=Duel.SelectMatchingCard(tp,c60159903.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function c60159903.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK)==0 end
      if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK)==0 end
      end
      function c60159903.atkop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_EXTRA_ATTACK)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      end
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_EXTRA_ATTACK)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      end
      end
      \ No newline at end of file
      expansions/script/c60159904.lua
      View file @ fa3382a1
      --玄武的化身 芽殃
      function c60159904.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCountLimit(1,60159904)
      e1:SetTarget(c60159904.target)
      e1:SetOperation(c60159904.operation)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(60159901,0))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetTarget(c60159904.target2)
      e2:SetOperation(c60159904.operation2)
      c:RegisterEffect(e2)
      --Activate
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DRAW)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCost(c60159904.atkcost)
      e3:SetTarget(c60159904.ctarget)
      e3:SetOperation(c60159904.cactivate)
      c:RegisterEffect(e3)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetCountLimit(1,60159904)
      e1:SetTarget(c60159904.target)
      e1:SetOperation(c60159904.operation)
      c:RegisterEffect(e1)
      --tohand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(60159901,0))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetTarget(c60159904.target2)
      e2:SetOperation(c60159904.operation2)
      c:RegisterEffect(e2)
      --Activate
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_DRAW)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCost(c60159904.atkcost)
      e3:SetTarget(c60159904.ctarget)
      e3:SetOperation(c60159904.cactivate)
      c:RegisterEffect(e3)
      end
      function c60159904.sfilter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c60159904.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummon(tp)
      and Duel.IsExistingMatchingCard(c60159904.sfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummon(tp)
      and Duel.IsExistingMatchingCard(c60159904.sfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
      end
      function c60159904.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
      Duel.ConfirmDecktop(tp,1)
      local g=Duel.GetDecktopGroup(tp,1)
      local tc=g:GetFirst()
      if (tc:IsAttribute(ATTRIBUTE_WIND) or tc:IsAttribute(ATTRIBUTE_FIRE) or tc:IsAttribute(ATTRIBUTE_WATER))
      and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
      if Duel.SelectYesNo(tp,aux.Stringid(60159901,1)) then
      Duel.DisableShuffleCheck()
      Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      Duel.SpecialSummonComplete()
      Duel.ShuffleDeck(tp)
      else
      Duel.ShuffleDeck(tp)
      end
      else
      Duel.ShuffleDeck(tp)
      end
      local c=e:GetHandler()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
      Duel.ConfirmDecktop(tp,1)
      local g=Duel.GetDecktopGroup(tp,1)
      local tc=g:GetFirst()
      if (tc:IsAttribute(ATTRIBUTE_WIND) or tc:IsAttribute(ATTRIBUTE_FIRE) or tc:IsAttribute(ATTRIBUTE_WATER))
      and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then
      if Duel.SelectYesNo(tp,aux.Stringid(60159901,1)) then
      Duel.DisableShuffleCheck()
      Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      Duel.SpecialSummonComplete()
      Duel.ShuffleDeck(tp)
      else
      Duel.ShuffleDeck(tp)
      end
      else
      Duel.ShuffleDeck(tp)
      end
      end
      function c60159904.filter(c)
      return ((c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_DRAGON))
      or (c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WINDBEAST))
      or (c:IsAttribute(ATTRIBUTE_WATER) and c:IsRace(RACE_BEAST))) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      return ((c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_DRAGON))
      or (c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WINDBEAST))
      or (c:IsAttribute(ATTRIBUTE_WATER) and c:IsRace(RACE_BEAST))) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c60159904.target2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159904.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159904.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c60159904.operation2(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c60159904.filter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c60159904.filter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function c60159904.cfilter(c)
      return c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_DRAGON) and c:IsAbleToRemoveAsCost()
      return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_AQUA) and c:IsAbleToRemoveAsCost()
      end
      function c60159904.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159904.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
      local g=Duel.SelectMatchingCard(tp,c60159904.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      if chk==0 then return Duel.IsExistingMatchingCard(c60159904.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
      local g=Duel.SelectMatchingCard(tp,c60159904.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function c60159904.ctarget(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(2)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(2)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
      end
      function c60159904.cactivate(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      if Duel.Draw(p,d,REASON_EFFECT) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g1=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,1,nil)
      if g1:GetCount()>0 then
      Duel.SendtoGrave(g1,REASON_EFFECT)
      end
      end
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      if Duel.Draw(p,d,REASON_EFFECT) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g1=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,1,nil)
      if g1:GetCount()>0 then
      Duel.SendtoGrave(g1,REASON_EFFECT)
      end
      end
      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