Commit adc67645 authored by TanakaKotoha's avatar TanakaKotoha

wadashimo

parent a2b5875f
Pipeline #657 passed with stages
in 40 minutes and 3 seconds
...@@ -2,51 +2,53 @@ ...@@ -2,51 +2,53 @@
local m=4212205 local m=4212205
local cm=_G["c"..m] local cm=_G["c"..m]
function cm.initial_effect(c) function cm.initial_effect(c)
iFunc(c).c("RegisterEffect",iFunc(c) iFunc(c).c("RegisterEffect",iFunc(c)
.e("SetCategory",CATEGORY_NEGATE+CATEGORY_DESTROY) .e("SetCategory",CATEGORY_NEGATE+CATEGORY_DESTROY)
.e("SetType",EFFECT_TYPE_QUICK_O) .e("SetType",EFFECT_TYPE_QUICK_O)
.e("SetCode",EVENT_CHAINING) .e("SetCode",EVENT_SPSUMMON)
.e("SetRange",LOCATION_HAND) .e("SetRange",LOCATION_HAND)
.e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp) .e("SetCondition",function(e,tp,eg,ep,ev,re,r,rp)
return tp~=ep and Duel.GetCurrentChain()==0 end) return tp~=ep and Duel.GetCurrentChain()==0 end)
.e("SetCost",function(e,tp,eg,ep,ev,re,r,rp,chk) .e("SetCost",function(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler() local c=e:GetHandler()
if chk==0 then return c:IsAbleToGraveAsCost() if chk==0 then return c:IsAbleToGraveAsCost()
and Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_HAND+LOCATION_SZONE,0,1,c)end and Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_HAND+LOCATION_SZONE,0,1,c)end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_HAND+LOCATION_SZONE,0,1,1,c) local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_HAND+LOCATION_SZONE,0,1,1,c)
g:AddCard(c) Duel.SendtoGrave(g,REASON_COST) end) g:AddCard(c) Duel.SendtoGrave(g,REASON_COST) end)
.e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk) .e("SetTarget",function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0)
if Duel.IsExistingMatchingCard(cm.mfilter,tp,LOCATION_MZONE,0,1,nil) then Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,0) if Duel.IsExistingMatchingCard(cm.mfilter,tp,LOCATION_MZONE,0,1,nil) then
end end) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,0)
.e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp) end end)
if Duel.NegateSummon(eg) and Duel.Destroy(eg,REASON_EFFECT) and re:GetHandler():IsRelateToEffect(re) then .e("SetOperation",function(e,tp,eg,ep,ev,re,r,rp)
if Duel.IsExistingMatchingCard(cm.mfilter,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) then Duel.NegateSummon(eg)
if Duel.SelectYesNo(tp,aux.Stringid(m,0)) then if Duel.Destroy(eg,REASON_EFFECT)~=0 then
local g = Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil) if Duel.IsExistingMatchingCard(cm.mfilter,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) then
Duel.SendtoHand(g,nil,REASON_EFFECT) if Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
Duel.ConfirmCards(1-tp,g) local g = Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
end Duel.SendtoHand(g,nil,REASON_EFFECT)
end Duel.ConfirmCards(1-tp,g)
end end) end
.Return()) end
end end)
.Return())
end end
function cm.mfilter(c) function cm.mfilter(c)
return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_SPELLCASTER) and c:IsFaceup() return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_SPELLCASTER) and c:IsFaceup()
end end
function cm.thfilter(c) function cm.thfilter(c)
return c:IsType(TYPE_MONSTER) and c:IsType(TYPE_RITUAL) and c:IsAbleToHand() return c:IsType(TYPE_MONSTER) and c:IsType(TYPE_RITUAL) and c:IsAbleToHand()
end end
function cm.costfilter(c) function cm.costfilter(c)
return c:IsType(TYPE_EQUIP) and c:IsType(TYPE_SPELL) and c:IsAbleToGraveAsCost() return c:IsType(TYPE_EQUIP) and c:IsType(TYPE_SPELL) and c:IsAbleToGraveAsCost()
end end
function iFunc(c,x) function iFunc(c,x)
local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1] local __this = (aux.GetValueType(c) == "Card" and {(x == nil and {Effect.CreateEffect(c)} or {x})[1]} or {x})[1]
local fe = function(name,...) (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) return iFunc(c,__this) end local fe = function(name,...) (type(__this[name])=="function" and {__this[name]} or {""})[1](__this,...) return iFunc(c,__this) end
local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end local fc = function(name,...) this = (type(c[name])=="function" and {c[name]} or {""})[1](c,...) return iFunc(c,c) end
local func ={e = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end} local func ={e = fe,c = fc,g = fc,v = function() return this end,Return = function() return __this:Clone() end}
return func return func
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