Skip to content

Commit 9ffdd7b

Browse files
pyrQpyrQ
authored
Add files via upload
1 parent 2d6d064 commit 9ffdd7b

67 files changed

Lines changed: 5647 additions & 1 deletion

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

‎archetype_setcode_constants.lua‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -596,8 +596,8 @@ SET_DOOM_KING = 0x1c8
596596
--Released but the official English name is unconfirmed
597597
SET_MAGNIFISTORM = 0x1c9
598598
SET_DOOM_Z = 0x1cb
599-
--Pre-release archetypes
600599
SET_HECAHANDS = 0x1cc
601600
SET_ENNEACRAFT = 0x1cd
602601
SET_KILLER_TUNE = 0x1ce
602+
--Pre-release archetypes
603603
SET_ECCLESIA = 0x1cf

‎official/c14442329.lua‎

Lines changed: 93 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,93 @@
1+
--ジュークジョイント“Ｋｉｌｌｅｒ Ｔｕｎｅ”
2+
--Juke Joint "Killer Tune"
3+
--scripted by Naim
4+
local s,id=GetID()
5+
function s.initial_effect(c)
6+
--Activate
7+
local e0=Effect.CreateEffect(c)
8+
e0:SetType(EFFECT_TYPE_ACTIVATE)
9+
e0:SetCode(EVENT_FREE_CHAIN)
10+
c:RegisterEffect(e0)
11+
--You can Normal Summon 1 Tuner in addition to your Normal Summon/Set
12+
local e1=Effect.CreateEffect(c)
13+
e1:SetDescription(aux.Stringid(id,0))
14+
e1:SetType(EFFECT_TYPE_FIELD)
15+
e1:SetRange(LOCATION_FZONE)
16+
e1:SetTargetRange(LOCATION_HAND|LOCATION_MZONE,0)
17+
e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
18+
e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_TUNER))
19+
c:RegisterEffect(e1)
20+
--"Killer Tune Loudness War" you control gains 3300 ATK while your opponent has a Tuner in their field or GY
21+
local e2=Effect.CreateEffect(c)
22+
e2:SetType(EFFECT_TYPE_FIELD)
23+
e2:SetCode(EFFECT_UPDATE_ATTACK)
24+
e2:SetRange(LOCATION_FZONE)
25+
e2:SetTargetRange(LOCATION_MZONE,0)
26+
e2:SetTarget(aux.TargetBoolFunction(Card.IsCode,41069676))
27+
e2:SetValue(3300)
28+
e2:SetCondition(function(e) return Duel.IsExistingMatchingCard(aux.FaceupFilter(Card.IsType,TYPE_TUNER),e:GetHandlerPlayer(),0,LOCATION_MZONE|LOCATION_GRAVE,1,nil) end)
29+
c:RegisterEffect(e2)
30+
--Add to your hand, or Special Summon, 1 "Killer Tune" monster from your Deck
31+
local e3=Effect.CreateEffect(c)
32+
e3:SetDescription(aux.Stringid(id,1))
33+
e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON)
34+
e3:SetType(EFFECT_TYPE_IGNITION)
35+
e3:SetRange(LOCATION_FZONE)
36+
e3:SetCountLimit(1,id)
37+
e3:SetCost(s.thspcost)
38+
e3:SetTarget(s.thsptg)
39+
e3:SetOperation(s.thspop)
40+
c:RegisterEffect(e3)
41+
end
42+
s.listed_names={41069676} --"Killer Tune Loudness War"
43+
s.listed_series={SET_KILLER_TUNE}
44+
function s.costfilter(c,e,tp)
45+
return c:IsType(TYPE_TUNER) and Duel.IsExistingMatchingCard(s.thspfilter,tp,LOCATION_DECK,0,1,nil,e,tp,Duel.GetMZoneCount(tp,c)>0)
46+
end
47+
function s.thspfilter(c,e,tp,mmz_chk)
48+
return c:IsSetCard(SET_KILLER_TUNE) and c:IsMonster()
49+
and (c:IsAbleToHand() or (mmz_chk and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
50+
end
51+
function s.thspcost(e,tp,eg,ep,ev,re,r,rp,chk)
52+
if chk==0 then return Duel.CheckReleaseGroupCost(tp,s.costfilter,1,false,nil,nil,e,tp) end
53+
local g=Duel.SelectReleaseGroupCost(tp,s.costfilter,1,1,false,nil,nil,e,tp)
54+
Duel.Release(g,REASON_COST)
55+
end
56+
function s.thsptg(e,tp,eg,ep,ev,re,r,rp,chk)
57+
if chk==0 then return true end
58+
Duel.SetPossibleOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
59+
Duel.SetPossibleOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
60+
end
61+
function s.thspop(e,tp,eg,ep,ev,re,r,rp)
62+
local mmz_chk=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
63+
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(id,2))
64+
local sc=Duel.SelectMatchingCard(tp,s.thspfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,mmz_chk):GetFirst()
65+
if sc then
66+
aux.ToHandOrElse(sc,tp,
67+
function()
68+
return mmz_chk and sc:IsCanBeSpecialSummoned(e,0,tp,false,false)
69+
end,
70+
function()
71+
Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
72+
end,
73+
aux.Stringid(id,3)
74+
)
75+
end
76+
--You cannot Special Summon for the rest of this turn, except Tuners
77+
local e1=Effect.CreateEffect(e:GetHandler())
78+
e1:SetDescription(aux.Stringid(id,4))
79+
e1:SetType(EFFECT_TYPE_FIELD)
80+
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
81+
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
82+
e1:SetTargetRange(1,0)
83+
e1:SetTarget(s.splimit)
84+
e1:SetReset(RESET_PHASE|PHASE_END)
85+
Duel.RegisterEffect(e1,tp)
86+
end
87+
function s.splimit(e,c)
88+
if c:IsMonster() then
89+
return not c:IsType(TYPE_TUNER)
90+
elseif c:IsMonsterCard() then
91+
return not c:IsOriginalType(TYPE_TUNER)
92+
end
93+
end

‎official/c15665977.lua‎

Lines changed: 86 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,86 @@
1+
--キラーチューン・レッドシール
2+
--Killer Tune Red Seal
3+
--scripted by Naim
4+
local s,id=GetID()
5+
function s.initial_effect(c)
6+
c:EnableReviveLimit()
7+
--Synchro Summon procedure: "Killer Tune Reco" + 1+ Tuners
8+
Synchro.AddProcedure(c,aux.FALSE,1,1,s.tunerfilter,1,99,aux.FilterSummonCode(89392810))
9+
--Gains 300 ATK for each Tuner in the GYs
10+
local e1=Effect.CreateEffect(c)
11+
e1:SetType(EFFECT_TYPE_SINGLE)
12+
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
13+
e1:SetCode(EFFECT_UPDATE_ATTACK)
14+
e1:SetRange(LOCATION_MZONE)
15+
e1:SetValue(function(e,c) return 300*Duel.GetMatchingGroupCount(Card.IsType,0,LOCATION_GRAVE,LOCATION_GRAVE,nil,TYPE_TUNER) end)
16+
c:RegisterEffect(e1)
17+
--The Levels of monsters your opponent controls with 1700 or less original ATK are increased by 1
18+
local e2=Effect.CreateEffect(c)
19+
e2:SetType(EFFECT_TYPE_FIELD)
20+
e2:SetCode(EFFECT_UPDATE_LEVEL)
21+
e2:SetRange(LOCATION_MZONE)
22+
e2:SetTargetRange(0,LOCATION_MZONE)
23+
e2:SetTarget(function(e,c) return c:GetBaseAttack()<=1700 end)
24+
e2:SetValue(1)
25+
c:RegisterEffect(e2)
26+
--Negate the effects of 1 face-up card your opponent controls until the end of this turn
27+
local e3=Effect.CreateEffect(c)
28+
e3:SetDescription(aux.Stringid(id,0))
29+
e3:SetCategory(CATEGORY_DISABLE)
30+
e3:SetType(EFFECT_TYPE_QUICK_O)
31+
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
32+
e3:SetCode(EVENT_FREE_CHAIN)
33+
e3:SetRange(LOCATION_MZONE)
34+
e3:SetCountLimit(1,id)
35+
e3:SetCondition(function() return Duel.IsMainPhase() end)
36+
e3:SetCost(s.discost)
37+
e3:SetTarget(s.distg)
38+
e3:SetOperation(s.disop)
39+
e3:SetHintTiming(0,TIMING_STANDBY_PHASE|TIMING_MAIN_END|TIMINGS_CHECK_MONSTER)
40+
c:RegisterEffect(e3)
41+
--Multiple tuners
42+
local e4=Effect.CreateEffect(c)
43+
e4:SetType(EFFECT_TYPE_SINGLE)
44+
e4:SetCode(EFFECT_MATERIAL_CHECK)
45+
e4:SetValue(s.valcheck)
46+
c:RegisterEffect(e4)
47+
end
48+
s.listed_names={89392810} --"Killer Tune Reco"
49+
s.material={89392810}
50+
function s.tunerfilter(c,scard,sumtype,tp)
51+
return c:IsType(TYPE_TUNER,scard,sumtype,tp) or c:IsHasEffect(EFFECT_CAN_BE_TUNER)
52+
end
53+
function s.costfilter(c)
54+
return c:IsType(TYPE_TUNER) and c:IsAbleToRemoveAsCost() and aux.SpElimFilter(c,true)
55+
end
56+
function s.discost(e,tp,eg,ep,ev,re,r,rp,chk)
57+
if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_MZONE|LOCATION_GRAVE,0,1,nil) end
58+
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
59+
local g=Duel.SelectMatchingCard(tp,s.costfilter,tp,LOCATION_MZONE|LOCATION_GRAVE,0,1,1,nil)
60+
Duel.Remove(g,POS_FACEUP,REASON_COST)
61+
end
62+
function s.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
63+
if chkc then return chkc:IsOnField() and c:IsControler(1-tp) and chkc:IsNegatable() end
64+
if chk==0 then return Duel.IsExistingTarget(Card.IsNegatable,tp,0,LOCATION_ONFIELD,1,nil) end
65+
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_NEGATE)
66+
local g=Duel.SelectTarget(tp,Card.IsNegatable,tp,0,LOCATION_ONFIELD,1,1,nil)
67+
Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,tp,0)
68+
end
69+
function s.disop(e,tp,eg,ep,ev,re,r,rp)
70+
local tc=Duel.GetFirstTarget()
71+
if tc:IsRelateToEffect(e) and tc:IsFaceup() then
72+
--Negate its effects until the end of this turn
73+
tc:NegateEffects(e:GetHandler(),RESET_PHASE|PHASE_END,true)
74+
end
75+
end
76+
function s.valcheck(e,c)
77+
local g=c:GetMaterial()
78+
if g:IsExists(function(c) return c:IsType(TYPE_TUNER) or c:IsHasEffect(EFFECT_CAN_BE_TUNER) end,2,nil) then
79+
local e1=Effect.CreateEffect(c)
80+
e1:SetType(EFFECT_TYPE_SINGLE)
81+
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
82+
e1:SetCode(EFFECT_MULTIPLE_TUNERS)
83+
e1:SetReset(RESET_EVENT|(RESETS_STANDARD&~RESET_TOFIELD)|RESET_PHASE|PHASE_END)
84+
c:RegisterEffect(e1)
85+
end
86+
end

