Skip to content

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

fixed

parent 5bb1084a
Pipeline #23773 passed with stages
      in 29 minutes and 6 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 585 additions and 584 deletions
      expansions/lflist.conf
      View file @ 1444dfb5
      ......@@ -344,8 +344,9 @@
      12029016 0 --惩戒双子
      12029070 1 --巨蛾娘的宝藏
      12030002 1 --乌冬 yatori
      12030007 0 --夏私服 yatori
      12030008 0 --礼物 yatori
      12030009 0 --女仆 yatori
      12030009 1 --女仆 yatori
      12031000 1 --人形真主 三葉巧可
      12031001 1 --幼血鬼 三葉巧可
      12031005 1 --懵懂幼女 三葉巧可
      ......@@ -420,7 +421,7 @@
      12087050 1 --响彻人心之歌 罗洛涅萝尔
      12087052 2 --花绽的歌声 罗洛涅萝尔
      12087055 1 --闪耀的光彩 罗洛涅萝尔
      12090082 1 --星界转生
      12090082 0 --星界转生
      12094005 1 --魔王转生 御影零夜
      #122
      12200000 1 --神明吞噬者 寰宇之灾厄
      ......
      expansions/script/c30683085.lua
      View file @ 1444dfb5
      --M·A·L·Imperial Chief
      local m=30683085
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      c:EnableReviveLimit()
      --ev
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_NEGATE)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_CHAINING)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,m)
      e1:SetCost(cm.descost)
      e1:SetCondition(cm.descon)
      e1:SetTarget(cm.destg)
      e1:SetOperation(cm.desop)
      c:RegisterEffect(e1)
      --Summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,2))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,m+1)
      e2:SetTarget(cm.sptg)
      e2:SetOperation(cm.spop)
      c:RegisterEffect(e2)
      --revive
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetCountLimit(1,m+2)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop2)
      c:RegisterEffect(e3)
      --to hand
      local e0=Effect.CreateEffect(c)
      e0:SetDescription(aux.Stringid(m,0))
      e0:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_GRAVE_ACTION)
      e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e0:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
      e0:SetRange(LOCATION_PZONE)
      e0:SetCountLimit(1,m+3)
      e0:SetTarget(cm.thtg)
      e0:SetOperation(cm.thop)
      c:RegisterEffect(e0)
      --effect gain
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e4:SetCode(EVENT_BE_MATERIAL)
      e4:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
      e4:SetCondition(cm.effcon)
      e4:SetOperation(cm.effop)
      c:RegisterEffect(e4)
      end
      function cm.filter(c)
      return c:IsSetCard(0xc19) and c:IsDiscardable(REASON_DISCARD)
      end
      function cm.descon(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetTurnPlayer()~=tp then return false end
      local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
      local ph=Duel.GetCurrentPhase()
      return rp~=tp and Duel.IsChainDisablable(ev) and re:IsActiveType(TYPE_MONSTER) and loc==LOCATION_GRAVE+LOCATION_REMOVED
      and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil) and not (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)
      end
      function cm.descost(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 cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
      end
      function cm.desop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.DiscardHand(tp,cm.filter,1,1,REASON_EFFECT+REASON_DISCARD)
      Duel.NegateActivation(ev)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_ACTIVATE)
      e1:SetTargetRange(1,0)
      e1:SetValue(cm.aclimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.aclimit(e,re,tp)
      return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsSetCard(0xc19)
      end
      function cm.tdfilter(c)
      return (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
      and c:IsSetCard(0xc19) and c:IsAbleToDeck()
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and cm.tdfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,2,nil)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,2,2,nil)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,2,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,LOCATION_SZONE)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      local tg=g:Filter(Card.IsRelateToEffect,nil,e)
      if tg:GetCount()>0 then
      Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      if c then
      c:SetMaterial(nil)
      if Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)~=0 then
      --extra material
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,5))
      e4:SetType(EFFECT_TYPE_FIELD)
      e4:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
      e4:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
      e4:SetRange(LOCATION_EXTRA)
      e4:SetTargetRange(LOCATION_PZONE,0)
      e4:SetValue(cm.matval)
      c:RegisterEffect(e4,true)
      local e5=Effect.CreateEffect(c)
      e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
      e5:SetRange(LOCATION_MZONE)
      e5:SetTargetRange(LOCATION_EXTRA,0)
      e5:SetTarget(cm.eftg)
      e5:SetLabelObject(e4)
      e5:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e5,true)
      c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
      c:CompleteProcedure()
      end
      end
      end
      end
      function cm.matval(e,lc,mg,c,tp)
      if e:GetHandler()~=lc then return false,nil end
      return true,true
      end
      function cm.eftg(e,c)
      return c:IsType(TYPE_LINK) and c:IsSetCard(0xc19)
      end
      function cm.effcon(e,tp,eg,ep,ev,re,r,rp)
      return (r==REASON_SYNCHRO or r==REASON_FUSION or r==REASON_LINK or r==REASON_XYZ) and e:GetHandler():GetReasonCard():IsSetCard(0xc19)
      end
      function cm.effop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local rc=c:GetReasonCard()
      --
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetDescription(aux.Stringid(m,4))
      e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_PIERCE)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e1,true)
      if not rc:IsType(TYPE_EFFECT) then
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_ADD_TYPE)
      e2:SetValue(TYPE_EFFECT)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e2,true)
      end
      rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
      end
      function cm.atklimit(e,c)
      return c==e:GetHandler()
      end
      function cm.tgfilter2(c,check)
      return c:IsSetCard(0xc19) and (c:IsAbleToDeck() or (check and c:IsAbleToHand()))
      end
      function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local check=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and cm.tgfilter2(chkc,check) end
      if chk==0 then return Duel.IsExistingTarget(cm.tgfilter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,e:GetHandler(),check) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,cm.tgfilter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,e:GetHandler(),check)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
      end
      function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      local c=e:GetHandler()
      if not tc:IsRelateToEffect(e) then return end
      if Duel.GetMatchingGroupCount(nil,tp,LOCATION_MZONE,0,nil)==0 and tc:IsAbleToHand()
      and (not tc:IsAbleToDeck() or Duel.SelectOption(tp,1190,aux.Stringid(m,1))==0) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      else
      Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      end
      Duel.BreakEffect()
      local sg=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)
      if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g2=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      Duel.SendtoHand(g2,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g2)
      end
      end
      function cm.thfilter(c)
      return c:IsCode(30683535) and c:IsAbleToHand()
      end
      function cm.thfilter(c)
      return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) and e:GetHandler():IsAbleToHand() end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
      local tc=g:GetFirst()
      if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then
      Duel.ConfirmCards(1-tp,tc)
      if c:IsRelateToEffect(e) then
      Duel.BreakEffect()
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      end
      end
      end
      --M·A·L·Imperial Chief
      local m=30683085
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      c:EnableReviveLimit()
      --ev
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(m,0))
      e1:SetCategory(CATEGORY_NEGATE)
      e1:SetType(EFFECT_TYPE_QUICK_O)
      e1:SetCode(EVENT_CHAINING)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,m)
      e1:SetCost(cm.descost)
      e1:SetCondition(cm.descon)
      e1:SetTarget(cm.destg)
      e1:SetOperation(cm.desop)
      c:RegisterEffect(e1)
      --Summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,2))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,m+1)
      e2:SetTarget(cm.sptg)
      e2:SetOperation(cm.spop)
      c:RegisterEffect(e2)
      --revive
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetCountLimit(1,m+2)
      e3:SetTarget(cm.sptg2)
      e3:SetOperation(cm.spop2)
      c:RegisterEffect(e3)
      --to hand
      local e0=Effect.CreateEffect(c)
      e0:SetDescription(aux.Stringid(m,0))
      e0:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_GRAVE_ACTION)
      e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e0:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
      e0:SetRange(LOCATION_PZONE)
      e0:SetCountLimit(1,m+3)
      e0:SetTarget(cm.thtg)
      e0:SetOperation(cm.thop)
      c:RegisterEffect(e0)
      --effect gain
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e4:SetCode(EVENT_BE_MATERIAL)
      e4:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
      e4:SetCondition(cm.effcon)
      e4:SetOperation(cm.effop)
      c:RegisterEffect(e4)
      end
      function cm.filter(c)
      return c:IsSetCard(0xc19) and c:IsDiscardable(REASON_DISCARD)
      end
      function cm.descon(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetTurnPlayer()~=tp then return false end
      local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
      local ph=Duel.GetCurrentPhase()
      return rp~=tp and Duel.IsChainDisablable(ev) and re:IsActiveType(TYPE_MONSTER) and loc==LOCATION_GRAVE+LOCATION_REMOVED
      and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil) and not (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)
      end
      function cm.descost(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 cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
      end
      function cm.desop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.DiscardHand(tp,cm.filter,1,1,REASON_EFFECT+REASON_DISCARD)
      Duel.NegateActivation(ev)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_ACTIVATE)
      e1:SetTargetRange(1,0)
      e1:SetValue(cm.aclimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function cm.aclimit(e,re,tp)
      return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsSetCard(0xc19)
      end
      function cm.tdfilter(c)
      return (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
      and c:IsSetCard(0xc19) and c:IsAbleToDeck()
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and cm.tdfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,2,nil)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,2,2,nil)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,2,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,LOCATION_SZONE)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      local tg=g:Filter(Card.IsRelateToEffect,nil,e)
      if tg:GetCount()>0 then
      Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      if c then
      c:SetMaterial(nil)
      if Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)~=0 then
      --extra material
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,5))
      e4:SetType(EFFECT_TYPE_FIELD)
      e4:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
      e4:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
      e4:SetRange(LOCATION_EXTRA)
      e4:SetTargetRange(LOCATION_PZONE,0)
      e4:SetValue(cm.matval)
      c:RegisterEffect(e4,true)
      local e5=Effect.CreateEffect(c)
      e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
      e5:SetRange(LOCATION_MZONE)
      e5:SetTargetRange(LOCATION_EXTRA,0)
      e5:SetTarget(cm.eftg)
      e5:SetLabelObject(e4)
      e5:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e5,true)
      c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
      c:CompleteProcedure()
      end
      end
      end
      end
      function cm.matval(e,lc,mg,c,tp)
      if e:GetHandler()~=lc then return false,nil end
      return true,true
      end
      function cm.eftg(e,c)
      return c:IsType(TYPE_LINK) and c:IsSetCard(0xc19)
      end
      function cm.effcon(e,tp,eg,ep,ev,re,r,rp)
      return (r==REASON_SYNCHRO or r==REASON_FUSION or r==REASON_LINK or r==REASON_XYZ) and e:GetHandler():GetReasonCard():IsSetCard(0xc19)
      end
      function cm.effop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local rc=c:GetReasonCard()
      --
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetDescription(aux.Stringid(m,4))
      e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_REMOVE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e1,true)
      --
      local e0_1=Effect.CreateEffect(c)
      e0_1:SetType(EFFECT_TYPE_SINGLE)
      e0_1:SetDescription(aux.Stringid(m,4))
      e0_1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e0_1:SetType(EFFECT_TYPE_SINGLE)
      e0_1:SetCode(EFFECT_CANNOT_TO_GRAVE_AS_COST)
      e0_1:SetRange(LOCATION_MZONE)
      e0_1:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e0_1,true)
      local e0_2=Effect.CreateEffect(c)
      e0_2:SetType(EFFECT_TYPE_SINGLE)
      e0_2:SetDescription(aux.Stringid(m,4))
      e0_2:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e0_2:SetType(EFFECT_TYPE_SINGLE)
      e0_2:SetCode(EFFECT_CANNOT_TO_GRAVE)
      e0_2:SetRange(LOCATION_MZONE)
      e0_2:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e0_2,true)
      --
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetDescription(aux.Stringid(m,4))
      e4:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e4:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
      e4:SetValue(LOCATION_EXTRA)
      e4:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e4,true)
      if not rc:IsType(TYPE_EFFECT) then
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_ADD_TYPE)
      e3:SetValue(TYPE_EFFECT)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e3,true)
      end
      rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
      end
      function cm.atklimit(e,c)
      return c==e:GetHandler()
      end
      function cm.tgfilter2(c,check)
      return c:IsSetCard(0xc19) and (c:IsAbleToDeck() or (check and c:IsAbleToHand()))
      end
      function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local check=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
      if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and cm.tgfilter2(chkc,check) end
      if chk==0 then return Duel.IsExistingTarget(cm.tgfilter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,e:GetHandler(),check) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,cm.tgfilter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,e:GetHandler(),check)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
      end
      function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      local c=e:GetHandler()
      if not tc:IsRelateToEffect(e) then return end
      if Duel.GetMatchingGroupCount(nil,tp,LOCATION_MZONE,0,nil)==0 and tc:IsAbleToHand()
      and (not tc:IsAbleToDeck() or Duel.SelectOption(tp,1190,aux.Stringid(m,1))==0) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      else
      Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      end
      Duel.BreakEffect()
      local sg=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)
      if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g2=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      Duel.SendtoHand(g2,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g2)
      end
      end
      function cm.thfilter(c)
      return c:IsCode(30683535) and c:IsAbleToHand()
      end
      function cm.thfilter(c)
      return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
      end
      function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) and e:GetHandler():IsAbleToHand() end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
      local tc=g:GetFirst()
      if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then
      Duel.ConfirmCards(1-tp,tc)
      if c:IsRelateToEffect(e) then
      Duel.BreakEffect()
      Duel.SendtoHand(c,nil,REASON_EFFECT)
      end
      end
      end
      expansions/script/c30683220.lua
      View file @ 1444dfb5
      --M·A·L·MALB
      local m=30683220
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      c:EnableReviveLimit()
      ---
      local e0=Effect.CreateEffect(c)
      e0:SetDescription(aux.Stringid(m,0))
      e0:SetType(EFFECT_TYPE_FIELD)
      e0:SetCode(EFFECT_SPSUMMON_PROC)
      e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
      e0:SetRange(LOCATION_EXTRA)
      e0:SetCondition(cm.syncon)
      e0:SetTarget(cm.syntg)
      e0:SetOperation(cm.synop)
      e0:SetValue(SUMMON_TYPE_SYNCHRO)
      c:RegisterEffect(e0)
      aux.EnablePendulumAttribute(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --effect gain
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e3:SetCode(EVENT_BE_MATERIAL)
      e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
      e3:SetCondition(cm.effcon)
      e3:SetOperation(cm.effop)
      c:RegisterEffect(e3)
      --pendulum
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,3))
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_LEAVE_FIELD)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,m+3)
      e4:SetCondition(cm.pencon)
      e4:SetTarget(cm.pentg)
      e4:SetOperation(cm.penop)
      c:RegisterEffect(e4)
      --set
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,2))
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCountLimit(1,m+1)
      e2:SetRange(LOCATION_PZONE)
      e2:SetTarget(cm.sttg)
      e2:SetOperation(cm.stop)
      c:RegisterEffect(e2)
      end
      function cm.CheckGroupRecursive(c,sg,g,f,min,max,ext_params)
      sg:AddCard(c)
      local ct=sg:GetCount()
      local res=(ct>=min and f(sg,table.unpack(ext_params)))
      or (ct<max and g:IsExists(cm.CheckGroupRecursive,1,sg,sg,g,f,min,max,ext_params))
      sg:RemoveCard(c)
      return res
      end
      function cm.CheckGroup(g,f,cg,min,max,...)
      local min=min or 1
      local max=max or g:GetCount()
      if min>max then return false end
      local ext_params={...}
      local sg=Group.CreateGroup()
      if cg then sg:Merge(cg) end
      local ct=sg:GetCount()
      if ct>=min and ct<max and f(sg,...) then return true end
      return g:IsExists(cm.CheckGroupRecursive,1,sg,sg,g,f,min,max,ext_params)
      end
      function cm.SelectGroupNew(tp,desc,cancelable,g,f,cg,min,max,...)
      local min=min or 1
      local max=max or #g
      local ext_params={...}
      if cg then Duel.SetSelectedCard(cg) end
      Duel.Hint(tp,HINT_SELECTMSG,desc)
      return g:SelectSubGroup(tp,f,cancelable,min,max,...)
      end
      function cm.SelectGroup(tp,desc,g,f,cg,min,max,...)
      return cm.SelectGroupNew(tp,desc,true,g,f,cg,min,max,...)
      end
      function cm.matfilter1(c,syncard,tp)
      if c:IsFacedown() then return false end
      if (c:IsSynchroType(TYPE_LINK) or c:IsSynchroType(TYPE_XYZ)) and c:IsControler(tp) then return true end
      return c:IsSynchroType(TYPE_TUNER) and c:IsCanBeSynchroMaterial(syncard) and c:IsSetCard(0xc19) and c:IsType(TYPE_SYNCHRO)
      end
      function cm.matfilter2(c,syncard)
      return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsNotTuner(syncard) and c:IsCanBeSynchroMaterial(syncard)
      end
      function cm.val(c,syncard)
      if c:IsSynchroType(TYPE_LINK) and c:IsSetCard(0xc19) then
      return c:GetLink()
      else
      if c:IsSynchroType(TYPE_XYZ) and c:IsSetCard(0xc19) then
      return c:GetRank()
      else
      return c:GetSynchroLevel(syncard)
      end
      end
      end
      function cm.synfilter(c,syncard,lv,g2,g3,minc,maxc,tp)
      local tsg=c:IsHasEffect(EFFECT_HAND_SYNCHRO) and g3 or g2
      local f=c.tuner_filter
      if c.tuner_filter then tsg=tsg:Filter(f,nil) end
      return cm.CheckGroup(tsg,cm.goal,Group.FromCards(c),minc,maxc,tp,lv,syncard,c)
      end
      function cm.goal(g,tp,lv,syncard,tuc)
      if Duel.GetLocationCountFromEx(tp,tp,g,syncard)<=0 then return false end
      if tuc:IsHasEffect(EFFECT_HAND_SYNCHRO) and g:IsExists(Card.IsLocation,2,tuc,LOCATION_HAND) then return false end
      local ct=g:GetCount()
      return g:CheckWithSumEqual(cm.val,lv,ct,ct,syncard)
      end
      function cm.syncon(e,c,tuner,mg)
      if c==nil then return true end
      if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
      local tp=c:GetControler()
      local minc=2
      local maxc=c:GetLevel()
      local g1=nil
      local g2=nil
      local g3=nil
      if mg then
      g1=mg:Filter(cm.matfilter1,nil,c,tp)
      g2=mg:Filter(cm.matfilter2,nil,c)
      g3=g2:Clone()
      else
      g1=Duel.GetMatchingGroup(cm.matfilter1,tp,LOCATION_MZONE,0,nil,c,tp)
      g2=Duel.GetMatchingGroup(cm.matfilter2,tp,LOCATION_MZONE,0,nil,c)
      g3=Duel.GetMatchingGroup(cm.matfilter2,tp,LOCATION_MZONE+LOCATION_HAND,0,nil,c)
      end
      local pe=Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_SMATERIAL)
      local lv=c:GetLevel()
      local sg=nil
      if tuner then
      return cm.matfilter1(c,tp) and cm.synfilter(tuner,c,lv,g2,g3,minc,maxc,tp)
      elseif pe then
      return cm.matfilter1(pe:GetOwner(),tp) and cm.synfilter(pe:GetOwner(),c,lv,g2,g3,minc,maxc,tp)
      else
      return g1:IsExists(cm.synfilter,1,nil,c,lv,g2,g3,minc,maxc,tp)
      end
      end
      function cm.syntg(e,tp,eg,ep,ev,re,r,rp,chk,c,tuner,mg)
      local minc=2
      local maxc=c:GetLevel()
      local g1=nil
      local g2=nil
      local g3=nil
      if mg then
      g1=mg:Filter(cm.matfilter1,nil,c,tp)
      g2=mg:Filter(cm.matfilter2,nil,c)
      g3=g2:Clone()
      else
      g1=Duel.GetMatchingGroup(cm.matfilter1,tp,LOCATION_MZONE,0,nil,c,tp)
      g2=Duel.GetMatchingGroup(cm.matfilter2,tp,LOCATION_MZONE,0,nil,c)
      g3=Duel.GetMatchingGroup(cm.matfilter2,tp,LOCATION_MZONE+LOCATION_HAND,0,nil,c)
      end
      local pe=Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_SMATERIAL)
      local lv=c:GetLevel()
      local tuc=nil
      if tuner then
      tuner=tuc
      else
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
      if not pe then
      local t1=g1:FilterSelect(tp,cm.synfilter,1,1,nil,c,lv,g2,g3,minc,maxc,tp)
      tuc=t1:GetFirst()
      else
      tuc=pe:GetOwner()
      Group.FromCards(tuc):Select(tp,1,1,nil)
      end
      end
      tuc:RegisterFlagEffect(m,RESET_EVENT+0x1fe0000,0,1)
      local tsg=tuc:IsHasEffect(EFFECT_HAND_SYNCHRO) and g3 or g2
      local f=tuc.tuner_filter
      if tuc.tuner_filter then tsg=tsg:Filter(f,nil) end
      local g=cm.SelectGroup(tp,HINTMSG_SMATERIAL,tsg,cm.goal,Group.FromCards(tuc),minc,maxc,tp,lv,c,tuc)
      if g then
      g:KeepAlive()
      e:SetLabelObject(g)
      return true
      else return false end
      end
      function cm.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner,mg)
      local g=e:GetLabelObject()
      c:SetMaterial(g)
      Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO)
      g:DeleteGroup()
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(100)
      if chk==0 then return true end
      end
      function cm.costfilter(c,e,tp)
      return c:IsType(TYPE_SYNCHRO) and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetLevel(),e:GetHandler(),c:GetCode())
      end
      function cm.spfilter(c,e,tp,lv,ec,code)
      return c:IsLevel(lv) and c:IsType(TYPE_SYNCHRO) and c:IsSetCard(0xc19) and not c:IsCode(code)
      and Duel.GetLocationCountFromEx(tp,tp,ec,c)>0
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      if e:GetLabel()~=100 then return false end
      e:SetLabel(0)
      return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL)
      and Duel.CheckReleaseGroup(tp,cm.costfilter,1,nil,e,tp)
      end
      e:SetLabel(0)
      local g=Duel.SelectReleaseGroup(tp,cm.costfilter,1,1,nil,e,tp)
      Duel.Release(g,REASON_COST)
      Duel.SetTargetCard(g)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sc=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc:GetLevel(),nil):GetFirst()
      if sc then
      sc:SetMaterial(nil)
      if Duel.SpecialSummon(sc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)>0 then
      sc:CompleteProcedure()
      end
      end
      end
      function cm.effcon(e,tp,eg,ep,ev,re,r,rp)
      return (r==REASON_SYNCHRO or r==REASON_FUSION or r==REASON_LINK or r==REASON_XYZ) and e:GetHandler():GetReasonCard():IsSetCard(0xc19)
      end
      function cm.effop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local rc=c:GetReasonCard()
      --
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetDescription(aux.Stringid(m,1))
      e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_REMOVE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e1,true)
      --
      local e0_1=Effect.CreateEffect(c)
      e0_1:SetType(EFFECT_TYPE_SINGLE)
      e0_1:SetDescription(aux.Stringid(m,1))
      e0_1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e0_1:SetType(EFFECT_TYPE_SINGLE)
      e0_1:SetCode(EFFECT_CANNOT_TO_GRAVE_AS_COST)
      e0_1:SetRange(LOCATION_MZONE)
      e0_1:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e0_1,true)
      local e0_2=Effect.CreateEffect(c)
      e0_2:SetType(EFFECT_TYPE_SINGLE)
      e0_2:SetDescription(aux.Stringid(m,1))
      e0_2:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e0_2:SetType(EFFECT_TYPE_SINGLE)
      e0_2:SetCode(EFFECT_CANNOT_TO_GRAVE)
      e0_2:SetRange(LOCATION_MZONE)
      e0_2:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e0_2,true)
      --
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetDescription(aux.Stringid(m,1))
      e4:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e4:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
      e4:SetValue(LOCATION_EXTRA)
      e4:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e4,true)
      if not rc:IsType(TYPE_EFFECT) then
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_ADD_TYPE)
      e3:SetValue(TYPE_EFFECT)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e3,true)
      end
      rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
      end
      function cm.pencon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
      end
      function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function cm.penop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      function cm.stfilter(c,tp)
      local seq=c:GetSequence()
      return seq<=4 and c:IsType(TYPE_MONSTER) and c:IsFaceup()
      end
      function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and cm.stfilter(chkc,tp) end
      if chk==0 then return Duel.IsExistingTarget(cm.stfilter,tp,0,LOCATION_MZONE,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,4))
      Duel.SelectTarget(tp,cm.stfilter,tp,0,LOCATION_MZONE,1,1,nil,tp)
      end
      function cm.stop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not (tc:IsRelateToEffect(e) and tc:IsControler(1-tp) and not tc:IsImmuneToEffect(e)) then return end
      local zone=1<<tc:GetSequence()
      local oc=Duel.GetMatchingGroup(cm.seqfilter,tp,0,LOCATION_SZONE,nil,tc:GetSequence()):GetFirst()
      if oc then
      Duel.Destroy(oc,REASON_RULE)
      end
      if Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true,zone) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_TRAP+TYPE_CONTINUOUS)
      tc:RegisterEffect(e1)
      end
      end
      function cm.seqfilter(c,seq)
      return c:GetSequence()==seq
      end
      --M·A·L·MALB
      local m=30683220
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      c:EnableReviveLimit()
      ---
      local e0=Effect.CreateEffect(c)
      e0:SetDescription(aux.Stringid(m,0))
      e0:SetType(EFFECT_TYPE_FIELD)
      e0:SetCode(EFFECT_SPSUMMON_PROC)
      e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
      e0:SetRange(LOCATION_EXTRA)
      e0:SetCondition(cm.syncon)
      e0:SetTarget(cm.syntg)
      e0:SetOperation(cm.synop)
      e0:SetValue(SUMMON_TYPE_SYNCHRO)
      c:RegisterEffect(e0)
      aux.EnablePendulumAttribute(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,m)
      e1:SetCondition(cm.spcon)
      e1:SetCost(cm.spcost)
      e1:SetTarget(cm.sptg)
      e1:SetOperation(cm.spop)
      c:RegisterEffect(e1)
      --effect gain
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e3:SetCode(EVENT_BE_MATERIAL)
      e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
      e3:SetCondition(cm.effcon)
      e3:SetOperation(cm.effop)
      c:RegisterEffect(e3)
      --pendulum
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(m,3))
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_LEAVE_FIELD)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,m+3)
      e4:SetCondition(cm.pencon)
      e4:SetTarget(cm.pentg)
      e4:SetOperation(cm.penop)
      c:RegisterEffect(e4)
      --set
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(m,2))
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCountLimit(1,m+1)
      e2:SetRange(LOCATION_PZONE)
      e2:SetTarget(cm.sttg)
      e2:SetOperation(cm.stop)
      c:RegisterEffect(e2)
      end
      function cm.CheckGroupRecursive(c,sg,g,f,min,max,ext_params)
      sg:AddCard(c)
      local ct=sg:GetCount()
      local res=(ct>=min and f(sg,table.unpack(ext_params)))
      or (ct<max and g:IsExists(cm.CheckGroupRecursive,1,sg,sg,g,f,min,max,ext_params))
      sg:RemoveCard(c)
      return res
      end
      function cm.CheckGroup(g,f,cg,min,max,...)
      local min=min or 1
      local max=max or g:GetCount()
      if min>max then return false end
      local ext_params={...}
      local sg=Group.CreateGroup()
      if cg then sg:Merge(cg) end
      local ct=sg:GetCount()
      if ct>=min and ct<max and f(sg,...) then return true end
      return g:IsExists(cm.CheckGroupRecursive,1,sg,sg,g,f,min,max,ext_params)
      end
      function cm.SelectGroupNew(tp,desc,cancelable,g,f,cg,min,max,...)
      local min=min or 1
      local max=max or #g
      local ext_params={...}
      if cg then Duel.SetSelectedCard(cg) end
      Duel.Hint(tp,HINT_SELECTMSG,desc)
      return g:SelectSubGroup(tp,f,cancelable,min,max,...)
      end
      function cm.SelectGroup(tp,desc,g,f,cg,min,max,...)
      return cm.SelectGroupNew(tp,desc,true,g,f,cg,min,max,...)
      end
      function cm.matfilter1(c,syncard,tp)
      if c:IsFacedown() then return false end
      if (c:IsSynchroType(TYPE_LINK) or c:IsSynchroType(TYPE_XYZ)) and c:IsControler(tp) then return true end
      return c:IsSynchroType(TYPE_TUNER) and c:IsCanBeSynchroMaterial(syncard) and c:IsSetCard(0xc19) and c:IsType(TYPE_SYNCHRO)
      end
      function cm.matfilter2(c,syncard)
      return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsNotTuner(syncard) and c:IsCanBeSynchroMaterial(syncard)
      end
      function cm.val(c,syncard)
      if c:IsSynchroType(TYPE_LINK) and c:IsSetCard(0xc19) then
      return c:GetLink()
      else
      if c:IsSynchroType(TYPE_XYZ) and c:IsSetCard(0xc19) then
      return c:GetRank()
      else
      return c:GetSynchroLevel(syncard)
      end
      end
      end
      function cm.synfilter(c,syncard,lv,g2,g3,minc,maxc,tp)
      local tsg=c:IsHasEffect(EFFECT_HAND_SYNCHRO) and g3 or g2
      local f=c.tuner_filter
      if c.tuner_filter then tsg=tsg:Filter(f,nil) end
      return cm.CheckGroup(tsg,cm.goal,Group.FromCards(c),minc,maxc,tp,lv,syncard,c)
      end
      function cm.goal(g,tp,lv,syncard,tuc)
      if Duel.GetLocationCountFromEx(tp,tp,g,syncard)<=0 then return false end
      if tuc:IsHasEffect(EFFECT_HAND_SYNCHRO) and g:IsExists(Card.IsLocation,2,tuc,LOCATION_HAND) then return false end
      local ct=g:GetCount()
      return g:CheckWithSumEqual(cm.val,lv,ct,ct,syncard)
      end
      function cm.syncon(e,c,tuner,mg)
      if c==nil then return true end
      if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
      local tp=c:GetControler()
      local minc=2
      local maxc=c:GetLevel()
      local g1=nil
      local g2=nil
      local g3=nil
      if mg then
      g1=mg:Filter(cm.matfilter1,nil,c,tp)
      g2=mg:Filter(cm.matfilter2,nil,c)
      g3=g2:Clone()
      else
      g1=Duel.GetMatchingGroup(cm.matfilter1,tp,LOCATION_MZONE,0,nil,c,tp)
      g2=Duel.GetMatchingGroup(cm.matfilter2,tp,LOCATION_MZONE,0,nil,c)
      g3=Duel.GetMatchingGroup(cm.matfilter2,tp,LOCATION_MZONE+LOCATION_HAND,0,nil,c)
      end
      local pe=Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_SMATERIAL)
      local lv=c:GetLevel()
      local sg=nil
      if tuner then
      return cm.matfilter1(c,tp) and cm.synfilter(tuner,c,lv,g2,g3,minc,maxc,tp)
      elseif pe then
      return cm.matfilter1(pe:GetOwner(),tp) and cm.synfilter(pe:GetOwner(),c,lv,g2,g3,minc,maxc,tp)
      else
      return g1:IsExists(cm.synfilter,1,nil,c,lv,g2,g3,minc,maxc,tp)
      end
      end
      function cm.syntg(e,tp,eg,ep,ev,re,r,rp,chk,c,tuner,mg)
      local minc=2
      local maxc=c:GetLevel()
      local g1=nil
      local g2=nil
      local g3=nil
      if mg then
      g1=mg:Filter(cm.matfilter1,nil,c,tp)
      g2=mg:Filter(cm.matfilter2,nil,c)
      g3=g2:Clone()
      else
      g1=Duel.GetMatchingGroup(cm.matfilter1,tp,LOCATION_MZONE,0,nil,c,tp)
      g2=Duel.GetMatchingGroup(cm.matfilter2,tp,LOCATION_MZONE,0,nil,c)
      g3=Duel.GetMatchingGroup(cm.matfilter2,tp,LOCATION_MZONE+LOCATION_HAND,0,nil,c)
      end
      local pe=Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_SMATERIAL)
      local lv=c:GetLevel()
      local tuc=nil
      if tuner then
      tuner=tuc
      else
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL)
      if not pe then
      local t1=g1:FilterSelect(tp,cm.synfilter,1,1,nil,c,lv,g2,g3,minc,maxc,tp)
      tuc=t1:GetFirst()
      else
      tuc=pe:GetOwner()
      Group.FromCards(tuc):Select(tp,1,1,nil)
      end
      end
      tuc:RegisterFlagEffect(m,RESET_EVENT+0x1fe0000,0,1)
      local tsg=tuc:IsHasEffect(EFFECT_HAND_SYNCHRO) and g3 or g2
      local f=tuc.tuner_filter
      if tuc.tuner_filter then tsg=tsg:Filter(f,nil) end
      local g=cm.SelectGroup(tp,HINTMSG_SMATERIAL,tsg,cm.goal,Group.FromCards(tuc),minc,maxc,tp,lv,c,tuc)
      if g then
      g:KeepAlive()
      e:SetLabelObject(g)
      return true
      else return false end
      end
      function cm.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner,mg)
      local g=e:GetLabelObject()
      c:SetMaterial(g)
      Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO)
      g:DeleteGroup()
      end
      function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
      end
      function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(100)
      if chk==0 then return true end
      end
      function cm.costfilter(c,e,tp)
      return c:IsType(TYPE_SYNCHRO) and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetLevel(),e:GetHandler(),c:GetCode())
      end
      function cm.spfilter(c,e,tp,lv,ec,code)
      return c:IsLevel(lv) and c:IsType(TYPE_SYNCHRO) and c:IsSetCard(0xc19) and not c:IsCode(code)
      and Duel.GetLocationCountFromEx(tp,tp,ec,c)>0
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
      end
      function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      if e:GetLabel()~=100 then return false end
      e:SetLabel(0)
      return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL)
      and Duel.CheckReleaseGroup(tp,cm.costfilter,1,nil,e,tp)
      end
      e:SetLabel(0)
      local g=Duel.SelectReleaseGroup(tp,cm.costfilter,1,1,nil,e,tp)
      Duel.Release(g,REASON_COST)
      Duel.SetTargetCard(g)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function cm.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sc=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc:GetLevel(),nil):GetFirst()
      if sc then
      sc:SetMaterial(nil)
      if Duel.SpecialSummon(sc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)>0 then
      sc:CompleteProcedure()
      end
      end
      end
      function cm.effcon(e,tp,eg,ep,ev,re,r,rp)
      return (r==REASON_SYNCHRO or r==REASON_FUSION or r==REASON_LINK or r==REASON_XYZ) and e:GetHandler():GetReasonCard():IsSetCard(0xc19)
      end
      function cm.effop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local rc=c:GetReasonCard()
      --
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetDescription(aux.Stringid(m,4))
      e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_PIERCE)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e1,true)
      if not rc:IsType(TYPE_EFFECT) then
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_ADD_TYPE)
      e2:SetValue(TYPE_EFFECT)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      rc:RegisterEffect(e2,true)
      end
      rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
      end
      function cm.pencon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
      end
      function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function cm.penop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      function cm.stfilter(c,tp)
      local seq=c:GetSequence()
      return seq<=4 and c:IsType(TYPE_MONSTER) and c:IsFaceup()
      end
      function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and cm.stfilter(chkc,tp) end
      if chk==0 then return Duel.IsExistingTarget(cm.stfilter,tp,0,LOCATION_MZONE,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,4))
      Duel.SelectTarget(tp,cm.stfilter,tp,0,LOCATION_MZONE,1,1,nil,tp)
      end
      function cm.stop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not (tc:IsRelateToEffect(e) and tc:IsControler(1-tp) and not tc:IsImmuneToEffect(e)) then return end
      local zone=1<<tc:GetSequence()
      local oc=Duel.GetMatchingGroup(cm.seqfilter,tp,0,LOCATION_SZONE,nil,tc:GetSequence()):GetFirst()
      if oc then
      Duel.Destroy(oc,REASON_RULE)
      end
      if Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true,zone) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_TRAP+TYPE_CONTINUOUS)
      tc:RegisterEffect(e1)
      end
      end
      function cm.seqfilter(c,seq)
      return c:GetSequence()==seq
      end
      Markdown is supported
      0% or
      You are about to add 0 people to the discussion. Proceed with caution.
      Finish editing this message first!
      Please register or to comment