Skip to content

Y
ygopro-222DIY-cards
Commit a47e05f5 authored by Tachibana's avatar Tachibana
Browse files
Options

eme

parent 85b32e31
Hide whitespace changes
Inline Side-by-side
Showing with 280 additions and 121 deletions
expansions/222DIY.cdb
View file @ a47e05f5
No preview for this file type
expansions/script/c66915000.lua
View file @ a47e05f5
......@@ -3,12 +3,13 @@ local m=66915000
local cm=_G["c"..m]
function cm.initial_effect(c)
c:EnableReviveLimit()
--spsummon condition
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
c:RegisterEffect(e1)
e1:SetValue(cm.splimit)
c:RegisterEffect(e1)
--equip
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(m,0))
......@@ -40,6 +41,10 @@ function cm.initial_effect(c)
e3:SetOperation(cm.drop)
c:RegisterEffect(e3)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.val(e,c)
return c:GetEquipCount()*100
end
......
expansions/script/c66915001.lua
View file @ a47e05f5
--璀璨的星辉
if not StarLight_from_K then
StarLight_from_K={}
StarLight_from_K.Brightstarlight_Effect={}
end
function c66915001.initial_effect(c)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
......@@ -14,6 +18,7 @@ function c66915001.initial_effect(c)
e1:SetTarget(c66915001.target)
e1:SetOperation(c66915001.spop)
c:RegisterEffect(e1)
StarLight_from_K.Brightstarlight_Effect[e1]=true
--spsummon limit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
......@@ -25,7 +30,7 @@ function c66915001.initial_effect(c)
c:RegisterEffect(e2)
end
function c66915001.filter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,true,false) and (c:IsSetCard(0x1374) and not c:IsCode(66915073) and not c:IsCode(66915074) and not c:IsCode(66915075) and not c:IsCode(66915077)) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0x1374) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c66915001.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c66915001.filters,tp,LOCATION_SZONE,0,1,nil)
......@@ -41,44 +46,11 @@ function c66915001.spop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c66915001.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
g:GetFirst():CompleteProcedure()
Duel.Hint(HINT_MUSIC,0,aux.Stringid(66915001,1))
end
end
function c66915001.seqcon(e,tp,eg,ep,ev,re,r,rp)
local seq=e:GetHandler():GetSequence()
if seq>4 then return false end
return (seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1))
or (seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1))
end
function c66915001.seqop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) or c:IsControler(1-tp) then return end
local seq=c:GetSequence()
if seq>4 then return end
if (seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1))
or (seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1)) then
local flag=0
if seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1) then flag=bit.replace(flag,0x1,seq-1) end
if seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1) then flag=bit.replace(flag,0x1,seq+1) end
flag=bit.bxor(flag,0xff)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
local s=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,flag)
local nseq=0
if s==1 then nseq=0
elseif s==2 then nseq=1
elseif s==4 then nseq=2
elseif s==8 then nseq=3
else nseq=4 end
Duel.MoveSequence(c,nseq)
end
end
function c66915001.eftg(e,c)
local seq=c:GetSequence()
return c:IsType(TYPE_EFFECT) and c:IsSetCard(0x1374)
and seq<5 and math.abs(e:GetHandler():GetSequence()-seq)==1
end
function c66915001.sumlimit(e,c,sump,sumtype,sumpos,targetp)
return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1374)
end
\ No newline at end of file
expansions/script/c66915006.lua
View file @ a47e05f5
......@@ -3,11 +3,12 @@ local m=66915006
local cm=_G["c"..m]
function cm.initial_effect(c)
c:EnableReviveLimit()
--spsummon condition
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(cm.splimit)
c:RegisterEffect(e1)
--move
local e11=Effect.CreateEffect(c)
......@@ -36,6 +37,10 @@ cm.material_type=TYPE_SYNCHRO
function cm.seqfilter(c)
return c:IsFaceup() and c:IsSetCard(0x374) and c:IsType(TYPE_CONTINUOUS) and (c:IsType(TYPE_SPELL) or c:IsType(TYPE_TRAP))
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and cm.seqfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(cm.seqfilter,tp,LOCATION_SZONE,0,1,nil)
......
expansions/script/c66915007.lua
View file @ a47e05f5
......@@ -3,12 +3,13 @@ local m=66915007
local cm=_G["c"..m]
function cm.initial_effect(c)
c:EnableReviveLimit()
--cannot special summon
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
c:RegisterEffect(e1)
e1:SetValue(cm.splimit)
c:RegisterEffect(e1)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
......@@ -38,6 +39,10 @@ end
function cm.spfilter(c)
return c:IsAbleToGraveAsCost() and c:IsSetCard(0x374) and (c:IsType(TYPE_SPELL+TYPE_CONTINUOUS) or c:IsType(TYPE_TRAP))
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
local tp=e:GetHandler():GetControler()
return not Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_SZONE,0,1,nil)
......
expansions/script/c66915012.lua
View file @ a47e05f5
--创造星曜·生息座
local m=66915012
local cm=_G["c"..m]
if not StarLight_from_K then
StarLight_from_K={}
StarLight_from_K.Brightstarlight_Effect={}
end
function cm.initial_effect(c)
aux.AddCodeList(c,66915055)
c:SetUniqueOnField(1,0,m)
......@@ -13,6 +17,7 @@ function cm.initial_effect(c)
e1:SetTarget(cm.target)
e1:SetOperation(cm.operation)
c:RegisterEffect(e1)
StarLight_from_K.Brightstarlight_Effect[e1]=true
--spsummon limit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
......@@ -24,11 +29,11 @@ function cm.initial_effect(c)
c:RegisterEffect(e2)
end
function cm.filter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:IsSetCard(0x1374)
return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0x1374)
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp
and chkc:IsCanBeSpecialSummoned(e,0,tp,true,false) end
and chkc:IsCanBeSpecialSummoned(e,0,tp,false,false) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingTarget(cm.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
......@@ -39,7 +44,7 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e)
and Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP) then
and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
c:SetCardTarget(tc)
Duel.SpecialSummonComplete()
local e1=Effect.CreateEffect(tc)
......
expansions/script/c66915016.lua
View file @ a47e05f5
......@@ -3,11 +3,12 @@ local m=66915016
local cm=_G["c"..m]
function cm.initial_effect(c)
c:EnableReviveLimit()
--spsummon condition
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(cm.splimit)
c:RegisterEffect(e1)
--atkup
local e22=Effect.CreateEffect(c)
......@@ -27,6 +28,10 @@ function cm.initial_effect(c)
e11:SetValue(cm.aclimit)
c:RegisterEffect(e11)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.aclimit(e,re,tp)
return re:IsActiveType(TYPE_SPELL+TYPE_TRAP+TYPE_MONSTER)
end
......
expansions/script/c66915018.lua
View file @ a47e05f5
--伴随星光而生的阴影
local m=66915018
local cm=_G["c"..m]
if not StarLight_from_K then
StarLight_from_K={}
StarLight_from_K.Shadowstarlight_Effect={}
end
function cm.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
......@@ -12,7 +16,8 @@ function cm.initial_effect(c)
e1:SetCondition(cm.spcon)
e1:SetTarget(cm.target)
e1:SetOperation(cm.spop)
c:RegisterEffect(e1)
c:RegisterEffect(e1)
sl.Shadowstarlight_Effect[e1]=true
end
function cm.splimit(e,c,sump,sumtype,sumpos,targetp)
return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1374)
......@@ -32,7 +37,7 @@ function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.RegisterEffect(e1,tp)
end
function cm.filter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:IsCode(66915019) or c:IsCode(66915020) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCode(66915019) or c:IsCode(66915020) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(cm.filters,tp,LOCATION_SZONE,0,1,nil)
......@@ -51,6 +56,6 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
\ No newline at end of file
expansions/script/c66915019.lua
View file @ a47e05f5
......@@ -4,12 +4,13 @@ local cm=_G["c"..m]
function cm.initial_effect(c)
cm.dfc_front_side=66915020
c:EnableReviveLimit()
--spsummon condition
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
c:RegisterEffect(e1)
e1:SetValue(cm.splimit)
c:RegisterEffect(e1)
--search
local e11=Effect.CreateEffect(c)
e11:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
......@@ -32,6 +33,10 @@ function cm.initial_effect(c)
c:RegisterEffect(e111)
end
cm.material_type=TYPE_SYNCHRO
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se] or StarLight_from_K.Shadowstarlight_Effect[se]
end
function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return re and re:GetHandler():IsCode(66915018)
end
......@@ -84,7 +89,7 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
end
end
function cm.filter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,true,true) and c:IsSetCard(0x1374)
return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0x1374)
end
function cm.targets(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and cm.filter(chkc,e,tp) end
......@@ -97,6 +102,6 @@ end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP)
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c66915020.lua
View file @ a47e05f5
......@@ -4,11 +4,12 @@ local cm=_G["c"..m]
function cm.initial_effect(c)
cm.dfc_front_side=66915019
c:EnableReviveLimit()
--spsummon condition
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(cm.splimit)
c:RegisterEffect(e1)
--search
local e11=Effect.CreateEffect(c)
......@@ -30,6 +31,10 @@ function cm.initial_effect(c)
c:RegisterEffect(e3)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se] or StarLight_from_K.Shadowstarlight_Effect[se]
end
function cm.filter(c)
return c:IsSetCard(0x1374) and c:IsAbleToGraveAsCost()
end
......
expansions/script/c66915024.lua
View file @ a47e05f5
......@@ -52,7 +52,8 @@ function cm.filter(c)
return c:IsSetCard(0x1374) and c:IsType(TYPE_MONSTER)
end
function cm.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
if not StarLight_from_K and bit.band(st,SUMMON_TYPE_FUSION)~=SUMMON_TYPE_FUSION then return false end
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION or StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.cfilter(c)
return c:IsFaceup() and c:IsCode(66915001)
......
expansions/script/c66915026.lua
View file @ a47e05f5
......@@ -3,13 +3,13 @@ function c66915026.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
c:EnableReviveLimit()
--spsummon
--spsummon condition
local e1=Effect.CreateEffect(c)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.synlimit)
c:RegisterEffect(e1)
e1:SetValue(c66915026.splimit)
c:RegisterEffect(e1)
--remove
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(66915026,0))
......@@ -31,6 +31,10 @@ function c66915026.initial_effect(c)
e12:SetValue(c66915026.efilter)
c:RegisterEffect(e12)
end
function c66915026.splimit(e,se,sp,st)
if not StarLight_from_K and bit.band(st,SUMMON_TYPE_FUSION)~=SUMMON_TYPE_SYNCHRO then return false end
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_SYNCHRO or StarLight_from_K.Brightstarlight_Effect[se]
end
function c66915026.con(e)
return e:GetHandler():GetFlagEffect(66915026)~=0
end
......
expansions/script/c66915030.lua
View file @ a47e05f5
......@@ -53,7 +53,7 @@ function cm.filter1(c,e,tp)
end
function cm.filter2(c,e,tp,mc,code)
return c:IsType(TYPE_XYZ) and c:IsSetCard(0x1374) and not c:IsCode(code) and mc:IsCanBeXyzMaterial(c)
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,true,true) and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and cm.filter1(chkc,e,tp) end
......@@ -76,7 +76,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
end
sc:SetMaterial(Group.FromCards(tc))
Duel.Overlay(sc,Group.FromCards(tc))
Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,true,true,POS_FACEUP)
Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
sc:CompleteProcedure()
end
Duel.BreakEffect()
......
expansions/script/c66915031.lua
View file @ a47e05f5
......@@ -9,6 +9,7 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(cm.splimit)
c:RegisterEffect(e1)
--reset atk
local e3=Effect.CreateEffect(c)
......@@ -59,6 +60,10 @@ function cm.initial_effect(c)
c:RegisterEffect(e1111)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K and bit.band(st,SUMMON_TYPE_XYZ)~=SUMMON_TYPE_XYZ then return false end
return bit.band(st,SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ or StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.filter1(c)
return c:IsSetCard(0x374) and c:IsType(TYPE_CONTINUOUS+TYPE_TRAP)
end
......
expansions/script/c66915033.lua
View file @ a47e05f5
--原初女神·
local m=66915033
local cm=_G["c"..m]
if not StarLight_from_K then
StarLight_from_K={}
StarLight_from_K.Brightstarlight_Effect={}
end
function cm.initial_effect(c)
c:EnableReviveLimit()
--spsummon condition
......@@ -8,8 +12,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.linklimit)
c:RegisterEffect(e1)
e1:SetValue(cm.splimit)
c:RegisterEffect(e1)
--
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
......@@ -36,15 +40,6 @@ function cm.initial_effect(c)
e6:SetValue(0x1374)
e6:SetTarget(cm.sctg)
c:RegisterEffect(e6)
--setcard
local e66=Effect.CreateEffect(c)
e66:SetType(EFFECT_TYPE_FIELD)
e66:SetRange(LOCATION_MZONE)
e66:SetTargetRange(LOCATION_MZONE,0)
e66:SetCode(EFFECT_ADD_SETCODE)
e66:SetValue(0x149)
e66:SetTarget(cm.sctg)
c:RegisterEffect(e66)
--spsummon limit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
......@@ -66,6 +61,11 @@ function cm.initial_effect(c)
e3:SetTarget(cm.thtg)
e3:SetOperation(cm.thop)
c:RegisterEffect(e3)
StarLight_from_K.Brightstarlight_Effect[e3]=true
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_Kand bit.band(st,SUMMON_TYPE_LINK)~=SUMMON_TYPE_LINK then return false end
return bit.band(st,SUMMON_TYPE_LINK)==SUMMON_TYPE_LINK or StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.sumlimit(e,c,sump,sumtype,sumpos,targetp)
return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1374)
......@@ -155,7 +155,7 @@ function cm.discon(e,tp,eg,ep,ev,re,r,rp)
return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and re:GetHandler():IsCode(66915001)
end
function cm.filter(c,e,tp,zone)
return c:IsSetCard(0x1374) and c:IsCanBeSpecialSummoned(e,0,tp,true,true,POS_FACEUP,tp,zone)
return c:IsSetCard(0x1374) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)
end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local zone=bit.band(e:GetHandler():GetLinkedZone(tp),0x1f)
......@@ -170,6 +170,6 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
local zone=bit.band(e:GetHandler():GetLinkedZone(tp),0x1f)
if tc:IsRelateToEffect(e) and zone~=0 then
Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP,zone)
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP,zone)
end
end
expansions/script/c81000000.lua
View file @ a47e05f5
......@@ -89,16 +89,6 @@ function Tenka.Asamiya(c)
c:RegisterEffect(ea)
end
--
function Tenka.EightOne(c)
c:EnableReviveLimit()
local eb=Effect.CreateEffect(c)
eb:SetType(EFFECT_TYPE_SINGLE)
eb:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
eb:SetCode(EFFECT_SPSUMMON_CONDITION)
eb:SetValue(aux.FALSE)
c:RegisterEffect(eb)
end
--
function Tenka.Einstein(c)
local ea=Effect.CreateEffect(c)
ea:SetType(EFFECT_TYPE_FIELD)
......
expansions/script/c81001002.lua
View file @ a47e05f5
--八宫一月
local m=81001002
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
xpcall(function()require("expansions/script/c81000000") end,function()require("script/c81000000") end)
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--atkup
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
......@@ -23,6 +30,10 @@ function cm.initial_effect(c)
e4:SetOperation(cm.thop)
c:RegisterEffect(e4)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.cfilter(c)
return c:IsFaceup() and c:IsType(TYPE_TRAP+TYPE_SPELL)
end
......
expansions/script/c81001003.lua
View file @ a47e05f5
--八宫一月·夜
local m=81001003
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
xpcall(function()require("expansions/script/c81000000") end,function()require("script/c81000000") end)
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--tuner
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
......@@ -23,6 +30,10 @@ function cm.initial_effect(c)
e3:SetOperation(cm.thop)
c:RegisterEffect(e3)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.tnop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
......
expansions/script/c81001004.lua
View file @ a47e05f5
--八宫一月·春
local m=81001004
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
xpcall(function()require("expansions/script/c81000000") end,function()require("script/c81000000") end)
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--set
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
......@@ -27,6 +34,10 @@ function cm.initial_effect(c)
e4:SetOperation(cm.rmop)
c:RegisterEffect(e4)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.setcon(e,tp,eg,ep,ev,re,r,rp)
return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetHandler():IsSetCard(0x374)
end
......
expansions/script/c81001005.lua
View file @ a47e05f5
......@@ -2,8 +2,19 @@
local m=81001005
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
if not StarLight_from_K then
StarLight_from_K={}
StarLight_from_K.Brightstarlight_Effect={}
end
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--to hand
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
......@@ -32,6 +43,12 @@ function cm.initial_effect(c)
e3:SetCondition(cm.ccon)
e3:SetCost(cm.cost)
c:RegisterEffect(e3)
StarLight_from_K.Brightstarlight_Effect[e2]=true
StarLight_from_K.Brightstarlight_Effect[e3]=true
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.tgfilter(c)
return c:IsFaceup() and c:IsType(TYPE_TRAP+TYPE_SPELL) and c:IsAbleToGrave()
......@@ -72,7 +89,7 @@ function cm.tscost(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SendtoGrave(g,REASON_COST)
end
function cm.spfilter(c,e,tp)
return c:IsSetCard(0x1374) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
return c:IsSetCard(0x1374) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
end
function cm.tstg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_REMOVED+LOCATION_GRAVE,0,1,nil,e,tp) end
......@@ -83,7 +100,7 @@ function cm.tsop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_REMOVED+LOCATION_GRAVE,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
g:GetFirst():CompleteProcedure()
end
end
......
expansions/script/c81001006.lua
View file @ a47e05f5
--八宫一月·昔
local m=81001006
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
xpcall(function()require("expansions/script/c81000000") end,function()require("script/c81000000") end)
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--atk limit
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
......@@ -27,6 +34,10 @@ function cm.initial_effect(c)
e5:SetOperation(cm.negop)
c:RegisterEffect(e5)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end
if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
......
expansions/script/c81001007.lua
View file @ a47e05f5
--八宫一月·眠
local m=81001007
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
xpcall(function()require("expansions/script/c81000000") end,function()require("script/c81000000") end)
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--atk up
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
......@@ -24,6 +31,10 @@ function cm.initial_effect(c)
e3:SetOperation(cm.atkop)
c:RegisterEffect(e3)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.tkfilter(c)
return c:IsFaceup() and c:IsType(TYPE_TRAP+TYPE_SPELL)
end
......
expansions/script/c81001008.lua
View file @ a47e05f5
--
local m=81001008
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
xpcall(function()require("expansions/script/c81000000") end,function()require("script/c81000000") end)
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--destroy replace
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e0:SetCode(EFFECT_DESTROY_REPLACE)
e0:SetRange(LOCATION_MZONE)
e0:SetCountLimit(1,m)
e0:SetTarget(cm.desreptg)
e0:SetValue(cm.desrepval)
e0:SetOperation(cm.desrepop)
c:RegisterEffect(e0)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DESTROY_REPLACE)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,m)
e1:SetTarget(cm.desreptg)
e1:SetValue(cm.desrepval)
e1:SetOperation(cm.desrepop)
c:RegisterEffect(e1)
--move
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOHAND)
......@@ -31,6 +38,10 @@ function cm.initial_effect(c)
e3:SetCost(cm.mvcost)
c:RegisterEffect(e3)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.repfilter(c,tp)
return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsSetCard(0x1374)
and (c:IsReason(REASON_BATTLE) or c:IsReason(REASON_EFFECT)) and not c:IsReason(REASON_REPLACE)
......
expansions/script/c81001009.lua
View file @ a47e05f5
......@@ -3,7 +3,14 @@ local m=81001009
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--indes
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
......@@ -26,6 +33,10 @@ function cm.initial_effect(c)
e2:SetOperation(cm.desop)
c:RegisterEffect(e2)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.target(e,c)
return c:IsSetCard(0x374) and c:IsType(TYPE_SPELL+TYPE_TRAP)
end
......
expansions/script/c81001010.lua
View file @ a47e05f5
......@@ -3,7 +3,14 @@ local m=81001010
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_DISABLE+CATEGORY_TOGRAVE)
......@@ -30,6 +37,10 @@ function cm.initial_effect(c)
e3:SetValue(aux.indoval)
c:RegisterEffect(e3)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.discon(e,tp,eg,ep,ev,re,r,rp)
return re:IsActiveType(TYPE_MONSTER)
and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_MZONE
......
expansions/script/c81001013.lua
View file @ a47e05f5
......@@ -2,8 +2,19 @@
local m=81001013
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
if not StarLight_from_K then
StarLight_from_K={}
StarLight_from_K.Brightstarlight_Effect={}
end
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--extra summon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
......@@ -14,6 +25,7 @@ function cm.initial_effect(c)
e1:SetTarget(cm.sptg)
e1:SetOperation(cm.spop)
c:RegisterEffect(e1)
StarLight_from_K.Brightstarlight_Effect[e1]=true
--disable spsummon
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY)
......@@ -26,8 +38,12 @@ function cm.initial_effect(c)
e3:SetOperation(cm.operation)
c:RegisterEffect(e3)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.spfilter(c,e,tp)
return (c:IsSetCard(0x1374) and not c:IsCode(66915073) and not c:IsCode(66915074) and not c:IsCode(66915075) and not c:IsCode(66915077)) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
return c:IsSetCard(0x1374) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
......@@ -37,7 +53,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
g:GetFirst():CompleteProcedure()
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_FIELD)
......@@ -45,12 +61,12 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e3:SetRange(LOCATION_MZONE)
e3:SetAbsoluteRange(tp,1,0)
e3:SetTarget(cm.splimit)
e3:SetTarget(cm.splimit2)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
g:GetFirst():RegisterEffect(e3,true)
end
end
function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
function cm.splimit2(e,c,sump,sumtype,sumpos,targetp,se)
return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1374)
end
function cm.condition(e,tp,eg,ep,ev,re,r,rp)
......
expansions/script/c81001014.lua
View file @ a47e05f5
--八宫一月·念
local m=81001014
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
xpcall(function()require("expansions/script/c81000000") end,function()require("script/c81000000") end)
function cm.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
......
expansions/script/c81001016.lua
View file @ a47e05f5
......@@ -2,6 +2,10 @@
local m=81001016
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
if not StarLight_from_K then
StarLight_from_K={}
StarLight_from_K.Brightstarlight_Effect={}
end
function cm.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
......@@ -14,6 +18,7 @@ function cm.initial_effect(c)
e1:SetTarget(cm.sptg)
e1:SetOperation(cm.spop)
c:RegisterEffect(e1)
StarLight_from_K.Brightstarlight_Effect[e1]=true
end
function cm.counterfilter(c)
return not c:IsSummonLocation(LOCATION_DECK+LOCATION_HAND)
......@@ -38,7 +43,7 @@ function cm.tgfilter(c,e,tp)
end
function cm.spfilter(c,e,tp,tc)
return c:IsSetCard(0x1374) and c:IsAttribute(ATTRIBUTE_DARK)
and c:IsCanBeSpecialSummoned(e,0,tp,true,true) and Duel.GetLocationCountFromEx(tp,tp,tc,c)>0
and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,tc,c)>0
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end
......@@ -51,20 +56,19 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
if tc and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
g:GetFirst():CompleteProcedure()
Duel.Hint(HINT_MUSIC,0,aux.Stringid(81001011,2))
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e3:SetRange(LOCATION_MZONE)
e3:SetAbsoluteRange(tp,1,0)
e3:SetTarget(cm.splimit)
e3:SetTarget(cm.splimit2)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
g:GetFirst():RegisterEffect(e3,true)
end
end
function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
function cm.splimit2(e,c,sump,sumtype,sumpos,targetp,se)
return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1374)
end
expansions/script/c81001017.lua
View file @ a47e05f5
......@@ -3,7 +3,14 @@ local m=81001017
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--tuner
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_HANDES+CATEGORY_DRAW)
......@@ -26,6 +33,10 @@ function cm.initial_effect(c)
e3:SetOperation(cm.drop)
c:RegisterEffect(e3)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.hdtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0
and Duel.IsPlayerCanDraw(tp,1) and Duel.IsPlayerCanDraw(1-tp,1) end
......
expansions/script/c81001018.lua
View file @ a47e05f5
......@@ -3,7 +3,14 @@ local m=81001018
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
Tenka.EightOne(c)
c:EnableReviveLimit()
--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)
--Search
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
......@@ -33,6 +40,10 @@ function cm.initial_effect(c)
e3:SetCost(cm.dascost)
c:RegisterEffect(e3)
end
function cm.splimit(e,se,sp,st)
if not StarLight_from_K then return false end
return StarLight_from_K.Brightstarlight_Effect[se]
end
function cm.thfilter(c)
return c:IsSetCard(0x374) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() and not c:IsType(TYPE_CONTINUOUS)
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