Skip to content

Y
ygopro-222DIY-cards
Commit 44b0ee15 authored by TanakaKotoha's avatar TanakaKotoha
Browse files
Options

daniaozhuanzhuanzhuan

parent 034ad5dd
Hide whitespace changes
Inline Side-by-side
Showing with 102 additions and 94 deletions
expansions/script/c1111002.lua
View file @ 44b0ee15
......@@ -50,7 +50,6 @@ function c1111002.op1(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if not tc:IsRelateToEffect(e) then return end
if Duel.SendtoHand(tc,nil,REASON_EFFECT)<1 then return end
if Duel.GetLocationCountFromEx(tp)<1 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=Duel.SelectMatchingCard(tp,c1111002.tfilter1_2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc)
if sg:GetCount()>0 then
......
expansions/script/c33405009.lua
View file @ 44b0ee15
......@@ -37,8 +37,9 @@ function cm.refil(c)
return c:IsAbleToRemoveAsCost() and c:IsSetCard(0x9da0)
end
function cm.sumcon(e,c)
local tp=e:GetHandler():GetControler()
return Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
if c==nil then return true end
local tp=c:GetControler()
return Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
end
function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
......
expansions/script/c64800020.lua
View file @ 44b0ee15
......@@ -72,7 +72,11 @@ function cm.desop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=c:GetBattleTarget()
if c:IsRelateToBattle() and tc:IsRelateToBattle() then
local g=Group.FromCards(c,tc)
Duel.Destroy(g,REASON_EFFECT)
Duel.Destroy(tc,REASON_EFFECT)
end
end
\ No newline at end of file
end
expansions/script/c65010086.lua
View file @ 44b0ee15
......@@ -42,8 +42,9 @@ function c65010086.refil(c)
return c:IsAbleToRemoveAsCost() and c:IsSetCard(0x9da0)
end
function c65010086.sumcon(e,c)
local tp=e:GetHandler():GetControler()
return Duel.IsExistingMatchingCard(c65010086.refil,tp,LOCATION_EXTRA,0,1,nil)
if c==nil then return true end
local tp=c:GetControler()
return Duel.IsExistingMatchingCard(c65010086.refil,tp,LOCATION_EXTRA,0,1,nil)
end
function c65010086.sumop(e,tp,eg,ep,ev,re,r,rp,c)
local g=Duel.SelectMatchingCard(tp,c65010086.refil,tp,LOCATION_EXTRA,0,1,1,nil)
......
expansions/script/c65010088.lua
View file @ 44b0ee15
......@@ -34,7 +34,8 @@ function c65010088.refil(c)
return c:IsAbleToRemoveAsCost() and c:IsSetCard(0x9da0)
end
function c65010088.sumcon(e,c)
local tp=e:GetHandler():GetControler()
if c==nil then return true end
local tp=c:GetControler()
return Duel.IsExistingMatchingCard(c65010088.refil,tp,LOCATION_EXTRA,0,1,nil)
end
function c65010088.sumop(e,tp,eg,ep,ev,re,r,rp,c)
......
expansions/script/c65010090.lua
View file @ 44b0ee15
......@@ -66,11 +66,12 @@ function c65010090.refil(c)
return c:IsAbleToRemoveAsCost() and c:IsSetCard(0x9da0)
end
function c65010090.sumcon(e,c)
local tp=e:GetHandler():GetControler()
return Duel.IsExistingMatchingCard(c65010090.refil,tp,LOCATION_EXTRA,0,1,nil)
if c==nil then return true end
local tp=c:GetControler()
return Duel.IsExistingMatchingCard(c65010090.refil,tp,LOCATION_EXTRA,0,1,nil)
end
function c65010090.sumop(e,tp,eg,ep,ev,re,r,rp,c)
local g=Duel.SelectMatchingCard(tp,c65010090.refil,tp,LOCATION_EXTRA,0,1,1,nil)
local g=Duel.SelectMatchingCard(tp,c65010090.refil2,tp,LOCATION_EXTRA,0,1,1,nil)
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function c65010090.setcon(e,tp,eg,ep,ev,re,r,rp)
......
expansions/script/c65010092.lua
View file @ 44b0ee15
......@@ -64,7 +64,8 @@ function c65010092.refil(c)
return c:IsAbleToRemoveAsCost() and c:IsSetCard(0x9da0)
end
function c65010092.sumcon(e,c)
local tp=e:GetHandler():GetControler()
if c==nil then return true end
local tp=c:GetControler()
return Duel.IsExistingMatchingCard(c65010092.refil,tp,LOCATION_EXTRA,0,1,nil)
end
function c65010092.sumop(e,tp,eg,ep,ev,re,r,rp,c)
......
expansions/script/c65010094.lua
View file @ 44b0ee15
......@@ -38,7 +38,8 @@ function c65010094.refil(c)
return c:IsAbleToRemoveAsCost() and c:IsSetCard(0x9da0)
end
function c65010094.sumcon(e,c)
local tp=e:GetHandler():GetControler()
if c==nil then return true end
local tp=c:GetControler()
return Duel.IsExistingMatchingCard(c65010094.refil,tp,LOCATION_EXTRA,0,1,nil)
end
function c65010094.sumop(e,tp,eg,ep,ev,re,r,rp,c)
......
expansions/script/c65010129.lua
View file @ 44b0ee15
......@@ -26,7 +26,8 @@ function c65010129.refil(c)
return c:IsAbleToRemoveAsCost() and c:IsSetCard(0x9da0)
end
function c65010129.sumcon(e,c)
local tp=e:GetHandler():GetControler()
if c==nil then return true end
local tp=c:GetControler()
return Duel.IsExistingMatchingCard(c65010129.refil,tp,LOCATION_EXTRA,0,1,nil)
end
function c65010129.sumop(e,tp,eg,ep,ev,re,r,rp,c)
......
expansions/script/c66915005.lua
View file @ 44b0ee15
--光辉星曜·圣芒
function c66915005.initial_effect(c)
c:SetUniqueOnField(1,0,66915005)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1)
--immune
local e22=Effect.CreateEffect(c)
e22:SetType(EFFECT_TYPE_SINGLE)
e22:SetCode(EFFECT_IMMUNE_EFFECT)
e22:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e22:SetRange(LOCATION_MZONE)
e22:SetCondition(c66915005.conditions)
e22:SetValue(c66915005.efilter)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e5:SetRange(LOCATION_SZONE)
e5:SetTargetRange(LOCATION_MZONE,0)
e5:SetTarget(c66915005.eftg)
e5:SetLabelObject(e22)
c:RegisterEffect(e5)
--Activate
local e11=Effect.CreateEffect(c)
e11:SetCategory(CATEGORY_NEGATE+CATEGORY_TODECK)
e11:SetType(EFFECT_TYPE_QUICK_O)
e11:SetCode(EVENT_CHAINING)
e11:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e11:SetRange(LOCATION_MZONE)
e11:SetCondition(c66915005.condition)
e11:SetTarget(c66915005.target)
e11:SetOperation(c66915005.activate)
local e55=Effect.CreateEffect(c)
e55:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e55:SetRange(LOCATION_SZONE)
e55:SetTargetRange(LOCATION_MZONE,0)
e55:SetTarget(c66915005.eftg)
e55:SetLabelObject(e11)
c:RegisterEffect(e55)
--spsummon limit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetRange(LOCATION_SZONE)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e2:SetTargetRange(1,0)
e2:SetTarget(c66915005.sumlimit)
c:RegisterEffect(e2)
c:SetUniqueOnField(1,0,66915005)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1)
--immune
local e22=Effect.CreateEffect(c)
e22:SetType(EFFECT_TYPE_SINGLE)
e22:SetCode(EFFECT_IMMUNE_EFFECT)
e22:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e22:SetRange(LOCATION_MZONE)
e22:SetCondition(c66915005.conditions)
e22:SetValue(c66915005.efilter)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e5:SetRange(LOCATION_SZONE)
e5:SetTargetRange(LOCATION_MZONE,0)
e5:SetTarget(c66915005.eftg)
e5:SetLabelObject(e22)
c:RegisterEffect(e5)
--Activate
local e11=Effect.CreateEffect(c)
e11:SetCategory(CATEGORY_NEGATE+CATEGORY_TODECK)
e11:SetType(EFFECT_TYPE_QUICK_O)
e11:SetCode(EVENT_CHAINING)
e11:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e11:SetRange(LOCATION_MZONE)
e11:SetCondition(c66915005.condition)
e11:SetTarget(c66915005.target)
e11:SetOperation(c66915005.activate)
local e55=Effect.CreateEffect(c)
e55:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e55:SetRange(LOCATION_SZONE)
e55:SetTargetRange(LOCATION_MZONE,0)
e55:SetTarget(c66915005.eftg)
e55:SetLabelObject(e11)
c:RegisterEffect(e55)
--spsummon limit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetRange(LOCATION_SZONE)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e2:SetTargetRange(1,0)
e2:SetTarget(c66915005.sumlimit)
c:RegisterEffect(e2)
end
function c66915005.cfilters(c)
return c:IsFaceup() and c:IsCode(66915001)
return c:IsFaceup() and c:IsCode(66915001)
end
function c66915005.conditions(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c66915005.cfilters,tp,LOCATION_SZONE,0,1,nil)
return Duel.IsExistingMatchingCard(c66915005.cfilters,tp,LOCATION_SZONE,0,1,nil)
end
function c66915005.sumlimit(e,c,sump,sumtype,sumpos,targetp)
return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1374)
return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0x1374)
end
function c66915005.eftg(e,c)
local seq=c:GetSequence()
return c:IsSetCard(0x1374)
and seq<5 and math.abs(e:GetHandler():GetSequence()-seq)==0
local seq=c:GetSequence()
return c:IsSetCard(0x1374)
and seq<5 and math.abs(e:GetHandler():GetSequence()-seq)==0
end
function c66915005.efilter(e,re,tp)
return re:GetHandlerPlayer()~=e:GetHandlerPlayer()
return re:GetHandlerPlayer()~=e:GetHandlerPlayer()
end
function c66915005.cfilter(c)
return c:IsFaceup() and c:IsSetCard(0x374) and c:IsType(TYPE_CONTINUOUS+TYPE_SPELL)
return c:IsFaceup() and c:IsSetCard(0x374) and c:IsType(TYPE_CONTINUOUS+TYPE_SPELL)
end
function c66915005.cfilterss(c)
return c:IsFaceup() and c:IsCode(66915001) and c:IsAbleToHand()
return c:IsFaceup() and c:IsCode(66915001) and c:IsAbleToHand()
end
function c66915005.condition(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c66915005.cfilter,tp,LOCATION_ONFIELD,0,1,nil) and Duel.IsExistingMatchingCard(c66915005.cfilterss,tp,LOCATION_ONFIELD,0,1,nil)
and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev)
return Duel.IsExistingMatchingCard(c66915005.cfilter,tp,LOCATION_ONFIELD,0,1,nil) and Duel.IsExistingMatchingCard(c66915005.cfilterss,tp,LOCATION_ONFIELD,0,1,nil)
and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev)
end
function c66915005.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return
Duel.GetFlagEffect(tp,60018643)==0 end
Duel.RegisterFlagEffect(tp,60018643,RESET_CHAIN,0,1)
Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
if re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,1,0,0)
end
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
if re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,1,0,0)
end
end
function c66915005.desfilter(c)
return c:IsFaceup() and c:IsCode(66915001) and c:IsAbleToHand()
return c:IsFaceup() and c:IsCode(66915001) and c:IsAbleToHand()
end
function c66915005.activate(e,tp,eg,ep,ev,re,r,rp)
local ec=re:GetHandler()
if Duel.NegateActivation(ev) and ec:IsRelateToEffect(re) then
ec:CancelToGrave()
if Duel.SendtoDeck(ec,nil,2,REASON_EFFECT)~=0 and ec:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then
local g=Duel.GetMatchingGroup(c66915005.desfilter,tp,LOCATION_ONFIELD,0,aux.ExceptThisCard(e))
if g:GetCount()>0 then
Duel.BreakEffect()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local sg=g:Select(tp,1,1,nil)
Duel.SendtoHand(sg,nil,REASON_EFFECT)
end
end
end
local ec=re:GetHandler()
if Duel.NegateActivation(ev) and ec:IsRelateToEffect(re) then
ec:CancelToGrave()
if Duel.SendtoDeck(ec,nil,2,REASON_EFFECT)~=0 and ec:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then
local g=Duel.GetMatchingGroup(c66915005.desfilter,tp,LOCATION_ONFIELD,0,aux.ExceptThisCard(e))
if g:GetCount()>0 then
Duel.BreakEffect()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local sg=g:Select(tp,1,1,nil)
Duel.SendtoHand(sg,nil,REASON_EFFECT)
end
end
end
end
\ No newline at end of file
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