Skip to content

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

dededededededededededede

parent 22abfc00
Hide whitespace changes
Inline Side-by-side
Showing with 167 additions and 179 deletions
expansions/script/c47510028.lua
View file @ 393a599d
......@@ -4,9 +4,9 @@ function c47510028.initial_effect(c)
aux.EnablePendulumAttribute(c)
--damage
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_BATTLE_START)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_ATKCHANGE)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_ATTACK_ANNOUNCE)
e2:SetRange(LOCATION_PZONE)
e2:SetCountLimit(1,47510028)
e2:SetCondition(c47510028.pcon)
......@@ -57,11 +57,10 @@ function c47510028.initial_effect(c)
c:RegisterEffect(e8)
end
function c47510028.pcon(e,tp,eg,ep,ev,re,r,rp)
local at=Duel.GetAttacker()
local a=Duel.GetAttacker()
local d=a:GetBattleTarget()
if a:IsControler(1-tp) then a,d=d,a end
return a and a:IsFaceup() and a:IsRelateToBattle() and d and d:IsFaceup() and d:IsRelateToBattle() and a:GetControler()~=d:GetControler() and (at:IsAttribute(ATTRIBUTE_WIND) or at:IsSetCard(0x5da))
return a and a:IsFaceup() and a:IsRelateToBattle() and (a:IsAttribute(ATTRIBUTE_WIND) or a:IsSetCard(0x5da))
end
function c47510028.ptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
......
expansions/script/c47510072.lua
View file @ 393a599d
--红莲的星晶兽 阿格尼斯
function c47510072.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,3,c47510072.lcheck)
c:EnableReviveLimit()
--atk
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(c47510072.atkval)
c:RegisterEffect(e1)
--fire
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,47510072)
e2:SetTarget(c47510072.destg)
e2:SetOperation(c47510072.desop)
c:RegisterEffect(e2)
--indes
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE)
e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(LOCATION_MZONE,0)
e3:SetTarget(c47510072.intg)
e3:SetValue(1)
c:RegisterEffect(e3)
--link summon
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,3,c47510072.lcheck)
c:EnableReviveLimit()
--atk
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(c47510072.atkval)
c:RegisterEffect(e1)
--fire
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,47510072)
e2:SetTarget(c47510072.destg)
e2:SetOperation(c47510072.desop)
c:RegisterEffect(e2)
--indes
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE)
e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(LOCATION_MZONE,0)
e3:SetTarget(c47510072.intg)
e3:SetValue(1)
c:RegisterEffect(e3)
end
function c47510072.lcheck(g)
return g:IsExists(Card.IsLinkSetCard,1,nil,0x5da) or g:IsExists(Card.IsAttribute,1,nil,ATTRIBUTE_FIRE)
return g:IsExists(Card.IsLinkSetCard,1,nil,0x5da) or g:IsExists(Card.IsAttribute,1,nil,ATTRIBUTE_FIRE)
end
function c47510072.intg(e,c)
return c:IsType(TYPE_PENDULUM)
return c:IsType(TYPE_PENDULUM)
end
function c47510072.afilter(c)
return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_FIRE)
return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_FIRE)
end
function c47510072.atkval(e,c)
return Duel.GetMatchingGroupCount(c47510072.afilter,c:GetControler(),LOCATION_MZONE,0,c)*500
return Duel.GetMatchingGroupCount(c47510072.afilter,c:GetControler(),LOCATION_MZONE,0,c)*500
end
function c47510072.ffilter(c)
return c:GetAttribute()~=ATTRIBUTE_FIRE
return c:GetAttribute()~=ATTRIBUTE_FIRE
end
function c47510072.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local c=e:GetHandler()
if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and chkc:IsFaceup() and chkc~=c end
if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,c) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,1,c)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(c47510072.ffilter,tp,0,LOCATION_MZONE,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_HAND+LOCATION_MZONE)
end
function c47510072.desop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
local g=Duel.GetMatchingGroup(c47510072.ffilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
if g:GetCount()>0 then
Duel.BreakEffect()
Duel.Destroy(g,REASON_EFFECT)
end
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
if #g>0 and Duel.Destroy(g,REASON_EFFECT)~=0 then
local g=Duel.GetMatchingGroup(c47510072.ffilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
if g:GetCount()>0 then
Duel.BreakEffect()
Duel.Destroy(g,REASON_EFFECT)
end
end
end
\ No newline at end of file
expansions/script/c47510201.lua
View file @ 393a599d
......@@ -2,134 +2,134 @@
local m=47510201
local cm=_G["c"..m]
function c47510201.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--pendulum effect
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47510201,0))
e1:SetCategory(CATEGORY_ATKCHANGE)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_PZONE)
e1:SetCountLimit(1,47510201)
e1:SetCost(c47510201.mcost)
e1:SetTarget(c47510201.mtg)
e1:SetOperation(c47510201.mop)
c:RegisterEffect(e1)
--splimit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetRange(LOCATION_PZONE)
e2:SetTargetRange(1,0)
e2:SetTarget(c47510201.splimit)
c:RegisterEffect(e2)
--Summon
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_SUMMON)
e3:SetDescription(aux.Stringid(47510201,1))
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_HAND)
e3:SetCountLimit(1,47510200)
e3:SetCost(c47510201.scost)
e3:SetTarget(c47510201.stg)
e3:SetOperation(c47510201.sop)
c:RegisterEffect(e3)
--destroy
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(47510201,1))
e4:SetCategory(CATEGORY_DESTROY)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_SUMMON_SUCCESS)
e4:SetOperation(c47510201.desop)
c:RegisterEffect(e4)
--indes
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e5:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
e5:SetRange(LOCATION_EXTRA)
e5:SetTargetRange(LOCATION_MZONE,0)
e5:SetTarget(c47510201.indtg)
e5:SetValue(c47510201.indct)
c:RegisterEffect(e5)
--pendulum summon
aux.EnablePendulumAttribute(c)
--pendulum effect
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47510201,0))
e1:SetCategory(CATEGORY_ATKCHANGE)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_PZONE)
e1:SetCountLimit(1,47510201)
e1:SetCost(c47510201.mcost)
e1:SetTarget(c47510201.mtg)
e1:SetOperation(c47510201.mop)
c:RegisterEffect(e1)
--splimit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetRange(LOCATION_PZONE)
e2:SetTargetRange(1,0)
e2:SetTarget(c47510201.splimit)
c:RegisterEffect(e2)
--Summon
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_SUMMON)
e3:SetDescription(aux.Stringid(47510201,1))
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_HAND)
e3:SetCountLimit(1,47510200)
e3:SetCost(c47510201.scost)
e3:SetTarget(c47510201.stg)
e3:SetOperation(c47510201.sop)
c:RegisterEffect(e3)
--destroy
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(47510201,1))
e4:SetCategory(CATEGORY_DESTROY)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_SUMMON_SUCCESS)
e4:SetOperation(c47510201.desop)
c:RegisterEffect(e4)
--indes
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e5:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
e5:SetRange(LOCATION_EXTRA)
e5:SetTargetRange(LOCATION_MZONE,0)
e5:SetTarget(c47510201.indtg)
e5:SetValue(c47510201.indct)
c:RegisterEffect(e5)
end
function c47510201.splimit(e,c)
return not c:IsAttribute(ATTRIBUTE_FIRE)
return not c:IsAttribute(ATTRIBUTE_FIRE)
end
function c47510201.mcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler() end
Duel.SendtoExtraP(e:GetHandler(),nil,0,REASON_COST)
if chk==0 then return e:GetHandler() end
Duel.SendtoExtraP(e:GetHandler(),nil,0,REASON_COST)
end
function c47510201.mtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
end
function c47510201.mop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
local tc=g:GetFirst()
local c=e:GetHandler()
while tc do
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_UPDATE_ATTACK)
e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
e3:SetValue(-2000)
tc:RegisterEffect(e3)
local e4=e3:Clone()
e4:SetCode(EFFECT_UPDATE_DEFENSE)
tc:RegisterEffect(e4)
tc=g:GetNext()
end
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
local tc=g:GetFirst()
local c=e:GetHandler()
while tc do
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_UPDATE_ATTACK)
e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
e3:SetValue(-2000)
tc:RegisterEffect(e3)
local e4=e3:Clone()
e4:SetCode(EFFECT_UPDATE_DEFENSE)
tc:RegisterEffect(e4)
tc=g:GetNext()
end
end
function c47510201.scost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsAttribute,1,nil,ATTRIBUTE_FIRE) end
local g=Duel.SelectReleaseGroup(tp,Card.IsAttribute,1,1,nil,ATTRIBUTE_FIRE)
Duel.Release(g,REASON_COST)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsAttribute,1,nil,ATTRIBUTE_FIRE) end
local g=Duel.SelectReleaseGroup(tp,Card.IsAttribute,1,1,nil,ATTRIBUTE_FIRE)
Duel.Release(g,REASON_COST)
end
function c47510201.ttcon(e,c,minc)
if c==nil then return true end
return minc==0 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
if c==nil then return true end
return minc==0 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
end
function c47510201.stg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
e1:SetCondition(c47510201.ttcon)
c:RegisterEffect(e1)
local res=c:IsSummonable(true,nil) or c:IsAbleToGrave()
e1:Reset()
return res
end
if chk==0 then
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
e1:SetCondition(c47510201.ttcon)
c:RegisterEffect(e1)
local res=c:IsSummonable(true,nil) or c:IsAbleToGrave()
e1:Reset()
return res
end
end
function c47510201.sop(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_LIMIT_SUMMON_PROC)
e1:SetCondition(c47510201.ttcon)
c:RegisterEffect(e1)
if c:IsSummonable(true,nil) then
Duel.Summon(tp,c,true,nil)
end
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_LIMIT_SUMMON_PROC)
e1:SetCondition(c47510201.ttcon)
c:RegisterEffect(e1)
if c:IsSummonable(true,nil) then
Duel.Summon(tp,c,true,nil)
end
end
function c47510201.ffilter(c)
return c:GetAttribute()~=ATTRIBUTE_FIRE
return c:GetAttribute()~=ATTRIBUTE_FIRE
end
function c47510201.desop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local sg=Duel.GetMatchingGroup(c47510201.ffilter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler())
if sg:GetCount()>0 then
Duel.Destroy(sg,REASON_EFFECT)
end
local c=e:GetHandler()
local sg=Duel.GetMatchingGroup(c47510201.ffilter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler())
if sg:GetCount()>0 then
Duel.Destroy(sg,REASON_EFFECT)
end
end
function c47510201.indtg(c)
return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_FIRE)
function c47510201.indtg(e,c)
return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_FIRE)
end
function c47510201.indct(e,re,r,rp)
if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 then
return 1
else return 0 end
if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 then
return 1
else return 0 end
end
\ No newline at end of file
expansions/script/c47510203.lua
View file @ 393a599d
......@@ -11,7 +11,6 @@ function c47510203.initial_effect(c)
e1:SetRange(LOCATION_PZONE)
e1:SetCountLimit(1,47510203)
e1:SetCost(c47510203.mcost)
e1:SetTarget(c47510203.mtg)
e1:SetOperation(c47510203.mop)
c:RegisterEffect(e1)
--splimit
......@@ -62,25 +61,18 @@ function c47510203.mcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler() and Duel.IsAbleToEnterBP() end
Duel.SendtoExtraP(e:GetHandler(),nil,0,REASON_COST)
end
function c47510203.mtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
end
function c47510203.mfilter(c)
function c47510203.mfilter(e,c)
return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_FIRE)
end
function c47510203.mop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c47510203.mfilter,tp,LOCATION_MZONE,0,nil)
local tc=g:GetFirst()
local c=e:GetHandler()
while tc do
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_EXTRA_ATTACK)
e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e3:SetValue(1)
tc:RegisterEffect(e3)
tc=g:GetNext()
end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_EXTRA_ATTACK)
e1:SetTargetRange(LOCATION_MZONE,0)
e1:SetTarget(c47510203.mfilter)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetValue(1)
Duel.RegisterEffect(e1,tp)
end
function c47510203.scost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsAttribute,1,nil,ATTRIBUTE_FIRE) 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