Skip to content

no81cards
no81cards
Commit 8836e47a authored by Nemo Ma's avatar Nemo Ma
Browse files
Options

upd

parent b764dabe
Hide whitespace changes
Inline Side-by-side
Showing with 81 additions and 2097 deletions
expansions/lflist.conf
View file @ 8836e47a
......@@ -2,6 +2,35 @@
!THE STANDARD LIST
#此卡解封需要任意群员拿着写有自己的ID纸条与正版光创卡片合影的照片给我参阅。
10000040 0
#Pre-Nerf Cards
1001 0
1002 0
1003 0
1004 0
1005 0
1006 0
1007 0
1008 0
1009 0
1010 0
1011 0
1012 0
1013 0
1014 0
1015 0
1016 0
1017 0
1018 0
1019 0
1020 0
1021 0
2001 0
2002 0
2003 0
2004 0
2005 0
2006 0
2007 0
#永劫复归 善哉善哉
90700056 0
90700057 0
......
expansions/no42.cdb
View file @ 8836e47a
No preview for this file type
expansions/no81.cdb
View file @ 8836e47a
No preview for this file type
expansions/script/c113705774.lua deleted 100644 → 0
View file @ b764dabe
--炎星皇－チョウライオ
function c113705774.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_FIRE),3,2)
c:EnableReviveLimit()
--salvage
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
e1:SetCondition(c113705774.tdcon1)
e1:SetCost(c113705774.thcost)
e1:SetTarget(c113705774.thtg)
e1:SetOperation(c113705774.thop)
c:RegisterEffect(e1)
local e3=e1:Clone()
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetCondition(c113705774.tdcon2)
c:RegisterEffect(e3)
end
function c113705774.tdcon1(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsPlayerAffectedByEffect(tp,11662004)
end
function c113705774.tdcon2(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsPlayerAffectedByEffect(tp,11662004)
end
function c113705774.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
end
function c113705774.filter(c)
return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand()
end
function c113705774.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c113705774.filter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c113705774.filter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectTarget(tp,c113705774.filter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function c113705774.thop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(1,0)
e1:SetTarget(c113705774.sumlimit)
e1:SetLabel(tc:GetCode())
Duel.RegisterEffect(e1,tp)
local e2=e1:Clone()
e2:SetCode(EFFECT_CANNOT_SUMMON)
Duel.RegisterEffect(e2,tp)
end
end
function c113705774.sumlimit(e,c)
return c:IsCode(e:GetLabel())
end
expansions/script/c11479943.lua deleted 100644 → 0
View file @ b764dabe
--狱火机·拿玛
function c11479943.initial_effect(c)
c:EnableReviveLimit()
--special summon condition
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)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCondition(c11479943.spcon)
e2:SetOperation(c11479943.spop)
c:RegisterEffect(e2)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(11479943,0))
e3:SetCategory(CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetTarget(c11479943.destg)
e3:SetOperation(c11479943.desop)
c:RegisterEffect(e3)
--negate
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(11479943,1))
e4:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
e4:SetCode(EVENT_CHAINING)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetRange(LOCATION_MZONE)
e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e4:SetCountLimit(1)
e4:SetCondition(c11479943.negcon)
e4:SetCost(c11479943.negcost)
e4:SetTarget(c11479943.negtg)
e4:SetOperation(c11479943.negop)
c:RegisterEffect(e4)
end
function c11479943.spfilter(c)
return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and (c:IsAbleToRemoveAsCost() or c:IsLocation(LOCATION_REMOVED))
end
function c11479943.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local sum=0
for i=0,4 do
local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i)
if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then
if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank()
else sum=sum+tc:GetLevel() end
end
end
if sum>8 then return false end
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<-2 then return false end
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
if c:IsHasEffect(34822850) then
if ft>0 then
return Duel.IsExistingMatchingCard(c11479943.spfilter,tp,LOCATION_MZONE+loc,0,3,c)
else
local ct=-ft+1
return Duel.IsExistingMatchingCard(c11479943.spfilter,tp,LOCATION_MZONE,0,ct,nil)
and Duel.IsExistingMatchingCard(c11479943.spfilter,tp,LOCATION_MZONE+loc,0,3,c)
end
else
return ft>0 and Duel.IsExistingMatchingCard(c11479943.spfilter,tp,loc,0,3,c)
end
end
function c11479943.spop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=nil
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
if c:IsHasEffect(34822850) then
if ft>0 then
g=Duel.SelectMatchingCard(tp,c11479943.spfilter,tp,LOCATION_MZONE+loc,0,3,3,c)
else
local sg=Duel.GetMatchingGroup(c11479943.spfilter,tp,LOCATION_MZONE+loc,0,c)
local ct=-ft+1
g=sg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE)
if ct<3 then
sg:Sub(g)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g2=sg:Select(tp,3-ct,3-ct,nil)
g:Merge(g2)
end
end
else
g=Duel.SelectMatchingCard(tp,c11479943.spfilter,tp,loc,0,3,3,c)
end
local g2=g:Filter(Card.IsLocation,nil,LOCATION_REMOVED)
g:Sub(g2)
Duel.Remove(g,POS_FACEUP,REASON_COST)
Duel.SendtoGrave(g2,REASON_COST+REASON_RETURN)
end
function c11479943.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end
local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
end
function c11479943.desop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler())
if g:GetCount()>0 then
Duel.Destroy(g,REASON_EFFECT)
end
end
function c11479943.negcon(e,tp,eg,ep,ev,re,r,rp)
return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainNegatable(ev)
end
function c11479943.cfilter(c)
return not c:IsStatus(STATUS_BATTLE_DESTROYED)
end
function c11479943.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,c11479943.cfilter,1,nil) end
local g=Duel.SelectReleaseGroup(tp,c11479943.cfilter,1,1,nil)
Duel.Release(g,REASON_COST)
end
function c11479943.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
if re:GetHandler():IsAbleToRemove() and re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0)
end
end
function c11479943.negop(e,tp,eg,ep,ev,re,r,rp)
Duel.NegateActivation(ev)
if re:GetHandler():IsRelateToEffect(re) then
Duel.Remove(eg,POS_FACEUP,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c115850474.lua deleted 100644 → 0
View file @ b764dabe
--間炎星－コウカンショウ
function c115850474.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x79),4,2)
c:EnableReviveLimit()
--todeck
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TODECK)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetCountLimit(1,115850474)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetRange(LOCATION_MZONE)
e1:SetCondition(c115850474.tdcon1)
e1:SetCost(c115850474.cost)
e1:SetTarget(c115850474.target)
e1:SetOperation(c115850474.operation)
c:RegisterEffect(e1)
local e3=e1:Clone()
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetCondition(c115850474.tdcon2)
c:RegisterEffect(e3)
end
function c115850474.tdcon1(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsPlayerAffectedByEffect(tp,11662004)
end
function c115850474.tdcon2(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsPlayerAffectedByEffect(tp,11662004)
end
function c115850474.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST)
end
function c115850474.filter1(c)
return (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) and c:IsSetCard(0x79,0x7c) and c:IsAbleToDeck()
end
function c115850474.filter2(c)
return (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) and c:IsAbleToDeck()
end
function c115850474.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return false end
if chk==0 then return Duel.IsExistingTarget(c115850474.filter1,tp,LOCATION_GRAVE+LOCATION_ONFIELD,0,2,nil)
and Duel.IsExistingTarget(c115850474.filter2,tp,0,LOCATION_GRAVE+LOCATION_ONFIELD,2,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g1=Duel.SelectTarget(tp,c115850474.filter1,tp,LOCATION_GRAVE+LOCATION_ONFIELD,0,2,2,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g2=Duel.SelectTarget(tp,c115850474.filter2,tp,0,LOCATION_GRAVE+LOCATION_ONFIELD,2,2,nil)
g1:Merge(g2)
Duel.SetOperationInfo(0,CATEGORY_TODECK,g1,4,0,0)
end
function c115850474.filter3(c,e)
return (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) and c:IsRelateToEffect(e)
end
function c115850474.operation(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c115850474.filter3,nil,e)
Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
end
expansions/script/c119638197.lua deleted 100644 → 0
View file @ b764dabe
--魁炎星王－ソウコ
function c119638197.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_BEASTWARRIOR),4,2)
c:EnableReviveLimit()
--set
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(119638197,0))
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCondition(c119638197.setcon)
e1:SetTarget(c119638197.settg)
e1:SetOperation(c119638197.setop)
c:RegisterEffect(e1)
--negate
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(119638197,1))
e2:SetCategory(CATEGORY_DISABLE)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
e2:SetCondition(c119638197.tdcon1)
e2:SetCost(c119638197.discost)
e2:SetTarget(c119638197.distg)
e2:SetOperation(c119638197.disop)
c:RegisterEffect(e2)
local e4=e2:Clone()
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetCondition(c119638197.tdcon2)
c:RegisterEffect(e4)
--spsummon
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(119638197,2))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetCondition(c119638197.spcon)
e3:SetCost(c119638197.spcost)
e3:SetTarget(c119638197.sptg)
e3:SetOperation(c119638197.spop)
c:RegisterEffect(e3)
end
function c119638197.setcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
end
function c119638197.filter(c)
return c:IsSetCard(0x7c) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
end
function c119638197.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c119638197.filter,tp,LOCATION_DECK,0,1,nil) end
end
function c119638197.setop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,c119638197.filter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SSet(tp,g:GetFirst())
end
end
function c119638197.tdcon1(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsPlayerAffectedByEffect(tp,11662004)
end
function c119638197.tdcon2(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsPlayerAffectedByEffect(tp,11662004)
end
function c119638197.discost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
end
function c119638197.dfilter(c)
return c:IsFaceup() and c:IsType(TYPE_EFFECT) and not c:IsRace(RACE_BEASTWARRIOR)
end
function c119638197.distg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c119638197.dfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
end
function c119638197.disop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c119638197.dfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
local tc=g:GetFirst()
local c=e:GetHandler()
while tc do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
tc:RegisterEffect(e2)
tc=g:GetNext()
end
end
function c119638197.spcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
end
function c119638197.cfilter(c)
return c:IsFaceup() and c:IsSetCard(0x7c) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGraveAsCost()
end
function c119638197.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c119638197.cfilter,tp,LOCATION_ONFIELD,0,3,nil)
or Duel.IsPlayerAffectedByEffect(tp,46241344) end
if Duel.IsExistingMatchingCard(c119638197.cfilter,tp,LOCATION_ONFIELD,0,3,nil)
and (not Duel.IsPlayerAffectedByEffect(tp,46241344) or not Duel.SelectYesNo(tp,aux.Stringid(46241344,0))) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c119638197.cfilter,tp,LOCATION_ONFIELD,0,3,3,nil)
Duel.SendtoGrave(g,REASON_COST)
end
end
function c119638197.spfilter(c,e,tp)
return c:IsLevelBelow(4) and c:IsRace(RACE_BEASTWARRIOR) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
end
function c119638197.afilter1(c,g)
return g:IsExists(c119638197.afilter2,1,c,c:GetAttack())
end
function c119638197.afilter2(c,atk)
return c:IsAttack(atk)
end
function c119638197.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local g=Duel.GetMatchingGroup(c119638197.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
return not Duel.IsPlayerAffectedByEffect(tp,59822133)
and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and g:IsExists(c119638197.afilter1,1,nil,g)
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK)
end
function c119638197.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end
local g=Duel.GetMatchingGroup(c119638197.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
local dg=g:Filter(c119638197.afilter1,nil,g)
if dg:GetCount()>=1 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local tc1=dg:Select(tp,1,1,nil):GetFirst()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local tc2=dg:FilterSelect(tp,c119638197.afilter2,1,1,tc1,tc1:GetAttack()):GetFirst()
Duel.SpecialSummonStep(tc1,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
Duel.SpecialSummonStep(tc2,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
Duel.SpecialSummonComplete()
end
end
expansions/script/c12249903.lua deleted 100644 → 0
View file @ b764dabe
--真龙战士 点火烈·炽热
function c12249903.initial_effect(c)
--summon with s/t
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(12249903,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SUMMON_PROC)
e1:SetCondition(c12249903.otcon)
e1:SetOperation(c12249903.otop)
e1:SetValue(SUMMON_TYPE_ADVANCE)
c:RegisterEffect(e1)
--search
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(12249903,1))
e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_CHAINING)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetCondition(c12249903.thcon)
e2:SetTarget(c12249903.thtg)
e2:SetOperation(c12249903.thop)
c:RegisterEffect(e2)
end
function c12249903.otfilter(c)
return c:IsType(TYPE_CONTINUOUS) and c:IsReleasable()
end
function c12249903.otcon(e,c,minc)
if c==nil then return true end
local tp=c:GetControler()
return c:GetLevel()>4 and minc<=1 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c12249903.otfilter,tp,LOCATION_SZONE,0,1,nil)
end
function c12249903.otop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local sg=Duel.SelectMatchingCard(tp,c12249903.otfilter,tp,LOCATION_SZONE,0,1,1,nil)
c:SetMaterial(sg)
Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL)
end
function c12249903.thcon(e,tp,eg,ep,ev,re,r,rp)
return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE and rp~=tp
end
function c12249903.thfilter(c,tp)
return c:IsSetCard(0xf9) and c:IsType(TYPE_CONTINUOUS) and c:IsType(TYPE_SPELL)
and (c:IsAbleToHand() or c:GetActivateEffect():IsActivatable(tp))
end
function c12249903.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c12249903.thfilter,tp,LOCATION_DECK,0,1,nil,tp) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c12249903.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(12249903,3))
local g=Duel.SelectMatchingCard(tp,c12249903.thfilter,tp,LOCATION_DECK,0,1,1,nil,tp)
local tc=g:GetFirst()
if tc then
local b1=tc:IsAbleToHand()
local b2=tc:GetActivateEffect():IsActivatable(tp)
if b1 and (Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or not b2 or Duel.SelectYesNo(tp,aux.Stringid(12249903,2))) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
else
Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
local te=tc:GetActivateEffect()
local tep=tc:GetControler()
local cost=te:GetCost()
if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,te,0,tp,tp,Duel.GetCurrentChain())
end
end
end
expansions/script/c12344023.lua deleted 100644 → 0
View file @ b764dabe
--狱火机·莉莉丝
function c12344023.initial_effect(c)
c:EnableReviveLimit()
--special summon condition
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)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCondition(c12344023.spcon)
e2:SetOperation(c12344023.spop)
c:RegisterEffect(e2)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetTarget(c12344023.destg)
e3:SetOperation(c12344023.desop)
c:RegisterEffect(e3)
--negate
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE)
e4:SetCode(EVENT_CHAINING)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetRange(LOCATION_MZONE)
e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e4:SetCountLimit(1)
e4:SetCondition(c12344023.negcon)
e4:SetCost(c12344023.negcost)
e4:SetTarget(c12344023.negtg)
e4:SetOperation(c12344023.negop)
c:RegisterEffect(e4)
end
function c12344023.spfilter(c)
return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and (c:IsAbleToRemoveAsCost() or c:IsLocation(LOCATION_REMOVED))
end
function c12344023.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local sum=0
for i=0,4 do
local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i)
if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then
if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank()
else sum=sum+tc:GetLevel() end
end
end
if sum>8 then return false end
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<-2 then return false end
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
if c:IsHasEffect(34822850) then
if ft>0 then
return Duel.IsExistingMatchingCard(c12344023.spfilter,tp,LOCATION_MZONE+loc,0,3,c)
else
local ct=-ft+1
return Duel.IsExistingMatchingCard(c12344023.spfilter,tp,LOCATION_MZONE,0,ct,nil)
and Duel.IsExistingMatchingCard(c12344023.spfilter,tp,LOCATION_MZONE+loc,0,3,c)
end
else
return ft>0 and Duel.IsExistingMatchingCard(c12344023.spfilter,tp,loc,0,3,c)
end
end
function c12344023.spop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=nil
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
if c:IsHasEffect(34822850) then
if ft>0 then
g=Duel.SelectMatchingCard(tp,c12344023.spfilter,tp,LOCATION_MZONE+loc,0,3,3,c)
else
local sg=Duel.GetMatchingGroup(c12344023.spfilter,tp,LOCATION_MZONE+loc,0,c)
local ct=-ft+1
g=sg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE)
if ct<3 then
sg:Sub(g)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g2=sg:Select(tp,3-ct,3-ct,nil)
g:Merge(g2)
end
end
else
g=Duel.SelectMatchingCard(tp,c12344023.spfilter,tp,loc,0,3,3,c)
end
local g2=g:Filter(Card.IsLocation,nil,LOCATION_REMOVED)
g:Sub(g2)
Duel.Remove(g,POS_FACEUP,REASON_COST)
Duel.SendtoGrave(g2,REASON_COST+REASON_RETURN)
end
function c12344023.desfilter(c)
return (c:IsFacedown() or not c:IsSetCard(0xc5)) and c:IsType(TYPE_SPELL+TYPE_TRAP)
end
function c12344023.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c12344023.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
local g=Duel.GetMatchingGroup(c12344023.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
end
function c12344023.desop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c12344023.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
if g:GetCount()>0 then
Duel.Destroy(g,REASON_EFFECT)
end
end
function c12344023.negcon(e,tp,eg,ep,ev,re,r,rp)
return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and re:GetHandler()~=e:GetHandler()
and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
end
function c12344023.cfilter(c)
return not c:IsStatus(STATUS_BATTLE_DESTROYED)
end
function c12344023.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,c12344023.cfilter,1,nil) end
local g=Duel.SelectReleaseGroup(tp,c12344023.cfilter,1,1,nil)
Duel.Release(g,REASON_COST)
end
function c12344023.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
if re:GetHandler():IsAbleToRemove() and re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0)
end
end
function c12344023.negop(e,tp,eg,ep,ev,re,r,rp)
Duel.NegateActivation(ev)
if re:GetHandler():IsRelateToEffect(re) then
Duel.Remove(eg,POS_FACEUP,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c12581198.lua deleted 100644 → 0
View file @ b764dabe
--狱火机·阿斯蒙蒂斯
function c12581198.initial_effect(c)
c:EnableReviveLimit()
--special summon condition
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)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCondition(c12581198.spcon)
e2:SetOperation(c12581198.spop)
c:RegisterEffect(e2)
--handes
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(12581198,0))
e3:SetCategory(CATEGORY_HANDES)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_BATTLE_DAMAGE)
e3:SetCondition(c12581198.thcon)
e3:SetTarget(c12581198.thtg)
e3:SetOperation(c12581198.thop)
c:RegisterEffect(e3)
--remove
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(12581198,1))
e4:SetCategory(CATEGORY_REMOVE)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
e4:SetCountLimit(1)
e4:SetCost(c12581198.rmcost)
e4:SetTarget(c12581198.rmtg)
e4:SetOperation(c12581198.rmop)
c:RegisterEffect(e4)
end
function c12581198.spfilter(c)
return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and (c:IsAbleToRemoveAsCost() or c:IsLocation(LOCATION_REMOVED))
end
function c12581198.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local sum=0
for i=0,4 do
local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i)
if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then
if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank()
else sum=sum+tc:GetLevel() end
end
end
if sum>8 then return false end
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<-1 then return false end
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
if c:IsHasEffect(34822850) then
if ft>0 then
return Duel.IsExistingMatchingCard(c12581198.spfilter,tp,LOCATION_MZONE+loc,0,2,c)
else
local ct=-ft+1
return Duel.IsExistingMatchingCard(c12581198.spfilter,tp,LOCATION_MZONE,0,ct,nil)
and Duel.IsExistingMatchingCard(c12581198.spfilter,tp,LOCATION_MZONE+loc,0,2,c)
end
else
return ft>0 and Duel.IsExistingMatchingCard(c12581198.spfilter,tp,loc,0,2,c)
end
end
function c12581198.spop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=nil
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
if c:IsHasEffect(34822850) then
if ft>0 then
g=Duel.SelectMatchingCard(tp,c12581198.spfilter,tp,LOCATION_MZONE+loc,0,2,2,c)
else
local sg=Duel.GetMatchingGroup(c12581198.spfilter,tp,LOCATION_MZONE+loc,0,c)
local ct=-ft+1
g=sg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE)
if ct<2 then
sg:Sub(g)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g2=sg:Select(tp,1,1,nil)
g:Merge(g2)
end
end
else
g=Duel.SelectMatchingCard(tp,c12581198.spfilter,tp,loc,0,2,2,c)
end
local g2=g:Filter(Card.IsLocation,nil,LOCATION_REMOVED)
g:Sub(g2)
Duel.Remove(g,POS_FACEUP,REASON_COST)
Duel.SendtoGrave(g2,REASON_COST+REASON_RETURN)
end
function c12581198.thcon(e,tp,eg,ep,ev,re,r,rp)
return ep~=tp and Duel.GetAttacker()==e:GetHandler() and Duel.GetAttackTarget()~=nil
end
function c12581198.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 end
Duel.SetOperationInfo(0,CATEGORY_HANDES,0,0,1-tp,1)
end
function c12581198.thop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetFieldGroup(ep,LOCATION_HAND,0)
local sg=g:RandomSelect(ep,1)
Duel.SendtoGrave(sg,REASON_EFFECT)
end
function c12581198.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsReleasable,1,nil) end
local g=Duel.SelectReleaseGroup(tp,Card.IsReleasable,1,1,nil)
Duel.Release(g,REASON_COST)
end
function c12581198.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end
function c12581198.rmop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c12603457.lua deleted 100644 → 0
View file @ b764dabe
--狱火机·别西卜
function c12603457.initial_effect(c)
c:EnableReviveLimit()
--special summon condition
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)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c12603457.spcon)
e2:SetOperation(c12603457.spop)
c:RegisterEffect(e2)
--to hand
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(12603457,0))
e3:SetCategory(CATEGORY_TOHAND)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetCountLimit(1)
e3:SetTarget(c12603457.thtg)
e3:SetOperation(c12603457.thop)
c:RegisterEffect(e3)
--remove
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(12603457,1))
e4:SetCategory(CATEGORY_REMOVE)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
e4:SetCountLimit(1)
e4:SetCondition(c12603457.rmcon)
e4:SetCost(c12603457.rmcost)
e4:SetTarget(c12603457.rmtg)
e4:SetOperation(c12603457.rmop)
c:RegisterEffect(e4)
end
function c12603457.spfilter(c)
return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and (c:IsAbleToRemoveAsCost() or c:IsLocation(LOCATION_REMOVED))
end
function c12603457.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local sum=0
for i=0,4 do
local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i)
if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then
if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank()
else sum=sum+tc:GetLevel() end
end
end
if sum>8 then return false end
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<0 then return false end
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
if c:IsHasEffect(34822850) then
if ft>0 then
return Duel.IsExistingMatchingCard(c12603457.spfilter,tp,LOCATION_MZONE+loc,0,1,c)
else
return Duel.IsExistingMatchingCard(c12603457.spfilter,tp,LOCATION_MZONE,0,1,nil)
end
else
return ft>0 and Duel.IsExistingMatchingCard(c12603457.spfilter,tp,loc,0,1,c)
end
end
function c12603457.spop(e,tp,eg,ep,ev,re,r,rp,c)
local g=nil
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
if c:IsHasEffect(34822850) then
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
g=Duel.SelectMatchingCard(tp,c12603457.spfilter,tp,LOCATION_MZONE+loc,0,1,1,c)
else
g=Duel.SelectMatchingCard(tp,c12603457.spfilter,tp,LOCATION_MZONE,0,1,1,nil)
end
else
g=Duel.SelectMatchingCard(tp,c12603457.spfilter,tp,loc,0,1,1,c)
end
local g2=g:Filter(Card.IsLocation,nil,LOCATION_REMOVED)
g:Sub(g2)
Duel.Remove(g,POS_FACEUP,REASON_COST)
Duel.SendtoGrave(g2,REASON_COST+REASON_RETURN)
end
function c12603457.thfilter(c)
return c:IsFaceup() and c:IsAbleToHand()
end
function c12603457.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c12603457.thfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c12603457.thfilter,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
local g=Duel.SelectTarget(tp,c12603457.thfilter,tp,0,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function c12603457.thop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
end
end
function c12603457.rmcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c12603457.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsReleasable,1,nil) end
local g=Duel.SelectReleaseGroup(tp,Card.IsReleasable,1,1,nil)
Duel.Release(g,REASON_COST)
end
function c12603457.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end
function c12603457.rmop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c14943078.lua deleted 100644 → 0
View file @ b764dabe
--真龙的继承
function c14943078.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1)
--draw
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(14943078,0))
e2:SetCategory(CATEGORY_DRAW)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1,14943078)
e2:SetCondition(c14943078.drcon)
e2:SetTarget(c14943078.drtg)
e2:SetOperation(c14943078.drop)
c:RegisterEffect(e2)
--tribute summon
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(14943078,1))
e3:SetCategory(CATEGORY_SUMMON)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_SZONE)
e3:SetCountLimit(1,14943079)
e3:SetTarget(c14943078.sumtg)
e3:SetOperation(c14943078.sumop)
c:RegisterEffect(e3)
--destroy
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(14943078,2))
e4:SetCategory(CATEGORY_DESTROY)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e4:SetCode(EVENT_TO_GRAVE)
e4:SetCountLimit(1,14943077)
e4:SetCondition(c14943078.descon)
e4:SetTarget(c14943078.destg)
e4:SetOperation(c14943078.desop)
c:RegisterEffect(e4)
if c14943078.counter==nil then
c14943078.counter=0
local ge1=Effect.CreateEffect(c)
ge1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
ge1:SetCode(EVENT_TO_GRAVE)
ge1:SetOperation(c14943078.checkop)
Duel.RegisterEffect(ge1,0)
local ge2=Effect.CreateEffect(c)
ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
ge2:SetOperation(c14943078.clearop)
Duel.RegisterEffect(ge2,0)
end
end
function c14943078.checkop(e,tp,eg,ep,ev,re,r,rp)
local tc=eg:GetFirst()
while tc do
if tc:IsPreviousLocation(LOCATION_ONFIELD) and tc:IsSetCard(0xf9) then
if tc:GetCode()==118776531 then
if Duel.GetFlagEffect(0,14943178)==0 then
c14943078.counter=c14943078.counter+1
Duel.RegisterFlagEffect(0,14943178,RESET_PHASE+PHASE_END,0,1)
end
if Duel.GetFlagEffect(0,14943278)==0 then
c14943078.counter=c14943078.counter+1
Duel.RegisterFlagEffect(0,14943278,RESET_PHASE+PHASE_END,0,1)
end
end
local typ=bit.band(tc:GetOriginalType(),0x7)
if (typ==TYPE_MONSTER and Duel.GetFlagEffect(0,14943078)==0)
or (typ==TYPE_SPELL and Duel.GetFlagEffect(0,14943178)==0)
or (typ==TYPE_TRAP and Duel.GetFlagEffect(0,14943278)==0) then
c14943078.counter=c14943078.counter+1
if typ==TYPE_MONSTER then
Duel.RegisterFlagEffect(0,14943078,RESET_PHASE+PHASE_END,0,1)
elseif typ==TYPE_SPELL then
Duel.RegisterFlagEffect(0,14943178,RESET_PHASE+PHASE_END,0,1)
else
Duel.RegisterFlagEffect(0,14943278,RESET_PHASE+PHASE_END,0,1)
end
end
end
tc=eg:GetNext()
end
end
function c14943078.clearop(e,tp,eg,ep,ev,re,r,rp)
c14943078.counter=0
end
function c14943078.drcon(e,tp,eg,ep,ev,re,r,rp)
return c14943078.counter>0
end
function c14943078.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,c14943078.counter) end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,c14943078.counter)
end
function c14943078.drop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
Duel.Draw(tp,c14943078.counter,REASON_EFFECT)
end
function c14943078.sumfilter(c)
return c:IsSetCard(0xf9) and c:IsSummonable(true,nil,1)
end
function c14943078.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c14943078.sumfilter,tp,LOCATION_HAND,0,1,nil) end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
end
function c14943078.sumop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
local g=Duel.SelectMatchingCard(tp,c14943078.sumfilter,tp,LOCATION_HAND,0,1,1,nil)
local tc=g:GetFirst()
if tc then
Duel.Summon(tp,tc,true,nil,1)
end
end
function c14943078.descon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsPreviousLocation(LOCATION_SZONE)
end
function c14943078.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsType(TYPE_SPELL+TYPE_TRAP) end
if chk==0 then return Duel.IsExistingTarget(Card.IsType,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,TYPE_SPELL+TYPE_TRAP) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,Card.IsType,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,TYPE_SPELL+TYPE_TRAP)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
end
function c14943078.desop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Destroy(tc,REASON_EFFECT)
end
end
expansions/script/c15131668.lua deleted 100644 → 0
View file @ b764dabe
--狱火机·巴力
function c15131668.initial_effect(c)
c:EnableReviveLimit()
--special summon condition
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)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCondition(c15131668.spcon)
e2:SetOperation(c15131668.spop)
c:RegisterEffect(e2)
--remove
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(15131668,0))
e3:SetCategory(CATEGORY_REMOVE)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_PHASE+PHASE_BATTLE)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1)
e3:SetCondition(c15131668.rmcon)
e3:SetTarget(c15131668.rmtg)
e3:SetOperation(c15131668.rmop)
c:RegisterEffect(e3)
--remove
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(15131668,1))
e4:SetCategory(CATEGORY_REMOVE)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
e4:SetCountLimit(1)
e4:SetCost(c15131668.rmcost2)
e4:SetTarget(c15131668.rmtg2)
e4:SetOperation(c15131668.rmop2)
c:RegisterEffect(e4)
end
function c15131668.spfilter(c)
return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and (c:IsAbleToRemoveAsCost() or c:IsLocation(LOCATION_REMOVED))
end
function c15131668.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local sum=0
for i=0,4 do
local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i)
if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then
if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank()
else sum=sum+tc:GetLevel() end
end
end
if sum>8 then return false end
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<-1 then return false end
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
if c:IsHasEffect(34822850) then
if ft>0 then
return Duel.IsExistingMatchingCard(c15131668.spfilter,tp,LOCATION_MZONE+loc,0,2,c)
else
local ct=-ft+1
return Duel.IsExistingMatchingCard(c15131668.spfilter,tp,LOCATION_MZONE,0,ct,nil)
and Duel.IsExistingMatchingCard(c15131668.spfilter,tp,LOCATION_MZONE+loc,0,2,c)
end
else
return ft>0 and Duel.IsExistingMatchingCard(c15131668.spfilter,tp,loc,0,2,c)
end
end
function c15131668.spop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=nil
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
if c:IsHasEffect(34822850) then
if ft>0 then
g=Duel.SelectMatchingCard(tp,c15131668.spfilter,tp,LOCATION_MZONE+loc,0,2,2,c)
else
local sg=Duel.GetMatchingGroup(c15131668.spfilter,tp,LOCATION_MZONE+loc,0,c)
local ct=-ft+1
g=sg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE)
if ct<2 then
sg:Sub(g)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g2=sg:Select(tp,1,1,nil)
g:Merge(g2)
end
end
else
g=Duel.SelectMatchingCard(tp,c15131668.spfilter,tp,loc,0,2,2,c)
end
local g2=g:Filter(Card.IsLocation,nil,LOCATION_REMOVED)
g:Sub(g2)
Duel.Remove(g,POS_FACEUP,REASON_COST)
Duel.SendtoGrave(g2,REASON_COST+REASON_RETURN)
end
function c15131668.rmcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()==tp and e:GetHandler():GetBattledGroup():GetCount()>0
end
function c15131668.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end
function c15131668.rmop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
if g:GetCount()>0 then
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end
end
function c15131668.rmcost2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsReleasable,1,nil) end
local g=Duel.SelectReleaseGroup(tp,Card.IsReleasable,1,1,nil)
Duel.Release(g,REASON_COST)
end
function c15131668.rmtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end
function c15131668.rmop2(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c15203827.lua deleted 100644 → 0
View file @ b764dabe
--狱火机·路西弗格
function c15203827.initial_effect(c)
c:EnableReviveLimit()
--special summon condition
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)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c15203827.spcon)
e2:SetOperation(c15203827.spop)
c:RegisterEffect(e2)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(15203827,0))
e3:SetCategory(CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetCountLimit(1)
e3:SetCost(c15203827.descost)
e3:SetTarget(c15203827.destg)
e3:SetOperation(c15203827.desop)
c:RegisterEffect(e3)
--remove
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(15203827,1))
e4:SetCategory(CATEGORY_REMOVE)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
e4:SetCountLimit(1)
e4:SetCondition(c15203827.rmcon)
e4:SetCost(c15203827.rmcost)
e4:SetTarget(c15203827.rmtg)
e4:SetOperation(c15203827.rmop)
c:RegisterEffect(e4)
end
function c15203827.spfilter(c)
return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and (c:IsAbleToRemoveAsCost() or c:IsLocation(LOCATION_REMOVED))
end
function c15203827.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local sum=0
for i=0,4 do
local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i)
if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then
if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank()
else sum=sum+tc:GetLevel() end
end
end
if sum>8 then return false end
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<0 then return false end
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
if c:IsHasEffect(34822850) then
if ft>0 then
return Duel.IsExistingMatchingCard(c15203827.spfilter,tp,LOCATION_MZONE+loc,0,1,c)
else
return Duel.IsExistingMatchingCard(c15203827.spfilter,tp,LOCATION_MZONE,0,1,nil)
end
else
return ft>0 and Duel.IsExistingMatchingCard(c15203827.spfilter,tp,loc,0,1,c)
end
end
function c15203827.spop(e,tp,eg,ep,ev,re,r,rp,c)
local g=nil
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
if c:IsHasEffect(34822850) then
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
g=Duel.SelectMatchingCard(tp,c15203827.spfilter,tp,LOCATION_MZONE+loc,0,1,1,c)
else
g=Duel.SelectMatchingCard(tp,c15203827.spfilter,tp,LOCATION_MZONE,0,1,1,nil)
end
else
g=Duel.SelectMatchingCard(tp,c15203827.spfilter,tp,loc,0,1,1,c)
end
local g2=g:Filter(Card.IsLocation,nil,LOCATION_REMOVED)
g:Sub(g2)
Duel.Remove(g,POS_FACEUP,REASON_COST)
Duel.SendtoGrave(g2,REASON_COST+REASON_RETURN)
end
function c15203827.descost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:GetAttackAnnouncedCount()==0 end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_ATTACK)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1)
end
function c15203827.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) end
if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
end
function c15203827.desop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Destroy(tc,REASON_EFFECT)
end
end
function c15203827.rmcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c15203827.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsReleasable,1,nil) end
local g=Duel.SelectReleaseGroup(tp,Card.IsReleasable,1,1,nil)
Duel.Release(g,REASON_COST)
end
function c15203827.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end
function c15203827.rmop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c15898473.lua deleted 100644 → 0
View file @ b764dabe
--真龙拳士 雾动轰·铁拳
function c15898473.initial_effect(c)
--summon with s/t
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(15898473,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SUMMON_PROC)
e1:SetCondition(c15898473.otcon)
e1:SetOperation(c15898473.otop)
e1:SetValue(SUMMON_TYPE_ADVANCE)
c:RegisterEffect(e1)
--search
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(15898473,1))
e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_CHAINING)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetCondition(c15898473.thcon)
e2:SetTarget(c15898473.thtg)
e2:SetOperation(c15898473.thop)
c:RegisterEffect(e2)
end
function c15898473.otfilter(c)
return c:IsType(TYPE_CONTINUOUS) and c:IsReleasable()
end
function c15898473.otcon(e,c,minc)
if c==nil then return true end
local tp=c:GetControler()
return c:GetLevel()>4 and minc<=1 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c15898473.otfilter,tp,LOCATION_SZONE,0,1,nil)
end
function c15898473.otop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local sg=Duel.SelectMatchingCard(tp,c15898473.otfilter,tp,LOCATION_SZONE,0,1,1,nil)
c:SetMaterial(sg)
Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL)
end
function c15898473.thcon(e,tp,eg,ep,ev,re,r,rp)
return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE and rp~=tp
end
function c15898473.thfilter(c,tp)
return c:IsSetCard(0xf9) and c:IsType(TYPE_CONTINUOUS) and c:IsType(TYPE_TRAP)
and (c:IsAbleToHand() or c:GetActivateEffect():IsActivatable(tp))
end
function c15898473.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c15898473.thfilter,tp,LOCATION_DECK,0,1,nil,tp) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c15898473.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(15898473,3))
local g=Duel.SelectMatchingCard(tp,c15898473.thfilter,tp,LOCATION_DECK,0,1,1,nil,tp)
local tc=g:GetFirst()
if tc then
local b1=tc:IsAbleToHand()
local b2=tc:GetActivateEffect():IsActivatable(tp)
if b1 and (Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or not b2 or Duel.SelectYesNo(tp,aux.Stringid(15898473,2))) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
else
Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
local te=tc:GetActivateEffect()
local tep=tc:GetControler()
local cost=te:GetCost()
if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,te,0,tp,tp,Duel.GetCurrentChain())
end
end
end
expansions/script/c16055152.lua deleted 100644 → 0
View file @ b764dabe
--狱火机·撒旦
function c16055152.initial_effect(c)
c:EnableReviveLimit()
--special summon condition
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)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c16055152.spcon)
e2:SetOperation(c16055152.spop)
c:RegisterEffect(e2)
--todeck
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_TODECK)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetCountLimit(1)
e3:SetTarget(c16055152.tdtg)
e3:SetOperation(c16055152.tdop)
c:RegisterEffect(e3)
--remove
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_REMOVE)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
e4:SetCountLimit(1)
e4:SetCondition(c16055152.rmcon)
e4:SetCost(c16055152.rmcost)
e4:SetTarget(c16055152.rmtg)
e4:SetOperation(c16055152.rmop)
c:RegisterEffect(e4)
end
function c16055152.spfilter(c)
return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and (c:IsAbleToRemoveAsCost() or c:IsLocation(LOCATION_REMOVED))
end
function c16055152.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local sum=0
for i=0,4 do
local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i)
if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then
if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank()
else sum=sum+tc:GetLevel() end
end
end
if sum>8 then return false end
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<0 then return false end
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
if c:IsHasEffect(34822850) then
if ft>0 then
return Duel.IsExistingMatchingCard(c16055152.spfilter,tp,LOCATION_MZONE+loc,0,1,c)
else
return Duel.IsExistingMatchingCard(c16055152.spfilter,tp,LOCATION_MZONE,0,1,nil)
end
else
return ft>0 and Duel.IsExistingMatchingCard(c16055152.spfilter,tp,loc,0,1,c)
end
end
function c16055152.spop(e,tp,eg,ep,ev,re,r,rp,c)
local g=nil
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
if c:IsHasEffect(34822850) then
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
g=Duel.SelectMatchingCard(tp,c16055152.spfilter,tp,LOCATION_MZONE+loc,0,1,1,c)
else
g=Duel.SelectMatchingCard(tp,c16055152.spfilter,tp,LOCATION_MZONE,0,1,1,nil)
end
else
g=Duel.SelectMatchingCard(tp,c16055152.spfilter,tp,loc,0,1,1,c)
end
local g2=g:Filter(Card.IsLocation,nil,LOCATION_REMOVED)
g:Sub(g2)
Duel.Remove(g,POS_FACEUP,REASON_COST)
Duel.SendtoGrave(g2,REASON_COST+REASON_RETURN)
end
function c16055152.tdfilter(c)
return c:IsFacedown() and c:IsAbleToDeck()
end
function c16055152.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and c16055152.tdfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c16055152.tdfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=Duel.SelectTarget(tp,c16055152.tdfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
Duel.SetChainLimit(c16055152.limit(g:GetFirst()))
end
function c16055152.tdop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
end
end
function c16055152.limit(c)
return function (e,lp,tp)
return e:GetHandler()~=c
end
end
function c16055152.rmcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c16055152.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsReleasable,1,nil) end
local g=Duel.SelectReleaseGroup(tp,Card.IsReleasable,1,1,nil)
Duel.Release(g,REASON_COST)
end
function c16055152.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end
function c16055152.rmop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c18830139.lua deleted 100644 → 0
View file @ b764dabe
--狱火机·亚得米勒
function c18830139.initial_effect(c)
c:EnableReviveLimit()
--special summon condition
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)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCondition(c18830139.spcon)
e2:SetOperation(c18830139.spop)
c:RegisterEffect(e2)
--chain attack
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(18830139,0))
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_BATTLE_DESTROYING)
e3:SetCondition(c18830139.atcon)
e3:SetOperation(c18830139.atop)
c:RegisterEffect(e3)
--remove
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(18830139,1))
e4:SetCategory(CATEGORY_REMOVE)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
e4:SetCountLimit(1)
e4:SetCost(c18830139.rmcost)
e4:SetTarget(c18830139.rmtg)
e4:SetOperation(c18830139.rmop)
c:RegisterEffect(e4)
end
function c18830139.spfilter(c)
return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and (c:IsAbleToRemoveAsCost() or c:IsLocation(LOCATION_REMOVED))
end
function c18830139.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local sum=0
for i=0,4 do
local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i)
if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then
if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank()
else sum=sum+tc:GetLevel() end
end
end
if sum>8 then return false end
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<-1 then return false end
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
if c:IsHasEffect(34822850) then
if ft>0 then
return Duel.IsExistingMatchingCard(c18830139.spfilter,tp,LOCATION_MZONE+loc,0,2,c)
else
local ct=-ft+1
return Duel.IsExistingMatchingCard(c18830139.spfilter,tp,LOCATION_MZONE,0,ct,nil)
and Duel.IsExistingMatchingCard(c18830139.spfilter,tp,LOCATION_MZONE+loc,0,2,c)
end
else
return ft>0 and Duel.IsExistingMatchingCard(c18830139.spfilter,tp,loc,0,2,c)
end
end
function c18830139.spop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=nil
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
if c:IsHasEffect(34822850) then
if ft>0 then
g=Duel.SelectMatchingCard(tp,c18830139.spfilter,tp,LOCATION_MZONE+loc,0,2,2,c)
else
local sg=Duel.GetMatchingGroup(c18830139.spfilter,tp,LOCATION_MZONE+loc,0,c)
local ct=-ft+1
g=sg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE)
if ct<2 then
sg:Sub(g)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g2=sg:Select(tp,1,1,nil)
g:Merge(g2)
end
end
else
g=Duel.SelectMatchingCard(tp,c18830139.spfilter,tp,loc,0,2,2,c)
end
local g2=g:Filter(Card.IsLocation,nil,LOCATION_REMOVED)
g:Sub(g2)
Duel.Remove(g,POS_FACEUP,REASON_COST)
Duel.SendtoGrave(g2,REASON_COST+REASON_RETURN)
end
function c18830139.atcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local bc=c:GetBattleTarget()
return bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) and c:IsChainAttackable() and c:IsStatus(STATUS_OPPO_BATTLE)
end
function c18830139.atop(e,tp,eg,ep,ev,re,r,rp)
Duel.ChainAttack()
end
function c18830139.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsReleasable,1,nil) end
local g=Duel.SelectReleaseGroup(tp,Card.IsReleasable,1,1,nil)
Duel.Release(g,REASON_COST)
end
function c18830139.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end
function c18830139.rmop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c18942397.lua deleted 100644 → 0
View file @ b764dabe
--狱火机·阿斯塔罗特
function c18942397.initial_effect(c)
c:EnableReviveLimit()
--special summon condition
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)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND)
e2:SetCondition(c18942397.spcon)
e2:SetOperation(c18942397.spop)
c:RegisterEffect(e2)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(18942397,0))
e3:SetCategory(CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetCountLimit(1)
e3:SetCost(c18942397.descost)
e3:SetTarget(c18942397.destg)
e3:SetOperation(c18942397.desop)
c:RegisterEffect(e3)
--remove
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(18942397,1))
e4:SetCategory(CATEGORY_REMOVE)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
e4:SetCountLimit(1)
e4:SetCondition(c18942397.rmcon)
e4:SetCost(c18942397.rmcost)
e4:SetTarget(c18942397.rmtg)
e4:SetOperation(c18942397.rmop)
c:RegisterEffect(e4)
end
function c18942397.spfilter(c)
return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and (c:IsAbleToRemoveAsCost() or c:IsLocation(LOCATION_REMOVED))
end
function c18942397.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local sum=0
for i=0,4 do
local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i)
if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then
if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank()
else sum=sum+tc:GetLevel() end
end
end
if sum>8 then return false end
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<0 then return false end
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
if c:IsHasEffect(34822850) then
if ft>0 then
return Duel.IsExistingMatchingCard(c18942397.spfilter,tp,LOCATION_MZONE+loc,0,1,c)
else
return Duel.IsExistingMatchingCard(c18942397.spfilter,tp,LOCATION_MZONE,0,1,nil)
end
else
return ft>0 and Duel.IsExistingMatchingCard(c18942397.spfilter,tp,loc,0,1,c)
end
end
function c18942397.spop(e,tp,eg,ep,ev,re,r,rp,c)
local g=nil
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
if c:IsHasEffect(34822850) then
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
g=Duel.SelectMatchingCard(tp,c18942397.spfilter,tp,LOCATION_MZONE+loc,0,1,1,c)
else
g=Duel.SelectMatchingCard(tp,c18942397.spfilter,tp,LOCATION_MZONE,0,1,1,nil)
end
else
g=Duel.SelectMatchingCard(tp,c18942397.spfilter,tp,loc,0,1,1,c)
end
local g2=g:Filter(Card.IsLocation,nil,LOCATION_REMOVED)
g:Sub(g2)
Duel.Remove(g,POS_FACEUP,REASON_COST)
Duel.SendtoGrave(g2,REASON_COST+REASON_RETURN)
end
function c18942397.filter(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP)
end
function c18942397.descost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:GetAttackAnnouncedCount()==0 end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_ATTACK)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1)
end
function c18942397.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and c18942397.filter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c18942397.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,c18942397.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
end
function c18942397.desop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Destroy(tc,REASON_EFFECT)
end
end
function c18942397.rmcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c18942397.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsReleasable,1,nil) end
local g=Duel.SelectReleaseGroup(tp,Card.IsReleasable,1,1,nil)
Duel.Release(g,REASON_COST)
end
function c18942397.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end
function c18942397.rmop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c19605513.lua deleted 100644 → 0
View file @ b764dabe
--狱火机·贝尔芬格
function c19605513.initial_effect(c)
c:EnableReviveLimit()
--special summon condition
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)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCondition(c19605513.spcon)
e2:SetOperation(c19605513.spop)
c:RegisterEffect(e2)
--remove
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_REMOVE)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_ATTACK_ANNOUNCE)
e3:SetTarget(c19605513.rmtg1)
e3:SetOperation(c19605513.rmop1)
c:RegisterEffect(e3)
--remove
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_REMOVE)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
e4:SetCountLimit(1)
e4:SetCost(c19605513.rmcost2)
e4:SetTarget(c19605513.rmtg2)
e4:SetOperation(c19605513.rmop2)
c:RegisterEffect(e4)
end
function c19605513.spfilter(c)
return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and (c:IsAbleToRemoveAsCost() or c:IsLocation(LOCATION_REMOVED))
end
function c19605513.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local sum=0
for i=0,4 do
local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i)
if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then
if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank()
else sum=sum+tc:GetLevel() end
end
end
if sum>8 then return false end
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ft<-1 then return false end
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
if c:IsHasEffect(34822850) then
if ft>0 then
return Duel.IsExistingMatchingCard(c19605513.spfilter,tp,LOCATION_MZONE+loc,0,2,c)
else
local ct=-ft+1
return Duel.IsExistingMatchingCard(c19605513.spfilter,tp,LOCATION_MZONE,0,ct,nil)
and Duel.IsExistingMatchingCard(c19605513.spfilter,tp,LOCATION_MZONE+loc,0,2,c)
end
else
return ft>0 and Duel.IsExistingMatchingCard(c19605513.spfilter,tp,loc,0,2,c)
end
end
function c19605513.spop(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local g=nil
local loc=LOCATION_GRAVE+LOCATION_HAND
if c:IsHasEffect(113482285) then
loc=LOCATION_REMOVED+LOCATION_HAND
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
if c:IsHasEffect(34822850) then
if ft>0 then
g=Duel.SelectMatchingCard(tp,c19605513.spfilter,tp,LOCATION_MZONE+loc,0,2,2,c)
else
local sg=Duel.GetMatchingGroup(c19605513.spfilter,tp,LOCATION_MZONE+loc,0,c)
local ct=-ft+1
g=sg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE)
if ct<2 then
sg:Sub(g)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g2=sg:Select(tp,1,1,nil)
g:Merge(g2)
end
end
else
g=Duel.SelectMatchingCard(tp,c19605513.spfilter,tp,loc,0,2,2,c)
end
local g2=g:Filter(Card.IsLocation,nil,LOCATION_REMOVED)
g:Sub(g2)
Duel.Remove(g,POS_FACEUP,REASON_COST)
Duel.SendtoGrave(g2,REASON_COST+REASON_RETURN)
end
function c19605513.rmtg1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_EXTRA,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_EXTRA)
end
function c19605513.rmop1(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(1-tp,nil,1-tp,LOCATION_EXTRA,0,1,1,nil)
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end
function c19605513.rmcost2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsReleasable,1,nil) end
local g=Duel.SelectReleaseGroup(tp,Card.IsReleasable,1,1,nil)
Duel.Release(g,REASON_COST)
end
function c19605513.rmtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end
function c19605513.rmop2(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c29058187.lua deleted 100644 → 0
View file @ b764dabe
--方舟骑士战术突击
c29058187.named_with_Arknight=1
function c29058187.initial_effect(c)
c:EnableCounterPermit(0x10ae)
c:SetCounterLimit(0x10ae,2)
--activate
local e1=Effect.CreateEffect(c)
e1:SetCountLimit(1,29058187+EFFECT_COUNT_CODE_OATH)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1)
--search
local e5=Effect.CreateEffect(c)
e5:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e5:SetDescription(aux.Stringid(29058187,1))
e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetRange(LOCATION_SZONE)
e5:SetCountLimit(1)
e5:SetCost(c29058187.cost2)
e5:SetTarget(c29058187.tg2)
e5:SetOperation(c29058187.op2)
c:RegisterEffect(e5)
--counter
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetRange(LOCATION_SZONE)
e3:SetOperation(c29058187.counterop)
c:RegisterEffect(e3)
end
function c29058187.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x10ae,2,REASON_COST) end
Duel.RemoveCounter(tp,1,0,0x10ae,2,REASON_COST)
end
function c29058187.filter2(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP) and (c:IsSetCard(0x87af) or (_G["c"..c:GetCode()] and _G["c"..c:GetCode()].named_with_Arknight)) and not c:IsCode(29058187) and c:IsAbleToHand()
end
function c29058187.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsExistingMatchingCard(c29058187.filter2,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c29058187.op2(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c29058187.filter2),tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
function c29058187.ntcon(e,c,minc)
if c==nil then return true end
return minc==0 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
end
function c29058187.nttg(e,c)
return c:IsLevelAbove(5) and (c:IsSetCard(0x87af) or (_G["c"..c:GetCode()] and _G["c"..c:GetCode()].named_with_Arknight))
end
function c29058187.cfilter(c,tp)
return c:IsFaceup() and (c:IsSetCard(0x87af) or (_G["c"..c:GetCode()] and _G["c"..c:GetCode()].named_with_Arknight)) and c:IsSummonType(SUMMON_TYPE_SPECIAL) and c:IsPreviousLocation(LOCATION_EXTRA) and c:IsControler(tp)
end
function c29058187.counterop(e,tp,eg,ep,ev,re,r,rp)
if eg:IsExists(c29058187.cfilter,1,nil,tp) then
e:GetHandler():AddCounter(0x10ae,1)
end
end
expansions/script/c34433000.lua deleted 100644 → 0
View file @ b764dabe
--俱舍怒威族 奥德赛
if not aux.tz_qh_qechk then
aux.tz_qh_qechk=true
_rge=Card.RegisterEffect
function Card.RegisterEffect(c,ie,ob) --ReplaceEffect
local b=ob or false
if not (c:IsRank(7) and c:IsType(TYPE_XYZ))
or not (ie:IsHasType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)) then
return _rge(c,ie,b)
end
local n1=_rge(c,ie,b)
local qe=ie:Clone()
if ie:GetCondition() then
local con=ie:GetCondition()
qe:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsLocation(LOCATION_MZONE) and Duel.IsPlayerAffectedByEffect(tp,34433000)
and con(e,1-tp,eg,ep,ev,re,r,rp)
end)
else
qe:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsLocation(LOCATION_MZONE) and Duel.IsPlayerAffectedByEffect(tp,34433000) end)
end
local n2=_rge(c,qe,b)
return n1,n2
end
end
function c34433000.initial_effect(c)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(c34433000.spcon)
c:RegisterEffect(e1)
--to hand
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetHintTiming(0,TIMING_MAIN_END+TIMINGS_CHECK_MONSTER)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,34433000)
e2:SetTarget(c34433000.thtg)
e2:SetOperation(c34433000.thop)
c:RegisterEffect(e2)
--TTT
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetRange(LOCATION_MZONE)
e3:SetCode(34433000)
e3:SetTargetRange(1,0)
c:RegisterEffect(e3)
end
function c34433000.spcon(e,c)
if c==nil then return true end
return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,LOCATION_MZONE)==0
and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
end
function c34433000.thfil(c)
return c:IsSetCard(0x189) and c:IsAbleToHand()
end
function c34433000.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) and Duel.GetTurnPlayer()==1-tp and Duel.IsExistingMatchingCard(c34433000.thfil,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c34433000.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c34433000.thfil,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
expansions/script/c40009023.lua
View file @ 8836e47a
--机空队 青天四式
function c40009023.initial_effect(c)
local m=40009023
local cm=_G["c"..m]
cm.named_with_MobileAerialTeam=1
function cm.MobileAerialTeam(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_MobileAerialTeam
end
function cm.initial_effect(c)
--link summon
c:EnableReviveLimit()
aux.AddLinkProcedure(c,c40009023.matfilter,1,1)
aux.AddLinkProcedure(c,cm.matfilter,1,1)
--equip
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(40009023,0))
e2:SetDescription(aux.Stringid(m,0))
e2:SetCategory(CATEGORY_EQUIP)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,40009023)
e2:SetCondition(c40009023.thcon)
e2:SetTarget(c40009023.eqtg)
e2:SetOperation(c40009023.eqop)
e2:SetCountLimit(1,m)
e2:SetCondition(cm.thcon)
e2:SetTarget(cm.eqtg)
e2:SetOperation(cm.eqop)
c:RegisterEffect(e2)
--destroy
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(40009023,1))
e1:SetDescription(aux.Stringid(m,1))
e1:SetCategory(CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,40009024)
e1:SetCost(c40009023.descost)
e1:SetTarget(c40009023.rmtg)
e1:SetOperation(c40009023.rmop)
e1:SetCountLimit(1,m+1)
e1:SetCost(cm.descost)
e1:SetTarget(cm.rmtg)
e1:SetOperation(cm.rmop)
c:RegisterEffect(e1)
end
function c40009023.thcon(e,tp,eg,ep,ev,re,r,rp)
function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
end
function c40009023.matfilter(c)
function cm.matfilter(c)
return not c:IsLink(1) and c:GetBaseAttack()==0 and c:IsType(TYPE_EFFECT)
end
function c40009023.eqfilter(c,tp)
return c:IsType(TYPE_QUICKPLAY) and c:IsSetCard(0xf13) and c:CheckUniqueOnField(tp) and not c:IsForbidden()
function cm.eqfilter(c,tp)
return c:IsType(TYPE_QUICKPLAY) and cm.MobileAerialTeam(c) and c:CheckUniqueOnField(tp) and not c:IsForbidden()
end
function c40009023.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
function cm.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
and Duel.IsExistingMatchingCard(c40009023.eqfilter,tp,LOCATION_GRAVE+LOCATION_DECK+LOCATION_HAND,0,1,nil,tp) end
and Duel.IsExistingMatchingCard(cm.eqfilter,tp,LOCATION_GRAVE+LOCATION_DECK+LOCATION_HAND,0,1,nil,tp) end
Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_GRAVE+LOCATION_DECK+LOCATION_HAND)
end
function c40009023.eqop(e,tp,eg,ep,ev,re,r,rp)
function cm.eqop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
if c:IsFacedown() or not c:IsRelateToEffect(e) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
local g=Duel.SelectMatchingCard(tp,c40009023.eqfilter,tp,LOCATION_GRAVE+LOCATION_DECK+LOCATION_HAND,0,1,1,nil,tp)
local g=Duel.SelectMatchingCard(tp,cm.eqfilter,tp,LOCATION_GRAVE+LOCATION_DECK+LOCATION_HAND,0,1,1,nil,tp)
local tc=g:GetFirst()
if tc then
if not Duel.Equip(tp,tc,c) then return end
......@@ -57,38 +64,38 @@ function c40009023.eqop(e,tp,eg,ep,ev,re,r,rp)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EQUIP_LIMIT)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetValue(c40009023.eqlimit)
e1:SetValue(cm.eqlimit)
tc:RegisterEffect(e1)
end
end
function c40009023.eqlimit(e,c)
function cm.eqlimit(e,c)
return e:GetOwner()==c
end
function c40009023.costfilter(c)
return c:IsFaceup() and c:IsSetCard(0xf13) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGraveAsCost()
function cm.costfilter(c)
return c:IsFaceup() and cm.MobileAerialTeam(c) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGraveAsCost()
end
function c40009023.descost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c40009023.costfilter,tp,LOCATION_ONFIELD,0,1,nil) end
if Duel.IsExistingMatchingCard(c40009023.costfilter,tp,LOCATION_ONFIELD,0,1,nil)
function cm.descost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_ONFIELD,0,1,nil) end
if Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_ONFIELD,0,1,nil)
then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c40009023.costfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
Duel.SendtoGrave(g,REASON_COST)
end
end
function c40009023.rmfilter(c)
function cm.rmfilter(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove()
end
function c40009023.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and c40009023.rmfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c40009023.rmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and cm.rmfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(cm.rmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,c40009023.rmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
local g=Duel.SelectTarget(tp,cm.rmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end
function c40009023.rmop(e,tp,eg,ep,ev,re,r,rp)
function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsType(TYPE_SPELL+TYPE_TRAP) then
if tc:IsRelateToEffect(e) then
Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c60151124.lua
View file @ 8836e47a
......@@ -28,12 +28,13 @@ function cm.initial_effect(c)
--juo gai
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(60151124,2))
e3:SetCategory(CATEGORY_REMOVE+CATEGORY_TOGRAVE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetCategory(CATEGORY_REMOVE+CATEGORY_SEARCH+CATEGORY_TOGRAVE)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetRange(LOCATION_MZONE)
e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e3:SetCountLimit(1)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetTarget(c60151124.tdtg)
e3:SetOperation(c60151124.tdop)
c:RegisterEffect(e3)
......@@ -139,13 +140,14 @@ function c60151124.regop2(e,tp,eg,ep,ev,re,r,rp)
end
end
function c60151124.tdtgfilter(c,tp)
return c:IsSetCard(0x9b23) and c:IsAbleToRemove()
and Duel.IsExistingTarget(c60151124.tdtgfilter2,tp,LOCATION_DECK,0,1,nil,c)
return c:IsSetCard(0x9b23) and c:IsAbleToRemove()
and Duel.IsExistingMatchingCard(c60151124.tdtgfilter2,tp,LOCATION_DECK,0,1,nil,c:GetCode())
end
function c60151124.tdtgfilter2(c,tc)
return c:IsSetCard(0x9b23) and (c:IsAbleToGrave() or c:IsAbleToHand()) and c:GetCode()~=tc:GetCode()
function c60151124.tdtgfilter2(c,code)
return c:IsSetCard(0x9b23) and (c:IsAbleToGrave() or c:IsAbleToHand()) and not c:IsCode(code)
end
function c60151124.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c60151124.tdtgfilter(chkc,tp) end
if chk==0 then return Duel.IsExistingTarget(c60151124.tdtgfilter,tp,LOCATION_GRAVE,0,1,nil,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,c60151124.tdtgfilter,tp,LOCATION_GRAVE,0,1,1,nil,tp)
......@@ -158,7 +160,7 @@ function c60151124.tdop(e,tp,eg,ep,ev,re,r,rp)
if tc:IsRelateToEffect(e) then
if Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELECT)
local g=Duel.SelectTarget(tp,c60151124.tdtgfilter2,tp,LOCATION_DECK,0,1,1,nil,tc)
local g=Duel.SelectMatchingCard(tp,c60151124.tdtgfilter2,tp,LOCATION_DECK,0,1,1,nil,tc:GetCode())
local tc2=g:GetFirst()
if tc2:IsAbleToHand() and tc2:IsAbleToGrave() then
if Duel.SelectYesNo(tp,aux.Stringid(60151124,3)) then
......
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