Skip to content

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

fix

parent 9ff5dfbd
Pipeline #603 passed with stages
      in 42 minutes and 34 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 76 additions and 76 deletions
      expansions/script/c66911000.lua
      View file @ 8b565306
      ......@@ -2,96 +2,96 @@
      local m=66911000
      local cm=_G["c"..m]
      function cm.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      --tohand
      local e11=Effect.CreateEffect(c)
      e11:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
      e11:SetCode(EVENT_SPSUMMON_SUCCESS)
      e11:SetRange(LOCATION_PZONE)
      e11:SetCondition(cm.thcon)
      e11:SetOperation(cm.thop)
      c:RegisterEffect(e11)
      --special summon
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_FIELD)
      e7:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e7:SetCode(EFFECT_SPSUMMON_PROC)
      e7:SetRange(LOCATION_GRAVE)
      e7:SetCondition(cm.hspcon)
      c:RegisterEffect(e7)
      --tograve
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DECKDES)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_REMOVE)
      e2:SetCountLimit(1,m)
      e2:SetTarget(cm.distarget)
      e2:SetOperation(cm.disop)
      c:RegisterEffect(e2)
      aux.EnablePendulumAttribute(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1)
      e1:SetTarget(cm.target)
      e1:SetOperation(cm.activate)
      c:RegisterEffect(e1)
      --tohand
      local e11=Effect.CreateEffect(c)
      e11:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
      e11:SetCode(EVENT_SPSUMMON_SUCCESS)
      e11:SetRange(LOCATION_PZONE)
      e11:SetCondition(cm.thcon)
      e11:SetOperation(cm.thop)
      c:RegisterEffect(e11)
      --special summon
      local e7=Effect.CreateEffect(c)
      e7:SetType(EFFECT_TYPE_FIELD)
      e7:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e7:SetCode(EFFECT_SPSUMMON_PROC)
      e7:SetRange(LOCATION_GRAVE)
      e7:SetCondition(cm.hspcon)
      c:RegisterEffect(e7)
      --tograve
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DECKDES)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_REMOVE)
      e2:SetCountLimit(1,m)
      e2:SetTarget(cm.distarget)
      e2:SetOperation(cm.disop)
      c:RegisterEffect(e2)
      end
      function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_PZONE) end
      if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_PZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,nil,tp,LOCATION_PZONE,0,1,1,nil)
      if chkc then return chkc:IsLocation(LOCATION_PZONE) end
      if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_PZONE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,nil,tp,LOCATION_PZONE,0,1,1,nil)
      end
      function cm.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LSCALE)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CHANGE_RSCALE)
      tc:RegisterEffect(e2)
      end
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LSCALE)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CHANGE_RSCALE)
      tc:RegisterEffect(e2)
      end
      end
      function cm.cfilter(c,tp)
      return c:GetSummonPlayer()==tp and c:IsSummonType(SUMMON_TYPE_PENDULUM)
      return c:GetSummonPlayer()==tp and c:IsSummonType(SUMMON_TYPE_PENDULUM)
      end
      function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(cm.cfilter,1,nil,tp)
      return eg:IsExists(cm.cfilter,1,nil,tp)
      end
      function cm.thop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LSCALE)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CHANGE_RSCALE)
      c:RegisterEffect(e2)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LSCALE)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_CHANGE_RSCALE)
      c:RegisterEffect(e2)
      end
      function cm.hspcon(e,c)
      if c==nil then return true end
      if c:IsHasEffect(EFFECT_NECRO_VALLEY) then return false end
      local tp=c:GetControler()
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      return ft>0 and Duel.GetFieldCard(tp,LOCATION_PZONE,0) and Duel.GetFieldCard(tp,LOCATION_PZONE,1)
      and Duel.GetFieldCard(tp,LOCATION_PZONE,0):GetLeftScale()==Duel.GetFieldCard(tp,LOCATION_PZONE,1):GetRightScale()
      if c==nil then return true end
      if c:IsHasEffect(EFFECT_NECRO_VALLEY) then return false end
      local tp=c:GetControler()
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      return ft>0 and Duel.GetFieldCard(tp,LOCATION_PZONE,0) and Duel.GetFieldCard(tp,LOCATION_PZONE,1)
      and Duel.GetFieldCard(tp,LOCATION_PZONE,0):GetLeftScale()==Duel.GetFieldCard(tp,LOCATION_PZONE,1):GetRightScale()
      end
      function cm.distarget(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,5) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(5)
      Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,5)
      if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,5) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(5)
      Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,5)
      end
      function cm.disop(e,tp,eg,ep,ev,re,r,rp)
      local p,val=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.DiscardDeck(p,val,REASON_EFFECT)
      local p,val=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.DiscardDeck(p,val,REASON_EFFECT)
      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