Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
N
Nanahira-Cards
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
0
Merge Requests
0
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
nanahira
Nanahira-Cards
Commits
8a8a6708
Commit
8a8a6708
authored
Dec 02, 2017
by
nanahira
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
bitcal
parent
a75f6e07
Changes
60
Show whitespace changes
Inline
Side-by-side
Showing
60 changed files
with
133 additions
and
133 deletions
+133
-133
expansions/script/c37564024.lua
expansions/script/c37564024.lua
+1
-1
expansions/script/c37564027.lua
expansions/script/c37564027.lua
+1
-1
expansions/script/c37564033.lua
expansions/script/c37564033.lua
+1
-1
expansions/script/c37564038.lua
expansions/script/c37564038.lua
+1
-1
expansions/script/c37564046.lua
expansions/script/c37564046.lua
+5
-5
expansions/script/c37564056.lua
expansions/script/c37564056.lua
+1
-1
expansions/script/c37564214.lua
expansions/script/c37564214.lua
+1
-1
expansions/script/c37564234.lua
expansions/script/c37564234.lua
+1
-1
expansions/script/c37564307.lua
expansions/script/c37564307.lua
+3
-3
expansions/script/c37564309.lua
expansions/script/c37564309.lua
+2
-2
expansions/script/c37564315.lua
expansions/script/c37564315.lua
+1
-1
expansions/script/c37564317.lua
expansions/script/c37564317.lua
+2
-2
expansions/script/c37564324.lua
expansions/script/c37564324.lua
+4
-4
expansions/script/c37564325.lua
expansions/script/c37564325.lua
+1
-1
expansions/script/c37564330.lua
expansions/script/c37564330.lua
+1
-1
expansions/script/c37564331.lua
expansions/script/c37564331.lua
+11
-11
expansions/script/c37564332.lua
expansions/script/c37564332.lua
+1
-1
expansions/script/c37564333.lua
expansions/script/c37564333.lua
+1
-1
expansions/script/c37564336.lua
expansions/script/c37564336.lua
+1
-1
expansions/script/c37564512.lua
expansions/script/c37564512.lua
+1
-1
expansions/script/c37564513.lua
expansions/script/c37564513.lua
+2
-2
expansions/script/c37564514.lua
expansions/script/c37564514.lua
+2
-2
expansions/script/c37564521.lua
expansions/script/c37564521.lua
+1
-1
expansions/script/c37564523.lua
expansions/script/c37564523.lua
+1
-1
expansions/script/c37564525.lua
expansions/script/c37564525.lua
+1
-1
expansions/script/c37564532.lua
expansions/script/c37564532.lua
+3
-3
expansions/script/c37564534.lua
expansions/script/c37564534.lua
+3
-3
expansions/script/c37564535.lua
expansions/script/c37564535.lua
+1
-1
expansions/script/c37564538.lua
expansions/script/c37564538.lua
+5
-5
expansions/script/c37564540.lua
expansions/script/c37564540.lua
+1
-1
expansions/script/c37564547.lua
expansions/script/c37564547.lua
+1
-1
expansions/script/c37564557.lua
expansions/script/c37564557.lua
+1
-1
expansions/script/c37564560.lua
expansions/script/c37564560.lua
+7
-7
expansions/script/c37564561.lua
expansions/script/c37564561.lua
+1
-1
expansions/script/c37564611.lua
expansions/script/c37564611.lua
+1
-1
expansions/script/c37564612.lua
expansions/script/c37564612.lua
+1
-1
expansions/script/c37564765.lua
expansions/script/c37564765.lua
+18
-18
expansions/script/c37564777.lua
expansions/script/c37564777.lua
+7
-7
expansions/script/c37564808.lua
expansions/script/c37564808.lua
+5
-5
expansions/script/c37564818.lua
expansions/script/c37564818.lua
+1
-1
expansions/script/c37564825.lua
expansions/script/c37564825.lua
+1
-1
expansions/script/c37564829.lua
expansions/script/c37564829.lua
+1
-1
expansions/script/c37564834.lua
expansions/script/c37564834.lua
+1
-1
expansions/script/c37564847.lua
expansions/script/c37564847.lua
+1
-1
expansions/script/c37564848.lua
expansions/script/c37564848.lua
+1
-1
expansions/script/c37564901.lua
expansions/script/c37564901.lua
+1
-1
expansions/script/c37564902.lua
expansions/script/c37564902.lua
+1
-1
expansions/script/c37564903.lua
expansions/script/c37564903.lua
+1
-1
expansions/script/c37564904.lua
expansions/script/c37564904.lua
+1
-1
expansions/script/c37564905.lua
expansions/script/c37564905.lua
+3
-3
expansions/script/c37564909.lua
expansions/script/c37564909.lua
+1
-1
expansions/script/c37564910.lua
expansions/script/c37564910.lua
+2
-2
expansions/script/c37564912.lua
expansions/script/c37564912.lua
+1
-1
expansions/script/c37564915.lua
expansions/script/c37564915.lua
+3
-3
expansions/script/c37564916.lua
expansions/script/c37564916.lua
+1
-1
expansions/script/c37564917.lua
expansions/script/c37564917.lua
+1
-1
expansions/script/c37564918.lua
expansions/script/c37564918.lua
+4
-4
expansions/script/c66677706.lua
expansions/script/c66677706.lua
+1
-1
expansions/script/c66677710.lua
expansions/script/c66677710.lua
+1
-1
expansions/script/c66677789.lua
expansions/script/c66677789.lua
+2
-2
No files found.
expansions/script/c37564024.lua
View file @
8a8a6708
...
...
@@ -21,7 +21,7 @@ function cm.initial_effect(c)
e1
:
SetRange
(
LOCATION_MZONE
)
e1
:
SetCountLimit
(
1
,
m
)
e1
:
SetCondition
(
function
(
e
)
return
bit
.
band
(
e
:
GetHandler
():
GetSummonType
(),
0x24
)
~=
0x24
return
(
e
:
GetHandler
():
GetSummonType
()
&
0x24
)
~=
0x24
end
)
e1
:
SetCost
(
Senya
.
SelfReleaseCost
)
e1
:
SetTarget
(
cm
.
target
)
...
...
expansions/script/c37564027.lua
View file @
8a8a6708
...
...
@@ -78,7 +78,7 @@ function cm.xmfilter(c)
return
Senya
.
check_set_elem
(
c
)
and
c
:
IsType
(
TYPE_XYZ
)
and
c
:
GetRank
()
==
4
end
function
cm
.
rcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
bit
.
band
(
r
,
REASON_COST
)
~=
0
and
re
:
IsHasType
(
0x7e0
)
and
re
:
IsActiveType
(
TYPE_XYZ
)
and
Senya
.
check_set_elem
(
re
:
GetHandler
())
and
e
:
GetHandler
():
GetOverlayGroup
():
IsExists
(
cm
.
xmfilter
,
1
,
nil
)
return
(
r
&
REASON_COST
)
~=
0
and
re
:
IsHasType
(
0x7e0
)
and
re
:
IsActiveType
(
TYPE_XYZ
)
and
Senya
.
check_set_elem
(
re
:
GetHandler
())
and
e
:
GetHandler
():
GetOverlayGroup
():
IsExists
(
cm
.
xmfilter
,
1
,
nil
)
and
re
:
GetHandler
()
~=
e
:
GetHandler
()
end
...
...
expansions/script/c37564033.lua
View file @
8a8a6708
...
...
@@ -56,7 +56,7 @@ end
function
cm
.
atcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
bc
=
c
:
GetBattleTarget
()
return
c
:
IsRelateToBattle
()
and
bc
:
IsType
(
TYPE_MONSTER
)
and
bit
.
band
(
bc
:
GetBattlePosition
(),
POS_DEFENSE
)
~=
0
return
c
:
IsRelateToBattle
()
and
bc
:
IsType
(
TYPE_MONSTER
)
and
(
bc
:
GetBattlePosition
()
&
POS_DEFENSE
)
~=
0
end
function
cm
.
atop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
...
...
expansions/script/c37564038.lua
View file @
8a8a6708
...
...
@@ -34,7 +34,7 @@ function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
local
ar
=
cm
.
list
[
dt
]
local
g
=
Group
.
CreateGroup
()
if
not
(
ar
and
cm
.
dtchk
(
tp
)
and
c
:
IsRelateToEffect
(
e
))
then
return
end
if
bit
.
band
(
ar
,
LOCATION_HAND
+
LOCATION_DECK
+
LOCATION_EXTRA
)
~=
0
then
if
(
ar
&
LOCATION_HAND
+
LOCATION_DECK
+
LOCATION_EXTRA
)
~=
0
then
local
g1
=
Duel
.
GetMatchingGroup
(
cm
.
filter
,
tp
,
0
,
ar
,
nil
)
if
g1
:
GetCount
()
>
0
then
if
ar
==
LOCATION_HAND
then
...
...
expansions/script/c37564046.lua
View file @
8a8a6708
...
...
@@ -95,7 +95,7 @@ function cm.valcheck(e,c)
local
ct
=
0
local
tc
=
g
:
GetFirst
()
while
tc
do
ct
=
bit
.
bor
(
tc
:
GetAttribute
(),
ct
)
ct
=
(
tc
:
GetAttribute
()
|
ct
)
tc
=
g
:
GetNext
()
end
e
:
GetLabelObject
():
SetLabel
(
ct
)
...
...
@@ -111,7 +111,7 @@ end
function
cm
.
mcon
(
at
)
return
function
(
e
)
local
mt
=
e
:
GetHandler
():
GetFlagEffectLabel
(
m
)
return
mt
and
bit
.
band
(
at
,
mt
)
==
at
return
mt
and
(
at
&
mt
)
==
at
end
end
function
cm
.
descon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
...
...
@@ -201,10 +201,10 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local
g
=
Duel
.
SelectTarget
(
tp
,
cm
.
dfilter
,
tp
,
0
,
LOCATION_ONFIELD
,
1
,
1
,
e
:
GetHandler
())
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DESTROY
,
g
,
1
,
0
,
0
)
local
cat
=
e
:
GetCategory
()
if
bit
.
band
(
g
:
GetFirst
():
GetOriginalType
(),
TYPE_MONSTER
)
~=
0
then
e
:
SetCategory
(
bit
.
bor
(
cat
,
CATEGORY_SPECIAL_SUMMON
))
if
(
g
:
GetFirst
():
GetOriginalType
()
&
TYPE_MONSTER
)
~=
0
then
e
:
SetCategory
(
(
cat
|
CATEGORY_SPECIAL_SUMMON
))
else
e
:
SetCategory
(
bit
.
band
(
cat
,
bit
.
bnot
(
CATEGORY_SPECIAL_SUMMON
)))
e
:
SetCategory
(
(
cat
&
bit
.
bnot
(
CATEGORY_SPECIAL_SUMMON
)))
end
end
function
cm
.
activate
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
...
...
expansions/script/c37564056.lua
View file @
8a8a6708
...
...
@@ -84,7 +84,7 @@ function cm.replace_register_effect(f,p)
end
)
end
local
pr
=
e
:
GetProperty
()
e
:
SetProperty
(
bit
.
bor
(
pr
,
EFFECT_FLAG_BOTH_SIDE
))
e
:
SetProperty
(
(
pr
|
EFFECT_FLAG_BOTH_SIDE
))
local
con
=
e
:
GetCondition
()
e
:
SetCondition
(
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
(
not
con
or
con
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
))
and
tp
==
p
...
...
expansions/script/c37564214.lua
View file @
8a8a6708
...
...
@@ -49,7 +49,7 @@ function cm.seqop(e,tp,eg,ep,ev,re,r,rp)
local
flag
=
0
if
seq
>
0
and
Duel
.
CheckLocation
(
tp
,
LOCATION_MZONE
,
seq
-
1
)
then
flag
=
bit
.
replace
(
flag
,
0x1
,
seq
-
1
)
end
if
seq
<
4
and
Duel
.
CheckLocation
(
tp
,
LOCATION_MZONE
,
seq
+
1
)
then
flag
=
bit
.
replace
(
flag
,
0x1
,
seq
+
1
)
end
flag
=
bit
.
bxor
(
flag
,
0xff
)
flag
=
(
flag
^
0xff
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
571
)
local
s
=
Duel
.
SelectDisableField
(
tp
,
1
,
LOCATION_MZONE
,
0
,
flag
)
local
nseq
=
0
...
...
expansions/script/c37564234.lua
View file @
8a8a6708
...
...
@@ -51,7 +51,7 @@ function cm.cfilter(c,tp)
local
ty
=
c
:
GetSummonType
()
if
c
:
GetSummonPlayer
()
==
tp
or
c
:
GetMaterialCount
()
<=
0
then
return
false
end
for
i
,
tty
in
pairs
({
SUMMON_TYPE_FUSION
+
SUMMON_TYPE_SYNCHRO
+
SUMMON_TYPE_XYZ
+
SUMMON_TYPE_LINK
})
do
if
bit
.
band
(
ty
,
tty
)
==
tty
then
return
true
end
if
(
ty
&
tty
)
==
tty
then
return
true
end
end
return
false
end
...
...
expansions/script/c37564307.lua
View file @
8a8a6708
...
...
@@ -50,7 +50,7 @@ function cm.initial_effect(c)
c
:
RegisterEffect
(
e7
)
end
function
cm
.
splimit
(
e
,
se
,
sp
,
st
)
return
bit
.
band
(
st
,
SUMMON_TYPE_FUSION
)
~=
SUMMON_TYPE_FUSION
return
(
st
&
SUMMON_TYPE_FUSION
)
~=
SUMMON_TYPE_FUSION
end
function
cm
.
ffilter
(
c
)
return
c
:
GetSummonLocation
()
==
LOCATION_EXTRA
and
c
:
IsOnField
()
...
...
@@ -141,7 +141,7 @@ function cm.spptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local
mg
=
c
:
GetMaterial
()
local
sumtype
=
c
:
GetSummonType
()
if
chk
==
0
then
return
not
(
bit
.
band
(
sumtype
,
SUMMON_TYPE_FUSION
)
~=
SUMMON_TYPE_FUSION
or
mg
:
GetCount
()
==
0
return
not
(
(
sumtype
&
SUMMON_TYPE_FUSION
)
~=
SUMMON_TYPE_FUSION
or
mg
:
GetCount
()
==
0
or
mg
:
GetCount
()
>
Duel
.
GetMZoneCount
(
tp
)
or
mg
:
IsExists
(
cm
.
mgfilter
,
1
,
nil
,
e
,
tp
,
c
))
end
...
...
@@ -152,7 +152,7 @@ function cm.spptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
end
function
cm
.
mgfilter
(
c
,
e
,
tp
,
fusc
)
return
not
c
:
IsControler
(
tp
)
or
not
c
:
IsLocation
(
LOCATION_GRAVE
)
or
bit
.
band
(
c
:
GetReason
(),
0x40008
)
~=
0x40008
or
c
:
GetReasonCard
()
~=
fusc
or
(
c
:
GetReason
()
&
0x40008
)
~=
0x40008
or
c
:
GetReasonCard
()
~=
fusc
or
not
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
true
,
true
)
or
c
:
IsHasEffect
(
EFFECT_NECRO_VALLEY
)
end
function
cm
.
mgfilterx
(
c
,
e
,
tp
,
fusc
)
...
...
expansions/script/c37564309.lua
View file @
8a8a6708
...
...
@@ -42,7 +42,7 @@ function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SELF
)
local
s1
=
Duel
.
SelectMatchingCard
(
tp
,
cm
.
f1
,
tp
,
LOCATION_HAND
,
0
,
1
,
1
,
nil
):
GetFirst
()
sg
:
AddCard
(
s1
)
local
tpe
=
bit
.
band
(
s1
:
GetType
(),
0x7
)
local
tpe
=
(
s1
:
GetType
()
&
0x7
)
if
Duel
.
IsExistingMatchingCard
(
cm
.
f2
,
tp
,
LOCATION_HAND
,
0
,
1
,
s1
,
tpe
)
and
Duel
.
SelectYesNo
(
tp
,
aux
.
Stringid
(
m
,
2
))
then
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SELF
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
cm
.
f2
,
tp
,
LOCATION_HAND
,
0
,
1
,
99
,
s1
,
tpe
)
...
...
@@ -129,5 +129,5 @@ end
function
cm
.
dfilter
(
c
,
tc
)
local
lv1
=
c
:
GetLevel
()
local
lv2
=
tc
:
GetLevel
()
return
bit
.
band
(
c
:
GetAttribute
(),
tc
:
GetAttribute
())
~=
0
and
bit
.
band
(
c
:
GetRace
(),
tc
:
GetRace
())
~=
0
and
c
:
GetLevel
()
>
0
and
lv1
==
lv2
and
lv1
~=
0
and
c
:
IsAbleToGrave
()
and
c
:
IsType
(
TYPE_MONSTER
)
return
(
c
:
GetAttribute
()
&
tc
:
GetAttribute
())
~=
0
and
(
c
:
GetRace
()
&
tc
:
GetRace
())
~=
0
and
c
:
GetLevel
()
>
0
and
lv1
==
lv2
and
lv1
~=
0
and
c
:
IsAbleToGrave
()
and
c
:
IsType
(
TYPE_MONSTER
)
end
\ No newline at end of file
expansions/script/c37564315.lua
View file @
8a8a6708
...
...
@@ -34,7 +34,7 @@ function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
local
g
=
Duel
.
GetDecktopGroup
(
tp
,
4
)
local
att
=
0
g
:
ForEach
(
function
(
tc
)
att
=
bit
.
bor
(
att
,
bit
.
band
(
tc
:
GetType
(),
0x7
))
att
=
(
att
|
(
tc
:
GetType
()
&
0x7
))
end
)
if
att
~=
0x7
then
return
end
Duel
.
Hint
(
HINT_CARD
,
0
,
e
:
GetHandler
():
GetOriginalCode
())
...
...
expansions/script/c37564317.lua
View file @
8a8a6708
...
...
@@ -23,7 +23,7 @@ function cm.initial_effect(c)
local g=Senya.get_all_cards:Clone()
local rg=Group.CreateGroup()
g:ForEach(function(c)
if
bit.band(c:GetOriginalType(),
0x81)==0x81 and not cm.gg:IsExists(cm.ctfilter,1,nil,c:GetOriginalCode()) then
if
(c:GetOriginalType() &
0x81)==0x81 and not cm.gg:IsExists(cm.ctfilter,1,nil,c:GetOriginalCode()) then
rg:AddCard(c)
cm.gg:AddCard(c)
end
...
...
@@ -39,7 +39,7 @@ function cm.ctfilter(c,code)
return
c
:
GetOriginalCode
()
==
code
end
function
cm
.
filter
(
c
,
e
,
tp
,
m
,
ft
)
if
bit
.
band
(
c
:
GetType
(),
0x81
)
~=
0x81
if
(
c
:
GetType
()
&
0x81
)
~=
0x81
or
not
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_RITUAL
,
tp
,
false
,
true
)
then
return
false
end
local
mg
=
m
:
Filter
(
Card
.
IsCanBeRitualMaterial
,
c
,
c
)
if
c
.
ritual_custom_condition
then
return
c
:
ritual_custom_condition
(
mg
,
ft
)
end
...
...
expansions/script/c37564324.lua
View file @
8a8a6708
...
...
@@ -85,10 +85,10 @@ function cm.FConditionCode2(e,g,gc,chkfnf)
if
g
==
nil
then
return
true
end
if
not
cm
.
material
then
return
false
end
local
funs
=
cm
.
GenerateList
(
cm
.
material
)
local
chkf
=
bit
.
band
(
chkfnf
,
0xff
)
local
chkf
=
(
chkfnf
&
0xff
)
local
c
=
e
:
GetHandler
()
local
tp
=
c
:
GetControler
()
local
notfusion
=
bit
.
rshift
(
chkfnf
,
8
)
~=
0
local
notfusion
=
(
chkfnf
>>
8
)
~=
0
local
sub
=
sub
or
notfusion
local
mg
=
g
:
Filter
(
Auxiliary
.
FConditionFilterMix
,
c
,
c
,
sub
,
table.unpack
(
funs
))
if
gc
then
...
...
@@ -101,10 +101,10 @@ function cm.FConditionCode2(e,g,gc,chkfnf)
end
function
cm
.
FOperationCode2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
gc
,
chkfnf
)
local
funs
=
cm
.
GenerateList
(
cm
.
material
)
local
chkf
=
bit
.
band
(
chkfnf
,
0xff
)
local
chkf
=
(
chkfnf
&
0xff
)
local
c
=
e
:
GetHandler
()
local
tp
=
c
:
GetControler
()
local
notfusion
=
bit
.
rshift
(
chkfnf
,
8
)
~=
0
local
notfusion
=
(
chkfnf
>>
8
)
~=
0
local
sub
=
sub
or
notfusion
local
mg
=
eg
:
Filter
(
Auxiliary
.
FConditionFilterMix
,
c
,
c
,
sub
,
table.unpack
(
funs
))
local
sg
=
Group
.
CreateGroup
()
...
...
expansions/script/c37564325.lua
View file @
8a8a6708
...
...
@@ -82,7 +82,7 @@ function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
end
end
function
cm
.
afilter
(
c
)
return
bit
.
band
(
c
:
GetOriginalType
(),
TYPE_MONSTER
)
~=
0
and
c
:
GetFlagEffect
(
m
)
>
0
return
(
c
:
GetOriginalType
()
&
TYPE_MONSTER
)
~=
0
and
c
:
GetFlagEffect
(
m
)
>
0
end
function
cm
.
adcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
g
=
e
:
GetLabelObject
():
GetLabelObject
()
...
...
expansions/script/c37564330.lua
View file @
8a8a6708
...
...
@@ -47,7 +47,7 @@ function cm.initial_effect(c)
end
function
cm
.
rcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
e
:
GetHandler
():
GetFlagEffect
(
m
)
==
0
and
bit
.
band
(
r
,
REASON_COST
)
~=
0
and
re
:
IsHasType
(
0x7e0
)
and
re
:
IsActiveType
(
TYPE_XYZ
)
and
(
r
&
REASON_COST
)
~=
0
and
re
:
IsHasType
(
0x7e0
)
and
re
:
IsActiveType
(
TYPE_XYZ
)
end
function
cm
.
rop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
Hint
(
HINT_CARD
,
0
,
e
:
GetHandler
():
GetOriginalCode
())
...
...
expansions/script/c37564331.lua
View file @
8a8a6708
...
...
@@ -48,22 +48,22 @@ function cm.disop(e,tp,eg,ep,ev,re,r,rp)
local
t
=
re
:
GetType
()
local
cd
=
re
:
GetCode
()
local
pr1
,
pr2
=
re
:
GetProperty
()
pr1
=
bit
.
bor
(
pr1
,
EFFECT_FLAG_NO_TURN_RESET
)
if
bit
.
band
(
t
,
EFFECT_TYPE_ACTIVATE
)
~=
0
then
t
=
bit
.
bor
(
t
-
EFFECT_TYPE_ACTIVATE
,
EFFECT_TYPE_QUICK_O
)
pr1
=
(
pr1
|
EFFECT_FLAG_NO_TURN_RESET
)
if
(
t
&
EFFECT_TYPE_ACTIVATE
)
~=
0
then
t
=
(
t
-
EFFECT_TYPE_ACTIVATE
|
EFFECT_TYPE_QUICK_O
)
end
if
bit
.
band
(
t
,
EFFECT_TYPE_XMATERIAL
)
~=
0
then
if
(
t
&
EFFECT_TYPE_XMATERIAL
)
~=
0
then
t
=
t
-
EFFECT_TYPE_XMATERIAL
end
if
bit
.
band
(
t
,
EFFECT_TYPE_QUICK_F
)
~=
0
then
t
=
bit
.
bor
(
t
-
EFFECT_TYPE_QUICK_F
,
EFFECT_TYPE_QUICK_O
)
if
(
t
&
EFFECT_TYPE_QUICK_F
)
~=
0
then
t
=
(
t
-
EFFECT_TYPE_QUICK_F
|
EFFECT_TYPE_QUICK_O
)
end
if
bit
.
band
(
t
,
EFFECT_TYPE_TRIGGER_F
)
~=
0
then
t
=
bit
.
bor
(
t
-
EFFECT_TYPE_TRIGGER_F
,
EFFECT_TYPE_TRIGGER_O
)
pr1
=
bit
.
bor
(
pr1
,
EFFECT_FLAG_DELAY
+
EFFECT_FLAG_DAMAGE_STEP
)
if
(
t
&
EFFECT_TYPE_TRIGGER_F
)
~=
0
then
t
=
(
t
-
EFFECT_TYPE_TRIGGER_F
|
EFFECT_TYPE_TRIGGER_O
)
pr1
=
(
pr1
|
EFFECT_FLAG_DELAY
+
EFFECT_FLAG_DAMAGE_STEP
)
end
if
bit
.
band
(
t
,
EFFECT_TYPE_IGNITION
)
~=
0
then
t
=
bit
.
bor
(
t
-
EFFECT_TYPE_IGNITION
,
EFFECT_TYPE_QUICK_O
)
if
(
t
&
EFFECT_TYPE_IGNITION
)
~=
0
then
t
=
(
t
-
EFFECT_TYPE_IGNITION
|
EFFECT_TYPE_QUICK_O
)
cd
=
EVENT_FREE_CHAIN
end
e1
:
SetType
(
t
)
...
...
expansions/script/c37564332.lua
View file @
8a8a6708
...
...
@@ -71,7 +71,7 @@ function cm.cop(te)
if
not
te
then
return
end
local
c
=
e
:
GetHandler
()
local
tg
=
te
:
GetTarget
()
if
bit
.
band
(
c
:
GetType
(),
TYPE_FIELD
+
TYPE_CONTINUOUS
+
TYPE_PENDULUM
)
==
0
then
if
(
c
:
GetType
()
&
TYPE_FIELD
+
TYPE_CONTINUOUS
+
TYPE_PENDULUM
)
==
0
then
c
:
CancelToGrave
(
false
)
end
local
code
=
te
:
GetCode
()
...
...
expansions/script/c37564333.lua
View file @
8a8a6708
...
...
@@ -129,7 +129,7 @@ function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
return
false
end
function
cm
.
spcon2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
bit
.
band
(
r
,
REASON_EFFECT
+
REASON_BATTLE
)
~=
0
and
e
:
GetHandler
():
IsPreviousLocation
(
LOCATION_MZONE
)
return
(
r
&
REASON_EFFECT
+
REASON_BATTLE
)
~=
0
and
e
:
GetHandler
():
IsPreviousLocation
(
LOCATION_MZONE
)
end
function
cm
.
ffilter
(
c
,
e
,
tp
,
m
,
f
,
chkf
)
return
c
:
IsType
(
TYPE_FUSION
)
and
(
not
f
or
f
(
c
))
...
...
expansions/script/c37564336.lua
View file @
8a8a6708
...
...
@@ -36,7 +36,7 @@ function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
local
flag
=
0
if
seq
>
0
and
Duel
.
CheckLocation
(
tp
,
LOCATION_MZONE
,
seq
-
1
)
then
flag
=
bit
.
replace
(
flag
,
0x1
,
seq
-
1
)
end
if
seq
<
4
and
Duel
.
CheckLocation
(
tp
,
LOCATION_MZONE
,
seq
+
1
)
then
flag
=
bit
.
replace
(
flag
,
0x1
,
seq
+
1
)
end
flag
=
bit
.
bxor
(
flag
,
0xff
)
flag
=
(
flag
^
0xff
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
571
)
local
s
=
Duel
.
SelectDisableField
(
tp
,
1
,
LOCATION_MZONE
,
0
,
flag
)
local
nseq
=
0
...
...
expansions/script/c37564512.lua
View file @
8a8a6708
...
...
@@ -29,7 +29,7 @@ function cm.cfilter(c,ori)
if
c
:
IsFacedown
()
then
return
false
end
if
ori
then
return
c
:
GetOriginalCode
()
==
37564765
and
c
:
IsLocation
(
LOCATION_MZONE
)
end
if
c
:
IsCode
(
37564765
)
then
return
true
end
return
(
Senya
.
check_set_sawawa
(
c
)
or
(
Senya
.
check_set_3L
(
c
)
and
c
:
IsType
(
TYPE_FUSION
))
or
(
Senya
.
check_set_sayuri
(
c
)
and
bit
.
band
(
c
:
GetType
(),
0x81
)
==
0x81
))
and
c
:
IsLocation
(
LOCATION_MZONE
)
return
(
Senya
.
check_set_sawawa
(
c
)
or
(
Senya
.
check_set_3L
(
c
)
and
c
:
IsType
(
TYPE_FUSION
))
or
(
Senya
.
check_set_sayuri
(
c
)
and
(
c
:
GetType
()
&
0x81
)
==
0x81
))
and
c
:
IsLocation
(
LOCATION_MZONE
)
end
function
cm
.
condition2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
Duel
.
IsChainNegatable
(
ev
)
and
Duel
.
IsExistingMatchingCard
(
cm
.
cfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
,
false
)
...
...
expansions/script/c37564513.lua
View file @
8a8a6708
...
...
@@ -17,7 +17,7 @@ function cm.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if
chkc
then
return
chkc
:
IsControler
(
1
-
tp
)
and
chkc
:
IsOnField
()
and
chkc
~=
e
:
GetHandler
()
end
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
aux
.
TRUE
,
tp
,
0
,
LOCATION_ONFIELD
,
1
,
e
:
GetHandler
())
and
Senya
.
NanahiraExistingCondition
(
false
)(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
end
local
pr1
,
pr2
=
e
:
GetProperty
()
e
:
SetProperty
(
bit
.
bor
(
pr1
,
EFFECT_FLAG_CARD_TARGET
),
pr2
)
e
:
SetProperty
(
(
pr1
|
EFFECT_FLAG_CARD_TARGET
),
pr2
)
e
:
SetCategory
(
CATEGORY_DESTROY
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_DESTROY
)
local
g
=
Duel
.
SelectTarget
(
tp
,
aux
.
TRUE
,
tp
,
0
,
LOCATION_ONFIELD
,
1
,
1
,
e
:
GetHandler
())
...
...
@@ -26,7 +26,7 @@ end
function
cm
.
tg2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
Card
.
IsAbleToRemove
,
tp
,
0
,
LOCATION_ONFIELD
,
1
,
nil
)
and
Senya
.
NanahiraExistingCondition
(
true
)(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
and
Duel
.
IsPlayerCanDraw
(
tp
,
1
)
end
local
pr1
,
pr2
=
e
:
GetProperty
()
e
:
SetProperty
(
pr1
-
bit
.
band
(
pr1
,
EFFECT_FLAG_CARD_TARGET
),
pr2
)
e
:
SetProperty
(
pr1
-
(
pr1
&
EFFECT_FLAG_CARD_TARGET
),
pr2
)
e
:
SetCategory
(
CATEGORY_REMOVE
+
CATEGORY_DRAW
)
local
g
=
Duel
.
GetMatchingGroup
(
Card
.
IsAbleToRemove
,
tp
,
0
,
LOCATION_ONFIELD
,
nil
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_REMOVE
,
g
,
1
,
0
,
0
)
...
...
expansions/script/c37564514.lua
View file @
8a8a6708
...
...
@@ -24,7 +24,7 @@ function cm.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if
chkc
then
return
chkc
:
IsLocation
(
LOCATION_GRAVE
)
and
cm
.
filter
(
chkc
,
e
,
tp
)
end
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
cm
.
filter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
nil
,
e
,
tp
)
and
Duel
.
GetMZoneCount
(
tp
)
>
0
end
local
pr1
,
pr2
=
e
:
GetProperty
()
e
:
SetProperty
(
bit
.
bor
(
pr1
,
EFFECT_FLAG_CARD_TARGET
),
pr2
)
e
:
SetProperty
(
(
pr1
|
EFFECT_FLAG_CARD_TARGET
),
pr2
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
g
=
Duel
.
SelectTarget
(
tp
,
cm
.
filter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
1
,
nil
,
e
,
tp
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
g
,
1
,
0
,
0
)
...
...
@@ -32,7 +32,7 @@ end
function
cm
.
tg2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
cm
.
filter1
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
nil
,
e
,
tp
)
and
Duel
.
GetMZoneCount
(
tp
)
>
0
end
local
pr1
,
pr2
=
e
:
GetProperty
()
e
:
SetProperty
(
pr1
-
bit
.
band
(
pr1
,
EFFECT_FLAG_CARD_TARGET
),
pr2
)
e
:
SetProperty
(
pr1
-
(
pr1
&
EFFECT_FLAG_CARD_TARGET
),
pr2
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_GRAVE
)
end
function
cm
.
op1
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
...
...
expansions/script/c37564521.lua
View file @
8a8a6708
...
...
@@ -38,7 +38,7 @@ function cm.hcon(e,c)
return
Duel
.
GetMZoneCount
(
c
:
GetControler
())
>
0
and
Duel
.
IsExistingMatchingCard
(
cm
.
ssfilter
,
c
:
GetControler
(),
LOCATION_MZONE
,
0
,
1
,
nil
)
and
c
:
IsFaceup
()
and
not
c
:
IsDisabled
()
end
function
cm
.
spcon2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
bit
.
band
(
r
,
REASON_EFFECT
+
REASON_BATTLE
)
~=
0
return
(
r
&
REASON_EFFECT
+
REASON_BATTLE
)
~=
0
end
function
cm
.
spfilter
(
c
,
e
,
tp
)
return
c
:
IsCode
(
37564765
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
...
...
expansions/script/c37564523.lua
View file @
8a8a6708
...
...
@@ -18,7 +18,7 @@ function cm.initial_effect(c)
end
function
cm
.
filter
(
c
,
e
,
tp
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
37564765
)
and
c
:
IsAbleToGrave
()
and
Duel
.
IsExistingMatchingCard
(
cm
.
spfilter
,
tp
,
LOCATION_DECK
+
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
,
c
:
GetOriginalCode
())
and
bit
.
band
(
c
:
GetType
(),
0x8020d0
+
TYPE_LINK
)
~=
0
and
Duel
.
IsExistingMatchingCard
(
cm
.
spfilter
,
tp
,
LOCATION_DECK
+
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
,
c
:
GetOriginalCode
())
and
(
c
:
GetType
()
&
0x8020d0
+
TYPE_LINK
)
~=
0
end
function
cm
.
spfilter
(
c
,
e
,
tp
,
code
)
return
c
.
Senya_desc_with_nanahira
and
c
:
GetOriginalCode
()
~=
code
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
and
Senya
.
CheckSummonLocation
(
c
,
tp
)
...
...
expansions/script/c37564525.lua
View file @
8a8a6708
...
...
@@ -23,7 +23,7 @@ end
function
cm
.
cf
(
c
,
rc
)
if
not
c
:
IsAbleToGraveAsCost
()
then
return
false
end
if
c
:
IsCode
(
37564517
)
then
return
true
end
return
bit
.
band
(
c
:
GetAttribute
(),
rc
:
GetAttribute
())
~=
0
or
bit
.
band
(
c
:
GetRace
(),
rc
:
GetRace
())
~=
0
return
(
c
:
GetAttribute
()
&
rc
:
GetAttribute
())
~=
0
or
(
c
:
GetRace
()
&
rc
:
GetRace
())
~=
0
end
function
cm
.
DiscardHandCost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
...
...
expansions/script/c37564532.lua
View file @
8a8a6708
...
...
@@ -43,8 +43,8 @@ function cm.add(rg)
local
te
=
tc
:
GetActivateEffect
()
if
not
te
then
return
end
local
pr1
,
pr2
=
te
:
GetProperty
()
if
bit
.
band
(
pr2
,
EFFECT_FLAG2_COF
)
~=
0
then
return
end
pr2
=
bit
.
bor
(
pr2
,
EFFECT_FLAG2_COF
)
if
(
pr2
&
EFFECT_FLAG2_COF
)
~=
0
then
return
end
pr2
=
(
pr2
|
EFFECT_FLAG2_COF
)
te
:
SetHintTiming
(
0
,
0x1e0
)
te
:
SetProperty
(
pr1
,
pr2
)
rg
:
AddCard
(
tc
)
...
...
@@ -55,7 +55,7 @@ function cm.rmv(rg)
local
te
=
tc
:
GetActivateEffect
()
if
not
te
then
return
end
local
pr1
,
pr2
=
te
:
GetProperty
()
pr2
=
pr2
-
bit
.
band
(
pr2
,
EFFECT_FLAG2_COF
)
pr2
=
pr2
-
(
pr2
&
EFFECT_FLAG2_COF
)
te
:
SetProperty
(
pr1
,
pr2
)
te
:
SetHintTiming
(
0
,
0
)
rg
:
RemoveCard
(
tc
)
...
...
expansions/script/c37564534.lua
View file @
8a8a6708
...
...
@@ -38,7 +38,7 @@ function cm.initial_effect(c)
c
:
RegisterEffect
(
e1
)
end
function
cm
.
rgcon
(
e
)
return
bit
.
band
(
e
:
GetHandler
():
GetSummonType
(),
0x534
)
==
0x534
return
(
e
:
GetHandler
():
GetSummonType
()
&
0x534
)
==
0x534
end
function
cm
.
spcon
(
e
,
c
)
if
c
==
nil
then
return
true
end
...
...
@@ -51,7 +51,7 @@ end
function
cm
.
rdcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
return
ep
~=
tp
and
Duel
.
GetAttackTarget
()
==
nil
and
c
:
GetEffectCount
(
EFFECT_DIRECT_ATTACK
)
<
2
and
Duel
.
GetFieldGroupCount
(
tp
,
0
,
LOCATION_MZONE
)
>
0
and
bit
.
band
(
e
:
GetHandler
():
GetSummonType
(),
0x534
)
==
0x534
and
c
:
GetEffectCount
(
EFFECT_DIRECT_ATTACK
)
<
2
and
Duel
.
GetFieldGroupCount
(
tp
,
0
,
LOCATION_MZONE
)
>
0
and
(
e
:
GetHandler
():
GetSummonType
()
&
0x534
)
==
0x534
end
function
cm
.
rdop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
ChangeBattleDamage
(
ep
,
ev
/
2
)
...
...
@@ -66,7 +66,7 @@ function cm.f3(c,e,tp)
return
c
:
IsCode
(
37564765
)
and
c
:
IsAbleToGrave
()
and
not
c
:
IsImmuneToEffect
(
e
)
and
c
:
IsFaceup
()
and
Duel
.
IsExistingMatchingCard
(
cm
.
f2
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
,
Group
.
FromCards
(
e
:
GetHandler
(),
nc
))
end
function
cm
.
filter
(
c
)
return
c
.
Senya_desc_with_nanahira
and
bit
.
band
(
c
:
GetType
(),
TYPE_TRAP
+
TYPE_COUNTER
)
==
TYPE_TRAP
+
TYPE_COUNTER
and
c
:
IsAbleToHand
()
return
c
.
Senya_desc_with_nanahira
and
(
c
:
GetType
()
&
TYPE_TRAP
+
TYPE_COUNTER
)
==
TYPE_TRAP
+
TYPE_COUNTER
and
c
:
IsAbleToHand
()
end
function
cm
.
rmtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
e
:
GetHandler
():
IsAbleToGrave
()
and
Duel
.
IsExistingMatchingCard
(
cm
.
f1
,
tp
,
LOCATION_MZONE
,
0
,
1
,
e
:
GetHandler
(),
e
,
tp
)
end
...
...
expansions/script/c37564535.lua
View file @
8a8a6708
...
...
@@ -50,7 +50,7 @@ function cm.initial_effect(c)
end
function
cm
.
bmrlfilter
(
c
,
ft
)
if
ft
==
0
and
c
:
GetSequence
()
>
4
then
return
false
end
return
c
:
IsCode
(
37564765
)
and
bit
.
band
(
c
:
GetType
(),
0x8020d0
+
TYPE_LINK
)
~=
0
return
c
:
IsCode
(
37564765
)
and
(
c
:
GetType
()
&
0x8020d0
+
TYPE_LINK
)
~=
0
end
function
cm
.
bmrlcon
(
e
,
c
)
if
c
==
nil
then
return
true
end
...
...
expansions/script/c37564538.lua
View file @
8a8a6708
...
...
@@ -64,7 +64,7 @@ function cm.f(c)
end
function
cm
.
add
(
tc
)
local
p2
=
0
if
bit
.
band
(
tc
:
GetOriginalType
(),
TYPE_QUICKPLAY
+
TYPE_TRAP
)
==
0
then
p2
=
EFFECT_TYPE_QUICK_O
end
if
(
tc
:
GetOriginalType
()
&
TYPE_QUICKPLAY
+
TYPE_TRAP
)
==
0
then
p2
=
EFFECT_TYPE_QUICK_O
end
local
e2
=
Effect
.
CreateEffect
(
tc
)
e2
:
SetDescription
(
m
*
16
)
e2
:
SetCategory
(
CATEGORY_NEGATE
+
CATEGORY_DESTROY
)
...
...
@@ -112,10 +112,10 @@ function cm.reg(e,tp,eg,ep,ev,re,r,rp)
end
function
cm
.
condition2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
not
Duel
.
IsChainNegatable
(
ev
)
then
return
false
end
if
e
:
GetHandler
():
GetTurnID
()
==
Duel
.
GetTurnCount
()
and
bit
.
band
(
e
:
GetHandler
():
GetOriginalType
(),
TYPE_QUICKPLAY
+
TYPE_TRAP
)
==
0
then
return
false
end
local
t1
=
bit
.
band
(
e
:
GetHandler
():
GetOriginalType
(),
0x7
)
local
t2
=
bit
.
band
(
re
:
GetHandler
():
GetOriginalType
(),
0x7
)
return
bit
.
band
(
t1
,
t2
)
~=
0
if
e
:
GetHandler
():
GetTurnID
()
==
Duel
.
GetTurnCount
()
and
(
e
:
GetHandler
():
GetOriginalType
()
&
TYPE_QUICKPLAY
+
TYPE_TRAP
)
==
0
then
return
false
end
local
t1
=
(
e
:
GetHandler
():
GetOriginalType
()
&
0x7
)
local
t2
=
(
re
:
GetHandler
():
GetOriginalType
()
&
0x7
)
return
(
t1
&
t2
)
~=
0
end
function
cm
.
target2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
true
end
...
...
expansions/script/c37564540.lua
View file @
8a8a6708
...
...
@@ -60,7 +60,7 @@ function cm.disop(e,tp,eg,ep,ev,re,r,rp)
end
function
cm
.
repop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
t
=
e
:
GetActiveType
()
if
(
bit
.
band
(
t
,
TYPE_CONTINUOUS
+
TYPE_FIELD
)
~=
0
or
bit
.
band
(
t
,
TYPE_SPELL
+
TYPE_PENDULUM
)
==
TYPE_SPELL
+
TYPE_PENDULUM
)
and
not
e
:
GetHandler
():
IsRelateToEffect
(
e
)
then
return
end
if
(
(
t
&
TYPE_CONTINUOUS
+
TYPE_FIELD
)
~=
0
or
(
t
&
TYPE_SPELL
+
TYPE_PENDULUM
)
==
TYPE_SPELL
+
TYPE_PENDULUM
)
and
not
e
:
GetHandler
():
IsRelateToEffect
(
e
)
then
return
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_REMOVE
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
Card
.
IsAbleToRemove
,
tp
,
LOCATION_ONFIELD
+
LOCATION_HAND
,
0
,
1
,
1
,
nil
)
if
g
:
GetCount
()
>
0
then
...
...
expansions/script/c37564547.lua
View file @
8a8a6708
...
...
@@ -65,7 +65,7 @@ function cm.matfilter3(c,syncard)
return
c
:
IsFaceup
()
and
c
:
IsSynchroType
(
TYPE_TUNER
)
and
c
:
IsCode
(
37564765
)
and
c
:
IsCanBeSynchroMaterial
(
syncard
)
end
function
cm
.
matfilter4
(
c
,
syncard
)
return
c
:
IsFaceup
()
and
bit
.
band
(
c
:
GetOriginalType
(),
TYPE_TUNER
)
==
0
and
bit
.
band
(
c
:
GetOriginalRace
(),
RACE_FAIRY
)
~=
0
and
c
:
IsCode
(
37564765
)
and
c
:
IsCanBeSynchroMaterial
(
syncard
)
return
c
:
IsFaceup
()
and
(
c
:
GetOriginalType
()
&
TYPE_TUNER
)
==
0
and
(
c
:
GetOriginalRace
()
&
RACE_FAIRY
)
~=
0
and
c
:
IsCode
(
37564765
)
and
c
:
IsCanBeSynchroMaterial
(
syncard
)
end
function
cm
.
val
(
c
,
syncard
)
if
c
:
IsLocation
(
LOCATION_SZONE
)
then
...
...
expansions/script/c37564557.lua
View file @
8a8a6708
...
...
@@ -37,7 +37,7 @@ function cm.initial_effect(c)
c
:
RegisterEffect
(
e2
)
end
function
cm
.
splimit
(
e
,
se
,
sp
,
st
)
return
bit
.
band
(
st
,
SUMMON_TYPE_LINK
)
==
SUMMON_TYPE_LINK
return
(
st
&
SUMMON_TYPE_LINK
)
==
SUMMON_TYPE_LINK
end
function
cm
.
desfilter
(
c
,
g
)
return
g
:
IsContains
(
c
)
...
...
expansions/script/c37564560.lua
View file @
8a8a6708
...
...
@@ -50,20 +50,20 @@ end
function
cm
.
location_check
(
p
,
tp
,
z
)
local
tz
=
0
if
p
~=
tp
then
tz
=
bit
.
rshift
(
bit
.
band
(
z
,
0x1f0000
),
16
)
tz
=
((
z
&
0x1f0000
)
>>
16
)
else
tz
=
bit
.
band
(
z
,
0x1f
)
tz
=
(
z
&
0x1f
)
end
local
ct
=
0
local
res
=
0
for
i
=
0
,
4
do
local
cz
=
bit
.
lshift
(
1
,
i
)
if
bit
.
band
(
tz
,
cz
)
==
cz
and
Duel
.
CheckLocation
(
p
,
LOCATION_MZONE
,
i
)
then
local
cz
=
(
1
<<
i
)
if
(
tz
&
cz
)
==
cz
and
Duel
.
CheckLocation
(
p
,
LOCATION_MZONE
,
i
)
then
ct
=
ct
+
1
res
=
bit
.
bor
(
cz
,
res
)
res
=
(
cz
|
res
)
end
end
if
p
~=
tp
then
res
=
bit
.
lshift
(
res
,
16
)
end
if
p
~=
tp
then
res
=
(
res
<<
16
)
end
return
ct
,
res
end
function
cm
.
target
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
...
...
@@ -87,6 +87,6 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local
ct
,
res
=
cm
.
location_check
(
p
,
tp
,
z
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
571
)
local
sz
=
Duel
.
SelectDisableField
(
tp
,
1
,
LOCATION_MZONE
,
LOCATION_MZONE
,
0x1f001f
-
res
)
if
bit
.
band
(
sz
,
0x1f0000
)
~=
0
then
sz
=
bit
.
rshift
(
sz
,
16
)
end
if
(
sz
&
0x1f0000
)
~=
0
then
sz
=
(
sz
>>
16
)
end
Duel
.
MoveSequence
(
rc
,
math.log
(
sz
,
2
))
end
\ No newline at end of file
expansions/script/c37564561.lua
View file @
8a8a6708
...
...
@@ -16,5 +16,5 @@ function cm.initial_effect(c)
Senya
.
NegateEffectModule
(
c
,
1
)
end
function
cm
.
splimit
(
e
,
se
,
sp
,
st
)
return
bit
.
band
(
st
,
SUMMON_TYPE_LINK
)
==
SUMMON_TYPE_LINK
return
(
st
&
SUMMON_TYPE_LINK
)
==
SUMMON_TYPE_LINK
end
\ No newline at end of file
expansions/script/c37564611.lua
View file @
8a8a6708
...
...
@@ -63,7 +63,7 @@ function cm.spop1(e,tp,eg,ep,ev,re,r,rp)
end
end
function
cm
.
thcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
bit
.
band
(
r
,
REASON_EFFECT
)
~=
0
return
(
r
&
REASON_EFFECT
)
~=
0
and
Senya
.
check_set_prim
(
re
:
GetHandler
())
and
not
e
:
GetHandler
():
IsReason
(
REASON_RETURN
)
end
function
cm
.
thfilter
(
c
)
...
...
expansions/script/c37564612.lua
View file @
8a8a6708
...
...
@@ -31,7 +31,7 @@ function cm.initial_effect(c)
c
:
RegisterEffect
(
e3
)
end
function
cm
.
condition
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
bit
.
band
(
r
,
REASON_EFFECT
)
~=
0
return
(
r
&
REASON_EFFECT
)
~=
0
and
Senya
.
check_set_prim
(
re
:
GetHandler
())
end
function
cm
.
thfilter
(
c
)
...
...
expansions/script/c37564765.lua
View file @
8a8a6708
...
...
@@ -498,7 +498,7 @@ end
function
cm
.
MokouRebornCondition
(
eff
,
con
)
if
eff
then
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
bit
.
band
(
e
:
GetHandler
():
GetReason
(),
0x41
)
==
0x41
and
(
not
con
or
con
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
))
return
(
e
:
GetHandler
():
GetReason
()
&
0x41
)
==
0x41
and
(
not
con
or
con
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
))
end
else
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
...
...
@@ -972,7 +972,7 @@ function cm.PrismXyzCheck(min,max)
end
function
cm
.
PrismXyzValue
(
c
)
local
v
=
1
if
c
:
IsHasEffect
(
37564499
)
then
v
=
bit
.
bor
(
v
,
0x20000
)
end
if
c
:
IsHasEffect
(
37564499
)
then
v
=
(
v
|
0x20000
)
end
return
v
end
--xyz monster atk drain effect
...
...
@@ -1074,8 +1074,8 @@ function cm.NanahiraExtraPendulum(c,scon)
e2
:
SetValue
(
function
(
e
,
se
,
sp
,
st
)
if
scon
and
not
scon
(
e
,
se
,
sp
,
st
)
then
return
false
end
local
c
=
e
:
GetHandler
()
if
c
:
IsFaceup
()
and
c
:
IsLocation
(
LOCATION_EXTRA
)
and
c
:
IsType
(
TYPE_FUSION
)
and
bit
.
band
(
st
,
SUMMON_TYPE_FUSION
)
==
SUMMON_TYPE_FUSION
then
return
false
end
return
c
:
IsHasEffect
(
EFFECT_REVIVE_LIMIT
)
or
c
:
IsStatus
(
STATUS_PROC_COMPLETE
)
or
bit
.
band
(
st
,
SUMMON_TYPE_PENDULUM
)
==
SUMMON_TYPE_PENDULUM
if
c
:
IsFaceup
()
and
c
:
IsLocation
(
LOCATION_EXTRA
)
and
c
:
IsType
(
TYPE_FUSION
)
and
(
st
&
SUMMON_TYPE_FUSION
)
==
SUMMON_TYPE_FUSION
then
return
false
end
return
c
:
IsHasEffect
(
EFFECT_REVIVE_LIMIT
)
or
c
:
IsStatus
(
STATUS_PROC_COMPLETE
)
or
(
st
&
SUMMON_TYPE_PENDULUM
)
==
SUMMON_TYPE_PENDULUM
end
)
c
:
RegisterEffect
(
e2
)
end
...
...
@@ -1315,7 +1315,7 @@ function cm.NanahiraTrap(c,...)
e1
:
SetCost
(
cm
.
SelfReleaseCost
)
e1
:
SetCondition
(
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
e
:
GetHandler
():
IsStatus
(
STATUS_BATTLE_DESTROYED
)
then
return
false
end
return
bit
.
band
(
e
:
GetHandler
():
GetSummonType
(),
0x553
)
==
0x553
return
(
e
:
GetHandler
():
GetSummonType
()
&
0x553
)
==
0x553
end
)
local
op
=
te
:
GetOperation
()
e1
:
SetOperation
(
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
...
...
@@ -1409,7 +1409,7 @@ end
--counter summon effect universals
--n=normal f=flip s=special o=opponent only
function
cm
.
NegateSummonModule
(
c
,
tpcode
,
ctlm
,
ctlmid
,
con
,
cost
)
if
not
tpcode
or
bit
.
band
(
tpcode
,
7
)
==
0
then
return
end
if
not
tpcode
or
(
tpcode
&
7
)
==
0
then
return
end
ctlmid
=
ctlmid
or
1
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetDescription
(
aux
.
Stringid
(
37564765
,
4
))
...
...
@@ -1418,7 +1418,7 @@ function cm.NegateSummonModule(c,tpcode,ctlm,ctlmid,con,cost)
e3
:
SetRange
(
LOCATION_MZONE
)
e3
:
SetCode
(
EVENT_SPSUMMON
)
if
ctlm
then
e3
:
SetCountLimit
(
ctlm
,
ctlmid
)
end
if
bit
.
band
(
tpcode
,
8
)
==
8
then
if
(
tpcode
&
8
)
==
8
then
e3
:
SetLabel
(
2
)
else
e3
:
SetLabel
(
1
)
...
...
@@ -1432,15 +1432,15 @@ function cm.NegateSummonModule(c,tpcode,ctlm,ctlmid,con,cost)
local
e1
=
e3
:
Clone
()
e1
:
SetCode
(
EVENT_SUMMON
)
local
t
=
{}
if
bit
.
band
(
tpcode
,
1
)
==
1
then
if
(
tpcode
&
1
)
==
1
then
c
:
RegisterEffect
(
e1
)
table.insert
(
t
,
e1
)
end
if
bit
.
band
(
tpcode
,
2
)
==
2
then
if
(
tpcode
&
2
)
==
2
then
c
:
RegisterEffect
(
e2
)
table.insert
(
t
,
e2
)
end
if
bit
.
band
(
tpcode
,
4
)
==
4
then
if
(
tpcode
&
4
)
==
4
then
c
:
RegisterEffect
(
e3
)
table.insert
(
t
,
e3
)
end
...
...
@@ -1763,7 +1763,7 @@ function cm.FusionCondition_3L(mf,f,min,max,myon,sub)
return
function
(
e
,
g
,
gc
,
chkfnf
)
if
g
==
nil
then
return
true
end
local
c
=
e
:
GetHandler
()
local
chkf
=
bit
.
band
(
chkfnf
,
0xff
)
local
chkf
=
(
chkfnf
&
0xff
)
local
mg
=
g
:
Filter
(
cm
.
FusionFilter_3L
,
nil
,
e
:
GetHandler
(),
mf
,
sub
)
local
tp
=
e
:
GetHandlerPlayer
()
local
exg
=
Duel
.
GetMatchingGroup
(
cm
.
MyonCheckFilter
,
tp
,
0
,
LOCATION_MZONE
,
nil
,
c
,
myon
)
...
...
@@ -1785,7 +1785,7 @@ end
function
cm
.
FusionOperation_3L
(
mf
,
f
,
min
,
max
,
myon
,
sub
)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
gc
,
chkfnf
)
local
c
=
e
:
GetHandler
()
local
chkf
=
bit
.
band
(
chkfnf
,
0xff
)
local
chkf
=
(
chkfnf
&
0xff
)
local
mg
=
eg
:
Filter
(
cm
.
FusionFilter_3L
,
nil
,
e
:
GetHandler
(),
mf
,
sub
)
local
exg
=
Duel
.
GetMatchingGroup
(
cm
.
MyonCheckFilter
,
tp
,
0
,
LOCATION_MZONE
,
nil
,
c
,
myon
)
mg
:
Merge
(
exg
)
...
...
@@ -2235,7 +2235,7 @@ function cm.multi_choice_target(m,...)
return
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
if
chkc
then
local
pr
=
e
:
GetProperty
()
return
bit
.
band
(
pr
,
EFFECT_FLAG_CARD_TARGET
)
~=
0
and
function_list
[
e
:
GetLabel
()](
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
return
(
pr
&
EFFECT_FLAG_CARD_TARGET
)
~=
0
and
function_list
[
e
:
GetLabel
()](
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
end
local
avaliable_list
=
{}
for
i
,
tg
in
pairs
(
function_list
)
do
...
...
@@ -2307,7 +2307,7 @@ end
function
cm
.
GetFusionMaterial
(
tp
,
loc
,
oloc
,
f
,
gc
,
e
,
...
)
local
g1
=
Duel
.
GetFusionMaterial
(
tp
)
if
loc
then
local
floc
=
bit
.
band
(
loc
,
LOCATION_ONFIELD
+
LOCATION_HAND
)
local
floc
=
(
loc
&
LOCATION_ONFIELD
+
LOCATION_HAND
)
if
floc
~=
0
then
g1
=
g1
:
Filter
(
Card
.
IsLocation
,
nil
,
floc
)
else
...
...
@@ -2574,8 +2574,8 @@ function cm.DivideValueMax(f,...)
local
ext_params
=
{
...
}
return
function
(
c
)
local
v
=
f
(
c
,
table.unpack
(
ext_params
))
local
v1
=
bit
.
band
(
v
,
0xffff
)
local
v2
=
bit
.
rshift
(
v
,
16
)
local
v1
=
(
v
&
0xffff
)
local
v2
=
(
v
>>
16
)
return
math.max
(
v1
,
v2
)
end
end
...
...
@@ -2583,8 +2583,8 @@ function cm.DivideValueMin(f,...)
local
ext_params
=
{
...
}
return
function
(
c
)
local
v
=
f
(
c
,
table.unpack
(
ext_params
))
local
v1
=
bit
.
band
(
v
,
0xffff
)
local
v2
=
bit
.
rshift
(
v
,
16
)
local
v1
=
(
v
&
0xffff
)
local
v2
=
(
v
>>
16
)
if
v1
<=
0
then
return
v2
elseif
v2
<=
0
then
...
...
expansions/script/c37564777.lua
View file @
8a8a6708
...
...
@@ -136,23 +136,23 @@ return function(e,tp,eg,ep,ev,re,r,rp,chk)
e
:
SetLabelObject
(
tc
)
local
ctg
=
0
if
tc
:
IsSetCard
(
0x777
)
then
ctg
=
bit
.
bor
(
ctg
,
CATEGORY_REMOVE
+
CATEGORY_DRAW
)
ctg
=
(
ctg
|
CATEGORY_REMOVE
+
CATEGORY_DRAW
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_REMOVE
,
nil
,
1
,
tp
,
LOCATION_DECK
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DRAW
,
nil
,
0
,
tp
,
1
)
end
if
tc
:
IsAttribute
(
at
)
then
if
at
==
ATTRIBUTE_WIND
then
ctg
=
bit
.
bor
(
ctg
,
CATEGORY_TOHAND
+
CATEGORY_SEARCH
)
ctg
=
(
ctg
|
CATEGORY_TOHAND
+
CATEGORY_SEARCH
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_DECK
)
elseif
at
==
ATTRIBUTE_FIRE
then
local
g
=
Duel
.
GetMatchingGroup
(
aux
.
TRUE
,
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
,
nil
)
ctg
=
bit
.
bor
(
ctg
,
CATEGORY_DESTROY
)
ctg
=
(
ctg
|
CATEGORY_DESTROY
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DESTROY
,
g
,
1
,
0
,
0
)
elseif
at
==
ATTRIBUTE_EARTH
then
ctg
=
bit
.
bor
(
ctg
,
CATEGORY_SPECIAL_SUMMON
)
ctg
=
(
ctg
|
CATEGORY_SPECIAL_SUMMON
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_GRAVE
)
elseif
at
==
ATTRIBUTE_WATER
then
ctg
=
bit
.
bor
(
ctg
,
CATEGORY_TOGRAVE
+
CATEGORY_DECKDES
)
ctg
=
(
ctg
|
CATEGORY_TOGRAVE
+
CATEGORY_DECKDES
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOGRAVE
,
nil
,
1
,
tp
,
LOCATION_DECK
)
end
end
...
...
@@ -277,7 +277,7 @@ function prim.ses(c,at)
e2
:
SetOperation
(
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
l
=
e
:
GetLabel
()
local
b
=
false
if
bit
.
band
(
l
,
1
)
~=
0
and
Duel
.
GetMZoneCount
(
tp
)
>
0
then
if
(
l
&
1
)
~=
0
and
Duel
.
GetMZoneCount
(
tp
)
>
0
then
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
prim
.
sesspfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
,
e
,
tp
,
m
)
local
tc
=
g
:
GetFirst
()
...
...
@@ -292,7 +292,7 @@ function prim.ses(c,at)
tc
:
RegisterEffect
(
e1
,
true
)
end
end
if
bit
.
band
(
l
,
2
)
~=
0
and
Duel
.
IsPlayerCanDraw
(
tp
,
1
)
then
if
(
l
&
2
)
~=
0
and
Duel
.
IsPlayerCanDraw
(
tp
,
1
)
then
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_REMOVE
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
prim
.
sessrfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
,
at
)
local
tc
=
g
:
GetFirst
()
...
...
expansions/script/c37564808.lua
View file @
8a8a6708
...
...
@@ -54,8 +54,8 @@ function cm.initial_effect(c)
c
:
RegisterEffect
(
e3
)
end
function
cm
.
chkf
(
c
)
local
t
=
bit
.
bor
(
c
:
GetType
(),
c
:
GetOriginalType
())
return
bit
.
band
(
t
,
TYPE_FUSION
)
==
TYPE_FUSION
local
t
=
(
c
:
GetType
()
|
c
:
GetOriginalType
())
return
(
t
&
TYPE_FUSION
)
==
TYPE_FUSION
end
function
cm
.
dfilter
(
c
)
return
true
...
...
@@ -67,10 +67,10 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local
g
=
Duel
.
SelectTarget
(
tp
,
cm
.
dfilter
,
tp
,
0
,
LOCATION_ONFIELD
,
1
,
1
,
nil
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DESTROY
,
g
,
1
,
0
,
0
)
local
cat
=
e
:
GetCategory
()
if
bit
.
band
(
g
:
GetFirst
():
GetOriginalType
(),
TYPE_MONSTER
)
~=
0
then
e
:
SetCategory
(
bit
.
bor
(
cat
,
CATEGORY_SPECIAL_SUMMON
))
if
(
g
:
GetFirst
():
GetOriginalType
()
&
TYPE_MONSTER
)
~=
0
then
e
:
SetCategory
(
(
cat
|
CATEGORY_SPECIAL_SUMMON
))
else
e
:
SetCategory
(
bit
.
band
(
cat
,
bit
.
bnot
(
CATEGORY_SPECIAL_SUMMON
)))
e
:
SetCategory
(
(
cat
&
bit
.
bnot
(
CATEGORY_SPECIAL_SUMMON
)))
end
end
function
cm
.
activate
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
...
...
expansions/script/c37564818.lua
View file @
8a8a6708
...
...
@@ -33,7 +33,7 @@ function cm.effect_operation_3L(c)
ex2
:
SetTargetRange
(
0
,
LOCATION_DECK
+
LOCATION_EXTRA
)
ex2
:
SetTarget
(
function
(
e
,
c
)
return
c
:
GetOwner
()
~=
e
:
GetHandlerPlayer
()
and
(
c
:
IsLocation
(
LOCATION_DECK
)
or
(
c
:
IsLocation
(
LOCATION_EXTRA
)
and
bit
.
band
(
c
:
GetOriginalType
(),
TYPE_FUSION
+
TYPE_SYNCHRO
+
TYPE_XYZ
)
~=
0
))
or
(
c
:
IsLocation
(
LOCATION_EXTRA
)
and
(
c
:
GetOriginalType
()
&
TYPE_FUSION
+
TYPE_SYNCHRO
+
TYPE_XYZ
)
~=
0
))
end
)
ex2
:
SetReset
(
RESET_EVENT
+
0x1fe0000
)
c
:
RegisterEffect
(
ex2
,
true
)
...
...
expansions/script/c37564825.lua
View file @
8a8a6708
...
...
@@ -72,7 +72,7 @@ function cm.eqlimit(e,c)
return
e
:
GetOwner
()
==
c
end
function
cm
.
condition
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
not
e
:
GetHandler
():
IsStatus
(
STATUS_BATTLE_DESTROYED
)
and
re
:
IsHasType
(
EFFECT_TYPE_ACTIVATE
)
and
re
:
GetHandler
():
IsOnField
()
and
bit
.
band
(
re
:
GetHandler
():
GetOriginalType
(),
TYPE_PENDULUM
)
==
0
and
re
:
GetHandler
():
GetFlagEffect
(
m
)
==
0
return
not
e
:
GetHandler
():
IsStatus
(
STATUS_BATTLE_DESTROYED
)
and
re
:
IsHasType
(
EFFECT_TYPE_ACTIVATE
)
and
re
:
GetHandler
():
IsOnField
()
and
(
re
:
GetHandler
():
GetOriginalType
()
&
TYPE_PENDULUM
)
==
0
and
re
:
GetHandler
():
GetFlagEffect
(
m
)
==
0
end
function
cm
.
operation
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
rc
=
re
:
GetHandler
()
...
...
expansions/script/c37564829.lua
View file @
8a8a6708
...
...
@@ -25,7 +25,7 @@ function cm.initial_effect(c)
e0
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e0
:
SetCondition
(
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
return
bit
.
band
(
c
:
GetSummonType
(),
0x829
)
==
0x829
return
(
c
:
GetSummonType
()
&
0x829
)
==
0x829
end
)
e0
:
SetOperation
(
cm
.
skipop
)
c
:
RegisterEffect
(
e0
)
...
...
expansions/script/c37564834.lua
View file @
8a8a6708
...
...
@@ -35,7 +35,7 @@ function cm.chkfilter_mokou(c)
end
function
cm
.
NegateEffectWithoutChainingCondition
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
loc
,
np
=
Duel
.
GetChainInfo
(
ev
,
CHAININFO_TRIGGERING_LOCATION
,
CHAININFO_TRIGGERING_CONTROLER
)
return
e
:
GetHandler
():
GetFlagEffect
(
m
)
==
0
and
re
:
GetHandler
():
IsRelateToEffect
(
re
)
and
not
re
:
GetHandler
():
IsImmuneToEffect
(
e
)
and
bit
.
band
(
loc
,
0x0c
)
~=
0
and
np
~=
tp
and
re
:
GetHandler
():
IsAbleToGrave
()
return
e
:
GetHandler
():
GetFlagEffect
(
m
)
==
0
and
re
:
GetHandler
():
IsRelateToEffect
(
re
)
and
not
re
:
GetHandler
():
IsImmuneToEffect
(
e
)
and
(
loc
&
0x0c
)
~=
0
and
np
~=
tp
and
re
:
GetHandler
():
IsAbleToGrave
()
end
function
cm
.
NegateEffectWithoutChainingOperation
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
not
Duel
.
SelectYesNo
(
tp
,
m
*
16
+
2
)
then
return
end
...
...
expansions/script/c37564847.lua
View file @
8a8a6708
...
...
@@ -179,7 +179,7 @@ function cm.cop(te)
if
not
te
then
return
end
local
c
=
e
:
GetHandler
()
local
tg
=
te
:
GetTarget
()
if
bit
.
band
(
c
:
GetType
(),
TYPE_FIELD
+
TYPE_CONTINUOUS
+
TYPE_PENDULUM
)
==
0
then
if
(
c
:
GetType
()
&
TYPE_FIELD
+
TYPE_CONTINUOUS
+
TYPE_PENDULUM
)
==
0
then
c
:
CancelToGrave
(
false
)
end
local
code
=
te
:
GetCode
()
...
...
expansions/script/c37564848.lua
View file @
8a8a6708
...
...
@@ -138,7 +138,7 @@ end
function
cm
.
sfilter
(
c
,
tp
,
fc
,
e
)
if
not
fc
then
return
false
end
if
e
and
not
c
:
IsCanBeEffectTarget
(
e
)
then
return
false
end
return
c
:
IsControler
(
tp
)
and
c
:
IsLocation
(
LOCATION_REMOVED
)
and
c
:
IsAbleToDeck
()
and
c
:
IsType
(
TYPE_MONSTER
)
and
Senya
.
check_set_3L
(
c
)
and
Senya
.
EffectSourceFilter_3L
(
c
,
fc
)
and
bit
.
band
(
c
:
GetReason
(),
0x40008
)
==
0x40008
and
c
:
GetReasonCard
()
==
fc
return
c
:
IsControler
(
tp
)
and
c
:
IsLocation
(
LOCATION_REMOVED
)
and
c
:
IsAbleToDeck
()
and
c
:
IsType
(
TYPE_MONSTER
)
and
Senya
.
check_set_3L
(
c
)
and
Senya
.
EffectSourceFilter_3L
(
c
,
fc
)
and
(
c
:
GetReason
()
&
0x40008
)
==
0x40008
and
c
:
GetReasonCard
()
==
fc
end
function
cm
.
atktg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
local
fc
=
e
:
GetHandler
():
GetFirstCardTarget
()
...
...
expansions/script/c37564901.lua
View file @
8a8a6708
...
...
@@ -13,7 +13,7 @@ function cm.initial_effect(c)
Senya
.
sayuri_activate_effect
[
c
]
=
e1
end
function
cm
.
filter
(
c
,
e
,
tp
,
m1
,
m2
,
ft
)
if
not
Senya
.
check_set_sayuri
(
c
)
or
bit
.
band
(
c
:
GetType
(),
0x81
)
~=
0x81
if
not
Senya
.
check_set_sayuri
(
c
)
or
(
c
:
GetType
()
&
0x81
)
~=
0x81
or
not
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_RITUAL
,
tp
,
false
,
true
)
then
return
false
end
local
mg
=
m1
:
Filter
(
Card
.
IsCanBeRitualMaterial
,
c
,
c
)
mg
:
Merge
(
m2
)
...
...
expansions/script/c37564902.lua
View file @
8a8a6708
...
...
@@ -13,7 +13,7 @@ function cm.initial_effect(c)
Senya
.
sayuri_activate_effect
[
c
]
=
e1
end
function
cm
.
filter
(
c
,
e
,
tp
,
mg
,
ft
)
if
not
Senya
.
check_set_sayuri
(
c
)
or
bit
.
band
(
c
:
GetType
(),
0x81
)
~=
0x81
if
not
Senya
.
check_set_sayuri
(
c
)
or
(
c
:
GetType
()
&
0x81
)
~=
0x81
or
not
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_RITUAL
,
tp
,
false
,
true
)
then
return
false
end
local
mg
=
mg
:
Filter
(
Card
.
IsCanBeRitualMaterial
,
c
,
c
)
if
c
:
IsCode
(
21105106
)
then
return
c
:
ritual_custom_condition
(
mg
,
ft
)
end
...
...
expansions/script/c37564903.lua
View file @
8a8a6708
...
...
@@ -13,7 +13,7 @@ function cm.initial_effect(c)
Senya
.
sayuri_activate_effect
[
c
]
=
e1
end
function
cm
.
filter
(
c
,
e
,
tp
,
mg
,
ft
)
if
not
Senya
.
check_set_sayuri
(
c
)
or
bit
.
band
(
c
:
GetType
(),
0x81
)
~=
0x81
if
not
Senya
.
check_set_sayuri
(
c
)
or
(
c
:
GetType
()
&
0x81
)
~=
0x81
or
not
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_RITUAL
,
tp
,
false
,
true
)
then
return
false
end
local
mg
=
mg
:
Filter
(
Card
.
IsCanBeRitualMaterial
,
c
,
c
)
if
c
:
IsCode
(
21105106
)
then
return
c
:
ritual_custom_condition
(
mg
,
ft
)
end
...
...
expansions/script/c37564904.lua
View file @
8a8a6708
...
...
@@ -109,7 +109,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
e
:
SetCondition
(
cm
.
rcon
(
e
:
GetCondition
(),
tc
,
copyt
))
e
:
SetCost
(
cm
.
rcost
(
e
:
GetCost
()))
if
e
:
IsHasType
(
EFFECT_TYPE_IGNITION
)
then
e
:
SetType
(
bit
.
bor
(
e
:
GetType
()
-
EFFECT_TYPE_IGNITION
,
EFFECT_TYPE_QUICK_O
))
e
:
SetType
(
(
e
:
GetType
()
-
EFFECT_TYPE_IGNITION
|
EFFECT_TYPE_QUICK_O
))
e
:
SetCode
(
EVENT_FREE_CHAIN
)
e
:
SetHintTiming
(
0
,
0x1c0
)
end
...
...
expansions/script/c37564905.lua
View file @
8a8a6708
...
...
@@ -36,10 +36,10 @@ function cm.initial_effect(c)
if
re
:
GetHandler
():
IsDestructable
()
and
re
:
GetHandler
():
IsRelateToEffect
(
re
)
then
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DESTROY
,
eg
,
1
,
0
,
0
)
local
cat
=
e
:
GetCategory
()
if
bit
.
band
(
re
:
GetHandler
():
GetOriginalType
(),
TYPE_MONSTER
)
~=
0
then
e
:
SetCategory
(
bit
.
bor
(
cat
,
CATEGORY_SPECIAL_SUMMON
))
if
(
re
:
GetHandler
():
GetOriginalType
()
&
TYPE_MONSTER
)
~=
0
then
e
:
SetCategory
(
(
cat
|
CATEGORY_SPECIAL_SUMMON
))
else
e
:
SetCategory
(
bit
.
band
(
cat
,
bit
.
bnot
(
CATEGORY_SPECIAL_SUMMON
)))
e
:
SetCategory
(
(
cat
&
bit
.
bnot
(
CATEGORY_SPECIAL_SUMMON
)))
end
end
end
)
...
...
expansions/script/c37564909.lua
View file @
8a8a6708
...
...
@@ -71,7 +71,7 @@ function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
cm
.
thcfilter
,
tp
,
LOCATION_REMOVED
,
0
,
1
,
nil
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_TODECK
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
cm
.
thcfilter
,
tp
,
LOCATION_REMOVED
,
0
,
1
,
1
,
nil
)
local
s
=
bit
.
band
(
g
:
GetFirst
():
GetOriginalType
(),
TYPE_FUSION
+
TYPE_SYNCHRO
+
TYPE_XYZ
)
==
0
and
2
or
0
local
s
=
(
g
:
GetFirst
():
GetOriginalType
()
&
TYPE_FUSION
+
TYPE_SYNCHRO
+
TYPE_XYZ
)
==
0
and
2
or
0
Duel
.
SendtoDeck
(
g
,
nil
,
s
,
REASON_COST
)
end
function
cm
.
atkop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
...
...
expansions/script/c37564910.lua
View file @
8a8a6708
...
...
@@ -120,8 +120,8 @@ function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
local
f
=
Card
.
RegisterEffect
Card
.
RegisterEffect
=
function
(
tc
,
e
,
forced
)
local
t
=
e
:
GetType
()
if
bit
.
band
(
t
,
EFFECT_TYPE_IGNITION
)
~=
0
then
e
:
SetType
(
bit
.
bor
(
t
-
EFFECT_TYPE_IGNITION
,
EFFECT_TYPE_QUICK_O
))
if
(
t
&
EFFECT_TYPE_IGNITION
)
~=
0
then
e
:
SetType
(
(
t
-
EFFECT_TYPE_IGNITION
|
EFFECT_TYPE_QUICK_O
))
e
:
SetCode
(
EVENT_FREE_CHAIN
)
e
:
SetHintTiming
(
0
,
0x1e0
)
end
...
...
expansions/script/c37564912.lua
View file @
8a8a6708
...
...
@@ -50,7 +50,7 @@ function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
Duel
.
SendtoGrave
(
e
:
GetHandler
(),
REASON_COST
+
REASON_DISCARD
)
end
function
cm
.
thfilter
(
c
,
tc
)
return
Senya
.
check_set_sayuri
(
c
)
and
c
:
IsType
(
bit
.
band
(
tc
:
GetType
(),
0x7
))
and
c
:
IsAbleToHand
()
return
Senya
.
check_set_sayuri
(
c
)
and
c
:
IsType
(
(
tc
:
GetType
()
&
0x7
))
and
c
:
IsAbleToHand
()
end
function
cm
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
aux
.
TRUE
,
tp
,
0
,
LOCATION_HAND
,
1
,
nil
)
end
...
...
expansions/script/c37564915.lua
View file @
8a8a6708
...
...
@@ -112,7 +112,7 @@ function cm.eqop(e,tp,eg,ep,ev,re,r,rp)
end
end
function
cm
.
repval
(
e
,
re
,
r
,
rp
)
return
bit
.
band
(
r
,
REASON_BATTLE
+
REASON_EFFECT
)
~=
0
return
(
r
&
REASON_BATTLE
+
REASON_EFFECT
)
~=
0
end
function
cm
.
adcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
ec
=
e
:
GetLabelObject
():
GetLabelObject
()
...
...
@@ -121,7 +121,7 @@ end
function
cm
.
atkval
(
e
,
c
)
local
ec
=
e
:
GetLabelObject
():
GetLabelObject
()
local
atk
=
ec
:
GetTextAttack
()
if
ec
:
IsFacedown
()
or
bit
.
band
(
ec
:
GetOriginalType
(),
TYPE_MONSTER
)
==
0
or
atk
<
0
then
if
ec
:
IsFacedown
()
or
(
ec
:
GetOriginalType
()
&
TYPE_MONSTER
)
==
0
or
atk
<
0
then
return
0
else
return
atk
...
...
@@ -130,7 +130,7 @@ end
function
cm
.
defval
(
e
,
c
)
local
ec
=
e
:
GetLabelObject
():
GetLabelObject
()
local
def
=
ec
:
GetTextDefense
()
if
ec
:
IsFacedown
()
or
bit
.
band
(
ec
:
GetOriginalType
(),
TYPE_MONSTER
)
==
0
or
def
<
0
then
if
ec
:
IsFacedown
()
or
(
ec
:
GetOriginalType
()
&
TYPE_MONSTER
)
==
0
or
def
<
0
then
return
0
else
return
def
...
...
expansions/script/c37564916.lua
View file @
8a8a6708
...
...
@@ -70,7 +70,7 @@ function cm.sfilter(c,e,tp)
return
c
:
IsCode
(
m
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
true
,
true
)
and
c
:
IsType
(
TYPE_MONSTER
)
end
function
cm
.
sfilter1
(
c
,
e
,
tp
)
return
c
:
IsLevelBelow
(
8
)
and
Senya
.
check_set_sayuri
(
c
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
true
,
true
)
and
bit
.
band
(
c
:
GetType
(),
0x81
)
==
0x81
return
c
:
IsLevelBelow
(
8
)
and
Senya
.
check_set_sayuri
(
c
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
true
,
true
)
and
(
c
:
GetType
()
&
0x81
)
==
0x81
end
function
cm
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetMZoneCount
(
tp
)
>
0
...
...
expansions/script/c37564917.lua
View file @
8a8a6708
...
...
@@ -16,7 +16,7 @@ function cm.initial_effect(c)
c
:
RegisterEffect
(
e1
)
end
function
cm
.
cfilter
(
c
,
ori
)
return
Senya
.
check_set_sayuri
(
c
)
and
c
:
IsFaceup
()
and
bit
.
band
(
c
:
GetType
(),
0x81
)
==
0x81
return
Senya
.
check_set_sayuri
(
c
)
and
c
:
IsFaceup
()
and
(
c
:
GetType
()
&
0x81
)
==
0x81
end
function
cm
.
condition2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
Duel
.
IsExistingMatchingCard
(
cm
.
cfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
nil
)
...
...
expansions/script/c37564918.lua
View file @
8a8a6708
...
...
@@ -15,7 +15,7 @@ function cm.initial_effect(c)
Senya
.
sayuri_activate_effect
[
c
]
=
e1
end
function
cm
.
filter
(
c
,
e
,
tp
,
mg
)
if
not
Senya
.
check_set_sayuri
(
c
)
or
bit
.
band
(
c
:
GetType
(),
0x81
)
~=
0x81
or
not
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_RITUAL
,
tp
,
false
,
true
)
then
return
false
end
if
not
Senya
.
check_set_sayuri
(
c
)
or
(
c
:
GetType
()
&
0x81
)
~=
0x81
or
not
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_RITUAL
,
tp
,
false
,
true
)
then
return
false
end
if
c
.
mat_filter
then
mg
=
mg
:
Filter
(
c
.
mat_filter
,
nil
)
end
...
...
@@ -72,11 +72,11 @@ function cm.retfilter(c)
return
c
:
IsFaceup
()
and
c
:
IsAbleToDeckOrExtraAsCost
()
and
Senya
.
check_set_sayuri
(
c
)
and
c
:
IsType
(
TYPE_MONSTER
)
end
function
cm
.
rcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
ct
=
bit
.
band
(
ev
,
0xffff
)
return
bit
.
band
(
r
,
REASON_COST
)
~=
0
and
re
:
GetHandler
()
==
e
:
GetHandler
()
and
re
:
IsHasType
(
0x7e0
)
and
Duel
.
IsExistingMatchingCard
(
cm
.
retfilter
,
tp
,
LOCATION_REMOVED
,
0
,
ct
,
nil
)
local
ct
=
(
ev
&
0xffff
)
return
(
r
&
REASON_COST
)
~=
0
and
re
:
GetHandler
()
==
e
:
GetHandler
()
and
re
:
IsHasType
(
0x7e0
)
and
Duel
.
IsExistingMatchingCard
(
cm
.
retfilter
,
tp
,
LOCATION_REMOVED
,
0
,
ct
,
nil
)
end
function
cm
.
rop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
ct
=
bit
.
band
(
ev
,
0xffff
)
local
ct
=
(
ev
&
0xffff
)
Duel
.
Hint
(
HINT_CARD
,
0
,
e
:
GetOwner
():
GetOriginalCode
())
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_TODECK
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
cm
.
retfilter
,
tp
,
LOCATION_REMOVED
,
0
,
ct
,
ct
,
nil
)
...
...
expansions/script/c66677706.lua
View file @
8a8a6708
...
...
@@ -49,7 +49,7 @@ function c66677706.disop(e,tp,eg,ep,ev,re,r,rp)
end
function
c66677706
.
descon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
return
rp
~=
tp
and
c
:
GetPreviousControler
()
==
tp
and
bit
.
band
(
r
,
REASON_DESTROY
)
~=
0
return
rp
~=
tp
and
c
:
GetPreviousControler
()
==
tp
and
(
r
&
REASON_DESTROY
)
~=
0
end
function
c66677706
.
filter
(
c
)
return
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsAbleToHand
()
and
c
:
IsSetCard
(
0x777
)
and
c
:
IsFaceup
()
...
...
expansions/script/c66677710.lua
View file @
8a8a6708
...
...
@@ -48,7 +48,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
end
end
function
cm
.
rfilter
(
c
,
tc
)
return
c
:
IsAbleToRemove
()
and
bit
.
band
(
tc
:
GetAttribute
(),
c
:
GetAttribute
())
~=
0
and
c
:
IsType
(
TYPE_MONSTER
)
return
c
:
IsAbleToRemove
()
and
(
tc
:
GetAttribute
()
&
c
:
GetAttribute
())
~=
0
and
c
:
IsType
(
TYPE_MONSTER
)
end
function
cm
.
cfilter
(
c
,
tp
)
return
c
:
IsSetCard
(
0x777
)
and
c
:
IsControler
(
tp
)
and
c
:
IsFaceup
()
and
c
:
IsType
(
TYPE_MONSTER
)
...
...
expansions/script/c66677789.lua
View file @
8a8a6708
...
...
@@ -36,8 +36,8 @@ function cm.initial_effect(c)
e4
:
SetProperty
(
EFFECT_FLAG_DELAY
+
EFFECT_FLAG_DAMAGE_STEP
)
e4
:
SetCode
(
EVENT_TO_GRAVE
)
e4
:
SetCondition
(
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
bit
.
band
(
e
:
GetHandler
():
GetPreviousPosition
(),
POS_FACEUP
)
~=
0
and
bit
.
band
(
e
:
GetHandler
():
GetPreviousLocation
(),
LOCATION_ONFIELD
)
~=
0
return
(
e
:
GetHandler
():
GetPreviousPosition
()
&
POS_FACEUP
)
~=
0
and
(
e
:
GetHandler
():
GetPreviousLocation
()
&
LOCATION_ONFIELD
)
~=
0
end
)
e4
:
SetTarget
(
function
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
local
s0
=
Duel
.
IsExistingMatchingCard
(
cm
.
tfilter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
nil
,
0
)
...
...
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