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
5c511c44
Commit
5c511c44
authored
Feb 06, 2024
by
wind2009
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix code
parent
b63c8694
Changes
28
Hide whitespace changes
Inline
Side-by-side
Showing
28 changed files
with
460 additions
and
460 deletions
+460
-460
c10804018.lua
c10804018.lua
+32
-32
c18969888.lua
c18969888.lua
+29
-29
c2333466.lua
c2333466.lua
+3
-3
c27157727.lua
c27157727.lua
+3
-3
c27483935.lua
c27483935.lua
+38
-38
c31458630.lua
c31458630.lua
+26
-26
c32270212.lua
c32270212.lua
+4
-4
c37531679.lua
c37531679.lua
+1
-1
c38505587.lua
c38505587.lua
+2
-2
c39114494.lua
c39114494.lua
+26
-26
c39321065.lua
c39321065.lua
+2
-2
c39931513.lua
c39931513.lua
+1
-1
c4064925.lua
c4064925.lua
+39
-39
c45464587.lua
c45464587.lua
+2
-2
c53541822.lua
c53541822.lua
+30
-30
c5786513.lua
c5786513.lua
+4
-4
c64603182.lua
c64603182.lua
+17
-17
c64881644.lua
c64881644.lua
+33
-33
c65326118.lua
c65326118.lua
+23
-23
c65726770.lua
c65726770.lua
+2
-2
c66730191.lua
c66730191.lua
+14
-14
c78679226.lua
c78679226.lua
+4
-4
c79791878.lua
c79791878.lua
+1
-1
c82570174.lua
c82570174.lua
+32
-32
c90276649.lua
c90276649.lua
+39
-39
c91098230.lua
c91098230.lua
+19
-19
c91810826.lua
c91810826.lua
+31
-31
c92110878.lua
c92110878.lua
+3
-3
No files found.
c10804018.lua
View file @
5c511c44
--粛声なる竜神サフィラ
--粛声なる竜神サフィラ
function
c10
1204034
.
initial_effect
(
c
)
function
c10
804018
.
initial_effect
(
c
)
c
:
EnableReviveLimit
()
c
:
EnableReviveLimit
()
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
10
1204034
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
10
804018
,
0
))
e1
:
SetCategory
(
CATEGORY_DRAW
)
e1
:
SetCategory
(
CATEGORY_DRAW
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e1
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e1
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e1
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e1
:
SetCountLimit
(
1
,
10
1204034
)
e1
:
SetCountLimit
(
1
,
10
804018
)
e1
:
SetCondition
(
c10
1204034
.
drcon
)
e1
:
SetCondition
(
c10
804018
.
drcon
)
e1
:
SetTarget
(
c10
1204034
.
drtg
)
e1
:
SetTarget
(
c10
804018
.
drtg
)
e1
:
SetOperation
(
c10
1204034
.
drop
)
e1
:
SetOperation
(
c10
804018
.
drop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetDescription
(
aux
.
Stringid
(
10
1204034
,
1
))
e2
:
SetDescription
(
aux
.
Stringid
(
10
804018
,
1
))
e2
:
SetCategory
(
CATEGORY_HANDES
)
e2
:
SetCategory
(
CATEGORY_HANDES
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetCode
(
EVENT_ATTACK_ANNOUNCE
)
e2
:
SetCode
(
EVENT_ATTACK_ANNOUNCE
)
e2
:
SetRange
(
LOCATION_MZONE
)
e2
:
SetRange
(
LOCATION_MZONE
)
e2
:
SetCountLimit
(
1
,
10
1204134
)
e2
:
SetCountLimit
(
1
,
10
804019
)
e2
:
SetCondition
(
c10
1204034
.
hscon
)
e2
:
SetCondition
(
c10
804018
.
hscon
)
e2
:
SetTarget
(
c10
1204034
.
hstg
)
e2
:
SetTarget
(
c10
804018
.
hstg
)
e2
:
SetOperation
(
c10
1204034
.
hsop
)
e2
:
SetOperation
(
c10
804018
.
hsop
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
local
e3
=
Effect
.
CreateEffect
(
c
)
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetDescription
(
aux
.
Stringid
(
10
1204034
,
2
))
e3
:
SetDescription
(
aux
.
Stringid
(
10
804018
,
2
))
e3
:
SetCategory
(
CATEGORY_TOHAND
)
e3
:
SetCategory
(
CATEGORY_TOHAND
)
e3
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e3
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e3
:
SetRange
(
LOCATION_MZONE
)
e3
:
SetRange
(
LOCATION_MZONE
)
e3
:
SetCode
(
EVENT_PHASE
+
PHASE_END
)
e3
:
SetCode
(
EVENT_PHASE
+
PHASE_END
)
e3
:
SetCountLimit
(
1
,
10
1204234
)
e3
:
SetCountLimit
(
1
,
10
804020
)
e3
:
SetCondition
(
c10
1204034
.
thcon
)
e3
:
SetCondition
(
c10
804018
.
thcon
)
e3
:
SetTarget
(
c10
1204034
.
thtg
)
e3
:
SetTarget
(
c10
804018
.
thtg
)
e3
:
SetOperation
(
c10
1204034
.
thop
)
e3
:
SetOperation
(
c10
804018
.
thop
)
c
:
RegisterEffect
(
e3
)
c
:
RegisterEffect
(
e3
)
end
end
function
c10
1204034
.
cfilter
(
c
)
function
c10
804018
.
cfilter
(
c
)
return
c
:
IsFaceupEx
()
and
c
:
IsCode
(
25801745
)
return
c
:
IsFaceupEx
()
and
c
:
IsCode
(
25801745
)
end
end
function
c10
1204034
.
drcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c10
804018
.
drcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
e
:
GetHandler
():
IsSummonType
(
SUMMON_TYPE_RITUAL
)
return
e
:
GetHandler
():
IsSummonType
(
SUMMON_TYPE_RITUAL
)
end
end
function
c10
1204034
.
drtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c10
804018
.
drtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c10
1204034
.
cfilter
,
tp
,
LOCATION_ONFIELD
+
LOCATION_GRAVE
,
0
,
1
,
nil
)
and
Duel
.
IsPlayerCanDraw
(
tp
,
2
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c10
804018
.
cfilter
,
tp
,
LOCATION_ONFIELD
+
LOCATION_GRAVE
,
0
,
1
,
nil
)
and
Duel
.
IsPlayerCanDraw
(
tp
,
2
)
end
Duel
.
SetTargetPlayer
(
tp
)
Duel
.
SetTargetPlayer
(
tp
)
Duel
.
SetTargetParam
(
2
)
Duel
.
SetTargetParam
(
2
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DRAW
,
nil
,
0
,
tp
,
2
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DRAW
,
nil
,
0
,
tp
,
2
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_HANDES
,
nil
,
0
,
tp
,
1
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_HANDES
,
nil
,
0
,
tp
,
1
)
end
end
function
c10
1204034
.
drop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c10
804018
.
drop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
p
=
Duel
.
GetChainInfo
(
0
,
CHAININFO_TARGET_PLAYER
)
local
p
=
Duel
.
GetChainInfo
(
0
,
CHAININFO_TARGET_PLAYER
)
if
Duel
.
Draw
(
p
,
2
,
REASON_EFFECT
)
==
2
then
if
Duel
.
Draw
(
p
,
2
,
REASON_EFFECT
)
==
2
then
Duel
.
ShuffleHand
(
p
)
Duel
.
ShuffleHand
(
p
)
...
@@ -56,37 +56,37 @@ function c101204034.drop(e,tp,eg,ep,ev,re,r,rp)
...
@@ -56,37 +56,37 @@ function c101204034.drop(e,tp,eg,ep,ev,re,r,rp)
Duel
.
DiscardHand
(
p
,
nil
,
1
,
1
,
REASON_EFFECT
+
REASON_DISCARD
)
Duel
.
DiscardHand
(
p
,
nil
,
1
,
1
,
REASON_EFFECT
+
REASON_DISCARD
)
end
end
end
end
function
c10
1204034
.
filter
(
c
)
function
c10
804018
.
filter
(
c
)
return
c
:
IsFaceup
()
and
c
:
IsType
(
TYPE_RITUAL
)
and
(
c
:
IsRace
(
RACE_DRAGON
)
or
c
:
IsRace
(
RACE_WARRIOR
))
and
c
:
IsAttribute
(
ATTRIBUTE_LIGHT
)
return
c
:
IsFaceup
()
and
c
:
IsType
(
TYPE_RITUAL
)
and
(
c
:
IsRace
(
RACE_DRAGON
)
or
c
:
IsRace
(
RACE_WARRIOR
))
and
c
:
IsAttribute
(
ATTRIBUTE_LIGHT
)
end
end
function
c10
1204034
.
hscon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c10
804018
.
hscon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
a
=
Duel
.
GetAttacker
()
local
a
=
Duel
.
GetAttacker
()
local
d
=
Duel
.
GetAttackTarget
()
local
d
=
Duel
.
GetAttackTarget
()
return
c10
1204034
.
filter
(
a
)
or
(
d
and
c101204034
.
filter
(
d
))
return
c10
804018
.
filter
(
a
)
or
(
d
and
c10804018
.
filter
(
d
))
end
end
function
c10
1204034
.
hstg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c10
804018
.
hstg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetFieldGroupCount
(
tp
,
0
,
LOCATION_HAND
)
>
0
end
if
chk
==
0
then
return
Duel
.
GetFieldGroupCount
(
tp
,
0
,
LOCATION_HAND
)
>
0
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_HANDES
,
nil
,
0
,
1
-
tp
,
1
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_HANDES
,
nil
,
0
,
1
-
tp
,
1
)
end
end
function
c10
1204034
.
hsop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c10
804018
.
hsop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
g
=
Duel
.
GetFieldGroup
(
tp
,
0
,
LOCATION_HAND
)
local
g
=
Duel
.
GetFieldGroup
(
tp
,
0
,
LOCATION_HAND
)
if
g
:
GetCount
()
==
0
then
return
end
if
g
:
GetCount
()
==
0
then
return
end
local
sg
=
g
:
RandomSelect
(
tp
,
1
)
local
sg
=
g
:
RandomSelect
(
tp
,
1
)
Duel
.
SendtoGrave
(
sg
,
REASON_DISCARD
+
REASON_EFFECT
)
Duel
.
SendtoGrave
(
sg
,
REASON_DISCARD
+
REASON_EFFECT
)
end
end
function
c10
1204034
.
thcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c10
804018
.
thcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
Duel
.
GetTurnPlayer
()
~=
tp
return
Duel
.
GetTurnPlayer
()
~=
tp
end
end
function
c10
1204034
.
thfilter
(
c
)
function
c10
804018
.
thfilter
(
c
)
return
c
:
IsAttribute
(
ATTRIBUTE_LIGHT
)
and
c
:
IsAbleToHand
()
return
c
:
IsAttribute
(
ATTRIBUTE_LIGHT
)
and
c
:
IsAbleToHand
()
end
end
function
c10
1204034
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c10
804018
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c10
1204034
.
thfilter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c10
804018
.
thfilter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
nil
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_GRAVE
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_GRAVE
)
end
end
function
c10
1204034
.
thop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c10
804018
.
thop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c10
1204034
.
thfilter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
1
,
nil
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c10
804018
.
thfilter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
1
,
nil
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
...
...
c18969888.lua
View file @
5c511c44
--燦幻超龍ドランセンド·ドラギオン
--燦幻超龍ドランセンド·ドラギオン
function
c1
01204040
.
initial_effect
(
c
)
function
c1
8969888
.
initial_effect
(
c
)
aux
.
AddSynchroProcedure
(
c
,
aux
.
FilterBoolFunction
(
Card
.
IsRace
,
RACE_DRAGON
),
aux
.
NonTuner
(
Card
.
IsRace
,
RACE_DRAGON
),
1
)
aux
.
AddSynchroProcedure
(
c
,
aux
.
FilterBoolFunction
(
Card
.
IsRace
,
RACE_DRAGON
),
aux
.
NonTuner
(
Card
.
IsRace
,
RACE_DRAGON
),
1
)
c
:
EnableReviveLimit
()
c
:
EnableReviveLimit
()
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
1
01204040
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
1
8969888
,
0
))
e1
:
SetCategory
(
CATEGORY_POSITION
)
e1
:
SetCategory
(
CATEGORY_POSITION
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e1
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e1
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e1
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e1
:
SetCondition
(
c1
01204040
.
poscon
)
e1
:
SetCondition
(
c1
8969888
.
poscon
)
e1
:
SetTarget
(
c1
01204040
.
postg
)
e1
:
SetTarget
(
c1
8969888
.
postg
)
e1
:
SetOperation
(
c1
01204040
.
posop
)
e1
:
SetOperation
(
c1
8969888
.
posop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
)
...
@@ -25,43 +25,43 @@ function c101204040.initial_effect(c)
...
@@ -25,43 +25,43 @@ function c101204040.initial_effect(c)
e3
:
SetTargetRange
(
0
,
1
)
e3
:
SetTargetRange
(
0
,
1
)
e3
:
SetRange
(
LOCATION_MZONE
)
e3
:
SetRange
(
LOCATION_MZONE
)
e3
:
SetValue
(
1
)
e3
:
SetValue
(
1
)
e3
:
SetCondition
(
c1
01204040
.
actcon
)
e3
:
SetCondition
(
c1
8969888
.
actcon
)
c
:
RegisterEffect
(
e3
)
c
:
RegisterEffect
(
e3
)
local
e4
=
Effect
.
CreateEffect
(
c
)
local
e4
=
Effect
.
CreateEffect
(
c
)
e4
:
SetDescription
(
aux
.
Stringid
(
1
01204040
,
2
))
e4
:
SetDescription
(
aux
.
Stringid
(
1
8969888
,
2
))
e4
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
+
CATEGORY_DESTROY
)
e4
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
+
CATEGORY_DESTROY
)
e4
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e4
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e4
:
SetCode
(
EVENT_FREE_CHAIN
)
e4
:
SetCode
(
EVENT_FREE_CHAIN
)
e4
:
SetHintTiming
(
0
,
TIMING_BATTLE_START
+
TIMING_ATTACK
+
TIMINGS_CHECK_MONSTER
+
TIMING_MAIN_END
)
e4
:
SetHintTiming
(
0
,
TIMING_BATTLE_START
+
TIMING_ATTACK
+
TIMINGS_CHECK_MONSTER
+
TIMING_MAIN_END
)
e4
:
SetRange
(
LOCATION_GRAVE
)
e4
:
SetRange
(
LOCATION_GRAVE
)
e4
:
SetCountLimit
(
1
,
1
01204040
+
EFFECT_COUNT_CODE_DUEL
)
e4
:
SetCountLimit
(
1
,
1
8969888
+
EFFECT_COUNT_CODE_DUEL
)
e4
:
SetCondition
(
c1
01204040
.
spcon
)
e4
:
SetCondition
(
c1
8969888
.
spcon
)
e4
:
SetCost
(
c1
01204040
.
spcost
)
e4
:
SetCost
(
c1
8969888
.
spcost
)
e4
:
SetTarget
(
c1
01204040
.
sptg
)
e4
:
SetTarget
(
c1
8969888
.
sptg
)
e4
:
SetOperation
(
c1
01204040
.
spop
)
e4
:
SetOperation
(
c1
8969888
.
spop
)
c
:
RegisterEffect
(
e4
)
c
:
RegisterEffect
(
e4
)
if
not
c1
01204040
.
global_check
then
if
not
c1
8969888
.
global_check
then
c1
01204040
.
global_check
=
true
c1
8969888
.
global_check
=
true
local
ge1
=
Effect
.
GlobalEffect
()
local
ge1
=
Effect
.
GlobalEffect
()
ge1
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
ge1
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
ge1
:
SetCode
(
EVENT_ATTACK_ANNOUNCE
)
ge1
:
SetCode
(
EVENT_ATTACK_ANNOUNCE
)
ge1
:
SetOperation
(
c1
01204040
.
checkop
)
ge1
:
SetOperation
(
c1
8969888
.
checkop
)
Duel
.
RegisterEffect
(
ge1
,
0
)
Duel
.
RegisterEffect
(
ge1
,
0
)
end
end
end
end
function
c1
01204040
.
checkop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c1
8969888
.
checkop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
RegisterFlagEffect
(
tp
,
1
01204040
,
RESET_PHASE
+
PHASE_END
,
0
,
1
)
Duel
.
RegisterFlagEffect
(
tp
,
1
8969888
,
RESET_PHASE
+
PHASE_END
,
0
,
1
)
Duel
.
RegisterFlagEffect
(
1
-
tp
,
1
01204040
,
RESET_PHASE
+
PHASE_END
,
0
,
1
)
Duel
.
RegisterFlagEffect
(
1
-
tp
,
1
8969888
,
RESET_PHASE
+
PHASE_END
,
0
,
1
)
end
end
function
c1
01204040
.
poscon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c1
8969888
.
poscon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
e
:
GetHandler
():
IsSummonType
(
SUMMON_TYPE_SYNCHRO
)
return
e
:
GetHandler
():
IsSummonType
(
SUMMON_TYPE_SYNCHRO
)
end
end
function
c1
01204040
.
postg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c1
8969888
.
postg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
Card
.
IsDefensePos
,
tp
,
LOCATION_MZONE
,
LOCATION_MZONE
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
Card
.
IsDefensePos
,
tp
,
LOCATION_MZONE
,
LOCATION_MZONE
,
1
,
nil
)
end
local
sg
=
Duel
.
GetMatchingGroup
(
Card
.
IsDefensePos
,
tp
,
LOCATION_MZONE
,
LOCATION_MZONE
,
nil
)
local
sg
=
Duel
.
GetMatchingGroup
(
Card
.
IsDefensePos
,
tp
,
LOCATION_MZONE
,
LOCATION_MZONE
,
nil
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_POSITION
,
sg
,
sg
:
GetCount
(),
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_POSITION
,
sg
,
sg
:
GetCount
(),
0
,
0
)
end
end
function
c1
01204040
.
posop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c1
8969888
.
posop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
local
sg
=
Duel
.
GetMatchingGroup
(
Card
.
IsDefensePos
,
tp
,
LOCATION_MZONE
,
LOCATION_MZONE
,
nil
)
local
sg
=
Duel
.
GetMatchingGroup
(
Card
.
IsDefensePos
,
tp
,
LOCATION_MZONE
,
LOCATION_MZONE
,
nil
)
if
sg
:
GetCount
()
>
0
then
if
sg
:
GetCount
()
>
0
then
...
@@ -72,30 +72,30 @@ function c101204040.posop(e,tp,eg,ep,ev,re,r,rp)
...
@@ -72,30 +72,30 @@ function c101204040.posop(e,tp,eg,ep,ev,re,r,rp)
end
end
end
end
end
end
function
c1
01204040
.
actcon
(
e
)
function
c1
8969888
.
actcon
(
e
)
local
ph
=
Duel
.
GetCurrentPhase
()
local
ph
=
Duel
.
GetCurrentPhase
()
return
ph
>=
PHASE_BATTLE_START
and
ph
<=
PHASE_BATTLE
return
ph
>=
PHASE_BATTLE_START
and
ph
<=
PHASE_BATTLE
end
end
function
c1
01204040
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c1
8969888
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
Duel
.
GetFlagEffect
(
tp
,
1
01204040
)
>=
3
return
Duel
.
GetFlagEffect
(
tp
,
1
8969888
)
>=
3
end
end
function
c1
01204040
.
spcost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c1
8969888
.
spcost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
if
chk
==
0
then
return
true
end
if
chk
==
0
then
return
true
end
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
1
01204040
,
4
))
e1
:
SetDescription
(
aux
.
Stringid
(
1
8969888
,
4
))
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetProperty
(
EFFECT_FLAG_PLAYER_TARGET
+
EFFECT_FLAG_CLIENT_HINT
)
e1
:
SetProperty
(
EFFECT_FLAG_PLAYER_TARGET
+
EFFECT_FLAG_CLIENT_HINT
)
e1
:
SetTargetRange
(
1
,
0
)
e1
:
SetTargetRange
(
1
,
0
)
Duel
.
RegisterEffect
(
e1
,
tp
)
Duel
.
RegisterEffect
(
e1
,
tp
)
end
end
function
c1
01204040
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c1
8969888
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
and
e
:
GetHandler
():
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
and
e
:
GetHandler
():
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
e
:
GetHandler
(),
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
e
:
GetHandler
(),
1
,
0
,
0
)
end
end
function
c1
01204040
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c1
8969888
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
if
c
:
IsRelateToEffect
(
e
)
and
Duel
.
SpecialSummon
(
c
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
>
0
and
Duel
.
GetFieldGroup
(
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
):
GetCount
()
>
0
and
Duel
.
SelectYesNo
(
tp
,
aux
.
Stringid
(
1
01204040
,
3
))
then
if
c
:
IsRelateToEffect
(
e
)
and
Duel
.
SpecialSummon
(
c
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
>
0
and
Duel
.
GetFieldGroup
(
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
):
GetCount
()
>
0
and
Duel
.
SelectYesNo
(
tp
,
aux
.
Stringid
(
1
8969888
,
3
))
then
local
g
=
Duel
.
GetFieldGroup
(
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
):
Select
(
tp
,
1
,
1
,
nil
)
local
g
=
Duel
.
GetFieldGroup
(
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
):
Select
(
tp
,
1
,
1
,
nil
)
if
#
g
>
0
then
if
#
g
>
0
then
Duel
.
BreakEffect
()
Duel
.
BreakEffect
()
...
...
c2333466.lua
View file @
5c511c44
--破壊竜ガンドラG
--破壊竜ガンドラG
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
101204051
)
aux
.
AddCodeList
(
c
,
79791878
)
--atk gain
--atk gain
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
)
...
@@ -38,7 +38,7 @@ function s.value(e,c)
...
@@ -38,7 +38,7 @@ function s.value(e,c)
return
Duel
.
GetFieldGroupCount
(
c
:
GetControler
(),
LOCATION_REMOVED
,
LOCATION_REMOVED
)
*
300
return
Duel
.
GetFieldGroupCount
(
c
:
GetControler
(),
LOCATION_REMOVED
,
LOCATION_REMOVED
)
*
300
end
end
function
s
.
cfilter
(
c
)
function
s
.
cfilter
(
c
)
return
c
:
IsCode
(
101204051
)
and
c
:
IsFaceup
()
return
c
:
IsCode
(
79791878
)
and
c
:
IsFaceup
()
end
end
function
s
.
condition
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
s
.
condition
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
Duel
.
IsExistingMatchingCard
(
s
.
cfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
return
Duel
.
IsExistingMatchingCard
(
s
.
cfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
...
@@ -55,7 +55,7 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
...
@@ -55,7 +55,7 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
end
end
end
end
function
s
.
spfilter
(
c
,
e
,
tp
)
function
s
.
spfilter
(
c
,
e
,
tp
)
return
aux
.
IsCodeListed
(
c
,
101204051
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
and
c
:
IsLevelBelow
(
7
)
return
aux
.
IsCodeListed
(
c
,
79791878
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
and
c
:
IsLevelBelow
(
7
)
end
end
function
s
.
descon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
s
.
descon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
Duel
.
IsExistingMatchingCard
(
s
.
spfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
,
e
,
tp
)
return
Duel
.
IsExistingMatchingCard
(
s
.
spfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
,
e
,
tp
)
...
...
c27157727.lua
View file @
5c511c44
...
@@ -2,7 +2,7 @@
...
@@ -2,7 +2,7 @@
--Coded by Lee
--Coded by Lee
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
101204051
)
aux
.
AddCodeList
(
c
,
79791878
)
--activate
--activate
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
...
@@ -44,14 +44,14 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
...
@@ -44,14 +44,14 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
Duel
.
SpecialSummon
(
c
,
SUMMON_VALUE_SELF
,
tp
,
tp
,
true
,
false
,
POS_FACEUP
)
Duel
.
SpecialSummon
(
c
,
SUMMON_VALUE_SELF
,
tp
,
tp
,
true
,
false
,
POS_FACEUP
)
end
end
function
s
.
atkfilter
(
c
)
function
s
.
atkfilter
(
c
)
return
(
c
:
IsCode
(
101204051
)
or
(
aux
.
IsCodeListed
(
c
,
101204051
)
and
c
:
IsLocation
(
LOCATION_MZONE
)))
and
c
:
IsFaceup
()
return
(
c
:
IsCode
(
79791878
)
or
(
aux
.
IsCodeListed
(
c
,
79791878
)
and
c
:
IsLocation
(
LOCATION_MZONE
)))
and
c
:
IsFaceup
()
end
end
function
s
.
atkval
(
e
,
c
)
function
s
.
atkval
(
e
,
c
)
local
tp
=
e
:
GetHandlerPlayer
()
local
tp
=
e
:
GetHandlerPlayer
()
return
Duel
.
GetMatchingGroupCount
(
s
.
atkfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
nil
)
*
1000
return
Duel
.
GetMatchingGroupCount
(
s
.
atkfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
nil
)
*
1000
end
end
function
s
.
filter
(
c
)
function
s
.
filter
(
c
)
return
c
:
IsCode
(
101204051
)
and
c
:
IsFaceup
()
return
c
:
IsCode
(
79791878
)
and
c
:
IsFaceup
()
end
end
function
s
.
descon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
s
.
descon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
Duel
.
GetAttacker
():
IsControler
(
1
-
tp
)
and
Duel
.
IsExistingMatchingCard
(
s
.
filter
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
return
Duel
.
GetAttacker
():
IsControler
(
1
-
tp
)
and
Duel
.
IsExistingMatchingCard
(
s
.
filter
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
...
...
c27483935.lua
View file @
5c511c44
--古代の機械司令
--古代の機械司令
function
c
101204008
.
initial_effect
(
c
)
function
c
27483935
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
83104731
)
aux
.
AddCodeList
(
c
,
83104731
)
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
101204008
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
27483935
,
0
))
e1
:
SetCategory
(
CATEGORY_SUMMON
)
e1
:
SetCategory
(
CATEGORY_SUMMON
)
e1
:
SetType
(
EFFECT_TYPE_IGNITION
)
e1
:
SetType
(
EFFECT_TYPE_IGNITION
)
e1
:
SetRange
(
LOCATION_MZONE
)
e1
:
SetRange
(
LOCATION_MZONE
)
e1
:
SetCountLimit
(
1
,
101204008
)
e1
:
SetCountLimit
(
1
,
27483935
)
e1
:
SetCost
(
c
101204008
.
scost
)
e1
:
SetCost
(
c
27483935
.
scost
)
e1
:
SetTarget
(
c
101204008
.
stg
)
e1
:
SetTarget
(
c
27483935
.
stg
)
e1
:
SetOperation
(
c
101204008
.
sop
)
e1
:
SetOperation
(
c
27483935
.
sop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetDescription
(
aux
.
Stringid
(
101204008
,
1
))
e2
:
SetDescription
(
aux
.
Stringid
(
27483935
,
1
))
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e2
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e2
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e2
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e2
:
SetRange
(
LOCATION_MZONE
)
e2
:
SetRange
(
LOCATION_MZONE
)
e2
:
SetCountLimit
(
1
,
101204108
)
e2
:
SetCountLimit
(
1
,
27483936
)
e2
:
SetCondition
(
c
101204008
.
spcon
)
e2
:
SetCondition
(
c
27483935
.
spcon
)
e2
:
SetTarget
(
c
101204008
.
sptg
)
e2
:
SetTarget
(
c
27483935
.
sptg
)
e2
:
SetOperation
(
c
101204008
.
spop
)
e2
:
SetOperation
(
c
27483935
.
spop
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
local
e3
=
e2
:
Clone
()
local
e3
=
e2
:
Clone
()
e3
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e3
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
c
:
RegisterEffect
(
e3
)
c
:
RegisterEffect
(
e3
)
local
e4
=
Effect
.
CreateEffect
(
c
)
local
e4
=
Effect
.
CreateEffect
(
c
)
e4
:
SetDescription
(
aux
.
Stringid
(
101204008
,
2
))
e4
:
SetDescription
(
aux
.
Stringid
(
27483935
,
2
))
e4
:
SetType
(
EFFECT_TYPE_IGNITION
)
e4
:
SetType
(
EFFECT_TYPE_IGNITION
)
e4
:
SetRange
(
LOCATION_GRAVE
)
e4
:
SetRange
(
LOCATION_GRAVE
)
e4
:
SetCountLimit
(
1
,
101204208
)
e4
:
SetCountLimit
(
1
,
27483937
)
e4
:
SetCost
(
aux
.
bfgcost
)
e4
:
SetCost
(
aux
.
bfgcost
)
e4
:
SetTarget
(
c
101204008
.
tftg
)
e4
:
SetTarget
(
c
27483935
.
tftg
)
e4
:
SetOperation
(
c
101204008
.
tfop
)
e4
:
SetOperation
(
c
27483935
.
tfop
)
c
:
RegisterEffect
(
e4
)
c
:
RegisterEffect
(
e4
)
end
end
function
c
101204008
.
costfilter
(
c
,
tp
)
function
c
27483935
.
costfilter
(
c
,
tp
)
return
c
:
IsCode
(
83104731
)
and
c
:
IsAbleToGraveAsCost
()
return
c
:
IsCode
(
83104731
)
and
c
:
IsAbleToGraveAsCost
()
and
Duel
.
IsExistingMatchingCard
(
c
101204008
.
sumfilter
,
tp
,
LOCATION_HAND
+
LOCATION_MZONE
,
0
,
1
,
c
)
and
Duel
.
IsExistingMatchingCard
(
c
27483935
.
sumfilter
,
tp
,
LOCATION_HAND
+
LOCATION_MZONE
,
0
,
1
,
c
)
end
end
function
c
101204008
.
scost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
27483935
.
scost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
101204008
.
costfilter
,
tp
,
LOCATION_DECK
+
LOCATION_HAND
+
LOCATION_ONFIELD
,
0
,
1
,
nil
,
tp
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
27483935
.
costfilter
,
tp
,
LOCATION_DECK
+
LOCATION_HAND
+
LOCATION_ONFIELD
,
0
,
1
,
nil
,
tp
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_TOGRAVE
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_TOGRAVE
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
101204008
.
costfilter
,
tp
,
LOCATION_DECK
+
LOCATION_HAND
+
LOCATION_ONFIELD
,
0
,
1
,
1
,
nil
,
tp
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
27483935
.
costfilter
,
tp
,
LOCATION_DECK
+
LOCATION_HAND
+
LOCATION_ONFIELD
,
0
,
1
,
1
,
nil
,
tp
)
Duel
.
SendtoGrave
(
g
,
REASON_COST
)
Duel
.
SendtoGrave
(
g
,
REASON_COST
)
end
end
function
c
101204008
.
stg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
27483935
.
stg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
101204008
.
sumfilter
,
tp
,
LOCATION_HAND
+
LOCATION_MZONE
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
27483935
.
sumfilter
,
tp
,
LOCATION_HAND
+
LOCATION_MZONE
,
0
,
1
,
nil
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SUMMON
,
nil
,
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SUMMON
,
nil
,
1
,
0
,
0
)
end
end
function
c
101204008
.
sumfilter
(
c
)
function
c
27483935
.
sumfilter
(
c
)
return
c
:
IsSummonable
(
true
,
nil
)
and
c
:
IsSetCard
(
0x7
)
return
c
:
IsSummonable
(
true
,
nil
)
and
c
:
IsSetCard
(
0x7
)
end
end
function
c
101204008
.
sop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
27483935
.
sop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SUMMON
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SUMMON
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
101204008
.
sumfilter
,
tp
,
LOCATION_HAND
+
LOCATION_MZONE
,
0
,
1
,
1
,
nil
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
27483935
.
sumfilter
,
tp
,
LOCATION_HAND
+
LOCATION_MZONE
,
0
,
1
,
1
,
nil
)
local
tc
=
g
:
GetFirst
()
local
tc
=
g
:
GetFirst
()
if
tc
then
if
tc
then
Duel
.
Summon
(
tp
,
tc
,
true
,
nil
)
Duel
.
Summon
(
tp
,
tc
,
true
,
nil
)
end
end
end
end
function
c
101204008
.
cfilter
(
c
)
function
c
27483935
.
cfilter
(
c
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
83104731
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
83104731
)
end
end
function
c
101204008
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
27483935
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
eg
:
IsExists
(
c
101204008
.
cfilter
,
1
,
nil
)
return
eg
:
IsExists
(
c
27483935
.
cfilter
,
1
,
nil
)
end
end
function
c
101204008
.
filter1
(
c
,
e
,
tp
)
function
c
27483935
.
filter1
(
c
,
e
,
tp
)
return
c
:
IsCode
(
83104731
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
true
,
false
)
return
c
:
IsCode
(
83104731
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
true
,
false
)
end
end
function
c
101204008
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
27483935
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
and
Duel
.
IsExistingMatchingCard
(
c
101204008
.
filter1
,
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
,
0
,
1
,
nil
,
e
,
tp
)
end
and
Duel
.
IsExistingMatchingCard
(
c
27483935
.
filter1
,
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
,
0
,
1
,
nil
,
e
,
tp
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
)
end
end
function
c
101204008
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
27483935
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
<=
0
then
return
end
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
<=
0
then
return
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
aux
.
NecroValleyFilter
(
c
101204008
.
filter1
),
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
,
0
,
1
,
1
,
nil
,
e
,
tp
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
aux
.
NecroValleyFilter
(
c
27483935
.
filter1
),
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
,
0
,
1
,
1
,
nil
,
e
,
tp
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
Duel
.
SpecialSummon
(
g
,
0
,
tp
,
tp
,
true
,
false
,
POS_FACEUP
)
Duel
.
SpecialSummon
(
g
,
0
,
tp
,
tp
,
true
,
false
,
POS_FACEUP
)
end
end
end
end
function
c
101204008
.
pfilter
(
c
,
tp
)
function
c
27483935
.
pfilter
(
c
,
tp
)
return
c
:
IsType
(
TYPE_CONTINUOUS
)
and
c
:
IsType
(
TYPE_TRAP
)
and
c
:
IsSetCard
(
0x7
)
return
c
:
IsType
(
TYPE_CONTINUOUS
)
and
c
:
IsType
(
TYPE_TRAP
)
and
c
:
IsSetCard
(
0x7
)
and
not
c
:
IsForbidden
()
and
c
:
CheckUniqueOnField
(
tp
)
and
not
c
:
IsForbidden
()
and
c
:
CheckUniqueOnField
(
tp
)
end
end
function
c
101204008
.
tftg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
27483935
.
tftg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_SZONE
)
>
0
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_SZONE
)
>
0
and
Duel
.
IsExistingMatchingCard
(
c
101204008
.
pfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
tp
)
end
and
Duel
.
IsExistingMatchingCard
(
c
27483935
.
pfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
tp
)
end
end
end
function
c
101204008
.
tfop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
27483935
.
tfop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_SZONE
)
<=
0
then
return
end
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_SZONE
)
<=
0
then
return
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_TOFIELD
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_TOFIELD
)
local
tc
=
Duel
.
SelectMatchingCard
(
tp
,
c
101204008
.
pfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
1
,
nil
,
tp
):
GetFirst
()
local
tc
=
Duel
.
SelectMatchingCard
(
tp
,
c
27483935
.
pfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
1
,
nil
,
tp
):
GetFirst
()
if
tc
then
Duel
.
MoveToField
(
tc
,
tp
,
tp
,
LOCATION_SZONE
,
POS_FACEUP
,
true
)
end
if
tc
then
Duel
.
MoveToField
(
tc
,
tp
,
tp
,
LOCATION_SZONE
,
POS_FACEUP
,
true
)
end
end
end
\ No newline at end of file
c31458630.lua
View file @
5c511c44
--幻奏協奏曲
--幻奏協奏曲
function
c
101204056
.
initial_effect
(
c
)
function
c
31458630
.
initial_effect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
+
CATEGORY_FUSION_SUMMON
)
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
+
CATEGORY_FUSION_SUMMON
)
e1
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
e1
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
e1
:
SetCode
(
EVENT_FREE_CHAIN
)
e1
:
SetCode
(
EVENT_FREE_CHAIN
)
e1
:
SetCountLimit
(
1
,
101204056
)
e1
:
SetCountLimit
(
1
,
31458630
)
e1
:
SetTarget
(
c
101204056
.
target
)
e1
:
SetTarget
(
c
31458630
.
target
)
e1
:
SetOperation
(
c
101204056
.
activate
)
e1
:
SetOperation
(
c
31458630
.
activate
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetDescription
(
aux
.
Stringid
(
101204056
,
1
))
e2
:
SetDescription
(
aux
.
Stringid
(
31458630
,
1
))
e2
:
SetCategory
(
CATEGORY_DRAW
)
e2
:
SetCategory
(
CATEGORY_DRAW
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetProperty
(
EFFECT_FLAG_DELAY
+
EFFECT_FLAG_DAMAGE_STEP
)
e2
:
SetProperty
(
EFFECT_FLAG_DELAY
+
EFFECT_FLAG_DAMAGE_STEP
)
e2
:
SetCode
(
EVENT_TO_GRAVE
)
e2
:
SetCode
(
EVENT_TO_GRAVE
)
e2
:
SetRange
(
LOCATION_GRAVE
)
e2
:
SetRange
(
LOCATION_GRAVE
)
e2
:
SetCountLimit
(
1
,
101204156
)
e2
:
SetCountLimit
(
1
,
31458631
)
e2
:
SetCondition
(
c
101204056
.
drcon
)
e2
:
SetCondition
(
c
31458630
.
drcon
)
e2
:
SetTarget
(
c
101204056
.
drtg
)
e2
:
SetTarget
(
c
31458630
.
drtg
)
e2
:
SetOperation
(
c
101204056
.
drop
)
e2
:
SetOperation
(
c
31458630
.
drop
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
end
end
function
c
101204056
.
filter0
(
c
,
e
)
function
c
31458630
.
filter0
(
c
,
e
)
return
c
:
IsCanBeFusionMaterial
()
and
not
c
:
IsImmuneToEffect
(
e
)
return
c
:
IsCanBeFusionMaterial
()
and
not
c
:
IsImmuneToEffect
(
e
)
end
end
function
c
101204056
.
filter1
(
c
,
e
)
function
c
31458630
.
filter1
(
c
,
e
)
return
not
c
:
IsImmuneToEffect
(
e
)
return
not
c
:
IsImmuneToEffect
(
e
)
end
end
function
c
101204056
.
filter2
(
c
,
e
,
tp
,
m
,
f
,
chkf
)
function
c
31458630
.
filter2
(
c
,
e
,
tp
,
m
,
f
,
chkf
)
return
c
:
IsType
(
TYPE_FUSION
)
and
c
:
IsRace
(
RACE_FAIRY
)
and
(
not
f
or
f
(
c
))
return
c
:
IsType
(
TYPE_FUSION
)
and
c
:
IsRace
(
RACE_FAIRY
)
and
(
not
f
or
f
(
c
))
and
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_FUSION
,
tp
,
false
,
false
)
and
c
:
CheckFusionMaterial
(
m
,
nil
,
chkf
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_FUSION
,
tp
,
false
,
false
)
and
c
:
CheckFusionMaterial
(
m
,
nil
,
chkf
)
end
end
function
c
101204056
.
target
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
31458630
.
target
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
if
chk
==
0
then
local
chkf
=
tp
local
chkf
=
tp
local
mg1
=
Duel
.
GetFusionMaterial
(
tp
)
local
mg1
=
Duel
.
GetFusionMaterial
(
tp
)
mg1
:
Merge
(
Duel
.
GetMatchingGroup
(
c
101204056
.
filter0
,
tp
,
LOCATION_PZONE
,
0
,
nil
,
e
))
mg1
:
Merge
(
Duel
.
GetMatchingGroup
(
c
31458630
.
filter0
,
tp
,
LOCATION_PZONE
,
0
,
nil
,
e
))
local
res
=
Duel
.
IsExistingMatchingCard
(
c
101204056
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
,
mg1
,
nil
,
chkf
)
local
res
=
Duel
.
IsExistingMatchingCard
(
c
31458630
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
,
mg1
,
nil
,
chkf
)
if
not
res
then
if
not
res
then
local
ce
=
Duel
.
GetChainMaterial
(
tp
)
local
ce
=
Duel
.
GetChainMaterial
(
tp
)
if
ce
~=
nil
then
if
ce
~=
nil
then
local
fgroup
=
ce
:
GetTarget
()
local
fgroup
=
ce
:
GetTarget
()
local
mg2
=
fgroup
(
ce
,
e
,
tp
)
local
mg2
=
fgroup
(
ce
,
e
,
tp
)
local
mf
=
ce
:
GetValue
()
local
mf
=
ce
:
GetValue
()
res
=
Duel
.
IsExistingMatchingCard
(
c
101204056
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
,
mg2
,
mf
,
chkf
)
res
=
Duel
.
IsExistingMatchingCard
(
c
31458630
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
,
mg2
,
mf
,
chkf
)
end
end
end
end
return
res
return
res
end
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_EXTRA
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_EXTRA
)
end
end
function
c
101204056
.
activate
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
31458630
.
activate
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
chkf
=
tp
local
chkf
=
tp
local
mg1
=
Duel
.
GetFusionMaterial
(
tp
):
Filter
(
c
101204056
.
filter1
,
nil
,
e
)
local
mg1
=
Duel
.
GetFusionMaterial
(
tp
):
Filter
(
c
31458630
.
filter1
,
nil
,
e
)
mg1
:
Merge
(
Duel
.
GetMatchingGroup
(
c
101204056
.
filter0
,
tp
,
LOCATION_PZONE
,
0
,
nil
,
e
))
mg1
:
Merge
(
Duel
.
GetMatchingGroup
(
c
31458630
.
filter0
,
tp
,
LOCATION_PZONE
,
0
,
nil
,
e
))
local
sg1
=
Duel
.
GetMatchingGroup
(
c
101204056
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
e
,
tp
,
mg1
,
nil
,
chkf
)
local
sg1
=
Duel
.
GetMatchingGroup
(
c
31458630
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
e
,
tp
,
mg1
,
nil
,
chkf
)
local
mg2
=
nil
local
mg2
=
nil
local
sg2
=
nil
local
sg2
=
nil
local
ce
=
Duel
.
GetChainMaterial
(
tp
)
local
ce
=
Duel
.
GetChainMaterial
(
tp
)
...
@@ -62,7 +62,7 @@ function c101204056.activate(e,tp,eg,ep,ev,re,r,rp)
...
@@ -62,7 +62,7 @@ function c101204056.activate(e,tp,eg,ep,ev,re,r,rp)
local
fgroup
=
ce
:
GetTarget
()
local
fgroup
=
ce
:
GetTarget
()
mg2
=
fgroup
(
ce
,
e
,
tp
)
mg2
=
fgroup
(
ce
,
e
,
tp
)
local
mf
=
ce
:
GetValue
()
local
mf
=
ce
:
GetValue
()
sg2
=
Duel
.
GetMatchingGroup
(
c
101204056
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
e
,
tp
,
mg2
,
mf
,
chkf
)
sg2
=
Duel
.
GetMatchingGroup
(
c
31458630
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
e
,
tp
,
mg2
,
mf
,
chkf
)
end
end
if
sg1
:
GetCount
()
>
0
or
(
sg2
~=
nil
and
sg2
:
GetCount
()
>
0
)
then
if
sg1
:
GetCount
()
>
0
or
(
sg2
~=
nil
and
sg2
:
GetCount
()
>
0
)
then
local
sg
=
sg1
:
Clone
()
local
sg
=
sg1
:
Clone
()
...
@@ -84,20 +84,20 @@ function c101204056.activate(e,tp,eg,ep,ev,re,r,rp)
...
@@ -84,20 +84,20 @@ function c101204056.activate(e,tp,eg,ep,ev,re,r,rp)
tc
:
CompleteProcedure
()
tc
:
CompleteProcedure
()
end
end
end
end
function
c
101204056
.
cfilter
(
c
,
tp
)
function
c
31458630
.
cfilter
(
c
,
tp
)
return
c
:
IsType
(
TYPE_FUSION
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsControler
(
tp
)
return
c
:
IsType
(
TYPE_FUSION
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsControler
(
tp
)
end
end
function
c
101204056
.
drcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
31458630
.
drcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
not
eg
:
IsContains
(
e
:
GetHandler
())
and
eg
:
IsExists
(
c
101204056
.
cfilter
,
1
,
nil
,
tp
)
return
not
eg
:
IsContains
(
e
:
GetHandler
())
and
eg
:
IsExists
(
c
31458630
.
cfilter
,
1
,
nil
,
tp
)
end
end
function
c
101204056
.
drtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
function
c
31458630
.
drtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
if
chk
==
0
then
return
Duel
.
IsPlayerCanDraw
(
tp
,
1
)
if
chk
==
0
then
return
Duel
.
IsPlayerCanDraw
(
tp
,
1
)
and
c
:
IsAbleToDeck
()
end
and
c
:
IsAbleToDeck
()
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TODECK
,
c
,
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TODECK
,
c
,
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DRAW
,
nil
,
0
,
tp
,
1
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DRAW
,
nil
,
0
,
tp
,
1
)
end
end
function
c
101204056
.
drop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
31458630
.
drop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
if
c
:
IsRelateToEffect
(
e
)
and
Duel
.
SendtoDeck
(
c
,
nil
,
SEQ_DECKBOTTOM
,
REASON_EFFECT
)
>
0
if
c
:
IsRelateToEffect
(
e
)
and
Duel
.
SendtoDeck
(
c
,
nil
,
SEQ_DECKBOTTOM
,
REASON_EFFECT
)
>
0
and
c
:
IsLocation
(
LOCATION_DECK
)
then
and
c
:
IsLocation
(
LOCATION_DECK
)
then
...
...
c32270212.lua
View file @
5c511c44
--仲間の絆
--仲間の絆
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
101204051
)
aux
.
AddCodeList
(
c
,
79791878
)
--activate
--activate
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
...
@@ -14,17 +14,17 @@ function s.initial_effect(c)
...
@@ -14,17 +14,17 @@ function s.initial_effect(c)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
end
end
function
s
.
cfilter1
(
c
)
function
s
.
cfilter1
(
c
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
101204051
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
79791878
)
end
end
function
s
.
cfilter2
(
c
)
function
s
.
cfilter2
(
c
)
return
c
:
IsFaceup
()
and
aux
.
IsCodeListed
(
c
,
101204051
)
return
c
:
IsFaceup
()
and
aux
.
IsCodeListed
(
c
,
79791878
)
end
end
function
s
.
condition
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
s
.
condition
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
Duel
.
IsExistingMatchingCard
(
s
.
cfilter1
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
return
Duel
.
IsExistingMatchingCard
(
s
.
cfilter1
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
and
Duel
.
IsExistingMatchingCard
(
s
.
cfilter2
,
tp
,
LOCATION_MZONE
,
0
,
1
,
nil
)
and
Duel
.
IsExistingMatchingCard
(
s
.
cfilter2
,
tp
,
LOCATION_MZONE
,
0
,
1
,
nil
)
end
end
function
s
.
spfilter
(
c
,
e
,
tp
)
function
s
.
spfilter
(
c
,
e
,
tp
)
return
aux
.
IsCodeListed
(
c
,
101204051
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
and
c
:
IsLevelBelow
(
4
)
return
aux
.
IsCodeListed
(
c
,
79791878
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
and
c
:
IsLevelBelow
(
4
)
end
end
function
s
.
target
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
s
.
target
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
...
...
c37531679.lua
View file @
5c511c44
...
@@ -71,7 +71,7 @@ function s.eqlimit(e,c)
...
@@ -71,7 +71,7 @@ function s.eqlimit(e,c)
return
c
==
e
:
GetLabelObject
()
return
c
==
e
:
GetLabelObject
()
end
end
function
s
.
thfilter
(
c
)
function
s
.
thfilter
(
c
)
return
c
:
IsSetCard
(
0x
2
ac
)
and
c
:
IsType
(
TYPE_SPELL
+
TYPE_TRAP
)
and
c
:
IsAbleToHand
()
return
c
:
IsSetCard
(
0x
1
ac
)
and
c
:
IsType
(
TYPE_SPELL
+
TYPE_TRAP
)
and
c
:
IsAbleToHand
()
end
end
function
s
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
s
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
s
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
s
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
...
...
c38505587.lua
View file @
5c511c44
--マシマシュマロン
--マシマシュマロン
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
101204051
)
aux
.
AddCodeList
(
c
,
79791878
)
--battle indestructable
--battle indestructable
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
)
...
@@ -45,7 +45,7 @@ function s.initial_effect(c)
...
@@ -45,7 +45,7 @@ function s.initial_effect(c)
c
:
RegisterEffect
(
e4
)
c
:
RegisterEffect
(
e4
)
end
end
function
s
.
indesfilter
(
c
)
function
s
.
indesfilter
(
c
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
101204051
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
79791878
)
end
end
function
s
.
indescon
(
e
)
function
s
.
indescon
(
e
)
return
Duel
.
IsExistingMatchingCard
(
s
.
indesfilter
,
e
:
GetHandlerPlayer
(),
LOCATION_ONFIELD
,
0
,
1
,
nil
)
return
Duel
.
IsExistingMatchingCard
(
s
.
indesfilter
,
e
:
GetHandlerPlayer
(),
LOCATION_ONFIELD
,
0
,
1
,
nil
)
...
...
c39114494.lua
View file @
5c511c44
--粛声なる祝福
--粛声なる祝福
function
c
101204062
.
initial_effect
(
c
)
function
c
39114494
.
initial_effect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
e1
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
e1
:
SetCode
(
EVENT_FREE_CHAIN
)
e1
:
SetCode
(
EVENT_FREE_CHAIN
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetDescription
(
aux
.
Stringid
(
101204062
,
1
))
e2
:
SetDescription
(
aux
.
Stringid
(
39114494
,
1
))
e2
:
SetType
(
EFFECT_TYPE_IGNITION
)
e2
:
SetType
(
EFFECT_TYPE_IGNITION
)
e2
:
SetProperty
(
EFFECT_FLAG_CARD_TARGET
)
e2
:
SetProperty
(
EFFECT_FLAG_CARD_TARGET
)
e2
:
SetRange
(
LOCATION_SZONE
)
e2
:
SetRange
(
LOCATION_SZONE
)
e2
:
SetCountLimit
(
1
,
101204062
)
e2
:
SetCountLimit
(
1
,
39114494
)
e2
:
SetTarget
(
c
101204062
.
thtg
)
e2
:
SetTarget
(
c
39114494
.
thtg
)
e2
:
SetOperation
(
c
101204062
.
thop
)
e2
:
SetOperation
(
c
39114494
.
thop
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
local
e3
=
Effect
.
CreateEffect
(
c
)
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetDescription
(
aux
.
Stringid
(
101204062
,
2
))
e3
:
SetDescription
(
aux
.
Stringid
(
39114494
,
2
))
e3
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
+
CATEGORY_TOKEN
)
e3
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
+
CATEGORY_TOKEN
)
e3
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e3
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e3
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e3
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e3
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e3
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e3
:
SetRange
(
LOCATION_SZONE
)
e3
:
SetRange
(
LOCATION_SZONE
)
e3
:
SetCountLimit
(
1
,
101204162
)
e3
:
SetCountLimit
(
1
,
39114495
)
e3
:
SetCondition
(
c
101204062
.
ricon
)
e3
:
SetCondition
(
c
39114494
.
ricon
)
e3
:
SetTarget
(
c
101204062
.
ritg
)
e3
:
SetTarget
(
c
39114494
.
ritg
)
e3
:
SetOperation
(
c
101204062
.
riop
)
e3
:
SetOperation
(
c
39114494
.
riop
)
c
:
RegisterEffect
(
e3
)
c
:
RegisterEffect
(
e3
)
local
e4
=
e3
:
Clone
()
local
e4
=
e3
:
Clone
()
e4
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e4
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
c
:
RegisterEffect
(
e4
)
c
:
RegisterEffect
(
e4
)
end
end
function
c
101204062
.
filter
(
c
,
e
,
tp
)
function
c
39114494
.
filter
(
c
,
e
,
tp
)
return
not
c
:
IsCode
(
101204062
)
and
c
:
IsFaceupEx
()
and
c
:
IsSetCard
(
0x1a6
)
and
c
:
IsAbleToHand
()
return
not
c
:
IsCode
(
39114494
)
and
c
:
IsFaceupEx
()
and
c
:
IsSetCard
(
0x1a6
)
and
c
:
IsAbleToHand
()
end
end
function
c
101204062
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
function
c
39114494
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
if
chkc
then
return
chkc
:
IsLocation
(
LOCATION_GRAVE
+
LOCATION_REMOVED
)
and
chkc
:
IsControler
(
tp
)
and
c
101204062
.
filter
(
chkc
,
e
,
tp
)
end
if
chkc
then
return
chkc
:
IsLocation
(
LOCATION_GRAVE
+
LOCATION_REMOVED
)
and
chkc
:
IsControler
(
tp
)
and
c
39114494
.
filter
(
chkc
,
e
,
tp
)
end
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
c
101204062
.
filter
,
tp
,
LOCATION_GRAVE
+
LOCATION_REMOVED
,
0
,
1
,
nil
,
e
,
tp
)
end
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
c
39114494
.
filter
,
tp
,
LOCATION_GRAVE
+
LOCATION_REMOVED
,
0
,
1
,
nil
,
e
,
tp
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
local
tc
=
Duel
.
SelectTarget
(
tp
,
c
101204062
.
filter
,
tp
,
LOCATION_GRAVE
+
LOCATION_REMOVED
,
0
,
1
,
1
,
nil
,
e
,
tp
):
GetFirst
()
local
tc
=
Duel
.
SelectTarget
(
tp
,
c
39114494
.
filter
,
tp
,
LOCATION_GRAVE
+
LOCATION_REMOVED
,
0
,
1
,
1
,
nil
,
e
,
tp
):
GetFirst
()
if
tc
:
IsLocation
(
LOCATION_GRAVE
)
then
if
tc
:
IsLocation
(
LOCATION_GRAVE
)
then
e
:
SetCategory
(
CATEGORY_TOHAND
+
CATEGORY_GRAVE_ACTION
)
e
:
SetCategory
(
CATEGORY_TOHAND
+
CATEGORY_GRAVE_ACTION
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_LEAVE_GRAVE
,
tc
,
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_LEAVE_GRAVE
,
tc
,
1
,
0
,
0
)
...
@@ -44,34 +44,34 @@ function c101204062.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
...
@@ -44,34 +44,34 @@ function c101204062.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
e
:
SetCategory
(
CATEGORY_TOHAND
)
e
:
SetCategory
(
CATEGORY_TOHAND
)
end
end
end
end
function
c
101204062
.
thop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
39114494
.
thop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
tc
=
Duel
.
GetFirstTarget
()
local
tc
=
Duel
.
GetFirstTarget
()
if
not
tc
:
IsRelateToEffect
(
e
)
then
return
end
if
not
tc
:
IsRelateToEffect
(
e
)
then
return
end
if
tc
then
if
tc
then
Duel
.
SendtoHand
(
tc
,
nil
,
REASON_EFFECT
)
Duel
.
SendtoHand
(
tc
,
nil
,
REASON_EFFECT
)
end
end
end
end
function
c
101204062
.
cfilter
(
c
)
function
c
39114494
.
cfilter
(
c
)
return
c
:
IsFaceup
()
and
not
c
:
IsType
(
TYPE_RITUAL
)
return
c
:
IsFaceup
()
and
not
c
:
IsType
(
TYPE_RITUAL
)
end
end
function
c
101204062
.
ricon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
39114494
.
ricon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
eg
:
IsExists
(
c
101204062
.
cfilter
,
1
,
nil
)
return
eg
:
IsExists
(
c
39114494
.
cfilter
,
1
,
nil
)
end
end
function
c
101204062
.
rfilter
(
c
,
e
,
tp
)
function
c
39114494
.
rfilter
(
c
,
e
,
tp
)
return
c
:
IsType
(
TYPE_RITUAL
)
and
(
c
:
IsRace
(
RACE_DRAGON
)
or
c
:
IsRace
(
RACE_WARRIOR
))
and
c
:
IsAttribute
(
ATTRIBUTE_LIGHT
)
return
c
:
IsType
(
TYPE_RITUAL
)
and
(
c
:
IsRace
(
RACE_DRAGON
)
or
c
:
IsRace
(
RACE_WARRIOR
))
and
c
:
IsAttribute
(
ATTRIBUTE_LIGHT
)
end
end
function
c
101204062
.
ritg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
39114494
.
ritg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
if
chk
==
0
then
local
mg
=
Duel
.
GetRitualMaterial
(
tp
)
local
mg
=
Duel
.
GetRitualMaterial
(
tp
)
return
Duel
.
IsExistingMatchingCard
(
aux
.
RitualUltimateFilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
c
101204062
.
rfilter
,
e
,
tp
,
mg
,
nil
,
Card
.
GetLevel
,
"Greater"
)
return
Duel
.
IsExistingMatchingCard
(
aux
.
RitualUltimateFilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
c
39114494
.
rfilter
,
e
,
tp
,
mg
,
nil
,
Card
.
GetLevel
,
"Greater"
)
end
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_HAND
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_HAND
)
end
end
function
c
101204062
.
riop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
39114494
.
riop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
::
cancel
::
::
cancel
::
local
mg
=
Duel
.
GetRitualMaterial
(
tp
)
local
mg
=
Duel
.
GetRitualMaterial
(
tp
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
tg
=
Duel
.
SelectMatchingCard
(
tp
,
aux
.
RitualUltimateFilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
1
,
nil
,
c
101204062
.
rfilter
,
e
,
tp
,
mg
,
nil
,
Card
.
GetLevel
,
"Greater"
)
local
tg
=
Duel
.
SelectMatchingCard
(
tp
,
aux
.
RitualUltimateFilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
1
,
nil
,
c
39114494
.
rfilter
,
e
,
tp
,
mg
,
nil
,
Card
.
GetLevel
,
"Greater"
)
local
tc
=
tg
:
GetFirst
()
local
tc
=
tg
:
GetFirst
()
if
tc
then
if
tc
then
mg
=
mg
:
Filter
(
Card
.
IsCanBeRitualMaterial
,
tc
,
tc
)
mg
=
mg
:
Filter
(
Card
.
IsCanBeRitualMaterial
,
tc
,
tc
)
...
@@ -91,7 +91,7 @@ function c101204062.riop(e,tp,eg,ep,ev,re,r,rp)
...
@@ -91,7 +91,7 @@ function c101204062.riop(e,tp,eg,ep,ev,re,r,rp)
Duel
.
BreakEffect
()
Duel
.
BreakEffect
()
if
Duel
.
SpecialSummonStep
(
tc
,
SUMMON_TYPE_RITUAL
,
tp
,
tp
,
false
,
true
,
POS_FACEUP
)
then
if
Duel
.
SpecialSummonStep
(
tc
,
SUMMON_TYPE_RITUAL
,
tp
,
tp
,
false
,
true
,
POS_FACEUP
)
then
local
e1
=
Effect
.
CreateEffect
(
e
:
GetHandler
())
local
e1
=
Effect
.
CreateEffect
(
e
:
GetHandler
())
e1
:
SetDescription
(
aux
.
Stringid
(
101204062
,
3
))
e1
:
SetDescription
(
aux
.
Stringid
(
39114494
,
3
))
e1
:
SetType
(
EFFECT_TYPE_SINGLE
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
)
e1
:
SetProperty
(
EFFECT_FLAG_CANNOT_DISABLE
+
EFFECT_FLAG_CLIENT_HINT
)
e1
:
SetProperty
(
EFFECT_FLAG_CANNOT_DISABLE
+
EFFECT_FLAG_CLIENT_HINT
)
e1
:
SetRange
(
LOCATION_MZONE
)
e1
:
SetRange
(
LOCATION_MZONE
)
...
...
c39321065.lua
View file @
5c511c44
--サイレント・ソードマン・ゼロ
--サイレント・ソードマン・ゼロ
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
101204051
)
aux
.
AddCodeList
(
c
,
79791878
)
--level up
--level up
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
...
@@ -48,7 +48,7 @@ function s.value(e,c)
...
@@ -48,7 +48,7 @@ function s.value(e,c)
return
math.max
(
0
,
c
:
GetLevel
()
-
c
:
GetOriginalLevel
())
*
500
return
math.max
(
0
,
c
:
GetLevel
()
-
c
:
GetOriginalLevel
())
*
500
end
end
function
s
.
tfilter
(
c
,
tp
)
function
s
.
tfilter
(
c
,
tp
)
return
c
:
IsLocation
(
LOCATION_ONFIELD
)
and
(
aux
.
IsCodeListed
(
c
,
101204051
)
or
c
:
IsCode
(
101204051
))
return
c
:
IsLocation
(
LOCATION_ONFIELD
)
and
(
aux
.
IsCodeListed
(
c
,
79791878
)
or
c
:
IsCode
(
79791878
))
and
c
:
IsControler
(
tp
)
and
c
:
IsFaceup
()
and
c
:
IsControler
(
tp
)
and
c
:
IsFaceup
()
end
end
function
s
.
negcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
s
.
negcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
...
...
c39931513.lua
View file @
5c511c44
--天盃龍パイドラ
--天盃龍パイドラ
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
c
101204016
.
initial_effect
(
c
)
function
c
39931513
.
initial_effect
(
c
)
--to hand or set
--to hand or set
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
...
...
c4064925.lua
View file @
5c511c44
--古代の進軍
--古代の進軍
function
c
10120405
5
.
initial_effect
(
c
)
function
c
406492
5
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
83104731
)
aux
.
AddCodeList
(
c
,
83104731
)
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetCategory
(
CATEGORY_TOHAND
+
CATEGORY_SEARCH
)
e1
:
SetCategory
(
CATEGORY_TOHAND
+
CATEGORY_SEARCH
)
e1
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
e1
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
e1
:
SetCode
(
EVENT_FREE_CHAIN
)
e1
:
SetCode
(
EVENT_FREE_CHAIN
)
e1
:
SetCountLimit
(
1
,
10120405
5
+
EFFECT_COUNT_CODE_OATH
)
e1
:
SetCountLimit
(
1
,
406492
5
+
EFFECT_COUNT_CODE_OATH
)
e1
:
SetCost
(
c
10120405
5
.
cost
)
e1
:
SetCost
(
c
406492
5
.
cost
)
e1
:
SetTarget
(
c
10120405
5
.
target
)
e1
:
SetTarget
(
c
406492
5
.
target
)
e1
:
SetOperation
(
c
10120405
5
.
activate
)
e1
:
SetOperation
(
c
406492
5
.
activate
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetDescription
(
aux
.
Stringid
(
10120405
5
,
0
))
e2
:
SetDescription
(
aux
.
Stringid
(
406492
5
,
0
))
e2
:
SetCategory
(
CATEGORY_DRAW
)
e2
:
SetCategory
(
CATEGORY_DRAW
)
e2
:
SetType
(
EFFECT_TYPE_IGNITION
)
e2
:
SetType
(
EFFECT_TYPE_IGNITION
)
e2
:
SetRange
(
LOCATION_SZONE
)
e2
:
SetRange
(
LOCATION_SZONE
)
e2
:
SetCountLimit
(
1
)
e2
:
SetCountLimit
(
1
)
e2
:
SetCost
(
c
10120405
5
.
drcost
)
e2
:
SetCost
(
c
406492
5
.
drcost
)
e2
:
SetTarget
(
c
10120405
5
.
drtg
)
e2
:
SetTarget
(
c
406492
5
.
drtg
)
e2
:
SetOperation
(
c
10120405
5
.
drop
)
e2
:
SetOperation
(
c
406492
5
.
drop
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
if
not
c
10120405
5
.
global_check
then
if
not
c
406492
5
.
global_check
then
c
10120405
5
.
global_check
=
true
c
406492
5
.
global_check
=
true
local
ge1
=
Effect
.
CreateEffect
(
c
)
local
ge1
=
Effect
.
CreateEffect
(
c
)
ge1
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
ge1
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
ge1
:
SetCode
(
EVENT_SSET
)
ge1
:
SetCode
(
EVENT_SSET
)
ge1
:
SetOperation
(
c
10120405
5
.
checkop
)
ge1
:
SetOperation
(
c
406492
5
.
checkop
)
Duel
.
RegisterEffect
(
ge1
,
0
)
Duel
.
RegisterEffect
(
ge1
,
0
)
local
ge2
=
ge1
:
Clone
()
local
ge2
=
ge1
:
Clone
()
ge2
:
SetCode
(
EVENT_MSET
)
ge2
:
SetCode
(
EVENT_MSET
)
Duel
.
RegisterEffect
(
ge2
,
0
)
Duel
.
RegisterEffect
(
ge2
,
0
)
local
ge3
=
ge1
:
Clone
()
local
ge3
=
ge1
:
Clone
()
ge3
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
ge3
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
ge3
:
SetCondition
(
c
10120405
5
.
ssetcon
)
ge3
:
SetCondition
(
c
406492
5
.
ssetcon
)
Duel
.
RegisterEffect
(
ge3
,
0
)
Duel
.
RegisterEffect
(
ge3
,
0
)
end
end
end
end
function
c
10120405
5
.
checkop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
406492
5
.
checkop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
RegisterFlagEffect
(
rp
,
10120405
5
,
RESET_PHASE
+
PHASE_END
,
0
,
1
)
Duel
.
RegisterFlagEffect
(
rp
,
406492
5
,
RESET_PHASE
+
PHASE_END
,
0
,
1
)
end
end
function
c
10120405
5
.
cfilter
(
c
)
function
c
406492
5
.
cfilter
(
c
)
return
c
:
IsFacedown
()
return
c
:
IsFacedown
()
end
end
function
c
10120405
5
.
ssetcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
406492
5
.
ssetcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
eg
:
IsExists
(
c
10120405
5
.
cfilter
,
1
,
nil
)
return
eg
:
IsExists
(
c
406492
5
.
cfilter
,
1
,
nil
)
end
end
function
c
10120405
5
.
cost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
406492
5
.
cost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetFlagEffect
(
tp
,
10120405
5
)
==
0
end
if
chk
==
0
then
return
Duel
.
GetFlagEffect
(
tp
,
406492
5
)
==
0
end
local
e1
=
Effect
.
CreateEffect
(
e
:
GetHandler
())
local
e1
=
Effect
.
CreateEffect
(
e
:
GetHandler
())
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetProperty
(
EFFECT_FLAG_PLAYER_TARGET
+
EFFECT_FLAG_OATH
)
e1
:
SetProperty
(
EFFECT_FLAG_PLAYER_TARGET
+
EFFECT_FLAG_OATH
)
...
@@ -63,59 +63,59 @@ function c101204055.cost(e,tp,eg,ep,ev,re,r,rp,chk)
...
@@ -63,59 +63,59 @@ function c101204055.cost(e,tp,eg,ep,ev,re,r,rp,chk)
Duel
.
RegisterEffect
(
e3
,
tp
)
Duel
.
RegisterEffect
(
e3
,
tp
)
local
e4
=
e1
:
Clone
()
local
e4
=
e1
:
Clone
()
e4
:
SetCode
(
EFFECT_LIMIT_SPECIAL_SUMMON_POSITION
)
e4
:
SetCode
(
EFFECT_LIMIT_SPECIAL_SUMMON_POSITION
)
e4
:
SetTarget
(
c
10120405
5
.
sumlimit
)
e4
:
SetTarget
(
c
406492
5
.
sumlimit
)
Duel
.
RegisterEffect
(
e4
,
tp
)
Duel
.
RegisterEffect
(
e4
,
tp
)
end
end
function
c
10120405
5
.
sumlimit
(
e
,
c
,
sump
,
sumtype
,
sumpos
,
targetp
)
function
c
406492
5
.
sumlimit
(
e
,
c
,
sump
,
sumtype
,
sumpos
,
targetp
)
return
bit
.
band
(
sumpos
,
POS_FACEDOWN
)
>
0
return
bit
.
band
(
sumpos
,
POS_FACEDOWN
)
>
0
end
end
function
c
10120405
5
.
filter
(
c
)
function
c
406492
5
.
filter
(
c
)
return
not
c
:
IsCode
(
10120405
5
)
and
c
:
IsSetCard
(
0x7
)
and
(
c
:
IsType
(
TYPE_SPELL
)
or
c
:
IsType
(
TYPE_TRAP
))
and
c
:
IsAbleToHand
()
return
not
c
:
IsCode
(
406492
5
)
and
c
:
IsSetCard
(
0x7
)
and
(
c
:
IsType
(
TYPE_SPELL
)
or
c
:
IsType
(
TYPE_TRAP
))
and
c
:
IsAbleToHand
()
end
end
function
c
10120405
5
.
target
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
406492
5
.
target
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
10120405
5
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
406492
5
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_DECK
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_DECK
)
end
end
function
c
10120405
5
.
activate
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
406492
5
.
activate
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
10120405
5
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
406492
5
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
end
end
end
end
function
c
10120405
5
.
drcost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
406492
5
.
drcost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
CheckReleaseGroup
(
REASON_COST
,
tp
,
nil
,
1
,
nil
,
tp
)
end
if
chk
==
0
then
return
Duel
.
CheckReleaseGroup
(
REASON_COST
,
tp
,
nil
,
1
,
nil
,
tp
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_RELEASE
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_RELEASE
)
local
g
=
Duel
.
SelectReleaseGroup
(
REASON_COST
,
tp
,
nil
,
1
,
1
,
nil
,
tp
)
local
g
=
Duel
.
SelectReleaseGroup
(
REASON_COST
,
tp
,
nil
,
1
,
1
,
nil
,
tp
)
Duel
.
Release
(
g
,
REASON_COST
)
Duel
.
Release
(
g
,
REASON_COST
)
end
end
function
c
10120405
5
.
drtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
406492
5
.
drtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsPlayerCanDraw
(
tp
,
1
)
end
if
chk
==
0
then
return
Duel
.
IsPlayerCanDraw
(
tp
,
1
)
end
Duel
.
SetTargetPlayer
(
tp
)
Duel
.
SetTargetPlayer
(
tp
)
Duel
.
SetTargetParam
(
1
)
Duel
.
SetTargetParam
(
1
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DRAW
,
nil
,
0
,
tp
,
1
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DRAW
,
nil
,
0
,
tp
,
1
)
end
end
function
c
10120405
5
.
drop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
406492
5
.
drop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
p
,
d
=
Duel
.
GetChainInfo
(
0
,
CHAININFO_TARGET_PLAYER
,
CHAININFO_TARGET_PARAM
)
local
p
,
d
=
Duel
.
GetChainInfo
(
0
,
CHAININFO_TARGET_PLAYER
,
CHAININFO_TARGET_PARAM
)
if
Duel
.
Draw
(
p
,
d
,
REASON_EFFECT
)
~=
0
and
Duel
.
GetFlagEffect
(
tp
,
101204155
)
==
0
then
if
Duel
.
Draw
(
p
,
d
,
REASON_EFFECT
)
~=
0
and
Duel
.
GetFlagEffect
(
tp
,
4064926
)
==
0
then
local
e1
=
Effect
.
CreateEffect
(
e
:
GetHandler
())
local
e1
=
Effect
.
CreateEffect
(
e
:
GetHandler
())
e1
:
SetDescription
(
aux
.
Stringid
(
10120405
5
,
2
))
e1
:
SetDescription
(
aux
.
Stringid
(
406492
5
,
2
))
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetCode
(
EFFECT_SUMMON_PROC
)
e1
:
SetCode
(
EFFECT_SUMMON_PROC
)
e1
:
SetTargetRange
(
LOCATION_HAND
,
0
)
e1
:
SetTargetRange
(
LOCATION_HAND
,
0
)
e1
:
SetCountLimit
(
1
,
10120405
5
)
e1
:
SetCountLimit
(
1
,
406492
5
)
e1
:
SetCondition
(
c
10120405
5
.
ntcon
)
e1
:
SetCondition
(
c
406492
5
.
ntcon
)
e1
:
SetTarget
(
c
10120405
5
.
nttg
)
e1
:
SetTarget
(
c
406492
5
.
nttg
)
e1
:
SetReset
(
RESET_PHASE
+
PHASE_END
)
e1
:
SetReset
(
RESET_PHASE
+
PHASE_END
)
Duel
.
RegisterEffect
(
e1
,
tp
)
Duel
.
RegisterEffect
(
e1
,
tp
)
Duel
.
RegisterFlagEffect
(
tp
,
101204155
,
RESET_PHASE
+
PHASE_END
,
EFFECT_FLAG_OATH
,
1
)
Duel
.
RegisterFlagEffect
(
tp
,
4064926
,
RESET_PHASE
+
PHASE_END
,
EFFECT_FLAG_OATH
,
1
)
end
end
end
end
function
c
10120405
5
.
ntcon
(
e
,
c
,
minc
)
function
c
406492
5
.
ntcon
(
e
,
c
,
minc
)
if
c
==
nil
then
return
true
end
if
c
==
nil
then
return
true
end
return
minc
==
0
and
Duel
.
GetLocationCount
(
c
:
GetControler
(),
LOCATION_MZONE
)
>
0
return
minc
==
0
and
Duel
.
GetLocationCount
(
c
:
GetControler
(),
LOCATION_MZONE
)
>
0
end
end
function
c
10120405
5
.
nttg
(
e
,
c
)
function
c
406492
5
.
nttg
(
e
,
c
)
return
c
:
IsLevelAbove
(
5
)
and
(
c
:
IsCode
(
83104731
)
or
aux
.
IsCodeListed
(
c
,
83104731
))
return
c
:
IsLevelAbove
(
5
)
and
(
c
:
IsCode
(
83104731
)
or
aux
.
IsCodeListed
(
c
,
83104731
))
end
end
\ No newline at end of file
c45464587.lua
View file @
5c511c44
--GP-アニヒレーター
--GP-アニヒレーター
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
10120402
0
)
aux
.
AddCodeList
(
c
,
6020367
0
)
aux
.
AddSynchroProcedure
(
c
,
nil
,
aux
.
NonTuner
(
nil
),
1
)
aux
.
AddSynchroProcedure
(
c
,
nil
,
aux
.
NonTuner
(
nil
),
1
)
c
:
EnableReviveLimit
()
c
:
EnableReviveLimit
()
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
...
@@ -64,7 +64,7 @@ function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
...
@@ -64,7 +64,7 @@ function s.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_GRAVE
+
LOCATION_DECK
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_GRAVE
+
LOCATION_DECK
)
end
end
function
s
.
spfilter
(
c
,
e
,
tp
)
function
s
.
spfilter
(
c
,
e
,
tp
)
return
c
:
IsCode
(
10120402
0
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
return
c
:
IsCode
(
6020367
0
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
end
function
s
.
tdop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
s
.
tdop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
...
...
c53541822.lua
View file @
5c511c44
--古代の機械競闘
--古代の機械競闘
function
c
10120407
2
.
initial_effect
(
c
)
function
c
5354182
2
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
83104731
)
aux
.
AddCodeList
(
c
,
83104731
)
local
e0
=
Effect
.
CreateEffect
(
c
)
local
e0
=
Effect
.
CreateEffect
(
c
)
e0
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
e0
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
...
@@ -10,8 +10,8 @@ function c101204072.initial_effect(c)
...
@@ -10,8 +10,8 @@ function c101204072.initial_effect(c)
e1
:
SetCode
(
EFFECT_IMMUNE_EFFECT
)
e1
:
SetCode
(
EFFECT_IMMUNE_EFFECT
)
e1
:
SetRange
(
LOCATION_SZONE
)
e1
:
SetRange
(
LOCATION_SZONE
)
e1
:
SetTargetRange
(
LOCATION_MZONE
,
0
)
e1
:
SetTargetRange
(
LOCATION_MZONE
,
0
)
e1
:
SetTarget
(
c
10120407
2
.
indtg
)
e1
:
SetTarget
(
c
5354182
2
.
indtg
)
e1
:
SetValue
(
c
10120407
2
.
efilter
)
e1
:
SetValue
(
c
5354182
2
.
efilter
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
+
CATEGORY_FUSION_SUMMON
+
CATEGORY_REMOVE
)
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
+
CATEGORY_FUSION_SUMMON
+
CATEGORY_REMOVE
)
...
@@ -19,55 +19,55 @@ function c101204072.initial_effect(c)
...
@@ -19,55 +19,55 @@ function c101204072.initial_effect(c)
e2
:
SetCode
(
EVENT_FREE_CHAIN
)
e2
:
SetCode
(
EVENT_FREE_CHAIN
)
e2
:
SetRange
(
LOCATION_SZONE
)
e2
:
SetRange
(
LOCATION_SZONE
)
e2
:
SetHintTiming
(
0
,
TIMINGS_CHECK_MONSTER
+
TIMING_MAIN_END
)
e2
:
SetHintTiming
(
0
,
TIMINGS_CHECK_MONSTER
+
TIMING_MAIN_END
)
e2
:
SetCountLimit
(
1
,
10120407
2
)
e2
:
SetCountLimit
(
1
,
5354182
2
)
e2
:
SetCondition
(
c
10120407
2
.
condition
)
e2
:
SetCondition
(
c
5354182
2
.
condition
)
e2
:
SetTarget
(
c
10120407
2
.
target
)
e2
:
SetTarget
(
c
5354182
2
.
target
)
e2
:
SetOperation
(
c
10120407
2
.
activate
)
e2
:
SetOperation
(
c
5354182
2
.
activate
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
end
end
function
c
10120407
2
.
indtg
(
e
,
c
)
function
c
5354182
2
.
indtg
(
e
,
c
)
return
c
:
IsCode
(
83104731
)
or
aux
.
IsCodeListed
(
c
,
83104731
)
return
c
:
IsCode
(
83104731
)
or
aux
.
IsCodeListed
(
c
,
83104731
)
end
end
function
c
10120407
2
.
efilter
(
e
,
re
)
function
c
5354182
2
.
efilter
(
e
,
re
)
return
e
:
GetHandlerPlayer
()
~=
re
:
GetOwnerPlayer
()
and
re
:
IsActivated
()
and
re
:
IsActiveType
(
TYPE_MONSTER
)
return
e
:
GetHandlerPlayer
()
~=
re
:
GetOwnerPlayer
()
and
re
:
IsActivated
()
and
re
:
IsActiveType
(
TYPE_MONSTER
)
end
end
function
c
10120407
2
.
filter0
(
c
)
function
c
5354182
2
.
filter0
(
c
)
return
c
:
IsOnField
()
and
c
:
IsAbleToRemove
()
return
c
:
IsOnField
()
and
c
:
IsAbleToRemove
()
end
end
function
c
10120407
2
.
filter1
(
c
,
e
)
function
c
5354182
2
.
filter1
(
c
,
e
)
return
c
:
IsOnField
()
and
c
:
IsAbleToRemove
()
and
not
c
:
IsImmuneToEffect
(
e
)
return
c
:
IsOnField
()
and
c
:
IsAbleToRemove
()
and
not
c
:
IsImmuneToEffect
(
e
)
end
end
function
c
10120407
2
.
filter2
(
c
,
e
,
tp
,
m
,
f
,
chkf
)
function
c
5354182
2
.
filter2
(
c
,
e
,
tp
,
m
,
f
,
chkf
)
return
c
:
IsType
(
TYPE_FUSION
)
and
aux
.
IsCodeListed
(
c
,
83104731
)
and
(
not
f
or
f
(
c
))
return
c
:
IsType
(
TYPE_FUSION
)
and
aux
.
IsCodeListed
(
c
,
83104731
)
and
(
not
f
or
f
(
c
))
and
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_FUSION
,
tp
,
false
,
false
)
and
c
:
CheckFusionMaterial
(
m
,
nil
,
chkf
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_FUSION
,
tp
,
false
,
false
)
and
c
:
CheckFusionMaterial
(
m
,
nil
,
chkf
)
end
end
function
c
10120407
2
.
filter3
(
c
)
function
c
5354182
2
.
filter3
(
c
)
return
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsCanBeFusionMaterial
()
and
c
:
IsAbleToRemove
()
return
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsCanBeFusionMaterial
()
and
c
:
IsAbleToRemove
()
end
end
function
c
10120407
2
.
condition
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
5354182
2
.
condition
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
Duel
.
IsExistingMatchingCard
(
nil
,
tp
,
0
,
LOCATION_MZONE
,
1
,
nil
)
return
Duel
.
IsExistingMatchingCard
(
nil
,
tp
,
0
,
LOCATION_MZONE
,
1
,
nil
)
end
end
function
c
10120407
2
.
fcheck
(
tp
,
sg
,
fc
)
function
c
5354182
2
.
fcheck
(
tp
,
sg
,
fc
)
return
sg
:
IsExists
(
c
10120407
2
.
filter
,
1
,
nil
)
return
sg
:
IsExists
(
c
5354182
2
.
filter
,
1
,
nil
)
end
end
function
c
10120407
2
.
filter
(
c
)
function
c
5354182
2
.
filter
(
c
)
return
c
:
IsLocation
(
LOCATION_ONFIELD
)
and
c
:
IsCode
(
83104731
)
return
c
:
IsLocation
(
LOCATION_ONFIELD
)
and
c
:
IsCode
(
83104731
)
end
end
function
c
10120407
2
.
target
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
5354182
2
.
target
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
if
chk
==
0
then
local
chkf
=
tp
local
chkf
=
tp
local
mg1
=
Duel
.
GetFusionMaterial
(
tp
):
Filter
(
c
10120407
2
.
filter0
,
nil
)
local
mg1
=
Duel
.
GetFusionMaterial
(
tp
):
Filter
(
c
5354182
2
.
filter0
,
nil
)
local
mg2
=
Duel
.
GetMatchingGroup
(
c
10120407
2
.
filter3
,
tp
,
LOCATION_GRAVE
,
0
,
nil
)
local
mg2
=
Duel
.
GetMatchingGroup
(
c
5354182
2
.
filter3
,
tp
,
LOCATION_GRAVE
,
0
,
nil
)
mg1
:
Merge
(
mg2
)
mg1
:
Merge
(
mg2
)
aux
.
FCheckAdditional
=
c
10120407
2
.
fcheck
aux
.
FCheckAdditional
=
c
5354182
2
.
fcheck
local
res
=
Duel
.
IsExistingMatchingCard
(
c
10120407
2
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
,
mg1
,
nil
,
chkf
)
local
res
=
Duel
.
IsExistingMatchingCard
(
c
5354182
2
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
,
mg1
,
nil
,
chkf
)
if
not
res
then
if
not
res
then
local
ce
=
Duel
.
GetChainMaterial
(
tp
)
local
ce
=
Duel
.
GetChainMaterial
(
tp
)
if
ce
~=
nil
then
if
ce
~=
nil
then
local
fgroup
=
ce
:
GetTarget
()
local
fgroup
=
ce
:
GetTarget
()
local
mg3
=
fgroup
(
ce
,
e
,
tp
)
local
mg3
=
fgroup
(
ce
,
e
,
tp
)
local
mf
=
ce
:
GetValue
()
local
mf
=
ce
:
GetValue
()
res
=
Duel
.
IsExistingMatchingCard
(
c
10120407
2
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
,
mg3
,
mf
,
chkf
)
res
=
Duel
.
IsExistingMatchingCard
(
c
5354182
2
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
,
mg3
,
mf
,
chkf
)
end
end
end
end
aux
.
FCheckAdditional
=
nil
aux
.
FCheckAdditional
=
nil
...
@@ -77,13 +77,13 @@ function c101204072.target(e,tp,eg,ep,ev,re,r,rp,chk)
...
@@ -77,13 +77,13 @@ function c101204072.target(e,tp,eg,ep,ev,re,r,rp,chk)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_REMOVE
,
nil
,
1
,
tp
,
LOCATION_ONFIELD
+
LOCATION_GRAVE
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_REMOVE
,
nil
,
1
,
tp
,
LOCATION_ONFIELD
+
LOCATION_GRAVE
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOGRAVE
,
nil
,
0
,
1
-
tp
,
LOCATION_MZONE
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOGRAVE
,
nil
,
0
,
1
-
tp
,
LOCATION_MZONE
)
end
end
function
c
10120407
2
.
activate
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
5354182
2
.
activate
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
chkf
=
tp
local
chkf
=
tp
local
mg1
=
Duel
.
GetFusionMaterial
(
tp
):
Filter
(
c
10120407
2
.
filter1
,
nil
,
e
)
local
mg1
=
Duel
.
GetFusionMaterial
(
tp
):
Filter
(
c
5354182
2
.
filter1
,
nil
,
e
)
local
mg2
=
Duel
.
GetMatchingGroup
(
c
10120407
2
.
filter3
,
tp
,
LOCATION_GRAVE
,
0
,
nil
)
local
mg2
=
Duel
.
GetMatchingGroup
(
c
5354182
2
.
filter3
,
tp
,
LOCATION_GRAVE
,
0
,
nil
)
mg1
:
Merge
(
mg2
)
mg1
:
Merge
(
mg2
)
aux
.
FCheckAdditional
=
c
10120407
2
.
fcheck
aux
.
FCheckAdditional
=
c
5354182
2
.
fcheck
local
sg1
=
Duel
.
GetMatchingGroup
(
c
10120407
2
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
e
,
tp
,
mg1
,
nil
,
chkf
)
local
sg1
=
Duel
.
GetMatchingGroup
(
c
5354182
2
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
e
,
tp
,
mg1
,
nil
,
chkf
)
local
mg3
=
nil
local
mg3
=
nil
local
sg2
=
nil
local
sg2
=
nil
local
ce
=
Duel
.
GetChainMaterial
(
tp
)
local
ce
=
Duel
.
GetChainMaterial
(
tp
)
...
@@ -91,7 +91,7 @@ function c101204072.activate(e,tp,eg,ep,ev,re,r,rp)
...
@@ -91,7 +91,7 @@ function c101204072.activate(e,tp,eg,ep,ev,re,r,rp)
local
fgroup
=
ce
:
GetTarget
()
local
fgroup
=
ce
:
GetTarget
()
mg3
=
fgroup
(
ce
,
e
,
tp
)
mg3
=
fgroup
(
ce
,
e
,
tp
)
local
mf
=
ce
:
GetValue
()
local
mf
=
ce
:
GetValue
()
sg2
=
Duel
.
GetMatchingGroup
(
c
10120407
2
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
e
,
tp
,
mg3
,
mf
,
chkf
)
sg2
=
Duel
.
GetMatchingGroup
(
c
5354182
2
.
filter2
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
e
,
tp
,
mg3
,
mf
,
chkf
)
end
end
if
sg1
:
GetCount
()
>
0
or
(
sg2
~=
nil
and
sg2
:
GetCount
()
>
0
)
then
if
sg1
:
GetCount
()
>
0
or
(
sg2
~=
nil
and
sg2
:
GetCount
()
>
0
)
then
local
sg
=
sg1
:
Clone
()
local
sg
=
sg1
:
Clone
()
...
@@ -112,7 +112,7 @@ function c101204072.activate(e,tp,eg,ep,ev,re,r,rp)
...
@@ -112,7 +112,7 @@ function c101204072.activate(e,tp,eg,ep,ev,re,r,rp)
end
end
tc
:
CompleteProcedure
()
tc
:
CompleteProcedure
()
local
e1
=
Effect
.
CreateEffect
(
e
:
GetHandler
())
local
e1
=
Effect
.
CreateEffect
(
e
:
GetHandler
())
e1
:
SetDescription
(
aux
.
Stringid
(
10120407
2
,
2
))
e1
:
SetDescription
(
aux
.
Stringid
(
5354182
2
,
2
))
e1
:
SetType
(
EFFECT_TYPE_SINGLE
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
)
e1
:
SetProperty
(
EFFECT_FLAG_CLIENT_HINT
)
e1
:
SetProperty
(
EFFECT_FLAG_CLIENT_HINT
)
e1
:
SetCode
(
EFFECT_EXTRA_ATTACK
)
e1
:
SetCode
(
EFFECT_EXTRA_ATTACK
)
...
...
c5786513.lua
View file @
5c511c44
--時の沈黙-ターン・サイレンス
--時の沈黙-ターン・サイレンス
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
101204051
)
aux
.
AddCodeList
(
c
,
79791878
)
--level up
--level up
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetCategory
(
CATEGORY_DISABLE
)
e1
:
SetCategory
(
CATEGORY_DISABLE
)
...
@@ -32,10 +32,10 @@ function s.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
...
@@ -32,10 +32,10 @@ function s.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local
g
=
Duel
.
SelectTarget
(
tp
,
s
.
lvfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
1
,
nil
)
local
g
=
Duel
.
SelectTarget
(
tp
,
s
.
lvfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
1
,
nil
)
end
end
function
s
.
nfilter1
(
c
)
function
s
.
nfilter1
(
c
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
101204051
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
79791878
)
end
end
function
s
.
nfilter2
(
c
)
function
s
.
nfilter2
(
c
)
return
c
:
IsFaceup
()
and
aux
.
IsCodeListed
(
c
,
101204051
)
return
c
:
IsFaceup
()
and
aux
.
IsCodeListed
(
c
,
79791878
)
end
end
function
s
.
lvop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
s
.
lvop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
tc
=
Duel
.
GetFirstTarget
()
local
tc
=
Duel
.
GetFirstTarget
()
...
@@ -60,7 +60,7 @@ function s.bacon(e,tp,eg,ep,ev,re,r,rp)
...
@@ -60,7 +60,7 @@ function s.bacon(e,tp,eg,ep,ev,re,r,rp)
if
tc
:
IsControler
(
1
-
tp
)
then
tc
=
Duel
.
GetAttackTarget
()
end
if
tc
:
IsControler
(
1
-
tp
)
then
tc
=
Duel
.
GetAttackTarget
()
end
if
not
tc
then
return
false
end
if
not
tc
then
return
false
end
e
:
SetLabelObject
(
tc
)
e
:
SetLabelObject
(
tc
)
return
tc
:
IsFaceup
()
and
aux
.
IsCodeListed
(
tc
,
101204051
)
return
tc
:
IsFaceup
()
and
aux
.
IsCodeListed
(
tc
,
79791878
)
end
end
function
s
.
baop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
s
.
baop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
...
...
c64603182.lua
View file @
5c511c44
--古代の機械暗黒巨人
--古代の機械暗黒巨人
function
c
101204006
.
initial_effect
(
c
)
function
c
64603182
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
83104731
)
aux
.
AddCodeList
(
c
,
83104731
)
aux
.
EnableChangeCode
(
c
,
83104731
,
LOCATION_MZONE
+
LOCATION_GRAVE
)
aux
.
EnableChangeCode
(
c
,
83104731
,
LOCATION_MZONE
+
LOCATION_GRAVE
)
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
101204006
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
64603182
,
0
))
e1
:
SetCategory
(
CATEGORY_SEARCH
+
CATEGORY_TOHAND
+
CATEGORY_HANDES
)
e1
:
SetCategory
(
CATEGORY_SEARCH
+
CATEGORY_TOHAND
+
CATEGORY_HANDES
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e1
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e1
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e1
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e1
:
SetCountLimit
(
1
,
101204006
)
e1
:
SetCountLimit
(
1
,
64603182
)
e1
:
SetTarget
(
c
101204006
.
thtg
)
e1
:
SetTarget
(
c
64603182
.
thtg
)
e1
:
SetOperation
(
c
101204006
.
thop
)
e1
:
SetOperation
(
c
64603182
.
thop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
e1
:
Clone
()
local
e2
=
e1
:
Clone
()
e2
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e2
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
...
@@ -21,20 +21,20 @@ function c101204006.initial_effect(c)
...
@@ -21,20 +21,20 @@ function c101204006.initial_effect(c)
e3
:
SetCode
(
EFFECT_CANNOT_ACTIVATE
)
e3
:
SetCode
(
EFFECT_CANNOT_ACTIVATE
)
e3
:
SetRange
(
LOCATION_MZONE
)
e3
:
SetRange
(
LOCATION_MZONE
)
e3
:
SetTargetRange
(
0
,
1
)
e3
:
SetTargetRange
(
0
,
1
)
e3
:
SetValue
(
c
101204006
.
aclimit
)
e3
:
SetValue
(
c
64603182
.
aclimit
)
e3
:
SetCondition
(
c
101204006
.
actcon
)
e3
:
SetCondition
(
c
64603182
.
actcon
)
c
:
RegisterEffect
(
e3
)
c
:
RegisterEffect
(
e3
)
end
end
function
c
101204006
.
thfilter
(
c
)
function
c
64603182
.
thfilter
(
c
)
return
not
c
:
IsCode
(
101204006
)
and
(
c
:
IsSetCard
(
0x7
)
or
c
:
IsCode
(
37694547
))
and
c
:
IsAbleToHand
()
return
not
c
:
IsCode
(
64603182
)
and
(
c
:
IsSetCard
(
0x7
)
or
c
:
IsCode
(
37694547
))
and
c
:
IsAbleToHand
()
end
end
function
c
101204006
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
64603182
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
101204006
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
64603182
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_DECK
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_DECK
)
end
end
function
c
101204006
.
thop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
64603182
.
thop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
101204006
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
2
,
nil
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
64603182
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
2
,
nil
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
...
@@ -58,15 +58,15 @@ function c101204006.thop(e,tp,eg,ep,ev,re,r,rp)
...
@@ -58,15 +58,15 @@ function c101204006.thop(e,tp,eg,ep,ev,re,r,rp)
Duel
.
RegisterEffect
(
e3
,
tp
)
Duel
.
RegisterEffect
(
e3
,
tp
)
local
e4
=
e1
:
Clone
()
local
e4
=
e1
:
Clone
()
e4
:
SetCode
(
EFFECT_LIMIT_SPECIAL_SUMMON_POSITION
)
e4
:
SetCode
(
EFFECT_LIMIT_SPECIAL_SUMMON_POSITION
)
e4
:
SetTarget
(
c
101204006
.
sumlimit
)
e4
:
SetTarget
(
c
64603182
.
sumlimit
)
Duel
.
RegisterEffect
(
e4
,
tp
)
Duel
.
RegisterEffect
(
e4
,
tp
)
end
end
function
c
101204006
.
sumlimit
(
e
,
c
,
sump
,
sumtype
,
sumpos
,
targetp
)
function
c
64603182
.
sumlimit
(
e
,
c
,
sump
,
sumtype
,
sumpos
,
targetp
)
return
bit
.
band
(
sumpos
,
POS_FACEDOWN
)
>
0
return
bit
.
band
(
sumpos
,
POS_FACEDOWN
)
>
0
end
end
function
c
101204006
.
aclimit
(
e
,
re
,
tp
)
function
c
64603182
.
aclimit
(
e
,
re
,
tp
)
return
re
:
IsHasType
(
EFFECT_TYPE_ACTIVATE
)
return
re
:
IsHasType
(
EFFECT_TYPE_ACTIVATE
)
end
end
function
c
101204006
.
actcon
(
e
)
function
c
64603182
.
actcon
(
e
)
return
Duel
.
GetAttacker
()
==
e
:
GetHandler
()
return
Duel
.
GetAttacker
()
==
e
:
GetHandler
()
end
end
\ No newline at end of file
c64881644.lua
View file @
5c511c44
--幻奏の歌姫ルフラン
--幻奏の歌姫ルフラン
function
c
101204009
.
initial_effect
(
c
)
function
c
64881644
.
initial_effect
(
c
)
aux
.
EnablePendulumAttribute
(
c
)
aux
.
EnablePendulumAttribute
(
c
)
local
e0
=
Effect
.
CreateEffect
(
c
)
local
e0
=
Effect
.
CreateEffect
(
c
)
e0
:
SetDescription
(
aux
.
Stringid
(
101204009
,
0
))
e0
:
SetDescription
(
aux
.
Stringid
(
64881644
,
0
))
e0
:
SetCategory
(
CATEGORY_ATKCHANGE
)
e0
:
SetCategory
(
CATEGORY_ATKCHANGE
)
e0
:
SetType
(
EFFECT_TYPE_IGNITION
)
e0
:
SetType
(
EFFECT_TYPE_IGNITION
)
e0
:
SetRange
(
LOCATION_PZONE
)
e0
:
SetRange
(
LOCATION_PZONE
)
e0
:
SetProperty
(
EFFECT_FLAG_CARD_TARGET
)
e0
:
SetProperty
(
EFFECT_FLAG_CARD_TARGET
)
e0
:
SetCountLimit
(
1
,
101204009
)
e0
:
SetCountLimit
(
1
,
64881644
)
e0
:
SetTarget
(
c
101204009
.
atktg
)
e0
:
SetTarget
(
c
64881644
.
atktg
)
e0
:
SetOperation
(
c
101204009
.
atkop
)
e0
:
SetOperation
(
c
64881644
.
atkop
)
c
:
RegisterEffect
(
e0
)
c
:
RegisterEffect
(
e0
)
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
101204009
,
1
))
e1
:
SetDescription
(
aux
.
Stringid
(
64881644
,
1
))
e1
:
SetCategory
(
CATEGORY_SEARCH
+
CATEGORY_TOHAND
)
e1
:
SetCategory
(
CATEGORY_SEARCH
+
CATEGORY_TOHAND
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e1
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e1
:
SetCountLimit
(
1
,
101204109
)
e1
:
SetCountLimit
(
1
,
64881645
)
e1
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e1
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e1
:
SetTarget
(
c
101204009
.
thtg
)
e1
:
SetTarget
(
c
64881644
.
thtg
)
e1
:
SetOperation
(
c
101204009
.
thop
)
e1
:
SetOperation
(
c
64881644
.
thop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
e1
:
Clone
()
local
e2
=
e1
:
Clone
()
e2
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e2
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
local
e3
=
Effect
.
CreateEffect
(
c
)
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetDescription
(
aux
.
Stringid
(
101204009
,
2
))
e3
:
SetDescription
(
aux
.
Stringid
(
64881644
,
2
))
e3
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e3
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e3
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e3
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e3
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e3
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e3
:
SetRange
(
LOCATION_EXTRA
)
e3
:
SetRange
(
LOCATION_EXTRA
)
e3
:
SetCountLimit
(
1
,
101204209
)
e3
:
SetCountLimit
(
1
,
64881646
)
e3
:
SetCondition
(
c
101204009
.
pencon
)
e3
:
SetCondition
(
c
64881644
.
pencon
)
e3
:
SetTarget
(
c
101204009
.
pentg
)
e3
:
SetTarget
(
c
64881644
.
pentg
)
e3
:
SetOperation
(
c
101204009
.
penop
)
e3
:
SetOperation
(
c
64881644
.
penop
)
c
:
RegisterEffect
(
e3
)
c
:
RegisterEffect
(
e3
)
end
end
function
c
101204009
.
tgfilter
(
c
)
function
c
64881644
.
tgfilter
(
c
)
return
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsAbleToGrave
()
return
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsAbleToGrave
()
end
end
function
c
101204009
.
filter
(
c
)
function
c
64881644
.
filter
(
c
)
return
c
:
IsType
(
TYPE_FUSION
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsFaceup
()
return
c
:
IsType
(
TYPE_FUSION
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsFaceup
()
end
end
function
c
101204009
.
atktg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
function
c
64881644
.
atktg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
if
chkc
then
return
chkc
:
IsLocation
(
LOCATION_MZONE
)
and
chkc
:
IsControler
(
tp
)
and
c
101204009
.
filter
(
chkc
)
end
if
chkc
then
return
chkc
:
IsLocation
(
LOCATION_MZONE
)
and
chkc
:
IsControler
(
tp
)
and
c
64881644
.
filter
(
chkc
)
end
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
c
101204009
.
filter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
nil
)
and
Duel
.
IsExistingMatchingCard
(
c101204009
.
tgfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
c
64881644
.
filter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
nil
)
and
Duel
.
IsExistingMatchingCard
(
c64881644
.
tgfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_FACEUP
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_FACEUP
)
local
g
=
Duel
.
SelectTarget
(
tp
,
c
101204009
.
filter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
1
,
nil
)
local
g
=
Duel
.
SelectTarget
(
tp
,
c
64881644
.
filter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
1
,
nil
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_ATKCHANGE
,
g
,
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_ATKCHANGE
,
g
,
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOGRAVE
,
nil
,
1
,
tp
,
LOCATION_DECK
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOGRAVE
,
nil
,
1
,
tp
,
LOCATION_DECK
)
end
end
function
c
101204009
.
atkop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
64881644
.
atkop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_TOGRAVE
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_TOGRAVE
)
local
tg
=
Duel
.
SelectMatchingCard
(
tp
,
c
101204009
.
tgfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
):
GetFirst
()
local
tg
=
Duel
.
SelectMatchingCard
(
tp
,
c
64881644
.
tgfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
):
GetFirst
()
if
tg
and
Duel
.
SendtoGrave
(
tg
,
REASON_COST
)
~=
0
and
tg
:
IsLocation
(
LOCATION_GRAVE
)
then
if
tg
and
Duel
.
SendtoGrave
(
tg
,
REASON_COST
)
~=
0
and
tg
:
IsLocation
(
LOCATION_GRAVE
)
then
local
tc
=
Duel
.
GetFirstTarget
()
local
tc
=
Duel
.
GetFirstTarget
()
if
tc
:
IsRelateToEffect
(
e
)
and
tc
:
IsFaceup
()
then
if
tc
:
IsRelateToEffect
(
e
)
and
tc
:
IsFaceup
()
then
...
@@ -66,31 +66,31 @@ function c101204009.atkop(e,tp,eg,ep,ev,re,r,rp)
...
@@ -66,31 +66,31 @@ function c101204009.atkop(e,tp,eg,ep,ev,re,r,rp)
end
end
end
end
end
end
function
c
101204009
.
thfilter
(
c
)
function
c
64881644
.
thfilter
(
c
)
return
not
c
:
IsCode
(
101204009
)
and
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsAbleToHand
()
return
not
c
:
IsCode
(
64881644
)
and
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsAbleToHand
()
end
end
function
c
101204009
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
64881644
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
101204009
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
64881644
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_DECK
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_DECK
)
end
end
function
c
101204009
.
thop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
64881644
.
thop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
101204009
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
64881644
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
)
if
#
g
>
0
then
if
#
g
>
0
then
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
end
end
end
end
function
c
101204009
.
cfilter
(
c
,
tp
)
function
c
64881644
.
cfilter
(
c
,
tp
)
return
c
:
IsFaceup
()
and
c
:
IsType
(
TYPE_FUSION
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsControler
(
tp
)
return
c
:
IsFaceup
()
and
c
:
IsType
(
TYPE_FUSION
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsControler
(
tp
)
end
end
function
c
101204009
.
pencon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
64881644
.
pencon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
e
:
GetHandler
():
IsFaceup
()
and
eg
:
IsExists
(
c
101204009
.
cfilter
,
1
,
nil
,
tp
)
return
e
:
GetHandler
():
IsFaceup
()
and
eg
:
IsExists
(
c
64881644
.
cfilter
,
1
,
nil
,
tp
)
end
end
function
c
101204009
.
pentg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
64881644
.
pentg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
0
)
or
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
1
)
end
if
chk
==
0
then
return
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
0
)
or
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
1
)
end
end
end
function
c
101204009
.
penop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
64881644
.
penop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
if
c
:
IsRelateToEffect
(
e
)
and
(
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
0
)
or
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
1
))
then
if
c
:
IsRelateToEffect
(
e
)
and
(
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
0
)
or
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
1
))
then
Duel
.
MoveToField
(
c
,
tp
,
tp
,
LOCATION_PZONE
,
POS_FACEUP
,
true
)
Duel
.
MoveToField
(
c
,
tp
,
tp
,
LOCATION_PZONE
,
POS_FACEUP
,
true
)
...
...
c65326118.lua
View file @
5c511c44
--天盃龍ファドラ
--天盃龍ファドラ
function
c
101204017
.
initial_effect
(
c
)
function
c
65326118
.
initial_effect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
101204017
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
65326118
,
0
))
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetProperty
(
EFFECT_FLAG_CARD_TARGET
+
EFFECT_FLAG_DELAY
)
e1
:
SetProperty
(
EFFECT_FLAG_CARD_TARGET
+
EFFECT_FLAG_DELAY
)
e1
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e1
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e1
:
SetCountLimit
(
1
,
101204017
)
e1
:
SetCountLimit
(
1
,
65326118
)
e1
:
SetTarget
(
c
101204017
.
sptg
)
e1
:
SetTarget
(
c
65326118
.
sptg
)
e1
:
SetOperation
(
c
101204017
.
spop
)
e1
:
SetOperation
(
c
65326118
.
spop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
e1
:
Clone
()
local
e2
=
e1
:
Clone
()
e2
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e2
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
...
@@ -23,59 +23,59 @@ function c101204017.initial_effect(c)
...
@@ -23,59 +23,59 @@ function c101204017.initial_effect(c)
e4
:
SetCode
(
EFFECT_INDESTRUCTABLE_BATTLE
)
e4
:
SetCode
(
EFFECT_INDESTRUCTABLE_BATTLE
)
e4
:
SetRange
(
LOCATION_MZONE
)
e4
:
SetRange
(
LOCATION_MZONE
)
e4
:
SetTargetRange
(
LOCATION_MZONE
,
0
)
e4
:
SetTargetRange
(
LOCATION_MZONE
,
0
)
e4
:
SetTarget
(
c
101204017
.
indtg
)
e4
:
SetTarget
(
c
65326118
.
indtg
)
e4
:
SetValue
(
1
)
e4
:
SetValue
(
1
)
c
:
RegisterEffect
(
e4
)
c
:
RegisterEffect
(
e4
)
local
e5
=
Effect
.
CreateEffect
(
c
)
local
e5
=
Effect
.
CreateEffect
(
c
)
e5
:
SetDescription
(
aux
.
Stringid
(
101204017
,
2
))
e5
:
SetDescription
(
aux
.
Stringid
(
65326118
,
2
))
e5
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e5
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e5
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e5
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e5
:
SetCode
(
EVENT_FREE_CHAIN
)
e5
:
SetCode
(
EVENT_FREE_CHAIN
)
e5
:
SetHintTiming
(
0
,
TIMING_BATTLE_START
+
TIMING_BATTLE_STEP_END
+
TIMING_BATTLE_END
)
e5
:
SetHintTiming
(
0
,
TIMING_BATTLE_START
+
TIMING_BATTLE_STEP_END
+
TIMING_BATTLE_END
)
e5
:
SetRange
(
LOCATION_MZONE
)
e5
:
SetRange
(
LOCATION_MZONE
)
e5
:
SetCountLimit
(
1
)
e5
:
SetCountLimit
(
1
)
e5
:
SetCondition
(
c
101204017
.
sccon
)
e5
:
SetCondition
(
c
65326118
.
sccon
)
e5
:
SetTarget
(
c
101204017
.
sctg
)
e5
:
SetTarget
(
c
65326118
.
sctg
)
e5
:
SetOperation
(
c
101204017
.
scop
)
e5
:
SetOperation
(
c
65326118
.
scop
)
c
:
RegisterEffect
(
e5
)
c
:
RegisterEffect
(
e5
)
end
end
function
c
101204017
.
filter
(
c
,
e
,
tp
)
function
c
65326118
.
filter
(
c
,
e
,
tp
)
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
and
c
:
IsLevelBelow
(
4
)
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
and
c
:
IsLevelBelow
(
4
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
end
function
c
101204017
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
function
c
65326118
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
if
chkc
then
return
chkc
:
IsLocation
(
LOCATION_GRAVE
)
and
chkc
:
IsControler
(
tp
)
and
c
101204017
.
filter
(
chkc
,
e
,
tp
)
end
if
chkc
then
return
chkc
:
IsLocation
(
LOCATION_GRAVE
)
and
chkc
:
IsControler
(
tp
)
and
c
65326118
.
filter
(
chkc
,
e
,
tp
)
end
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
and
Duel
.
IsExistingTarget
(
c
101204017
.
filter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
nil
,
e
,
tp
)
end
and
Duel
.
IsExistingTarget
(
c
65326118
.
filter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
nil
,
e
,
tp
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
g
=
Duel
.
SelectTarget
(
tp
,
c
101204017
.
filter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
1
,
nil
,
e
,
tp
)
local
g
=
Duel
.
SelectTarget
(
tp
,
c
65326118
.
filter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
1
,
nil
,
e
,
tp
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
g
,
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
g
,
1
,
0
,
0
)
end
end
function
c
101204017
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
65326118
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
local
tc
=
Duel
.
GetFirstTarget
()
local
tc
=
Duel
.
GetFirstTarget
()
if
tc
:
IsRelateToEffect
(
e
)
then
if
tc
:
IsRelateToEffect
(
e
)
then
Duel
.
SpecialSummon
(
tc
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
Duel
.
SpecialSummon
(
tc
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
end
end
end
end
function
c
101204017
.
indtg
(
e
,
c
)
function
c
65326118
.
indtg
(
e
,
c
)
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
end
end
function
c
101204017
.
sccon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
65326118
.
sccon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
ph
=
Duel
.
GetCurrentPhase
()
local
ph
=
Duel
.
GetCurrentPhase
()
return
ph
>=
PHASE_BATTLE_START
and
ph
<=
PHASE_BATTLE
return
ph
>=
PHASE_BATTLE_START
and
ph
<=
PHASE_BATTLE
end
end
function
c
101204017
.
mfilter
(
c
)
function
c
65326118
.
mfilter
(
c
)
return
not
c
:
IsStatus
(
STATUS_SUMMONING
)
return
not
c
:
IsStatus
(
STATUS_SUMMONING
)
end
end
function
c
101204017
.
sctg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
65326118
.
sctg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
local
mg
=
Duel
.
GetMatchingGroup
(
c
101204017
.
mfilter
,
tp
,
LOCATION_MZONE
,
0
,
nil
)
local
mg
=
Duel
.
GetMatchingGroup
(
c
65326118
.
mfilter
,
tp
,
LOCATION_MZONE
,
0
,
nil
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
Card
.
IsSynchroSummonable
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
:
GetHandler
(),
mg
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
Card
.
IsSynchroSummonable
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
:
GetHandler
(),
mg
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_EXTRA
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_EXTRA
)
end
end
function
c
101204017
.
scop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
65326118
.
scop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
local
mg
=
Duel
.
GetMatchingGroup
(
c
101204017
.
mfilter
,
tp
,
LOCATION_MZONE
,
0
,
nil
)
local
mg
=
Duel
.
GetMatchingGroup
(
c
65326118
.
mfilter
,
tp
,
LOCATION_MZONE
,
0
,
nil
)
if
c
:
IsControler
(
1
-
tp
)
or
not
c
:
IsRelateToEffect
(
e
)
or
c
:
IsFacedown
()
then
return
end
if
c
:
IsControler
(
1
-
tp
)
or
not
c
:
IsRelateToEffect
(
e
)
or
c
:
IsFacedown
()
then
return
end
local
g
=
Duel
.
GetMatchingGroup
(
Card
.
IsSynchroSummonable
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
c
,
mg
)
local
g
=
Duel
.
GetMatchingGroup
(
Card
.
IsSynchroSummonable
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
c
,
mg
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
...
...
c65726770.lua
View file @
5c511c44
--サイレント・マジシャン・ゼロ
--サイレント・マジシャン・ゼロ
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
101204051
)
aux
.
AddCodeList
(
c
,
79791878
)
--level up
--level up
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
...
@@ -55,7 +55,7 @@ function s.value(e,c)
...
@@ -55,7 +55,7 @@ function s.value(e,c)
return
math.max
(
0
,
c
:
GetLevel
()
-
c
:
GetOriginalLevel
())
*
500
return
math.max
(
0
,
c
:
GetLevel
()
-
c
:
GetOriginalLevel
())
*
500
end
end
function
s
.
cfilter
(
c
)
function
s
.
cfilter
(
c
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
101204051
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
79791878
)
end
end
function
s
.
negcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
s
.
negcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
...
...
c66730191.lua
View file @
5c511c44
--燦幻開門
--燦幻開門
function
c
101204060
.
initial_effect
(
c
)
function
c
66730191
.
initial_effect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetCategory
(
CATEGORY_TOHAND
+
CATEGORY_SEARCH
+
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetCategory
(
CATEGORY_TOHAND
+
CATEGORY_SEARCH
+
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
e1
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
e1
:
SetCode
(
EVENT_FREE_CHAIN
)
e1
:
SetCode
(
EVENT_FREE_CHAIN
)
e1
:
SetCountLimit
(
1
,
101204060
+
EFFECT_COUNT_CODE_OATH
)
e1
:
SetCountLimit
(
1
,
66730191
+
EFFECT_COUNT_CODE_OATH
)
e1
:
SetTarget
(
c
101204060
.
target
)
e1
:
SetTarget
(
c
66730191
.
target
)
e1
:
SetOperation
(
c
101204060
.
activate
)
e1
:
SetOperation
(
c
66730191
.
activate
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
end
end
function
c
101204060
.
filter
(
c
)
function
c
66730191
.
filter
(
c
)
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
and
c
:
IsLevelBelow
(
4
)
and
c
:
IsAbleToHand
()
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
and
c
:
IsLevelBelow
(
4
)
and
c
:
IsAbleToHand
()
end
end
function
c
101204060
.
spfilter
(
c
,
e
,
tp
)
function
c
66730191
.
spfilter
(
c
,
e
,
tp
)
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
end
function
c
101204060
.
target
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
66730191
.
target
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
101204060
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
or
Duel
.
IsExistingMatchingCard
(
c101204060
.
spfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
e
,
tp
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
66730191
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
or
Duel
.
IsExistingMatchingCard
(
c66730191
.
spfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
e
,
tp
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_DECK
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_DECK
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_HAND
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_HAND
)
end
end
function
c
101204060
.
activate
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
66730191
.
activate
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
ph
=
Duel
.
GetCurrentPhase
()
local
ph
=
Duel
.
GetCurrentPhase
()
local
op
=
0
local
op
=
0
if
Duel
.
IsExistingMatchingCard
(
c
101204060
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
then
if
Duel
.
IsExistingMatchingCard
(
c
66730191
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
then
if
not
Duel
.
IsExistingMatchingCard
(
c
101204060
.
spfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
e
,
tp
)
or
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>=
1
and
Duel
.
IsExistingMatchingCard
(
c101204060
.
spfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
e
,
tp
)
and
Duel
.
SelectYesNo
(
tp
,
aux
.
Stringid
(
101204060
,
1
))
then
if
not
Duel
.
IsExistingMatchingCard
(
c
66730191
.
spfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
e
,
tp
)
or
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>=
1
and
Duel
.
IsExistingMatchingCard
(
c66730191
.
spfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
e
,
tp
)
and
Duel
.
SelectYesNo
(
tp
,
aux
.
Stringid
(
66730191
,
1
))
then
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
101204060
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
66730191
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
...
@@ -36,12 +36,12 @@ function c101204060.activate(e,tp,eg,ep,ev,re,r,rp)
...
@@ -36,12 +36,12 @@ function c101204060.activate(e,tp,eg,ep,ev,re,r,rp)
end
end
end
end
Duel
.
AdjustAll
()
Duel
.
AdjustAll
()
if
op
==
0
or
Duel
.
IsExistingMatchingCard
(
c
101204060
.
spfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
e
,
tp
)
and
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>=
1
and
ph
>=
PHASE_BATTLE_START
and
ph
<=
PHASE_BATTLE
and
Duel
.
SelectYesNo
(
tp
,
aux
.
Stringid
(
101204060
,
2
))
then
if
op
==
0
or
Duel
.
IsExistingMatchingCard
(
c
66730191
.
spfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
nil
,
e
,
tp
)
and
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>=
1
and
ph
>=
PHASE_BATTLE_START
and
ph
<=
PHASE_BATTLE
and
Duel
.
SelectYesNo
(
tp
,
aux
.
Stringid
(
66730191
,
2
))
then
if
op
~=
0
then
if
op
~=
0
then
Duel
.
BreakEffect
()
Duel
.
BreakEffect
()
end
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
101204060
.
spfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
1
,
nil
,
e
,
tp
,
e
,
tp
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
66730191
.
spfilter
,
tp
,
LOCATION_HAND
,
0
,
1
,
1
,
nil
,
e
,
tp
,
e
,
tp
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
Duel
.
SpecialSummon
(
g
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
Duel
.
SpecialSummon
(
g
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
end
end
...
...
c78679226.lua
View file @
5c511c44
--未来への沈黙
--未来への沈黙
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
101204051
)
aux
.
AddCodeList
(
c
,
79791878
)
--Activate without draw
--Activate without draw
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetCategory
(
CATEGORY_TOHAND
+
CATEGORY_SEARCH
)
e1
:
SetCategory
(
CATEGORY_TOHAND
+
CATEGORY_SEARCH
)
...
@@ -21,10 +21,10 @@ function s.initial_effect(c)
...
@@ -21,10 +21,10 @@ function s.initial_effect(c)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
end
end
function
s
.
sfilter
(
c
)
function
s
.
sfilter
(
c
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
101204051
)
return
c
:
IsFaceup
()
and
c
:
IsCode
(
79791878
)
end
end
function
s
.
mfilter
(
c
)
function
s
.
mfilter
(
c
)
return
c
:
IsFaceup
()
and
aux
.
IsCodeListed
(
c
,
101204051
)
and
c
:
IsType
(
TYPE_MONSTER
)
return
c
:
IsFaceup
()
and
aux
.
IsCodeListed
(
c
,
79791878
)
and
c
:
IsType
(
TYPE_MONSTER
)
end
end
function
s
.
ndcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
s
.
ndcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
not
s
.
dcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
not
s
.
dcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
...
@@ -34,7 +34,7 @@ function s.dcon(e,tp,eg,ep,ev,re,r,rp)
...
@@ -34,7 +34,7 @@ function s.dcon(e,tp,eg,ep,ev,re,r,rp)
and
Duel
.
IsExistingMatchingCard
(
s
.
sfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
and
Duel
.
IsExistingMatchingCard
(
s
.
mfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
nil
)
and
Duel
.
IsExistingMatchingCard
(
s
.
sfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
and
Duel
.
IsExistingMatchingCard
(
s
.
mfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
nil
)
end
end
function
s
.
filter
(
c
)
function
s
.
filter
(
c
)
return
aux
.
IsCodeListed
(
c
,
101204051
)
and
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsAbleToHand
()
return
aux
.
IsCodeListed
(
c
,
79791878
)
and
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsAbleToHand
()
end
end
function
s
.
ndtarget
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
s
.
ndtarget
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
s
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
s
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
...
...
c79791878.lua
View file @
5c511c44
--光の黄金櫃
--光の黄金櫃
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
101204051
)
aux
.
AddCodeList
(
c
,
79791878
)
--Activate
--Activate
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
e1
:
SetType
(
EFFECT_TYPE_ACTIVATE
)
...
...
c82570174.lua
View file @
5c511c44
--燦幻昇龍バイデント·ドラギオン
--燦幻昇龍バイデント·ドラギオン
function
c
101204039
.
initial_effect
(
c
)
function
c
82570174
.
initial_effect
(
c
)
aux
.
AddSynchroProcedure
(
c
,
aux
.
FilterBoolFunction
(
Card
.
IsRace
,
RACE_DRAGON
),
aux
.
NonTuner
(
Card
.
IsRace
,
RACE_DRAGON
),
1
)
aux
.
AddSynchroProcedure
(
c
,
aux
.
FilterBoolFunction
(
Card
.
IsRace
,
RACE_DRAGON
),
aux
.
NonTuner
(
Card
.
IsRace
,
RACE_DRAGON
),
1
)
c
:
EnableReviveLimit
()
c
:
EnableReviveLimit
()
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
101204039
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
82570174
,
0
))
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e1
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e1
:
SetProperty
(
EFFECT_FLAG_CARD_TARGET
+
EFFECT_FLAG_DELAY
)
e1
:
SetProperty
(
EFFECT_FLAG_CARD_TARGET
+
EFFECT_FLAG_DELAY
)
e1
:
SetCountLimit
(
1
,
101204039
)
e1
:
SetCountLimit
(
1
,
82570174
)
e1
:
SetCondition
(
c
101204039
.
spcon
)
e1
:
SetCondition
(
c
82570174
.
spcon
)
e1
:
SetTarget
(
c
101204039
.
sptg
)
e1
:
SetTarget
(
c
82570174
.
sptg
)
e1
:
SetOperation
(
c
101204039
.
spop
)
e1
:
SetOperation
(
c
82570174
.
spop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetDescription
(
aux
.
Stringid
(
101204039
,
1
))
e2
:
SetDescription
(
aux
.
Stringid
(
82570174
,
1
))
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
+
CATEGORY_DESTROY
)
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
+
CATEGORY_DESTROY
)
e2
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e2
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e2
:
SetCode
(
EVENT_FREE_CHAIN
)
e2
:
SetCode
(
EVENT_FREE_CHAIN
)
e2
:
SetHintTiming
(
0
,
TIMING_BATTLE_START
+
TIMING_ATTACK
+
TIMINGS_CHECK_MONSTER
+
TIMING_MAIN_END
)
e2
:
SetHintTiming
(
0
,
TIMING_BATTLE_START
+
TIMING_ATTACK
+
TIMINGS_CHECK_MONSTER
+
TIMING_MAIN_END
)
e2
:
SetRange
(
LOCATION_GRAVE
)
e2
:
SetRange
(
LOCATION_GRAVE
)
e2
:
SetCountLimit
(
1
,
101204139
+
EFFECT_COUNT_CODE_DUEL
)
e2
:
SetCountLimit
(
1
,
82570175
+
EFFECT_COUNT_CODE_DUEL
)
e2
:
SetCondition
(
c
101204039
.
spcon2
)
e2
:
SetCondition
(
c
82570174
.
spcon2
)
e2
:
SetCost
(
c
101204039
.
spcost2
)
e2
:
SetCost
(
c
82570174
.
spcost2
)
e2
:
SetTarget
(
c
101204039
.
sptg2
)
e2
:
SetTarget
(
c
82570174
.
sptg2
)
e2
:
SetOperation
(
c
101204039
.
spop2
)
e2
:
SetOperation
(
c
82570174
.
spop2
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
if
not
c
101204039
.
global_check
then
if
not
c
82570174
.
global_check
then
c
101204039
.
global_check
=
true
c
82570174
.
global_check
=
true
local
ge1
=
Effect
.
GlobalEffect
()
local
ge1
=
Effect
.
GlobalEffect
()
ge1
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
ge1
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
ge1
:
SetCode
(
EVENT_ATTACK_ANNOUNCE
)
ge1
:
SetCode
(
EVENT_ATTACK_ANNOUNCE
)
ge1
:
SetOperation
(
c
101204039
.
checkop
)
ge1
:
SetOperation
(
c
82570174
.
checkop
)
Duel
.
RegisterEffect
(
ge1
,
0
)
Duel
.
RegisterEffect
(
ge1
,
0
)
end
end
end
end
function
c
101204039
.
checkop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
82570174
.
checkop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
RegisterFlagEffect
(
tp
,
101204039
,
RESET_PHASE
+
PHASE_END
,
0
,
1
)
Duel
.
RegisterFlagEffect
(
tp
,
82570174
,
RESET_PHASE
+
PHASE_END
,
0
,
1
)
Duel
.
RegisterFlagEffect
(
1
-
tp
,
101204039
,
RESET_PHASE
+
PHASE_END
,
0
,
1
)
Duel
.
RegisterFlagEffect
(
1
-
tp
,
82570174
,
RESET_PHASE
+
PHASE_END
,
0
,
1
)
end
end
function
c
101204039
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
82570174
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
e
:
GetHandler
():
IsSummonType
(
SUMMON_TYPE_SYNCHRO
)
return
e
:
GetHandler
():
IsSummonType
(
SUMMON_TYPE_SYNCHRO
)
end
end
function
c
101204039
.
spfilter
(
c
,
e
,
tp
)
function
c
82570174
.
spfilter
(
c
,
e
,
tp
)
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
end
function
c
101204039
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
function
c
82570174
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
if
chkc
then
return
chkc
:
IsControler
(
tp
)
and
chkc
:
IsLocation
(
LOCATION_GRAVE
)
and
c
101204039
.
spfilter
(
chkc
,
e
,
tp
)
end
if
chkc
then
return
chkc
:
IsControler
(
tp
)
and
chkc
:
IsLocation
(
LOCATION_GRAVE
)
and
c
82570174
.
spfilter
(
chkc
,
e
,
tp
)
end
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
and
Duel
.
IsExistingTarget
(
c
101204039
.
spfilter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
nil
,
e
,
tp
)
end
and
Duel
.
IsExistingTarget
(
c
82570174
.
spfilter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
nil
,
e
,
tp
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
g
=
Duel
.
SelectTarget
(
tp
,
c
101204039
.
spfilter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
1
,
nil
,
e
,
tp
)
local
g
=
Duel
.
SelectTarget
(
tp
,
c
82570174
.
spfilter
,
tp
,
LOCATION_GRAVE
,
0
,
1
,
1
,
nil
,
e
,
tp
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
g
,
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
g
,
1
,
0
,
0
)
end
end
function
c
101204039
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
82570174
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
local
tc
=
Duel
.
GetFirstTarget
()
local
tc
=
Duel
.
GetFirstTarget
()
if
tc
:
IsRelateToEffect
(
e
)
then
if
tc
:
IsRelateToEffect
(
e
)
then
...
@@ -69,26 +69,26 @@ function c101204039.spop(e,tp,eg,ep,ev,re,r,rp)
...
@@ -69,26 +69,26 @@ function c101204039.spop(e,tp,eg,ep,ev,re,r,rp)
e1
:
SetReset
(
RESET_PHASE
+
PHASE_END
)
e1
:
SetReset
(
RESET_PHASE
+
PHASE_END
)
Duel
.
RegisterEffect
(
e1
,
tp
)
Duel
.
RegisterEffect
(
e1
,
tp
)
end
end
function
c
101204039
.
spcon2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
82570174
.
spcon2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
Duel
.
GetFlagEffect
(
tp
,
101204039
)
>=
3
return
Duel
.
GetFlagEffect
(
tp
,
82570174
)
>=
3
end
end
function
c
101204039
.
spcost2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
82570174
.
spcost2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
if
chk
==
0
then
return
true
end
if
chk
==
0
then
return
true
end
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
101204039
,
3
))
e1
:
SetDescription
(
aux
.
Stringid
(
82570174
,
3
))
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetProperty
(
EFFECT_FLAG_PLAYER_TARGET
+
EFFECT_FLAG_CLIENT_HINT
)
e1
:
SetProperty
(
EFFECT_FLAG_PLAYER_TARGET
+
EFFECT_FLAG_CLIENT_HINT
)
e1
:
SetTargetRange
(
1
,
0
)
e1
:
SetTargetRange
(
1
,
0
)
Duel
.
RegisterEffect
(
e1
,
tp
)
Duel
.
RegisterEffect
(
e1
,
tp
)
end
end
function
c
101204039
.
sptg2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
82570174
.
sptg2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
and
e
:
GetHandler
():
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
and
e
:
GetHandler
():
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
e
:
GetHandler
(),
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
e
:
GetHandler
(),
1
,
0
,
0
)
end
end
function
c
101204039
.
spop2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
82570174
.
spop2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
if
c
:
IsRelateToEffect
(
e
)
and
Duel
.
SpecialSummon
(
c
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
>
0
and
Duel
.
IsExistingMatchingCard
(
Card
.
IsType
,
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
,
1
,
nil
,
TYPE_SPELL
+
TYPE_TRAP
)
and
Duel
.
SelectYesNo
(
tp
,
aux
.
Stringid
(
101204039
,
2
))
then
if
c
:
IsRelateToEffect
(
e
)
and
Duel
.
SpecialSummon
(
c
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
>
0
and
Duel
.
IsExistingMatchingCard
(
Card
.
IsType
,
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
,
1
,
nil
,
TYPE_SPELL
+
TYPE_TRAP
)
and
Duel
.
SelectYesNo
(
tp
,
aux
.
Stringid
(
82570174
,
2
))
then
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
Card
.
IsType
,
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
,
1
,
1
,
nil
,
TYPE_SPELL
+
TYPE_TRAP
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
Card
.
IsType
,
tp
,
LOCATION_ONFIELD
,
LOCATION_ONFIELD
,
1
,
1
,
nil
,
TYPE_SPELL
+
TYPE_TRAP
)
if
#
g
>
0
then
if
#
g
>
0
then
Duel
.
BreakEffect
()
Duel
.
BreakEffect
()
...
...
c90276649.lua
View file @
5c511c44
--幻奏の歌姫クープレ
--幻奏の歌姫クープレ
function
c
101204010
.
initial_effect
(
c
)
function
c
90276649
.
initial_effect
(
c
)
aux
.
EnablePendulumAttribute
(
c
)
aux
.
EnablePendulumAttribute
(
c
)
local
e0
=
Effect
.
CreateEffect
(
c
)
local
e0
=
Effect
.
CreateEffect
(
c
)
e0
:
SetType
(
EFFECT_TYPE_FIELD
)
e0
:
SetType
(
EFFECT_TYPE_FIELD
)
...
@@ -7,98 +7,98 @@ function c101204010.initial_effect(c)
...
@@ -7,98 +7,98 @@ function c101204010.initial_effect(c)
e0
:
SetCode
(
EFFECT_CANNOT_SPECIAL_SUMMON
)
e0
:
SetCode
(
EFFECT_CANNOT_SPECIAL_SUMMON
)
e0
:
SetProperty
(
EFFECT_FLAG_PLAYER_TARGET
+
EFFECT_FLAG_CANNOT_DISABLE
)
e0
:
SetProperty
(
EFFECT_FLAG_PLAYER_TARGET
+
EFFECT_FLAG_CANNOT_DISABLE
)
e0
:
SetTargetRange
(
1
,
0
)
e0
:
SetTargetRange
(
1
,
0
)
e0
:
SetTarget
(
c
101204010
.
splimit
)
e0
:
SetTarget
(
c
90276649
.
splimit
)
c
:
RegisterEffect
(
e0
)
c
:
RegisterEffect
(
e0
)
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
101204010
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
90276649
,
0
))
e1
:
SetCategory
(
CATEGORY_SEARCH
+
CATEGORY_TOHAND
)
e1
:
SetCategory
(
CATEGORY_SEARCH
+
CATEGORY_TOHAND
)
e1
:
SetType
(
EFFECT_TYPE_IGNITION
)
e1
:
SetType
(
EFFECT_TYPE_IGNITION
)
e1
:
SetRange
(
LOCATION_PZONE
)
e1
:
SetRange
(
LOCATION_PZONE
)
e1
:
SetCountLimit
(
1
,
101204010
)
e1
:
SetCountLimit
(
1
,
90276649
)
e1
:
SetCondition
(
c
101204010
.
thcon
)
e1
:
SetCondition
(
c
90276649
.
thcon
)
e1
:
SetTarget
(
c
101204010
.
thtg
)
e1
:
SetTarget
(
c
90276649
.
thtg
)
e1
:
SetOperation
(
c
101204010
.
thop
)
e1
:
SetOperation
(
c
90276649
.
thop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetDescription
(
aux
.
Stringid
(
101204010
,
1
))
e2
:
SetDescription
(
aux
.
Stringid
(
90276649
,
1
))
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e2
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e2
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e2
:
SetCode
(
EVENT_TO_HAND
)
e2
:
SetCode
(
EVENT_TO_HAND
)
e2
:
SetCountLimit
(
1
,
10120411
0
)
e2
:
SetCountLimit
(
1
,
9027665
0
)
e2
:
SetCondition
(
c
101204010
.
spcon
)
e2
:
SetCondition
(
c
90276649
.
spcon
)
e2
:
SetCost
(
c
101204010
.
spcost
)
e2
:
SetCost
(
c
90276649
.
spcost
)
e2
:
SetTarget
(
c
101204010
.
sptg
)
e2
:
SetTarget
(
c
90276649
.
sptg
)
e2
:
SetOperation
(
c
101204010
.
spop
)
e2
:
SetOperation
(
c
90276649
.
spop
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
local
e3
=
Effect
.
CreateEffect
(
c
)
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetDescription
(
aux
.
Stringid
(
101204010
,
2
))
e3
:
SetDescription
(
aux
.
Stringid
(
90276649
,
2
))
e3
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e3
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e3
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e3
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e3
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e3
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e3
:
SetRange
(
LOCATION_EXTRA
)
e3
:
SetRange
(
LOCATION_EXTRA
)
e3
:
SetCountLimit
(
1
,
101204210
)
e3
:
SetCountLimit
(
1
,
90276651
)
e3
:
SetCondition
(
c
101204010
.
pencon
)
e3
:
SetCondition
(
c
90276649
.
pencon
)
e3
:
SetTarget
(
c
101204010
.
pentg
)
e3
:
SetTarget
(
c
90276649
.
pentg
)
e3
:
SetOperation
(
c
101204010
.
penop
)
e3
:
SetOperation
(
c
90276649
.
penop
)
c
:
RegisterEffect
(
e3
)
c
:
RegisterEffect
(
e3
)
end
end
function
c
101204010
.
splimit
(
e
,
c
,
tp
,
sumtp
,
sumpos
)
function
c
90276649
.
splimit
(
e
,
c
,
tp
,
sumtp
,
sumpos
)
return
not
c
:
IsAttribute
(
ATTRIBUTE_LIGHT
)
and
bit
.
band
(
sumtp
,
SUMMON_TYPE_PENDULUM
)
==
SUMMON_TYPE_PENDULUM
return
not
c
:
IsAttribute
(
ATTRIBUTE_LIGHT
)
and
bit
.
band
(
sumtp
,
SUMMON_TYPE_PENDULUM
)
==
SUMMON_TYPE_PENDULUM
end
end
function
c
101204010
.
thcfilter
(
c
)
function
c
90276649
.
thcfilter
(
c
)
return
c
:
IsFaceup
()
and
not
c
:
IsSetCard
(
0x9b
)
return
c
:
IsFaceup
()
and
not
c
:
IsSetCard
(
0x9b
)
end
end
function
c
101204010
.
thcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
90276649
.
thcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
not
Duel
.
IsExistingMatchingCard
(
c
101204010
.
thcfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
nil
)
return
not
Duel
.
IsExistingMatchingCard
(
c
90276649
.
thcfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
nil
)
end
end
function
c
101204010
.
thfilter
(
c
)
function
c
90276649
.
thfilter
(
c
)
return
c
:
IsSetCard
(
0x9b
)
and
c
:
IsType
(
TYPE_SPELL
+
TYPE_TRAP
)
and
c
:
IsAbleToHand
()
return
c
:
IsSetCard
(
0x9b
)
and
c
:
IsType
(
TYPE_SPELL
+
TYPE_TRAP
)
and
c
:
IsAbleToHand
()
end
end
function
c
101204010
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
90276649
.
thtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
101204010
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c
90276649
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_DECK
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOHAND
,
nil
,
1
,
tp
,
LOCATION_DECK
)
end
end
function
c
101204010
.
thop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
90276649
.
thop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_ATOHAND
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
101204010
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
90276649
.
thfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
SendtoHand
(
g
,
nil
,
REASON_EFFECT
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
Duel
.
ConfirmCards
(
1
-
tp
,
g
)
end
end
end
end
function
c
101204010
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
90276649
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
not
(
r
==
REASON_RULE
)
return
not
(
r
==
REASON_RULE
)
end
end
function
c
101204010
.
spcost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
90276649
.
spcost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
not
e
:
GetHandler
():
IsPublic
()
end
if
chk
==
0
then
return
not
e
:
GetHandler
():
IsPublic
()
end
end
end
function
c
101204010
.
spfilter
(
c
,
e
,
tp
)
function
c
90276649
.
spfilter
(
c
,
e
,
tp
)
return
c
:
IsLevelBelow
(
4
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
return
c
:
IsLevelBelow
(
4
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
end
function
c
101204010
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
90276649
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
and
Duel
.
IsExistingMatchingCard
(
c
101204010
.
spfilter
,
tp
,
LOCATION_GRAVE
+
LOCATION_HAND
,
0
,
1
,
nil
,
e
,
tp
)
end
and
Duel
.
IsExistingMatchingCard
(
c
90276649
.
spfilter
,
tp
,
LOCATION_GRAVE
+
LOCATION_HAND
,
0
,
1
,
nil
,
e
,
tp
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_GRAVE
+
LOCATION_HAND
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_GRAVE
+
LOCATION_HAND
)
end
end
function
c
101204010
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
90276649
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
<=
0
then
return
end
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
<=
0
then
return
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
aux
.
NecroValleyFilter
(
c
101204010
.
spfilter
),
tp
,
LOCATION_GRAVE
+
LOCATION_HAND
,
0
,
1
,
1
,
nil
,
e
,
tp
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
aux
.
NecroValleyFilter
(
c
90276649
.
spfilter
),
tp
,
LOCATION_GRAVE
+
LOCATION_HAND
,
0
,
1
,
1
,
nil
,
e
,
tp
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
Duel
.
SpecialSummon
(
g
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
Duel
.
SpecialSummon
(
g
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
end
end
end
end
function
c
101204010
.
cfilter
(
c
,
tp
)
function
c
90276649
.
cfilter
(
c
,
tp
)
return
c
:
IsFaceup
()
and
c
:
IsType
(
TYPE_FUSION
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsControler
(
tp
)
return
c
:
IsFaceup
()
and
c
:
IsType
(
TYPE_FUSION
)
and
c
:
IsSetCard
(
0x9b
)
and
c
:
IsControler
(
tp
)
end
end
function
c
101204010
.
pencon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
90276649
.
pencon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
e
:
GetHandler
():
IsFaceup
()
and
eg
:
IsExists
(
c
101204010
.
cfilter
,
1
,
nil
,
tp
)
return
e
:
GetHandler
():
IsFaceup
()
and
eg
:
IsExists
(
c
90276649
.
cfilter
,
1
,
nil
,
tp
)
end
end
function
c
101204010
.
pentg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
90276649
.
pentg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
0
)
or
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
1
)
end
if
chk
==
0
then
return
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
0
)
or
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
1
)
end
end
end
function
c
101204010
.
penop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
90276649
.
penop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
if
c
:
IsRelateToEffect
(
e
)
and
(
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
0
)
or
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
1
))
then
if
c
:
IsRelateToEffect
(
e
)
and
(
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
0
)
or
Duel
.
CheckLocation
(
tp
,
LOCATION_PZONE
,
1
))
then
Duel
.
MoveToField
(
c
,
tp
,
tp
,
LOCATION_PZONE
,
POS_FACEUP
,
true
)
Duel
.
MoveToField
(
c
,
tp
,
tp
,
LOCATION_PZONE
,
POS_FACEUP
,
true
)
...
...
c91098230.lua
View file @
5c511c44
--古代の機械戦車兵
--古代の機械戦車兵
function
c
101204007
.
initial_effect
(
c
)
function
c
91098230
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
83104731
)
aux
.
AddCodeList
(
c
,
83104731
)
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
101204007
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
91098230
,
0
))
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetType
(
EFFECT_TYPE_SINGLE
+
EFFECT_TYPE_TRIGGER_O
)
e1
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e1
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e1
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e1
:
SetCode
(
EVENT_SUMMON_SUCCESS
)
e1
:
SetCountLimit
(
1
,
101204007
)
e1
:
SetCountLimit
(
1
,
91098230
)
e1
:
SetTarget
(
c
101204007
.
sptg
)
e1
:
SetTarget
(
c
91098230
.
sptg
)
e1
:
SetOperation
(
c
101204007
.
spop
)
e1
:
SetOperation
(
c
91098230
.
spop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
e1
:
Clone
()
local
e2
=
e1
:
Clone
()
e2
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
e2
:
SetCode
(
EVENT_SPSUMMON_SUCCESS
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
local
e3
=
Effect
.
CreateEffect
(
c
)
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetDescription
(
aux
.
Stringid
(
101204007
,
1
))
e3
:
SetDescription
(
aux
.
Stringid
(
91098230
,
1
))
e3
:
SetCategory
(
CATEGORY_DESTROY
)
e3
:
SetCategory
(
CATEGORY_DESTROY
)
e3
:
SetType
(
EFFECT_TYPE_IGNITION
)
e3
:
SetType
(
EFFECT_TYPE_IGNITION
)
e3
:
SetRange
(
LOCATION_MZONE
)
e3
:
SetRange
(
LOCATION_MZONE
)
e3
:
SetProperty
(
EFFECT_FLAG_CARD_TARGET
)
e3
:
SetProperty
(
EFFECT_FLAG_CARD_TARGET
)
e3
:
SetCountLimit
(
1
,
101204107
)
e3
:
SetCountLimit
(
1
,
91098231
)
e3
:
SetTarget
(
c
101204007
.
destg
)
e3
:
SetTarget
(
c
91098230
.
destg
)
e3
:
SetOperation
(
c
101204007
.
desop
)
e3
:
SetOperation
(
c
91098230
.
desop
)
c
:
RegisterEffect
(
e3
)
c
:
RegisterEffect
(
e3
)
end
end
function
c
101204007
.
filter1
(
c
,
e
,
tp
)
function
c
91098230
.
filter1
(
c
,
e
,
tp
)
return
not
c
:
IsCode
(
101204007
)
and
c
:
IsSetCard
(
0x7
)
and
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
true
,
false
)
return
not
c
:
IsCode
(
91098230
)
and
c
:
IsSetCard
(
0x7
)
and
c
:
IsType
(
TYPE_MONSTER
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
true
,
false
)
and
(
c
:
IsLocation
(
LOCATION_HAND
)
or
c
:
IsLocation
(
LOCATION_GRAVE
)
and
Duel
.
IsExistingMatchingCard
(
nil
,
tp
,
0
,
LOCATION_MZONE
,
1
,
nil
))
and
(
c
:
IsLocation
(
LOCATION_HAND
)
or
c
:
IsLocation
(
LOCATION_GRAVE
)
and
Duel
.
IsExistingMatchingCard
(
nil
,
tp
,
0
,
LOCATION_MZONE
,
1
,
nil
))
end
end
function
c
101204007
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
91098230
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
and
Duel
.
IsExistingMatchingCard
(
c
101204007
.
filter1
,
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
,
0
,
1
,
nil
,
e
,
tp
)
end
and
Duel
.
IsExistingMatchingCard
(
c
91098230
.
filter1
,
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
,
0
,
1
,
nil
,
e
,
tp
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
)
end
end
function
c
101204007
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
91098230
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
<=
0
then
return
end
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
<=
0
then
return
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
aux
.
NecroValleyFilter
(
c
101204007
.
filter1
),
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
,
0
,
1
,
1
,
nil
,
e
,
tp
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
aux
.
NecroValleyFilter
(
c
91098230
.
filter1
),
tp
,
LOCATION_HAND
+
LOCATION_GRAVE
,
0
,
1
,
1
,
nil
,
e
,
tp
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
Duel
.
SpecialSummon
(
g
,
0
,
tp
,
tp
,
true
,
false
,
POS_FACEUP
)
Duel
.
SpecialSummon
(
g
,
0
,
tp
,
tp
,
true
,
false
,
POS_FACEUP
)
end
end
end
end
function
c
101204007
.
destg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
function
c
91098230
.
destg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
,
chkc
)
if
chkc
then
return
chkc
:
IsOnField
()
end
if
chkc
then
return
chkc
:
IsOnField
()
end
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
aux
.
TRUE
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
aux
.
TRUE
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
nil
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_DESTROY
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_DESTROY
)
local
g
=
Duel
.
SelectTarget
(
tp
,
aux
.
TRUE
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
1
,
nil
)
local
g
=
Duel
.
SelectTarget
(
tp
,
aux
.
TRUE
,
tp
,
LOCATION_ONFIELD
,
0
,
1
,
1
,
nil
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DESTROY
,
g
,
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_DESTROY
,
g
,
1
,
0
,
0
)
end
end
function
c
101204007
.
desop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
91098230
.
desop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
tc
=
Duel
.
GetFirstTarget
()
local
tc
=
Duel
.
GetFirstTarget
()
if
tc
:
IsRelateToEffect
(
e
)
then
if
tc
:
IsRelateToEffect
(
e
)
then
Duel
.
Destroy
(
tc
,
REASON_EFFECT
)
Duel
.
Destroy
(
tc
,
REASON_EFFECT
)
...
@@ -58,11 +58,11 @@ function c101204007.desop(e,tp,eg,ep,ev,re,r,rp)
...
@@ -58,11 +58,11 @@ function c101204007.desop(e,tp,eg,ep,ev,re,r,rp)
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetCode
(
EFFECT_UPDATE_ATTACK
)
e1
:
SetCode
(
EFFECT_UPDATE_ATTACK
)
e1
:
SetTargetRange
(
LOCATION_MZONE
,
0
)
e1
:
SetTargetRange
(
LOCATION_MZONE
,
0
)
e1
:
SetTarget
(
c
101204007
.
atktg
)
e1
:
SetTarget
(
c
91098230
.
atktg
)
e1
:
SetValue
(
600
)
e1
:
SetValue
(
600
)
e1
:
SetReset
(
RESET_PHASE
+
PHASE_END
)
e1
:
SetReset
(
RESET_PHASE
+
PHASE_END
)
Duel
.
RegisterEffect
(
e1
,
tp
)
Duel
.
RegisterEffect
(
e1
,
tp
)
end
end
function
c
101204007
.
atktg
(
e
,
c
)
function
c
91098230
.
atktg
(
e
,
c
)
return
c
:
IsCode
(
83104731
)
or
aux
.
IsCodeListed
(
c
,
83104731
)
return
c
:
IsCode
(
83104731
)
or
aux
.
IsCodeListed
(
c
,
83104731
)
end
end
\ No newline at end of file
c91810826.lua
View file @
5c511c44
--天盃龍チュンドラ
--天盃龍チュンドラ
function
c
101204018
.
initial_effect
(
c
)
function
c
91810826
.
initial_effect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
101204018
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
91810826
,
0
))
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e1
:
SetType
(
EFFECT_TYPE_IGNITION
)
e1
:
SetType
(
EFFECT_TYPE_IGNITION
)
e1
:
SetRange
(
LOCATION_HAND
)
e1
:
SetRange
(
LOCATION_HAND
)
e1
:
SetCountLimit
(
1
,
101204018
)
e1
:
SetCountLimit
(
1
,
91810826
)
e1
:
SetCondition
(
c
101204018
.
spcon
)
e1
:
SetCondition
(
c
91810826
.
spcon
)
e1
:
SetTarget
(
c
101204018
.
sptg
)
e1
:
SetTarget
(
c
91810826
.
sptg
)
e1
:
SetOperation
(
c
101204018
.
spop
)
e1
:
SetOperation
(
c
91810826
.
spop
)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
local
e2
=
Effect
.
CreateEffect
(
c
)
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetDescription
(
aux
.
Stringid
(
101204018
,
1
))
e2
:
SetDescription
(
aux
.
Stringid
(
91810826
,
1
))
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e2
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e2
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e2
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e2
:
SetCode
(
EVENT_BATTLE_START
)
e2
:
SetCode
(
EVENT_BATTLE_START
)
e2
:
SetRange
(
LOCATION_MZONE
)
e2
:
SetRange
(
LOCATION_MZONE
)
e2
:
SetCountLimit
(
1
,
101204118
)
e2
:
SetCountLimit
(
1
,
91810827
)
e2
:
SetTarget
(
c
101204018
.
sptg2
)
e2
:
SetTarget
(
c
91810826
.
sptg2
)
e2
:
SetOperation
(
c
101204018
.
spop2
)
e2
:
SetOperation
(
c
91810826
.
spop2
)
c
:
RegisterEffect
(
e2
)
c
:
RegisterEffect
(
e2
)
local
e3
=
Effect
.
CreateEffect
(
c
)
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetDescription
(
aux
.
Stringid
(
101204018
,
2
))
e3
:
SetDescription
(
aux
.
Stringid
(
91810826
,
2
))
e3
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e3
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e3
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e3
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e3
:
SetCode
(
EVENT_FREE_CHAIN
)
e3
:
SetCode
(
EVENT_FREE_CHAIN
)
e3
:
SetHintTiming
(
0
,
TIMING_BATTLE_START
+
TIMING_BATTLE_STEP_END
+
TIMING_BATTLE_END
)
e3
:
SetHintTiming
(
0
,
TIMING_BATTLE_START
+
TIMING_BATTLE_STEP_END
+
TIMING_BATTLE_END
)
e3
:
SetRange
(
LOCATION_MZONE
)
e3
:
SetRange
(
LOCATION_MZONE
)
e3
:
SetCountLimit
(
1
)
e3
:
SetCountLimit
(
1
)
e3
:
SetCondition
(
c
101204018
.
sccon
)
e3
:
SetCondition
(
c
91810826
.
sccon
)
e3
:
SetTarget
(
c
101204018
.
sctg
)
e3
:
SetTarget
(
c
91810826
.
sctg
)
e3
:
SetOperation
(
c
101204018
.
scop
)
e3
:
SetOperation
(
c
91810826
.
scop
)
c
:
RegisterEffect
(
e3
)
c
:
RegisterEffect
(
e3
)
end
end
function
c
101204018
.
cfilter
(
c
)
function
c
91810826
.
cfilter
(
c
)
return
c
:
IsFaceup
()
and
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
return
c
:
IsFaceup
()
and
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
end
end
function
c
101204018
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
91810826
.
spcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
Duel
.
IsExistingMatchingCard
(
c
101204018
.
cfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
nil
)
return
Duel
.
IsExistingMatchingCard
(
c
91810826
.
cfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
nil
)
end
end
function
c
101204018
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
91810826
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
and
e
:
GetHandler
():
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
and
e
:
GetHandler
():
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
e
:
GetHandler
(),
1
,
0
,
0
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
e
:
GetHandler
(),
1
,
0
,
0
)
end
end
function
c
101204018
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
91810826
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
if
not
c
:
IsRelateToEffect
(
e
)
then
return
end
if
not
c
:
IsRelateToEffect
(
e
)
then
return
end
Duel
.
SpecialSummon
(
c
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
Duel
.
SpecialSummon
(
c
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
end
end
function
c
101204018
.
filter
(
c
,
e
,
tp
)
function
c
91810826
.
filter
(
c
,
e
,
tp
)
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
and
c
:
IsLevelBelow
(
4
)
and
not
c
:
IsCode
(
101204018
)
return
c
:
IsRace
(
RACE_DRAGON
)
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
and
c
:
IsLevelBelow
(
4
)
and
not
c
:
IsCode
(
91810826
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
0
,
tp
,
false
,
false
)
end
end
function
c
101204018
.
sptg2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
91810826
.
sptg2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
if
chk
==
0
then
return
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
and
Duel
.
IsExistingMatchingCard
(
c
101204018
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
,
e
,
tp
)
end
and
Duel
.
IsExistingMatchingCard
(
c
91810826
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
,
e
,
tp
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_DECK
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_DECK
)
end
end
function
c
101204018
.
spop2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
91810826
.
spop2
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
<=
0
then
return
end
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
<=
0
then
return
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
101204018
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
,
e
,
tp
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c
91810826
.
filter
,
tp
,
LOCATION_DECK
,
0
,
1
,
1
,
nil
,
e
,
tp
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
Duel
.
SpecialSummon
(
g
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
Duel
.
SpecialSummon
(
g
,
0
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
end
end
end
end
function
c
101204018
.
sccon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
91810826
.
sccon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
ph
=
Duel
.
GetCurrentPhase
()
local
ph
=
Duel
.
GetCurrentPhase
()
return
ph
>=
PHASE_BATTLE_START
and
ph
<=
PHASE_BATTLE
return
ph
>=
PHASE_BATTLE_START
and
ph
<=
PHASE_BATTLE
end
end
function
c
101204018
.
mfilter
(
c
)
function
c
91810826
.
mfilter
(
c
)
return
not
c
:
IsStatus
(
STATUS_SUMMONING
)
return
not
c
:
IsStatus
(
STATUS_SUMMONING
)
end
end
function
c
101204018
.
sctg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
c
91810826
.
sctg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
local
mg
=
Duel
.
GetMatchingGroup
(
c
101204018
.
mfilter
,
tp
,
LOCATION_MZONE
,
0
,
nil
)
local
mg
=
Duel
.
GetMatchingGroup
(
c
91810826
.
mfilter
,
tp
,
LOCATION_MZONE
,
0
,
nil
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
Card
.
IsSynchroSummonable
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
:
GetHandler
(),
mg
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
Card
.
IsSynchroSummonable
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
:
GetHandler
(),
mg
)
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_EXTRA
)
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_EXTRA
)
end
end
function
c
101204018
.
scop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
function
c
91810826
.
scop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
local
c
=
e
:
GetHandler
()
if
c
:
IsControler
(
1
-
tp
)
or
not
c
:
IsRelateToEffect
(
e
)
or
c
:
IsFacedown
()
then
return
end
if
c
:
IsControler
(
1
-
tp
)
or
not
c
:
IsRelateToEffect
(
e
)
or
c
:
IsFacedown
()
then
return
end
local
mg
=
Duel
.
GetMatchingGroup
(
c
101204018
.
mfilter
,
tp
,
LOCATION_MZONE
,
0
,
nil
)
local
mg
=
Duel
.
GetMatchingGroup
(
c
91810826
.
mfilter
,
tp
,
LOCATION_MZONE
,
0
,
nil
)
local
g
=
Duel
.
GetMatchingGroup
(
Card
.
IsSynchroSummonable
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
c
,
mg
)
local
g
=
Duel
.
GetMatchingGroup
(
Card
.
IsSynchroSummonable
,
tp
,
LOCATION_EXTRA
,
0
,
nil
,
c
,
mg
)
if
g
:
GetCount
()
>
0
then
if
g
:
GetCount
()
>
0
then
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
...
...
c92110878.lua
View file @
5c511c44
--トリコロール・ガジェット
--トリコロール・ガジェット
local
s
,
id
,
o
=
GetID
()
local
s
,
id
,
o
=
GetID
()
function
s
.
initial_effect
(
c
)
function
s
.
initial_effect
(
c
)
aux
.
AddCodeList
(
c
,
101204051
)
aux
.
AddCodeList
(
c
,
79791878
)
--search
--search
local
e1
=
Effect
.
CreateEffect
(
c
)
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
e1
:
SetDescription
(
aux
.
Stringid
(
id
,
0
))
...
@@ -29,7 +29,7 @@ function s.initial_effect(c)
...
@@ -29,7 +29,7 @@ function s.initial_effect(c)
c
:
RegisterEffect
(
e1
)
c
:
RegisterEffect
(
e1
)
end
end
function
s
.
srfilter
(
c
)
function
s
.
srfilter
(
c
)
return
(
c
:
IsCode
(
101204051
)
or
aux
.
IsCodeListed
(
c
,
101204051
)
and
c
:
IsType
(
TYPE_SPELL
+
TYPE_TRAP
))
and
c
:
IsAbleToHand
()
return
(
c
:
IsCode
(
79791878
)
or
aux
.
IsCodeListed
(
c
,
79791878
)
and
c
:
IsType
(
TYPE_SPELL
+
TYPE_TRAP
))
and
c
:
IsAbleToHand
()
end
end
function
s
.
srtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
s
.
srtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
s
.
srfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
s
.
srfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
...
@@ -47,7 +47,7 @@ function s.setcon(e,tp,eg,ep,ev,re,r,rp)
...
@@ -47,7 +47,7 @@ function s.setcon(e,tp,eg,ep,ev,re,r,rp)
return
bit
.
band
(
r
,
REASON_EFFECT
+
REASON_BATTLE
)
~=
0
return
bit
.
band
(
r
,
REASON_EFFECT
+
REASON_BATTLE
)
~=
0
end
end
function
s
.
setfilter
(
c
)
function
s
.
setfilter
(
c
)
return
c
:
IsCode
(
101204071
)
and
c
:
IsSSetable
()
return
c
:
IsCode
(
27157727
)
and
c
:
IsSSetable
()
end
end
function
s
.
settg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
function
s
.
settg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
s
.
setfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
s
.
setfilter
,
tp
,
LOCATION_DECK
,
0
,
1
,
nil
)
end
...
...
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