Skip to content

Y
ygopro-222DIY-cards
Commit 34da2710 authored by Tachibana's avatar Tachibana
Browse files
Options

tnndx

parent 6db45bcc
Show whitespace changes
Inline Side-by-side
Showing with 220 additions and 71 deletions
expansions/222DIY.cdb
View file @ 34da2710
No preview for this file type
expansions/script/c33400801.lua
View file @ 34da2710
......@@ -50,6 +50,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400802.lua
View file @ 34da2710
......@@ -67,6 +67,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400803.lua
View file @ 34da2710
......@@ -70,6 +70,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400804.lua
View file @ 34da2710
......@@ -56,6 +56,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400805.lua
View file @ 34da2710
......@@ -54,6 +54,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400806.lua
View file @ 34da2710
......@@ -68,6 +68,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400807.lua
View file @ 34da2710
......@@ -70,6 +70,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400808.lua
View file @ 34da2710
......@@ -56,6 +56,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400809.lua
View file @ 34da2710
......@@ -65,6 +65,11 @@ function cm.mvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local b2=Duel.IsExistingMatchingCard(cm.mvfilter2,tp,LOCATION_MZONE,0,1,nil,tp)
if chk==0 then return b1 or b2 end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,6))
tc=tg:GetNext()
end
end
function cm.mvop(e,tp,eg,ep,ev,re,r,rp)
local b1=Duel.IsExistingMatchingCard(cm.mvfilter1,tp,LOCATION_MZONE,0,1,nil)
......
expansions/script/c33400810.lua
View file @ 34da2710
......@@ -40,7 +40,7 @@ function cm.initial_effect(c)
end
function cm.hspfilter(c,tp,sc)
return c:IsSetCard(0xa341) and Duel.GetFlagEffect(tp,c:GetCode())==0
and c:IsControler(tp) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL) and Duel.CheckReleaseGroup(c:GetControler(),cm.hspfilter2,1,c,c:GetControler(),sc,tc)
and Duel.GetFlagEffect(tp,c:GetCode()+10000)==0 and c:IsControler(tp) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL) and Duel.CheckReleaseGroup(c:GetControler(),cm.hspfilter2,1,c,c:GetControler(),sc,tc)
end
function cm.hspfilter2(c,tp,sc,tc)
local g=Group.CreateGroup()
......@@ -61,8 +61,20 @@ function cm.hspop(e,tp,eg,ep,ev,re,r,rp,c)
g2:Merge(g1)
c:SetMaterial(g2)
Duel.Release(g2,REASON_COST)
Duel.RegisterFlagEffect(tp,tc1:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc2:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc1:GetCode()+10000,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc2:GetCode()+10000,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg1=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc1:GetCode())
local tc1=tg1:GetFirst()
while tc1 do
tc1:RegisterFlagEffect(tc1:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
tc1=tg1:GetNext()
end
local tg2=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc2:GetCode())
local tc2=tg2:GetFirst()
while tc2 do
tc2:RegisterFlagEffect(tc2:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
tc2=tg2:GetNext()
end
end
function cm.con(e,tp,eg,ep,ev,re,r,rp)
......@@ -103,6 +115,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400811.lua
View file @ 34da2710
......@@ -39,7 +39,7 @@ function cm.initial_effect(c)
end
function cm.hspfilter(c,tp,sc)
return c:IsSetCard(0xa341) and Duel.GetFlagEffect(tp,c:GetCode())==0
and c:IsControler(tp) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL) and Duel.CheckReleaseGroup(c:GetControler(),cm.hspfilter2,1,c,c:GetControler(),sc,tc)
and Duel.GetFlagEffect(tp,c:GetCode()+10000)==0 and c:IsControler(tp) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL) and Duel.CheckReleaseGroup(c:GetControler(),cm.hspfilter2,1,c,c:GetControler(),sc,tc)
end
function cm.hspfilter2(c,tp,sc,tc)
local g=Group.CreateGroup()
......@@ -60,8 +60,20 @@ function cm.hspop(e,tp,eg,ep,ev,re,r,rp,c)
g2:Merge(g1)
c:SetMaterial(g2)
Duel.Release(g2,REASON_COST)
Duel.RegisterFlagEffect(tp,tc1:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc2:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc1:GetCode()+10000,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc2:GetCode()+10000,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg1=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc1:GetCode())
local tc1=tg1:GetFirst()
while tc1 do
tc1:RegisterFlagEffect(tc1:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
tc1=tg1:GetNext()
end
local tg2=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc2:GetCode())
local tc2=tg2:GetFirst()
while tc2 do
tc2:RegisterFlagEffect(tc2:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
tc2=tg2:GetNext()
end
end
function cm.seqfilter(c)
......@@ -119,6 +131,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400812.lua
View file @ 34da2710
......@@ -40,7 +40,7 @@ function cm.initial_effect(c)
end
function cm.hspfilter(c,tp,sc)
return c:IsSetCard(0xa341) and Duel.GetFlagEffect(tp,c:GetCode())==0
and c:IsControler(tp) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL) and Duel.CheckReleaseGroup(c:GetControler(),cm.hspfilter2,1,c,c:GetControler(),sc,tc)
and Duel.GetFlagEffect(tp,c:GetCode()+10000)==0 and c:IsControler(tp) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL) and Duel.CheckReleaseGroup(c:GetControler(),cm.hspfilter2,1,c,c:GetControler(),sc,tc)
end
function cm.hspfilter2(c,tp,sc,tc)
local g=Group.CreateGroup()
......@@ -61,8 +61,20 @@ function cm.hspop(e,tp,eg,ep,ev,re,r,rp,c)
g2:Merge(g1)
c:SetMaterial(g2)
Duel.Release(g2,REASON_COST)
Duel.RegisterFlagEffect(tp,tc1:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc2:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc1:GetCode()+10000,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc2:GetCode()+10000,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg1=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc1:GetCode())
local tc1=tg1:GetFirst()
while tc1 do
tc1:RegisterFlagEffect(tc1:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
tc1=tg1:GetNext()
end
local tg2=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc2:GetCode())
local tc2=tg2:GetFirst()
while tc2 do
tc2:RegisterFlagEffect(tc2:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
tc2=tg2:GetNext()
end
end
function cm.con(e,tp,eg,ep,ev,re,r,rp)
......@@ -104,6 +116,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400813.lua
View file @ 34da2710
......@@ -40,7 +40,7 @@ function cm.initial_effect(c)
end
function cm.hspfilter(c,tp,sc)
return c:IsSetCard(0xa341) and Duel.GetFlagEffect(tp,c:GetCode())==0
and c:IsControler(tp) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL) and Duel.CheckReleaseGroup(c:GetControler(),cm.hspfilter2,1,c,c:GetControler(),sc,tc)
and Duel.GetFlagEffect(tp,c:GetCode()+10000)==0 and c:IsControler(tp) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL) and Duel.CheckReleaseGroup(c:GetControler(),cm.hspfilter2,1,c,c:GetControler(),sc,tc)
end
function cm.hspfilter2(c,tp,sc,tc)
local g=Group.CreateGroup()
......@@ -61,8 +61,20 @@ function cm.hspop(e,tp,eg,ep,ev,re,r,rp,c)
g2:Merge(g1)
c:SetMaterial(g2)
Duel.Release(g2,REASON_COST)
Duel.RegisterFlagEffect(tp,tc1:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc2:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc1:GetCode()+10000,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc2:GetCode()+10000,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg1=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc1:GetCode())
local tc1=tg1:GetFirst()
while tc1 do
tc1:RegisterFlagEffect(tc1:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
tc1=tg1:GetNext()
end
local tg2=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc2:GetCode())
local tc2=tg2:GetFirst()
while tc2 do
tc2:RegisterFlagEffect(tc2:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
tc2=tg2:GetNext()
end
end
function cm.seqfilter(c)
......@@ -123,6 +135,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400814.lua
View file @ 34da2710
......@@ -22,36 +22,36 @@ function cm.initial_effect(c)
e1:SetValue(cm.splimit)
c:RegisterEffect(e1)
--ChainLimit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAINING)
e2:SetRange(LOCATION_MZONE)
e2:SetOperation(cm.chainop)
c:RegisterEffect(e2)
--inactivatable
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_CHAINING)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_CANNOT_INACTIVATE)
e3:SetRange(LOCATION_MZONE)
e3:SetOperation(cm.chainop)
e3:SetValue(cm.effectfilter)
c:RegisterEffect(e3)
--inactivatable
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetCode(EFFECT_CANNOT_INACTIVATE)
e4:SetCode(EFFECT_CANNOT_DISEFFECT)
e4:SetRange(LOCATION_MZONE)
e4:SetValue(cm.effectfilter)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetCode(EFFECT_CANNOT_DISEFFECT)
e5:SetRange(LOCATION_MZONE)
e5:SetValue(cm.effectfilter)
c:RegisterEffect(e5)
--set
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DISABLE+CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_CHAINING)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(2,m)
e2:SetCondition(cm.stcon)
e2:SetTarget(cm.sttg)
e2:SetOperation(cm.stop)
c:RegisterEffect(e2)
local e9=Effect.CreateEffect(c)
e9:SetCategory(CATEGORY_DISABLE+CATEGORY_TOHAND)
e9:SetType(EFFECT_TYPE_QUICK_O)
e9:SetCode(EVENT_CHAINING)
e9:SetRange(LOCATION_MZONE)
e9:SetCountLimit(2,m)
e9:SetCondition(cm.stcon)
e9:SetTarget(cm.sttg)
e9:SetOperation(cm.stop)
c:RegisterEffect(e9)
--Equip Okatana
local e8=Effect.CreateEffect(c)
e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
......@@ -69,6 +69,7 @@ end
function cm.hspfilter(c,tp,sc)
return c:IsSetCard(0xa341)and c:IsType(TYPE_FUSION) and Duel.GetFlagEffect(tp,c:GetCode())==0
and Duel.GetFlagEffect(tp,c:GetCode()+10000)==0
and c:IsControler(tp) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL) and Duel.CheckReleaseGroup(c:GetControler(),cm.hspfilter2,1,c,c:GetControler(),sc,tc)
end
function cm.hspfilter2(c,tp,sc,tc)
......@@ -76,6 +77,7 @@ function cm.hspfilter2(c,tp,sc,tc)
g:AddCard(tc)
g:AddCard(c)
return c:IsSetCard(0xa341) and c:IsType(TYPE_FUSION)and Duel.GetFlagEffect(tp,c:GetCode())==0
and Duel.GetFlagEffect(tp,c:GetCode()+10000)==0
and c:IsControler(tp) and Duel.GetLocationCountFromEx(tp,tp,g,sc)>0 and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL)
end
function cm.hspcon(e,c)
......@@ -92,6 +94,18 @@ function cm.hspop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.Release(g2,REASON_COST)
Duel.RegisterFlagEffect(tp,tc1:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc2:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg1=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc1:GetCode())
local tc1=tg1:GetFirst()
while tc1 do
tc1:RegisterFlagEffect(tc1:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,6))
tc1=tg1:GetNext()
end
local tg2=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc2:GetCode())
local tc2=tg2:GetFirst()
while tc2 do
tc2:RegisterFlagEffect(tc2:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,6))
tc2=tg2:GetNext()
end
end
function cm.splimit(e,se,sp,st)
......@@ -135,6 +149,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,7))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400815.lua
View file @ 34da2710
......@@ -50,16 +50,16 @@ function cm.initial_effect(c)
e3:SetValue(cm.tglimit)
c:RegisterEffect(e3)
--set
local e5=Effect.CreateEffect(c)
e5:SetCategory(CATEGORY_DISABLE+CATEGORY_TOHAND)
e5:SetType(EFFECT_TYPE_QUICK_O)
e5:SetCode(EVENT_CHAINING)
e5:SetRange(LOCATION_MZONE)
e5:SetCountLimit(2,m)
e5:SetCondition(cm.stcon)
e5:SetTarget(cm.sttg)
e5:SetOperation(cm.stop)
c:RegisterEffect(e5)
local e9=Effect.CreateEffect(c)
e9:SetCategory(CATEGORY_DISABLE+CATEGORY_TOHAND)
e9:SetType(EFFECT_TYPE_QUICK_O)
e9:SetCode(EVENT_CHAINING)
e9:SetRange(LOCATION_MZONE)
e9:SetCountLimit(2,m)
e9:SetCondition(cm.stcon)
e9:SetTarget(cm.sttg)
e9:SetOperation(cm.stop)
c:RegisterEffect(e9)
--Equip Okatana
local e8=Effect.CreateEffect(c)
e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
......@@ -77,6 +77,7 @@ end
function cm.hspfilter(c,tp,sc)
return c:IsSetCard(0xa341)and c:IsType(TYPE_FUSION) and Duel.GetFlagEffect(tp,c:GetCode())==0
and Duel.GetFlagEffect(tp,c:GetCode()+10000)==0
and c:IsControler(tp) and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL) and Duel.CheckReleaseGroup(c:GetControler(),cm.hspfilter2,1,c,c:GetControler(),sc,tc)
end
function cm.hspfilter2(c,tp,sc,tc)
......@@ -84,6 +85,7 @@ function cm.hspfilter2(c,tp,sc,tc)
g:AddCard(tc)
g:AddCard(c)
return c:IsSetCard(0xa341) and c:IsType(TYPE_FUSION)and Duel.GetFlagEffect(tp,c:GetCode())==0
and Duel.GetFlagEffect(tp,c:GetCode()+10000)==0
and c:IsControler(tp) and Duel.GetLocationCountFromEx(tp,tp,g,sc)>0 and c:IsCanBeFusionMaterial(sc,SUMMON_TYPE_SPECIAL)
end
function cm.hspcon(e,c)
......@@ -100,6 +102,18 @@ function cm.hspop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.Release(g2,REASON_COST)
Duel.RegisterFlagEffect(tp,tc1:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
Duel.RegisterFlagEffect(tp,tc2:GetCode(),RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg1=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc1:GetCode())
local tc1=tg1:GetFirst()
while tc1 do
tc1:RegisterFlagEffect(tc1:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,6))
tc1=tg1:GetNext()
end
local tg2=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,tc2:GetCode())
local tc2=tg2:GetFirst()
while tc2 do
tc2:RegisterFlagEffect(tc2:GetCode()+10000,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,6))
tc2=tg2:GetNext()
end
end
function cm.splimit(e,se,sp,st)
......@@ -131,6 +145,11 @@ end
function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,7))
tc=tg:GetNext()
end
end
function cm.stop(e,tp,eg,ep,ev,re,r,rp)
c=e:GetHandler()
......
expansions/script/c33400818.lua
View file @ 34da2710
......@@ -126,6 +126,11 @@ function cm.regop(e,tp,eg,ep,ev,re,r,rp)
e3:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e3,tp)
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
local tg=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0x7f,0,nil,m)local tc=tg:GetFirst()
while tc do
tc:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,9))
tc=tg:GetNext()
end
end
function cm.actlimit1(e,re,tp)
return not re:GetHandler():IsLocation(LOCATION_ONFIELD)
......@@ -448,10 +453,3 @@ function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
end
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