Commit 2aac18ac authored by 聖園ミカ's avatar 聖園ミカ 🐟

vme50

parent b71703ec
......@@ -25,7 +25,7 @@ function s.peff(c)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(id,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DISABLE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetRange(LOCATION_PZONE)
e1:SetProperty(EFFECT_FLAG_DELAY)
......
......@@ -15,6 +15,7 @@ function c50218133.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c50218133.scon)
e2:SetTarget(c50218133.stg)
e2:SetOperation(c50218133.sop)
c:RegisterEffect(e2)
--token
......@@ -47,23 +48,30 @@ function c50218133.initial_effect(c)
end
c50218133.lvup={50218109}
c50218133.lvdn={50218107,50218108,50218109}
function c50218133.efilter(e,te)
return te:GetOwner()~=e:GetOwner()
end
function c50218133.spfilter(c,ft,tp)
function c50218133.spfilter(c,tp)
return c:IsCode(50218109)
and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c50218133.scon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.CheckReleaseGroup(REASON_COST,tp,c50218133.spfilter,1,nil,ft,tp)
return Duel.CheckReleaseGroupEx(tp,c50218133.spfilter,1,REASON_SPSUMMON,false,nil,tp)
end
function c50218133.stg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local g=Duel.GetReleaseGroup(tp,false,REASON_SPSUMMON):Filter(c50218133.spfilter,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local tc=g:SelectUnselect(nil,tp,false,true,1,1)
if tc then
e:SetLabelObject(tc)
return true
else return false end
end
function c50218133.sop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=Duel.SelectReleaseGroup(REASON_COST,tp,c50218133.spfilter,1,1,nil,ft,tp)
Duel.Release(g,REASON_COST)
local g=e:GetLabelObject()
Duel.Release(g,REASON_SPSUMMON)
end
function c50218133.efilter(e,te)
return te:GetOwner()~=e:GetOwner()
end
function c50218133.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
......
......@@ -15,6 +15,7 @@ function c50218134.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c50218134.scon)
e2:SetTarget(c50218134.stg)
e2:SetOperation(c50218134.sop)
c:RegisterEffect(e2)
--token
......@@ -52,20 +53,27 @@ function c50218134.initial_effect(c)
end
c50218134.lvup={50218112}
c50218134.lvdn={50218110,50218111,50218112}
function c50218134.spfilter(c,ft,tp)
function c50218134.spfilter(c,tp)
return c:IsCode(50218112)
and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c50218134.scon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.CheckReleaseGroup(REASON_COST,tp,c50218134.spfilter,1,nil,ft,tp)
return Duel.CheckReleaseGroupEx(tp,c50218134.spfilter,1,REASON_SPSUMMON,false,nil,tp)
end
function c50218134.stg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local g=Duel.GetReleaseGroup(tp,false,REASON_SPSUMMON):Filter(c50218134.spfilter,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local tc=g:SelectUnselect(nil,tp,false,true,1,1)
if tc then
e:SetLabelObject(tc)
return true
else return false end
end
function c50218134.sop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=Duel.SelectReleaseGroup(REASON_COST,tp,c50218134.spfilter,1,1,nil,ft,tp)
Duel.Release(g,REASON_COST)
local g=e:GetLabelObject()
Duel.Release(g,REASON_SPSUMMON)
end
function c50218134.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
......
......@@ -15,6 +15,7 @@ function c50218135.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c50218135.scon)
e2:SetTarget(c50218135.stg)
e2:SetOperation(c50218135.sop)
c:RegisterEffect(e2)
--token
......@@ -51,20 +52,27 @@ function c50218135.initial_effect(c)
end
c50218135.lvup={50218115}
c50218135.lvdn={50218113,50218114,50218115}
function c50218135.spfilter(c,ft,tp)
function c50218135.spfilter(c,tp)
return c:IsCode(50218115)
and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c50218135.scon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.CheckReleaseGroup(REASON_COST,tp,c50218135.spfilter,1,nil,ft,tp)
return Duel.CheckReleaseGroupEx(tp,c50218135.spfilter,1,REASON_SPSUMMON,false,nil,tp)
end
function c50218135.stg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local g=Duel.GetReleaseGroup(tp,false,REASON_SPSUMMON):Filter(c50218135.spfilter,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local tc=g:SelectUnselect(nil,tp,false,true,1,1)
if tc then
e:SetLabelObject(tc)
return true
else return false end
end
function c50218135.sop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=Duel.SelectReleaseGroup(REASON_COST,tp,c50218135.spfilter,1,1,nil,ft,tp)
Duel.Release(g,REASON_COST)
local g=e:GetLabelObject()
Duel.Release(g,REASON_SPSUMMON)
end
function c50218135.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
......
......@@ -15,6 +15,7 @@ function c50218136.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c50218136.scon)
e2:SetTarget(c50218136.stg)
e2:SetOperation(c50218136.sop)
c:RegisterEffect(e2)
--token
......@@ -51,20 +52,27 @@ function c50218136.initial_effect(c)
end
c50218136.lvup={50218118}
c50218136.lvdn={50218116,50218117,50218118}
function c50218136.spfilter(c,ft,tp)
function c50218136.spfilter(c,tp)
return c:IsCode(50218118)
and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c50218136.scon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.CheckReleaseGroup(REASON_COST,tp,c50218136.spfilter,1,nil,ft,tp)
return Duel.CheckReleaseGroupEx(tp,c50218136.spfilter,1,REASON_SPSUMMON,false,nil,tp)
end
function c50218136.stg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local g=Duel.GetReleaseGroup(tp,false,REASON_SPSUMMON):Filter(c50218136.spfilter,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local tc=g:SelectUnselect(nil,tp,false,true,1,1)
if tc then
e:SetLabelObject(tc)
return true
else return false end
end
function c50218136.sop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=Duel.SelectReleaseGroup(REASON_COST,tp,c50218136.spfilter,1,1,nil,ft,tp)
Duel.Release(g,REASON_COST)
local g=e:GetLabelObject()
Duel.Release(g,REASON_SPSUMMON)
end
function c50218136.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
......
......@@ -15,6 +15,7 @@ function c50218137.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c50218137.scon)
e2:SetTarget(c50218137.stg)
e2:SetOperation(c50218137.sop)
c:RegisterEffect(e2)
--token
......@@ -51,20 +52,27 @@ function c50218137.initial_effect(c)
end
c50218137.lvup={50218121}
c50218137.lvdn={50218119,50218120,50218121}
function c50218137.spfilter(c,ft,tp)
function c50218137.spfilter(c,tp)
return c:IsCode(50218121)
and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c50218137.scon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.CheckReleaseGroup(REASON_COST,tp,c50218137.spfilter,1,nil,ft,tp)
return Duel.CheckReleaseGroupEx(tp,c50218137.spfilter,1,REASON_SPSUMMON,false,nil,tp)
end
function c50218137.stg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local g=Duel.GetReleaseGroup(tp,false,REASON_SPSUMMON):Filter(c50218137.spfilter,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local tc=g:SelectUnselect(nil,tp,false,true,1,1)
if tc then
e:SetLabelObject(tc)
return true
else return false end
end
function c50218137.sop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=Duel.SelectReleaseGroup(REASON_COST,tp,c50218137.spfilter,1,1,nil,ft,tp)
Duel.Release(g,REASON_COST)
local g=e:GetLabelObject()
Duel.Release(g,REASON_SPSUMMON)
end
function c50218137.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
......
......@@ -15,6 +15,7 @@ function c50218138.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c50218138.scon)
e2:SetTarget(c50218138.stg)
e2:SetOperation(c50218138.sop)
c:RegisterEffect(e2)
--token
......@@ -53,20 +54,27 @@ function c50218138.initial_effect(c)
end
c50218138.lvup={50218124}
c50218138.lvdn={50218122,50218123,50218124}
function c50218138.spfilter(c,ft,tp)
function c50218138.spfilter(c,tp)
return c:IsCode(50218124)
and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c50218138.scon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.CheckReleaseGroup(REASON_COST,tp,c50218138.spfilter,1,nil,ft,tp)
return Duel.CheckReleaseGroupEx(tp,c50218138.spfilter,1,REASON_SPSUMMON,false,nil,tp)
end
function c50218138.stg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local g=Duel.GetReleaseGroup(tp,false,REASON_SPSUMMON):Filter(c50218138.spfilter,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local tc=g:SelectUnselect(nil,tp,false,true,1,1)
if tc then
e:SetLabelObject(tc)
return true
else return false end
end
function c50218138.sop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=Duel.SelectReleaseGroup(REASON_COST,tp,c50218138.spfilter,1,1,nil,ft,tp)
Duel.Release(g,REASON_COST)
local g=e:GetLabelObject()
Duel.Release(g,REASON_SPSUMMON)
end
function c50218138.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
......
......@@ -15,6 +15,7 @@ function c50221200.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c50221200.scon)
e2:SetTarget(c50221200.stg)
e2:SetOperation(c50221200.sop)
c:RegisterEffect(e2)
--token
......@@ -51,20 +52,27 @@ function c50221200.initial_effect(c)
end
c50221200.lvup={50218121}
c50221200.lvdn={50218119,50218120,50218121}
function c50221200.spfilter(c,ft,tp)
function c50221200.spfilter(c,tp)
return c:IsCode(50218121)
and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c50221200.scon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.CheckReleaseGroup(REASON_COST,tp,c50221200.spfilter,1,nil,ft,tp)
return Duel.CheckReleaseGroupEx(tp,c50221200.spfilter,1,REASON_SPSUMMON,false,nil,tp)
end
function c50221200.stg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local g=Duel.GetReleaseGroup(tp,false,REASON_SPSUMMON):Filter(c50221200.spfilter,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local tc=g:SelectUnselect(nil,tp,false,true,1,1)
if tc then
e:SetLabelObject(tc)
return true
else return false end
end
function c50221200.sop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=Duel.SelectReleaseGroup(REASON_COST,tp,c50221200.spfilter,1,1,nil,ft,tp)
Duel.Release(g,REASON_COST)
local g=e:GetLabelObject()
Duel.Release(g,REASON_SPSUMMON)
end
function c50221200.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
......
......@@ -15,6 +15,7 @@ function c50222100.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c50222100.scon)
e2:SetTarget(c50222100.stg)
e2:SetOperation(c50222100.sop)
c:RegisterEffect(e2)
--token
......@@ -50,20 +51,27 @@ function c50222100.initial_effect(c)
end
c50222100.lvup={50218124}
c50222100.lvdn={50218122,50218123,50218124}
function c50222100.spfilter(c,ft,tp)
function c50222100.spfilter(c,tp)
return c:IsCode(50218124)
and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c50222100.scon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.CheckReleaseGroup(REASON_COST,tp,c50222100.spfilter,1,nil,ft,tp)
return Duel.CheckReleaseGroupEx(tp,c50222100.spfilter,1,REASON_SPSUMMON,false,nil,tp)
end
function c50222100.stg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local g=Duel.GetReleaseGroup(tp,false,REASON_SPSUMMON):Filter(c50222100.spfilter,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local tc=g:SelectUnselect(nil,tp,false,true,1,1)
if tc then
e:SetLabelObject(tc)
return true
else return false end
end
function c50222100.sop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=Duel.SelectReleaseGroup(REASON_COST,tp,c50222100.spfilter,1,1,nil,ft,tp)
Duel.Release(g,REASON_COST)
local g=e:GetLabelObject()
Duel.Release(g,REASON_SPSUMMON)
end
function c50222100.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
......
......@@ -15,6 +15,7 @@ function c50223105.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c50223105.scon)
e2:SetTarget(c50223105.stg)
e2:SetOperation(c50223105.sop)
c:RegisterEffect(e2)
--token
......@@ -63,20 +64,27 @@ function c50223105.initial_effect(c)
end
c50223105.lvup={50218103}
c50223105.lvdn={50218101,50218102,50218103}
function c50223105.spfilter(c,ft,tp)
function c50223105.spfilter(c,tp)
return c:IsCode(50218103)
and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c50223105.scon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.CheckReleaseGroup(REASON_COST,tp,c50223105.spfilter,1,nil,ft,tp)
return Duel.CheckReleaseGroupEx(tp,c50223105.spfilter,1,REASON_SPSUMMON,false,nil,tp)
end
function c50223105.stg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local g=Duel.GetReleaseGroup(tp,false,REASON_SPSUMMON):Filter(c50223105.spfilter,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local tc=g:SelectUnselect(nil,tp,false,true,1,1)
if tc then
e:SetLabelObject(tc)
return true
else return false end
end
function c50223105.sop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=Duel.SelectReleaseGroup(REASON_COST,tp,c50223105.spfilter,1,1,nil,ft,tp)
Duel.Release(g,REASON_COST)
local g=e:GetLabelObject()
Duel.Release(g,REASON_SPSUMMON)
end
function c50223105.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
......
......@@ -15,6 +15,7 @@ function c50223110.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c50223110.scon)
e2:SetTarget(c50223110.stg)
e2:SetOperation(c50223110.sop)
c:RegisterEffect(e2)
--token
......@@ -63,20 +64,27 @@ function c50223110.initial_effect(c)
end
c50223110.lvup={50218106}
c50223110.lvdn={50218104,50218105,50218106}
function c50223110.spfilter(c,ft,tp)
function c50223110.spfilter(c,tp)
return c:IsCode(50218106)
and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
and Duel.GetMZoneCount(tp,c)>0 and (c:IsControler(tp) or c:IsFaceup())
end
function c50223110.scon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.CheckReleaseGroup(REASON_COST,tp,c50223110.spfilter,1,nil,ft,tp)
return Duel.CheckReleaseGroupEx(tp,c50223110.spfilter,1,REASON_SPSUMMON,false,nil,tp)
end
function c50223110.stg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local g=Duel.GetReleaseGroup(tp,false,REASON_SPSUMMON):Filter(c50223110.spfilter,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local tc=g:SelectUnselect(nil,tp,false,true,1,1)
if tc then
e:SetLabelObject(tc)
return true
else return false end
end
function c50223110.sop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=Duel.SelectReleaseGroup(REASON_COST,tp,c50223110.spfilter,1,1,nil,ft,tp)
Duel.Release(g,REASON_COST)
local g=e:GetLabelObject()
Duel.Release(g,REASON_SPSUMMON)
end
function c50223110.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
......
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