Skip to content

Y
ygopro-222DIY-cards
Commit 55b2cf1a authored by REIKAI's avatar REIKAI 💬
Browse files
Options

rep

parent 8e70adae
Hide whitespace changes
Inline Side-by-side
Showing with 155 additions and 157 deletions
expansions/222DIY.cdb
View file @ 55b2cf1a
No preview for this file type
expansions/script/c17032160.lua
View file @ 55b2cf1a
......@@ -9,173 +9,171 @@ function c17032160.initial_effect(c)
e1:SetOperation(c17032160.activate)
c:RegisterEffect(e1)
end
function c17032160.filter(c,e,tp)
return c:IsRace(RACE_FIEND) and (c:IsFaceup() or not c:IsLocation(LOCATION_EXTRA)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
function c17032160.xble(mg,c)
local n=mg:GetCount()
return c:IsXyzSummonable(mg,n,n)
end
function c17032160.xyzfilter2(c,mg,rc)
if not c:IsRace(RACE_FIEND) then return false end
local tmp=Duel.CheckXyzMaterial
local tmp2=Auxiliary.XyzLevelFreeFilter
local tmp3=Auxiliary.XyzLevelFreeGoal
function Duel.CheckXyzMaterial(c,f,lv,minc,maxc,og)
local flag=tmp(c,f,lv,minc,maxc,og)
if og then
for tc in aux.Next(og) do
if tc~=rc and f and not f(tc) then
flag=false
end
end
if og:Filter(aux.TRUE,rc):FilterCount(c17032160.matcheck,nil,c,f,lv)+1>=minc then
flag=true
end
end
return flag
end
function Auxiliary.XyzLevelFreeFilter(c,xyzc,f)
return c:IsFaceup() and c:IsCanBeXyzMaterial(xyzc) and (not f or f(c,xyzc)) or c==rc
end
function Auxiliary.XyzLevelFreeGoal(g,tp,xyzc,gf)
return (not gf or gf(g:Filter(aux.TRUE,rc)) or g:GetCount()==2) and Duel.GetLocationCountFromEx(tp,tp,g,xyzc)>0
end
local sg=mg:Clone()
sg:AddCard(rc)
local res=c:IsXyzSummonable(sg)
Duel.CheckXyzMaterial=tmp
Auxiliary.XyzLevelFreeFilter=tmp2
Auxiliary.XyzLevelFreeGoal=tmp3
return res
function c17032160.xyzfilexm(c,e,tp)
return c:IsType(TYPE_XYZ) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and (c:IsType(TYPE_PENDULUM) or c:IsRace(RACE_FIEND))
end
function c17032160.xyzfilter(c,mg,ct)
return c:IsXyzSummonable(mg,2,ct)
function c17032160.xyzfiln(c,e,tp)
return c:IsType(TYPE_XYZ) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
end
function c17032160.matcheck(c,xyzc,f,lv)
return c:IsFaceup() and c:IsCanBeXyzMaterial(xyzc) and ((not f or f(c,xyzc)) and c:IsXyzLevel(xyzc,lv) or c==rc)
function c17032160.filspex(c,e,tp)
return c:IsRace(RACE_FIEND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsCanBeXyzMaterial(nil)
end
function c17032160.mfilter1(c,mg,exg,rc)
return mg:IsExists(c17032160.mfilter2,1,c,c,exg,rc)
function c17032160.filspgv(c,e,tp)
return c:IsRace(RACE_FIEND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCanBeXyzMaterial(nil)
end
function c17032160.mfilter2(c,mc,exg,rc)
return exg:IsExists(c17032160.excheck,1,nil,Group.FromCards(c,mc,rc),rc)
function c17032160.mgxble(Omg,c,xmg,exn,gmg,gn,b,oc)
local mg=Omg
if oc then mg:AddCard(oc) end
local sxg=mg:__band(xmg)
local sgg=mg:__band(gmg)
return #sxg<=exn and #sgg<=gn and (not b or #sxg+#sgg<2) and c17032160.xble(mg,c)
end
function c17032160.excheck(c,eg,rc)
local tmp=Duel.CheckXyzMaterial
local tmp2=Auxiliary.XyzLevelFreeFilter
local tmp3=Auxiliary.XyzLevelFreeGoal
function Duel.CheckXyzMaterial(c,f,lv,minc,maxc,og)
local flag=tmp(c,f,lv,minc,maxc,og)
if og then
for tc in aux.Next(og) do
if tc~=rc and f and not f(tc) then
flag=false
end
end
if og:Filter(aux.TRUE,rc):FilterCount(c17032160.matcheck,nil,c,f,lv)+1>=minc then
flag=true
end
end
return flag
end
function Auxiliary.XyzLevelFreeFilter(c,xyzc,f)
return c:IsFaceup() and c:IsCanBeXyzMaterial(xyzc) and (not f or f(c,xyzc)) or c==rc
function c17032160.filexg(c,oc,xmg,exn,gmg,gn,b)
local level=1
while level<13 do
local e0=Effect.CreateEffect(oc)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_ADD_TYPE)
e0:SetValue(TYPE_MONSTER)
oc:RegisterEffect(e0,true)
local e1=Effect.CreateEffect(oc)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_XYZ_LEVEL)
e1:SetValue(level)
oc:RegisterEffect(e1,true)
local mg=xmg:__add(gmg)
mg=mg:Filter(Card.IsXyzLevel,nil,c,level)
if mg:GetCount()>0 and mg:CheckSubGroup(c17032160.mgxble,1,6,c,xmg,exn,gmg,gn,b,oc) then
e0:Reset()
e1:Reset()
return true
end
e0:Reset()
e1:Reset()
level=level+1
end
function Auxiliary.XyzLevelFreeGoal(g,tp,xyzc,gf)
return (not gf or gf(g:Filter(aux.TRUE,rc)) or g:GetCount()==2) and Duel.GetLocationCountFromEx(tp,tp,g,xyzc)>0
end
local res=c:IsXyzSummonable(eg)
Duel.CheckXyzMaterial=tmp
Auxiliary.XyzLevelFreeFilter=tmp2
return res
return false
end
function c17032160.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local c=e:GetHandler()
if chkc then return false end
local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
local mg=Duel.GetMatchingGroup(c17032160.filter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,nil,e,tp)
local exg=Duel.GetMatchingGroup(c17032160.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg,ct)
local exg1=Duel.GetMatchingGroup(c17032160.xyzfilter2,tp,LOCATION_EXTRA,0,nil,mg,c)
exg:Merge(exg1)
if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2)
and not Duel.IsPlayerAffectedByEffect(tp,59822133)
and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
and mg:CheckSubGroup(c17032160.gfilter,1,2,exg,c) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg1,2,0,0)
function c17032160.filng(c,xmg,exn,gmg,gn,b)
local mg=xmg:__add(gmg)
return mg and mg:CheckSubGroup(c17032160.mgxble,1,6,c,xmg,exn,gmg,gn,b)
end
function c17032160.filter2(c,e,tp)
return c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
function c17032160.xbleplus(mg,sc,twomg,xmg,exn,gmg,gn,b)
local og=mg:__add(twomg)
return c17032160.mgxble(og,sc,xmg,exn,gmg,gn,b)
end
function c17032160.gfilter(g,exg,rc)
local sg=g:Clone()
sg:AddCard(rc)
return exg:IsExists(c17032160.excheck,1,nil,sg,rc)
function c17032160.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
if not Duel.IsPlayerCanSpecialSummonCount(tp,2) then return false end
local b=Duel.IsPlayerAffectedByEffect(tp,59822133)
local nilg=Group.CreateGroup()
local c=e:GetHandler()
local xmg=nilg
local exn=Duel.GetLocationCountFromEx(tp)
if Duel.IsPlayerAffectedByEffect(tp,29724053) and exn>2 then exn=2 end
if exn>0 then xmg=Duel.GetMatchingGroup(c17032160.filspex,tp,LOCATION_EXTRA,0,nil,e,tp) end
local gmg=nilg
local gn=Duel.GetLocationCount(tp,LOCATION_MZONE)
if gn>0 then gmg=Duel.GetMatchingGroup(aux.NecroValleyFilter(c17032160.filspgv),tp,LOCATION_GRAVE,0,nil,e,tp) end
if xmg:GetCount()<1 and gmg:GetCount()<1 then return false end
local exg=Duel.GetMatchingGroup(c17032160.xyzfilexm,tp,LOCATION_EXTRA,0,nil,e,tp)
if #exg>0 then exg=exg:Filter(c17032160.filexg,nil,c,xmg,exn,gmg,gn,b) end
local nxg=Duel.GetMatchingGroup(c17032160.xyzfiln,tp,LOCATION_EXTRA,0,nil,e,tp)
if #nxg>0 then nxg=nxg:Filter(c17032160.filng,nil,xmg,exn,gmg,gn,b) end
--Debug.Message(#exg)
return #exg>0 or #nxg>0
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c17032160.activate(e,tp,eg,ep,ev,re,r,rp)
local rc=e:GetHandler()
if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end
local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
local mg=Duel.GetMatchingGroup(c17032160.filter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,nil,e,tp)
local exg=Duel.GetMatchingGroup(c17032160.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg,ct)
local exg1=Duel.GetMatchingGroup(c17032160.xyzfilter2,tp,LOCATION_EXTRA,0,nil,mg,rc)
exg:Merge(exg1)
local g=mg:SelectSubGroup(tp,c17032160.gfilter,false,1,2,exg,rc)
if #g==0 then return end
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
Duel.RaiseEvent(e:GetHandler(),EVENT_ADJUST,nil,0,PLAYER_NONE,PLAYER_NONE,0)
if g:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<#g then return end
local xyzg=Duel.GetMatchingGroup(c17032160.xyzfilter,tp,LOCATION_EXTRA,0,nil,g,#g)
local xyzg1=Duel.GetMatchingGroup(c17032160.xyzfilter2,tp,LOCATION_EXTRA,0,nil,g,e:GetHandler())
xyzg:Merge(xyzg1)
if xyzg:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
local tmp=Duel.SelectXyzMaterial
local temp=Duel.CheckXyzMaterial
function Duel.CheckXyzMaterial(c,f,lv,minc,maxc,og)
local flag=temp(c,f,lv,minc,maxc,og)
if og then
for tc in aux.Next(og) do
if tc~=rc and f and not f(tc) then
flag=false
end
end
if og:Filter(aux.TRUE,rc):FilterCount(Card.IsCanBeXyzMaterial,nil,c)+1>=minc then
flag=true
if not Duel.IsPlayerCanSpecialSummonCount(tp,2) then return end
local b=Duel.IsPlayerAffectedByEffect(tp,59822133)
local nilg=Group.CreateGroup()
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then c=nil end
local xmg=nilg
local exn=Duel.GetLocationCountFromEx(tp)
if Duel.IsPlayerAffectedByEffect(tp,29724053) and exn>2 then exn=2 end
if exn>0 then xmg=Duel.GetMatchingGroup(c17032160.filspex,tp,LOCATION_EXTRA,0,nil,e,tp) end
local gmg=nilg
local gn=Duel.GetLocationCount(tp,LOCATION_MZONE)
if gn>0 then gmg=Duel.GetMatchingGroup(aux.NecroValleyFilter(c17032160.filspgv),tp,LOCATION_GRAVE,0,nil,e,tp) end
if xmg:GetCount()<1 and gmg:GetCount()<1 then return false end
local exg=nilg
if c then exg=Duel.GetMatchingGroup(c17032160.xyzfilexm,tp,LOCATION_EXTRA,0,nil,e,tp) end
if #exg>0 then exg=exg:Filter(c17032160.filexg,nil,c,xmg,exn,gmg,gn,b) end
local nxg=Duel.GetMatchingGroup(c17032160.xyzfiln,tp,LOCATION_EXTRA,0,nil,e,tp)
if #nxg>0 then nxg=nxg:Filter(c17032160.filng,nil,xmg,exn,gmg,gn,b) end
if #exg>0 and (#nxg<1 or Duel.SelectYesNo(tp,aux.Stringid(17032160,1))) then
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_ADD_TYPE)
e0:SetValue(TYPE_MONSTER)
e0:SetReset(RESETS_REDIRECT)
c:RegisterEffect(e0,true)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)--xyz
local sc=exg:Select(tp,1,1,nil)
if sc then sc=sc:GetFirst() end
local mg=xmg:__add(gmg)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local mg1=mg:FilterSelect(tp,Card.IsCanBeXyzMaterial,1,1,nil,sc)
local mc=mg1:GetFirst()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_XYZ_LEVEL)
e1:SetValue(mc:GetLevel())
e1:SetReset(RESETS_REDIRECT)
c:RegisterEffect(e1,true)
c:CancelToGrave()
local twomg=Group.FromCards(mc,c)
mg:RemoveCard(mc)
if c17032160.xble(twomg,sc) and (b or not mg:CheckSubGroup(c17032160.xbleplus,1,#mg,sc,twomg,xmg,exn,gmg,gn,b)) then--
Duel.SpecialSummon(mc,0,tp,tp,false,false,POS_FACEUP)
Duel.BreakEffect()
Duel.XyzSummon(tp,sc,twomg,0)
else Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local tmg=mg:SelectSubGroup(tp,c17032160.xbleplus,false,1,#mg,sc,twomg,xmg,exn,gmg,gn,b)
if tmg then
tmg:AddCard(mc)
local tmc=tmg:GetFirst()
while tmc do
Duel.SpecialSummonStep(tmc,0,tp,tp,false,false,POS_FACEUP)
tmc=tmg:GetNext()
end
Duel.SpecialSummonComplete()
Duel.RaiseEvent(c,EVENT_ADJUST,nil,0,PLAYER_NONE,PLAYER_NONE,0)
if tmg:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<tmg:GetCount() then
c:CancelToGrave(false)
return end
Duel.BreakEffect()
tmg:AddCard(c)
Duel.XyzSummon(tp,sc,tmg,0)
end
return flag
end
local tmp2=Auxiliary.XyzLevelFreeFilter
local tmp3=Auxiliary.XyzLevelFreeGoal
function Auxiliary.XyzLevelFreeFilter(c,xyzc,f)
return c:IsFaceup() and c:IsCanBeXyzMaterial(xyzc) and (not f or f(c,xyzc)) or c==rc
end
function Auxiliary.XyzLevelFreeGoal(g,tp,xyzc,gf)
return (not gf or gf(g:Filter(aux.TRUE,rc)) or g:GetCount()==2) and Duel.GetLocationCountFromEx(tp,tp,g,xyzc)>0
end
local b1=xyz:IsXyzSummonable(g,#g,#g)
g:AddCard(rc)
local b2=xyz:IsXyzSummonable(g,#g,#g)
local off=1
local ops={}
local opval={}
if b1 then
ops[off]=aux.Stringid(17032160,0)
opval[off-1]=1
off=off+1
end
if b2 then
ops[off]=aux.Stringid(17032160,1)
opval[off-1]=2
off=off+1
end
local op=Duel.SelectOption(tp,table.unpack(ops))
local sel=opval[op]
if sel==1 then
g:RemoveCard(rc)
Duel.XyzSummon(tp,xyz,g)
else
rc:CancelToGrave()
Duel.XyzSummon(tp,xyz,g)
elseif #nxg>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)--xyz
local sc=nxg:Select(tp,1,1,nil)
if sc then sc=sc:GetFirst() end
local mg=xmg:__add(gmg)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local tmg=mg:SelectSubGroup(tp,c17032160.mgxble,false,1,#mg,sc,xmg,exn,gmg,gn,b)
if tmg then
local tmc=tmg:GetFirst()
while tmc do
Duel.SpecialSummonStep(tmc,0,tp,tp,false,false,POS_FACEUP)
tmc=tmg:GetNext()
end
Duel.SpecialSummonComplete()
Duel.RaiseEvent(c,EVENT_ADJUST,nil,0,PLAYER_NONE,PLAYER_NONE,0)
if tmg:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<tmg:GetCount() then
c:CancelToGrave(false)
return end
Duel.BreakEffect()
Duel.XyzSummon(tp,sc,tmg,0)
end
end
end
end
\ No newline at end of file
expansions/script/c23003125.lua
View file @ 55b2cf1a
......@@ -34,7 +34,7 @@ function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsPreviousLocation(LOCATION_MZONE) and e:GetHandler():IsPreviousPosition(POS_FACEUP)
end
function cm.cfilter(c)
return c:IsSetCard(0x362) and c:IsAbleToRemoveAsCost() and not c:IsCode(m)
return c:IsSetCard(0x362) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() and not c:IsCode(m)
end
function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
......@@ -53,7 +53,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
end
end
function cm.costfilter(c)
return c:IsSetCard(0x362) and c:IsAbleToRemoveAsCost()
return c:IsSetCard(0x362) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_GRAVE,0,1,nil) end
......
expansions/script/c33310210.lua
View file @ 55b2cf1a
......@@ -26,7 +26,7 @@ function c33310210.initial_effect(c)
e1:SetDescription(aux.Stringid(33310210,0))
e1:SetCategory(CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetTarget(c33310210.thtg)
e1:SetOperation(c33310210.thop)
......
expansions/script/c81009018.lua
View file @ 55b2cf1a
......@@ -19,7 +19,7 @@ function cm.filter1(c,e)
return not c:IsImmuneToEffect(e)
end
function cm.filter2(c,e,tp,m,f,chkf)
return c:IsType(TYPE_FUSION) and c:IsSetCard(0x551) and (not f or f(c))
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
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
......
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