Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Y
ygopro-scripts-888
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
3
Merge Requests
3
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Packages
Packages
List
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issues
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
MyCard
ygopro-scripts-888
Commits
b7694bfa
Commit
b7694bfa
authored
Jun 26, 2025
by
wind2009
Browse files
Options
Browse Files
Download
Plain Diff
Merge remote-tracking branch '233/patch-xyz' into master
parents
96e84e98
e62dec88
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
144 additions
and
619 deletions
+144
-619
c60268386.lua
c60268386.lua
+5
-207
c81096431.lua
c81096431.lua
+5
-207
constant.lua
constant.lua
+1
-0
procedure.lua
procedure.lua
+133
-205
No files found.
c60268386.lua
View file @
b7694bfa
--紋章獣グリフォン
--紋章獣グリフォン
--not fully implemented
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
local
e0
=
Effect
.
CreateEffect
(
c
)
e0
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
e0
:
SetProperty
(
EFFECT_FLAG_IGNORE_IMMUNE
)
e0
:
SetCode
(
EVENT_ADJUST
)
e0
:
SetRange
(
LOCATION_MZONE
)
e0
:
SetOperation
(
s
.
adjustop
)
c
:
RegisterEffect
(
e0
)
--spsummon
--spsummon
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
...
@@ -19,14 +13,14 @@ function s.initial_effect(c)
...
@@ -19,14 +13,14 @@ function s.initial_effect(c)
e1
:
SetTarget
(
s
.
sptg
)
e1
:
SetTarget
(
s
.
sptg
)
e1
:
SetOperation
(
s
.
spop
)
e1
:
SetOperation
(
s
.
spop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
--
flag
--
2X material
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetType
(
EFFECT_TYPE_SINGLE
)
e2
:
SetType
(
EFFECT_TYPE_SINGLE
)
e2
:
SetProperty
(
EFFECT_FLAG_SINGLE_RANGE
)
e2
:
SetProperty
(
EFFECT_FLAG_SINGLE_RANGE
)
e2
:
SetCode
(
81096431
)
e2
:
SetCode
(
EFFECT_DOUBLE_XMATERIAL
)
e2
:
SetValue
(
id
)
e2
:
SetRange
(
LOCATION_MZONE
)
e2
:
SetRange
(
0xff
)
e2
:
SetTarget
(
s
.
sxyzfilter
)
e2
:
SetTarget
(
s
.
sxyzfilter
)
e2
:
SetValue
(
id
)
e2
:
SetCountLimit
(
1
,
id
+
o
)
e2
:
SetCountLimit
(
1
,
id
+
o
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
end
end
...
@@ -90,199 +84,3 @@ end
...
@@ -90,199 +84,3 @@ end
function
s
.
sxyzfilter
(
e
,
c
)
function
s
.
sxyzfilter
(
e
,
c
)
return
c
:
IsSetCard
(
0x48
)
return
c
:
IsSetCard
(
0x48
)
end
end
function
s
.
Drake_shark_f
(
function_f
,
int_lv
,
card_c
)
return
function
(
c
)
return
c
:
IsXyzLevel
(
card_c
,
int_lv
)
and
(
not
function_f
or
function_f
(
c
))
end
end
function
s
.
sxfilter
(
c
,
tp
,
xc
)
local
te
=
c
:
IsHasEffect
(
81096431
,
tp
)
if
te
then
local
etg
=
te
:
GetTarget
()
return
not
etg
or
etg
(
te
,
xc
)
end
return
false
end
function
s
.
sxvalue
(
c
,
tp
,
xc
)
local
te
=
c
:
IsHasEffect
(
81096431
,
tp
)
if
te
then
local
etg
=
te
:
GetTarget
()
if
not
etg
or
etg
(
te
,
xc
)
then
return
te
:
GetValue
()
end
end
end
function
s
.
Drake_shark_gf
(
int_ct
,
int_tp
,
xc
)
return
function
(
g
)
local
ct
=
g
:
GetCount
()
local
eg
=
g
:
Filter
(
s
.
sxfilter
,
nil
,
int_tp
,
xc
)
if
#
eg
>
0
then
ct
=
ct
+
eg
:
GetClassCount
(
s
.
sxvalue
,
int_tp
,
xc
)
end
local
tc
=
g
:
GetFirst
()
while
tc
do
local
te
=
tc
:
IsHasEffect
(
EFFECT_XYZ_LEVEL
,
int_tp
)
if
te
then
local
evf
=
te
:
GetValue
()
if
evf
then
local
ev
=
evf
(
te
,
tc
,
xc
)
local
lmct
=
(
ev
>>
12
)
&
0xf
if
lmct
>
0
and
lmct
>
g
:
GetCount
()
then
return
false
end
end
end
tc
=
g
:
GetNext
()
end
return
ct
>=
int_ct
end
end
function
s
.
xfilter
(
c
,
tp
)
return
c
:
IsHasEffect
(
81096431
,
tp
)
end
function
s
.
eftfilter
(
c
,
tp
)
local
te
=
c
:
IsHasEffect
(
81096431
,
tp
)
return
te
:
GetValue
()
end
function
s
.
gcheck
(
g
,
tp
)
return
g
:
GetClassCount
(
s
.
eftfilter
,
tp
)
==
g
:
GetCount
()
end
function
s
.
adjustop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
Duel
.
GetFlagEffect
(
0
,
81096431
)
==
0
then
Duel
.
RegisterFlagEffect
(
0
,
81096431
,
0
,
0
,
1
)
Drake_shark_AddXyzProcedure
=
aux
.
AddXyzProcedure
function
aux
.
AddXyzProcedure
(
card_c
,
function_f
,
int_lv
,
int_ct
,
function_alterf
,
int_dese
,
int_maxc
,
function_op
)
if
int_ct
>=
3
then
if
function_alterf
then
Drake_shark_XyzLevelFreeOperationAlter
=
Auxiliary
.
XyzLevelFreeOperationAlter
function
Auxiliary
.
XyzLevelFreeOperationAlter
(
f
,
gf
,
minc
,
maxc
,
alterf
,
alterdesc
,
alterop
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
Auxiliary
.
Drake_Solve
(
tp
,
og
,
maxc
,
minc
)
local
sg
=
Group
.
CreateGroup
()
local
tc
=
og
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
og
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
c
:
SetMaterial
(
og
)
Duel
.
Overlay
(
c
,
og
)
else
local
mg
=
e
:
GetLabelObject
()
Auxiliary
.
Drake_Solve
(
tp
,
mg
,
maxc
,
minc
)
if
e
:
GetLabel
()
==
1
then
local
mg2
=
mg
:
GetFirst
():
GetOverlayGroup
()
if
mg2
:
GetCount
()
~=
0
then
Duel
.
Overlay
(
c
,
mg2
)
end
else
local
sg
=
Group
.
CreateGroup
()
local
tc
=
mg
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
mg
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
end
c
:
SetMaterial
(
mg
)
Duel
.
Overlay
(
c
,
mg
)
mg
:
DeleteGroup
()
end
end
end
aux
.
AddXyzProcedureLevelFree
(
card_c
,
s
.
Drake_shark_f
(
function_f
,
int_lv
,
card_c
),
s
.
Drake_shark_gf
(
int_ct
,
card_c
:
GetOwner
(),
card_c
),
int_ct
-
2
,
int_ct
,
function_alterf
,
int_dese
,
function_op
)
Auxiliary
.
XyzLevelFreeOperationAlter
=
Drake_shark_XyzLevelFreeOperationAlter
else
Drake_shark_XyzLevelFreeOperation
=
Auxiliary
.
XyzLevelFreeOperation
function
Auxiliary
.
XyzLevelFreeOperation
(
f
,
gf
,
minct
,
maxct
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
Auxiliary
.
Drake_Solve
(
tp
,
og
,
maxct
,
minct
)
local
sg
=
Group
.
CreateGroup
()
local
tc
=
og
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
og
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
c
:
SetMaterial
(
og
)
Duel
.
Overlay
(
c
,
og
)
else
local
mg
=
e
:
GetLabelObject
()
Auxiliary
.
Drake_Solve
(
tp
,
mg
,
maxct
,
minct
)
if
e
:
GetLabel
()
==
1
then
local
mg2
=
mg
:
GetFirst
():
GetOverlayGroup
()
if
mg2
:
GetCount
()
~=
0
then
Duel
.
Overlay
(
c
,
mg2
)
end
else
local
sg
=
Group
.
CreateGroup
()
local
tc
=
mg
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
mg
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
end
c
:
SetMaterial
(
mg
)
Duel
.
Overlay
(
c
,
mg
)
mg
:
DeleteGroup
()
end
end
end
aux
.
AddXyzProcedureLevelFree
(
card_c
,
s
.
Drake_shark_f
(
function_f
,
int_lv
,
card_c
),
s
.
Drake_shark_gf
(
int_ct
,
card_c
:
GetOwner
(),
card_c
),
int_ct
-
2
,
int_ct
)
Auxiliary
.
XyzLevelFreeOperation
=
Drake_shark_XyzLevelFreeOperation
end
else
if
function_alterf
then
Drake_shark_AddXyzProcedure
(
card_c
,
function_f
,
int_lv
,
int_ct
,
function_alterf
,
int_dese
,
int_maxc
,
function_op
)
else
Drake_shark_AddXyzProcedure
(
card_c
,
function_f
,
int_lv
,
int_ct
,
nil
,
nil
,
int_maxc
,
nil
)
end
end
end
local
rg
=
Duel
.
GetMatchingGroup
(
Card
.
IsType
,
tp
,
LOCATION_EXTRA
,
LOCATION_EXTRA
,
nil
,
TYPE_MONSTER
)
for
tc
in
aux
.
Next
(
rg
)
do
if
tc
.
initial_effect
then
local
Traitor_initial_effect
=
s
.
initial_effect
s
.
initial_effect
=
function
()
end
tc
:
ReplaceEffect
(
id
,
0
)
s
.
initial_effect
=
Traitor_initial_effect
tc
.
initial_effect
(
tc
)
end
end
end
e
:
Reset
()
end
function
Auxiliary
.
Drake_Solve
(
tp
,
g
,
maxct
,
minct
)
if
g
:
GetCount
()
<
maxct
and
g
:
GetCount
()
>=
minct
and
maxct
==
minct
+
2
then
local
et
=
maxct
-
g
:
GetCount
()
local
exg
=
g
:
Filter
(
Card
.
IsHasEffect
,
nil
,
81096431
,
tp
)
local
ext
=
exg
:
GetClassCount
(
s
.
eftfilter
,
tp
)
if
(
et
==
0
or
et
==
ext
)
and
#
exg
>
0
then
for
ttc
in
aux
.
Next
(
exg
)
do
local
tte
=
ttc
:
IsHasEffect
(
81096431
,
tp
)
if
tte
then
Duel
.
Hint
(
HINT_CARD
,
0
,
ttc
:
GetCode
())
tte
:
UseCountLimit
(
tp
)
end
end
elseif
#
exg
>
0
then
local
st
=
et
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_RESOLVECARD
)
local
reg
=
exg
:
SelectSubGroup
(
tp
,
s
.
gcheck
,
false
,
st
,
st
,
tp
)
for
ttc
in
aux
.
Next
(
reg
)
do
local
tte
=
ttc
:
IsHasEffect
(
81096431
,
tp
)
if
tte
then
Duel
.
Hint
(
HINT_CARD
,
0
,
ttc
:
GetCode
())
tte
:
UseCountLimit
(
tp
)
end
end
end
end
end
c81096431.lua
View file @
b7694bfa
--ドレイク・シャーク
--ドレイク・シャーク
--not fully implemented
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
local
e0
=
Effect
.
CreateEffect
(
c
)
e0
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
e0
:
SetProperty
(
EFFECT_FLAG_IGNORE_IMMUNE
)
e0
:
SetCode
(
EVENT_ADJUST
)
e0
:
SetRange
(
0xff
)
e0
:
SetOperation
(
s
.
adjustop
)
c
:
RegisterEffect
(
e0
)
--spsummon
--spsummon
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
...
@@ -20,14 +14,14 @@ function s.initial_effect(c)
...
@@ -20,14 +14,14 @@ function s.initial_effect(c)
e1
:
SetTarget
(
s
.
sptg
)
e1
:
SetTarget
(
s
.
sptg
)
e1
:
SetOperation
(
s
.
spop
)
e1
:
SetOperation
(
s
.
spop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
--
flag
--
2X material
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetType
(
EFFECT_TYPE_SINGLE
)
e2
:
SetType
(
EFFECT_TYPE_SINGLE
)
e2
:
SetProperty
(
EFFECT_FLAG_SINGLE_RANGE
)
e2
:
SetProperty
(
EFFECT_FLAG_SINGLE_RANGE
)
e2
:
SetCode
(
id
)
e2
:
SetCode
(
EFFECT_DOUBLE_XMATERIAL
)
e2
:
SetValue
(
id
)
e2
:
SetRange
(
LOCATION_MZONE
)
e2
:
SetRange
(
0xff
)
e2
:
SetTarget
(
s
.
sxyzfilter
)
e2
:
SetTarget
(
s
.
sxyzfilter
)
e2
:
SetValue
(
id
)
e2
:
SetCountLimit
(
1
,
id
+
o
)
e2
:
SetCountLimit
(
1
,
id
+
o
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
--material effect
--material effect
...
@@ -46,175 +40,6 @@ end
...
@@ -46,175 +40,6 @@ end
function
s
.
sxyzfilter
(
e
,
c
)
function
s
.
sxyzfilter
(
e
,
c
)
return
c
:
IsAttribute
(
ATTRIBUTE_WATER
)
return
c
:
IsAttribute
(
ATTRIBUTE_WATER
)
end
end
function
s
.
Drake_shark_f
(
function_f
,
int_lv
,
card_c
)
return
function
(
c
)
return
c
:
IsXyzLevel
(
card_c
,
int_lv
)
and
(
not
function_f
or
function_f
(
c
))
end
end
function
s
.
sxfilter
(
c
,
tp
,
xc
)
local
te
=
c
:
IsHasEffect
(
id
,
tp
)
if
te
then
local
etg
=
te
:
GetTarget
()
return
not
etg
or
etg
(
te
,
xc
)
end
return
false
end
function
s
.
sxvalue
(
c
,
tp
,
xc
)
local
te
=
c
:
IsHasEffect
(
id
,
tp
)
if
te
then
local
etg
=
te
:
GetTarget
()
if
not
etg
or
etg
(
te
,
xc
)
then
return
te
:
GetValue
()
end
end
end
function
s
.
Drake_shark_gf
(
int_ct
,
int_tp
,
xc
)
return
function
(
g
)
local
ct
=
g
:
GetCount
()
local
eg
=
g
:
Filter
(
s
.
sxfilter
,
nil
,
int_tp
,
xc
)
if
#
eg
>
0
then
ct
=
ct
+
eg
:
GetClassCount
(
s
.
sxvalue
,
int_tp
,
xc
)
end
local
tc
=
g
:
GetFirst
()
while
tc
do
local
te
=
tc
:
IsHasEffect
(
EFFECT_XYZ_LEVEL
,
int_tp
)
if
te
then
local
evf
=
te
:
GetValue
()
if
evf
then
local
ev
=
evf
(
te
,
tc
,
xc
)
local
lmct
=
(
ev
>>
12
)
&
0xf
if
lmct
>
0
and
lmct
>
g
:
GetCount
()
then
return
false
end
end
end
tc
=
g
:
GetNext
()
end
return
ct
>=
int_ct
end
end
function
s
.
xfilter
(
c
,
tp
)
return
c
:
IsHasEffect
(
id
,
tp
)
end
function
s
.
eftfilter
(
c
,
tp
)
local
te
=
c
:
IsHasEffect
(
id
,
tp
)
return
te
:
GetValue
()
end
function
s
.
gcheck
(
g
,
tp
)
return
g
:
GetClassCount
(
s
.
eftfilter
,
tp
)
==
g
:
GetCount
()
end
function
s
.
adjustop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
Duel
.
GetFlagEffect
(
0
,
81096431
)
==
0
then
Duel
.
RegisterFlagEffect
(
0
,
81096431
,
0
,
0
,
1
)
Drake_shark_AddXyzProcedure
=
aux
.
AddXyzProcedure
function
aux
.
AddXyzProcedure
(
card_c
,
function_f
,
int_lv
,
int_ct
,
function_alterf
,
int_dese
,
int_maxc
,
function_op
)
if
int_ct
>=
3
then
if
function_alterf
then
Drake_shark_XyzLevelFreeOperationAlter
=
Auxiliary
.
XyzLevelFreeOperationAlter
function
Auxiliary
.
XyzLevelFreeOperationAlter
(
f
,
gf
,
minc
,
maxc
,
alterf
,
alterdesc
,
alterop
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
Auxiliary
.
Drake_Solve
(
tp
,
og
,
maxc
,
minc
)
local
sg
=
Group
.
CreateGroup
()
local
tc
=
og
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
og
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
c
:
SetMaterial
(
og
)
Duel
.
Overlay
(
c
,
og
)
else
local
mg
=
e
:
GetLabelObject
()
Auxiliary
.
Drake_Solve
(
tp
,
mg
,
maxc
,
minc
)
if
e
:
GetLabel
()
==
1
then
local
mg2
=
mg
:
GetFirst
():
GetOverlayGroup
()
if
mg2
:
GetCount
()
~=
0
then
Duel
.
Overlay
(
c
,
mg2
)
end
else
local
sg
=
Group
.
CreateGroup
()
local
tc
=
mg
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
mg
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
end
c
:
SetMaterial
(
mg
)
Duel
.
Overlay
(
c
,
mg
)
mg
:
DeleteGroup
()
end
end
end
aux
.
AddXyzProcedureLevelFree
(
card_c
,
s
.
Drake_shark_f
(
function_f
,
int_lv
,
card_c
),
s
.
Drake_shark_gf
(
int_ct
,
card_c
:
GetOwner
(),
card_c
),
int_ct
-
2
,
int_ct
,
function_alterf
,
int_dese
,
function_op
)
Auxiliary
.
XyzLevelFreeOperationAlter
=
Drake_shark_XyzLevelFreeOperationAlter
else
Drake_shark_XyzLevelFreeOperation
=
Auxiliary
.
XyzLevelFreeOperation
function
Auxiliary
.
XyzLevelFreeOperation
(
f
,
gf
,
minct
,
maxct
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
Auxiliary
.
Drake_Solve
(
tp
,
og
,
maxct
,
minct
)
local
sg
=
Group
.
CreateGroup
()
local
tc
=
og
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
og
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
c
:
SetMaterial
(
og
)
Duel
.
Overlay
(
c
,
og
)
else
local
mg
=
e
:
GetLabelObject
()
Auxiliary
.
Drake_Solve
(
tp
,
mg
,
maxct
,
minct
)
if
e
:
GetLabel
()
==
1
then
local
mg2
=
mg
:
GetFirst
():
GetOverlayGroup
()
if
mg2
:
GetCount
()
~=
0
then
Duel
.
Overlay
(
c
,
mg2
)
end
else
local
sg
=
Group
.
CreateGroup
()
local
tc
=
mg
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
mg
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
end
c
:
SetMaterial
(
mg
)
Duel
.
Overlay
(
c
,
mg
)
mg
:
DeleteGroup
()
end
end
end
aux
.
AddXyzProcedureLevelFree
(
card_c
,
s
.
Drake_shark_f
(
function_f
,
int_lv
,
card_c
),
s
.
Drake_shark_gf
(
int_ct
,
card_c
:
GetOwner
(),
card_c
),
int_ct
-
2
,
int_ct
)
Auxiliary
.
XyzLevelFreeOperation
=
Drake_shark_XyzLevelFreeOperation
end
else
if
function_alterf
then
Drake_shark_AddXyzProcedure
(
card_c
,
function_f
,
int_lv
,
int_ct
,
function_alterf
,
int_dese
,
int_maxc
,
function_op
)
else
Drake_shark_AddXyzProcedure
(
card_c
,
function_f
,
int_lv
,
int_ct
,
nil
,
nil
,
int_maxc
,
nil
)
end
end
end
local
rg
=
Duel
.
GetMatchingGroup
(
Card
.
IsType
,
tp
,
LOCATION_EXTRA
,
LOCATION_EXTRA
,
nil
,
TYPE_MONSTER
)
for
tc
in
aux
.
Next
(
rg
)
do
if
tc
.
initial_effect
then
local
Traitor_initial_effect
=
s
.
initial_effect
s
.
initial_effect
=
function
()
end
tc
:
ReplaceEffect
(
id
,
0
)
s
.
initial_effect
=
Traitor_initial_effect
tc
.
initial_effect
(
tc
)
end
end
end
e
:
Reset
()
end
function
s
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
s
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
not
e
:
GetHandler
():
IsReason
(
REASON_DRAW
)
return
not
e
:
GetHandler
():
IsReason
(
REASON_DRAW
)
end
end
...
@@ -255,30 +80,3 @@ function s.xyzop(e,tp,eg,ep,ev,re,r,rp)
...
@@ -255,30 +80,3 @@ function s.xyzop(e,tp,eg,ep,ev,re,r,rp)
Duel
.
Overlay
(
c
,
Group
.
FromCards
(
tc
))
Duel
.
Overlay
(
c
,
Group
.
FromCards
(
tc
))
end
end
end
end
function
Auxiliary
.
Drake_Solve
(
tp
,
g
,
maxct
,
minct
,
chkg
)
if
g
:
GetCount
()
<
maxct
and
g
:
GetCount
()
>=
minct
and
maxct
==
minct
+
2
then
local
et
=
maxct
-
g
:
GetCount
()
local
exg
=
g
:
Filter
(
Card
.
IsHasEffect
,
nil
,
81096431
,
tp
)
local
ext
=
exg
:
GetClassCount
(
s
.
eftfilter
,
tp
)
if
(
et
==
0
or
et
==
ext
)
and
#
exg
>
0
then
for
ttc
in
aux
.
Next
(
exg
)
do
local
tte
=
ttc
:
IsHasEffect
(
81096431
,
tp
)
if
tte
then
Duel
.
Hint
(
HINT_CARD
,
0
,
ttc
:
GetCode
())
tte
:
UseCountLimit
(
tp
)
end
end
elseif
#
exg
>
0
then
local
st
=
et
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_RESOLVECARD
)
local
reg
=
exg
:
SelectSubGroup
(
tp
,
s
.
gcheck
,
false
,
st
,
st
,
tp
)
for
ttc
in
aux
.
Next
(
reg
)
do
local
tte
=
ttc
:
IsHasEffect
(
81096431
,
tp
)
if
tte
then
Duel
.
Hint
(
HINT_CARD
,
0
,
ttc
:
GetCode
())
tte
:
UseCountLimit
(
tp
)
end
end
end
end
end
constant.lua
View file @
b7694bfa
...
@@ -609,6 +609,7 @@ EFFECT_REPLACE_DAMAGE =371 --伤害由特定行动代替
...
@@ -609,6 +609,7 @@ EFFECT_REPLACE_DAMAGE =371 --伤害由特定行动代替
EFFECT_XYZ_MIN_COUNT
=
372
--只能用在X只以上的超量召唤
EFFECT_XYZ_MIN_COUNT
=
372
--只能用在X只以上的超量召唤
EFFECT_SYNCHRO_LEVEL_EX
=
373
--支持使用没有等级的怪兽作为同调素材
EFFECT_SYNCHRO_LEVEL_EX
=
373
--支持使用没有等级的怪兽作为同调素材
EFFECT_RITUAL_LEVEL_EX
=
374
--支持使用没有等级的怪兽作为仪式素材
EFFECT_RITUAL_LEVEL_EX
=
374
--支持使用没有等级的怪兽作为仪式素材
EFFECT_DOUBLE_XMATERIAL
=
375
--召唤需3只以上作素材的超量怪兽时可以作为2只数量的素材
EFFECT_FLAG_EFFECT
=
0x20000000
--标记类效果,即RegisterFlagEffect()创建的效果
EFFECT_FLAG_EFFECT
=
0x20000000
--标记类效果,即RegisterFlagEffect()创建的效果
--下面是诱发效果的诱发事件、时点 (如果是TYPE_SINGLE则自己发生以下事件后触发,如果TYPE_FIELD则场上任何卡发生以下事件都触发)
--下面是诱发效果的诱发事件、时点 (如果是TYPE_SINGLE则自己发生以下事件后触发,如果TYPE_FIELD则场上任何卡发生以下事件都触发)
...
...
procedure.lua
View file @
b7694bfa
...
@@ -438,85 +438,13 @@ function Auxiliary.AddXyzProcedure(c,f,lv,ct,alterf,alterdesc,maxct,alterop)
...
@@ -438,85 +438,13 @@ function Auxiliary.AddXyzProcedure(c,f,lv,ct,alterf,alterdesc,maxct,alterop)
e1
:
SetCode
(
EFFECT_SPSUMMON_PROC
)
e1
:
SetCode
(
EFFECT_SPSUMMON_PROC
)
e1
:
SetProperty
(
EFFECT_FLAG_CANNOT_DISABLE
+
EFFECT_FLAG_UNCOPYABLE
)
e1
:
SetProperty
(
EFFECT_FLAG_CANNOT_DISABLE
+
EFFECT_FLAG_UNCOPYABLE
)
e1
:
SetRange
(
LOCATION_EXTRA
)
e1
:
SetRange
(
LOCATION_EXTRA
)
if
alterf
then
e1
:
SetCondition
(
Auxiliary
.
XyzCondition
(
f
,
lv
,
ct
,
maxct
,
alterf
,
alterdesc
,
alterop
))
e1
:
SetCondition
(
Auxiliary
.
XyzConditionAlter
(
f
,
lv
,
ct
,
maxct
,
alterf
,
alterdesc
,
alterop
))
e1
:
SetTarget
(
Auxiliary
.
XyzTarget
(
f
,
lv
,
ct
,
maxct
,
alterf
,
alterdesc
,
alterop
))
e1
:
SetTarget
(
Auxiliary
.
XyzTargetAlter
(
f
,
lv
,
ct
,
maxct
,
alterf
,
alterdesc
,
alterop
))
e1
:
SetOperation
(
Auxiliary
.
XyzOperation
(
f
,
lv
,
ct
,
maxct
,
alterf
,
alterdesc
,
alterop
))
e1
:
SetOperation
(
Auxiliary
.
XyzOperationAlter
(
f
,
lv
,
ct
,
maxct
,
alterf
,
alterdesc
,
alterop
))
else
e1
:
SetCondition
(
Auxiliary
.
XyzCondition
(
f
,
lv
,
ct
,
maxct
))
e1
:
SetTarget
(
Auxiliary
.
XyzTarget
(
f
,
lv
,
ct
,
maxct
))
e1
:
SetOperation
(
Auxiliary
.
XyzOperation
(
f
,
lv
,
ct
,
maxct
))
end
e1
:
SetValue
(
SUMMON_TYPE_XYZ
)
e1
:
SetValue
(
SUMMON_TYPE_XYZ
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
end
end
--Xyz Summon(normal)
function
Auxiliary
.
XyzCondition
(
f
,
lv
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
function
Auxiliary
.
XyzCondition
(
f
,
lv
,
minct
,
maxct
)
--og: use special material
return
function
(
e
,
c
,
og
,
min
,
max
)
if
c
==
nil
then
return
true
end
if
c
:
IsType
(
TYPE_PENDULUM
)
and
c
:
IsFaceup
()
then
return
false
end
local
tp
=
c
:
GetControler
()
local
minc
=
minct
local
maxc
=
maxct
if
min
then
if
min
>
minc
then
minc
=
min
end
if
max
<
maxc
then
maxc
=
max
end
if
minc
>
maxc
then
return
false
end
end
return
Duel
.
CheckXyzMaterial
(
c
,
f
,
lv
,
minc
,
maxc
,
og
)
end
end
function
Auxiliary
.
XyzTarget
(
f
,
lv
,
minct
,
maxct
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
return
true
end
local
minc
=
minct
local
maxc
=
maxct
if
min
then
if
min
>
minc
then
minc
=
min
end
if
max
<
maxc
then
maxc
=
max
end
end
local
g
=
Duel
.
SelectXyzMaterial
(
tp
,
c
,
f
,
lv
,
minc
,
maxc
,
og
)
if
g
then
g
:
KeepAlive
()
e
:
SetLabelObject
(
g
)
return
true
else
return
false
end
end
end
function
Auxiliary
.
XyzOperation
(
f
,
lv
,
minct
,
maxct
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
local
sg
=
Group
.
CreateGroup
()
local
tc
=
og
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
og
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
c
:
SetMaterial
(
og
)
Duel
.
Overlay
(
c
,
og
)
else
local
mg
=
e
:
GetLabelObject
()
local
sg
=
Group
.
CreateGroup
()
local
tc
=
mg
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
mg
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
c
:
SetMaterial
(
mg
)
Duel
.
Overlay
(
c
,
mg
)
mg
:
DeleteGroup
()
end
end
end
--Xyz summon(alterf)
function
Auxiliary
.
XyzConditionAlter
(
f
,
lv
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
return
function
(
e
,
c
,
og
,
min
,
max
)
return
function
(
e
,
c
,
og
,
min
,
max
)
if
c
==
nil
then
return
true
end
if
c
==
nil
then
return
true
end
if
c
:
IsType
(
TYPE_PENDULUM
)
and
c
:
IsFaceup
()
then
return
false
end
if
c
:
IsType
(
TYPE_PENDULUM
)
and
c
:
IsFaceup
()
then
return
false
end
...
@@ -527,20 +455,73 @@ function Auxiliary.XyzConditionAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
...
@@ -527,20 +455,73 @@ function Auxiliary.XyzConditionAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
else
else
mg
=
Duel
.
GetFieldGroup
(
tp
,
LOCATION_MZONE
,
0
)
mg
=
Duel
.
GetFieldGroup
(
tp
,
LOCATION_MZONE
,
0
)
end
end
if
(
not
min
or
min
<=
1
)
and
mg
:
IsExists
(
Auxiliary
.
XyzAlterFilter
,
1
,
nil
,
alterf
,
c
,
e
,
tp
,
alterop
)
then
if
alterf
and
(
not
min
or
min
<=
1
)
then
return
true
if
mg
:
IsExists
(
Auxiliary
.
XyzAlterFilter
,
1
,
nil
,
alterf
,
c
,
e
,
tp
,
alterop
)
then
return
true
end
end
end
local
minc
=
minct
local
minc
=
minct
local
maxc
=
maxct
local
maxc
=
maxct
if
min
then
if
min
then
if
min
>
minc
then
minc
=
min
end
if
min
>
minc
then
minc
=
min
end
if
max
<
maxc
then
maxc
=
max
end
if
max
<
maxc
then
maxc
=
max
end
end
if
minct
>=
3
and
mg
:
IsExists
(
Auxiliary
.
Xyz2XMaterialEffectFilter
,
1
,
nil
,
c
,
lv
,
f
,
tp
)
then
return
Auxiliary
.
CheckXyz2XMaterial
(
c
,
f
,
lv
,
minc
,
maxc
,
mg
)
else
if
minc
>
maxc
then
return
false
end
if
minc
>
maxc
then
return
false
end
return
Duel
.
CheckXyzMaterial
(
c
,
f
,
lv
,
minc
,
maxc
,
og
)
end
end
end
function
Auxiliary
.
Xyz2XMaterialFilter
(
c
,
xyzc
,
lv
,
f
)
return
c
:
IsFaceupEx
()
and
c
:
IsCanBeXyzMaterial
(
xyzc
)
and
c
:
IsXyzLevel
(
xyzc
,
lv
)
and
(
not
f
or
f
(
c
,
xyzc
))
end
function
Auxiliary
.
Xyz2XMaterialEffectFilter
(
c
,
xyzc
,
lv
,
f
,
tp
,
checked
)
if
not
checked
and
not
Auxiliary
.
Xyz2XMaterialFilter
(
c
,
xyzc
,
lv
,
f
)
then
return
false
end
local
e
=
c
:
IsHasEffect
(
EFFECT_DOUBLE_XMATERIAL
,
tp
)
if
not
e
then
return
false
end
local
tg
=
e
:
GetTarget
()
if
tg
and
not
tg
(
e
,
xyzc
)
then
return
false
end
return
true
end
function
Auxiliary
.
Xyz2XMaterialGoal
(
g
,
tp
,
xyzc
,
minc
)
if
Duel
.
GetLocationCountFromEx
(
tp
,
tp
,
g
,
xyzc
)
<=
0
then
return
false
end
local
lg
=
g
:
Filter
(
Card
.
IsHasEffect
,
nil
,
EFFECT_XYZ_MIN_COUNT
,
tp
)
for
c
in
Auxiliary
.
Next
(
lg
)
do
local
le
=
c
:
IsHasEffect
(
EFFECT_XYZ_MIN_COUNT
)
local
ct
=
le
:
GetValue
()
if
#
g
<
ct
then
return
false
end
end
local
ct2
=
0
local
limit_table
=
{}
for
c
in
Auxiliary
.
Next
(
g
)
do
local
le
=
c
:
IsHasEffect
(
EFFECT_DOUBLE_XMATERIAL
,
tp
)
if
le
then
local
tg
=
le
:
GetTarget
()
local
limit_value
=
le
:
GetValue
()
-- not fully implemented: assuming Hard once per turn effects
if
(
not
tg
or
tg
(
le
,
xyzc
))
and
(
not
limit_value
or
not
limit_table
[
limit_value
])
then
ct2
=
ct2
+
1
if
limit_value
then
limit_table
[
limit_value
]
=
true
end
end
return
Duel
.
CheckXyzMaterial
(
c
,
f
,
lv
,
minc
,
maxc
,
og
)
end
end
end
end
return
#
g
+
ct2
>=
minc
end
function
Auxiliary
.
CheckXyz2XMaterial
(
c
,
f
,
lv
,
minc
,
maxc
,
mg
)
local
tp
=
c
:
GetControler
()
mg
=
mg
:
Filter
(
Auxiliary
.
Xyz2XMaterialFilter
,
nil
,
c
,
lv
,
f
)
local
sg
=
Duel
.
GetMustMaterial
(
tp
,
EFFECT_MUST_BE_XMATERIAL
)
if
sg
:
IsExists
(
Auxiliary
.
MustMaterialCounterFilter
,
1
,
nil
,
mg
)
then
return
false
end
Duel
.
SetSelectedCard
(
sg
)
Auxiliary
.
GCheckAdditional
=
Auxiliary
.
TuneMagicianCheckAdditionalX
(
EFFECT_TUNE_MAGICIAN_X
)
local
res
=
mg
:
CheckSubGroup
(
Auxiliary
.
Xyz2XMaterialGoal
,
2
,
maxc
,
tp
,
c
,
minc
)
Auxiliary
.
GCheckAdditional
=
nil
return
res
end
end
function
Auxiliary
.
XyzTarget
Alter
(
f
,
lv
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
function
Auxiliary
.
XyzTarget
(
f
,
lv
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
c
,
og
,
min
,
max
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
if
og
and
not
min
then
return
true
return
true
...
@@ -551,19 +532,28 @@ function Auxiliary.XyzTargetAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
...
@@ -551,19 +532,28 @@ function Auxiliary.XyzTargetAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
if
min
>
minc
then
minc
=
min
end
if
min
>
minc
then
minc
=
min
end
if
max
<
maxc
then
maxc
=
max
end
if
max
<
maxc
then
maxc
=
max
end
end
end
local
b1
=
true
local
b2
=
false
local
altg
=
nil
local
mg
=
nil
local
mg
=
nil
if
og
then
if
og
then
mg
=
og
mg
=
og
else
else
mg
=
Duel
.
GetFieldGroup
(
tp
,
LOCATION_MZONE
,
0
)
mg
=
Duel
.
GetFieldGroup
(
tp
,
LOCATION_MZONE
,
0
)
end
end
local
altg
=
mg
:
Filter
(
Auxiliary
.
XyzAlterFilter
,
nil
,
alterf
,
c
,
e
,
tp
,
alterop
)
if
alterf
and
(
not
min
or
min
<=
1
)
then
local
b1
=
Duel
.
CheckXyzMaterial
(
c
,
f
,
lv
,
minc
,
maxc
,
og
)
altg
=
mg
:
Filter
(
Auxiliary
.
XyzAlterFilter
,
nil
,
alterf
,
c
,
e
,
tp
,
alterop
)
local
b2
=
(
not
min
or
min
<=
1
)
and
#
altg
>
0
if
minct
>=
3
and
mg
:
IsExists
(
Auxiliary
.
Xyz2XMaterialEffectFilter
,
1
,
nil
,
c
,
lv
,
f
,
tp
)
then
b1
=
Auxiliary
.
CheckXyz2XMaterial
(
c
,
f
,
lv
,
minc
,
maxc
,
mg
)
else
b1
=
Duel
.
CheckXyzMaterial
(
c
,
f
,
lv
,
minc
,
maxc
,
og
)
end
b2
=#
altg
>
0
end
local
g
=
nil
local
g
=
nil
local
cancel
=
Duel
.
IsSummonCancelable
()
if
b2
and
(
not
b1
or
Duel
.
SelectYesNo
(
tp
,
alterdesc
))
then
if
b2
and
(
not
b1
or
Duel
.
SelectYesNo
(
tp
,
alterdesc
))
then
e
:
SetLabel
(
1
)
e
:
SetLabel
(
1
)
local
cancel
=
Duel
.
IsSummonCancelable
()
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_XMATERIAL
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_XMATERIAL
)
local
tc
=
altg
:
SelectUnselect
(
nil
,
tp
,
false
,
cancel
,
1
,
1
)
local
tc
=
altg
:
SelectUnselect
(
nil
,
tp
,
false
,
cancel
,
1
,
1
)
if
tc
then
if
tc
then
...
@@ -572,7 +562,18 @@ function Auxiliary.XyzTargetAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
...
@@ -572,7 +562,18 @@ function Auxiliary.XyzTargetAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
end
end
else
else
e
:
SetLabel
(
0
)
e
:
SetLabel
(
0
)
g
=
Duel
.
SelectXyzMaterial
(
tp
,
c
,
f
,
lv
,
minc
,
maxc
,
og
)
if
minct
>=
3
and
mg
:
IsExists
(
Auxiliary
.
Xyz2XMaterialEffectFilter
,
1
,
nil
,
c
,
lv
,
f
,
tp
)
then
mg
=
mg
:
Filter
(
Auxiliary
.
Xyz2XMaterialFilter
,
nil
,
c
,
lv
,
f
)
local
cancel
=
Duel
.
IsSummonCancelable
()
local
sg
=
Duel
.
GetMustMaterial
(
tp
,
EFFECT_MUST_BE_XMATERIAL
)
Duel
.
SetSelectedCard
(
sg
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_XMATERIAL
)
Auxiliary
.
GCheckAdditional
=
Auxiliary
.
TuneMagicianCheckAdditionalX
(
EFFECT_TUNE_MAGICIAN_X
)
g
=
mg
:
SelectSubGroup
(
tp
,
Auxiliary
.
Xyz2XMaterialGoal
,
cancel
,
2
,
maxc
,
tp
,
c
,
minc
)
Auxiliary
.
GCheckAdditional
=
nil
else
g
=
Duel
.
SelectXyzMaterial
(
tp
,
c
,
f
,
lv
,
minc
,
maxc
,
og
)
end
end
end
if
g
then
if
g
then
g
:
KeepAlive
()
g
:
KeepAlive
()
...
@@ -581,9 +582,10 @@ function Auxiliary.XyzTargetAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
...
@@ -581,9 +582,10 @@ function Auxiliary.XyzTargetAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
else
return
false
end
else
return
false
end
end
end
end
end
function
Auxiliary
.
XyzOperation
Alter
(
f
,
lv
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
function
Auxiliary
.
XyzOperation
(
f
,
lv
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
c
,
og
,
min
,
max
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
if
og
and
not
min
then
Auxiliary
.
Xyz2XMaterialOperation
(
tp
,
og
,
c
,
minct
,
maxct
)
local
sg
=
Group
.
CreateGroup
()
local
sg
=
Group
.
CreateGroup
()
local
tc
=
og
:
GetFirst
()
local
tc
=
og
:
GetFirst
()
while
tc
do
while
tc
do
...
@@ -602,6 +604,7 @@ function Auxiliary.XyzOperationAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
...
@@ -602,6 +604,7 @@ function Auxiliary.XyzOperationAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
Duel
.
Overlay
(
c
,
mg2
)
Duel
.
Overlay
(
c
,
mg2
)
end
end
else
else
Auxiliary
.
Xyz2XMaterialOperation
(
tp
,
mg
,
c
,
minct
,
maxct
)
local
sg
=
Group
.
CreateGroup
()
local
sg
=
Group
.
CreateGroup
()
local
tc
=
mg
:
GetFirst
()
local
tc
=
mg
:
GetFirst
()
while
tc
do
while
tc
do
...
@@ -617,7 +620,23 @@ function Auxiliary.XyzOperationAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
...
@@ -617,7 +620,23 @@ function Auxiliary.XyzOperationAlter(f,lv,minct,maxct,alterf,alterdesc,alterop)
end
end
end
end
end
end
---Xyz monster, any condition
function
Auxiliary
.
Xyz2XMaterialOperation
(
tp
,
mg
,
xyzc
,
minct
,
maxct
)
local
sg
=
mg
:
Clone
()
while
#
sg
<
minct
do
local
g
=
sg
:
Filter
(
Auxiliary
.
Xyz2XMaterialEffectFilter
,
nil
,
xyzc
,
nil
,
nil
,
tp
,
true
)
if
#
g
>
1
then
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_RESOLVECARD
)
g
=
g
:
Select
(
tp
,
1
,
1
,
nil
)
end
local
tc
=
g
:
GetFirst
()
local
te
=
tc
:
IsHasEffect
(
EFFECT_DOUBLE_XMATERIAL
,
tp
)
Duel
.
Hint
(
HINT_CARD
,
0
,
tc
:
GetCode
())
te
:
UseCountLimit
(
tp
)
sg
:
RemoveCard
(
tc
)
minct
=
minct
-
2
end
end
---Xyz monster, any condition(level free)
---@param c Card
---@param c Card
---@param f function|nil
---@param f function|nil
---@param gf function|nil
---@param gf function|nil
...
@@ -633,19 +652,13 @@ function Auxiliary.AddXyzProcedureLevelFree(c,f,gf,minc,maxc,alterf,alterdesc,al
...
@@ -633,19 +652,13 @@ function Auxiliary.AddXyzProcedureLevelFree(c,f,gf,minc,maxc,alterf,alterdesc,al
e1
:
SetCode
(
EFFECT_SPSUMMON_PROC
)
e1
:
SetCode
(
EFFECT_SPSUMMON_PROC
)
e1
:
SetProperty
(
EFFECT_FLAG_CANNOT_DISABLE
+
EFFECT_FLAG_UNCOPYABLE
)
e1
:
SetProperty
(
EFFECT_FLAG_CANNOT_DISABLE
+
EFFECT_FLAG_UNCOPYABLE
)
e1
:
SetRange
(
LOCATION_EXTRA
)
e1
:
SetRange
(
LOCATION_EXTRA
)
if
alterf
then
e1
:
SetCondition
(
Auxiliary
.
XyzLevelFreeCondition
(
f
,
gf
,
minc
,
maxc
,
alterf
,
alterdesc
,
alterop
))
e1
:
SetCondition
(
Auxiliary
.
XyzLevelFreeConditionAlter
(
f
,
gf
,
minc
,
maxc
,
alterf
,
alterdesc
,
alterop
))
e1
:
SetTarget
(
Auxiliary
.
XyzLevelFreeTarget
(
f
,
gf
,
minc
,
maxc
,
alterf
,
alterdesc
,
alterop
))
e1
:
SetTarget
(
Auxiliary
.
XyzLevelFreeTargetAlter
(
f
,
gf
,
minc
,
maxc
,
alterf
,
alterdesc
,
alterop
))
e1
:
SetOperation
(
Auxiliary
.
XyzLevelFreeOperation
(
f
,
gf
,
minc
,
maxc
,
alterf
,
alterdesc
,
alterop
))
e1
:
SetOperation
(
Auxiliary
.
XyzLevelFreeOperationAlter
(
f
,
gf
,
minc
,
maxc
,
alterf
,
alterdesc
,
alterop
))
else
e1
:
SetCondition
(
Auxiliary
.
XyzLevelFreeCondition
(
f
,
gf
,
minc
,
maxc
))
e1
:
SetTarget
(
Auxiliary
.
XyzLevelFreeTarget
(
f
,
gf
,
minc
,
maxc
))
e1
:
SetOperation
(
Auxiliary
.
XyzLevelFreeOperation
(
f
,
gf
,
minc
,
maxc
))
end
e1
:
SetValue
(
SUMMON_TYPE_XYZ
)
e1
:
SetValue
(
SUMMON_TYPE_XYZ
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
end
end
--
Xyz Summon(level free)
--
not fully implemented: EFFECT_DOUBLE_XMATERIAL is not supported
function
Auxiliary
.
XyzLevelFreeFilter
(
c
,
xyzc
,
f
)
function
Auxiliary
.
XyzLevelFreeFilter
(
c
,
xyzc
,
f
)
return
(
not
c
:
IsOnField
()
or
c
:
IsFaceup
())
and
c
:
IsCanBeXyzMaterial
(
xyzc
)
and
(
not
f
or
f
(
c
,
xyzc
))
return
(
not
c
:
IsOnField
()
or
c
:
IsFaceup
())
and
c
:
IsCanBeXyzMaterial
(
xyzc
)
and
(
not
f
or
f
(
c
,
xyzc
))
end
end
...
@@ -660,122 +673,28 @@ function Auxiliary.XyzLevelFreeGoal(g,tp,xyzc,gf)
...
@@ -660,122 +673,28 @@ function Auxiliary.XyzLevelFreeGoal(g,tp,xyzc,gf)
end
end
return
true
return
true
end
end
function
Auxiliary
.
XyzLevelFreeCondition
(
f
,
gf
,
minct
,
maxct
)
function
Auxiliary
.
XyzLevelFreeCondition
(
f
,
gf
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
return
function
(
e
,
c
,
og
,
min
,
max
)
return
function
(
e
,
c
,
og
,
min
,
max
)
if
c
==
nil
then
return
true
end
if
c
==
nil
then
return
true
end
if
c
:
IsType
(
TYPE_PENDULUM
)
and
c
:
IsFaceup
()
then
return
false
end
if
c
:
IsType
(
TYPE_PENDULUM
)
and
c
:
IsFaceup
()
then
return
false
end
local
tp
=
c
:
GetControler
()
local
tp
=
c
:
GetControler
()
local
minc
=
minct
local
minc
=
minct
local
maxc
=
maxct
local
maxc
=
maxct
if
min
then
minc
=
math.max
(
minc
,
min
)
maxc
=
math.min
(
maxc
,
max
)
end
if
maxc
<
minc
then
return
false
end
local
mg
=
nil
if
og
then
mg
=
og
:
Filter
(
Auxiliary
.
XyzLevelFreeFilter
,
nil
,
c
,
f
)
else
mg
=
Duel
.
GetMatchingGroup
(
Auxiliary
.
XyzLevelFreeFilter
,
tp
,
LOCATION_MZONE
,
0
,
nil
,
c
,
f
)
end
local
sg
=
Duel
.
GetMustMaterial
(
tp
,
EFFECT_MUST_BE_XMATERIAL
)
if
sg
:
IsExists
(
Auxiliary
.
MustMaterialCounterFilter
,
1
,
nil
,
mg
)
then
return
false
end
Duel
.
SetSelectedCard
(
sg
)
Auxiliary
.
GCheckAdditional
=
Auxiliary
.
TuneMagicianCheckAdditionalX
(
EFFECT_TUNE_MAGICIAN_X
)
local
res
=
mg
:
CheckSubGroup
(
Auxiliary
.
XyzLevelFreeGoal
,
minc
,
maxc
,
tp
,
c
,
gf
)
Auxiliary
.
GCheckAdditional
=
nil
return
res
end
end
function
Auxiliary
.
XyzLevelFreeTarget
(
f
,
gf
,
minct
,
maxct
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
return
true
end
local
minc
=
minct
local
maxc
=
maxct
if
min
then
if
min
then
if
min
>
minc
then
minc
=
min
end
if
min
>
minc
then
minc
=
min
end
if
max
<
maxc
then
maxc
=
max
end
if
max
<
maxc
then
maxc
=
max
end
end
end
local
mg
=
nil
if
maxc
<
minc
then
return
false
end
if
og
then
mg
=
og
:
Filter
(
Auxiliary
.
XyzLevelFreeFilter
,
nil
,
c
,
f
)
else
mg
=
Duel
.
GetMatchingGroup
(
Auxiliary
.
XyzLevelFreeFilter
,
tp
,
LOCATION_MZONE
,
0
,
nil
,
c
,
f
)
end
local
sg
=
Duel
.
GetMustMaterial
(
tp
,
EFFECT_MUST_BE_XMATERIAL
)
Duel
.
SetSelectedCard
(
sg
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_XMATERIAL
)
local
cancel
=
Duel
.
IsSummonCancelable
()
Auxiliary
.
GCheckAdditional
=
Auxiliary
.
TuneMagicianCheckAdditionalX
(
EFFECT_TUNE_MAGICIAN_X
)
local
g
=
mg
:
SelectSubGroup
(
tp
,
Auxiliary
.
XyzLevelFreeGoal
,
cancel
,
minc
,
maxc
,
tp
,
c
,
gf
)
Auxiliary
.
GCheckAdditional
=
nil
if
g
and
g
:
GetCount
()
>
0
then
g
:
KeepAlive
()
e
:
SetLabelObject
(
g
)
return
true
else
return
false
end
end
end
function
Auxiliary
.
XyzLevelFreeOperation
(
f
,
gf
,
minct
,
maxct
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
local
sg
=
Group
.
CreateGroup
()
local
tc
=
og
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
og
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
c
:
SetMaterial
(
og
)
Duel
.
Overlay
(
c
,
og
)
else
local
mg
=
e
:
GetLabelObject
()
if
e
:
GetLabel
()
==
1
then
local
mg2
=
mg
:
GetFirst
():
GetOverlayGroup
()
if
mg2
:
GetCount
()
~=
0
then
Duel
.
Overlay
(
c
,
mg2
)
end
else
local
sg
=
Group
.
CreateGroup
()
local
tc
=
mg
:
GetFirst
()
while
tc
do
local
sg1
=
tc
:
GetOverlayGroup
()
sg
:
Merge
(
sg1
)
tc
=
mg
:
GetNext
()
end
Duel
.
SendtoGrave
(
sg
,
REASON_RULE
)
end
c
:
SetMaterial
(
mg
)
Duel
.
Overlay
(
c
,
mg
)
mg
:
DeleteGroup
()
end
end
end
--Xyz summon(level free&alterf)
function
Auxiliary
.
XyzLevelFreeConditionAlter
(
f
,
gf
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
return
function
(
e
,
c
,
og
,
min
,
max
)
if
c
==
nil
then
return
true
end
if
c
:
IsType
(
TYPE_PENDULUM
)
and
c
:
IsFaceup
()
then
return
false
end
local
tp
=
c
:
GetControler
()
local
mg
=
nil
local
mg
=
nil
if
og
then
if
og
then
mg
=
og
mg
=
og
else
else
mg
=
Duel
.
GetFieldGroup
(
tp
,
LOCATION_MZONE
,
0
)
mg
=
Duel
.
GetFieldGroup
(
tp
,
LOCATION_MZONE
,
0
)
end
end
local
altg
=
mg
:
Filter
(
Auxiliary
.
XyzAlterFilter
,
nil
,
alterf
,
c
,
e
,
tp
,
alterop
)
if
alterf
and
(
not
min
or
min
<=
1
)
then
if
(
not
min
or
min
<=
1
)
and
altg
:
GetCount
()
>
0
then
if
mg
:
IsExists
(
Auxiliary
.
XyzAlterFilter
,
1
,
nil
,
alterf
,
c
,
e
,
tp
,
alterop
)
then
return
true
return
true
end
end
local
minc
=
minct
local
maxc
=
maxct
if
min
then
if
min
>
minc
then
minc
=
min
end
if
max
<
maxc
then
maxc
=
max
end
if
minc
>
maxc
then
return
false
end
end
end
mg
=
mg
:
Filter
(
Auxiliary
.
XyzLevelFreeFilter
,
nil
,
c
,
f
)
mg
=
mg
:
Filter
(
Auxiliary
.
XyzLevelFreeFilter
,
nil
,
c
,
f
)
local
sg
=
Duel
.
GetMustMaterial
(
tp
,
EFFECT_MUST_BE_XMATERIAL
)
local
sg
=
Duel
.
GetMustMaterial
(
tp
,
EFFECT_MUST_BE_XMATERIAL
)
...
@@ -787,7 +706,7 @@ function Auxiliary.XyzLevelFreeConditionAlter(f,gf,minct,maxct,alterf,alterdesc,
...
@@ -787,7 +706,7 @@ function Auxiliary.XyzLevelFreeConditionAlter(f,gf,minct,maxct,alterf,alterdesc,
return
res
return
res
end
end
end
end
function
Auxiliary
.
XyzLevelFreeTarget
Alter
(
f
,
gf
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
function
Auxiliary
.
XyzLevelFreeTarget
(
f
,
gf
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
c
,
og
,
min
,
max
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
if
og
and
not
min
then
return
true
return
true
...
@@ -804,12 +723,21 @@ function Auxiliary.XyzLevelFreeTargetAlter(f,gf,minct,maxct,alterf,alterdesc,alt
...
@@ -804,12 +723,21 @@ function Auxiliary.XyzLevelFreeTargetAlter(f,gf,minct,maxct,alterf,alterdesc,alt
else
else
mg
=
Duel
.
GetFieldGroup
(
tp
,
LOCATION_MZONE
,
0
)
mg
=
Duel
.
GetFieldGroup
(
tp
,
LOCATION_MZONE
,
0
)
end
end
local
b1
=
true
local
b2
=
false
local
altg
=
nil
local
sg
=
Duel
.
GetMustMaterial
(
tp
,
EFFECT_MUST_BE_XMATERIAL
)
local
sg
=
Duel
.
GetMustMaterial
(
tp
,
EFFECT_MUST_BE_XMATERIAL
)
local
altg
=
mg
:
Filter
(
Auxiliary
.
XyzAlterFilter
,
nil
,
alterf
,
c
,
e
,
tp
,
alterop
)
if
alterf
and
(
not
min
or
min
<=
1
)
then
local
mg2
=
mg
:
Filter
(
Auxiliary
.
XyzLevelFreeFilter
,
nil
,
c
,
f
)
altg
=
mg
:
Filter
(
Auxiliary
.
XyzAlterFilter
,
nil
,
alterf
,
c
,
e
,
tp
,
alterop
)
Duel
.
SetSelectedCard
(
sg
)
mg
=
mg
:
Filter
(
Auxiliary
.
XyzLevelFreeFilter
,
nil
,
c
,
f
)
local
b1
=
mg2
:
CheckSubGroup
(
Auxiliary
.
XyzLevelFreeGoal
,
minc
,
maxc
,
tp
,
c
,
gf
)
Duel
.
SetSelectedCard
(
sg
)
local
b2
=
(
not
min
or
min
<=
1
)
and
#
altg
>
0
Auxiliary
.
GCheckAdditional
=
Auxiliary
.
TuneMagicianCheckAdditionalX
(
EFFECT_TUNE_MAGICIAN_X
)
b1
=
mg
:
CheckSubGroup
(
Auxiliary
.
XyzLevelFreeGoal
,
minc
,
maxc
,
tp
,
c
,
gf
)
Auxiliary
.
GCheckAdditional
=
nil
b2
=#
altg
>
0
else
mg
=
mg
:
Filter
(
Auxiliary
.
XyzLevelFreeFilter
,
nil
,
c
,
f
)
end
local
g
=
nil
local
g
=
nil
local
cancel
=
Duel
.
IsSummonCancelable
()
local
cancel
=
Duel
.
IsSummonCancelable
()
if
b2
and
(
not
b1
or
Duel
.
SelectYesNo
(
tp
,
alterdesc
))
then
if
b2
and
(
not
b1
or
Duel
.
SelectYesNo
(
tp
,
alterdesc
))
then
...
@@ -825,7 +753,7 @@ function Auxiliary.XyzLevelFreeTargetAlter(f,gf,minct,maxct,alterf,alterdesc,alt
...
@@ -825,7 +753,7 @@ function Auxiliary.XyzLevelFreeTargetAlter(f,gf,minct,maxct,alterf,alterdesc,alt
Duel
.
SetSelectedCard
(
sg
)
Duel
.
SetSelectedCard
(
sg
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_XMATERIAL
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_XMATERIAL
)
Auxiliary
.
GCheckAdditional
=
Auxiliary
.
TuneMagicianCheckAdditionalX
(
EFFECT_TUNE_MAGICIAN_X
)
Auxiliary
.
GCheckAdditional
=
Auxiliary
.
TuneMagicianCheckAdditionalX
(
EFFECT_TUNE_MAGICIAN_X
)
g
=
mg
2
:
SelectSubGroup
(
tp
,
Auxiliary
.
XyzLevelFreeGoal
,
cancel
,
minc
,
maxc
,
tp
,
c
,
gf
)
g
=
mg
:
SelectSubGroup
(
tp
,
Auxiliary
.
XyzLevelFreeGoal
,
cancel
,
minc
,
maxc
,
tp
,
c
,
gf
)
Auxiliary
.
GCheckAdditional
=
nil
Auxiliary
.
GCheckAdditional
=
nil
end
end
if
g
and
g
:
GetCount
()
>
0
then
if
g
and
g
:
GetCount
()
>
0
then
...
@@ -835,7 +763,7 @@ function Auxiliary.XyzLevelFreeTargetAlter(f,gf,minct,maxct,alterf,alterdesc,alt
...
@@ -835,7 +763,7 @@ function Auxiliary.XyzLevelFreeTargetAlter(f,gf,minct,maxct,alterf,alterdesc,alt
else
return
false
end
else
return
false
end
end
end
end
end
function
Auxiliary
.
XyzLevelFreeOperation
Alter
(
f
,
gf
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
function
Auxiliary
.
XyzLevelFreeOperation
(
f
,
gf
,
minct
,
maxct
,
alterf
,
alterdesc
,
alterop
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
c
,
og
,
min
,
max
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
c
,
og
,
min
,
max
)
if
og
and
not
min
then
if
og
and
not
min
then
local
sg
=
Group
.
CreateGroup
()
local
sg
=
Group
.
CreateGroup
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment