Skip to content

no81cards
no81cards
Commit 4cb14886 authored by POLYMER's avatar POLYMER
Browse files
Options

fix

parent 60689e31
Hide whitespace changes
Inline Side-by-side
Showing with 115 additions and 115 deletions
expansions/script/c116301233.lua
View file @ 4cb14886
--闇より顕現し絶望の塔
function c116301233.initial_effect(c)
c:SetSPSummonOnce(116301233)
--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(c116301233.splimit)
c:RegisterEffect(e1)
--spsummon
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCondition(c116301233.spcon)
e2:SetCost(c116301233.spcost)
e2:SetTarget(c116301233.sptg)
e2:SetOperation(c116301233.spop)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_CHAINING)
e3:SetCondition(c116301233.spcon2)
c:RegisterEffect(e3)
--deckdes
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(116301233,1))
e4:SetCategory(CATEGORY_DECKDES)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e4:SetCode(EVENT_SPSUMMON_SUCCESS)
e4:SetRange(LOCATION_MZONE)
e4:SetCondition(c116301233.tgcon)
e4:SetTarget(c116301233.tgtg)
e4:SetOperation(c116301233.tgop)
c:RegisterEffect(e4)
--lifedes
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(116301233,5))
e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e5:SetCode(EVENT_SPSUMMON_SUCCESS)
e5:SetRange(LOCATION_MZONE)
e5:SetCondition(c116301233.lfcon)
e5:SetTarget(c116301233.lftg)
e5:SetOperation(c116301233.lfop)
c:RegisterEffect(e5)
c:SetSPSummonOnce(116301233)
--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(c116301233.splimit)
c:RegisterEffect(e1)
--spsummon
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCondition(c116301233.spcon)
e2:SetCost(c116301233.spcost)
e2:SetTarget(c116301233.sptg)
e2:SetOperation(c116301233.spop)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_CHAINING)
e3:SetCondition(c116301233.spcon2)
c:RegisterEffect(e3)
--deckdes
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(116301233,1))
e4:SetCategory(CATEGORY_DECKDES)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e4:SetCode(EVENT_SPSUMMON_SUCCESS)
e4:SetRange(LOCATION_MZONE)
e4:SetCondition(c116301233.tgcon)
e4:SetTarget(c116301233.tgtg)
e4:SetOperation(c116301233.tgop)
c:RegisterEffect(e4)
--lifedes
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(116301233,5))
e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e5:SetCode(EVENT_SPSUMMON_SUCCESS)
e5:SetRange(LOCATION_MZONE)
e5:SetCondition(c116301233.lfcon)
e5:SetTarget(c116301233.lftg)
e5:SetOperation(c116301233.lfop)
c:RegisterEffect(e5)
end
function c116301233.splimit(e,se,sp,st)
return se:IsHasType(EFFECT_TYPE_ACTIONS)
return se:IsHasType(EFFECT_TYPE_ACTIONS)
end
function c116301233.spcon(e,tp,eg,ep,ev,re,r,rp)
return not Duel.CheckEvent(EVENT_CHAINING)
return not Duel.CheckEvent(EVENT_CHAINING)
end
function c116301233.spcon2(e,tp,eg,ep,ev,re,r,rp)
return Duel.CheckEvent(EVENT_CHAINING) and re:GetHandler()~=e:GetHandler()
return Duel.CheckEvent(EVENT_CHAINING) and re:GetHandler()~=e:GetHandler()
end
function c116301233.actfilter(c,tp)
return c:IsCode(4064256) and c:GetActivateEffect():IsActivatable(tp,true,true)
return c:IsCode(4064256) and c:GetActivateEffect():IsActivatable(tp,true,true)
end
function c116301233.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local exc=(e:GetHandler():IsLocation(LOCATION_HAND) and not e:GetHandler():IsAbleToGraveAsCost()) and e:GetHandler() or nil
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,exc)
and Duel.IsExistingMatchingCard(c116301233.actfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,exc)
local g=Duel.SelectMatchingCard(tp,c116301233.actfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,tp)
local tc=g:GetFirst()
if tc then
local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
if fc then
Duel.SendtoGrave(fc,REASON_RULE)
Duel.BreakEffect()
end
Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
end
local exc=(e:GetHandler():IsLocation(LOCATION_HAND) and not e:GetHandler():IsAbleToGraveAsCost()) and e:GetHandler() or nil
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,exc)
and Duel.IsExistingMatchingCard(c116301233.actfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,exc)
local g=Duel.SelectMatchingCard(tp,c116301233.actfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,tp)
local tc=g:GetFirst()
if tc then
local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
if fc then
Duel.SendtoGrave(fc,REASON_RULE)
Duel.BreakEffect()
end
Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
end
end
function c116301233.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
Duel.SetTargetCard(e:GetHandler())
if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
Duel.SetTargetCard(e:GetHandler())
end
function c116301233.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
Duel.SpecialSummon(c,0,tp,1-tp,false,false,POS_FACEUP)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
Duel.SpecialSummon(c,0,tp,1-tp,false,false,POS_FACEUP)
end
function c116301233.filter(c)
return c:IsFaceup() and c:IsRace(RACE_ZOMBIE)
return c:IsFaceup() and c:IsRace(RACE_ZOMBIE)
end
function c116301233.tgcon(e,tp,eg,ep,ev,re,r,rp)
return not eg:IsContains(e:GetHandler()) and eg:IsExists(c116301233.filter,1,nil)
return not eg:IsContains(e:GetHandler()) and eg:IsExists(c116301233.filter,1,nil)
end
function c116301233.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():GetFlagEffect(116301233)==0 end
Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,nil)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
if chk==0 then return e:GetHandler():GetFlagEffect(116301233)==0 end
Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,nil)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function c116301233.tgfilter(c)
return c:IsAbleToGrave()
return c:IsAbleToGrave()
end
function c116301233.tdfilter(c)
return (c:IsLocation(LOCATION_GRAVE) or c:IsLocation(LOCATION_REMOVED) or (c:IsFaceup() and c:IsType(TYPE_PENDULUM))) and c:IsAbleToDeck()
return (c:IsLocation(LOCATION_GRAVE) or c:IsLocation(LOCATION_REMOVED) or (c:IsFaceup() and c:IsType(TYPE_PENDULUM))) and c:IsAbleToDeck()
end
function c116301233.tgop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b=Duel.IsExistingMatchingCard(c116301233.tgfilter,tp,0,LOCATION_DECK,1,nil)
local op=3
if b then
op=Duel.SelectOption(1-tp,aux.Stringid(116301233,2),aux.Stringid(116301233,3))
else
op=Duel.SelectOption(1-tp,aux.Stringid(116301233,4))+2
end
if op==0 then
Duel.DiscardDeck(1-tp,2,REASON_EFFECT)
elseif op==1 then
Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c116301233.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
c:RegisterFlagEffect(116301233,RESET_PHASE+PHASE_END,0,1)
end
elseif op==2 then
local g=Duel.GetMatchingGroup(c116301233.tdfilter,tp,0,LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,nil)
Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
Duel.ShuffleDeck(1-tp)
Duel.DiscardDeck(1-tp,3,REASON_EFFECT)
else
return
end
local c=e:GetHandler()
local b=Duel.IsExistingMatchingCard(c116301233.tgfilter,tp,0,LOCATION_DECK,1,nil)
local op=3
if b then
op=Duel.SelectOption(1-tp,aux.Stringid(116301233,2),aux.Stringid(116301233,3))
else
op=Duel.SelectOption(1-tp,aux.Stringid(116301233,4))+2
end
if op==0 then
Duel.DiscardDeck(1-tp,2,REASON_EFFECT)
elseif op==1 then
Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(1-tp,c116301233.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
c:RegisterFlagEffect(116301233,RESET_PHASE+PHASE_END,0,1)
end
elseif op==2 then
local g=Duel.GetMatchingGroup(c116301233.tdfilter,tp,0,LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,nil)
Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
Duel.ShuffleDeck(1-tp)
Duel.DiscardDeck(1-tp,3,REASON_EFFECT)
else
return
end
end
function c116301233.lffilter(c)
return c:IsFaceup() and c:IsCode(116301233,71200730,34193084) and c:IsPreviousLocation(LOCATION_GRAVE)
return c:IsFaceup() and c:IsCode(116301233,71200730,34193084) and c:IsPreviousLocation(LOCATION_GRAVE)
end
function c116301233.lfcon(e,tp,eg,ep,ev,re,r,rp)
return not eg:IsContains(e:GetHandler()) and eg:IsExists(c116301233.lffilter,1,nil)
return not eg:IsContains(e:GetHandler()) and eg:IsExists(c116301233.lffilter,1,nil)
end
function c116301233.lftg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
if chk==0 then return true end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function c116301233.lfop(e,tp,eg,ep,ev,re,r,rp)
local tc=eg:GetFirst()
while tc do
local atk=tc:GetTextAttack()
local life=Duel.GetLP(tp)
if life>=atk then
Duel.SetLP(tp,life-atk)
end
tc=eg:GetNext()
end
local tc=eg:GetFirst()
while tc do
local atk=tc:GetTextAttack()
local life=Duel.GetLP(tp)
if life>=atk then
Duel.SetLP(tp,life-atk)
end
tc=eg:GetNext()
end
end
expansions/script/c21692404.lua
View file @ 4cb14886
......@@ -59,7 +59,7 @@ function c21692404.tddtg(e,tp,eg,ep,ev,re,r,rp,chk)
end
function c21692404.tddop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.IsExistingMatchingCard(function(c) return c:IsFaceup() and c:IsAbleToDeck() and c:IsSetCard(0x555) end,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,nil) then
if Duel.IsExistingMatchingCard(function(c) return c:IsFaceup() and c:IsAbleToDeck() and c:IsSetCard(0x555) end,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) then
local sg=Duel.SelectMatchingCard(tp,function(c) return c:IsFaceup() and c:IsAbleToDeck() and c:IsSetCard(0x555) end,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,3,nil)
if Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)~=0 then
Duel.BreakEffect()
......
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