Skip to content

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

fix dragonlady

parent e5c6d1e9
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 716 additions and 724 deletions
expansions/script/c47500000.lua
View file @ 231a75bd
--姬塔
local m=47500000
local cm=_G["c"..m]
function c47500000.initial_effect(c)
aux.AddCodeList(c,47500000)
--pendulum summon
aux.EnablePendulumAttribute(c)
--splimit
......@@ -24,7 +23,6 @@ function c47500000.initial_effect(c)
e2:SetOperation(c47500000.penop)
c:RegisterEffect(e2)
end
c47500000.card_code_list={47500000}
function c47500000.pefilter(c)
return (aux.IsCodeListed(c,47500000) or c:IsCode(47500000)) or c:IsSetCard(0x5d0)
end
......
expansions/script/c47500001.lua
View file @ 231a75bd
--炼金术师 姬塔
local m=47500001
local cm=_G["c"..m]
function c47500001.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--pendulum set
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47500001,0))
e1:SetCategory(CATEGORY_RECOVER+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_PZONE)
e1:SetCountLimit(1,47521001)
e1:SetTarget(c47500001.thtg)
e1:SetOperation(c47500001.thop)
c:RegisterEffect(e1)
--destroy and spsummon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(47500001,1))
e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_PZONE)
e2:SetCountLimit(1,47500001)
e2:SetTarget(c47500001.sptg)
e2:SetOperation(c47500001.spop)
c:RegisterEffect(e2)
--search
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(47500001,2))
e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,47521101)
e3:SetCost(c47500001.thcost)
e3:SetTarget(c47500001.thtg2)
e3:SetOperation(c47500001.thop2)
c:RegisterEffect(e3)
--code
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e4:SetCode(EFFECT_CHANGE_CODE)
e4:SetRange(LOCATION_MZONE+LOCATION_PZONE+LOCATION_GRAVE+LOCATION_EXTRA)
e4:SetValue(47500000)
c:RegisterEffect(e4)
aux.AddCodeList(c,47500000)
--pendulum summon
aux.EnablePendulumAttribute(c)
--pendulum set
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47500001,0))
e1:SetCategory(CATEGORY_RECOVER+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_PZONE)
e1:SetCountLimit(1,47521001)
e1:SetTarget(c47500001.thtg)
e1:SetOperation(c47500001.thop)
c:RegisterEffect(e1)
--destroy and spsummon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(47500001,1))
e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_PZONE)
e2:SetCountLimit(1,47500001)
e2:SetTarget(c47500001.sptg)
e2:SetOperation(c47500001.spop)
c:RegisterEffect(e2)
--search
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(47500001,2))
e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,47521101)
e3:SetCost(c47500001.thcost)
e3:SetTarget(c47500001.thtg2)
e3:SetOperation(c47500001.thop2)
c:RegisterEffect(e3)
--code
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e4:SetCode(EFFECT_CHANGE_CODE)
e4:SetRange(LOCATION_MZONE+LOCATION_PZONE+LOCATION_GRAVE+LOCATION_EXTRA)
e4:SetValue(47500000)
c:RegisterEffect(e4)
end
c47500001.card_code_list={47500000}
function c47500001.thfilter(c)
return c:IsAbleToHand()
return c:IsAbleToHand()
end
function c47500001.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c47500001.thfilter,tp,LOCATION_MZONE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_MZONE)
if chk==0 then return Duel.IsExistingMatchingCard(c47500001.thfilter,tp,LOCATION_MZONE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_MZONE)
end
function c47500001.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c47500001.thfilter,tp,LOCATION_MZONE,0,1,1,nil)
if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT) then
Duel.Recover(tp,1000,REASON_EFFECT)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c47500001.thfilter,tp,LOCATION_MZONE,0,1,1,nil)
if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT) then
Duel.Recover(tp,1000,REASON_EFFECT)
end
end
function c47500001.spfilter(c,e,tp)
return (aux.IsCodeListed(c,47500000) or c:IsCode(47500000)) and not c:IsCode(47500001) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
return (aux.IsCodeListed(c,47500000) or c:IsCode(47500000)) and not c:IsCode(47500001) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c47500001.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(e:GetLabel()) and chkc:IsControler(tp) and chkc:IsFaceup() end
if chk==0 then
local ft=Duel.GetMZoneCount(tp)
if ft<-1 then return false end
local loc=LOCATION_ONFIELD
if ft==0 then loc=LOCATION_MZONE end
e:SetLabel(loc)
return Duel.IsExistingTarget(Card.IsFaceup,tp,loc,0,1,e:GetHandler())
and Duel.IsExistingMatchingCard(c47500001.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)
end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
if chkc then return chkc:IsLocation(e:GetLabel()) and chkc:IsControler(tp) and chkc:IsFaceup() end
if chk==0 then
local ft=Duel.GetMZoneCount(tp)
if ft<-1 then return false end
local loc=LOCATION_ONFIELD
if ft==0 then loc=LOCATION_MZONE end
e:SetLabel(loc)
return Duel.IsExistingTarget(Card.IsFaceup,tp,loc,0,1,e:GetHandler())
and Duel.IsExistingMatchingCard(c47500001.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)
end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c47500001.spop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectMatchingCard(tp,Card.IsFaceup,tp,e:GetLabel(),0,1,1,nil)
local tc=g:GetFirst()
if tc and Duel.Destroy(tc,REASON_EFFECT)~=0 then
if Duel.GetMZoneCount(tp)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47500001.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
if not e:GetHandler():IsRelateToEffect(e) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectMatchingCard(tp,Card.IsFaceup,tp,e:GetLabel(),0,1,1,nil)
local tc=g:GetFirst()
if tc and Duel.Destroy(tc,REASON_EFFECT)~=0 then
if Duel.GetMZoneCount(tp)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47500001.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
end
function c47500001.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,nil) end
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,nil) end
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
end
function c47500001.thfilter1(c)
return (aux.IsCodeListed(c,47500000) or c:IsCode(47500000)) and c:IsType(TYPE_SPELL)
return (aux.IsCodeListed(c,47500000) or c:IsCode(47500000)) and c:IsType(TYPE_SPELL)
end
function c47500001.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c47500001.thfilter1,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
if chk==0 then return Duel.IsExistingMatchingCard(c47500001.thfilter1,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c47500001.thop2(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c47500001.thfilter1,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c47500001.thfilter1,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
\ No newline at end of file
expansions/script/c47500003.lua
View file @ 231a75bd
--枪神 姬塔
local m=47500003
local c47500003=_G["c"..m]
function c47500003.initial_effect(c)
aux.AddCodeList(c,47500000)
--pendulum summon
aux.EnablePendulumAttribute(c)
--effect gian
......@@ -49,7 +48,6 @@ function c47500003.initial_effect(c)
e5:SetValue(47500000)
c:RegisterEffect(e5)
end
c47500003.card_code_list={47500000}
function c47500003.atkval(e,c)
return c:GetEquipCount()-1
end
......
expansions/script/c47500005.lua
View file @ 231a75bd
--武士 姬塔
function c47500005.initial_effect(c)
aux.AddCodeList(c,47500000)
--pendulum summon
aux.EnablePendulumAttribute(c)
--Double Attack
......@@ -58,7 +59,6 @@ function c47500005.initial_effect(c)
e6:SetOperation(c47500005.spop)
c:RegisterEffect(e6)
end
c47500005.card_code_list={47500000}
function c47500005.cfilter(c)
return (aux.IsCodeListed(c,47500000) or c:IsCode(47500000)) and c:IsAbleToGraveAsCost()
end
......
expansions/script/c47500007.lua
View file @ 231a75bd
--暗杀者 姬塔
function c47500007.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--destroy and spsummon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47500007,1))
e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_PZONE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCountLimit(1,47500006)
e1:SetTarget(c47500007.sptg)
e1:SetOperation(c47500007.spop)
c:RegisterEffect(e1)
--xyzrank8
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_XYZ_LEVEL)
e3:SetValue(8)
e3:SetRange(LOCATION_ONFIELD+LOCATION_EXTRA)
e3:SetTargetRange(LOCATION_MZONE,0)
e3:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_PENDULUM))
c:RegisterEffect(e3)
--copy
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(47500007,2))
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCountLimit(1,47500008)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetTarget(c47500007.cytg)
e4:SetOperation(c47500007.cyop)
c:RegisterEffect(e4)
--code
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e5:SetCode(EFFECT_CHANGE_CODE)
e5:SetRange(LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_EXTRA)
e5:SetValue(47500000)
c:RegisterEffect(e5)
aux.AddCodeList(c,47500000)
--pendulum summon
aux.EnablePendulumAttribute(c)
--destroy and spsummon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47500007,1))
e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_PZONE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCountLimit(1,47500006)
e1:SetTarget(c47500007.sptg)
e1:SetOperation(c47500007.spop)
c:RegisterEffect(e1)
--xyzrank8
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_XYZ_LEVEL)
e3:SetValue(8)
e3:SetRange(LOCATION_ONFIELD+LOCATION_EXTRA)
e3:SetTargetRange(LOCATION_MZONE,0)
e3:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_PENDULUM))
c:RegisterEffect(e3)
--copy
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(47500007,2))
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCountLimit(1,47500008)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetTarget(c47500007.cytg)
e4:SetOperation(c47500007.cyop)
c:RegisterEffect(e4)
--code
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e5:SetCode(EFFECT_CHANGE_CODE)
e5:SetRange(LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_EXTRA)
e5:SetValue(47500000)
c:RegisterEffect(e5)
end
c47500007.card_code_list={47500000}
function c47500007.efffilter(c,e,tp,eg,ep,ev,re,r,rp)
local m=_G["c"..c:GetCode()]
local te=m.act_effect
if not te then return false end
local tg=te:GetTarget()
return aux.IsCodeListed(c,47500000) and (c:IsType(TYPE_SPELL) or c:IsType(TYPE_TRAP)) and (not tg or tg and tg(e,tp,eg,ep,ev,re,r,rp,0))
local m=_G["c"..c:GetCode()]
local te=m.act_effect
if not te then return false end
local tg=te:GetTarget()
return aux.IsCodeListed(c,47500000) and (c:IsType(TYPE_SPELL) or c:IsType(TYPE_TRAP)) and (not tg or tg and tg(e,tp,eg,ep,ev,re,r,rp,0))
end
function c47500007.cytg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingTarget(c47500007.efffilter,tp,LOCATION_DECK,0,1,nil,e,tp,eg,ep,ev,re,r,rp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
local g=Duel.SelectTarget(tp,c47500007.efffilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,eg,ep,ev,re,r,rp)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
end
local m=_G["c"..g:GetFirst():GetCode()]
local te=m.act_effect
local tg=te:GetTarget()
if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end
if chk==0 then return Duel.IsExistingTarget(c47500007.efffilter,tp,LOCATION_DECK,0,1,nil,e,tp,eg,ep,ev,re,r,rp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
local g=Duel.SelectTarget(tp,c47500007.efffilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,eg,ep,ev,re,r,rp)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
end
local m=_G["c"..g:GetFirst():GetCode()]
local te=m.act_effect
local tg=te:GetTarget()
if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end
end
function c47500007.cyop(e,tp,eg,ep,ev,re,r,rp,chk)
local tc=Duel.GetFirstTarget()
local m=_G["c"..tc:GetCode()]
local te=m.act_effect
if not te then return end
local op=te:GetOperation()
if op then op(e,tp,eg,ep,ev,re,r,rp) end
local tc=Duel.GetFirstTarget()
local m=_G["c"..tc:GetCode()]
local te=m.act_effect
if not te then return end
local op=te:GetOperation()
if op then op(e,tp,eg,ep,ev,re,r,rp) end
end
function c47500007.spfilter(c,e,tp)
return (aux.IsCodeListed(c,47500000) or c:IsCode(47500000)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
return (aux.IsCodeListed(c,47500000) or c:IsCode(47500000)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c47500007.tgfilter(c)
return c:GetSequence()<5
return c:GetSequence()<5
end
function c47500007.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler())
elseif Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,c47500007.tgfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler())
end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler())
elseif Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,c47500007.tgfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler())
end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c47500007.setfilter(c)
return aux.IsCodeListed(c,47500000) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
return aux.IsCodeListed(c,47500000) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
end
function c47500007.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and c:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and c:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
function c47500007.tefilter(c)
return c:IsType(TYPE_PENDULUM) and c:IsCode(47500000) and not c:IsForbidden()
return c:IsType(TYPE_PENDULUM) and c:IsCode(47500000) and not c:IsForbidden()
end
function c47500007.hspcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.IsExistingMatchingCard(c47500007.tefilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.IsExistingMatchingCard(c47500007.tefilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil)
end
function c47500007.hspop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(47500007,0))
local g=Duel.SelectMatchingCard(tp,c47500007.tefilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoExtraP(g,tp,REASON_COST)
end
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(47500007,0))
local g=Duel.SelectMatchingCard(tp,c47500007.tefilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoExtraP(g,tp,REASON_COST)
end
end
\ No newline at end of file
expansions/script/c47500009.lua
View file @ 231a75bd
--舞者 姬塔
function c47500009.initial_effect(c)
aux.AddCodeList(c,47500000)
--pendulum summon
aux.EnablePendulumAttribute(c)
--twin act
......@@ -35,7 +36,6 @@ function c47500009.initial_effect(c)
e5:SetValue(47500000)
c:RegisterEffect(e5)
end
c47500009.card_code_list={47500000}
function c47500009.dbfilter(c)
return c:IsFaceup() and c:IsCode(47500000)
end
......
expansions/script/c47500011.lua
View file @ 231a75bd
--机械师 姬塔
function c47500011.initial_effect(c)
aux.AddCodeList(c,47500000)
--pendulum summon
aux.EnablePendulumAttribute(c)
--pendulum produce
......@@ -49,7 +50,6 @@ function c47500011.initial_effect(c)
e5:SetTarget(c47500011.splimit)
c:RegisterEffect(e5)
end
c47500011.card_code_list={47500000}
function c47500011.splimit(e,c,tp,sumtp,sumpos)
return not c:IsType(TYPE_PENDULUM)
end
......
expansions/script/c47500013.lua
View file @ 231a75bd
This diff is collapsed.
expansions/script/c47500015.lua
View file @ 231a75bd
--黑猫道士 姬塔
function c47500015.initial_effect(c)
aux.AddCodeList(c,47500000)
c:EnableCounterPermit(0x1)
c:EnableReviveLimit()
--pendulum summon
......@@ -60,7 +61,6 @@ function c47500015.initial_effect(c)
e6:SetOperation(c47500015.spop)
c:RegisterEffect(e6)
end
c47500015.card_code_list={47500000}
function c47500015.mfilter(c)
return c:IsCode(47500000) and c:IsFaceup()
end
......
expansions/script/c47500017.lua
View file @ 231a75bd
--一般店员 姬塔
function c47500017.initial_effect(c)
aux.AddCodeList(c,47500000)
--link summon
c:EnableReviveLimit()
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsCode,47500000),2,2)
......@@ -29,7 +30,6 @@ function c47500017.initial_effect(c)
e2:SetOperation(c47500017.drop)
c:RegisterEffect(e2)
end
c47500017.card_code_list={47500000}
function c47500017.drcfilter(c,tp)
return c:IsPreviousLocation(LOCATION_PZONE) and c:GetPreviousControler()==tp
end
......
expansions/script/c47500019.lua
View file @ 231a75bd
--姬塔 Re:Link
function c47500019.initial_effect(c)
aux.AddCodeList(c,47500000)
--link summon
c:EnableReviveLimit()
aux.AddLinkProcedure(c,c47500019.lfilter,2,2)
......@@ -47,7 +48,6 @@ function c47500019.initial_effect(c)
e5:SetValue(47500000)
c:RegisterEffect(e5)
end
c47500019.card_code_list={47500000}
function c47500019.lfilter(c)
return c:GetOriginalCode()==47500000
end
......
expansions/script/c47500021.lua
View file @ 231a75bd
--调查兵团 姬塔
function c47500021.initial_effect(c)
aux.AddCodeList(c,47500000)
--link summon
c:EnableReviveLimit()
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_MONSTER),2,3,c47500021.lcheck)
......@@ -29,7 +30,6 @@ function c47500021.initial_effect(c)
e2:SetOperation(c47500021.thop)
c:RegisterEffect(e2)
end
c47500021.card_code_list={47500000}
function c47500021.lfilter(c)
return c:IsCode(47500000)
end
......
expansions/script/c47500023.lua
View file @ 231a75bd
--红莲之王 姬塔
function c47500023.initial_effect(c)
aux.AddCodeList(c,47500000)
--link summon
c:EnableReviveLimit()
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_EFFECT),3,4,c47500023.lcheck)
......@@ -36,7 +37,6 @@ function c47500023.initial_effect(c)
e4:SetCode(EVENT_BE_BATTLE_TARGET)
c:RegisterEffect(e4)
end
c47500023.card_code_list={47500000}
function c47500023.lfilter(c)
return c:IsAttribute(ATTRIBUTE_DARK) and c:IsCode(47500000)
end
......
expansions/script/c47500025.lua
View file @ 231a75bd
--苍之命运
function c47500025.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,47500025+EFFECT_COUNT_CODE_OATH)
e1:SetCondition(c47500025.condition)
e1:SetTarget(c47500025.target)
e1:SetOperation(c47500025.activate)
c:RegisterEffect(e1)
c47500025.act_effect=e1
aux.AddCodeList(c,47500000)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,47500025+EFFECT_COUNT_CODE_OATH)
e1:SetCondition(c47500025.condition)
e1:SetTarget(c47500025.target)
e1:SetOperation(c47500025.activate)
c:RegisterEffect(e1)
c47500025.act_effect=e1
end
c47500025.card_code_list={47500000}
function c47500025.condition(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1
return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1
end
function c47500025.filter(c,e,tp)
return c:IsCode(47500000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_PENDULUM)
return c:IsCode(47500000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_PENDULUM)
end
function c47500025.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c47500025.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c47500025.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
end
function c47500025.activate(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47500025.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47500025.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
\ No newline at end of file
expansions/script/c47500028.lua
View file @ 231a75bd
--晓之空
function c47500028.initial_effect(c)
aux.AddCodeList(c,47500000)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
......@@ -10,7 +11,6 @@ function c47500028.initial_effect(c)
e1:SetOperation(c47500028.activate)
c:RegisterEffect(e1)
end
c47500028.card_code_list={47500000}
function c47500028.filter1(c,e,tp)
local rk=c:GetRank()
return rk>1 and c:IsFaceup() and c:IsType(TYPE_PENDULUM) and (aux.IsCodeListed(c,47500000) or c:IsSetCard(0x5d0)) and Duel.IsExistingMatchingCard(c47500028.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,rk,c:GetRace()) and Duel.GetLocationCountFromEx(tp,tp,c)>0 and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
......
expansions/script/c47500030.lua
View file @ 231a75bd
--空域图
function c47500030.initial_effect(c)
aux.AddCodeList(c,47500000)
--Activate
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_ACTIVATE)
......@@ -30,7 +31,6 @@ function c47500030.initial_effect(c)
e5:SetValue(c47500030.effectfilter)
c:RegisterEffect(e5)
end
c47500030.card_code_list={47500000}
function c47500030.costfilter(c)
return aux.IsCodeListed(c,47500000) and c:IsReleasable() and c:IsType(TYPE_PENDULUM)
end
......
expansions/script/c47500031.lua
View file @ 231a75bd
--机炎复苏
function c47500031.initial_effect(c)
--act in hand
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e0:SetCondition(c47500031.handcon)
c:RegisterEffect(e0)
--pendulum effect
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47500031,0))
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,47500031)
e1:SetCost(c47500031.cost)
e1:SetOperation(c47500031.activate)
c:RegisterEffect(e1)
c47500031.act_effect=e1
--reborn
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,47500031)
e2:SetCost(aux.bfgcost)
e2:SetTarget(c47500031.sptg)
e2:SetOperation(c47500031.spop)
c:RegisterEffect(e2)
aux.AddCodeList(c,47500000)
--act in hand
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e0:SetCondition(c47500031.handcon)
c:RegisterEffect(e0)
--pendulum effect
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47500031,0))
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,47500031)
e1:SetCost(c47500031.cost)
e1:SetOperation(c47500031.activate)
c:RegisterEffect(e1)
c47500031.act_effect=e1
--reborn
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,47500031)
e2:SetCost(aux.bfgcost)
e2:SetTarget(c47500031.sptg)
e2:SetOperation(c47500031.spop)
c:RegisterEffect(e2)
end
c47500031.card_code_list={47500000}
function c47500031.handcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()==tp
return Duel.GetTurnPlayer()==tp
end
function c47500031.costfilter(c)
return c:IsSetCard(0x5d0) and c:IsAbleToExtraAsCost()
return c:IsSetCard(0x5d0) and c:IsAbleToExtraAsCost()
end
function c47500031.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c47500031.costfilter,tp,LOCATION_HAND,0,1,nil) end
local g=Duel.SelectMatchingCard(tp,c47500031.costfilter,tp,LOCATION_HAND,0,1,1,nil)
Duel.SendtoExtraP(g,nil,0,REASON_COST)
if chk==0 then return Duel.IsExistingMatchingCard(c47500031.costfilter,tp,LOCATION_HAND,0,1,nil) end
local g=Duel.SelectMatchingCard(tp,c47500031.costfilter,tp,LOCATION_HAND,0,1,1,nil)
Duel.SendtoExtraP(g,nil,0,REASON_COST)
end
function c47500031.filter(c)
return c:IsType(TYPE_PENDULUM) and aux.IsCodeListed(c,47500000) and not c:IsForbidden() and c:IsSummonableCard()
return c:IsType(TYPE_PENDULUM) and aux.IsCodeListed(c,47500000) and not c:IsForbidden() and c:IsSummonableCard()
end
function c47500031.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(c47500031.filter,tp,LOCATION_HAND+LOCATION_EXTRA,0,nil)
local ct=0
if Duel.CheckLocation(tp,LOCATION_PZONE,0) then ct=ct+1 end
if Duel.CheckLocation(tp,LOCATION_PZONE,1) then ct=ct+1 end
if ct>0 and g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
local sg=g:Select(tp,1,ct,nil)
local sc=sg:GetFirst()
while sc do
Duel.MoveToField(sc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
sc=sg:GetNext()
end
end
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(c47500031.filter,tp,LOCATION_HAND+LOCATION_EXTRA,0,nil)
local ct=0
if Duel.CheckLocation(tp,LOCATION_PZONE,0) then ct=ct+1 end
if Duel.CheckLocation(tp,LOCATION_PZONE,1) then ct=ct+1 end
if ct>0 and g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
local sg=g:Select(tp,1,ct,nil)
local sc=sg:GetFirst()
while sc do
Duel.MoveToField(sc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
sc=sg:GetNext()
end
end
end
function c47500031.spfilter(c,e,tp)
return c:IsAttribute(ATTRIBUTE_FIRE) and not c:IsSummonableCard() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
return c:IsAttribute(ATTRIBUTE_FIRE) and not c:IsSummonableCard() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c47500031.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c47500031.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c47500031.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
end
function c47500031.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47500031.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47500031.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
\ No newline at end of file
expansions/script/c47500101.lua
View file @ 231a75bd
--拳皇 姬塔
function c47500101.initial_effect(c)
aux.AddCodeList(c,47500000)
--synchro summon
aux.AddSynchroMixProcedure(c,aux.Tuner(nil),aux.Tuner(nil),nil,aux.FilterBoolFunction(Card.IsCode,47500000),1,1)
c:EnableReviveLimit()
......@@ -61,7 +62,6 @@ function c47500101.initial_effect(c)
e8:SetOperation(c47500101.fop2)
c:RegisterEffect(e8)
end
c47500101.card_code_list={47500000}
function c47500101.pefilter(c)
return c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER) and c:IsLevel(8)
end
......
expansions/script/c47500103.lua
View file @ 231a75bd
--斯巴达 姬塔
function c47500103.initial_effect(c)
aux.AddCodeList(c,47500000)
aux.EnablePendulumAttribute(c,false)
--fusion material
c:EnableReviveLimit()
......@@ -56,7 +57,6 @@ function c47500103.initial_effect(c)
e8:SetOperation(c47500103.disop2)
c:RegisterEffect(e8)
end
c47500103.card_code_list={47500000}
function c47500103.pefilter(c)
return c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER)
end
......
expansions/script/c47500104.lua
View file @ 231a75bd
--大魔导师 姬塔
function c47500104.initial_effect(c)
aux.AddCodeList(c,47500000)
--material
c:EnableReviveLimit()
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_PENDULUM),8,2)
......@@ -53,7 +54,6 @@ function c47500104.initial_effect(c)
c:RegisterEffect(e6)
end
c47500104.pendulum_level=8
c47500104.card_code_list={47500000}
function c47500104.mfilter(c,xyzc)
return c:IsLevel(8) and c:IsRace(RACE_SPELLCASTER)
end
......
expansions/script/c47501002.lua
View file @ 231a75bd
--狂战士 姬塔
function c47501002.initial_effect(c)
aux.AddCodeList(c,47500000)
--material
c:EnableReviveLimit()
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WARRIOR),8,2)
......@@ -64,7 +65,6 @@ function c47501002.initial_effect(c)
c:RegisterEffect(e6)
end
c47501002.pendulum_level=8
c47501002.card_code_list={47500000}
function c47501002.mfilter(c,xyzc)
return c:IsLevel(8) and c:IsRace(RACE_WARRIOR)
end
......
expansions/script/c47501005.lua
View file @ 231a75bd
--混沌领主 姬塔
function c47501005.initial_effect(c)
aux.AddCodeList(c,47500000)
--material
c:EnableReviveLimit()
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsCode,47500000),8,2)
......@@ -62,7 +63,6 @@ function c47501005.initial_effect(c)
c:RegisterEffect(e7)
end
c47501005.pendulum_level=8
c47501005.card_code_list={47500000}
function c47501005.mfilter(c)
return c:IsLevel(8)
end
......
expansions/script/c47501006.lua
View file @ 231a75bd
--圣者 姬塔
function c47501006.initial_effect(c)
aux.AddCodeList(c,47500000)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSynchroType,TYPE_SYNCHRO),aux.FilterBoolFunction(Card.IsCode,47500000),1,1)
c:EnableReviveLimit()
......@@ -42,7 +43,6 @@ function c47501006.initial_effect(c)
e5:SetOperation(c47501006.spop)
c:RegisterEffect(e5)
end
c47501006.card_code_list={47500000}
function c47501006.pefilter(c)
return c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER)
end
......
expansions/script/c47501007.lua
View file @ 231a75bd
--猎犬 姬塔
function c47501007.initial_effect(c)
aux.AddCodeList(c,47500000)
aux.EnablePendulumAttribute(c,false)
--fusion material
c:EnableReviveLimit()
......@@ -65,7 +66,6 @@ function c47501007.initial_effect(c)
e6:SetOperation(c47501007.sop)
c:RegisterEffect(e6)
end
c47501007.card_code_list={47500000}
function c47501007.pefilter(c)
return c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER)
end
......
expansions/script/c47501008.lua
View file @ 231a75bd
--极乐净土 姬塔
function c47501008.initial_effect(c)
aux.AddCodeList(c,47500000)
--pendulum summon
aux.EnablePendulumAttribute(c)
--fusion material
......
expansions/script/c47501009.lua
View file @ 231a75bd
--义贼 姬塔
function c47501009.initial_effect(c)
aux.AddCodeList(c,47500000)
--material
c:EnableReviveLimit()
aux.AddXyzProcedureLevelFree(c,c47501009.mfilter,c47501009.xyzcheck,2,2)
......@@ -53,7 +54,6 @@ function c47501009.initial_effect(c)
c:RegisterEffect(e5)
end
c47501009.pendulum_level=8
c47501009.card_code_list={47500000}
function c47501009.mfilter(c)
return c:IsLevel(8)
end
......
expansions/script/c47501010.lua
View file @ 231a75bd
--天女 姬塔
function c47501010.initial_effect(c)
aux.AddCodeList(c,47500000)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsCode,47500000),aux.FilterBoolFunction(Card.IsType,TYPE_SYNCHRO),1,1)
c:EnableReviveLimit()
......@@ -72,7 +73,6 @@ function c47501010.initial_effect(c)
e8:SetTargetRange(LOCATION_MZONE,0)
c:RegisterEffect(e8)
end
c47501010.card_code_list={47500000}
function c47501010.pefilter(c)
return c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER)
end
......
expansions/script/c47501011.lua
View file @ 231a75bd
--剑豪 姬塔
function c47501011.initial_effect(c)
aux.AddCodeList(c,47500000)
aux.EnablePendulumAttribute(c,false)
--fusion material
c:EnableReviveLimit()
......@@ -49,7 +50,6 @@ function c47501011.initial_effect(c)
e4:SetValue(2)
c:RegisterEffect(e4)
end
c47501011.card_code_list={47500000}
function c47501011.pefilter(c)
return c:IsRace(RACE_WARRIOR) or c:IsRace(RACE_SPELLCASTER)
end
......
expansions/script/c47510007.lua
View file @ 231a75bd
......@@ -55,11 +55,10 @@ function c47510007.psplimit(e,c,tp,sumtp,sumpos)
return not c47510007.pefilter(c) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
end
function c47510007.spfilter(c,e,tp)
return (c:IsSetCard(0x5da) or c:IsSetCard(0x5de)) and not c:IsType(TYPE_LINK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
return (c:IsSetCard(0x5da) or c:IsSetCard(0x5de)) and not c:IsType(TYPE_LINK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c47510007.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCountFromEx(tp,tp,e:GetHandler())>0
and Duel.IsExistingMatchingCard(c47510007.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
if chk==0 then return Duel.IsExistingMatchingCard(c47510007.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c47510007.spop(e,tp,eg,ep,ev,re,r,rp)
......
expansions/script/c47510245.lua
View file @ 231a75bd
......@@ -118,7 +118,7 @@ end
function c47510245.filter2(c,e,tp,mc,rk,rc,code)
if c:GetOriginalCode()==6165656 and code~=48995978 then return false end
return c:IsRank(rk) and c:IsRace(rc) and mc:IsCanBeXyzMaterial(c)
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c47510245.xtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c47510245.filter1(chkc,e,tp) end
......@@ -130,7 +130,7 @@ end
function c47510245.xop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if Duel.GetLocationCountFromEx(tp,tp,tc)<=0 or not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
if not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47510245.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank()+1,tc:GetRace(),tc:GetCode())
......
expansions/script/c47520013.lua
View file @ 231a75bd
......@@ -153,13 +153,13 @@ function c47520013.filter(c,e,tp)
return c:IsCode(47520015) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
end
function c47520013.awtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCountFromEx(tp)>0
if chk==0 then return Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_SYNCHRO)>0
and aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL)
and Duel.IsExistingMatchingCard(c47520013.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c47520013.awop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCountFromEx(tp)<=0 or not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
if Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_SYNCHRO)<1 or not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47520013.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
local tc=g:GetFirst()
......
expansions/script/c47530004.lua
View file @ 231a75bd
......@@ -68,7 +68,7 @@ function c47530004.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
end
function c47530004.spop(e,tp,eg,ep,ev,re,r,rp)
local zone=aux.GetMultiLinkedZone(tp)
if Duel.GetLocationCountFromEx(tp)<=0 or zone==0 then return end
if zone==0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47530004.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,zone)
if g:GetCount()>0 then
......
expansions/script/c47530015.lua
View file @ 231a75bd
......@@ -59,11 +59,10 @@ function c47530015.spcon(e,tp,eg,ep,ev,re,r,rp)
return c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_XYZ)
end
function c47530015.spfilter2(c,e,tp)
return c:IsSetCard(0x5d5) and not c:IsType(TYPE_LINK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
return c:IsSetCard(0x5d5) and not c:IsType(TYPE_LINK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c47530015.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCountFromEx(tp)>0
and Duel.IsExistingMatchingCard(c47530015.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
if chk==0 then return Duel.IsExistingMatchingCard(c47530015.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c47530015.spop(e,tp,eg,ep,ev,re,r,rp)
......
expansions/script/c47530100.lua
View file @ 231a75bd
......@@ -97,12 +97,12 @@ function c47530100.spfilter(c,e,tp)
return c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsLink(3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c47530100.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCountFromEx(tp)>0
if chk==0 then return Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_LINK)>0
and Duel.IsExistingMatchingCard(c47530100.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c47530100.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCountFromEx(tp)<=0 then return end
if Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_LINK)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47530100.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
if g:GetCount()>0 then
......
expansions/script/c47550008.lua
View file @ 231a75bd
--苍空剑士 丽莎
function c47550008.initial_effect(c)
aux.AddCodeList(c,47500000)
--pendulum summon
aux.EnablePendulumAttribute(c)
--splimit
......@@ -43,7 +44,6 @@ function c47550008.initial_effect(c)
e4:SetOperation(c47550008.pspop)
c:RegisterEffect(e4)
end
c47550008.card_code_list={47500000}
function c47550008.pefilter(c)
return c:IsRace(RACE_WARRIOR) or c:IsSetCard(0x5da) or c:IsAttribute(ATTRIBUTE_WIND) or c:IsRace(RACE_SPELLCASTER)
end
......
expansions/script/c47551124.lua
View file @ 231a75bd
--蝴蝶幻刃
function c47551124.initial_effect(c)
aux.AddCodeList(c,47500000)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_REMOVE+CATEGORY_DISABLE+CATEGORY_DAMAGE)
......@@ -27,7 +28,6 @@ function c47551124.initial_effect(c)
e3:SetCondition(c47551124.handcon)
c:RegisterEffect(e3)
end
c47551124.card_code_list={47500000}
function c47551124.filter(c)
return c:IsType(TYPE_XYZ) and c:IsSetCard(0x5d0)
end
......
expansions/script/c47570400.lua
View file @ 231a75bd
......@@ -211,12 +211,11 @@ function c47570400.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.Release(e:GetHandler(),REASON_COST)
end
function c47570400.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c47570400.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
if chk==0 then return Duel.IsExistingMatchingCard(c47570400.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) and Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_FUSION)>0 end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c47570400.spop(e,tp,eg,ep,ev,re,r,rp)
local ft=Duel.GetLocationCountFromEx(tp)
if ft<=0 or not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
if Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_FUSION)<=0 or not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47570400.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
......
expansions/script/c47579908.lua
View file @ 231a75bd
--天司长 圣德芬
function c47579908.initial_effect(c)
c:SetSPSummonOnce(47579908)
--pendulum summon
aux.EnablePendulumAttribute(c,false)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(c47579908.synfilter),aux.NonTuner(c47579908.synfilter2),2)
c:EnableReviveLimit()
--cannot special summon
local e0=Effect.CreateEffect(c)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_SPSUMMON_CONDITION)
e0:SetValue(aux.synlimit)
c:RegisterEffect(e0)
--indes
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCondition(c47579908.inmcon)
e1:SetValue(c47579908.efilter)
c:RegisterEffect(e1)
--Ain Soph Aur
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(47579908,0))
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_ATTACK_ANNOUNCE)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,47579908+EFFECT_COUNT_CODE_OATH)
e2:SetCondition(c47579908.batcon)
e2:SetOperation(c47579908.batop)
c:RegisterEffect(e2)
--pendulum
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_LEAVE_FIELD)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCondition(c47579908.pencon)
e3:SetTarget(c47579908.pentg)
e3:SetOperation(c47579908.penop)
c:RegisterEffect(e3)
--immune
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetCode(EFFECT_IMMUNE_EFFECT)
e4:SetRange(LOCATION_PZONE)
e4:SetTargetRange(LOCATION_MZONE,0)
e4:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_FAIRY))
e4:SetValue(c47579908.efilter)
c:RegisterEffect(e4)
--spsummon bgm
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e5:SetCode(EVENT_SPSUMMON_SUCCESS)
e5:SetOperation(c47579908.spsuc)
c:RegisterEffect(e5)
--pierce
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_SINGLE)
e6:SetCode(EFFECT_PIERCE)
e6:SetRange(LOCATION_MZONE)
c:RegisterEffect(e6)
c:SetSPSummonOnce(47579908)
--pendulum summon
aux.EnablePendulumAttribute(c,false)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(c47579908.synfilter),aux.NonTuner(c47579908.synfilter2),2)
c:EnableReviveLimit()
--cannot special summon
local e0=Effect.CreateEffect(c)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_SPSUMMON_CONDITION)
e0:SetValue(aux.synlimit)
c:RegisterEffect(e0)
--indes
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCondition(c47579908.inmcon)
e1:SetValue(c47579908.efilter)
c:RegisterEffect(e1)
--Ain Soph Aur
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(47579908,0))
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_ATTACK_ANNOUNCE)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,47579908+EFFECT_COUNT_CODE_OATH)
e2:SetCondition(c47579908.batcon)
e2:SetOperation(c47579908.batop)
c:RegisterEffect(e2)
--pendulum
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_LEAVE_FIELD)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCondition(c47579908.pencon)
e3:SetTarget(c47579908.pentg)
e3:SetOperation(c47579908.penop)
c:RegisterEffect(e3)
--immune
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetCode(EFFECT_IMMUNE_EFFECT)
e4:SetRange(LOCATION_PZONE)
e4:SetTargetRange(LOCATION_MZONE,0)
e4:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_FAIRY))
e4:SetValue(c47579908.efilter)
c:RegisterEffect(e4)
--spsummon bgm
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e5:SetCode(EVENT_SPSUMMON_SUCCESS)
e5:SetOperation(c47579908.spsuc)
c:RegisterEffect(e5)
--pierce
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_SINGLE)
e6:SetCode(EFFECT_PIERCE)
e6:SetRange(LOCATION_MZONE)
c:RegisterEffect(e6)
end
function c47579908.synfilter(c)
return c:IsRace(RACE_FAIRY) and c:IsType(TYPE_SYNCHRO) and c:IsType(TYPE_TUNER)
return c:IsRace(RACE_FAIRY) and c:IsType(TYPE_SYNCHRO) and c:IsType(TYPE_TUNER)
end
function c47579908.synfilter2(c)
return c:IsRace(RACE_FAIRY) and c:IsType(TYPE_SYNCHRO+TYPE_FUSION)
return c:IsRace(RACE_FAIRY) and c:IsType(TYPE_SYNCHRO+TYPE_FUSION)
end
function c47579908.inmcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
end
function c47579908.efilter(e,te)
return te:GetOwner()~=e:GetOwner()
return te:GetOwner()~=e:GetOwner()
end
function c47579908.batcon(e,tp,eg,ep,ev,re,r,rp)
return (e:GetHandler()==Duel.GetAttacker() and Duel.GetAttackTarget()~=nil) or e:GetHandler()==Duel.GetAttackTarget()
return (e:GetHandler()==Duel.GetAttacker() and Duel.GetAttackTarget()~=nil) or e:GetHandler()==Duel.GetAttackTarget()
end
function c47579908.atkfilter(c)
return c:IsFaceup() and c:IsRace(RACE_FAIRY) and not c:IsCode(47579908)
return c:IsFaceup() and c:IsRace(RACE_FAIRY) and not c:IsCode(47579908)
end
function c47579908.batop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c47579908.atkfilter,tp,LOCATION_MZONE,0,nil)
local atk=g:GetSum(Card.GetAttack)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
e1:SetValue(atk)
c:RegisterEffect(e1)
Duel.Hint(HINT_SOUND,0,aux.Stringid(47579908,2))
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c47579908.atkfilter,tp,LOCATION_MZONE,0,nil)
local atk=g:GetSum(Card.GetAttack)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
e1:SetValue(atk)
c:RegisterEffect(e1)
Duel.Hint(HINT_SOUND,0,aux.Stringid(47579908,2))
end
function c47579908.indestg(e,c)
return c==e:GetHandler():GetBattleTarget()
return c==e:GetHandler():GetBattleTarget()
end
function c47579908.pencon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsFaceup() and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
local c=e:GetHandler()
return c:IsFaceup() and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
end
function c47579908.filter(c,e,tp)
return c:IsCode(47551000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
return c:IsCode(47551000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c47579908.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCountFromEx(tp)>0
and Duel.IsExistingMatchingCard(c47579908.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) and Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
if chk==0 then return Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_LINK)>0
and Duel.IsExistingMatchingCard(c47579908.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) and Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c47579908.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) and Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
if Duel.GetLocationCountFromEx(tp)<=0 then return end
local tg=Duel.GetFirstMatchingCard(c47579908.filter,tp,LOCATION_EXTRA,0,nil,e,tp)
if tg then
Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
end
end
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) and Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
if Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_LINK)<=0 then return end
local tg=Duel.GetFirstMatchingCard(c47579908.filter,tp,LOCATION_EXTRA,0,nil,e,tp)
if tg then
Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
end
end
end
function c47579908.efilter(e,te)
return te:GetOwnerPlayer()~=e:GetHandlerPlayer() and te:IsActiveType(TYPE_MONSTER)
return te:GetOwnerPlayer()~=e:GetHandlerPlayer() and te:IsActiveType(TYPE_MONSTER)
end
function c47579908.spsuc(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_MUSIC,0,aux.Stringid(47579908,2))
Duel.Hint(HINT_MUSIC,0,aux.Stringid(47579908,2))
end
\ No newline at end of file
expansions/script/c47590008.lua
View file @ 231a75bd
This diff is collapsed.
expansions/script/c47591392.lua
View file @ 231a75bd
......@@ -14,7 +14,7 @@ function c47591392.filter(c,e,tp)
return ((c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_WARRIOR) and c:IsLevel(5)) or (c:IsAttribute(ATTRIBUTE_WATER) and c:IsRace(RACE_PSYCHO) and c:IsLevel(3)) or (c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_SPELLCASTER) and c:IsLevel(4))) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c47591392.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCountFromEx(tp)>0 and Duel.IsExistingMatchingCard(c47591392.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_XYZ)>0 and Duel.IsExistingMatchingCard(c47591392.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
end
function c47591392.spfilter2(c,e,tp,mc)
......@@ -22,7 +22,7 @@ function c47591392.spfilter2(c,e,tp,mc)
end
function c47591392.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or Duel.GetLocationCountFromEx(tp)<1 then return end
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_XYZ)<1 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47591392.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
local tc=g:GetFirst()
......
expansions/script/c47598773.lua
View file @ 231a75bd
......@@ -125,13 +125,13 @@ function c47598773.spfilter(c,e,tp)
and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c47598773.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCountFromEx(tp)>0
if chk==0 then return Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_XYZ)>0
and Duel.IsExistingMatchingCard(c47598773.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c47598773.spop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
if Duel.GetLocationCountFromEx(tp)<1 then return end
if Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_XYZ)<1 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47598773.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
if g:GetCount()>0 then
......
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