Skip to content

Y
ygopro-222DIY-cards
Commit 9d2b8915 authored by 聖園ミカ's avatar 聖園ミカ 🐟
Browse files
Options

vme50

parent 4d173a4e
Hide whitespace changes
Inline Side-by-side
Showing with 109 additions and 90 deletions
expansions/222DIY.cdb
View file @ 9d2b8915
No preview for this file type
expansions/script/c81040000.lua
View file @ 9d2b8915
--周子·浪迹天涯 --周子·浪迹天涯
function c81040000.initial_effect(c) local m=81040000
aux.AddRitualProcGreater(c,c81040000.ritual_filter) local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
aux.AddRitualProcGreater(c,cm.ritual_filter)
--to hand --to hand
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
...@@ -8,23 +11,23 @@ function c81040000.initial_effect(c) ...@@ -8,23 +11,23 @@ function c81040000.initial_effect(c)
e1:SetRange(LOCATION_GRAVE) e1:SetRange(LOCATION_GRAVE)
e1:SetCondition(aux.exccon) e1:SetCondition(aux.exccon)
e1:SetCost(aux.bfgcost) e1:SetCost(aux.bfgcost)
e1:SetTarget(c81040000.thtg) e1:SetTarget(cm.thtg)
e1:SetOperation(c81040000.thop) e1:SetOperation(cm.thop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
end end
function c81040000.ritual_filter(c) function cm.ritual_filter(c)
return c:IsSetCard(0x81c) and c:IsType(TYPE_RITUAL) return c:IsSetCard(0x81c) and c:IsType(TYPE_RITUAL)
end end
function c81040000.thfilter(c) function cm.thfilter(c)
return c:IsSetCard(0x81c) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() return c:IsSetCard(0x81c) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end end
function c81040000.thtg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c81040000.thfilter,tp,LOCATION_DECK,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end end
function c81040000.thop(e,tp,eg,ep,ev,re,r,rp) function cm.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c81040000.thfilter,tp,LOCATION_DECK,0,1,1,nil) local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g) Duel.ConfirmCards(1-tp,g)
......
expansions/script/c81040003.lua
View file @ 9d2b8915
--周子·红叶秋风 --周子·红叶秋风
function c81040003.initial_effect(c) local m=81040003
local e1=aux.AddRitualProcGreater2(c,c81040003.filter,LOCATION_HAND+LOCATION_GRAVE) local cm=_G["c"..m]
e1:SetCountLimit(1,81040003) Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
local e1=aux.AddRitualProcGreater2(c,cm.ritual_filter,LOCATION_HAND+LOCATION_GRAVE)
e1:SetCountLimit(1,m)
c:RegisterEffect(e1)
--to deck --to deck
local e6=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e6:SetCategory(CATEGORY_TODECK) e2:SetCategory(CATEGORY_TODECK)
e6:SetType(EFFECT_TYPE_IGNITION) e2:SetType(EFFECT_TYPE_IGNITION)
e6:SetProperty(EFFECT_FLAG_CARD_TARGET) e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e6:SetRange(LOCATION_GRAVE) e2:SetRange(LOCATION_GRAVE)
e6:SetCountLimit(1,81040903) e2:SetCountLimit(1,m+900)
e6:SetCondition(aux.exccon) e2:SetCondition(aux.exccon)
e6:SetCost(aux.bfgcost) e2:SetCost(aux.bfgcost)
e6:SetTarget(c81040003.tdtg) e2:SetTarget(cm.tdtg)
e6:SetOperation(c81040003.tdop) e2:SetOperation(cm.tdop)
c:RegisterEffect(e6) c:RegisterEffect(e2)
end end
function c81040003.filter(c) function cm.ritual_filter(c)
return c:IsSetCard(0x81c) return c:IsSetCard(0x81c)
end end
function c81040003.tdfilter(c) function cm.tdfilter(c,e)
return not c:IsCode(81040003) and c:IsSetCard(0x81c) and c:IsAbleToDeck() return not c:IsCode(m) and c:IsSetCard(0x81c) and c:IsAbleToDeck()
and (not e or c:IsCanBeEffectTarget(e)) and (not e or c:IsCanBeEffectTarget(e)) and c:IsFaceupEx()
and (not c:IsLocation(LOCATION_REMOVED) or c:IsFaceup())
end end
function c81040003.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and c81040003.tdfilter(chkc) end if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and cm.tdfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c81040003.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,e:GetHandler()) end if chk==0 then return Duel.IsExistingTarget(cm.tdfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=Duel.GetMatchingGroup(c81040003.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,e:GetHandler(),e) local g=Duel.GetMatchingGroup(cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,e:GetHandler(),e)
local sg=g:SelectSubGroup(tp,aux.dncheck,false,1,#g) aux.GCheckAdditional=aux.dncheck
local sg=g:SelectSubGroup(tp,aux.TRUE,false,1,#g)
aux.GCheckAdditional=nil
Duel.SetTargetCard(sg) Duel.SetTargetCard(sg)
Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,#sg,0,0) Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,#sg,0,0)
end end
function c81040003.tdop(e,tp,eg,ep,ev,re,r,rp) function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.SendtoDeck(g,nil,2,REASON_EFFECT) Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
end end
end end
expansions/script/c81040004.lua
View file @ 9d2b8915
...@@ -5,6 +5,7 @@ Duel.LoadScript("c81000000.lua") ...@@ -5,6 +5,7 @@ Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c) function cm.initial_effect(c)
local e1=aux.AddRitualProcEqual2(c,cm.afilter,nil,cm.bfilter) local e1=aux.AddRitualProcEqual2(c,cm.afilter,nil,cm.bfilter)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH) e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
c:RegisterEffect(e1)
--destroy replace --destroy replace
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
......
expansions/script/c81040014.lua
View file @ 9d2b8915
--周子·自在休憩 --周子·自在休憩
function c81040014.initial_effect(c) local m=81040014
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
--Activate --Activate
local e1=aux.AddRitualProcEqual2(c,c81040014.filter,LOCATION_HAND+LOCATION_REMOVED) local e1=aux.AddRitualProcEqual2(c,cm.filter,LOCATION_HAND+LOCATION_REMOVED)
e1:SetCountLimit(1,81040014) e1:SetCountLimit(1,m)
c:RegisterEffect(e1)
--tograve --tograve
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOGRAVE) e2:SetCategory(CATEGORY_TOGRAVE)
e2:SetType(EFFECT_TYPE_IGNITION) e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET) e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetRange(LOCATION_GRAVE) e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,81040914) e2:SetCountLimit(1,m+900)
e2:SetCondition(aux.exccon) e2:SetCondition(aux.exccon)
e2:SetCost(aux.bfgcost) e2:SetCost(aux.bfgcost)
e2:SetTarget(c81040014.tgtg) e2:SetTarget(cm.tgtg)
e2:SetOperation(c81040014.tgop) e2:SetOperation(cm.tgop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c81040014.filter(c) function cm.filter(c)
return c:IsSetCard(0x81c) return c:IsSetCard(0x81c)
end end
function c81040014.tgfilter(c) function cm.tgfilter(c)
return c:IsFaceup() and c:IsSetCard(0x81c) and c:IsType(TYPE_MONSTER) return c:IsFaceup() and c:IsSetCard(0x81c) and c:IsType(TYPE_MONSTER)
end end
function c81040014.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c81040014.tgfilter(chkc) end if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and cm.tgfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c81040014.tgfilter,tp,LOCATION_REMOVED,0,1,nil) end if chk==0 then return Duel.IsExistingTarget(cm.tgfilter,tp,LOCATION_REMOVED,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local sg=Duel.SelectTarget(tp,c81040014.tgfilter,tp,LOCATION_REMOVED,0,1,1,nil) local sg=Duel.SelectTarget(tp,cm.tgfilter,tp,LOCATION_REMOVED,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,sg,1,0,0) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,sg,1,0,0)
end end
function c81040014.tgop(e,tp,eg,ep,ev,re,r,rp) function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget() local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then if tc:IsRelateToEffect(e) then
Duel.SendtoGrave(tc,REASON_EFFECT+REASON_RETURN) Duel.SendtoGrave(tc,REASON_EFFECT+REASON_RETURN)
......
expansions/script/c81040035.lua
View file @ 9d2b8915
--周子·不散之约 --周子·不散之约
function c81040035.initial_effect(c) local m=81040035
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
--Activate --Activate
local e0=Effect.CreateEffect(c) local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_ACTIVATE) e0:SetType(EFFECT_TYPE_ACTIVATE)
...@@ -10,10 +13,10 @@ function c81040035.initial_effect(c) ...@@ -10,10 +13,10 @@ function c81040035.initial_effect(c)
e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DRAW) e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DRAW)
e1:SetType(EFFECT_TYPE_IGNITION) e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_FZONE) e1:SetRange(LOCATION_FZONE)
e1:SetCountLimit(1,81040035) e1:SetCountLimit(1,m)
e1:SetCost(c81040035.cost) e1:SetCost(cm.cost)
e1:SetTarget(c81040035.drtg) e1:SetTarget(cm.drtg)
e1:SetOperation(c81040035.drop) e1:SetOperation(cm.drop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--Untargetable --Untargetable
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
...@@ -22,7 +25,7 @@ function c81040035.initial_effect(c) ...@@ -22,7 +25,7 @@ function c81040035.initial_effect(c)
e2:SetRange(LOCATION_FZONE) e2:SetRange(LOCATION_FZONE)
e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e2:SetTargetRange(LOCATION_MZONE,0) e2:SetTargetRange(LOCATION_MZONE,0)
e2:SetTarget(c81040035.immtg) e2:SetTarget(cm.immtg)
e2:SetValue(aux.tgoval) e2:SetValue(aux.tgoval)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--Indes --Indes
...@@ -35,63 +38,63 @@ function c81040035.initial_effect(c) ...@@ -35,63 +38,63 @@ function c81040035.initial_effect(c)
e4:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) e4:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
e4:SetType(EFFECT_TYPE_IGNITION) e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetRange(LOCATION_GRAVE) e4:SetRange(LOCATION_GRAVE)
e4:SetCountLimit(1,81040935) e4:SetCountLimit(1,m+900)
e4:SetCondition(aux.exccon) e4:SetCondition(aux.exccon)
e4:SetCost(c81040035.qhcost) e4:SetCost(cm.qhcost)
e4:SetTarget(c81040035.qhtg) e4:SetTarget(cm.qhtg)
e4:SetOperation(c81040035.qhop) e4:SetOperation(cm.qhop)
c:RegisterEffect(e4) c:RegisterEffect(e4)
end end
function c81040035.cfilter(c) function cm.cfilter(c)
return c:IsSetCard(0x81c) and c:IsDiscardable() return c:IsSetCard(0x81c) and c:IsDiscardable()
end end
function c81040035.cost(e,tp,eg,ep,ev,re,r,rp,chk) function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c81040035.cfilter,tp,LOCATION_HAND,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,nil) end
Duel.DiscardHand(tp,c81040035.cfilter,1,1,REASON_COST+REASON_DISCARD) Duel.DiscardHand(tp,cm.cfilter,1,1,REASON_COST+REASON_DISCARD)
end end
function c81040035.filter(c) function cm.filter(c)
return c:IsSetCard(0x81c) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() return c:IsSetCard(0x81c) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
end end
function c81040035.drtg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
and Duel.IsExistingMatchingCard(c81040035.filter,tp,LOCATION_DECK,0,1,nil) end and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end end
function c81040035.drop(e,tp,eg,ep,ev,re,r,rp) function cm.drop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end if not e:GetHandler():IsRelateToEffect(e) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c81040035.filter,tp,LOCATION_DECK,0,1,1,nil) local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_GRAVE) then if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_GRAVE) then
Duel.ShuffleDeck(tp) Duel.ShuffleDeck(tp)
Duel.BreakEffect() Duel.BreakEffect()
Duel.Draw(tp,1,REASON_EFFECT) Duel.Draw(tp,1,REASON_EFFECT)
end end
end end
function c81040035.immtg(e,c) function cm.immtg(e,c)
return c:IsSummonType(SUMMON_TYPE_RITUAL) and c:IsLevel(9) return c:IsSummonType(SUMMON_TYPE_RITUAL) and c:IsLevel(9)
end end
function c81040035.pfilter(c) function cm.pfilter(c)
return c:IsSetCard(0x81c) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() return c:IsSetCard(0x81c) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
end end
function c81040035.qhcost(e,tp,eg,ep,ev,re,r,rp,chk) function cm.qhcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost()
and Duel.IsExistingMatchingCard(c81040035.pfilter,tp,LOCATION_GRAVE,0,1,nil) end and Duel.IsExistingMatchingCard(cm.pfilter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c81040035.pfilter,tp,LOCATION_GRAVE,0,1,1,nil) local g=Duel.SelectMatchingCard(tp,cm.pfilter,tp,LOCATION_GRAVE,0,1,1,nil)
g:AddCard(e:GetHandler()) g:AddCard(e:GetHandler())
Duel.Remove(g,POS_FACEUP,REASON_COST) Duel.Remove(g,POS_FACEUP,REASON_COST)
end end
function c81040035.qhfilter(c) function cm.qhfilter(c)
return c:IsSetCard(0x81c) and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() return c:IsSetCard(0x81c) and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
end end
function c81040035.qhtg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.qhtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c81040035.qhfilter,tp,LOCATION_DECK,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(cm.qhfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end end
function c81040035.qhop(e,tp,eg,ep,ev,re,r,rp) function cm.qhop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c81040035.qhfilter,tp,LOCATION_DECK,0,1,1,nil) local g=Duel.SelectMatchingCard(tp,cm.qhfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g) Duel.ConfirmCards(1-tp,g)
......
expansions/script/c81040038.lua
View file @ 9d2b8915
--周子·久别重逢 --周子·久别重逢
function c81040038.initial_effect(c) local m=81040038
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
--Activate --Activate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_CHAINING) e1:SetCode(EVENT_CHAINING)
e1:SetCondition(c81040038.condition) e1:SetCondition(cm.condition)
e1:SetCost(c81040038.cost) e1:SetCost(cm.cost)
e1:SetTarget(c81040038.target) e1:SetTarget(cm.target)
e1:SetOperation(c81040038.activate) e1:SetOperation(cm.activate)
c:RegisterEffect(e1) c:RegisterEffect(e1)
end end
function c81040038.cfilter(c) function cm.cfilter(c)
return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x81c) and c:IsAbleToRemoveAsCost() return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x81c) and c:IsAbleToRemoveAsCost()
end end
function c81040038.condition(e,tp,eg,ep,ev,re,r,rp) function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev) return (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev)
end end
function c81040038.cost(e,tp,eg,ep,ev,re,r,rp,chk) function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c81040038.cfilter,tp,LOCATION_GRAVE,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c81040038.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.Remove(g,POS_FACEUP,REASON_COST) Duel.Remove(g,POS_FACEUP,REASON_COST)
end end
function c81040038.target(e,tp,eg,ep,ev,re,r,rp,chk) function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return aux.nbcon(tp,re) end if chk==0 then return aux.nbcon(tp,re) end
Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
if re:GetHandler():IsRelateToEffect(re) then if re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0) Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0)
end end
end end
function c81040038.activate(e,tp,eg,ep,ev,re,r,rp) function cm.activate(e,tp,eg,ep,ev,re,r,rp)
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
Duel.Remove(eg,POS_FACEUP,REASON_EFFECT) Duel.Remove(eg,POS_FACEUP,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