Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Y
ygopro-222DIY-cards
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Packages
Packages
List
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issues
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Soulgamer
ygopro-222DIY-cards
Commits
c4f4479e
Commit
c4f4479e
authored
Jul 20, 2019
by
nanahira
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fixes
parent
0ac704d3
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
178 additions
and
181 deletions
+178
-181
expansions/script/c47570400.lua
expansions/script/c47570400.lua
+175
-178
expansions/script/c9980193.lua
expansions/script/c9980193.lua
+3
-3
No files found.
expansions/script/c47570400.lua
View file @
c4f4479e
--克罗萨斯·马格纳
local
m
=
47570400
local
c47570400
=
_G
[
"c"
..
m
]
function
c47570400
.
initial_effect
(
c
)
--fusion material
c
:
EnableReviveLimit
()
aux
.
AddFusionProcCodeFun
(
c
,
c47570400
.
fusfilter1
,
aux
.
FilterBoolFunction
(
Card
.
IsFusionAttribute
,
ATTRIBUTE_FIRE
),
1
,
true
,
true
)
aux
.
EnablePendulumAttribute
(
c
,
false
)
--special summon rule
local
e0
=
Effect
.
CreateEffect
(
c
)
e0
:
SetType
(
EFFECT_TYPE_FIELD
)
e0
:
SetCode
(
EFFECT_SPSUMMON_PROC
)
e0
:
SetProperty
(
EFFECT_FLAG_UNCOPYABLE
)
e0
:
SetRange
(
LOCATION_EXTRA
)
e0
:
SetValue
(
SUMMON_TYPE_FUSION
)
e0
:
SetCondition
(
c47570400
.
sprcon
)
e0
:
SetOperation
(
c47570400
.
sprop
)
c
:
RegisterEffect
(
e0
)
--splimit
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetRange
(
LOCATION_PZONE
)
e1
:
SetCode
(
EFFECT_CANNOT_SPECIAL_SUMMON
)
e1
:
SetProperty
(
EFFECT_FLAG_PLAYER_TARGET
+
EFFECT_FLAG_CANNOT_DISABLE
+
EFFECT_FLAG_CANNOT_NEGATE
)
e1
:
SetTargetRange
(
1
,
0
)
e1
:
SetTarget
(
c47570400
.
psplimit
)
c
:
RegisterEffect
(
e1
)
--inactivatable
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
)
e2
:
SetCode
(
EFFECT_CANNOT_INACTIVATE
)
e2
:
SetRange
(
LOCATION_PZONE
)
e2
:
SetValue
(
c47570400
.
effectfilter
)
c
:
RegisterEffect
(
e2
)
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetType
(
EFFECT_TYPE_FIELD
)
e3
:
SetCode
(
EFFECT_CANNOT_DISEFFECT
)
e3
:
SetRange
(
LOCATION_PZONE
)
e3
:
SetValue
(
c47570400
.
effectfilter
)
c
:
RegisterEffect
(
e3
)
--destroy
local
e4
=
Effect
.
CreateEffect
(
c
)
e4
:
SetDescription
(
aux
.
Stringid
(
47570400
,
0
))
e4
:
SetCategory
(
CATEGORY_TOGRAVE
)
e4
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e4
:
SetRange
(
LOCATION_MZONE
)
e4
:
SetCode
(
EVENT_FREE_CHAIN
)
e4
:
SetCountLimit
(
1
)
e4
:
SetCost
(
c47570400
.
rmcost
)
e4
:
SetTarget
(
c47570400
.
tgtg
)
e4
:
SetOperation
(
c47570400
.
tgop
)
c
:
RegisterEffect
(
e4
)
--negate
local
e5
=
Effect
.
CreateEffect
(
c
)
e5
:
SetDescription
(
aux
.
Stringid
(
47570400
,
2
))
e5
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e5
:
SetCode
(
EVENT_CHAINING
)
e5
:
SetCountLimit
(
1
)
e5
:
SetProperty
(
EFFECT_FLAG_DAMAGE_STEP
+
EFFECT_FLAG_DAMAGE_CAL
)
e5
:
SetRange
(
LOCATION_MZONE
)
e5
:
SetCondition
(
c47570400
.
chcon
)
e5
:
SetTarget
(
c47570400
.
chtg
)
e5
:
SetOperation
(
c47570400
.
chop
)
c
:
RegisterEffect
(
e5
)
--specialsummon
local
e6
=
Effect
.
CreateEffect
(
c
)
e6
:
SetDescription
(
aux
.
Stringid
(
47570400
,
1
))
e6
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e6
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e6
:
SetCode
(
EVENT_REMOVE
)
e6
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e6
:
SetRange
(
LOCATION_MZONE
)
e6
:
SetCountLimit
(
1
)
e6
:
SetCondition
(
c47570400
.
rmcon
)
e6
:
SetCost
(
c47570400
.
spcost
)
e6
:
SetTarget
(
c47570400
.
sptg
)
e6
:
SetOperation
(
c47570400
.
spop
)
c
:
RegisterEffect
(
e6
)
--fusion material
c
:
EnableReviveLimit
()
aux
.
AddFusionProcCodeFun
(
c
,
c47570400
.
fusfilter1
,
aux
.
FilterBoolFunction
(
Card
.
IsFusionAttribute
,
ATTRIBUTE_FIRE
),
1
,
true
,
true
)
aux
.
EnablePendulumAttribute
(
c
,
false
)
--special summon rule
local
e0
=
Effect
.
CreateEffect
(
c
)
e0
:
SetType
(
EFFECT_TYPE_FIELD
)
e0
:
SetCode
(
EFFECT_SPSUMMON_PROC
)
e0
:
SetProperty
(
EFFECT_FLAG_UNCOPYABLE
)
e0
:
SetRange
(
LOCATION_EXTRA
)
e0
:
SetValue
(
SUMMON_TYPE_FUSION
)
e0
:
SetCondition
(
c47570400
.
sprcon
)
e0
:
SetOperation
(
c47570400
.
sprop
)
c
:
RegisterEffect
(
e0
)
--splimit
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetType
(
EFFECT_TYPE_FIELD
)
e1
:
SetRange
(
LOCATION_PZONE
)
e1
:
SetCode
(
EFFECT_CANNOT_SPECIAL_SUMMON
)
e1
:
SetProperty
(
EFFECT_FLAG_PLAYER_TARGET
+
EFFECT_FLAG_CANNOT_DISABLE
+
EFFECT_FLAG_CANNOT_NEGATE
)
e1
:
SetTargetRange
(
1
,
0
)
e1
:
SetTarget
(
c47570400
.
psplimit
)
c
:
RegisterEffect
(
e1
)
--inactivatable
local
e2
=
Effect
.
CreateEffect
(
c
)
e2
:
SetType
(
EFFECT_TYPE_FIELD
)
e2
:
SetCode
(
EFFECT_CANNOT_INACTIVATE
)
e2
:
SetRange
(
LOCATION_PZONE
)
e2
:
SetValue
(
c47570400
.
effectfilter
)
c
:
RegisterEffect
(
e2
)
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetType
(
EFFECT_TYPE_FIELD
)
e3
:
SetCode
(
EFFECT_CANNOT_DISEFFECT
)
e3
:
SetRange
(
LOCATION_PZONE
)
e3
:
SetValue
(
c47570400
.
effectfilter
)
c
:
RegisterEffect
(
e3
)
--destroy
local
e4
=
Effect
.
CreateEffect
(
c
)
e4
:
SetDescription
(
aux
.
Stringid
(
47570400
,
0
))
e4
:
SetCategory
(
CATEGORY_TOGRAVE
)
e4
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e4
:
SetRange
(
LOCATION_MZONE
)
e4
:
SetCode
(
EVENT_FREE_CHAIN
)
e4
:
SetCountLimit
(
1
)
e4
:
SetCost
(
c47570400
.
rmcost
)
e4
:
SetTarget
(
c47570400
.
tgtg
)
e4
:
SetOperation
(
c47570400
.
tgop
)
c
:
RegisterEffect
(
e4
)
--negate
local
e5
=
Effect
.
CreateEffect
(
c
)
e5
:
SetDescription
(
aux
.
Stringid
(
47570400
,
2
))
e5
:
SetType
(
EFFECT_TYPE_QUICK_O
)
e5
:
SetCode
(
EVENT_CHAINING
)
e5
:
SetCountLimit
(
1
)
e5
:
SetProperty
(
EFFECT_FLAG_DAMAGE_STEP
+
EFFECT_FLAG_DAMAGE_CAL
)
e5
:
SetRange
(
LOCATION_MZONE
)
e5
:
SetCondition
(
c47570400
.
chcon
)
e5
:
SetTarget
(
c47570400
.
chtg
)
e5
:
SetOperation
(
c47570400
.
chop
)
c
:
RegisterEffect
(
e5
)
--specialsummon
local
e6
=
Effect
.
CreateEffect
(
c
)
e6
:
SetDescription
(
aux
.
Stringid
(
47570400
,
1
))
e6
:
SetCategory
(
CATEGORY_SPECIAL_SUMMON
)
e6
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_TRIGGER_O
)
e6
:
SetCode
(
EVENT_REMOVE
)
e6
:
SetProperty
(
EFFECT_FLAG_DELAY
)
e6
:
SetRange
(
LOCATION_MZONE
)
e6
:
SetCountLimit
(
1
)
e6
:
SetCondition
(
c47570400
.
rmcon
)
e6
:
SetCost
(
c47570400
.
spcost
)
e6
:
SetTarget
(
c47570400
.
sptg
)
e6
:
SetOperation
(
c47570400
.
spop
)
c
:
RegisterEffect
(
e6
)
end
function
c47570400
.
fusfilter1
(
c
)
return
c
:
IsRace
(
RACE_PYRO
)
return
c
:
IsRace
(
RACE_PYRO
)
end
function
c47570400
.
cfilter
(
c
)
return
(
c
:
IsRace
(
RACE_PYRO
)
or
c
:
IsFusionAttribute
(
ATTRIBUTE_FIRE
))
and
c
:
IsCanBeFusionMaterial
()
and
c
:
IsReleasable
()
return
(
c
:
IsRace
(
RACE_PYRO
)
or
c
:
IsFusionAttribute
(
ATTRIBUTE_FIRE
))
and
c
:
IsCanBeFusionMaterial
()
and
c
:
IsReleasable
()
end
function
c47570400
.
spfilter1
(
c
,
tp
,
g
)
return
g
:
IsExists
(
c47570400
.
spfilter2
,
1
,
c
,
tp
,
c
)
return
g
:
IsExists
(
c47570400
.
spfilter2
,
1
,
c
,
tp
,
c
)
end
function
c47570400
.
spfilter2
(
c
,
tp
,
mc
)
return
(
c
:
IsRace
(
RACE_PYRO
)
and
mc
:
IsFusionAttribute
(
ATTRIBUTE_FIRE
)
or
c
:
IsFusionAttribute
(
ATTRIBUTE_FIRE
)
and
mc
:
IsRace
(
RACE_PYRO
))
and
Duel
.
GetLocationCountFromEx
(
tp
,
tp
,
Group
.
FromCards
(
c
,
mc
))
>
0
return
(
c
:
IsRace
(
RACE_PYRO
)
and
mc
:
IsFusionAttribute
(
ATTRIBUTE_FIRE
)
or
c
:
IsFusionAttribute
(
ATTRIBUTE_FIRE
)
and
mc
:
IsRace
(
RACE_PYRO
))
and
Duel
.
GetLocationCountFromEx
(
tp
,
tp
,
Group
.
FromCards
(
c
,
mc
))
>
0
end
function
c47570400
.
sprcon
(
e
,
c
)
if
c
==
nil
then
return
true
end
local
tp
=
c
:
GetControler
()
local
g
=
Duel
.
GetMatchingGroup
(
c47570400
.
cfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
nil
)
return
g
:
IsExists
(
c47570400
.
spfilter1
,
1
,
nil
,
tp
,
g
)
if
c
==
nil
then
return
true
end
local
tp
=
c
:
GetControler
()
local
g
=
Duel
.
GetMatchingGroup
(
c47570400
.
cfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
nil
)
return
g
:
IsExists
(
c47570400
.
spfilter1
,
1
,
nil
,
tp
,
g
)
end
function
c47570400
.
sprop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
c
)
local
g
=
Duel
.
GetMatchingGroup
(
c47570400
.
cfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
nil
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_RELEASE
)
local
g1
=
g
:
FilterSelect
(
tp
,
c47570400
.
spfilter1
,
1
,
1
,
nil
,
tp
,
g
)
local
mc
=
g1
:
GetFirst
()
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_RELEASE
)
local
g2
=
g
:
FilterSelect
(
tp
,
c47570400
.
spfilter2
,
1
,
1
,
mc
,
tp
,
mc
)
g1
:
Merge
(
g2
)
local
cg
=
g1
:
Filter
(
Card
.
IsFacedown
,
nil
)
if
cg
:
GetCount
()
>
0
then
Duel
.
ConfirmCards
(
1
-
tp
,
cg
)
end
Duel
.
Release
(
g1
,
REASON_COST
+
REASON_MATERIAL
+
REASON_FUSION
)
local
g
=
Duel
.
GetMatchingGroup
(
c47570400
.
cfilter
,
tp
,
LOCATION_ONFIELD
,
0
,
nil
)
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_RELEASE
)
local
g1
=
g
:
FilterSelect
(
tp
,
c47570400
.
spfilter1
,
1
,
1
,
nil
,
tp
,
g
)
local
mc
=
g1
:
GetFirst
()
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_RELEASE
)
local
g2
=
g
:
FilterSelect
(
tp
,
c47570400
.
spfilter2
,
1
,
1
,
mc
,
tp
,
mc
)
g1
:
Merge
(
g2
)
local
cg
=
g1
:
Filter
(
Card
.
IsFacedown
,
nil
)
if
cg
:
GetCount
()
>
0
then
Duel
.
ConfirmCards
(
1
-
tp
,
cg
)
end
Duel
.
Release
(
g1
,
REASON_COST
+
REASON_MATERIAL
+
REASON_FUSION
)
end
function
c47570400
.
pefilter
(
c
)
return
c
:
IsRace
(
RACE_MACHINE
)
or
c
:
IsSetCard
(
0x5da
)
or
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
return
c
:
IsRace
(
RACE_MACHINE
)
or
c
:
IsSetCard
(
0x5da
)
or
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
end
function
c47570400
.
psplimit
(
e
,
c
,
tp
,
sumtp
,
sumpos
)
return
not
c47570400
.
pefilter
(
c
)
and
bit
.
band
(
sumtp
,
SUMMON_TYPE_PENDULUM
)
==
SUMMON_TYPE_PENDULUM
return
not
c47570400
.
pefilter
(
c
)
and
bit
.
band
(
sumtp
,
SUMMON_TYPE_PENDULUM
)
==
SUMMON_TYPE_PENDULUM
end
function
c47570400
.
effectfilter
(
e
,
ct
)
local
p
=
e
:
GetHandler
():
GetControler
()
local
te
,
tp
,
loc
=
Duel
.
GetChainInfo
(
ct
,
CHAININFO_TRIGGERING_EFFECT
,
CHAININFO_TRIGGERING_PLAYER
,
CHAININFO_TRIGGERING_LOCATION
)
return
p
==
tp
and
te
:
GetHandler
():
IsAttribute
(
ATTRIBUTE_FIRE
)
and
re
:
IsActiveType
(
TYPE_MONSTER
)
local
p
=
e
:
GetHandler
():
GetControler
()
local
te
,
tp
,
loc
=
Duel
.
GetChainInfo
(
ct
,
CHAININFO_TRIGGERING_EFFECT
,
CHAININFO_TRIGGERING_PLAYER
,
CHAININFO_TRIGGERING_LOCATION
)
return
p
==
tp
and
te
:
GetHandler
():
IsAttribute
(
ATTRIBUTE_FIRE
)
and
re
:
IsActiveType
(
TYPE_MONSTER
)
end
function
c47570400
.
ccfilter
(
c
,
e
,
tp
)
return
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
return
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
end
function
c47570400
.
rmcost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c47570400
.
ccfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
e
:
GetHandler
())
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINGMSG_REMOVE
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c47570400
.
ccfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
1
,
e
:
GetHandler
())
local
tc
=
g
:
GetFirst
()
if
Duel
.
Remove
(
tc
,
POS_FACEUP
,
REASON_COST
+
REASON_TEMPORARY
)
~=
0
then
local
e1
=
Effect
.
CreateEffect
(
e
:
GetHandler
())
e1
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
e1
:
SetCode
(
EVENT_PHASE
+
PHASE_END
)
e1
:
SetReset
(
RESET_PHASE
+
PHASE_END
)
e1
:
SetLabelObject
(
tc
)
e1
:
SetCountLimit
(
1
)
e1
:
SetOperation
(
c47570400
.
retop
)
Duel
.
RegisterEffect
(
e1
,
tp
)
end
end
function
c47570400
.
retop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
ReturnToField
(
e
:
GetLabelObject
())
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c47570400
.
ccfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
e
:
GetHandler
())
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINGMSG_REMOVE
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c47570400
.
ccfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
1
,
e
:
GetHandler
())
local
tc
=
g
:
GetFirst
()
if
Duel
.
Remove
(
tc
,
POS_FACEUP
,
REASON_COST
+
REASON_TEMPORARY
)
~=
0
then
local
e1
=
Effect
.
CreateEffect
(
e
:
GetHandler
())
e1
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
e1
:
SetCode
(
EVENT_PHASE
+
PHASE_END
)
e1
:
SetReset
(
RESET_PHASE
+
PHASE_END
)
e1
:
SetLabelObject
(
tc
)
e1
:
SetCountLimit
(
1
)
e1
:
SetOperation
(
c47570400
.
retop
)
Duel
.
RegisterEffect
(
e1
,
tp
)
end
end
function
c47570400
.
gfilter
(
c
)
return
c
:
IsFaceup
()
return
c
:
IsFaceup
()
end
function
c47570400
.
tgtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
c47570400
.
gfilter
,
tp
,
0
,
LOCATION_MZONE
,
1
,
e
:
GetHandler
())
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOGRAVE
,
nil
,
1
,
1
-
tp
,
LOCATION_ONFIELD
)
if
chk
==
0
then
return
Duel
.
IsExistingTarget
(
c47570400
.
gfilter
,
tp
,
0
,
LOCATION_MZONE
,
1
,
e
:
GetHandler
())
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_TOGRAVE
,
nil
,
1
,
1
-
tp
,
LOCATION_ONFIELD
)
end
function
c47570400
.
tgop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c47570400
.
gfilter
,
tp
,
0
,
LOCATION_MZONE
,
1
,
1
,
nil
)
local
dg
=
Group
.
CreateGroup
()
local
tc
=
g
:
GetFirst
()
local
c
=
e
:
GetHandler
()
while
tc
do
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetType
(
EFFECT_TYPE_SINGLE
)
e3
:
SetCode
(
EFFECT_UPDATE_DEFENSE
)
e3
:
SetValue
(
-
3000
)
e3
:
SetReset
(
RESET_EVENT
+
RESETS_STANDARD
)
tc
:
RegisterEffect
(
e3
)
if
predef
~=
0
and
(
tc
:
IsDefense
(
0
)
or
tc
:
IsType
(
TYPE_LINK
))
then
dg
:
AddCard
(
tc
)
end
tc
=
g
:
GetNext
()
end
Duel
.
Remove
(
dg
,
POS_FACEDOWN
,
REASON_RULE
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c47570400
.
gfilter
,
tp
,
0
,
LOCATION_MZONE
,
1
,
1
,
nil
)
local
dg
=
Group
.
CreateGroup
()
local
tc
=
g
:
GetFirst
()
local
c
=
e
:
GetHandler
()
while
tc
do
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetType
(
EFFECT_TYPE_SINGLE
)
e3
:
SetCode
(
EFFECT_UPDATE_DEFENSE
)
e3
:
SetValue
(
-
3000
)
e3
:
SetReset
(
RESET_EVENT
+
RESETS_STANDARD
)
tc
:
RegisterEffect
(
e3
)
if
predef
~=
0
and
(
tc
:
IsDefense
(
0
)
or
tc
:
IsType
(
TYPE_LINK
))
then
dg
:
AddCard
(
tc
)
end
tc
=
g
:
GetNext
()
end
Duel
.
Remove
(
dg
,
POS_FACEDOWN
,
REASON_RULE
)
end
function
c47570400
.
chcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
rp
==
1
-
tp
and
not
e
:
GetHandler
():
IsStatus
(
STATUS_BATTLE_DESTROYED
)
return
rp
==
1
-
tp
and
not
e
:
GetHandler
():
IsStatus
(
STATUS_BATTLE_DESTROYED
)
end
function
c47570400
.
chtg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
aux
.
TRUE
,
rp
,
0
,
LOCATION_ONFIELD
,
1
,
nil
)
end
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
aux
.
TRUE
,
rp
,
0
,
LOCATION_ONFIELD
,
1
,
nil
)
end
end
function
c47570400
.
chop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
g
=
Group
.
CreateGroup
()
Duel
.
ChangeTargetCard
(
ev
,
g
)
Duel
.
ChangeChainOperation
(
ev
,
c47570400
.
repop
)
local
g
=
Group
.
CreateGroup
()
Duel
.
ChangeTargetCard
(
ev
,
g
)
Duel
.
ChangeChainOperation
(
ev
,
c47570400
.
repop
)
end
function
c47570400
.
repop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
c
=
e
:
GetHandler
()
if
c
:
IsType
(
TYPE_SPELL
+
TYPE_TRAP
)
then
c
:
CancelToGrave
(
false
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINGMSG_REMOVE
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c47570400
.
ccfilter
,
tp
,
LOCATION_MZONE
,
0
,
1
,
1
,
nil
)
local
tc
=
g
:
GetFirst
()
if
tc
then
Duel
.
Remove
(
tc
,
POS_FACEUP
,
REASON_COST
+
REASON_TEMPORARY
)
~=
0
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
e1
:
SetCode
(
EVENT_PHASE
+
PHASE_END
)
e1
:
SetReset
(
RESET_PHASE
+
PHASE_END
)
e1
:
SetLabelObject
(
tc
)
e1
:
SetCountLimit
(
1
)
e1
:
SetOperation
(
c47570400
.
retop
)
Duel
.
RegisterEffect
(
e1
,
tp
)
end
local
c
=
e
:
GetHandler
()
if
c
:
IsType
(
TYPE_SPELL
+
TYPE_TRAP
)
then
c
:
CancelToGrave
(
false
)
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINGMSG_REMOVE
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c47570400
.
ccfilter
,
tp
,
LOCATION_MZONE
,
LOCATION_MZONE
,
1
,
1
,
nil
)
local
tc
=
g
:
GetFirst
()
if
tc
and
Duel
.
Remove
(
tc
,
POS_FACEUP
,
REASON_COST
+
REASON_TEMPORARY
)
~=
0
then
local
e1
=
Effect
.
CreateEffect
(
c
)
e1
:
SetType
(
EFFECT_TYPE_FIELD
+
EFFECT_TYPE_CONTINUOUS
)
e1
:
SetCode
(
EVENT_PHASE
+
PHASE_END
)
e1
:
SetReset
(
RESET_PHASE
+
PHASE_END
)
e1
:
SetLabelObject
(
tc
)
e1
:
SetCountLimit
(
1
)
e1
:
SetOperation
(
c47570400
.
retop
)
Duel
.
RegisterEffect
(
e1
,
tp
)
end
end
function
c47570400
.
retop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
Duel
.
ReturnToField
(
e
:
GetLabelObject
())
end
function
c47570400
.
rmcfilter
(
c
,
tp
)
return
c
:
IsFaceup
()
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
return
c
:
IsFaceup
()
and
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
end
function
c47570400
.
rmcon
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
return
eg
:
IsExists
(
c47570400
.
rmcfilter
,
1
,
e
:
GetHandler
(),
tp
)
and
e
:
GetHandler
():
IsSummonType
(
SUMMON_TYPE_FUSION
)
return
eg
:
IsExists
(
c47570400
.
rmcfilter
,
1
,
e
:
GetHandler
(),
tp
)
and
e
:
GetHandler
():
IsSummonType
(
SUMMON_TYPE_FUSION
)
end
function
c47570400
.
spfilter
(
c
,
e
,
tp
)
return
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
and
c
:
IsType
(
TYPE_PENDULUM
)
and
c
:
IsLevel
(
9
)
and
c
:
IsType
(
TYPE_SYNCHRO
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_SYNCHRO
,
tp
,
false
,
false
)
return
c
:
IsAttribute
(
ATTRIBUTE_FIRE
)
and
c
:
IsType
(
TYPE_PENDULUM
)
and
c
:
IsLevel
(
9
)
and
c
:
IsType
(
TYPE_SYNCHRO
)
and
c
:
IsCanBeSpecialSummoned
(
e
,
SUMMON_TYPE_SYNCHRO
,
tp
,
false
,
false
)
end
function
c47570400
.
spcost
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
e
:
GetHandler
():
IsReleasable
()
end
Duel
.
Release
(
e
:
GetHandler
(),
REASON_COST
)
if
chk
==
0
then
return
e
:
GetHandler
():
IsReleasable
()
end
Duel
.
Release
(
e
:
GetHandler
(),
REASON_COST
)
end
function
c47570400
.
sptg
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
,
chk
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c47570400
.
spfilter
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
)
and
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_EXTRA
)
if
chk
==
0
then
return
Duel
.
IsExistingMatchingCard
(
c47570400
.
spfilter
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
nil
,
e
,
tp
)
and
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
>
0
end
Duel
.
SetOperationInfo
(
0
,
CATEGORY_SPECIAL_SUMMON
,
nil
,
1
,
tp
,
LOCATION_EXTRA
)
end
function
c47570400
.
spop
(
e
,
tp
,
eg
,
ep
,
ev
,
re
,
r
,
rp
)
local
ft
=
Duel
.
GetLocationCountFromEx
(
tp
)
if
ft
<=
0
or
not
aux
.
MustMaterialCheck
(
nil
,
tp
,
EFFECT_MUST_BE_SMATERIAL
)
then
return
end
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
<=
0
then
return
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c47570400
.
spfilter
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
1
,
nil
,
e
,
tp
)
if
g
:
GetCount
()
>
0
then
Duel
.
SpecialSummon
(
g
,
SUMMON_TYPE_SYNCHRO
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
end
local
ft
=
Duel
.
GetLocationCountFromEx
(
tp
)
if
ft
<=
0
or
not
aux
.
MustMaterialCheck
(
nil
,
tp
,
EFFECT_MUST_BE_SMATERIAL
)
then
return
end
if
Duel
.
GetLocationCount
(
tp
,
LOCATION_MZONE
)
<=
0
then
return
end
Duel
.
Hint
(
HINT_SELECTMSG
,
tp
,
HINTMSG_SPSUMMON
)
local
g
=
Duel
.
SelectMatchingCard
(
tp
,
c47570400
.
spfilter
,
tp
,
LOCATION_EXTRA
,
0
,
1
,
1
,
nil
,
e
,
tp
)
if
g
:
GetCount
()
>
0
then
Duel
.
SpecialSummon
(
g
,
SUMMON_TYPE_SYNCHRO
,
tp
,
tp
,
false
,
false
,
POS_FACEUP
)
end
end
\ No newline at end of file
expansions/script/c9980193.lua
View file @
c4f4479e
...
...
@@ -75,15 +75,15 @@ function c9980193.atkop(e,tp,eg,ep,ev,re,r,rp)
e2
:
SetValue
(
def
/
2
)
e2
:
SetReset
(
RESET_EVENT
+
RESETS_STANDARD
)
tc
:
RegisterEffect
(
e2
)
end
l
local
e3
=
Effect
.
CreateEffect
(
c
)
local
e3
=
Effect
.
CreateEffect
(
c
)
e3
:
SetType
(
EFFECT_TYPE_FIELD
)
e3
:
SetCode
(
EFFECT_CANNOT_ACTIVATE
)
e3
:
SetProperty
(
EFFECT_FLAG_PLAYER_TARGET
)
e3
:
SetTargetRange
(
0
,
1
)
e3
:
SetValue
(
c9980193
.
aclimit
)
e3
:
SetReset
(
RESET_PHASE
+
PHASE_END
)
tc
:
RegisterEffect
(
e3
)
tc
:
RegisterEffect
(
e3
,
tp
)
end
end
function
c9980193
.
aclimit
(
e
,
re
,
tp
)
return
re
:
GetHandler
():
IsOnField
()
or
re
:
IsHasType
(
EFFECT_TYPE_ACTIVATE
)
...
...
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