Commit 13b80350 authored by Nemo Ma's avatar Nemo Ma

upd

parent eec6cf1c
......@@ -1046,6 +1046,25 @@
30015045 0
30015080 0
30015100 0
#221211
4877066 0
4877400 0
10173033 0
15000421 0
29065506 0
33200959 0
33200960 0
60060029 0
65010020 0
87493030 0
4877055 1
4877060 1
33200955 1
64800122 1
64800123 1
67200604 1
11451803 2
22022060 2
#221204
3679215 0
10113048 0
......@@ -1545,7 +1564,6 @@
82224073 0
20000454 1
40008670 1
65010020 1
65020212 1
#220904
20220723 0
......@@ -1801,11 +1819,8 @@
40009385 0
60001002 0
64800026 0
64800122 0
64800123 0
47395385 1
#220321
22020310 0
89389005 0
15000129 1
#220313
......@@ -4190,7 +4205,8 @@
117960683 0
9950742 2
#Forbidden TCG
53804307 0 --Blaster, Dragon Ruler of Infernos MAIN DECK MONSTERS
##MAIN DECK MONSTERS
53804307 0 --Blaster, Dragon Ruler of Infernos
94689206 0 --Block Dragon
8903700 0 --Djinn Releaser of Rituals
51858306 0 --Eclipse Wyvern
......@@ -4228,7 +4244,6 @@
94677445 0 --Ib the World Chalice Justiciar
63101919 0 --Tempest Magician
34086406 0 --Lavalval Chain
18326736 0 --Tellarknight Ptolomaeus
81122844 0 --Wind-Up Carrier Zenmaity
85115440 0 --Zoodiac Broadbull
54719828 0 --Number 16: Shock Master
......@@ -4254,6 +4269,7 @@
44097050 0 --Mecha Phantom Beast Auroradon
25725326 0 --Prank-Kids Meow-Meow-Mu
70369116 0 --Predaplant Verte Anaconda
98095162 0 --Curious, the Lightsworn Dominion
69243953 0 --Butterfly Dagger - Elma SPELLS CARDS
57953380 0 --Card of Safe Return
67616300 0 --Chicken Game
......@@ -4279,6 +4295,7 @@
11110587 0 --That Grass Looks Greener
54447022 0 --Soul Charge
46060017 0 --Zoodiac Barrage
76375976 0 --Mystic Mine
61740673 0 --Imperial Order TRAPS CARDS
28566710 0 --Last Turn
23002292 0 --Red Reboot
......@@ -4327,15 +4344,14 @@
34124316 1 --Cyber Jar
72291078 1 --Mecha Phantom Beast O-Lion
20663556 1 --Substitoad
17266660 1 --Herald of Orange Light
39512984 1 --Gem-Knight Master Diamond EXTRA DECK MONSTERS
90953320 1 --T.G. Hyper Librarian
74586817 1 --Psy-Framelord Omega
27552504 1 --Beatrice, Lady of Eternal
581014 1 --Daigusto Emeral
73539069 1 --Striker Dragon
8491961 1 --Lyrilusc - Recital Starling
81674782 1 --Dimensional Fissure SPELL CARDS
95308449 1 --Final Countdown
95308449 1 --Final Countdown SPELL CARDS
81439173 1 --Foolish Burial
18144506 1 --Harpie's Feather Duster
66957584 1 --Infernity Launcher
......@@ -4371,13 +4387,11 @@
4031928 1 --Change of Heart
46448938 1 --Spellbook of Judgement
32723153 1 --Magical Explosion --TRAP CARDS
30241314 1 --Macro Cosmos
89208725 1 --Metaverse
35316708 1 --Time Seal
43262273 1 --Appointer of the Red Lotus
#Semi-Limited TCG
9411399 2 --Destiny HERO - Malicious
57103969 2 --Fire Formation - Tenki
8491961 2 --Lyrilusc - Recital Starling
35261759 2 --Pot of Desires
!THE WILD LIST
......@@ -4870,7 +4884,8 @@
98730319 2
117960683 2
#Forbidden TCG
53804307 1 --Blaster, Dragon Ruler of Infernos MAIN DECK MONSTERS
##MAIN DECK MONSTERS
53804307 1 --Blaster, Dragon Ruler of Infernos
94689206 1 --Block Dragon
8903700 1 --Djinn Releaser of Rituals
51858306 1 --Eclipse Wyvern
......@@ -4908,7 +4923,6 @@
94677445 1 --Ib the World Chalice Justiciar
63101919 1 --Tempest Magician
34086406 1 --Lavalval Chain
18326736 1 --Tellarknight Ptolomaeus
81122844 1 --Wind-Up Carrier Zenmaity
85115440 1 --Zoodiac Broadbull
54719828 1 --Number 16: Shock Master
......@@ -4934,6 +4948,7 @@
44097050 1 --Mecha Phantom Beast Auroradon
25725326 1 --Prank-Kids Meow-Meow-Mu
70369116 1 --Predaplant Verte Anaconda
98095162 1 --Curious, the Lightsworn Dominion
69243953 1 --Butterfly Dagger - Elma SPELLS CARDS
57953380 1 --Card of Safe Return
67616300 1 --Chicken Game
......@@ -4959,6 +4974,7 @@
11110587 1 --That Grass Looks Greener
54447022 1 --Soul Charge
46060017 1 --Zoodiac Barrage
76375976 1 --Mystic Mine
61740673 1 --Imperial Order TRAPS CARDS
28566710 1 --Last Turn
23002292 1 --Red Reboot
......
No preview for this file type
--星辉末裔 丹特
function c33200961.initial_effect(c)
--link summon
c:EnableReviveLimit()
aux.AddLinkProcedure(c,nil,2,99,c33200961.lcheck)
--atk up
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(33200961,0))
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1)
e3:SetTarget(c33200961.sptg)
e3:SetOperation(c33200961.spop)
c:RegisterEffect(e3)
--gogogo!
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(33200961,0))
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,33200961)
e1:SetCondition(c33200961.phcon)
e1:SetTarget(c33200961.phtg)
e1:SetOperation(c33200961.phop)
c:RegisterEffect(e1)
if not c33200961.global_check then
c33200961.global_check=true
local ge1=Effect.CreateEffect(c)
ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
ge1:SetCode(EVENT_SUMMON_SUCCESS)
ge1:SetOperation(c33200961.checkop)
Duel.RegisterEffect(ge1,0)
local ge2=ge1:Clone()
ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
Duel.RegisterEffect(ge2,0)
end
end
function c33200961.lcheck(g,lc)
return g:IsExists(Card.IsLinkSetCard,1,nil,0x632a)
end
--e1
function c33200961.checkop(e,tp,eg,ep,ev,re,r,rp)
local tc=eg:GetFirst()
while tc do
Duel.RegisterFlagEffect(tc:GetSummonPlayer(),33200961,RESET_PHASE+PHASE_END,0,1)
tc=eg:GetNext()
end
end
function c33200961.phcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetFlagEffect(1-tp,33200961)>=5 and Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.IsAbleToEnterBP()
end
function c33200961.phtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
Duel.SetOperationInfo(0,CATEGORY_POSITION,sg,sg:GetCount(),0,0)
end
function c33200961.phop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
if sg:GetCount()>0 then
Duel.ChangePosition(sg,POS_FACEUP_ATTACK,0,POS_FACEUP_ATTACK,0)
local kp=Duel.GetTurnPlayer()
if Duel.GetCurrentPhase()<PHASE_BATTLE_START then
Duel.SkipPhase(kp,PHASE_STANDBY,RESET_PHASE+PHASE_END,1)
Duel.SkipPhase(kp,PHASE_MAIN1,RESET_PHASE+PHASE_END,1)
end
end
end
--e3
function c33200961.sptg(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
end
function c33200961.dspfilter(c)
return c:IsSetCard(0x632a) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden() and c:CheckUniqueOnField(tp,LOCATION_SZONE)
end
function c33200961.spop(e,tp,eg,ep,ev,re,r,rp)
if not (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1)) then return end
local c=e:GetHandler()
Duel.ConfirmDecktop(tp,5)
local g=Duel.GetDecktopGroup(tp,5)
local ct=g:GetCount()
if ct>0 and g:FilterCount(c33200961.dspfilter,nil)>0 and Duel.SelectYesNo(tp,aux.Stringid(33200961,2)) then
Duel.DisableShuffleCheck()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
local sg=g:FilterSelect(tp,c33200961.dspfilter,1,1,nil)
local sc=sg:GetFirst()
Duel.MoveToField(sc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
local satk=math.floor(sc:GetBaseAttack()/2)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(satk)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
end
Duel.ShuffleDeck(tp)
end
--造神计划5 空想原核
if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
local m,cm=rscf.DefineCard(33330105)
function cm.initial_effect(c)
c:EnableReviveLimit()
aux.AddFusionProcMixRep(c,true,true,cm.ffilter,3,3,cm.ffilter2,cm.ffilter2)
aux.AddContactFusionProcedure(c,Card.IsAbleToRemoveAsCost,LOCATION_GRAVE,LOCATION_GRAVE,Duel.Remove,POS_FACEUP,REASON_COST)
--spsummon condition
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_SPSUMMON_CONDITION)
e0:SetValue(cm.splimit)
c:RegisterEffect(e0)
local e1=rsef.FC(c,EVENT_CHAINING)
e1:SetCondition(cm.rmcon)
e1:SetOperation(cm.rmop)
local e2=rsef.QO(c,nil,{m,0},nil,"td",nil,LOCATION_MZONE,rscon.phase("mp1","mp2","bp"),cm.cost,rsop.target(rscf.FilterFaceUp(Card.IsAbleToDeck),"td",LOCATION_REMOVED,LOCATION_REMOVED),cm.tdop)
local e3=rsef.STO(c,EVENT_LEAVE_FIELD,{m,1},{1,m},"sp","de,dsp",cm.spcon,nil,rsop.target(cm.spfilter,"sp",LOCATION_GRAVE,0,1,1,c),cm.spop)
end
function cm.splimit(e,se,sp,st)
return not e:GetHandler():IsLocation(LOCATION_EXTRA)
end
function cm.ffilter(c,fc,sub,mg,sg)
return c:IsFusionType(TYPE_FUSION) and (not sg or (not sg:IsExists(Card.IsFusionCode,1,c,c:GetFusionCode()) and sg:IsExists(Card.IsFusionSetCard,1,nil,0x551)))
end
function cm.ffilter2(c,fc,sub,mg,sg)
return c:IsFusionType(TYPE_LINK) and c:IsLinkAbove(2) and (not sg or sg:IsExists(Card.IsFusionSetCard,1,nil,0x551))
end
function cm.rmcon(e,tp,eg,ep,ev,re,r,rp)
local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
return loc&LOCATION_ONFIELD+LOCATION_HAND ~=0 and re:GetHandler():IsRelateToEffect(re) and re:GetHandler():IsAbleToRemove()
end
function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=re:GetHandler()
Duel.Hint(HINT_CARD,0,m)
local reason=rc:IsType(TYPE_MONSTER) and REASON_TEMPORARY+REASON_EFFECT or REASON_EFFECT
if Duel.Remove(rc,POS_FACEUP,reason)<=0 then return end
rc:RegisterFlagEffect(m,rsreset.est,0,1,ev)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetCode(EVENT_CHAIN_END)
e1:SetCountLimit(1)
e1:SetLabel(ev)
e1:SetLabelObject(rc)
e1:SetCondition(cm.retcon1)
e1:SetOperation(cm.retop1)
Duel.RegisterEffect(e1,tp)
end
function cm.retcon1(e,tp)
local tc=e:GetLabelObject()
if tc:GetFlagEffect(m)~=0 then
return true
else
e:Reset()
return false
end
end
function cm.retop1(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject()
if not tc:IsReason(REASON_TEMPORARY) then
Duel.SendtoGrave(tc,REASON_EFFECT)
end
if tc:IsPreviousLocation(LOCATION_HAND) then Duel.SendtoHand(tc,nil,REASON_EFFECT) end
if tc:IsPreviousLocation(LOCATION_MZONE) then Duel.ReturnToField(tc) end
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:IsAbleToRemoveAsCost() end
if Duel.Remove(c,POS_FACEUP,REASON_COST+REASON_TEMPORARY)~=0 then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_ADJUST)
e1:SetDescription(aux.Stringid(m,2))
e1:SetLabelObject(c)
e1:SetCountLimit(1)
e1:SetLabel(Duel.GetCurrentPhase())
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetCondition(cm.retcon2)
e1:SetOperation(cm.retop2)
Duel.RegisterEffect(e1,tp)
end
end
function cm.retcon2(e,tp)
return Duel.GetCurrentPhase()~=e:GetLabel()
end
function cm.retop2(e,tp,eg,ep,ev,re,r,rp)
Duel.ReturnToField(e:GetLabelObject())
end
function cm.tdop(e,tp)
local c=e:GetHandler()
local ct,og=rsop.SelectToDeck(tp,rscf.FilterFaceUp(Card.IsAbleToDeck),tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil,{})
if ct<=0 then return end
local tc=og:GetFirst()
if not tc:IsLocation(LOCATION_EXTRA+LOCATION_DECK) then return false end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE)
e1:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
e1:SetTarget(cm.distg)
e1:SetLabelObject(tc)
e1:SetReset(RESET_CHAIN)
Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetCondition(cm.discon)
e2:SetOperation(cm.disop)
e2:SetLabelObject(tc)
e2:SetReset(RESET_CHAIN)
Duel.RegisterEffect(e2,tp)
end
function cm.distg(e,c)
local tc=e:GetLabelObject()
return c:IsCode(tc:GetOriginalCodeRule())
end
function cm.discon(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject()
return re:GetHandler():IsCode(tc:GetOriginalCodeRule())
end
function cm.disop(e,tp,eg,ep,ev,re,r,rp)
Duel.NegateEffect(ev)
end
function cm.spcon(e,tp)
return e:GetHandler():IsPreviousPosition(POS_FACEUP)
end
function cm.spfilter(c,e,tp)
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsSetCard(0x551) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.spop(e,tp)
local ct,og=rsop.SelectSpecialSummon(tp,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,aux.ExceptThisCard(e),{0,tp,tp,false,false,POS_FACEUP_DEFENSE,nil,{"dis,dise",true},"des" },e,tp)
end
\ No newline at end of file
......@@ -51,7 +51,7 @@ function c35399020.op1(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,1,nil)
if sg:GetCount()<1 then return end
Duel.SendtoDeck(sg,tp,2,REASON_EFFECT)
Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)
end
end
--
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment