Skip to content

Y
ygopro-222DIY-cards
Commit e0d1a0f4 authored by songtongtong's avatar songtongtong
Browse files
Options

fixed

parent 10ee2249
Pipeline #23912 passed with stages
      in 24 minutes and 49 seconds
      Expand all Hide whitespace changes
      Inline Side-by-side
      Showing with 1320 additions and 1309 deletions
      expansions/script/c24400005.lua
      View file @ e0d1a0f4
      --兵蚁
      function c24400005.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,24400005)
      e1:SetCondition(c24400005.spcon)
      c:RegisterEffect(e1)
      --nontuner
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCode(EFFECT_NONTUNER)
      e2:SetCondition(c24400005.tncon)
      e2:SetValue(c24400005.tnval)
      c:RegisterEffect(e2)
      --tohand
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_BE_MATERIAL)
      e3:SetCondition(c24400005.thcon)
      e3:SetTarget(c24400005.thtg)
      e3:SetOperation(c24400005.thop)
      c:RegisterEffect(e3)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(24400005,1))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetTarget(c24400005.thtg1)
      e2:SetOperation(c24400005.thop1)
      c:RegisterEffect(e2)
      end
      c24400005.named_with_ZhanShuRenXing=true
      function c24400005.filter(c)
      return c:IsFaceup() and c.named_with_ZhanShuRenXing
      end
      function c24400005.spcon(e,c)
      if c==nil then return true end
      return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and
      Duel.IsExistingMatchingCard(c24400005.filter,c:GetControler(),LOCATION_MZONE,0,1,nil)
      end
      function c24400005.tnckfil(c)
      return c:IsRace(RACE_MACHINE) and c:IsFaceup()
      end
      function c24400005.tncon(e,c)
      local tp=e:GetHandlerPlayer()
      return Duel.GetMatchingGroup(c24400005.tnckfil,tp,LOCATION_MZONE,0,e:GetHandler()):GetCount()==0
      end
      function c24400005.tnval(e,c)
      return e:GetHandler():IsControler(c:GetControler())
      end
      function c24400005.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO
      end
      function c24400005.thfilter(c)
      return c.named_with_ZhanShuRenXing and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c24400005.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c24400005.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c24400005.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c24400005.thfilter,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 c24400005.xthfilter(c)
      return c:IsCode(23100005) and c:IsAbleToHand()
      end
      function c24400005.thtg1(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c24400005.thop1(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local tc=Duel.GetFirstMatchingCard(c24400005.xthfilter,tp,LOCATION_DECK,0,nil)
      if tc then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tc)
      end
      end
      --兵蚁
      function c24400005.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,24400005)
      e1:SetCondition(c24400005.spcon)
      c:RegisterEffect(e1)
      --nontuner
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCode(EFFECT_NONTUNER)
      e2:SetCondition(c24400005.tncon)
      e2:SetValue(c24400005.tnval)
      c:RegisterEffect(e2)
      --tohand
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_BE_MATERIAL)
      e3:SetCondition(c24400005.thcon)
      e3:SetTarget(c24400005.thtg)
      e3:SetOperation(c24400005.thop)
      c:RegisterEffect(e3)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(24400005,1))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetTarget(c24400005.thtg1)
      e2:SetOperation(c24400005.thop1)
      c:RegisterEffect(e2)
      end
      c24400005.named_with_ZhanShuRenXing=true
      function c24400005.filter(c)
      return c:IsFaceup() and c.named_with_ZhanShuRenXing
      end
      function c24400005.spcon(e,c)
      if c==nil then return true end
      return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and
      Duel.IsExistingMatchingCard(c24400005.filter,c:GetControler(),LOCATION_MZONE,0,1,nil)
      end
      function c24400005.tnckfil(c)
      return c:IsRace(RACE_MACHINE) and c:IsFaceup()
      end
      function c24400005.tncon(e,c)
      local tp=e:GetHandlerPlayer()
      return Duel.GetMatchingGroup(c24400005.tnckfil,tp,LOCATION_MZONE,0,e:GetHandler()):GetCount()==0
      end
      function c24400005.tnval(e,c)
      return e:GetHandler():IsControler(c:GetControler())
      end
      function c24400005.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO
      end
      function c24400005.thfilter(c)
      return c.named_with_ZhanShuRenXing and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
      end
      function c24400005.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c24400005.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c24400005.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c24400005.thfilter,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 c24400005.xthfilter(c)
      return c:IsCode(24400005) and c:IsAbleToHand()
      end
      function c24400005.thtg1(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c24400005.thop1(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local tc=Duel.GetFirstMatchingCard(c24400005.xthfilter,tp,LOCATION_DECK,0,nil)
      if tc then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tc)
      end
      end
      expansions/script/c31300020.lua
      View file @ e0d1a0f4
      This diff is collapsed.
      expansions/script/c31300023.lua
      View file @ e0d1a0f4
      This diff is collapsed.
      expansions/script/c31300024.lua
      View file @ e0d1a0f4
      --菁樱巫女 miko
      local s,id,o=GetID()
      function s.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcCodeFun(c,s.ffilter,aux.FilterBoolFunction(Card.IsFusionType,TYPE_EFFECT),1,true,true)
      --Special Summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCondition(s.tgcon)
      e1:SetTarget(s.tgtg)
      e1:SetOperation(s.tgop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(2)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetHintTiming(0,TIMING_END_PHASE+TIMINGS_CHECK_MONSTER)
      e2:SetCountLimit(1,id)
      e2:SetCost(s.bfgcost)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      end
      function s.ffilter(c)
      return c:IsRace(RACE_CYBERSE) or c:IsFusionAttribute(ATTRIBUTE_FIRE)
      end
      function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return re and re:IsActiveType(TYPE_MONSTER) and c:IsSummonType(SUMMON_TYPE_FUSION)
      end
      function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_REMOVED,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,5,0,0)
      end
      function s.tgop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_REMOVED,0,nil)
      if g:GetCount()>=5 then
      local sg=g:RandomSelect(tp,5)
      Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)
      end
      end
      function s.bfgcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
      Duel.Remove(e:GetHandler(),POS_FACEDOWN,REASON_COST)
      end
      function s.filter0(c)
      return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
      end
      function s.filter1(c,e)
      return c:IsFaceupEx() and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
      end
      function s.filter2(c,e,tp,m,f,chkf,check)
      return c:IsType(TYPE_FUSION) and (check or c:IsAttack(35)) and (not f or f(c))
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
      end
      function s.checkfilter(c)
      return c:IsAttack(35) and c:IsFaceup()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then
      local chkf=tp
      local check=Duel.IsExistingMatchingCard(s.checkfilter,tp,LOCATION_MZONE,0,1,nil)
      local mg=Duel.GetMatchingGroup(s.filter0,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,c)
      local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,nil,chkf,check)
      if not res then
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      local mg3=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf,check)
      end
      end
      return res
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local chkf=tp
      local check=Duel.IsExistingMatchingCard(s.checkfilter,tp,LOCATION_MZONE,0,1,nil)
      local mg=Duel.GetMatchingGroup(s.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,c,e)
      local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,nil,chkf,check)
      local mg3=nil
      local sg2=nil
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      mg3=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf,check)
      end
      if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
      local sg=sg1:Clone()
      if sg2 then sg:Merge(sg2) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tg=sg:Select(tp,1,1,nil)
      local tc=tg:GetFirst()
      if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
      local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf)
      tc:SetMaterial(mat)
      Duel.SendtoDeck(mat,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
      else
      local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat2)
      end
      tc:CompleteProcedure()
      end
      end
      --菁樱巫女 miko
      local s,id,o=GetID()
      function s.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcCodeFun(c,s.ffilter,aux.FilterBoolFunction(Card.IsFusionType,TYPE_EFFECT),1,true,true)
      --Special Summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCondition(s.tgcon)
      e1:SetTarget(s.tgtg)
      e1:SetOperation(s.tgop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(2)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetHintTiming(0,TIMING_END_PHASE+TIMINGS_CHECK_MONSTER)
      e2:SetCountLimit(1,id)
      e2:SetCost(s.bfgcost)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      end
      function s.ffilter(c)
      return c:IsRace(RACE_CYBERSE) or c:IsFusionAttribute(ATTRIBUTE_FIRE)
      end
      function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return re and re:IsActiveType(TYPE_MONSTER) and c:IsSummonType(SUMMON_TYPE_FUSION)
      end
      function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_REMOVED,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,5,0,0)
      end
      function s.tgop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_REMOVED,0,nil)
      if g:GetCount()>=5 then
      local sg=g:RandomSelect(tp,5)
      Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)
      end
      end
      function s.bfgcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
      Duel.Remove(e:GetHandler(),POS_FACEDOWN,REASON_COST)
      end
      function s.filter0(c)
      return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
      end
      function s.filter1(c,e)
      return c:IsFaceupEx() and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
      end
      function s.filter2(c,e,tp,m,f,chkf,check)
      return c:IsType(TYPE_FUSION) and (check or c:GetBaseAttack(35)) and (not f or f(c))
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
      end
      function s.checkfilter(c)
      return c:GetBaseAttack(35) and c:IsFaceup()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then
      if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end
      local chkf=tp
      local check=Duel.IsExistingMatchingCard(s.checkfilter,tp,LOCATION_MZONE,0,1,nil)
      local mg=Duel.GetMatchingGroup(s.filter0,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,c)
      local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,nil,chkf,check)
      if not res then
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      local mg3=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf,check)
      end
      end
      return res
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local chkf=tp
      local check=Duel.IsExistingMatchingCard(s.checkfilter,tp,LOCATION_MZONE,0,1,nil)
      local mg=Duel.GetMatchingGroup(s.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,c,e)
      local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,nil,chkf,check)
      local mg3=nil
      local sg2=nil
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      mg3=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf,check)
      end
      if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
      local sg=sg1:Clone()
      if sg2 then sg:Merge(sg2) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tg=sg:Select(tp,1,1,nil)
      local tc=tg:GetFirst()
      if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
      local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf)
      tc:SetMaterial(mat)
      Duel.SendtoDeck(mat,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
      else
      local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat2)
      end
      tc:CompleteProcedure()
      end
      end
      expansions/script/c31300025.lua
      View file @ e0d1a0f4
      This diff is collapsed.
      expansions/script/c31300026.lua
      View file @ e0d1a0f4
      --樱火龙 miko
      local s,id,o=GetID()
      function s.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcCodeFun(c,s.ffilter,aux.FilterBoolFunction(Card.IsFusionType,TYPE_EFFECT),1,true,true)
      --Special Summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCondition(s.damcon)
      e1:SetTarget(s.damtg)
      e1:SetOperation(s.damop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(2)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetHintTiming(0,TIMING_END_PHASE+TIMINGS_CHECK_MONSTER)
      e2:SetCountLimit(1,id)
      e2:SetCost(s.bfgcost)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      end
      function s.ffilter(c)
      return c:IsRace(RACE_CYBERSE) or c:IsFusionAttribute(ATTRIBUTE_FIRE)
      end
      function s.damcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return re and re:IsActiveType(TYPE_MONSTER) and c:IsSummonType(SUMMON_TYPE_FUSION)
      end
      function s.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0)
      end
      function s.damop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
      local d=Duel.TossDice(tp,1)*350
      Duel.Damage(tp,d,REASON_EFFECT)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e1:SetValue(d)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e2)
      end
      function s.bfgcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
      Duel.Remove(e:GetHandler(),POS_FACEDOWN,REASON_COST)
      end
      function s.filter0(c)
      return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
      end
      function s.filter1(c,e)
      return c:IsFaceupEx() and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
      end
      function s.filter2(c,e,tp,m,f,chkf,check)
      return c:IsType(TYPE_FUSION) and (check or c:IsAttack(35)) and (not f or f(c))
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
      end
      function s.checkfilter(c)
      return c:IsAttack(35) and c:IsFaceup()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then
      local chkf=tp
      local check=Duel.IsExistingMatchingCard(s.checkfilter,tp,LOCATION_MZONE,0,1,nil)
      local mg=Duel.GetMatchingGroup(s.filter0,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,c)
      local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,nil,chkf,check)
      if not res then
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      local mg3=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf,check)
      end
      end
      return res
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local chkf=tp
      local check=Duel.IsExistingMatchingCard(s.checkfilter,tp,LOCATION_MZONE,0,1,nil)
      local mg=Duel.GetMatchingGroup(s.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,c,e)
      local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,nil,chkf,check)
      local mg3=nil
      local sg2=nil
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      mg3=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf,check)
      end
      if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
      local sg=sg1:Clone()
      if sg2 then sg:Merge(sg2) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tg=sg:Select(tp,1,1,nil)
      local tc=tg:GetFirst()
      if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
      local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf)
      tc:SetMaterial(mat)
      Duel.SendtoDeck(mat,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
      else
      local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat2)
      end
      tc:CompleteProcedure()
      end
      end
      --樱火龙 miko
      local s,id,o=GetID()
      function s.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcCodeFun(c,s.ffilter,aux.FilterBoolFunction(Card.IsFusionType,TYPE_EFFECT),1,true,true)
      --Special Summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCondition(s.damcon)
      e1:SetTarget(s.damtg)
      e1:SetOperation(s.damop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(2)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetHintTiming(0,TIMING_END_PHASE+TIMINGS_CHECK_MONSTER)
      e2:SetCountLimit(1,id)
      e2:SetCost(s.bfgcost)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      end
      function s.ffilter(c)
      return c:IsRace(RACE_CYBERSE) or c:IsFusionAttribute(ATTRIBUTE_FIRE)
      end
      function s.damcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return re and re:IsActiveType(TYPE_MONSTER) and c:IsSummonType(SUMMON_TYPE_FUSION)
      end
      function s.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0)
      end
      function s.damop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
      local d=Duel.TossDice(tp,1)*350
      Duel.Damage(1-tp,d,REASON_EFFECT)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e1:SetValue(d)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e2)
      end
      function s.bfgcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
      Duel.Remove(e:GetHandler(),POS_FACEDOWN,REASON_COST)
      end
      function s.filter0(c)
      return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
      end
      function s.filter1(c,e)
      return c:IsFaceupEx() and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
      end
      function s.filter2(c,e,tp,m,f,chkf,check)
      return c:IsType(TYPE_FUSION) and (check or c:GetBaseAttack(35)) and (not f or f(c))
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
      end
      function s.checkfilter(c)
      return c:GetBaseAttack(35) and c:IsFaceup()
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then
      if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end
      local chkf=tp
      local check=Duel.IsExistingMatchingCard(s.checkfilter,tp,LOCATION_MZONE,0,1,nil)
      local mg=Duel.GetMatchingGroup(s.filter0,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,c)
      local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,nil,chkf,check)
      if not res then
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      local mg3=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf,check)
      end
      end
      return res
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local chkf=tp
      local check=Duel.IsExistingMatchingCard(s.checkfilter,tp,LOCATION_MZONE,0,1,nil)
      local mg=Duel.GetMatchingGroup(s.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,c,e)
      local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,nil,chkf,check)
      local mg3=nil
      local sg2=nil
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      mg3=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf,check)
      end
      if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
      local sg=sg1:Clone()
      if sg2 then sg:Merge(sg2) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tg=sg:Select(tp,1,1,nil)
      local tc=tg:GetFirst()
      if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
      local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf)
      tc:SetMaterial(mat)
      Duel.SendtoDeck(mat,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
      else
      local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat2)
      end
      tc:CompleteProcedure()
      end
      end
      expansions/script/c31300030.lua
      View file @ e0d1a0f4
      --Miko的残机-1
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --lock zones
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCode(EVENT_REMOVE)
      e2:SetCountLimit(1,id)
      e2:SetCondition(s.lzcon)
      e2:SetTarget(s.lztg)
      e2:SetOperation(s.lzop)
      c:RegisterEffect(e2)
      end
      function s.tgfilter(c)
      return c:IsAbleToGrave() and c:IsAttack(35) and c:IsType(TYPE_FUSION)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_EXTRA,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_EXTRA)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_EXTRA,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      function s.cfilter(c,tp)
      return c:IsFacedown()
      end
      function s.lzcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.tgfilter(c)
      return c:IsFacedown() and c:IsAbleToGrave()
      end
      function s.lztg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local b1=c:IsAbleToDeck() and Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_REMOVED,0,1,nil)
      local b2=c:IsAbleToHand()
      if chk==0 then return b1 or b2 end
      end
      function s.lzop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetMatchingGroup(s.tgfilter,tp,LOCATION_REMOVED,0,nil)
      local b1=c:IsAbleToDeck() and #g>0
      local b2=c:IsAbleToHand()
      local off=1
      local ops={}
      local opval={}
      if b1 then
      ops[off]=1105
      opval[off-1]=1
      off=off+1
      end
      if b2 then
      ops[off]=1190
      opval[off-1]=2
      off=off+1
      end
      local op=Duel.SelectOption(tp,table.unpack(ops))
      local sel=opval[op]
      if sel==1 then
      Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      local sg=g:RandomSelect(tp,1)
      Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)
      else
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      --Miko的残机-1
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOGRAVE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --lock zones
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCode(EVENT_REMOVE)
      e2:SetCountLimit(1,id)
      e2:SetCondition(s.lzcon)
      e2:SetTarget(s.lztg)
      e2:SetOperation(s.lzop)
      c:RegisterEffect(e2)
      end
      function s.egfilter(c)
      return c:IsAbleToGrave() and c:IsAttack(35) and c:IsType(TYPE_FUSION)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.egfilter,tp,LOCATION_EXTRA,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_EXTRA)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.egfilter,tp,LOCATION_EXTRA,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoGrave(g,REASON_EFFECT)
      end
      end
      function s.cfilter(c,tp)
      return c:IsFacedown()
      end
      function s.lzcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.tgfilter(c)
      return c:IsFacedown() and c:IsAbleToGrave()
      end
      function s.lztg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local b1=c:IsAbleToDeck() and Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_REMOVED,0,1,nil)
      local b2=c:IsAbleToHand()
      if chk==0 then return b1 or b2 end
      end
      function s.lzop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetMatchingGroup(s.tgfilter,tp,LOCATION_REMOVED,0,nil)
      local b1=c:IsAbleToDeck() and #g>0
      local b2=c:IsAbleToHand()
      local off=1
      local ops={}
      local opval={}
      if b1 then
      ops[off]=1105
      opval[off-1]=1
      off=off+1
      end
      if b2 then
      ops[off]=1190
      opval[off-1]=2
      off=off+1
      end
      local op=Duel.SelectOption(tp,table.unpack(ops))
      local sel=opval[op]
      if sel==1 then
      Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      local sg=g:RandomSelect(tp,1)
      Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)
      else
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      expansions/script/c31300031.lua
      View file @ e0d1a0f4
      This diff is collapsed.
      expansions/script/c31300033.lua
      View file @ e0d1a0f4
      --Miko的岩浆桶
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --lock zones
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCode(EVENT_REMOVE)
      e2:SetCountLimit(1,id+1)
      e2:SetCondition(s.lzcon)
      e2:SetTarget(s.lztg)
      e2:SetOperation(s.lzop)
      c:RegisterEffect(e2)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=Duel.TossCoin(tp,1)
      local p=tp
      if c>0 then p=1-tp end
      local d=Duel.TossDice(tp,1)
      for i=1,d do
      Duel.Damage(p,350,REASON_EFFECT)
      end
      end
      function s.cfilter(c,tp)
      return c:IsFacedown()
      end
      function s.lzcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.tgfilter(c)
      return c:IsFacedown() and c:IsAbleToGrave()
      end
      function s.lztg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local b1=c:IsAbleToDeck() and Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_REMOVED,0,1,nil)
      local b2=c:IsAbleToHand()
      if chk==0 then return b1 or b2 end
      end
      function s.lzop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetMatchingGroup(s.tgfilter,tp,LOCATION_REMOVED,0,nil)
      local b1=c:IsAbleToDeck() and #g>0
      local b2=c:IsAbleToHand()
      local off=1
      local ops={}
      local opval={}
      if b1 then
      ops[off]=1105
      opval[off-1]=1
      off=off+1
      end
      if b2 then
      ops[off]=1190
      opval[off-1]=2
      off=off+1
      end
      local op=Duel.SelectOption(tp,table.unpack(ops))
      local sel=opval[op]
      if sel==1 then
      Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      local sg=g:RandomSelect(tp,1)
      Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)
      else
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      --Miko的岩浆桶
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --lock zones
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCode(EVENT_REMOVE)
      e2:SetCountLimit(1,id)
      e2:SetCondition(s.lzcon)
      e2:SetTarget(s.lztg)
      e2:SetOperation(s.lzop)
      c:RegisterEffect(e2)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=Duel.TossCoin(tp,1)
      local p=tp
      if c>0 then p=1-tp end
      local d=Duel.TossDice(tp,1)
      for i=1,d do
      Duel.Damage(p,350,REASON_EFFECT)
      end
      end
      function s.cfilter(c,tp)
      return c:IsFacedown()
      end
      function s.lzcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.tgfilter(c)
      return c:IsFacedown() and c:IsAbleToGrave()
      end
      function s.lztg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local b1=c:IsAbleToDeck() and Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_REMOVED,0,1,nil)
      local b2=c:IsAbleToHand()
      if chk==0 then return b1 or b2 end
      end
      function s.lzop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetMatchingGroup(s.tgfilter,tp,LOCATION_REMOVED,0,nil)
      local b1=c:IsAbleToDeck() and #g>0
      local b2=c:IsAbleToHand()
      local off=1
      local ops={}
      local opval={}
      if b1 then
      ops[off]=1105
      opval[off-1]=1
      off=off+1
      end
      if b2 then
      ops[off]=1190
      opval[off-1]=2
      off=off+1
      end
      local op=Duel.SelectOption(tp,table.unpack(ops))
      local sel=opval[op]
      if sel==1 then
      Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      local sg=g:RandomSelect(tp,1)
      Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)
      else
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      expansions/script/c31300034.lua
      View file @ e0d1a0f4
      --Miko的呆火鳄
      local s,id,o=GetID()
      function s.initial_effect(c)
      --splimit
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetValue(s.splimit)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(14509651,0))
      e2:SetCategory(CATEGORY_REMOVE+CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetCountLimit(1,id)
      e2:SetTarget(s.rmtg)
      e2:SetOperation(s.rmop)
      c:RegisterEffect(e2)
      end
      function s.splimit(e,se,sp,st)
      return se:IsHasType(EFFECT_TYPE_ACTIONS)
      end
      function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,1,nil) end
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      end
      function s.filter(c,e,tp)
      return c:IsType(TYPE_FUSION) and c:IsAttack(35) and c:CheckFusionMaterial()
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
      end
      function s.rmop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,nil)
      if g:GetCount()>0 then
      local sg=g:RandomSelect(tp,1)
      Duel.Remove(sg,POS_FACEDOWN,REASON_EFFECT)
      local sel=0
      local exg=Duel.GetMatchingGroup(s.filter,tp,LOCATION_EXTRA,0,nil,e,tp)
      for i=0,5 do
      if sel==5 then return end
      local dg=Duel.GetDecktopGroup(tp,1)
      Duel.ConfirmDecktop(tp,1)
      Duel.DisableShuffleCheck()
      local tc=dg:GetFirst()
      if tc:IsCode(id) and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) and #exg>0 then
      sel=5
      local ec=exg:Select(tp,1,1,nil)
      if Duel.SpecialSummon(ec,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)~=0 then
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      else
      Duel.SendtoGrave(tc,REASON_EFFECT+REASON_REVEAL)
      sel=sel+1
      end
      end
      end
      --Miko的呆火鳄
      local s,id,o=GetID()
      function s.initial_effect(c)
      --splimit
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetValue(s.splimit)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(14509651,0))
      e2:SetCategory(CATEGORY_REMOVE+CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_HAND)
      e2:SetCountLimit(1,id)
      e2:SetCost(s.rmcost)
      e2:SetTarget(s.rmtg)
      e2:SetOperation(s.rmop)
      c:RegisterEffect(e2)
      end
      function s.splimit(e,se,sp,st)
      return se:IsHasType(EFFECT_TYPE_ACTIONS)
      end
      function s.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsDiscardable() end
      Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
      end
      function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,1,nil) end
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,nil)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      end
      function s.filter(c,e,tp)
      return c:IsType(TYPE_FUSION) and c:IsAttack(35) and c:CheckFusionMaterial()
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
      end
      function s.rmop(e,tp,eg,ep,ev,re,r,rp)
      local sel=0
      for i=0,5 do
      if sel==5 then return end
      local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,nil)
      if g:GetCount()>0 then
      local sg=g:RandomSelect(tp,1)
      if Duel.Remove(sg,POS_FACEDOWN,REASON_EFFECT)~=0 then
      local dg=Duel.GetDecktopGroup(tp,1)
      Duel.ConfirmDecktop(tp,1)
      Duel.DisableShuffleCheck()
      local tc=dg:GetFirst()
      local exg=Duel.GetMatchingGroup(s.filter,tp,LOCATION_EXTRA,0,nil,e,tp)
      if tc:IsCode(id) and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) and #exg>0 then
      sel=5
      local ec=exg:Select(tp,1,1,nil)
      if Duel.SpecialSummon(ec,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)~=0 then
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      else
      Duel.SendtoGrave(tc,REASON_EFFECT+REASON_REVEAL)
      sel=sel+1
      end
      end
      end
      end
      end
      \ No newline at end of file
      expansions/script/c47344578.lua
      View file @ e0d1a0f4
      ......@@ -8,8 +8,9 @@ function s.initial_effect(c)
      --counter
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_CHAIN_SOLVED)
      e1:SetCode(EVENT_CHAINING)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCondition(s.cocon)
      e1:SetOperation(s.counter)
      c:RegisterEffect(e1)
      ......
      expansions/script/c47344580.lua
      View file @ e0d1a0f4
      --妖精乡的创成
      local s,id=GetID()
      function s.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetCost(s.cost)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      Duel.AddCustomActivityCounter(id,ACTIVITY_SPSUMMON,s.counterfilter)
      end
      function s.counterfilter(c)
      return not (c:IsSummonLocation(LOCATION_HAND) or c:IsSummonLocation(LOCATION_GRAVE)) or (c:IsSetCard(0x43e) or c:IsSetCard(0x43f))
      end
      function s.cfilter(c,tp)
      return c:IsAbleToGraveAsCost() and c:IsLevel(9,10) and c:IsType(TYPE_SYNCHRO)
      end
      function s.plfilter(c)
      return c:IsCode(47344564)
      end
      function s.splimitoath(e,c)
      return c:IsLocation(LOCATION_GRAVE+LOCATION_HAND) and not (c:IsSetCard(0x43e) or c:IsSetCard(0x43f))
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetCustomActivityCount(id,tp,ACTIVITY_SPSUMMON)==0
      and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_EXTRA,0,1,nil,tp)
      and Duel.IsExistingMatchingCard(s.plfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
      e1:SetReset(RESET_PHASE+PHASE_END)
      e1:SetTargetRange(1,0)
      e1:SetTarget(s.splimitoath)
      Duel.RegisterEffect(e1,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_EXTRA,0,1,1,nil,tp)
      local tc=g:GetFirst()
      Duel.SendtoGrave(tc,REASON_COST)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.plfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
      Duel.SetOperationInfo(0,CATEGORY_TOKEN+CATEGORY_SPECIAL_SUMMON,nil,1,tp,0)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local tc=Duel.SelectMatchingCard(tp,s.plfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil):GetFirst()
      if tc then
      Duel.SSet(tp,tc)
      end
      Duel.BreakEffect()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,47344599,0x43e,TYPES_TOKEN_MONSTER,0,0,5,RACE_FAIRY,ATTRIBUTE_LIGHT) then
      local token=Duel.CreateToken(tp,47344599)
      Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetRange(LOCATION_MZONE)
      e1:SetAbsoluteRange(tp,1,0)
      e1:SetTarget(s.splimit)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      token:RegisterEffect(e1,true)
      Duel.SpecialSummonComplete()
      end
      end
      function s.splimit(e,c)
      return not c:IsType(TYPE_SYNCHRO+TYPE_XYZ) and c:IsLocation(LOCATION_EXTRA)
      --妖精乡的创成
      local s,id=GetID()
      function s.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetCost(s.cost)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      Duel.AddCustomActivityCounter(id,ACTIVITY_SPSUMMON,s.counterfilter)
      end
      function s.counterfilter(c)
      return not (c:IsSummonLocation(LOCATION_HAND) or c:IsSummonLocation(LOCATION_GRAVE)) or (c:IsSetCard(0x43e) or c:IsSetCard(0x43f))
      end
      function s.cfilter(c,tp)
      return c:IsAbleToGraveAsCost() and c:IsLevel(9,10) and c:IsType(TYPE_SYNCHRO)
      end
      function s.plfilter(c)
      return c:IsCode(47344564)
      end
      function s.splimitoath(e,c)
      return c:IsLocation(LOCATION_GRAVE+LOCATION_HAND) and not (c:IsSetCard(0x43e) or c:IsSetCard(0x43f))
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetCustomActivityCount(id,tp,ACTIVITY_SPSUMMON)==0
      and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_EXTRA,0,1,nil,tp)
      and Duel.IsExistingMatchingCard(s.plfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
      e1:SetReset(RESET_PHASE+PHASE_END)
      e1:SetTargetRange(1,0)
      e1:SetTarget(s.splimitoath)
      Duel.RegisterEffect(e1,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_EXTRA,0,1,1,nil,tp)
      local tc=g:GetFirst()
      Duel.SendtoGrave(tc,REASON_COST)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.plfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
      Duel.SetOperationInfo(0,CATEGORY_TOKEN+CATEGORY_SPECIAL_SUMMON,nil,1,tp,0)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local tc=Duel.SelectMatchingCard(tp,s.plfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil):GetFirst()
      if tc then
      Duel.SSet(tp,tc)
      end
      Duel.BreakEffect()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,47344599,0x43e,TYPES_TOKEN_MONSTER,0,0,5,RACE_FAIRY,ATTRIBUTE_LIGHT) then
      local token=Duel.CreateToken(tp,47344599)
      Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetRange(LOCATION_MZONE)
      e1:SetAbsoluteRange(tp,1,0)
      e1:SetTarget(s.splimit)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      token:RegisterEffect(e1,true)
      Duel.SpecialSummonComplete()
      end
      end
      function s.splimit(e,c)
      return not c:IsType(TYPE_SYNCHRO+TYPE_XYZ) and c:IsLocation(LOCATION_EXTRA)
      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