Commit 5ebd29c1 authored by Tachibana's avatar Tachibana

ndyd

parent ee9029d7
#created by ...
#main
9300002
9310014
9310030
9390000
9390001
9390003
9390004
10908001
10910000
10910001
10910002
10910003
10910004
10910005
10910006
10910007
10910008
10910010
10920000
10920001
10920002
10920003
10920004
10920005
10920008
16400000
16400001
16400002
16400003
16400004
16400006
16400007
16400008
16400009
16400010
16400012
16400014
16400015
16400018
16400021
16400023
16400025
16400030
16400033
16400035
16400036
16400046
16400052
#extra
9390002
10908008
10910009
10920006
10920007
16400005
16400013
16400017
16400020
16400027
16400028
16400029
!side
16400034
16400037
16400038
16400044
16400061
16400062
16400063
16400074
16400075
16400076
#created by ...
#main
17020410
17060810
17060820
17060830
17060870
17060871
17060872
17060873
17060880
17060881
17060882
17060883
17061030
17061080
17061210
17061211
17061212
17061213
17061220
17061310
17061320
17061321
17061340
17061350
17061351
17061370
17061490
17061800
17061810
17061820
26801000
26801001
26801002
26812019
26812020
30553201
30553203
30553205
30553207
30553209
30553211
30553213
30553214
33400502
33400505
33400506
33400556
45746851
45799901
#extra
17020300
17020400
17055060
17061010
17061020
17061040
17061041
17061042
17061060
17061640
21520099
21520100
26806027
!side
30553215
33400510
33400512
33400513
33400514
33400516
33400517
33400518
33400524
33400526
45746831
45746835
45746836
#created by ...
#main
64300001
64300002
64300003
64300004
64300005
64300006
64300007
64300009
64300011
64300013
64300015
64300016
64300017
64300018
64300019
64300020
64300021
64300027
65031014
69601001
69601002
69601003
69696938
69696951
69696952
69696953
69696954
69696955
69696956
69696957
69696958
69696959
69696960
69696961
69696963
#extra
64300008
64300010
64300012
64300014
64300022
64300023
64300024
64300025
64300026
64300028
64300029
64300030
!side
69696962
71400017
71400020
#created by ...
#main
81014000
81014015
81014016
81014017
81014018
81014019
81014020
81014021
81015062
81015068
81015070
81016047
81018063
81018065
81019074
81023023
81024035
81028015
81048001
81048002
81048003
81048017
81060009
81062013
81081997
81081998
#extra
81001008
81015056
81015069
81018064
81024036
81044002
81046041
81046042
81081003
!side
No preview for this file type
......@@ -599,7 +599,6 @@
26801004 0 --樱木真乃的卡拉OK
26801005 1 --樱木真乃的读书之秋
26801009 1 --樱木真乃的小礼物
26802017 0 --吃葡萄不吐葡萄皮
26803002 1 --真实的一瞬
26803023 1 --水之未眠
26805014 0 --哥特风·杜野凛世
......
--吃葡萄不吐葡萄皮
function c26802017.initial_effect(c)
--act in set turn
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e0:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e0:SetCondition(c26802017.actcon)
c:RegisterEffect(e0)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMING_END_PHASE)
e1:SetCountLimit(1,26802017)
e1:SetTarget(c26802017.sptg)
e1:SetOperation(c26802017.spop)
c:RegisterEffect(e1)
--fusion summon
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_GRAVE)
e3:SetHintTiming(0,TIMING_END_PHASE)
e3:SetCountLimit(1,26809924)
e3:SetCost(aux.bfgcost)
e3:SetTarget(c26802017.lsptg)
e3:SetOperation(c26802017.lspop)
c:RegisterEffect(e3)
end
function c26802017.spfilter(c,e,tp)
return c:IsFaceup() and c:IsType(TYPE_MONSTER)
and Duel.IsExistingMatchingCard(c26802017.spfilter2,tp,LOCATION_HAND+LOCATION_DECK,0,2,nil,c:GetCode(),e,tp)
end
function c26802017.spfilter2(c,code,e,tp)
return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c26802017.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c26802017.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK)
end
function c26802017.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g=Duel.SelectMatchingCard(tp,c26802017.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
if g:GetCount()==0 then return end
local code=g:GetFirst():GetCode()
local dg=Duel.GetMatchingGroup(c26802017.spfilter2,tp,LOCATION_HAND+LOCATION_DECK,0,nil,code,e,tp)
if dg:GetCount()>1 then
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg1=dg:Select(tp,1,1,nil)
local tc1=sg1:GetFirst()
local sg2=dg:Filter(Card.IsCode,tc1,tc1:GetCode())
local tc2=sg2:GetFirst()
Duel.SpecialSummonStep(tc1,0,tp,tp,false,false,POS_FACEUP)
Duel.SpecialSummonStep(tc2,0,tp,tp,false,false,POS_FACEUP)
Duel.SpecialSummonComplete()
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
tc1:RegisterEffect(e2)
local e3=e2:Clone()
tc2:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EFFECT_DISABLE_EFFECT)
e4:SetReset(RESET_EVENT+RESETS_STANDARD)
tc1:RegisterEffect(e4)
local e5=e4:Clone()
tc2:RegisterEffect(e5)
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_SINGLE)
e6:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
e6:SetValue(1)
e6:SetReset(RESET_EVENT+RESETS_STANDARD)
tc1:RegisterEffect(e6)
local e7=e6:Clone()
tc2:RegisterEffect(e7)
local e8=Effect.CreateEffect(c)
e8:SetType(EFFECT_TYPE_SINGLE)
e8:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
e8:SetValue(1)
e8:SetReset(RESET_EVENT+RESETS_STANDARD)
tc1:RegisterEffect(e8)
local e9=e8:Clone()
tc2:RegisterEffect(e9)
end
end
function c26802017.cfilter(c)
return c:IsType(TYPE_FUSION) and c:IsFaceup()
end
function c26802017.actcon(e)
return not Duel.IsExistingMatchingCard(c26802017.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
end
function c26802017.lfilter0(c)
return c:IsAbleToRemove()
end
function c26802017.lfilter1(c,e)
return c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
end
function c26802017.lfilter2(c,e,tp,m,f,chkf)
return c:IsType(TYPE_FUSION) and (not f or f(c)) and c:IsRace(RACE_PLANT) and c:IsAttribute(ATTRIBUTE_EARTH)
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
end
function c26802017.lfilter3(c)
return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove()
end
function c26802017.lsptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp):Filter(c26802017.lfilter0,nil)
local mg2=Duel.GetMatchingGroup(c26802017.lfilter3,tp,LOCATION_MZONE+LOCATION_HAND+LOCATION_GRAVE,0,nil)
mg1:Merge(mg2)
local res=Duel.IsExistingMatchingCard(c26802017.lfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
if not res then
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
local mg3=fgroup(ce,e,tp)
local mf=ce:GetValue()
res=Duel.IsExistingMatchingCard(c26802017.lfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf)
end
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c26802017.lspop(e,tp,eg,ep,ev,re,r,rp)
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp):Filter(c26802017.lfilter1,nil,e)
local mg2=Duel.GetMatchingGroup(c26802017.lfilter3,tp,LOCATION_MZONE+LOCATION_HAND+LOCATION_GRAVE,0,nil)
mg1:Merge(mg2)
local sg1=Duel.GetMatchingGroup(c26802017.lfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
local mg3=nil
local sg2=nil
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
mg3=fgroup(ce,e,tp)
local mf=ce:GetValue()
sg2=Duel.GetMatchingGroup(c26802017.lfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf)
end
if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
local sg=sg1:Clone()
if sg2 then sg:Merge(sg2) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local tg=sg:Select(tp,1,1,nil)
local tc=tg:GetFirst()
if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
tc:SetMaterial(mat1)
Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
Duel.BreakEffect()
Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
else
local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
local fop=ce:GetOperation()
fop(ce,e,tp,tc,mat2)
end
tc:CompleteProcedure()
end
end
......@@ -68,7 +68,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
end
end
function cm.thfilter(c)
return c:IsCode(26802017,81048004,81048005) and (c:IsAbleToHand() or c:IsAbleToGrave())
return c:IsCode(81006092,81048004,81048005) and (c:IsAbleToHand() or c:IsAbleToGrave())
end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) 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