‎official/c16387555.lua‎

Lines changed: 86 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,86 @@
1+
--キラーチューン・キュー
2+
--Killer Tune Cue
3+
--Scripted by Hatter
4+
local s,id=GetID()
5+
function s.initial_effect(c)
6+
--If this card on the field would be used as Synchro Material, 1 Tuner in your hand can be used as 1 of the other materials
7+
Synchro.AddHandMaterialEffect(c,id,function(c) return c:IsType(TYPE_TUNER) end)
8+
--Special Summon 1 Tuner from your hand, Deck, or GY, except "Killer Tune Cue"
9+
local e1=Effect.CreateEffect(c)
10+
e1:SetDescription(aux.Stringid(id,0))
11+
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
12+
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
13+
e1:SetProperty(EFFECT_FLAG_DELAY)
14+
e1:SetCode(EVENT_SUMMON_SUCCESS)
15+
e1:SetCountLimit(1,id)
16+
e1:SetTarget(s.sptg)
17+
e1:SetOperation(s.spop)
18+
c:RegisterEffect(e1)
19+
--Excavate the top 2 cards of your opponent's Deck, banish 1 excavated card, also place the other on the top or bottom of the Deck
20+
local e2=Effect.CreateEffect(c)
21+
e2:SetDescription(aux.Stringid(id,1))
22+
e2:SetCategory(CATEGORY_REMOVE)
23+
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
24+
e2:SetProperty(EFFECT_FLAG_DELAY)
25+
e2:SetCode(EVENT_BE_MATERIAL)
26+
e2:SetCountLimit(1,{id,1})
27+
e2:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO end)
28+
e2:SetTarget(s.exctg)
29+
e2:SetOperation(s.excop)
30+
c:RegisterEffect(e2)
31+
end
32+
s.listed_names={id}
33+
s.listed_series={SET_KILLER_TUNE}
34+
function s.spfilter(c,e,tp)
35+
return c:IsType(TYPE_TUNER) and not c:IsCode(id) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
36+
end
37+
function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
38+
if chk==0 then return Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND|LOCATION_DECK|LOCATION_GRAVE,0,1,nil,e,tp) end
39+
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND|LOCATION_DECK|LOCATION_GRAVE)
40+
end
41+
function s.spop(e,tp,eg,ep,ev,re,r,rp)
42+
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
43+
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
44+
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_HAND|LOCATION_DECK|LOCATION_GRAVE,0,1,1,nil,e,tp)
45+
if #g>0 then
46+
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
47+
end
48+
end
49+
--You cannot Special Summon for the rest of this turn, except Tuners
50+
local e1=Effect.CreateEffect(e:GetHandler())
51+
e1:SetDescription(aux.Stringid(id,2))
52+
e1:SetType(EFFECT_TYPE_FIELD)
53+
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
54+
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
55+
e1:SetTargetRange(1,0)
56+
e1:SetTarget(s.splimit)
57+
e1:SetReset(RESET_PHASE|PHASE_END)
58+
Duel.RegisterEffect(e1,tp)
59+
end
60+
function s.splimit(e,c)
61+
if c:IsMonster() then
62+
return not c:IsType(TYPE_TUNER)
63+
elseif c:IsMonsterCard() then
64+
return not c:IsOriginalType(TYPE_TUNER)
65+
end
66+
end
67+
function s.exctg(e,tp,eg,ep,ev,re,r,rp,chk)
68+
if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>=2 and Duel.IsPlayerCanRemove(tp) end
69+
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_DECK)
70+
end
71+
function s.excop(e,tp,eg,ep,ev,re,r,rp)
72+
if Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)==0 then return end
73+
Duel.DisableShuffleCheck()
74+
Duel.ConfirmDecktop(1-tp,2)
75+
local g=Duel.GetDecktopGroup(1-tp,2)
76+
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
77+
local sg=g:FilterSelect(tp,Card.IsAbleToRemove,1,1,nil)
78+
if #sg>0 then
79+
Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
80+
Duel.ConfirmDecktop(1-tp,1)
81+
if Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)<=1 then return end
82+
local op=Duel.SelectOption(tp,aux.Stringid(id,3),aux.Stringid(id,4))
83+
if op==0 then return end
84+
Duel.MoveSequence((g-sg):GetFirst(),1)
85+
end
86+
end

‎official/c16509007.lua‎

Lines changed: 63 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,63 @@
1+
--キラーチューン・ミクス
2+
--Killer Tune Mix
3+
--Scripted by Hatter
4+
local s,id=GetID()
5+
function s.initial_effect(c)
6+
--If this card on the field would be used as Synchro Material, 1 Tuner in your hand can be used as 1 of the other materials
7+
Synchro.AddHandMaterialEffect(c,id,function(c) return c:IsType(TYPE_TUNER) end)
8+
--Add 1 "Killer Tune" monster from your Deck or GY to your hand, except a Level 2 monster
9+
local e1a=Effect.CreateEffect(c)
10+
e1a:SetDescription(aux.Stringid(id,0))
11+
e1a:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
12+
e1a:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
13+
e1a:SetProperty(EFFECT_FLAG_DELAY)
14+
e1a:SetCode(EVENT_SUMMON_SUCCESS)
15+
e1a:SetCountLimit(1,id)
16+
e1a:SetTarget(s.thtg)
17+
e1a:SetOperation(s.thop)
18+
c:RegisterEffect(e1a)
19+
local e1b=e1a:Clone()
20+
e1b:SetCode(EVENT_SPSUMMON_SUCCESS)
21+
c:RegisterEffect(e1b)
22+
--Destroy 1 monster your opponent controls
23+
local e2=Effect.CreateEffect(c)
24+
e2:SetDescription(aux.Stringid(id,1))
25+
e2:SetCategory(CATEGORY_DESTROY)
26+
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
27+
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
28+
e2:SetCode(EVENT_BE_MATERIAL)
29+
e2:SetCountLimit(1,{id,1})
30+
e2:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO end)
31+
e2:SetTarget(s.destg)
32+
e2:SetOperation(s.desop)
33+
c:RegisterEffect(e2)
34+
end
35+
s.listed_series={SET_KILLER_TUNE}
36+
function s.thfilter(c)
37+
return c:IsSetCard(SET_KILLER_TUNE) and c:IsMonster() and not c:IsLevel(2) and c:IsAbleToHand()
38+
end
39+
function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
40+
if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK|LOCATION_GRAVE,0,1,nil) end
41+
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK|LOCATION_GRAVE)
42+
end
43+
function s.thop(e,tp,eg,ep,ev,re,r,rp)
44+
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
45+
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_DECK|LOCATION_GRAVE,0,1,1,nil)
46+
if #g>0 then
47+
Duel.SendtoHand(g,nil,REASON_EFFECT)
48+
Duel.ConfirmCards(1-tp,g)
49+
end
50+
end
51+
function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
52+
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end
53+
if chk==0 then return Duel.IsExistingTarget(nil,tp,0,LOCATION_MZONE,1,nil) end
54+
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
55+
local g=Duel.SelectTarget(tp,nil,tp,0,LOCATION_MZONE,1,1,nil)
56+
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,tp,0)
57+
end
58+
function s.desop(e,tp,eg,ep,ev,re,r,rp)
59+
local tc=Duel.GetFirstTarget()
60+
if tc:IsRelateToEffect(e) then
61+
Duel.Destroy(tc,REASON_EFFECT)
62+
end
63+
end

0 commit comments

Comments
 (0)