Skip to content

Y
ygopro-222DIY-cards
Commit b88d87db authored by 大崎甜花's avatar 大崎甜花 Committed by GitHub
Browse files
Options

jnmlp lua

parent 0fdfb80b
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 1554 additions and 1551 deletions
expansions/script/c14000371.lua
View file @ b88d87db
--穹顶煌刃 寒风·雪天 --穹顶煌刃 寒风·雪天
local m=14000371 local m=14000371
local cm=_G["c"..m] local cm=_G["c"..m]
cm.named_with_Skayarder=1 cm.named_with_Skayarder=1
function cm.initial_effect(c) function cm.initial_effect(c)
--fusion --fusion
c:SetSPSummonOnce(m) c:SetSPSummonOnce(m)
c:EnableReviveLimit() c:EnableReviveLimit()
aux.AddFusionProcFunFunRep(c,cm.matfilter,1,1,true) aux.AddFusionProcFun2(c,cm.matfilter,cm.matfilter1,true)
--spsummon condition --spsummon condition
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(cm.splimit) e1:SetValue(aux.fuslimit)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--special summon rule --special summon rule
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD) e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC) e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_EXTRA) e2:SetRange(LOCATION_EXTRA)
e2:SetCondition(cm.spcon) e2:SetCondition(cm.spcon)
e2:SetOperation(cm.spop) e2:SetOperation(cm.spop)
e2:SetValue(1) e2:SetValue(1)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--cannot be fusion material --cannot be fusion material
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE) e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL) e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetValue(1) e3:SetValue(1)
c:RegisterEffect(e3) c:RegisterEffect(e3)
--negate --negate
local e4=Effect.CreateEffect(c) local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_CHAIN_SOLVING) e4:SetCode(EVENT_CHAIN_SOLVING)
e4:SetRange(LOCATION_MZONE) e4:SetRange(LOCATION_MZONE)
e4:SetCountLimit(1) e4:SetCountLimit(1)
e4:SetCondition(cm.negcon) e4:SetCondition(cm.negcon)
e4:SetOperation(cm.negop) e4:SetOperation(cm.negop)
c:RegisterEffect(e4) c:RegisterEffect(e4)
--SpecialSummon from Deck --SpecialSummon from Deck
local e5=Effect.CreateEffect(c) local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(m,1)) e5:SetDescription(aux.Stringid(m,1))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON) e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_RELEASE) e5:SetCode(EVENT_RELEASE)
e5:SetTarget(cm.tg) e5:SetTarget(cm.tg)
e5:SetOperation(cm.op) e5:SetOperation(cm.op)
c:RegisterEffect(e5) c:RegisterEffect(e5)
end end
function cm.Skay(c) function cm.Skay(c)
local m=_G["c"..c:GetCode()] local m=_G["c"..c:GetCode()]
return m and m.named_with_Skayarder return m and m.named_with_Skayarder
end end
cm.loaded_metatable_list=cm.loaded_metatable_list or {} cm.loaded_metatable_list=cm.loaded_metatable_list or {}
function cm.load_metatable(code) function cm.load_metatable(code)
local m1=_G["c"..code] local m1=_G["c"..code]
if m1 then return m1 end if m1 then return m1 end
local m2=cm.loaded_metatable_list[code] local m2=cm.loaded_metatable_list[code]
if m2 then return m2 end if m2 then return m2 end
_G["c"..code]={} _G["c"..code]={}
if pcall(function() dofile("expansions/script/c"..code..".lua") end) or pcall(function() dofile("script/c"..code..".lua") end) then if pcall(function() dofile("expansions/script/c"..code..".lua") end) or pcall(function() dofile("script/c"..code..".lua") end) then
local mt=_G["c"..code] local mt=_G["c"..code]
_G["c"..code]=nil _G["c"..code]=nil
if mt then if mt then
cm.loaded_metatable_list[code]=mt cm.loaded_metatable_list[code]=mt
return mt return mt
end end
else else
_G["c"..code]=nil _G["c"..code]=nil
end end
end end
function cm.check_fusion_set_Skayarder(c) function cm.check_fusion_set_Skayarder(c)
if c:IsHasEffect(6205579) then return false end if c:IsHasEffect(6205579) then return false end
local codet={c:GetFusionCode()} local codet={c:GetFusionCode()}
for j,code in pairs(codet) do for j,code in pairs(codet) do
local mt=cm.load_metatable(code) local mt=cm.load_metatable(code)
if mt then if mt then
for str,v in pairs(mt) do for str,v in pairs(mt) do
if type(str)=="string" and str:find("_Skayarder") and v then return true end if type(str)=="string" and str:find("_Skayarder") and v then return true end
end end
end end
end end
return false return false
end end
function cm.matfilter(c) function cm.matfilter(c)
return cm.check_fusion_set_Skayarder(c) return cm.check_fusion_set_Skayarder(c)
end end
function cm.splimit(e,se,sp,st) function cm.matfilter1(c)
return e:GetHandler():GetLocation()~=LOCATION_EXTRA return c:IsFusionType(TYPE_EFFECT)
end end
function cm.rsfilter(c,fc,tp) function cm.rsfilter(c,fc,tp)
return cm.Skay(c) and c:IsLevel(8) return cm.Skay(c) and c:IsLevel(8)
and c:IsReleasable() and Duel.GetLocationCountFromEx(tp,tp,c,fc)>0 and c:IsCanBeFusionMaterial(fc,SUMMON_TYPE_SPECIAL) and c:IsReleasable() and Duel.GetLocationCountFromEx(tp,tp,c,fc)>0 and c:IsCanBeFusionMaterial(fc,SUMMON_TYPE_SPECIAL)
end end
function cm.spcon(e,c) function cm.spcon(e,c)
if c==nil then return true end if c==nil then return true end
local tp=c:GetControler() local tp=c:GetControler()
return Duel.CheckReleaseGroup(tp,cm.rsfilter,1,nil,c,tp) return Duel.CheckReleaseGroup(tp,cm.rsfilter,1,nil,c,tp)
end end
function cm.spop(e,tp,eg,ep,ev,re,r,rp,c) function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
local g=Duel.SelectReleaseGroup(tp,cm.rsfilter,1,1,nil,c,tp) local g=Duel.SelectReleaseGroup(tp,cm.rsfilter,1,1,nil,c,tp)
c:SetMaterial(g) c:SetMaterial(g)
Duel.Release(g,REASON_COST) Duel.Release(g,REASON_COST)
c:RegisterFlagEffect(14000351,RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,0)) c:RegisterFlagEffect(14000351,RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,0))
end end
function cm.negcon(e,tp,eg,ep,ev,re,r,rp) function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
return (c:GetFlagEffect(14000351)~=0 or c:GetSummonType()&(SUMMON_TYPE_SPECIAL+1)==SUMMON_TYPE_SPECIAL+1) return (c:GetFlagEffect(14000351)~=0 or c:GetSummonType()&(SUMMON_TYPE_SPECIAL+1)==SUMMON_TYPE_SPECIAL+1)
and rp==1-tp and Duel.IsChainDisablable(ev) and rp==1-tp and Duel.IsChainDisablable(ev)
end end
function cm.negop(e,tp,eg,ep,ev,re,r,rp) function cm.negop(e,tp,eg,ep,ev,re,r,rp)
local rc=re:GetHandler() local rc=re:GetHandler()
if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then if Duel.NegateEffect(ev) and rc:IsRelateToEffect(re) then
Duel.Remove(rc,POS_FACEDOWN,REASON_EFFECT) Duel.Remove(rc,POS_FACEDOWN,REASON_EFFECT)
end end
end end
function cm.spfilter(c,e,tp) function cm.spfilter(c,e,tp)
return cm.Skay(c) and c:IsLevel(4) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return cm.Skay(c) and c:IsLevel(4) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end end
function cm.op(e,tp,eg,ep,ev,re,r,rp) function cm.op(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
local tc=g:GetFirst() local tc=g:GetFirst()
local code=tc:GetOriginalCodeRule() local code=tc:GetOriginalCodeRule()
tc:RegisterFlagEffect(code,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(code,0)) tc:RegisterFlagEffect(code,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(code,0))
end end
end end
\ No newline at end of file
expansions/script/c14000657.lua
View file @ b88d87db
--抹杀立方·零点 --抹杀立方·零点
local m=14000657 local m=14000657
local cm=_G["c"..m] local cm=_G["c"..m]
function cm.initial_effect(c) function cm.initial_effect(c)
--special summon --special summon
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0)) e1:SetDescription(aux.Stringid(m,0))
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_DESTROYED) e1:SetCode(EVENT_DESTROYED)
e1:SetRange(LOCATION_HAND+LOCATION_GRAVE) e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e1:SetCondition(cm.sscon) e1:SetCondition(cm.sscon)
e1:SetTarget(cm.sstg) e1:SetTarget(cm.sstg)
e1:SetOperation(cm.ssop) e1:SetOperation(cm.ssop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--spsummon --spsummon
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(m,1)) e2:SetDescription(aux.Stringid(m,1))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SUMMON_SUCCESS) e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e2:SetCondition(cm.spcon) e2:SetCondition(cm.spcon)
e2:SetTarget(cm.sptg) e2:SetTarget(cm.sptg)
e2:SetOperation(cm.spop) e2:SetOperation(cm.spop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
local e3=e2:Clone() local e3=e2:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS) e3:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e3) c:RegisterEffect(e3)
end end
function cm.spcfilter(c,tp) function cm.spcfilter(c,tp)
return c:IsPreviousLocation(LOCATION_ONFIELD) and c:GetPreviousControler()==tp and c:GetReasonEffect() and c:GetReasonEffect():GetOwner()==c return c:IsPreviousLocation(LOCATION_ONFIELD) and c:GetPreviousControler()==tp and c:GetReasonEffect() and c:GetReasonEffect():GetOwner()==c
end end
function cm.sscon(e,tp,eg,ep,ev,re,r,rp) function cm.sscon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(cm.spcfilter,1,nil,tp) return eg:IsExists(cm.spcfilter,1,nil,tp)
end end
function cm.sstg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.sstg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler() local c=e:GetHandler()
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0)
end end
function cm.ssop(e,tp,eg,ep,ev,re,r,rp) function cm.ssop(e,tp,eg,ep,ev,re,r,rp)
if e:GetHandler():IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then local c=e:GetHandler()
if Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)~=0 then if c:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
if #g>0 then local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c)
Duel.Destroy(g,REASON_EFFECT) if #g>0 then
end Duel.Destroy(g,REASON_EFFECT)
end end
end end
end end
function cm.spcon(e) end
return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_ONFIELD,0)==1 function cm.spcon(e)
end return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_ONFIELD,0)==1
function cm.xyzfilter(c,e,tp) end
return c:IsType(TYPE_XYZ) and c:IsCode(14000656) and e:GetHandler():IsCanBeXyzMaterial(c) function cm.xyzfilter(c,e,tp,mat)
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) return c:IsType(TYPE_XYZ) and c:IsCode(14000656) and e:GetHandler():IsCanBeXyzMaterial(c)
end and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,mat,c)>0
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end
if chk==0 then return Duel.GetLocationCountFromEx(tp,tp,e:GetHandler())>0 function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
and aux.MustMaterialCheck(e:GetHandler(),tp,EFFECT_MUST_BE_XMATERIAL) local c=e:GetHandler()
and Duel.IsExistingMatchingCard(cm.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end if chk==0 then return aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) and Duel.IsExistingMatchingCard(cm.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c) end
end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
function cm.spop(e,tp,eg,ep,ev,re,r,rp) end
local c=e:GetHandler() function cm.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCountFromEx(tp,tp,c)<=0 or not aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL) then return end local c=e:GetHandler()
if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end if not aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end
local g=Duel.SelectMatchingCard(tp,cm.xyzfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sc=g:GetFirst() local g=Duel.SelectMatchingCard(tp,cm.xyzfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,c)
if sc then local sc=g:GetFirst()
local mg=c:GetOverlayGroup() if sc then
if mg:GetCount()~=0 then local mg=c:GetOverlayGroup()
Duel.Overlay(sc,mg) if mg:GetCount()~=0 then
end Duel.Overlay(sc,mg)
sc:SetMaterial(Group.FromCards(c)) end
Duel.Overlay(sc,Group.FromCards(c)) sc:SetMaterial(Group.FromCards(c))
Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) Duel.Overlay(sc,Group.FromCards(c))
sc:CompleteProcedure() Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
end sc:CompleteProcedure()
end
end end
\ No newline at end of file
expansions/script/c17060915.lua
View file @ b88d87db
...@@ -6,7 +6,7 @@ function cm.initial_effect(c) ...@@ -6,7 +6,7 @@ function cm.initial_effect(c)
aux.EnablePendulumAttribute(c) aux.EnablePendulumAttribute(c)
--search --search
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0)) e1:SetDescription(aux.Stringid(17060915,0))
e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SEARCH+CATEGORY_TOHAND) e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SEARCH+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_IGNITION) e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_PZONE) e1:SetRange(LOCATION_PZONE)
...@@ -16,7 +16,7 @@ function cm.initial_effect(c) ...@@ -16,7 +16,7 @@ function cm.initial_effect(c)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--spsummon proc --spsummon proc
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(m,1)) e2:SetDescription(aux.Stringid(17060915,1))
e2:SetType(EFFECT_TYPE_FIELD) e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC) e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
...@@ -27,7 +27,7 @@ function cm.initial_effect(c) ...@@ -27,7 +27,7 @@ function cm.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--synchro level --synchro level
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(m,2)) e3:SetDescription(aux.Stringid(17060915,2))
e3:SetType(EFFECT_TYPE_SINGLE) e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetRange(LOCATION_MZONE) e3:SetRange(LOCATION_MZONE)
e3:SetCode(EFFECT_SYNCHRO_LEVEL) e3:SetCode(EFFECT_SYNCHRO_LEVEL)
...@@ -78,13 +78,12 @@ end ...@@ -78,13 +78,12 @@ end
function cm.hspcon(e,c) function cm.hspcon(e,c)
if c==nil then return true end if c==nil then return true end
local tp=c:GetControler() local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_GRAVE) return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
return ft>0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,ft) and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil)
end end
function cm.hspop(e,tp,eg,ep,ev,re,r,rp,c) function cm.hspop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_GRAVE)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,ft) local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.Remove(g,POS_FACEUP,REASON_COST) Duel.Remove(g,POS_FACEUP,REASON_COST)
end end
function cm.slevel(e,c) function cm.slevel(e,c)
......
expansions/script/c26818001.lua
View file @ b88d87db
--明智英树 --明智英树
local m=26818001 local m=26818001
local cm=_G["c"..m] local cm=_G["c"..m]
function cm.initial_effect(c) function cm.initial_effect(c)
--indestructable --indestructable
local e0=Effect.CreateEffect(c) local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE) e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e0:SetRange(LOCATION_MZONE) e0:SetRange(LOCATION_MZONE)
e0:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) e0:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e0:SetCondition(cm.indcon) e0:SetCondition(cm.indcon)
e0:SetValue(1) e0:SetValue(1)
c:RegisterEffect(e0) c:RegisterEffect(e0)
--special summon --special summon
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION) e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND) e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,m) e1:SetCountLimit(1,m)
e1:SetCost(cm.spcost) e1:SetCost(cm.spcost)
e1:SetTarget(cm.sptg) e1:SetTarget(cm.sptg)
e1:SetOperation(cm.spop) e1:SetOperation(cm.spop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--multiatk --multiatk
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN) e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE) e2:SetRange(LOCATION_MZONE)
e2:SetHintTiming(TIMING_MAIN_END) e2:SetHintTiming(TIMING_MAIN_END)
e2:SetCountLimit(1,m+900) e2:SetCountLimit(1,m+900)
e2:SetCondition(cm.askcon) e2:SetCondition(cm.askcon)
e2:SetCost(cm.atkcost) e2:SetCost(cm.atkcost)
e2:SetOperation(cm.askop) e2:SetOperation(cm.askop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--multiatk --multiatk
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN) e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_MZONE) e3:SetRange(LOCATION_MZONE)
e3:SetHintTiming(TIMING_MAIN_END) e3:SetHintTiming(TIMING_MAIN_END)
e3:SetCountLimit(1,m+900) e3:SetCountLimit(1,m+900)
e3:SetCondition(cm.atkcon) e3:SetCondition(cm.atkcon)
e3:SetCost(cm.atkcost) e3:SetCost(cm.atkcost)
e3:SetTarget(cm.atktg) e3:SetTarget(cm.atktg)
e3:SetOperation(cm.atkop) e3:SetOperation(cm.atkop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
end end
function cm.cfilter(c,tp) function cm.cfilter(c,tp)
return c:IsLevel(3) and Duel.GetMZoneCount(tp,c)>0 return c:IsLevel(3) and Duel.GetMZoneCount(tp,c)>0
end end
function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk) function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,cm.cfilter,1,nil,tp) end if chk==0 then return Duel.CheckReleaseGroup(tp,cm.cfilter,1,nil,tp) end
local g=Duel.SelectReleaseGroup(tp,cm.cfilter,1,1,nil,tp) local g=Duel.SelectReleaseGroup(tp,cm.cfilter,1,1,nil,tp)
Duel.Release(g,REASON_COST) Duel.Release(g,REASON_COST)
end end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler() local c=e:GetHandler()
if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) end if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
end end
function cm.spop(e,tp,eg,ep,ev,re,r,rp) function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) then if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end end
end end
function cm.indfilter(c) function cm.indfilter(c)
return c:IsFaceup() and c:IsLevel(3) return c:IsFaceup() and c:IsLevel(3)
end end
function cm.indcon(e) function cm.indcon(e)
return Duel.IsExistingMatchingCard(cm.indfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) return Duel.IsExistingMatchingCard(cm.indfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
end end
function cm.atkcon(e,tp,eg,ep,ev,re,r,rp) function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
local tp=e:GetHandlerPlayer() local tp=e:GetHandlerPlayer()
return Duel.IsAbleToEnterBP() and Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2 return Duel.IsAbleToEnterBP() and Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
end end
function cm.costfilter(c) function cm.costfilter(c)
return aux.IsCodeListed(c,26818001) and c:IsType(TYPE_MONSTER) and (c:IsControler(tp) or c:IsFaceup()) return aux.IsCodeListed(c,26818001) and c:IsType(TYPE_MONSTER) and (c:IsControler(tp) or c:IsFaceup())
end end
function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,cm.costfilter,1,nil) end if chk==0 then return Duel.CheckReleaseGroup(tp,cm.costfilter,1,nil) end
local sg=Duel.SelectReleaseGroup(tp,cm.costfilter,1,1,nil) local sg=Duel.SelectReleaseGroup(tp,cm.costfilter,1,1,nil)
Duel.Release(sg,REASON_COST) Duel.Release(sg,REASON_COST)
end end
function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK)==0 end if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK)==0 end
end end
function cm.atkop(e,tp,eg,ep,ev,re,r,rp) function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) then if c:IsRelateToEffect(e) then
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCode(EFFECT_EXTRA_ATTACK) e1:SetCode(EFFECT_EXTRA_ATTACK)
e1:SetValue(2) e1:SetValue(2)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END) e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1) c:RegisterEffect(e1)
end end
end end
function cm.askcon(e,tp,eg,ep,ev,re,r,rp) function cm.askcon(e,tp,eg,ep,ev,re,r,rp)
local tp=e:GetHandlerPlayer() local tp=e:GetHandlerPlayer()
return Duel.GetTurnPlayer()==1-tp and Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2 return Duel.GetTurnPlayer()==1-tp and Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.IsAbleToEnterBP()
end end
function cm.askop(e,tp,eg,ep,ev,re,r,rp) function cm.askop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD) e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT) e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
e1:SetTargetRange(LOCATION_MZONE,0) e1:SetTargetRange(LOCATION_MZONE,0)
e1:SetValue(cm.indct) e1:SetValue(cm.indct)
e1:SetReset(RESET_PHASE+PHASE_END) e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp) Duel.RegisterEffect(e1,tp)
end end
function cm.indct(e,re,r,rp) function cm.indct(e,re,r,rp)
if bit.band(r,REASON_BATTLE)~=0 then if bit.band(r,REASON_BATTLE)~=0 then
return 1 return 1
else return 0 end else return 0 end
end end
expansions/script/c30557012.lua
View file @ b88d87db
--永辉真理 类比推理 --永辉真理 类比推理
function c30557012.initial_effect(c) function c30557012.initial_effect(c)
--draw --draw
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(30557012,0)) e1:SetDescription(aux.Stringid(30557012,0))
e1:SetCategory(CATEGORY_DESTROY) e1:SetCategory(CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN) e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND) e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,30557012) e1:SetCountLimit(1,30557012)
e1:SetCost(c30557012.drcost) e1:SetCost(c30557012.drcost)
e1:SetTarget(c30557012.drtg) e1:SetTarget(c30557012.drtg)
e1:SetOperation(c30557012.drop) e1:SetOperation(c30557012.drop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--to grave --to grave
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(30557012,2)) e2:SetDescription(aux.Stringid(30557012,2))
e2:SetCategory(CATEGORY_DESTROY) e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_TO_GRAVE) e2:SetCode(EVENT_TO_GRAVE)
e2:SetCountLimit(1,30557011) e2:SetCountLimit(1,30557011)
e2:SetCondition(c30557012.condition) e2:SetCondition(c30557012.condition)
e2:SetOperation(c30557012.operation) e2:SetOperation(c30557012.operation)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c30557012.condition(e,tp,eg,ep,ev,re,r,rp) function c30557012.condition(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsReason(REASON_DESTROY) return e:GetHandler():IsReason(REASON_DESTROY)
end end
function c30557012.operation(e,tp,eg,ep,ev,re,r,rp) function c30557012.operation(e,tp,eg,ep,ev,re,r,rp)
local e3=Effect.CreateEffect(e:GetHandler()) local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e3:SetCode(EVENT_CHAIN_SOLVING) e3:SetCode(EVENT_CHAIN_SOLVING)
e3:SetProperty(EFFECT_FLAG_DELAY) e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetOperation(c30557012.op) e3:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e3,tp) e3:SetOperation(c30557012.op)
end Duel.RegisterEffect(e3,tp)
function c30557012.op(e,tp,eg,ep,ev,re,r,rp) end
local c=re:GetHandler() function c30557012.op(e,tp,eg,ep,ev,re,r,rp)
if re:GetHandlerPlayer()~=tp and c~=e:GetHandler() and Duel.SelectYesNo(tp,aux.Stringid(30557012,0)) then local c=re:GetHandler()
Duel.ConfirmDecktop(tp,1) if re:GetHandlerPlayer()~=tp and c~=e:GetHandler() and Duel.SelectYesNo(tp,aux.Stringid(30557012,0)) then
local g=Duel.GetDecktopGroup(tp,1) Duel.ConfirmDecktop(tp,1)
local gc=g:GetFirst() local g=Duel.GetDecktopGroup(tp,1)
if gc:IsSetCard(0x306) then local gc=g:GetFirst()
Duel.DisableShuffleCheck() if gc:IsSetCard(0x306) then
Duel.Destroy(g,REASON_EFFECT+REASON_REVEAL) Duel.DisableShuffleCheck()
else Duel.Destroy(g,REASON_EFFECT+REASON_REVEAL)
Duel.MoveSequence(tc,1) else
end Duel.MoveSequence(gc,1)
end end
end end
function c30557012.drcost(e,tp,eg,ep,ev,re,r,rp,chk) end
if chk==0 then return not e:GetHandler():IsPublic() end function c30557012.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
end if chk==0 then return not e:GetHandler():IsPublic() end
function c30557012.drtg(e,tp,eg,ep,ev,re,r,rp,chk) end
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil,TYPE_MONSTER) end function c30557012.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,0) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil,TYPE_MONSTER) end
end Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,0)
function c30557012.filter(c) end
return c:IsSetCard(0x306) function c30557012.filter(c)
end return c:IsSetCard(0x306)
function c30557012.drop(e,tp,eg,ep,ev,re,r,rp) end
local g=Duel.SelectMatchingCard(tp,Card.IsType,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil,TYPE_MONSTER) function c30557012.drop(e,tp,eg,ep,ev,re,r,rp)
if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(c30557012.filter,tp,LOCATION_DECK,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(30557012,1)) then local g=Duel.SelectMatchingCard(tp,Card.IsType,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil,TYPE_MONSTER)
local g=Duel.SelectMatchingCard(tp,c30557012.filter,tp,LOCATION_DECK,0,1,1,nil) if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(c30557012.filter,tp,LOCATION_DECK,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(30557012,1)) then
local tc=g:GetFirst() local g=Duel.SelectMatchingCard(tp,c30557012.filter,tp,LOCATION_DECK,0,1,1,nil)
if tc then local tc=g:GetFirst()
Duel.ShuffleDeck(tp) if tc then
Duel.MoveSequence(tc,0) Duel.ShuffleDeck(tp)
Duel.ConfirmDecktop(tp,1) Duel.MoveSequence(tc,0)
end Duel.ConfirmDecktop(tp,1)
end end
end
end end
\ No newline at end of file
expansions/script/c33400208.lua
View file @ b88d87db
--憧憬的战士 本条二亚 --憧憬的战士 本条二亚
function c33400208.initial_effect(c) function c33400208.initial_effect(c)
--xyz summon --xyz summon
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x341),6,2) aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x341),6,2)
c:EnableReviveLimit() c:EnableReviveLimit()
--to grave --to grave
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(33400208,0)) e2:SetDescription(aux.Stringid(33400208,0))
e2:SetCategory(CATEGORY_TOGRAVE) e2:SetCategory(CATEGORY_TOGRAVE)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET) e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetCode(EVENT_SPSUMMON_SUCCESS) e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetCountLimit(1,33400208) e2:SetCountLimit(1,33400208)
e2:SetCondition(c33400208.tgcon) e2:SetCondition(c33400208.tgcon)
e2:SetTarget(c33400208.tgtg) e2:SetTarget(c33400208.tgtg)
e2:SetOperation(c33400208.tgop) e2:SetOperation(c33400208.tgop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--DISABLE --DISABLE
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(33400208,1)) e3:SetDescription(aux.Stringid(33400208,1))
e3:SetCategory(CATEGORY_DAMAGE+CATEGORY_TOGRAVE+CATEGORY_DISABLE) e3:SetCategory(CATEGORY_DAMAGE+CATEGORY_TOGRAVE+CATEGORY_DISABLE)
e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN) e3:SetCode(EVENT_FREE_CHAIN)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET) e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetCountLimit(1,33400208+10000) e3:SetCountLimit(1,33400208+10000)
e3:SetRange(LOCATION_MZONE) e3:SetRange(LOCATION_MZONE)
e3:SetCost(c33400208.discost) e3:SetCost(c33400208.discost)
e3:SetTarget(c33400208.distg) e3:SetTarget(c33400208.distg)
e3:SetOperation(c33400208.disop) e3:SetOperation(c33400208.disop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
end end
function c33400208.tgcon(e,tp,eg,ep,ev,re,r,rp) function c33400208.tgcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ) return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
end end
function c33400208.tgft(c) function c33400208.tgft(c)
return c:IsSetCard(0x341) return c:IsSetCard(0x341)
end end
function c33400208.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c33400208.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_REMOVED) end if chkc then return chkc:IsLocation(LOCATION_REMOVED) end
if chk==0 then return Duel.IsExistingTarget(c33400208.tgft,tp,LOCATION_REMOVED,0,1,nil) end if chk==0 then return Duel.IsExistingTarget(c33400208.tgft,tp,LOCATION_REMOVED,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,0,0,0) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,0,0,0)
end end
function c33400208.tgop(e,tp,eg,ep,ev,re,r,rp) function c33400208.tgop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
getmetatable(e:GetHandler()).announce_filter={TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK,OPCODE_ISTYPE,OPCODE_NOT} getmetatable(e:GetHandler()).announce_filter={TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK,OPCODE_ISTYPE,OPCODE_NOT}
local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter)) local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
Duel.ConfirmDecktop(1-tp,1) Duel.ConfirmDecktop(1-tp,1)
local g=Duel.GetDecktopGroup(1-tp,1) local g=Duel.GetDecktopGroup(1-tp,1)
local tc=g:GetFirst() local tc=g:GetFirst()
if tc:IsCode(ac) then if tc:IsCode(ac) then
local sg=Duel.SelectMatchingCard(tp,c33400208.tgft,tp,LOCATION_REMOVED,0,1,2,nil) local sg=Duel.SelectMatchingCard(tp,c33400208.tgft,tp,LOCATION_REMOVED,0,1,2,nil)
if sg:GetCount()>0 then if sg:GetCount()>0 then
Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN) Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)
end end
end end
end end
function c33400208.discost(e,tp,eg,ep,ev,re,r,rp,chk) function c33400208.discost(e,tp,eg,ep,ev,re,r,rp,chk)
local ft=0 local ft=0
if e:GetHandler():GetFlagEffect(33401301)>0 then ft=1 end if e:GetHandler():GetFlagEffect(33401301)>0 then ft=1 end
if chk==0 then return ((ft==1) or e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST)) end if chk==0 then return ((ft==1) or e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST)) end
if ft==0 then if ft==0 then
e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
end end
end end
function c33400208.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c33400208.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500)
end end
function c33400208.disop(e,tp,eg,ep,ev,re,r,rp) function c33400208.disop(e,tp,eg,ep,ev,re,r,rp)
local tc1=Duel.GetFirstTarget() local tc1=Duel.GetFirstTarget()
local tc2=e:GetHandler() local tc2=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
getmetatable(e:GetHandler()).announce_filter={TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK,OPCODE_ISTYPE,OPCODE_NOT} getmetatable(e:GetHandler()).announce_filter={TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK,OPCODE_ISTYPE,OPCODE_NOT}
local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter)) local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
Duel.ConfirmDecktop(1-tp,1) Duel.ConfirmDecktop(1-tp,1)
local g=Duel.GetDecktopGroup(1-tp,1) local g=Duel.GetDecktopGroup(1-tp,1)
local tc=g:GetFirst() local tc=g:GetFirst()
local token=Duel.CreateToken(tp,ac) local token=Duel.CreateToken(tp,ac)
local t1=bit.band(token:GetType(),0x7) local t1=bit.band(token:GetType(),0x7)
local t2=bit.band(tc:GetType(),0x7) local t2=bit.band(tc:GetType(),0x7)
if t1==t2 then if t1==t2 then
Duel.Damage(1-tp,500,REASON_EFFECT) Duel.Damage(1-tp,500,REASON_EFFECT)
if Duel.SelectYesNo(tp,aux.Stringid(33400208,3)) then if Duel.SelectYesNo(tp,aux.Stringid(33400208,3)) then
local e1=Effect.CreateEffect(tc2) local e1=Effect.CreateEffect(tc2)
e1:SetType(EFFECT_TYPE_FIELD) e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE) e1:SetCode(EFFECT_DISABLE)
e1:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD) e1:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
e1:SetTarget(c33400208.distg2) e1:SetTarget(c33400208.distg2)
e1:SetLabelObject(tc1) e1:SetLabelObject(tc1)
e1:SetReset(RESET_PHASE+PHASE_END) e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp) Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(tc2) local e2=Effect.CreateEffect(tc2)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING) e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetCondition(c33400208.discon2) e2:SetCondition(c33400208.discon2)
e2:SetOperation(c33400208.disop2) e2:SetOperation(c33400208.disop2)
e2:SetLabelObject(tc1) e2:SetLabelObject(tc1)
e2:SetReset(RESET_PHASE+PHASE_END) e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp) Duel.RegisterEffect(e2,tp)
end end
end end
if tc:IsCode(ac) then if tc:IsCode(ac) then
Duel.Damage(1-tp,500,REASON_EFFECT) Duel.Damage(1-tp,1000,REASON_EFFECT)
if tc1:IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(33400208,4))then if tc1:IsRelateToEffect(e) and Duel.SelectYesNo(tp,aux.Stringid(33400208,4))then
Duel.SendtoGrave(tc1,REASON_EFFECT) Duel.SendtoGrave(tc1,REASON_EFFECT)
end end
end end
end end
function c33400208.distg2(e,c) function c33400208.distg2(e,c)
local tc=e:GetLabelObject() local tc=e:GetLabelObject()
return c:IsOriginalCodeRule(tc:GetOriginalCodeRule()) return c:IsOriginalCodeRule(tc:GetOriginalCodeRule())
end end
function c33400208.discon2(e,tp,eg,ep,ev,re,r,rp) function c33400208.discon2(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject() local tc=e:GetLabelObject()
return re:GetHandler():IsOriginalCodeRule(tc:GetOriginalCodeRule()) return re:GetHandler():IsOriginalCodeRule(tc:GetOriginalCodeRule())
end end
function c33400208.disop2(e,tp,eg,ep,ev,re,r,rp) function c33400208.disop2(e,tp,eg,ep,ev,re,r,rp)
Duel.NegateEffect(ev) Duel.NegateEffect(ev)
end end
expansions/script/c33400220.lua
View file @ b88d87db
This diff is collapsed.
expansions/script/c47530026.lua
View file @ b88d87db
This diff is collapsed.
expansions/script/c47530140.lua
View file @ b88d87db
--吉姆III --吉姆III
function c47530140.initial_effect(c) function c47530140.initial_effect(c)
--special summon --special summon
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47530140,0)) e1:SetDescription(aux.Stringid(47530140,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION) e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND) e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,47530140) e1:SetCountLimit(1,47530140)
e1:SetCondition(c47530140.spcon) e1:SetCondition(c47530140.spcon)
e1:SetTarget(c47530140.sptg) e1:SetTarget(c47530140.sptg)
e1:SetOperation(c47530140.spop) e1:SetOperation(c47530140.spop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DISABLE) e2:SetCategory(CATEGORY_DISABLE)
e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN) e2:SetCode(EVENT_FREE_CHAIN)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET) e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetRange(LOCATION_MZONE) e2:SetRange(LOCATION_MZONE)
e2:SetTarget(c47530140.distg) e2:SetCountLimit(1,47530141)
e2:SetOperation(c47530140.disop) e2:SetTarget(c47530140.distg)
c:RegisterEffect(e2) e2:SetOperation(c47530140.disop)
end c:RegisterEffect(e2)
function c47530140.filter(c) end
return c:IsRace(RACE_MACHINE) and c:IsLevelAbove(4) function c47530140.filter(c)
end return c:IsRace(RACE_MACHINE) and c:IsLevelAbove(4)
function c47530140.spcon(e,tp,eg,ep,ev,re,r,rp) end
return Duel.IsExistingMatchingCard(c47530140.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) function c47530140.spcon(e,tp,eg,ep,ev,re,r,rp)
end return Duel.IsExistingMatchingCard(c47530140.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
function c47530140.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 function c47530140.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
function c47530140.spop(e,tp,eg,ep,ev,re,r,rp) end
local c=e:GetHandler() function c47530140.spop(e,tp,eg,ep,ev,re,r,rp)
if e:GetHandler():IsRelateToEffect(e) then local c=e:GetHandler()
Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) if e:GetHandler():IsRelateToEffect(e) then
end Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
local e1=Effect.CreateEffect(c) end
e1:SetType(EFFECT_TYPE_FIELD) local e1=Effect.CreateEffect(c)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetTargetRange(1,0) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTarget(c47530140.splimit) e1:SetTargetRange(1,0)
e1:SetReset(RESET_PHASE+PHASE_END) e1:SetTarget(c47530140.splimit)
Duel.RegisterEffect(e1,tp) e1:SetReset(RESET_PHASE+PHASE_END)
end Duel.RegisterEffect(e1,tp)
function c47530140.splimit(e,c) end
return not c:IsRace(RACE_MACHINE) and c:IsSummonType(TYPE_LINK) function c47530140.splimit(e,c)
end return not c:IsRace(RACE_MACHINE) and c:IsSummonType(TYPE_LINK)
function c47530140.disfilter(c) end
return c:IsType(TYPE_SPELL+TYPE_TRAP) function c47530140.disfilter(c)
end return c:IsType(TYPE_SPELL+TYPE_TRAP)
function c47530140.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end
if chkc then return chkc:IsOnField() and c47530140.disfilter(chkc) and chkc~=e:GetHandler() end function c47530140.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsExistingTarget(c47530140.disfilter,tp,0,LOCATION_ONFIELD,1,e:GetHandler()) end if chkc then return chkc:IsOnField() and c47530140.disfilter(chkc) and chkc~=e:GetHandler() end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) if chk==0 then return Duel.IsExistingTarget(c47530140.disfilter,tp,0,LOCATION_ONFIELD,1,e:GetHandler()) end
local g=Duel.SelectTarget(tp,c47530140.disfilter,tp,0,LOCATION_ONFIELD,1,3,e:GetHandler()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,g:GetCount(),0,0) local g=Duel.SelectTarget(tp,c47530140.disfilter,tp,0,LOCATION_ONFIELD,1,3,e:GetHandler())
end Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,g:GetCount(),0,0)
function c47530140.disop(e,tp,eg,ep,ev,re,r,rp) end
local c=e:GetHandler() function c47530140.disop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local c=e:GetHandler()
local tc=g:GetFirst() local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
while tc do local tc=g:GetFirst()
local e1=Effect.CreateEffect(c) while tc do
e1:SetType(EFFECT_TYPE_SINGLE) local e1=Effect.CreateEffect(c)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END) e1:SetCode(EFFECT_DISABLE)
tc:RegisterEffect(e1) e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
local e2=Effect.CreateEffect(c) tc:RegisterEffect(e1)
e2:SetType(EFFECT_TYPE_SINGLE) local e2=Effect.CreateEffect(c)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT) e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END) e2:SetCode(EFFECT_DISABLE_EFFECT)
tc:RegisterEffect(e2) e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
if tc:IsType(TYPE_TRAPMONSTER) then tc:RegisterEffect(e2)
local e3=Effect.CreateEffect(c) if tc:IsType(TYPE_TRAPMONSTER) then
e3:SetType(EFFECT_TYPE_SINGLE) local e3=Effect.CreateEffect(c)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END) e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
tc:RegisterEffect(e3) e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
end tc:RegisterEffect(e3)
local e3=e1:Clone() end
e3:SetCode(EFFECT_CANNOT_TRIGGER) local e3=e1:Clone()
tc:RegisterEffect(e3) e3:SetCode(EFFECT_CANNOT_TRIGGER)
tc=g:GetNext() tc:RegisterEffect(e3)
end tc=g:GetNext()
end
end end
\ No newline at end of file
expansions/script/c60152611.lua
View file @ b88d87db
--皇家骑士战场 --皇家骑士战场
function c60152611.initial_effect(c) function c60152611.initial_effect(c)
--activate --activate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN) e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--spsummon --spsummon
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(60152611,0)) e2:SetDescription(aux.Stringid(60152611,0))
e2:SetCategory(CATEGORY_SUMMON) e2:SetCategory(CATEGORY_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION) e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_FZONE) e2:SetRange(LOCATION_FZONE)
e2:SetCondition(c60152611.e2con) e2:SetCondition(c60152611.e2con)
e2:SetTarget(c60152611.e2tg) e2:SetTarget(c60152611.e2tg)
e2:SetOperation(c60152611.e2op) e2:SetOperation(c60152611.e2op)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--level change --level change
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(60152611,1)) e3:SetDescription(aux.Stringid(60152611,1))
e3:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) e3:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
e3:SetType(EFFECT_TYPE_IGNITION) e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetRange(LOCATION_FZONE) e3:SetRange(LOCATION_FZONE)
e3:SetCountLimit(1) e3:SetCountLimit(1)
e3:SetTarget(c60152611.e3tg) e3:SetTarget(c60152611.e3tg)
e3:SetOperation(c60152611.e3op) e3:SetOperation(c60152611.e3op)
c:RegisterEffect(e3) c:RegisterEffect(e3)
end end
function c60152611.e2con(e,tp,eg,ep,ev,re,r,rp) function c60152611.e2con(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
end end
function c60152611.e2tgfilter(c) function c60152611.e2tgfilter(c)
return return c:IsSetCard(0x6b27) and c:IsSummonable(true,nil) return c:IsSetCard(0x6b27) and c:IsSummonable(true,nil)
end end
function c60152611.e2tg(e,tp,eg,ep,ev,re,r,rp,chk) function c60152611.e2tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60152611.e2tgfilter,tp,LOCATION_HAND,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c60152611.e2tgfilter,tp,LOCATION_HAND,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0) Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
end end
function c60152611.e2op(e,tp,eg,ep,ev,re,r,rp) function c60152611.e2op(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
local g=Duel.SelectMatchingCard(tp,c60152611.e2tgfilter,tp,LOCATION_HAND,0,1,1,nil) local g=Duel.SelectMatchingCard(tp,c60152611.e2tgfilter,tp,LOCATION_HAND,0,1,1,nil)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.Summon(tp,g:GetFirst(),true,nil) Duel.Summon(tp,g:GetFirst(),true,nil)
end end
end end
function c60152611.e3tgfilter(c) function c60152611.e3tgfilter(c)
return not c:IsPublic() return not c:IsPublic()
end end
function c60152611.e3tg(e,tp,eg,ep,ev,re,r,rp,chk) function c60152611.e3tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60152611.e3tgfilter,tp,LOCATION_HAND,0,1,nil) and Duel.IsPlayerCanDraw(tp,1) end if chk==0 then return Duel.IsExistingMatchingCard(c60152611.e3tgfilter,tp,LOCATION_HAND,0,1,nil) and Duel.IsPlayerCanDraw(tp,1) end
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end end
function c60152611.e3op(e,tp,eg,ep,ev,re,r,rp) function c60152611.e3op(e,tp,eg,ep,ev,re,r,rp)
if not Duel.IsPlayerCanDraw(tp) then return end if not Duel.IsPlayerCanDraw(tp) then return end
local ks=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) local ks=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
local ks2=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0) local ks2=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
if ks>ks2 then ks=ks2 end if ks>ks2 then ks=ks2 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g=Duel.SelectMatchingCard(tp,c60152611.e3tgfilter,tp,LOCATION_HAND,0,1,ks,nil) local g=Duel.SelectMatchingCard(tp,c60152611.e3tgfilter,tp,LOCATION_HAND,0,1,ks,nil)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.ConfirmCards(1-tp,g) Duel.ConfirmCards(1-tp,g)
if Duel.Draw(tp,g:GetCount(),REASON_EFFECT)>0 then if Duel.Draw(tp,g:GetCount(),REASON_EFFECT)>0 then
Duel.SendtoDeck(g,nil,2,REASON_EFFECT) Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
end end
Duel.ShuffleHand(tp) Duel.ShuffleHand(tp)
Duel.ShuffleDeck(tp) Duel.ShuffleDeck(tp)
end end
end end
expansions/script/c65010556.lua
View file @ b88d87db
--天知之翼的骑行 --天知之翼的骑行
function c65010556.initial_effect(c) function c65010556.initial_effect(c)
--activate --activate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON+CATEGORY_REMOVE) e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON+CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN) e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE) e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e1:SetCountLimit(1,65010556) e1:SetCountLimit(1,65010556)
e1:SetTarget(c65010556.target) e1:SetTarget(c65010556.target)
e1:SetOperation(c65010556.activate) e1:SetOperation(c65010556.activate)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--spsummon --spsummon
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(65010556,1)) e2:SetDescription(aux.Stringid(65010556,1))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DELAY) e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_REMOVE) e2:SetCode(EVENT_REMOVE)
e2:SetCountLimit(1,65010557) e2:SetCountLimit(1,65010557)
e2:SetTarget(c65010556.sptg) e2:SetTarget(c65010556.sptg)
e2:SetOperation(c65010556.spop) e2:SetOperation(c65010556.spop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c65010556.filter(c,e,tp) function c65010556.filter(c,e,tp)
return (c:IsCode(65010558) or c:IsCode(65010552)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return (c:IsCode(65010558) or c:IsCode(65010552)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c65010556.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c65010556.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c65010556.filter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end and Duel.IsExistingMatchingCard(c65010556.filter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED)
end end
function c65010556.spop(e,tp,eg,ep,ev,re,r,rp) function c65010556.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c65010556.filter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) local g=Duel.SelectMatchingCard(tp,c65010556.filter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp)
local tc=g:GetFirst() local tc=g:GetFirst()
if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then
Duel.SpecialSummonStep(g,0,tp,tp,false,false,POS_FACEUP) local e1=Effect.CreateEffect(e:GetHandler())
local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_TRIGGER)
e1:SetCode(EFFECT_CANNOT_TRIGGER) e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetReset(RESET_EVENT+RESETS_STANDARD) tc:RegisterEffect(e1)
tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler())
local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetReset(RESET_EVENT+RESETS_REDIRECT)
e2:SetReset(RESET_EVENT+RESETS_REDIRECT) e2:SetValue(LOCATION_DECKBOT)
e2:SetValue(LOCATION_DECKBOT) tc:RegisterEffect(e2)
c:RegisterEffect(e2) end
end Duel.SpecialSummonComplete()
Duel.SpecialSummonComplete() end
end
function c65010556.filter0(c)
function c65010556.filter0(c) return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove()
return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove() end
end function c65010556.filter1(c,e)
function c65010556.filter1(c,e) return not c:IsImmuneToEffect(e)
return not c:IsImmuneToEffect(e) end
end function c65010556.filter2(c,e,tp,m,f,chkf)
function c65010556.filter2(c,e,tp,m,f,chkf) if c:IsCode(65010554) then
if c:IsCode(65010554) then local mg=Duel.GetMatchingGroup(c65010556.filter0,tp,LOCATION_GRAVE,0,nil)
local mg=Duel.GetMatchingGroup(c65010556.filter0,tp,LOCATION_GRAVE,0,nil) m:Merge(mg)
m:Merge(mg) end
end return c:IsType(TYPE_FUSION) and (not f or f(c)) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
return c:IsType(TYPE_FUSION) and (not f or f(c)) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) end
end function c65010556.target(e,tp,eg,ep,ev,re,r,rp,chk)
function c65010556.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then
if chk==0 then local chkf=tp
local chkf=tp local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsAbleToRemove,nil)
local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsAbleToRemove,nil) local res=Duel.IsExistingMatchingCard(c65010556.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
local res=Duel.IsExistingMatchingCard(c65010556.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) if not res then
if not res then local ce=Duel.GetChainMaterial(tp)
local ce=Duel.GetChainMaterial(tp) if ce~=nil then
if ce~=nil then local fgroup=ce:GetTarget()
local fgroup=ce:GetTarget() local mg3=fgroup(ce,e,tp)
local mg3=fgroup(ce,e,tp) local mf=ce:GetValue()
local mf=ce:GetValue() res=Duel.IsExistingMatchingCard(c65010556.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf)
res=Duel.IsExistingMatchingCard(c65010556.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf) end
end end
end return res
return res end
end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,tp,LOCATION_GRAVE)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,tp,LOCATION_GRAVE) end
end function c65010556.activate(e,tp,eg,ep,ev,re,r,rp)
function c65010556.activate(e,tp,eg,ep,ev,re,r,rp) local chkf=tp
local chkf=tp local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsAbleToRemove,nil):Filter(c65010556.filter1,nil,e)
local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsAbleToRemove,nil):Filter(c65010556.filter1,nil,e) local sg1=Duel.GetMatchingGroup(c65010556.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
local sg1=Duel.GetMatchingGroup(c65010556.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) local mg3=nil
local mg3=nil local sg2=nil
local sg2=nil local ce=Duel.GetChainMaterial(tp)
local ce=Duel.GetChainMaterial(tp) if ce~=nil then
if ce~=nil then local fgroup=ce:GetTarget()
local fgroup=ce:GetTarget() mg3=fgroup(ce,e,tp)
mg3=fgroup(ce,e,tp) local mf=ce:GetValue()
local mf=ce:GetValue() sg2=Duel.GetMatchingGroup(c65010556.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf)
sg2=Duel.GetMatchingGroup(c65010556.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf) end
end if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then local sg=sg1:Clone()
local sg=sg1:Clone() if sg2 then sg:Merge(sg2) end
if sg2 then sg:Merge(sg2) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local tg=sg:Select(tp,1,1,nil)
local tg=sg:Select(tp,1,1,nil) local tc=tg:GetFirst()
local tc=tg:GetFirst() if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then if tc:IsCode(65010554) then
if tc:IsCode(65010554) then local mg=Duel.GetMatchingGroup(c65010556.filter0,tp,LOCATION_GRAVE,0,nil)
local mg=Duel.GetMatchingGroup(c65010556.filter0,tp,LOCATION_GRAVE,0,nil) mg1:Merge(mg)
mg1:Merge(mg) end
end local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) tc:SetMaterial(mat1)
tc:SetMaterial(mat1) Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) Duel.BreakEffect()
Duel.BreakEffect() Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) else
else local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf) local fop=ce:GetOperation()
local fop=ce:GetOperation() fop(ce,e,tp,tc,mat2)
fop(ce,e,tp,tc,mat2) end
end tc:CompleteProcedure()
tc:CompleteProcedure() end
end end
end
expansions/script/c65050202.lua
View file @ b88d87db
--奇妙仙灵 彩片翼 --奇妙仙灵 彩片翼
function c65050202.initial_effect(c) function c65050202.initial_effect(c)
--synchro summon --synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSetCard,0x9da8),1) aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSetCard,0x9da8),1)
c:EnableReviveLimit() c:EnableReviveLimit()
--spsummon --spsummon
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(65050202,0)) e1:SetDescription(aux.Stringid(65050202,0))
e1:SetType(EFFECT_TYPE_IGNITION) e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_MZONE) e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET) e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCountLimit(1,65050202) e1:SetCountLimit(1,65050202)
e1:SetCondition(c65050202.con1) e1:SetCondition(c65050202.con1)
e1:SetTarget(c65050202.tg) e1:SetTarget(c65050202.tg)
e1:SetOperation(c65050202.op) e1:SetOperation(c65050202.op)
c:RegisterEffect(e1) c:RegisterEffect(e1)
local e0=e1:Clone() local e0=e1:Clone()
e0:SetCode(EVENT_FREE_CHAIN) e0:SetCode(EVENT_FREE_CHAIN)
e0:SetType(EFFECT_TYPE_QUICK_O) e0:SetType(EFFECT_TYPE_QUICK_O)
e0:SetCondition(c65050202.con2) e0:SetCondition(c65050202.con2)
c:RegisterEffect(e0) c:RegisterEffect(e0)
--Activate --Activate
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(65050202,1)) e2:SetDescription(aux.Stringid(65050202,1))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET) e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetType(EFFECT_TYPE_IGNITION) e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE) e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,65050202) e2:SetCountLimit(1,65050202)
e2:SetCondition(c65050202.condition1) e2:SetCondition(c65050202.condition1)
e2:SetTarget(c65050202.target) e2:SetTarget(c65050202.target)
e2:SetOperation(c65050202.activate) e2:SetOperation(c65050202.activate)
c:RegisterEffect(e2) c:RegisterEffect(e2)
local e3=e2:Clone() local e3=e2:Clone()
e3:SetCode(EVENT_FREE_CHAIN) e3:SetCode(EVENT_FREE_CHAIN)
e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCondition(c65050202.condition2) e3:SetCondition(c65050202.condition2)
c:RegisterEffect(e3) c:RegisterEffect(e3)
end end
function c65050202.condfil(c) function c65050202.condfil(c)
return c:IsFaceup() and c:IsType(TYPE_TUNER) return c:IsFaceup() and c:IsType(TYPE_TUNER)
end end
function c65050202.condition1(e,tp,eg,ep,ev,re,r,rp) function c65050202.condition1(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsPlayerAffectedByEffect(tp,65050211) and Duel.IsExistingMatchingCard(c65050202.condfil,tp,LOCATION_MZONE,0,1,nil) return not Duel.IsPlayerAffectedByEffect(tp,65050211) and Duel.IsExistingMatchingCard(c65050202.condfil,tp,LOCATION_MZONE,0,1,nil)
end end
function c65050202.condition2(e,tp,eg,ep,ev,re,r,rp) function c65050202.condition2(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsPlayerAffectedByEffect(tp,65050211) and Duel.IsExistingMatchingCard(c65050202.condfil,tp,LOCATION_MZONE,0,1,nil) return Duel.IsPlayerAffectedByEffect(tp,65050211) and Duel.IsExistingMatchingCard(c65050202.condfil,tp,LOCATION_MZONE,0,1,nil)
end end
function c65050202.filter(c,e,tp) function c65050202.filter(c,e,tp)
return c:IsSetCard(0x9da8) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) and c:IsLevel(3) return c:IsSetCard(0x9da8) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) and c:IsLevel(3)
end end
function c65050202.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c65050202.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c65050202.filter(chkc,e,tp) end if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c65050202.filter(chkc,e,tp) end
if chk==0 then return Duel.IsExistingTarget(c65050202.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetMZoneCount(tp)>0 end if chk==0 then return Duel.IsExistingTarget(c65050202.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetMZoneCount(tp)>0 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c65050202.filter,tp,LOCATION_GRAVE,0,1,1,nil) local g=Duel.SelectTarget(tp,c65050202.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end end
function c65050202.activate(e,tp,eg,ep,ev,re,r,rp) function c65050202.activate(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetMZoneCount(tp)<=0 then return end if Duel.GetMZoneCount(tp)<=0 then return end
local tc=Duel.GetFirstTarget() local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then if tc:IsRelateToEffect(e) then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
end end
end end
function c65050202.con1(e,tp,eg,ep,ev,re,r,rp) function c65050202.con1(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsPlayerAffectedByEffect(tp,65050211) return not Duel.IsPlayerAffectedByEffect(tp,65050211)
end end
function c65050202.con2(e,tp,eg,ep,ev,re,r,rp) function c65050202.con2(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsPlayerAffectedByEffect(tp,65050211) return Duel.IsPlayerAffectedByEffect(tp,65050211)
end end
function c65050202.tgfil(c,tp) function c65050202.tgfil(c,tp)
return c:IsFaceup() and c:IsLevelBelow(6) and c:IsType(TYPE_TUNER) return c:IsFaceup() and c:IsLevelBelow(6) and c:IsType(TYPE_TUNER)
end end
function c65050202.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c65050202.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return c65050202.tgfil(chkc,tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end if chkc then return c65050202.tgfil(chkc,tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end
if chk==0 then return Duel.IsExistingTarget(c65050202.tgfil,tp,LOCATION_MZONE,0,1,e:GetHandler()) end if chk==0 then return Duel.IsExistingTarget(c65050202.tgfil,tp,LOCATION_MZONE,0,1,e:GetHandler()) end
local g=Duel.SelectTarget(tp,c65050202.tgfil,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) local g=Duel.SelectTarget(tp,c65050202.tgfil,tp,LOCATION_MZONE,0,1,1,e:GetHandler())
end end
function c65050202.op(e,tp,eg,ep,ev,re,r,rp) function c65050202.op(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget() local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsFaceup() then if tc:IsRelateToEffect(e) and tc:IsFaceup() then
--nontuner --nontuner
local e1=Effect.CreateEffect(e:GetHandler()) local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE) e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_NONTUNER) e1:SetCode(EFFECT_NONTUNER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD) e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetValue(c65050202.tnval) e1:SetValue(c65050202.tnval)
tc:RegisterEffect(e1) tc:RegisterEffect(e1)
end end
end end
function c65050202.tnval(e,c) function c65050202.tnval(e,c)
return e:GetHandler():IsControler(c:GetControler()) return e:GetHandler():IsControler(c:GetControler())
end end
expansions/script/c65050204.lua
View file @ b88d87db
--奇妙仙灵 华净翼 --奇妙仙灵 华净翼
function c65050204.initial_effect(c) function c65050204.initial_effect(c)
--synchro summon --synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSetCard,0x9da8),1) aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSetCard,0x9da8),1)
c:EnableReviveLimit() c:EnableReviveLimit()
--spsummon --spsummon
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION) e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_MZONE) e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET) e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCountLimit(1,65050204) e1:SetCountLimit(1,65050204)
e1:SetCondition(c65050204.con1) e1:SetCondition(c65050204.con1)
e1:SetTarget(c65050204.tg) e1:SetTarget(c65050204.tg)
e1:SetOperation(c65050204.op) e1:SetOperation(c65050204.op)
c:RegisterEffect(e1) c:RegisterEffect(e1)
local e0=e1:Clone() local e0=e1:Clone()
e0:SetCode(EVENT_FREE_CHAIN) e0:SetCode(EVENT_FREE_CHAIN)
e0:SetType(EFFECT_TYPE_QUICK_O) e0:SetType(EFFECT_TYPE_QUICK_O)
e0:SetCondition(c65050204.con2) e0:SetCondition(c65050204.con2)
c:RegisterEffect(e0) c:RegisterEffect(e0)
--tograve --tograve
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOGRAVE) e2:SetCategory(CATEGORY_TOGRAVE)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_TO_GRAVE) e2:SetCode(EVENT_TO_GRAVE)
e2:SetCountLimit(1,65050204) e2:SetCountLimit(1,65050204)
e2:SetCondition(c65050204.condition) e2:SetCondition(c65050204.condition)
e2:SetTarget(c65050204.target) e2:SetTarget(c65050204.target)
e2:SetOperation(c65050204.activate) e2:SetOperation(c65050204.activate)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c65050204.con1(e,tp,eg,ep,ev,re,r,rp) function c65050204.con1(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsPlayerAffectedByEffect(tp,65050211) return not Duel.IsPlayerAffectedByEffect(tp,65050211)
end end
function c65050204.con2(e,tp,eg,ep,ev,re,r,rp) function c65050204.con2(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsPlayerAffectedByEffect(tp,65050211) return Duel.IsPlayerAffectedByEffect(tp,65050211)
end end
function c65050204.tgfil(c,tp) function c65050204.tgfil(c,tp)
return c:IsFaceup() and c:IsLevelBelow(6) and c:IsAbleToGrave() return c:IsFaceup() and c:IsLevelBelow(6) and c:IsAbleToGrave()
end end
function c65050204.spfil(c,e,tp) function c65050204.spfil(c,e,tp)
return c:IsSetCard(0x9da8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x9da8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c65050204.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c65050204.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return c65050204.tgfil(chkc,tp) and chkc:IsLocation(LOCATION_MZONE) end if chkc then return c65050204.tgfil(chkc,tp) and chkc:IsLocation(LOCATION_MZONE) end
if chk==0 then return Duel.IsExistingTarget(c65050204.tgfil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,tp) and Duel.IsExistingMatchingCard(c65050204.spfil,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.GetMZoneCount(tp)>0 end if chk==0 then return Duel.IsExistingTarget(c65050204.tgfil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,tp) and Duel.IsExistingMatchingCard(c65050204.spfil,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.GetMZoneCount(tp)>0 end
local g=Duel.SelectTarget(tp,c65050204.tgfil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp) local g=Duel.SelectTarget(tp,c65050204.tgfil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp)
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
end end
function c65050204.op(e,tp,eg,ep,ev,re,r,rp) function c65050204.op(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetMZoneCount(tp)<=0 then return end if Duel.GetMZoneCount(tp)<=0 then return end
local tc=Duel.GetFirstTarget() local tc=Duel.GetFirstTarget()
local g=Duel.SelectMatchingCard(tp,c65050204.spfil,tp,LOCATION_HAND,0,1,1,nil,e,tp) local g=Duel.SelectMatchingCard(tp,c65050204.spfil,tp,LOCATION_HAND,0,1,1,nil,e,tp)
if g and Duel.SpecialSummon(g,0,tp,false,false,POS_FACEUP)~=0 and tc:IsRelateToEffect(e) then if g and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 and tc:IsRelateToEffect(e) then
Duel.SendtoGrave(tc,REASON_EFFECT) Duel.SendtoGrave(tc,REASON_EFFECT)
end end
end end
function c65050204.condition(e,tp,eg,ep,ev,re,r,rp) function c65050204.condition(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
end end
function c65050204.filter(c) function c65050204.filter(c)
return c:IsSetCard(0x9da8) and c:IsAbleToGrave() and c:IsType(TYPE_MONSTER) return c:IsSetCard(0x9da8) and c:IsAbleToGrave() and c:IsType(TYPE_MONSTER)
end end
function c65050204.target(e,tp,eg,ep,ev,re,r,rp,chk) function c65050204.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65050204.filter,tp,LOCATION_DECK,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c65050204.filter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
end end
function c65050204.activate(e,tp,eg,ep,ev,re,r,rp) function c65050204.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c65050204.filter,tp,LOCATION_DECK,0,1,1,nil) local g=Duel.SelectMatchingCard(tp,c65050204.filter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT) Duel.SendtoGrave(g,REASON_EFFECT)
end end
end end
\ No newline at end of file
expansions/script/c66915014.lua
View file @ b88d87db
--掠夺星曜·贪狼 --掠夺星曜·贪狼
local m=66915014 local m=66915014
local cm=_G["c"..m] local cm=_G["c"..m]
function cm.initial_effect(c) function cm.initial_effect(c)
c:SetUniqueOnField(1,0,m) c:SetUniqueOnField(1,0,m)
--Activate --Activate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN) e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--draw --draw
local e4=Effect.CreateEffect(c) local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(97616504,0)) e4:SetDescription(aux.Stringid(97616504,0))
e4:SetCategory(CATEGORY_DRAW) e4:SetCategory(CATEGORY_DRAW)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e4:SetCode(EVENT_BATTLE_DESTROYING) e4:SetCode(EVENT_BATTLE_DESTROYING)
e4:SetRange(LOCATION_MZONE) e4:SetRange(LOCATION_MZONE)
e4:SetCondition(cm.drcon) e4:SetCondition(cm.drcon)
e4:SetTarget(cm.drtg) e4:SetTarget(cm.drtg)
e4:SetOperation(cm.drop) e4:SetOperation(cm.drop)
local e5=Effect.CreateEffect(c) local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT) e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e5:SetRange(LOCATION_MZONE) e5:SetRange(LOCATION_SZONE)
e5:SetTargetRange(LOCATION_MZONE,0) e5:SetTargetRange(LOCATION_MZONE,0)
e5:SetTarget(cm.eftg) e5:SetTarget(cm.eftg)
e5:SetLabelObject(e4) e5:SetLabelObject(e4)
c:RegisterEffect(e5) c:RegisterEffect(e5)
--recover --recover
local e11=Effect.CreateEffect(c) local e11=Effect.CreateEffect(c)
e11:SetCategory(CATEGORY_RECOVER) e11:SetCategory(CATEGORY_RECOVER)
e11:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e11:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e11:SetCode(EVENT_BATTLE_DESTROYING) e11:SetCode(EVENT_BATTLE_DESTROYING)
e11:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) e11:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e11:SetCondition(cm.reccon) e11:SetCondition(cm.reccon)
e11:SetTarget(cm.rectg) e11:SetTarget(cm.rectg)
e11:SetOperation(cm.recop) e11:SetOperation(cm.recop)
local e55=Effect.CreateEffect(c) local e55=Effect.CreateEffect(c)
e55:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT) e55:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e55:SetRange(LOCATION_MZONE) e55:SetRange(LOCATION_SZONE)
e55:SetTargetRange(LOCATION_MZONE,0) e55:SetTargetRange(LOCATION_MZONE,0)
e55:SetTarget(cm.eftg) e55:SetTarget(cm.eftg)
e55:SetLabelObject(e11) e55:SetLabelObject(e11)
c:RegisterEffect(e55) c:RegisterEffect(e55)
--spsummon limit --spsummon limit
local e22=Effect.CreateEffect(c) local e22=Effect.CreateEffect(c)
e22:SetType(EFFECT_TYPE_FIELD) e22:SetType(EFFECT_TYPE_FIELD)
e22:SetRange(LOCATION_SZONE) e22:SetRange(LOCATION_SZONE)
e22:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) e22:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e22:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e22:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e22:SetTargetRange(1,0) e22:SetTargetRange(1,0)
e22:SetTarget(cm.sumlimit) e22:SetTarget(cm.sumlimit)
c:RegisterEffect(e22) c:RegisterEffect(e22)
end end
function cm.cfilter(c) function cm.cfilter(c)
return c:IsFaceup() and c:IsCode(66915001) return c:IsFaceup() and c:IsCode(66915001)
end end
function cm.drcon(e,tp,eg,ep,ev,re,r,rp) function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
local ec=e:GetHandler():GetEquipTarget() local ec=e:GetHandler():GetEquipTarget()
return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_SZONE,0,1,nil) and eg:GetFirst()==ec and Duel.GetAttacker()==ec return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_SZONE,0,1,nil) and eg:GetFirst()==ec and Duel.GetAttacker()==ec
end end
function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end if chk==0 then return true end
Duel.SetTargetPlayer(tp) Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(1) Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end end
function cm.drop(e,tp,eg,ep,ev,re,r,rp) function cm.drop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Draw(p,d,REASON_EFFECT) Duel.Draw(p,d,REASON_EFFECT)
end end
function cm.eftg(e,c) function cm.eftg(e,c)
local seq=c:GetSequence() local seq=c:GetSequence()
return c:IsSetCard(0x1374) return c:IsSetCard(0x1374)
and seq<5 and math.abs(e:GetHandler():GetSequence()-seq)<=1 and seq<5 and math.abs(e:GetHandler():GetSequence()-seq)<=1
end end
function cm.reccon(e,tp,eg,ep,ev,re,r,rp) function cm.reccon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local t=Duel.GetAttackTarget() local t=Duel.GetAttackTarget()
if ev==1 then t=Duel.GetAttacker() end if ev==1 then t=Duel.GetAttacker() end
if not c:IsRelateToBattle() or c:IsFacedown() then return false end if not c:IsRelateToBattle() or c:IsFacedown() then return false end
e:SetLabel(t:GetAttack()) e:SetLabel(t:GetAttack())
return t:GetLocation()==LOCATION_GRAVE and t:IsType(TYPE_MONSTER) return t:GetLocation()==LOCATION_GRAVE and t:IsType(TYPE_MONSTER)
end end
function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end if chk==0 then return true end
Duel.SetTargetPlayer(tp) Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(e:GetLabel()) Duel.SetTargetParam(e:GetLabel())
Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,e:GetLabel()) Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,e:GetLabel())
end end
function cm.recop(e,tp,eg,ep,ev,re,r,rp) function cm.recop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Recover(p,d,REASON_EFFECT) Duel.Recover(p,d,REASON_EFFECT)
end end
function cm.sumlimit(e,c,sump,sumtype,sumpos,targetp) function cm.sumlimit(e,c,sump,sumtype,sumpos,targetp)
return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1374) return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1374)
end end
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment