Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
no81cards
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
Nemo Ma
no81cards
Commits
131a49ea
Commit
131a49ea
authored
Jul 11, 2021
by
Nemo Ma
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fix
parent
bb63cdf5
Changes
11
Hide whitespace changes
Inline
Side-by-side
Showing
11 changed files
with
124 additions
and
68 deletions
+124
-68
expansions/script/c14010076.lua
expansions/script/c14010076.lua
+6
-2
expansions/script/c31400022.lua
expansions/script/c31400022.lua
+15
-2
expansions/script/c33400519.lua
expansions/script/c33400519.lua
+17
-1
expansions/script/c33400909.lua
expansions/script/c33400909.lua
+7
-7
expansions/script/c33711501.lua
expansions/script/c33711501.lua
+15
-4
expansions/script/c64800042.lua
expansions/script/c64800042.lua
+22
-17
expansions/script/c64800068.lua
expansions/script/c64800068.lua
+0
-4
expansions/script/c79029530.lua
expansions/script/c79029530.lua
+0
-2
expansions/script/c79029549.lua
expansions/script/c79029549.lua
+22
-10
expansions/script/c79029803.lua
expansions/script/c79029803.lua
+15
-14
expansions/script/c9910220.lua
expansions/script/c9910220.lua
+5
-5
No files found.
expansions/script/c14010076.lua
View file @
131a49ea
...
...
@@ -3,7 +3,7 @@ local m=14010076
local
cm
=
_G
[
"c"
..
m
]
function
cm
.
initial_effect
(
c
)
--xyz summon
aux
.
AddXyzProcedure
(
c
,
nil
,
cm
.
xyzfilter
,
12
,
2
,
cm
.
ovfilter
,
aux
.
Stringid
(
m
,
0
),
99
,
cm
.
xyzop
)
aux
.
AddXyzProcedure
(
c
,
nil
,
12
,
2
,
cm
.
ovfilter
,
aux
.
Stringid
(
m
,
0
),
2
,
cm
.
xyzop
)
c
:
EnableReviveLimit
()
--destroy
local
e1
=
Effect
.
CreateEffect
(
c
)
...
...
@@ -25,7 +25,11 @@ function cm.initial_effect(c)
c
:
RegisterEffect
(
e2
)
end
function
cm
.
ovfilter
(
c
)
return
c
:
IsFaceup
()
and
c
:
IsRace
(
RACE_MACHINE
)
and
c
:
IsType
(
TYPE_XYZ
)
and
c
:
GetRank
()
==
10
return
c
:
IsFaceup
()
and
c
:
GetRank
()
==
10
and
c
:
IsRace
(
RACE_MACHINE
)
end
function
cm
.
xyzop
(
e
,
tp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetFlagEffect
(
tp
,
m
)
==
0
end
Duel
.
RegisterFlagEffect
(
tp
,
m
,
RESET_PHASE
+
PHASE_END
,
EFFECT_FLAG_OATH
,
1
)
end
function
cm
.
cost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
e
:
GetHandler
():
CheckRemoveOverlayCard
(
tp
,
1
,
REASON_COST
)
end
...
...
expansions/script/c31400022.lua
View file @
131a49ea
...
...
@@ -2,7 +2,16 @@ local m=31400022
local
cm
=
_G
[
"c"
..
m
]
cm
.
name
=
"娱乐伙伴 异色眼时空之灵摆魔术师"
function
cm
.
initial_effect
(
c
)
aux
.
EnablePendulumAttribute
(
c
)
--pendulum summon
aux
.
EnablePendulumAttribute
(
c
,
false
)
--Activate
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
1160
)
e1
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
e1
:
SetCode
(
EVENT_FREE_CHAIN
)
e1
:
SetRange
(
LOCATION_HAND
)
e1
:
SetCost
(
cm
.
reg
)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
)
e2
:
SetCode
(
EFFECT_CANNOT_BE_EFFECT_TARGET
)
...
...
@@ -26,6 +35,10 @@ function cm.initial_effect(c)
e3
:
SetOperation
(
cm
.
desop
)
c
:
RegisterEffect
(
e3
)
end
function
cm
.
reg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
true
end
e
:
GetHandler
():
RegisterFlagEffect
(
m
,
RESET_PHASE
+
PHASE_END
,
EFFECT_FLAG_OATH
,
1
)
end
function
cm
.
evalue
(
e
,
re
,
rp
)
return
re
:
IsActiveType
(
TYPE_TRAP
)
and
rp
==
1
-
e
:
GetHandlerPlayer
()
end
...
...
@@ -33,7 +46,7 @@ function cm.desfilter(c)
return
c
:
IsFaceup
()
and
c
:
IsSetCard
(
0x98
)
and
c
:
IsType
(
TYPE_PENDULUM
)
end
function
cm
.
descon
(
e
)
return
Duel
.
GetTurnCount
()
~=
e
:
GetHandler
():
GetTurnID
()
return
e
:
GetHandler
():
GetFlagEffect
(
m
)
==
0
end
function
cm
.
destg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
if
chkc
then
return
false
end
...
...
expansions/script/c33400519.lua
View file @
131a49ea
...
...
@@ -33,7 +33,7 @@ function cm.initial_effect(c)
e3
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e3
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e3
:
SetCode
(
EVENT_DESTROYED
)
e3
:
SetCost
(
cm
.
cost
)
e3
:
SetCost
(
cm
.
cost
2
)
e3
:
SetTarget
(
cm
.
target
)
e3
:
SetOperation
(
cm
.
operation
)
c
:
RegisterEffect
(
e3
)
...
...
@@ -65,6 +65,11 @@ function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if
chk
==
0
then
return
Duel
.
CheckLPCost
(
tp
,
1000
)
or
Duel
.
IsExistingMatchingCard
(
cm
.
ckfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
end
if
not
Duel
.
IsExistingMatchingCard
(
cm
.
ckfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
then
Duel
.
PayLPCost
(
tp
,
1000
)
end
if
Duel
.
IsCanRemoveCounter
(
tp
,
1
,
1
,
0x1015
,
3
,
REASON_COST
)
and
Duel
.
SelectYesNo
(
tp
,
aux
.
Stringid
(
m
,
3
))
then
Duel
.
Hint
(
HINT_OPSELECTED
,
1
-
tp
,
e
:
GetDescription
())
Duel
.
RemoveCounter
(
tp
,
1
,
1
,
0x1015
,
3
,
REASON_COST
)
e
:
SetLabel
(
1
)
end
end
function
cm
.
thcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
e
:
GetHandler
():
IsSummonType
(
SUMMON_TYPE_RITUAL
)
...
...
@@ -72,9 +77,15 @@ end
function
cm
.
thfilter2
(
c
,
e
,
tp
)
return
c
:
IsType
(
TYPE_SPELL
+
TYPE_TRAP
)
and
c
:
IsAbleToHand
()
end
function
cm
.
chlimit
(
e
,
ep
,
tp
)
return
tp
==
ep
end
function
cm
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
Card
.
IsAbleToHand
,
tp
,
0
,
LOCATION_ONFIELD
,
1
,
nil
)
and
Duel
.
IsExistingMatchingCard
(
cm
.
thfilter2
,
tp
,
LOCATION_SZONE
,
0
,
1
,
nil
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
0
,
0
)
if
e
:
GetLabel
()
~=
0
then
Duel
.
SetChainLimit
(
cm
.
chlimit
)
end
end
function
cm
.
thop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
g1
=
Duel
.
GetMatchingGroup
(
Card
.
IsAbleToHand
,
tp
,
0
,
LOCATION_ONFIELD
,
nil
)
...
...
@@ -87,6 +98,11 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
Duel
.
SendtoHand
(
sg2
,
nil
,
REASON_EFFECT
)
end
function
cm
.
cost2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
CheckLPCost
(
tp
,
1000
)
or
Duel
.
IsExistingMatchingCard
(
cm
.
ckfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
end
if
not
Duel
.
IsExistingMatchingCard
(
cm
.
ckfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
then
Duel
.
PayLPCost
(
tp
,
1000
)
end
end
function
cm
.
setfilter
(
c
)
return
c
:
IsSetCard
(
0x3344
)
and
c
:
IsType
(
TYPE_SPELL
)
and
(
c
:
IsType
(
TYPE_FIELD
)
or
Duel
.
GetLocationCount
(
tp
,
LOCATION_SZONE
)
>
0
)
and
not
c
:
IsForbidden
()
end
...
...
expansions/script/c33400909.lua
View file @
131a49ea
...
...
@@ -85,19 +85,19 @@ function cm.cfilter(c)
end
function
cm
.
con1
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
g
=
Duel
.
GetMatchingGroup
(
cm
.
cfilter
,
e
:
GetHandlerPlayer
(),
LOCATION_ONFIELD
+
LOCATION_GRAVE
,
0
,
nil
)
return
g
:
GetC
ount
(
)
>
0
return
g
:
GetC
lassCount
(
Card
.
GetCode
)
>
0
end
function
cm
.
atkfilter
(
c
)
return
(
c
:
IsFaceup
()
or
c
:
IsLocation
(
LOCATION_GRAVE
))
and
c
:
IsSetCard
(
0x341
,
0x340
)
and
(
c
:
IsType
(
TYPE_FIELD
)
or
c
:
IsType
(
TYPE_CONTINUOUS
))
end
function
cm
.
val
(
e
,
c
)
local
g
=
Duel
.
GetMatchingGroup
(
cm
.
atkfilter
,
e
:
GetHandlerPlayer
(),
LOCATION_ONFIELD
+
LOCATION_GRAVE
+
LOCATION_REMOVED
,
0
,
nil
)
return
g
:
GetC
ount
(
)
*
500
return
g
:
GetC
lassCount
(
Card
.
GetCode
)
*
500
end
function
cm
.
con2
(
e
)
local
g
=
Duel
.
GetMatchingGroup
(
cm
.
cfilter
,
e
:
GetHandlerPlayer
(),
LOCATION_ONFIELD
+
LOCATION_GRAVE
,
0
,
nil
)
return
g
:
GetC
ount
(
)
>
1
return
g
:
GetC
lassCount
(
Card
.
GetCode
)
>
1
end
function
cm
.
tglimit
(
e
,
c
)
return
c
:
IsSetCard
(
0x341
)
...
...
@@ -105,7 +105,7 @@ end
function
cm
.
con3
(
e
)
local
g
=
Duel
.
GetMatchingGroup
(
cm
.
cfilter
,
e
:
GetHandlerPlayer
(),
LOCATION_ONFIELD
+
LOCATION_GRAVE
,
0
,
nil
)
return
g
:
GetC
ount
(
)
>
2
return
g
:
GetC
lassCount
(
Card
.
GetCode
)
>
2
end
function
cm
.
thfilter
(
c
)
return
c
:
IsSetCard
(
0x341
)
and
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsAbleToHand
()
...
...
@@ -135,7 +135,7 @@ end
function
cm
.
con4
(
e
)
local
g
=
Duel
.
GetMatchingGroup
(
cm
.
cfilter
,
e
:
GetHandlerPlayer
(),
LOCATION_ONFIELD
+
LOCATION_GRAVE
,
0
,
nil
)
return
g
:
GetC
ount
(
)
>
3
return
g
:
GetC
lassCount
(
Card
.
GetCode
)
>
3
end
function
cm
.
thfilter2
(
c
)
return
c
:
IsSetCard
(
0x340
,
0x341
)
and
c
:
IsType
(
TYPE_CONTINUOUS
)
and
not
c
:
IsForbidden
()
...
...
@@ -164,7 +164,7 @@ end
function
cm
.
con5
(
e
)
local
g
=
Duel
.
GetMatchingGroup
(
cm
.
cfilter
,
e
:
GetHandlerPlayer
(),
LOCATION_ONFIELD
+
LOCATION_GRAVE
,
0
,
nil
)
return
g
:
GetC
ount
(
)
>
4
return
g
:
GetC
lassCount
(
Card
.
GetCode
)
>
4
end
function
cm
.
target
(
e
,
c
)
return
c
:
IsSetCard
(
0x341
,
0x340
)
...
...
@@ -177,7 +177,7 @@ end
function
cm
.
con6
(
e
)
local
g
=
Duel
.
GetMatchingGroup
(
cm
.
cfilter
,
e
:
GetHandlerPlayer
(),
LOCATION_ONFIELD
+
LOCATION_GRAVE
,
0
,
nil
)
return
g
:
GetC
ount
(
)
>
5
return
g
:
GetC
lassCount
(
Card
.
GetCode
)
>
5
end
function
cm
.
tdfilter
(
c
)
return
c
:
IsSetCard
(
0x340
,
0x341
)
and
c
:
IsType
(
TYPE_CONTINUOUS
+
TYPE_FIELD
)
and
c
:
IsAbleToRemove
()
...
...
expansions/script/c33711501.lua
View file @
131a49ea
...
...
@@ -8,6 +8,7 @@ function cm.initial_effect(c)
c
:
RegisterEffect
(
e1
)
--Remove
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetDescription
(
aux
.
Stringid
(
m
,
0
))
e2
:
SetCategory
(
CATEGORY_REMOVE
)
e2
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e2
:
SetCode
(
EVENT_FREE_CHAIN
)
...
...
@@ -23,13 +24,14 @@ function cm.initial_effect(c)
e3
:
SetCode
(
EVENT_PHASE
+
PHASE_END
)
e3
:
SetRange
(
LOCATION_SZONE
)
e3
:
SetCountLimit
(
1
)
--
e3:SetTarget(cm.condition)
e3
:
SetTarget
(
cm
.
condition
)
e3
:
SetOperation
(
cm
.
operation2
)
c
:
RegisterEffect
(
e3
)
--SpecialSummon
local
e4
=
Effect
.
CreateEffect
(
c
)
e4
:
SetType
(
EFFECT_TYPE_CONTINUOUS
+
EFFECT_TYPE_SINGLE
)
e4
:
SetCode
(
EVENT_LEAVE_FIELD
)
e4
:
SetTarget
(
cm
.
condition
)
e4
:
SetOperation
(
cm
.
spop
)
c
:
RegisterEffect
(
e4
)
end
...
...
@@ -58,9 +60,18 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
end
end
end
function
cm
.
get
(
c
)
return
c
:
GetFlagEffect
(
m
)
>
0
end
function
cm
.
condition
(
e
)
return
Duel
.
GetMatchingGroupCount
(
cm
.
get
,
e
:
GetHandlerPlayer
(),
LOCATION_REMOVED
,
LOCATION_REMOVED
,
nil
)
>
0
end
function
cm
.
get1
(
c
,
e
,
tp
)
return
c
:
GetFlagEffect
(
m
)
>
0
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
function
cm
.
operation2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
num
=
Duel
.
GetMatchingGroupCount
(
Card
.
IsHasEffect
,
tp
,
LOCATION_REMOVED
,
LOCATION_REMOVED
,
nil
,
m
)
local
num
=
Duel
.
GetMatchingGroupCount
(
cm
.
get
,
e
:
GetHandlerPlayer
(),
LOCATION_REMOVED
,
LOCATION_REMOVED
,
nil
)
if
num
>
0
and
Duel
.
SelectYesNo
(
e
:
GetHandlerPlayer
(),
aux
.
Stringid
(
m
,
1
))
then
Duel
.
Destroy
(
c
,
REASON_EFFECT
)
Duel
.
Recover
(
tp
,
num
*
1500
,
REASON_EFFECT
)
...
...
@@ -68,8 +79,8 @@ function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
end
function
cm
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
sg
=
Duel
.
GetMatchingGroup
(
Card
.
IsHasEffect
,
tp
,
LOCATION_REMOVED
,
LOCATION_REMOVED
,
nil
,
m
)
if
Duel
.
GetLocationCount
(
e
:
GetHandlerPlayer
(),
LOCATION_MZONE
)
>
0
and
Duel
.
SelectYesNo
(
e
:
GetHandlerPlayer
(),
aux
.
Stringid
(
m
,
2
))
then
local
sg
=
Duel
.
GetMatchingGroup
(
cm
.
get1
,
tp
,
LOCATION_REMOVED
,
LOCATION_REMOVED
,
nil
,
e
,
tp
)
if
Duel
.
GetLocationCount
(
e
:
GetHandlerPlayer
(),
LOCATION_MZONE
)
>
0
and
#
sg
>
0
and
Duel
.
SelectYesNo
(
e
:
GetHandlerPlayer
(),
aux
.
Stringid
(
m
,
2
))
then
for
tc
in
aux
.
Next
(
sg
)
do
if
Duel
.
GetLocationCount
(
e
:
GetHandlerPlayer
(),
LOCATION_MZONE
)
==
0
then
Duel
.
SendtoGrave
(
tc
,
REASON_RULE
)
elseif
tc
:
IsCanBeSpecialSummoned
(
e
,
0
,
e
:
GetHandler
(),
false
,
false
)
and
Duel
.
SpecialSummonStep
(
tc
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
then
...
...
expansions/script/c64800042.lua
View file @
131a49ea
...
...
@@ -12,43 +12,48 @@ function cm.initial_effect(c)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetCode
(
EVENT_
TO_GRAVE
)
e2
:
SetProperty
(
0x14000
+
EFFECT_FLAG_SET_AVAILABLE
)
e2
:
SetCode
(
EVENT_
CUSTOM
+
m
)
e2
:
SetProperty
(
EFFECT_FLAG_DELAY
+
EFFECT_FLAG_DAMAGE_STEP
)
e2
:
SetRange
(
LOCATION_HAND
)
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
+
CATEGORY_TODECK
)
e2
:
SetCondition
(
cm
.
thcon
)
e2
:
SetTarget
(
cm
.
sptg1
)
e2
:
SetOperation
(
cm
.
spop1
)
c
:
RegisterEffect
(
e2
)
local
e3
=
e2
:
Clone
()
e3
:
SetCode
(
EVENT_TO_DECK
)
c
:
RegisterEffect
(
e3
)
local
e4
=
e2
:
Clone
()
e4
:
SetCode
(
EVENT_REMOVE
)
c
:
RegisterEffect
(
e4
)
local
e5
=
e2
:
Clone
()
e5
:
SetCode
(
EVENT_TO_HAND
)
c
:
RegisterEffect
(
e5
)
if
not
cm
.
global_check
then
cm
.
global_check
=
true
local
ge1
=
Effect
.
CreateEffect
(
c
)
ge1
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
ge1
:
SetCode
(
EVENT_LEAVE_FIELD
)
ge1
:
SetOperation
(
cm
.
checkop
)
Duel
.
RegisterEffect
(
ge1
,
0
)
end
end
function
cm
.
checkop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
eg
:
FilterCount
(
cm
.
filter
,
nil
,
tp
,
rp
)
==
1
and
Duel
.
GetMatchingGroupCount
(
nil
,
tp
,
LOCATION_SZONE
,
0
,
nil
)
==
0
then
Duel
.
RaiseEvent
(
eg
,
EVENT_CUSTOM
+
m
,
re
,
r
,
rp
,
tp
,
ev
)
end
if
eg
:
FilterCount
(
cm
.
filter
,
nil
,
1
-
tp
,
rp
)
==
1
and
Duel
.
GetMatchingGroupCount
(
nil
,
1
-
tp
,
LOCATION_SZONE
,
0
,
nil
)
==
0
then
Duel
.
RaiseEvent
(
eg
,
EVENT_CUSTOM
+
m
,
re
,
r
,
rp
,
1
-
tp
,
ev
)
end
end
function
cm
.
splimit
(
e
,
se
,
sp
,
st
)
return
se
:
IsHasType
(
EFFECT_TYPE_ACTIONS
)
end
function
cm
.
thcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
g
=
Duel
.
GetFieldGroup
(
tp
,
LOCATION_ONFIELD
,
0
)
Debug
.
Message
(
#
g
)
Debug
.
Message
(
eg
:
IsExists
(
cm
.
filter
,
1
,
nil
,
tp
,
rp
))
return
#
g
==
0
and
eg
:
IsExists
(
cm
.
filter
,
1
,
nil
,
tp
,
rp
)
and
Duel
.
GetFieldGroupCount
(
tp
,
LOCATION_SZONE
,
0
)
==
0
return
ep
==
tp
and
Duel
.
GetFieldGroupCount
(
tp
,
LOCATION_SZONE
,
0
)
==
0
and
Duel
.
GetMatchingGroupCount
(
nil
,
tp
,
LOCATION_MZONE
,
0
,
nil
)
==
0
end
function
cm
.
filter
(
c
,
tp
,
rp
)
return
c
:
IsPreviousLocation
(
LOCATION_MZONE
)
and
c
:
GetPreviousControler
()
==
tp
and
(
c
:
IsReason
(
REASON_BATTLE
)
or
(
rp
==
1
-
tp
and
c
:
IsReason
(
REASON_EFFECT
)))
end
function
cm
.
sptg1
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
true
end
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
end
if
Duel
.
GetFieldGroupCount
(
tp
,
0
,
LOCATION_ONFIELD
)
>
Duel
.
GetFieldGroupCount
(
tp
,
LOCATION_HAND
,
0
)
then
Duel
.
SetChainLimit
(
function
(
e
,
ep
,
tp
)
return
tp
==
ep
end
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
e
:
GetHandler
(),
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TODECK
,
nil
,
0
,
0
,
LOCATION_ONFIELD
+
LOCATION_GRAVE
)
end
function
cm
.
spop1
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
...
...
expansions/script/c64800068.lua
View file @
131a49ea
...
...
@@ -21,7 +21,6 @@ function cm.initial_effect(c)
e5
:
SetCode
(
EVENT_TO_GRAVE
)
e5
:
SetProperty
(
EFFECT_FLAG_CARD_TARGET
+
EFFECT_FLAG_DAMAGE_STEP
+
EFFECT_FLAG_DELAY
)
e5
:
SetCountLimit
(
1
,
m
)
e5
:
SetCondition
(
cm
.
spcon1
)
e5
:
SetTarget
(
cm
.
sptg1
)
e5
:
SetOperation
(
cm
.
spop1
)
c
:
RegisterEffect
(
e5
)
...
...
@@ -51,9 +50,6 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
end
end
----------
function
cm
.
spcon1
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
e
:
GetHandler
():
GetPreviousLocation
()
==
LOCATION_MZONE
end
function
cm
.
spfilter1
(
c
,
e
,
tp
)
return
c
:
IsLevel
(
7
,
8
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
and
c
:
IsRace
(
RACE_DRAGON
)
and
not
c
:
IsCode
(
m
)
end
...
...
expansions/script/c79029530.lua
View file @
131a49ea
--SNo.39 希望皇 霍普·桃源
function
c79029530
.
initial_effect
(
c
)
--SNo.39 希望皇 霍普·桃源
function
c79029530
.
initial_effect
(
c
)
aux
.
AddXyzProcedure
(
c
,
nil
,
7
,
4
,
nil
,
nil
,
99
)
c
:
EnableReviveLimit
()
...
...
expansions/script/c79029549.lua
View file @
131a49ea
...
...
@@ -58,20 +58,32 @@ function c79029549.decon(e,tp,eg,ep,ev,re,r,rp)
end
function
c79029549
.
detg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
if
chk
==
0
then
return
true
end
local
g
=
Duel
.
GetMatchingGroup
(
aux
.
T
URE
,
tp
,
LOCATION_MZONE
,
LOCATION_MZONE
,
c
)
local
g
=
Duel
.
GetMatchingGroup
(
aux
.
T
RUE
,
tp
,
LOCATION_MZONE
,
LOCATION_MZONE
,
e
:
GetHandler
()
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DESTROY
,
g
,
g
:
GetCount
(),
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DAMAGE
,
g
,
0
,
1
-
tp
,
g
:
GetSum
(
Card
.
GetAttack
))
Duel
.
SetOperationInfo
(
0
,
CATEGORY_RECOVER
,
g
,
0
,
tp
,
g
:
GetSum
(
Card
.
GetDefense
))
Duel
.
SetOperationInfo
(
0
,
CATEGORY_RECOVER
,
g
,
0
,
tp
,
g
:
GetSum
(
Card
.
GetDefense
))
end
function
c79029549
.
deop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
Duel
.
NegateActivation
(
ev
)
Duel
.
Destroy
(
eg
,
REASON_EFFECT
)
local
g
=
Duel
.
GetMatchingGroup
(
aux
.
TURE
,
tp
,
LOCATION_MZONE
,
LOCATION_MZONE
,
c
)
if
Duel
.
Destroy
(
g
,
REASON_EFFECT
)
~=
0
then
Duel
.
Damage
(
1
-
tp
,
g
:
GetSum
(
Card
.
GetAttack
),
REASON_EFFECT
)
Duel
.
Recover
(
tp
,
g
:
GetSum
(
Card
.
GetDefense
),
REASON_EFFECT
)
function
c79029549
.
filter1
(
c
)
if
c
:
IsPreviousPosition
(
POS_FACEUP
)
then
return
c
:
GetPreviousAttackOnField
()
else
return
0
end
end
function
c79029549
.
filter2
(
c
)
if
c
:
IsPreviousPosition
(
POS_FACEUP
)
then
return
c
:
GetPreviousDefenseOnField
()
else
return
0
end
end
function
c79029549
.
deop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
Duel
.
NegateActivation
(
ev
)
and
re
:
GetHandler
():
IsRelateToEffect
(
re
)
and
Duel
.
Destroy
(
eg
,
REASON_EFFECT
)
>
0
then
local
g
=
Duel
.
GetMatchingGroup
(
aux
.
TRUE
,
tp
,
LOCATION_MZONE
,
LOCATION_MZONE
,
aux
.
ExceptThisCard
(
e
))
if
Duel
.
Destroy
(
g
,
REASON_EFFECT
)
~=
0
then
local
og
=
Duel
.
GetOperatedGroup
()
local
atk
=
og
:
GetSum
(
c79029549
.
filter1
)
local
def
=
og
:
GetSum
(
c79029549
.
filter2
)
Duel
.
Damage
(
1
-
tp
,
atk
,
REASON_EFFECT
)
Duel
.
Recover
(
tp
,
def
,
REASON_EFFECT
)
end
end
end
function
c79029549
.
sgtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
if
chk
==
0
then
return
e
:
GetHandler
():
GetBattleTarget
()
~=
nil
end
...
...
expansions/script/c79029803.lua
View file @
131a49ea
...
...
@@ -8,11 +8,12 @@ function c79029803.initial_effect(c)
e1
:
SetRange
(
LOCATION_HAND
)
e1
:
SetCondition
(
c79029803
.
spcon
)
c
:
RegisterEffect
(
e1
)
--
t g
--
destroy
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetCategory
(
CATEGORY_DESTROY
)
e2
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetCode
(
EVENT_TO_GRAVE
)
e2
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e2
:
SetProperty
(
EFFECT_FLAG_DELAY
+
EFFECT_FLAG_CARD_TARGET
)
e2
:
SetCountLimit
(
1
,
79029803
)
e2
:
SetCondition
(
c79029803
.
tgcon
)
e2
:
SetTarget
(
c79029803
.
detg
)
...
...
@@ -39,23 +40,23 @@ function c79029803.spcon(e,c)
return
Duel
.
GetLocationCount
(
c
:
GetControler
(),
LOCATION_MZONE
)
>
0
and
not
Duel
.
IsExistingMatchingCard
(
c79029803
.
xxfilter
,
c
:
GetControler
(),
LOCATION_MZONE
,
0
,
1
,
nil
)
and
not
Duel
.
IsExistingMatchingCard
(
Card
.
IsFacedown
,
c
:
GetControler
(),
LOCATION_MZONE
,
0
,
1
,
nil
)
and
Duel
.
GetFieldGroupCount
(
c
:
GetControler
(),
LOCATION_MZONE
,
0
)
>
0
end
function
c79029803
.
defilter
(
c
)
return
c
:
IsLocation
(
LOCATION_SZONE
)
or
(
c
:
IsType
(
TYPE_TRAP
+
TYPE_SPELL
)
and
c
:
IsFaceup
())
end
function
c79029803
.
tgcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
e
:
GetHandler
():
IsPreviousLocation
(
LOCATION_ONFIELD
)
end
function
c79029803
.
detg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c79029803
.
defilter
,
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
,
1
,
nil
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DESTROY
,
nil
,
1
,
tp
,
0
,
0
)
function
c79029803
.
desfilter
(
c
)
return
c
:
IsType
(
TYPE_SPELL
+
TYPE_TRAP
)
end
function
c79029803
.
deop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c79029803
.
detg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
if
chkc
then
return
chkc
:
IsOnField
()
and
c79029803
.
desfilter
(
chkc
)
end
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
c79029803
.
desfilter
,
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
,
1
,
nil
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_DESTROY
)
local
sg
=
Duel
.
SelectMatchingCard
(
tp
,
c79029803
.
defilter
,
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
,
1
,
2
,
nil
)
if
sg
:
GetCount
()
>
0
then
Duel
.
HintSelection
(
sg
)
Duel
.
Destroy
(
sg
,
REASON_EFFECT
)
end
local
g
=
Duel
.
SelectTarget
(
tp
,
c79029803
.
desfilter
,
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
,
1
,
2
,
nil
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DESTROY
,
g
,
g
:
GetCount
(),
0
,
0
)
end
function
c79029803
.
deop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
tg
=
Duel
.
GetChainInfo
(
0
,
CHAININFO_TARGET_CARDS
)
local
sg
=
tg
:
Filter
(
Card
.
IsRelateToEffect
,
nil
,
e
)
Duel
.
Destroy
(
sg
,
REASON_EFFECT
)
end
function
c79029803
.
tdtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
Card
.
IsAbleToDeck
,
tp
,
LOCATION_REMOVED
+
LOCATION_GRAVE
,
LOCATION_REMOVED
+
LOCATION_GRAVE
,
1
,
nil
)
end
...
...
expansions/script/c9910220.lua
View file @
131a49ea
...
...
@@ -34,16 +34,16 @@ function c9910220.lkcon(e,tp,eg,ep,ev,re,r,rp)
return
Duel
.
GetTurnPlayer
()
~=
tp
and
(
Duel
.
GetCurrentPhase
()
==
PHASE_MAIN1
or
Duel
.
GetCurrentPhase
()
==
PHASE_MAIN2
)
end
function
c9910220
.
lkfilter
(
c
)
function
c9910220
.
lkfilter
(
c
,
tp
)
return
c
:
IsFaceup
()
and
c
:
IsSetCard
(
0x955
)
and
Duel
.
IsExistingMatchingCard
(
Card
.
IsLinkSummonable
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
nil
,
c
)
end
function
c9910220
.
lktg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c9910220
.
lktg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
local
c
=
e
:
GetHandler
()
if
chkc
then
return
chkc
:
IsLocation
(
LOCATION_MZONE
)
and
chkc
:
IsControler
(
tp
)
and
c9910220
.
lkfilter
(
chkc
)
and
chkc
~=
c
end
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
c9910220
.
lkfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
c
)
end
if
chkc
then
return
chkc
:
IsLocation
(
LOCATION_MZONE
)
and
chkc
:
IsControler
(
tp
)
and
c9910220
.
lkfilter
(
chkc
,
tp
)
and
chkc
~=
c
end
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
c9910220
.
lkfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
c
,
tp
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_FACEUP
)
Duel
.
SelectTarget
(
tp
,
c9910220
.
lkfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
1
,
c
)
Duel
.
SelectTarget
(
tp
,
c9910220
.
lkfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
1
,
c
,
tp
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_EXTRA
)
end
function
c9910220
.
lkop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
...
...
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