Commit 63bf185a authored by 聖園ミカ's avatar 聖園ミカ 🐟

byd

parent 7d159eee
Pipeline #30074 passed with stage
in 27 minutes and 7 seconds
No preview for this file type
--黑白神的准则
function c12026000.initial_effect(c)
--draw
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(12026000,0))
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetRange(LOCATION_HAND)
e1:SetCost(c12026000.cost)
e1:SetOperation(c12026000.operation)
c:RegisterEffect(e1)
--to hand
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(12026000,1))
e2:SetCategory(CATEGORY_TOHAND)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetRange(LOCATION_GRAVE)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetCountLimit(1,12026000)
e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e2:SetCondition(c12026000.thcon)
e2:SetTarget(c12026000.thtg)
e2:SetOperation(c12026000.thop)
c:RegisterEffect(e1)
end
function c12026000.thcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c12026000.thcfilter,tp,LOCATION_ONFIELD,0,1,nil)
end
function c12026000.thcfilter(c)
return c:IsFaceup() and c:IsCode(12009100,12009101)
end
function c12026000.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsAbleToHand() and chkc:IsControler(1-tp) end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function c12026000.thop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
end
end
function c12026000.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsDiscardable() end
Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
end
function c12026000.operation(e,tp,eg,ep,ev,re,r,rp)
local rct=1
if Duel.GetTurnPlayer()~=tp then rct=0 end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,rct)
e1:SetTarget(c12026000.splimit)
e1:SetTargetRange(1,1)
Duel.RegisterEffect(e1,tp)
local e14=Effect.CreateEffect(e:GetHandler())
e14:SetType(EFFECT_TYPE_FIELD)
e14:SetCode(EFFECT_CANNOT_SUMMON)
e14:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e14:SetTargetRange(1,0)
e14:SetTarget(c12026000.splimit1)
Duel.RegisterEffect(e14,tp)
local e15=e14:Clone()
e15:SetCode(EFFECT_CANNOT_MSET)
Duel.RegisterEffect(e15,tp)
end
function c12026000.scon1(e,tp)
local tp=e:GetOwnerPlayer()
return Duel.GetCustomActivityCount(12026000,tp,ACTIVITY_SUMMON)>1
end
function c12026000.splimit1(e,c)
return not (c:IsLevelBelow(4) or Duel.IsExistingMatchingCard(Card.IsType,tp,0,LOCATION_MZONE,1,nil,TYPE_MONSTER) )
end
function c12026000.splimit(e,c,sump,sumtype,sumpos,targetp,se)
if c:IsType(TYPE_FUSION) then return c:IsLocation(LOCATION_EXTRA) or not se:GetHandler():IsType(TYPE_SPELL) end
if c:IsType(TYPE_SYNCHRO) then return c:IsLocation(LOCATION_EXTRA) and sumtype&SUMMON_TYPE_SYNCHRO ~=SUMMON_TYPE_SYNCHRO end
if c:IsType(TYPE_PENDULUM) then return c:IsLocation(LOCATION_EXTRA) and sumtype&SUMMON_TYPE_PENDULUM ~=SUMMON_TYPE_PENDULUM end
if c:IsType(TYPE_LINK) then return c:IsLocation(LOCATION_EXTRA) and sumtype&SUMMON_TYPE_LINK ~=SUMMON_TYPE_LINK end
if c:IsType(TYPE_XYZ) then return c:IsLocation(LOCATION_EXTRA) and sumtype&SUMMON_TYPE_XYZ ~=SUMMON_TYPE_XYZ end
return false
end
--恩佐斯的呼唤
function c47570003.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,47570003+EFFECT_COUNT_CODE_OATH)
e1:SetTarget(c47570003.target)
e1:SetOperation(c47570003.activate)
c:RegisterEffect(e1)
--Call of N'zoth
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_CHAINING)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCountLimit(1,47570004)
e2:SetCondition(c47570003.checon)
e2:SetCost(c47570003.checost)
e2:SetTarget(c47570003.chetg)
e2:SetOperation(c47570003.cheop)
c:RegisterEffect(e2)
end
function c47570003.filter(c)
return c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end
function c47570003.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c47570003.filter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c47570003.filter,tp,0,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectTarget(tp,c47570003.filter,tp,0,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,1-tp,LOCATION_MZONE)
end
function c47570003.activate(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,tp,REASON_EFFECT)~=0 then
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CHANGE_ATTRIBUTE)
e1:SetTargetRange(0xff,0xff)
e1:SetTarget(c47570003.chtg)
e1:SetLabelObject(tc)
e1:SetValue(ATTRIBUTE_DARK)
e1:SetReset(RESET_PHASE+PHASE_END,2)
Duel.RegisterEffect(e1,tp)
local e2=e1:Clone()
e2:SetCode(EFFECT_CHANGE_RACE)
e2:SetValue(RACE_FAIRY)
Duel.RegisterEffect(e2,tp)
local e3=e1:Clone()
e3:SetCode(EFFECT_UNRELEASABLE_NONSUM)
Duel.RegisterEffect(e3,tp)
local e4=e3:Clone()
e4:SetCode(EFFECT_UNRELEASABLE_SUM)
Duel.RegisterEffect(e4,tp)
local e5=e1:Clone()
e5:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
e5:SetValue(c47570003.fuslimit)
Duel.RegisterEffect(e5,tp)
local e6=e1:Clone()
e6:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
Duel.RegisterEffect(e6,tp)
local e7=e1:Clone()
e7:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
Duel.RegisterEffect(e7,tp)
end
end
function c47570003.fuslimit(e,c,sumtype)
return sumtype==SUMMON_TYPE_FUSION
end
function c47570003.chtg(e,c)
local tc=e:GetLabelObject()
return c:IsOriginalCodeRule(tc:GetOriginalCodeRule())
end
function c47570003.checon(e,tp,eg,ep,ev,re,r,rp)
local ex=Duel.GetOperationInfo(ev,CATEGORY_CONTROL)
local ex2=re:IsHasCategory(CATEGORY_CONTROL)
return (ex or ex2) and Duel.IsChainDisablable(ev)
end
function c47570003.checost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:IsAbleToRemoveAsCost() end
Duel.Remove(c,REASON_COST)
end
function c47570003.chfilter(c)
return c:IsType(TYPE_MONSTER) and c:IsAbleToChangeControler()
end
function c47570003.chetg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c47570003.chfilter,rp,0,LOCATION_MZONE,1,nil) end
end
function c47570003.cheop(e,tp,eg,ep,ev,re,r,rp)
local g=Group.CreateGroup()
Duel.ChangeTargetCard(ev,g)
Duel.ChangeChainOperation(ev,c47570003.repop)
end
function c47570003.filter(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP)
end
function c47570003.repop(e,tp,eg,ep,ev,re,r,rp)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
local ct=g:GetCount()
if ft<ct then return end
local tc=g:GetFirst()
local c=e:GetHandler()
while tc do
Duel.GetControl(tc,1-tp)
tc=g:GetNext()
end
end
\ No newline at end of file
--暗钢机龙
function c47580001.initial_effect(c)
--link summon
c:EnableReviveLimit()
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_DRAGON),2,2,c47580001.lcheck)
--tohand
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47580001,0))
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCountLimit(1,47580001)
e1:SetCost(c47580001.thcost)
e1:SetCondition(c47580001.thcon)
e1:SetTarget(c47580001.thtg)
e1:SetOperation(c47580001.thop)
c:RegisterEffect(e1)
--spsummon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(47580001,1))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetCountLimit(1,47580002)
e2:SetCost(c47580001.spcost)
e2:SetTarget(c47580001.sptg)
e2:SetOperation(c47580001.spop)
c:RegisterEffect(e2)
Duel.AddCustomActivityCounter(47580001,ACTIVITY_SPSUMMON,c47580001.counterfilter)
end
function c47580001.counterfilter(c)
return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK)
end
function c47580001.lfilter(c)
return c:IsType(TYPE_LINK) and c:IsLink(1)
end
function c47580001.lcheck(g,lc)
return g:IsExists(c47580001.lfilter,1,nil)
end
function c47580001.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCustomActivityCount(47580001,tp,ACTIVITY_SPSUMMON)==0 end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(1,0)
e1:SetLabelObject(e)
e1:SetTarget(c47580001.splimit)
Duel.RegisterEffect(e1,tp)
end
function c47580001.splimit(e,c,sump,sumtype,sumpos,targetp,se)
return not (c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK))
end
function c47580001.thcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
end
function c47580001.thfilter(c)
return c:IsCode(47580003) and c:IsAbleToHand()
end
function c47580001.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c47580001.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c47580001.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c47580001.thfilter,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
function c47580001.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCustomActivityCount(47580001,tp,ACTIVITY_SPSUMMON)==0 end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(1,0)
e1:SetLabelObject(e)
e1:SetTarget(c47580001.splimit)
Duel.RegisterEffect(e1,tp)
end
function c47580001.spcon(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
end
function c47580001.spfilter(c,e,tp)
return c:IsLevelBelow(4) and c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c47580001.tgfilter(c)
return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK)
end
function c47580001.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c47580001.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) and Duel.IsExistingTarget(c47580001.tgfilter,tp,LOCATION_MZONE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
Duel.SelectTarget(tp,c47580001.tgfilter,tp,LOCATION_MZONE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
end
function c47580001.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,aux.NecroValleyFilter(c47580001.spfilter),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
local tc=Duel.GetFirstTarget()
if not tc:IsRelateToEffect(e) then return end
Duel.BreakEffect()
Duel.Destroy(tc,REASON_EFFECT)
end
\ No newline at end of file
--自律引导扇区
function c47580003.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(47580003,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetCondition(c47580003.spcon)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1,47580003)
e2:SetCost(c47580003.spcost)
e2:SetTarget(c47580003.sptg)
e2:SetOperation(c47580003.spop)
c:RegisterEffect(e2)
--
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(47580003,1))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_SZONE)
e3:SetCountLimit(1,47580003)
e3:SetCondition(c47580003.spcon2)
e3:SetCost(c47580003.spcost)
e3:SetTarget(c47580003.sptg2)
e3:SetOperation(c47580003.spop2)
c:RegisterEffect(e3)
Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,c47580003.counterfilter)
end
function c47580003.counterfilter(c)
return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK)
end
function c47580003.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(1,0)
e1:SetTarget(c47580003.splimit)
Duel.RegisterEffect(e1,tp)
end
function c47580003.splimit(e,c)
return not (c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK))
end
function c47580003.filter(c)
return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_LINK)
end
function c47580003.spfilter(c,e,tp)
return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
end
function c47580003.spcon(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
end
function c47580003.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c47580003.filter(chkc) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingTarget(c47580003.filter,tp,LOCATION_MZONE,0,1,nil)
and Duel.IsExistingMatchingCard(c47580003.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
Duel.SelectTarget(tp,c47580003.filter,tp,LOCATION_MZONE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
end
function c47580003.spop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
local ft=math.min(Duel.GetLocationCount(tp,LOCATION_MZONE),tc:GetLink())
if ft<=0 then return end
if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c47580003.spfilter2),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,ft,nil,e,tp)
local tc=g:GetFirst()
while tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) do
tc:RegisterFlagEffect(47580003,RESET_EVENT+RESETS_STANDARD,0,1)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_PHASE+PHASE_END)
e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e2:SetLabelObject(tc)
e2:SetCondition(c47580003.descon)
e2:SetOperation(c47580003.desop)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e2:SetCountLimit(1)
Duel.RegisterEffect(e2,tp)
Duel.SpecialSummonComplete()
tc=g:GetNext()
end
end
function c47580003.descon(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject()
if tc:GetFlagEffect(47580003)~=0 then
return true
else
e:Reset()
return false
end
end
function c47580003.desop(e,tp,eg,ep,ev,re,r,rp)
Duel.Destroy(e:GetLabelObject(),REASON_EFFECT)
end
function c47580003.cfilter(c)
return c:IsType(TYPE_LINK) and c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK)
end
function c47580003.spcon2(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
return g:GetCount()>0 and g:FilterCount(c47580003.cfilter,nil)==g:GetCount()
end
function c47580003.spfilter2(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE) and c:IsLevelBelow(4) and c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK)
end
function c47580003.fcheck(c,g)
return g:IsExists(Card.IsOriginalCodeRule,1,c,c:GetOriginalCodeRule())
end
function c47580003.fselect(g)
return g:GetClassCount(Card.GetLocation)==g:GetCount() and not g:IsExists(c47580003.fcheck,1,nil,g)
end
function c47580003.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
local g=Duel.GetMatchingGroup(c47580003.spfilter2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,nil,e,tp)
if chk==0 then return g:CheckSubGroup(c47580003.fselect,3,3) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE)
end
function c47580003.spop2(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<3 or Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c47580003.spfilter2),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,nil,e,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:SelectSubGroup(tp,c47580003.fselect,false,3,3)
if sg and sg:GetCount()==3 then
Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
end
end
\ No newline at end of file
--全装要塞龙
function c47580005.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),3)
c:EnableReviveLimit()
--indestructable
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e1:SetTarget(c47580005.indtg)
e1:SetValue(1)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e2:SetValue(aux.indoval)
c:RegisterEffect(e2)
local e3=e1:Clone()
e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
e3:SetValue(aux.tgoval)
c:RegisterEffect(e3)
--special summon
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(47580005,0))
e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetCountLimit(1)
e4:SetCondition(c47580005.spcon)
e4:SetTarget(c47580005.sptg)
e4:SetOperation(c47580005.spop)
c:RegisterEffect(e4)
--destroy
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(47580005,1))
e5:SetCategory(CATEGORY_DESTROY+CATEGORY_TOGRAVE)
e5:SetType(EFFECT_TYPE_QUICK_O)
e5:SetCode(EVENT_FREE_CHAIN)
e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
e5:SetRange(LOCATION_MZONE)
e5:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e5:SetCountLimit(1)
e5:SetTarget(c47580005.destg2)
e5:SetOperation(c47580005.desop2)
c:RegisterEffect(e5)
end
function c47580005.indtg(e,c)
return e:GetHandler():GetLinkedGroup():IsContains(c)
end
function c47580005.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c47580005.filter(c,e,tp)
return c:IsLevelBelow(4) and c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c47580005.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c47580005.filter(chkc,e,tp) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingTarget(c47580005.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c47580005.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
Duel.SetChainLimit(c47580005.chlimit)
end
function c47580005.chlimit(e,ep,tp)
return tp==ep
end
function c47580005.spop(e,tp,eg,ep,ev,re,r,rp)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<=1 then return end
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
local tc=g:GetFirst()
while tc do
Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)
tc:RegisterFlagEffect(47580005,RESET_EVENT+RESETS_STANDARD,0,1)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_PHASE+PHASE_END)
e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e2:SetLabelObject(tc)
e2:SetCondition(c47580005.descon)
e2:SetOperation(c47580005.desop)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e2:SetCountLimit(1)
Duel.RegisterEffect(e2,tp)
tc=g:GetNext()
end
Duel.SpecialSummonComplete()
end
function c47580005.descon(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject()
if tc:GetFlagEffect(47580005)~=0 then
return true
else
e:Reset()
return false
end
end
function c47580005.desop(e,tp,eg,ep,ev,re,r,rp)
Duel.Destroy(e:GetLabelObject(),REASON_EFFECT)
end
function c47580005.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return false end
if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil)
and Duel.IsExistingTarget(nil,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g1=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,1,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g2=Duel.SelectTarget(tp,nil,tp,0,LOCATION_ONFIELD,2,2,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g2,2,0,0)
end
function c47580005.desop2(e,tp,eg,ep,ev,re,r,rp)
local g1=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsControler,nil,1-tp)
local g2=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsControler,nil,tp)
Duel.Destroy(g1,REASON_EFFECT)
local tc=g2:GetFirst()
if not tc:IsRelateToEffect(e) then return end
Duel.BreakEffect()
Duel.Destroy(tc,REASON_EFFECT)
end
\ No newline at end of file
--奇迹的轨迹
function c47580345.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:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetCondition(c47580345.pspcon)
e1:SetOperation(c47580345.pspop)
c:RegisterEffect(e1)
end
function c47580345.pspcon(e,tp,eg,ep,ev,re,r,rp)
local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
if rpz==nil or lpz==rpz then return false end
local lscale=lpz:GetLeftScale()
local rscale=rpz:GetRightScale()
if lscale>rscale then lscale,rscale=rscale,lscale end
local loc=0
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then loc=loc+LOCATION_HAND end
if Duel.GetLocationCountFromEx(tp)>0 then loc=loc+LOCATION_EXTRA end
if loc==0 then return false end
local g=nil
if og then
g=og:Filter(Card.IsLocation,nil,loc)
else
g=Duel.GetFieldGroup(tp,loc,0)
end
return g:IsExists(aux.PConditionFilter,1,nil,e,tp,lscale,rscale,eset)
end
function c47580345.pspop(e,tp,eg,ep,ev,re,r,rp,sg,og)
local rpz=Duel.GetFieldCard(tp,LOCATION_PZONE,0)
local lpz=Duel.GetFieldCard(tp,LOCATION_PZONE,1)
local lscale=lpz:GetLeftScale()
local rscale=rpz:GetRightScale()
if lscale>rscale then lscale,rscale=rscale,lscale end
local eset={Duel.IsPlayerAffectedByEffect(tp,EFFECT_EXTRA_PENDULUM_SUMMON)}
local tg=nil
local loc=0
local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
local ft2=Duel.GetLocationCountFromEx(tp)
local ft=Duel.GetUsableMZoneCount(tp)
local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp]
if ect and ect<ft2 then ft2=ect end
if Duel.IsPlayerAffectedByEffect(tp,59822133) then
if ft1>0 then ft1=1 end
if ft2>0 then ft2=1 end
ft=1
end
if ft1>0 then loc=loc|LOCATION_HAND end
if ft2>0 then loc=loc|LOCATION_EXTRA end
if og then
tg=og:Filter(Card.IsLocation,nil,loc):Filter(aux.PConditionFilter,nil,e,tp,lscale,rscale,eset)
else
tg=Duel.GetMatchingGroup(aux.PConditionFilter,tp,loc,0,nil,e,tp,lscale,rscale,eset)
end
local ce=nil
local b1=PENDULUM_CHECKLIST&(0x1<<tp)==0
local b2=#eset>0
if b1 and b2 then
local options={1163}
for _,te in ipairs(eset) do
table.insert(options,te:GetDescription())
end
local op=Duel.SelectOption(tp,table.unpack(options))
if op>0 then
ce=eset[op]
end
elseif b2 and not b1 then
local options={}
for _,te in ipairs(eset) do
table.insert(options,te:GetDescription())
end
local op=Duel.SelectOption(tp,table.unpack(options))
ce=eset[op+1]
end
if ce then
tg=tg:Filter(aux.PConditionExtraFilterSpecific,nil,e,tp,lscale,rscale,ce)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=tg:SelectSubGroup(tp,aux.PendOperationCheck,true,1,#tg,ft1,ft2,ft)
if not g then return end
if ce then
Duel.Hint(HINT_CARD,0,ce:GetOwner():GetOriginalCode())
ce:Reset()
end
Duel.HintSelection(Group.FromCards(lpz))
Duel.HintSelection(Group.FromCards(rpz))
for tc in aux.Next(g) do
local bool=aux.PendulumSummonableBool(tc)
Duel.SpecialSummonStep(tc,SUMMON_TYPE_PENDULUM,tp,tp,bool,bool,POS_FACEUP)
end
Duel.SpecialSummonComplete()
for tc in aux.Next(g) do tc:CompleteProcedure() end
end
\ No newline at end of file
......@@ -160,6 +160,8 @@
#PurpleNightfall 1323710217 114 0x970-0x97f
!setname 0xc976 迷托邦
!setname 0x3977 绛胧烈刃
!setname 0x9977 汐击龙
!setname 0x3978 幽玄龙象
!setname 0x6978 龙宫城
!setname 0x97a 虚诞
......@@ -195,6 +197,8 @@
#一般怠惰安乐人 904675726 119 0x400-0x40f
!setname 0x401 四天王天
!setname 0x402 遗存的
!setname 0x404 乌莉丝
!setname 0x409 罗星
#◇Mizuhashi Parsee 1772438857 120 0xfa0-0xfaf 0xfb0-0xfbf
!setname 0x3fa6 普利兹姆
......@@ -233,7 +237,7 @@
!setname 0x451 神明吞噬者
!setname 0x453 神之仆从
#οゞ稀饭ゞo 1746923733 124 0x2a0-0x2af
#οゞ稀饭ゞo 1746923733 124 0x2a0-0x2af
!setname 0x32a0 澄净闪耀
!setname 0x52a0 澄闪
!setname 0x32a1 八狱
......@@ -337,6 +341,7 @@
!setname 0xcf3e 三终渊
!setname 0x3f3f 死蔷薇|非蔷薇
!setname 0x5f3f 异再神
!setname 0xaf3f 时际
#AddCodeList(15002000) 神名浅海卡名记述
#AddCodeList(15000113) 笼影深渊·红神尼奥迦恩卡名记述
#AddCodeList(15000351) 旧巢的容器空洞骑士卡名记述
......@@ -348,6 +353,9 @@
!counter 0xf3c 幻象指示物
!counter 0xf3f 隐痛指示物
#尤吉欧 2476284593 152 0x680-0x68f
!setname 0x680 神椿
#REIKAI 2404873791 161 0xcc0-0xccf
!setname 0xcc2 狐宇
!setname 0x3cc2 狐宇宙侠
......@@ -373,6 +381,8 @@
#玄羽 491236413 163 0xdc0-0xdcf
!setname 0xdc0 圣殿英雄
!setname 0xdc1 花信
!setname 0xdc3 X抗体
!setname 0xdc4 阿尔法兽
!counter 0xdc0 神耀指示物
!counter 0xdc1 辛指示物
......@@ -450,6 +460,12 @@
!setname 0x790 浅间
!setname 0x799 本当上手
#白喰若璃 3545696124 187 0x820-0x82f
!setname 0x820 雾海寂渊
!setname 0x821 血罪灵骸
!setname 0x822 奇物
!counter 0x1820 灵骸指示物
#imun. 3545696124 190 0x7a0-0x7af
!setname 0x7a0 渊海
!setname 0x7a1 阿勒赫姆
......@@ -485,6 +501,7 @@
!setname 0x901 连接进化魔法
!setname 0x90b 赛博
!setname 0x3902 午时游行
!setname 0xc902 污染界
!setname 0x6904 阿巴阿巴
!counter 0x903 自然界指示物
!counter 0x1904 阿巴阿巴指示物
......@@ -536,7 +553,7 @@
!setname 0x9390 猛毒性
!counter 0x1391 辉光指示物
#“米”雾中消失的X 257569726 257
#“米”雾中消失的X 257569726 257
#SetCard_MXHunHuang 昏黄
#格里芬生活部部长 2583980801 258 0x250-0x25f
......@@ -652,7 +669,7 @@
#setcard="FurryWarrior" 绒武士
#setcard="terraria" 泰拉
#setcard="TaleSouls" 传说之魂
#setcard="RCore" 热核侵染
#setcard="RCore" 热核侵染
!counter 0x1019 负荷指示物
!counter 0x1556 上升负荷指示物
......@@ -683,6 +700,7 @@
!setname 0x5344 Ratatoskr
!setname 0x6344 万由里
!setname 0x9344 白之女王
!setname 0xa344 园神
!counter 0x34f 时间指示物
#珈艾露 1248959763 335 0xa80-0xa8f
......@@ -750,7 +768,7 @@
!setname 0x9460 键★
!setname 0xa460 键★LB
!setname 0xc460 键★等
!setname 0x3461 亡命骗徒(Desperado Trickster
!setname 0x3461 亡命骗徒(Desperado Trickster
!setname 0x5461 亡命铁心(Desperado Heart
#named_with_NewVenture 踏破新世界
#named_with_ptsh 破天神狐
......@@ -838,20 +856,20 @@
#格拉摩根 1025644096 400 0xf10-0xf1f
!setname 0xf11 闪击
!setname 0x3f1a 瓦尔里纳
!setname 0x5f1a 云上骑士
!setname 0x6f1a 目镜
!setname 0x9f1a 魔合成
!setname 0xaf1a 蒸汽淑女
!setname 0xcf1a 泪骑士
!setname 0x3f1b 焰之巫女
!setname 0x5f1b 魔合妖魔
!setname 0x6f1b 降灵术师
!setname 0x9f1b 超新星格斗技场
!setname 0xaf1b 影潜者
!setname 0xcf1b 王冠圣域
!setname 0x3f1c 灾漩
!setname 0x5f1c 哈利
!setname 0x3f1a 瓦尔里纳
!setname 0x5f1a 云上骑士
!setname 0x6f1a 目镜
!setname 0x9f1a 魔合成
!setname 0xaf1a 蒸汽淑女
!setname 0xcf1a 泪骑士
!setname 0x3f1b 焰之巫女
!setname 0x5f1b 魔合妖魔
!setname 0x6f1b 降灵术师
!setname 0x9f1b 超新星格斗技场
!setname 0xaf1b 影潜者
!setname 0xcf1b 王冠圣域
!setname 0x3f1c 灾漩
!setname 0x5f1c 哈利
!setname 0x6f1c 奇术人形
!setname 0x9f1c 反抗黎骑
!setname 0xaf1c 朱斯贝克
......@@ -906,7 +924,7 @@
!setname 0x5ca4 花标本
!setname 0x6ca4 妖精乡
!setname 0x9ca4 妖精骑士
!setname 0xca5 LCB
!setname 0xca5 LCB
!setname 0x3ca5 LCB罪人
!setname 0x5ca5 LCBE.G.O
!setname 0x3ca6 染荆
......@@ -935,7 +953,7 @@
#积木 2528992628 502 0xcb0-0xcbf
!setname 0xcb1 数码兽
!setname 0xcb2 金刚
!setname 0xcb3
!setname 0xcb3 月花
!setname 0xcb4 复仇者
!setname 0xcb5 伏龙
!setname 0xcb6 天星
......@@ -983,6 +1001,7 @@
!setname 0xc527 安道拉
!setname 0x3528 魔宝
!setname 0x5528 道拉珠艾尔德
!setname 0x6528 炼铁
#Name_Grapha 格拉法
#AD钙 540551322 537 0x530-0x53f
......@@ -1085,7 +1104,9 @@
#夕阳下的猫/枫不见 3751989547/1060111344 626 0x6d0-0x6df
!setname 0x6d0 仙狸
!setname 0x6d1 世界猫咪联盟
!setname 0x6df 猫箱反转
!counter 0x16da 蝴蝶指示物
!counter 0x16df 基因污染指示物
#希尔薇 - 639 0x860-0x86f
......@@ -1154,8 +1175,8 @@
!setname 0x5da8 闪耀侍者
!setname 0x6da8 蜜食彩虹
!setname 0x9da8 奇妙仙灵
!setname 0xada8 神奇术士
!setname 0xcda8 幻世绘本
!setname 0xada8 神奇术士
!setname 0xcda8 幻世绘本
!setname 0x3da9 祸摆
!setname 0x5da9 星月转夜
!setname 0x9da9 彩恋
......@@ -1167,10 +1188,15 @@
!setname 0x9daa 花格色
!setname 0xadaa 夜行虫
!setname 0xcdaa 祸罪兽
!setname 0x3dab 暗狱
!setname 0x5dab 大械鬼
!setname 0x6dab 晶生花
!setname 0x9dab 拘灵警差
!setname 0x9dab 拘灵警差
!setname 0xcdab 千幻曲
!setname 0x6dac 神魔
!setname 0x9dac 仙石守护灵
!setname 0x3dad 灾兽
!setname 0x3dae 拟噬
#set_without_id 眩耀奇景
#set_without_id 走马幻景
#AddCodeList(65030086) 走马幻景卡名记述
......@@ -1192,6 +1218,7 @@
#乳主份子 858329915 658 0xa30-0xa3f
!setname 0xa31 盛夏回忆
!setname 0xa32 工坊武器
!setname 0xa33 植物娘
#今晚有宵夜吗 3080579137 666 0x660-0x66f
!setname 0x5660 百鬼夜行
......@@ -1319,6 +1346,9 @@
#△黑夜童谣 912052555 780 0x780-0x78f
!setname 0x780 伪神域
#幻灵~eidoion 3371467150 791 0xa10-0xa1f
!setname 0xa10 绯红编年史
#yee 1138772630 792 0x5c0-0x5cf
#cm.setcard="Abnormality" 异想体
!counter 0x15c1 异想体指示物
......@@ -1347,7 +1377,6 @@
#AddCodeList(81041005) 想要传达给你的爱恋卡名记述
#八云鵺 2637581064 819 0x850-0x85f
#【2024年9月30日前禁止投稿】
!setname 0x850 茶☆苦☆茶
!setname 0x1850 無☆茶☆苦☆茶
!setname 0x2850 滅☆茶☆苦☆茶
......@@ -1440,6 +1469,8 @@
!setname 0x3ef2 源氏·鬼切
!setname 0x5ef2 源氏·妖刀姬
!setname 0x3ef5 解放者
!setname 0xef6 铃兰之剑
!setname 0x3ef6 王国军
!setname 0x3ef7 圣化
!setname 0x5ef7 黯雾
......
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