Skip to content

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

dededededededededededede

parent 6bcbf637
Hide whitespace changes
Inline Side-by-side
Showing with 213 additions and 202 deletions
expansions/script/c47510103.lua
View file @ 5b680c68
--黄金战骑 异化萨奇达利乌斯 --黄金战骑 异化萨奇达利乌斯
local m=47510103 local m=m
local cm=_G["c"..m] local cm=_G["c"..m]
function c47510103.initial_effect(c) function cm.initial_effect(c)
c:SetSPSummonOnce(47510103) c:SetSPSummonOnce(m)
c:EnableCounterPermit(0x35da) c:EnableCounterPermit(0x5d7)
--pendulum summon --pendulum summon
aux.EnablePendulumAttribute(c) aux.EnablePendulumAttribute(c)
--synchro summon --synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(c47510103.sfilter),1,1) aux.AddSynchroProcedure(c,nil,aux.NonTuner(cm.sfilter),1,1)
c:EnableReviveLimit() c:EnableReviveLimit()
--Astro Horizon --Astro Horizon
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47510103,0)) e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_ATKCHANGE) e1:SetCategory(CATEGORY_ATKCHANGE)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_ATTACK_ANNOUNCE) e1:SetCode(EVENT_ATTACK_ANNOUNCE)
e1:SetRange(LOCATION_PZONE) e1:SetRange(LOCATION_PZONE)
e1:SetCountLimit(1,47510103) e1:SetCountLimit(1,m)
e1:SetTargetRange(0,LOCATION_MZONE) e1:SetTargetRange(0,LOCATION_MZONE)
e1:SetCondition(c47510103.atkcon) e1:SetCondition(cm.atkcon)
e1:SetOperation(c47510103.atkop) e1:SetOperation(cm.atkop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--Zodiac Symbol --counter
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(47510103,1)) e2:SetDescription(aux.Stringid(m,1))
e2:SetCategory(CATEGORY_COUNTER) e2:SetCategory(CATEGORY_COUNTER)
e2:SetType(EFFECT_TYPE_IGNITION) e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetCountLimit(1) e2:SetRange(LOCATION_MZONE)
e2:SetRange(LOCATION_MZONE) e2:SetCountLimit(1)
e2:SetOperation(c47510103.opd1) e2:SetTarget(cm.cttg)
c:RegisterEffect(e2) e2:SetOperation(cm.ctop)
--Jupiternal Eight c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c) --Jupiternal Eight
e3:SetDescription(aux.Stringid(47510103,2)) local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_DISABLE) e3:SetDescription(aux.Stringid(m,2))
e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetCategory(CATEGORY_DISABLE)
e3:SetCode(EVENT_FREE_CHAIN) e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetRange(LOCATION_MZONE) e3:SetCode(EVENT_FREE_CHAIN)
e3:SetCountLimit(1,47510104) e3:SetRange(LOCATION_MZONE)
e3:SetCost(c47510103.cost1) e3:SetCountLimit(1,m+1)
e3:SetOperation(c47510103.disop) e3:SetCost(cm.cost1)
c:RegisterEffect(e3) e3:SetTarget(cm.limtg)
--Mutable e3:SetOperation(cm.disop)
local e4=Effect.CreateEffect(c) c:RegisterEffect(e3)
e4:SetDescription(aux.Stringid(47510103,3)) --Mutable
e4:SetCategory(CATEGORY_ATKCHANGE) local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_QUICK_O) e4:SetDescription(aux.Stringid(m,3))
e4:SetCode(EVENT_FREE_CHAIN) e4:SetCategory(CATEGORY_ATKCHANGE)
e4:SetRange(LOCATION_MZONE) e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCountLimit(1,47510104) e4:SetCode(EVENT_FREE_CHAIN)
e4:SetCost(c47510103.cost1) e4:SetRange(LOCATION_MZONE)
e4:SetOperation(c47510103.immop) e4:SetCountLimit(1,m+1)
c:RegisterEffect(e4) e4:SetCost(cm.cost1)
--Zodiac Dimension e4:SetTarget(cm.limtg)
local e5=Effect.CreateEffect(c) e4:SetOperation(cm.immop)
e5:SetDescription(aux.Stringid(47510103,4)) c:RegisterEffect(e4)
e5:SetCategory(CATEGORY_REMOVE) --Zodiac Dimension
e5:SetType(EFFECT_TYPE_IGNITION) local e5=Effect.CreateEffect(c)
e5:SetRange(LOCATION_MZONE) e5:SetDescription(aux.Stringid(m,4))
e5:SetCountLimit(1,47510104) e5:SetCategory(CATEGORY_REMOVE)
e5:SetCost(c47510103.cost2) e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetOperation(c47510103.rmop) e5:SetRange(LOCATION_MZONE)
c:RegisterEffect(e5) e5:SetCountLimit(1,m+1)
--pendulum e5:SetCost(cm.cost2)
local e8=Effect.CreateEffect(c) e5:SetTarget(cm.rmtg)
e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e5:SetOperation(cm.rmop)
e8:SetCode(EVENT_DESTROYED) c:RegisterEffect(e5)
e8:SetProperty(EFFECT_FLAG_DELAY) --pendulum
e8:SetCondition(c47510103.pencon) local e8=Effect.CreateEffect(c)
e8:SetTarget(c47510103.pentg) e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e8:SetOperation(c47510103.penop) e8:SetCode(EVENT_DESTROYED)
c:RegisterEffect(e8) e8:SetProperty(EFFECT_FLAG_DELAY)
end e8:SetCondition(cm.pencon)
function c47510103.sfilter(c) e8:SetTarget(cm.pentg)
return c:IsType(TYPE_PENDULUM) and c:IsAttribute(ATTRIBUTE_WIND) e8:SetOperation(cm.penop)
end c:RegisterEffect(e8)
function c47510103.atkcon(e,tp,eg,ep,ev,re,r,rp) end
return Duel.GetTurnPlayer()~=tp function cm.sfilter(c)
end return c:IsType(TYPE_PENDULUM) and c:IsAttribute(ATTRIBUTE_WIND)
function c47510103.atkop(e,tp,eg,ep,ev,re,r,rp) end
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
if g:GetCount()>0 then return Duel.GetTurnPlayer()~=tp
local sc=g:GetFirst() end
while sc do function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(e:GetHandler()) local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
e1:SetType(EFFECT_TYPE_SINGLE) if g:GetCount()>0 then
e1:SetCode(EFFECT_SET_ATTACK_FINAL) local sc=g:GetFirst()
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE) while sc do
e1:SetValue(c47510103.atkval) local e1=Effect.CreateEffect(e:GetHandler())
sc:RegisterEffect(e1) e1:SetType(EFFECT_TYPE_SINGLE)
sc=g:GetNext() e1:SetCode(EFFECT_SET_ATTACK_FINAL)
end e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
end e1:SetValue(cm.atkval)
end sc:RegisterEffect(e1)
function c47510103.atkval(e,c) sc=g:GetNext()
return math.ceil(c:GetBaseAttack()/2) end
end end
function c47510103.opd1(e,tp,eg,ep,ev,re,r,rp) end
if e:GetHandler():IsRelateToEffect(e) then function cm.atkval(e,c)
e:GetHandler():AddCounter(0x35da,2) return math.ceil(c:GetBaseAttack()/2)
end end
end function cm.cttg(e,tp,eg,ep,ev,re,r,rp,chk)
function c47510103.cost1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsCanAddCounter(0x5d7,1) end
if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x35da,1,REASON_COST) end end
e:GetHandler():RemoveCounter(tp,0x35da,1,REASON_COST) function cm.ctop(e,tp,eg,ep,ev,re,r,rp)
Duel.SetChainLimit(aux.FALSE) local c=e:GetHandler()
end if c:IsRelateToEffect(e) and c:IsFaceup() then
function c47510103.disop(e,tp,eg,ep,ev,re,r,rp) c:AddCounter(0x5d7,1)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) end
local tc=g:GetFirst() end
while tc do function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
local e1=Effect.CreateEffect(e:GetHandler()) if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x5d7,1,REASON_COST) end
e1:SetType(EFFECT_TYPE_SINGLE) e:GetHandler():RemoveCounter(tp,0x5d7,1,REASON_COST)
e1:SetCode(EFFECT_DISABLE) end
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END) function cm.limtg(e,tp,eg,ep,ev,re,r,rp,chk)
tc:RegisterEffect(e1) if chk==0 then return true end
local e2=Effect.CreateEffect(e:GetHandler()) Duel.SetChainLimit(aux.FALSE)
e2:SetType(EFFECT_TYPE_SINGLE) end
e2:SetCode(EFFECT_DISABLE_EFFECT) function cm.disop(e,tp,eg,ep,ev,re,r,rp)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END) local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
tc:RegisterEffect(e2) local tc=g:GetFirst()
tc=g:GetNext() while tc do
end local e1=Effect.CreateEffect(e:GetHandler())
local c=e:GetHandler() e1:SetType(EFFECT_TYPE_SINGLE)
if c:IsRelateToEffect(e) then e1:SetCode(EFFECT_DISABLE)
local e3=Effect.CreateEffect(c) e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e3:SetType(EFFECT_TYPE_SINGLE) tc:RegisterEffect(e1)
e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) local e2=Effect.CreateEffect(e:GetHandler())
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetType(EFFECT_TYPE_SINGLE)
e3:SetValue(1) e2:SetCode(EFFECT_DISABLE_EFFECT)
e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END) e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
c:RegisterEffect(e3) tc:RegisterEffect(e2)
end tc=g:GetNext()
end end
function c47510103.immop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) if c:IsRelateToEffect(e) then
local tc=g:GetFirst() local e3=Effect.CreateEffect(c)
while tc do e3:SetType(EFFECT_TYPE_SINGLE)
local e1=Effect.CreateEffect(e:GetHandler()) e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e1:SetType(EFFECT_TYPE_SINGLE) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCode(EFFECT_UPDATE_ATTACK) e3:SetValue(1)
e1:SetValue(-1000) e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e1:SetReset(RESET_EVENT+RESETS_STANDARD) c:RegisterEffect(e3)
tc:RegisterEffect(e1) end
tc=g:GetNext() end
end function cm.immop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
if c:IsRelateToEffect(e) then local tc=g:GetFirst()
local e3=Effect.CreateEffect(c) while tc do
e3:SetType(EFFECT_TYPE_SINGLE) local e1=Effect.CreateEffect(e:GetHandler())
e3:SetCode(EFFECT_IMMUNE_EFFECT) e1:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetCode(EFFECT_UPDATE_ATTACK)
e3:SetValue(c47510103.efilter) e1:SetValue(-1000)
e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END) e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e3) tc:RegisterEffect(e1)
end tc=g:GetNext()
end end
function c47510103.efilter(e,te) local c=e:GetHandler()
return te:GetOwner()~=e:GetOwner() if c:IsRelateToEffect(e) then
end local e3=Effect.CreateEffect(c)
function c47510103.cost2(e,tp,eg,ep,ev,re,r,rp,chk) e3:SetType(EFFECT_TYPE_SINGLE)
if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x35da,3,REASON_COST) end e3:SetCode(EFFECT_IMMUNE_EFFECT)
e:GetHandler():RemoveCounter(tp,0x35da,3,REASON_COST) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
end e3:SetValue(cm.efilter)
function c47510103.rmfilter(c) e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
return c:IsFacedown() and c:IsAbleToRemove() c:RegisterEffect(e3)
end end
function c47510103.remtg(e,tp,eg,ep,ev,re,r,rp,chk) end
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_HAND,1,nil) function cm.efilter(e,te)
and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,nil) return te:GetOwner()~=e:GetOwner()
and Duel.IsExistingMatchingCard(c47510103.rmfilter,tp,0,LOCATION_EXTRA,1,nil) end end
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,LOCATION_ONFIELD+LOCATION_EXTRA+LOCATION_HAND) function cm.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
end if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x5d7,3,REASON_COST) end
function c47510103.remop(e,tp,eg,ep,ev,re,r,rp) e:GetHandler():RemoveCounter(tp,0x5d7,3,REASON_COST)
local g1=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_HAND,nil) end
local g2=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,nil) function cm.rmfilter(c)
local g3=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_EXTRA,nil) return c:IsFacedown() and c:IsAbleToRemove()
if g1:GetCount()>0 and g2:GetCount()>0 and g3:GetCount()>0 then end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
local sg1=g1:RandomSelect(tp,1) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_HAND,1,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,nil)
local sg2=g2:Select(tp,1,1,nil) and Duel.IsExistingMatchingCard(cm.rmfilter,tp,0,LOCATION_EXTRA,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,LOCATION_ONFIELD+LOCATION_EXTRA+LOCATION_HAND)
local sg3=g3:RandomSelect(tp,1) end
sg1:Merge(sg2) function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
sg1:Merge(sg3) local g1=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_HAND,nil)
Duel.HintSelection(sg1) local g2=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,nil)
Duel.Remove(sg1,POS_FACEUP,REASON_EFFECT) local g3=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_EXTRA,nil)
end if g1:GetCount()>0 and g2:GetCount()>0 and g3:GetCount()>0 then
end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
function c47510103.pencon(e,tp,eg,ep,ev,re,r,rp) local sg1=g1:RandomSelect(tp,1)
local c=e:GetHandler() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup() local sg2=g2:Select(tp,1,1,nil)
end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
function c47510103.pentg(e,tp,eg,ep,ev,re,r,rp,chk) local sg3=g3:RandomSelect(tp,1)
if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end sg1:Merge(sg2)
end sg1:Merge(sg3)
function c47510103.penop(e,tp,eg,ep,ev,re,r,rp) Duel.HintSelection(sg1)
if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end Duel.Remove(sg1,POS_FACEUP,REASON_EFFECT)
local c=e:GetHandler() end
if c:IsRelateToEffect(e) then end
Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true) function cm.pencon(e,tp,eg,ep,ev,re,r,rp)
end local c=e:GetHandler()
return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and 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 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