Skip to content

Y
ygopro-222DIY-cards
Commit e019bf2e authored by nanahira's avatar nanahira
Browse files
Options

filelist

parent ad560d93
Hide whitespace changes
Inline Side-by-side
Showing with 2280 additions and 2337 deletions
expansions/script/c21520082.lua
View file @ e019bf2e
--空间感应者
function c21520082.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcFunFunRep(c,c21520082.fsfilter1,c21520082.fsfilter2,1,99,true)
--spsummon condition
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_SPSUMMON_CONDITION)
e0:SetValue(c21520082.splimit)
c:RegisterEffect(e0)
--special summon rule
local e00=Effect.CreateEffect(c)
e00:SetType(EFFECT_TYPE_FIELD)
e00:SetCode(EFFECT_SPSUMMON_PROC)
e00:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e00:SetRange(LOCATION_EXTRA)
e00:SetCondition(c21520082.sprcon)
e00:SetTarget(c21520082.sprtg)
e00:SetOperation(c21520082.sprop)
e00:SetValue(SUMMON_TYPE_FUSION)
c:RegisterEffect(e00)
--atk & def
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_MATERIAL_CHECK)
e1:SetValue(c21520082.matcheck)
c:RegisterEffect(e1)
--self destroy
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EFFECT_SELF_DESTROY)
e2:SetCondition(c21520082.sdcon)
c:RegisterEffect(e2)
--to deck and power up
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(21520082,0))
e3:SetCategory(CATEGORY_TODECK+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetHintTiming(TIMING_DAMAGE_STEP+TIMING_DAMAGE_CAL)
e3:SetRange(LOCATION_MZONE)
e3:SetCost(c21520082.cost)
e3:SetTarget(c21520082.tg)
e3:SetOperation(c21520082.op)
c:RegisterEffect(e3)
end
c21520082.miracle_synchro_fusion=true
function c21520082.fsfilter1(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeFusionMaterial() and c:IsType(TYPE_MONSTER) and c:IsLevelAbove(6) and c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_WIND)
end
function c21520082.fsfilter2(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeFusionMaterial() and c:IsType(TYPE_MONSTER)
end
function c21520082.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION or se:GetHandler()==e:GetHandler()
end
function c21520082.cfilter(c,tp)
return ((c:IsLevelAbove(6) and c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_SPELLCASTER)) or c:IsRace(RACE_SPELLCASTER))
and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsReleasable() and (c:IsControler(tp) or c:IsFaceup())
end
function c21520082.fcheck(c,sg)
return c:IsRace(RACE_SPELLCASTER) and c:IsLevelAbove(6) and c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_MONSTER)
and c:IsType(TYPE_MONSTER) and sg:FilterCount(c21520082.fcheck2,c)+1==sg:GetCount()
end
function c21520082.fcheck2(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsType(TYPE_MONSTER)
end
function c21520082.fgoal(sg,tp)
return sg:GetCount()>1 and Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(c21520082.fcheck,1,nil,sg)
end
function c21520082.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520082.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
return mg:CheckSubGroup(c21520082.fgoal,1,nil,tp)
end
function c21520082.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local mg=Duel.GetMatchingGroup(c21520082.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
local cancel=Duel.GetCurrentChain()==0
local sg=mg:SelectSubGroup(tp,c21520082.fgoal,cancel,1,nil,tp)
if sg then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
end
function c21520082.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local sg=e:GetLabelObject()
c:SetMaterial(sg)
Duel.Release(sg,REASON_COST+REASON_MATERIAL+REASON_FUSION)
-- c:RegisterFlagEffect(21520082,RESET_EVENT+0xfc0000,0,1)
end
function c21520082.matcheck(e,c)
local ct=c:GetMaterialCount()
local ae=Effect.CreateEffect(c)
ae:SetType(EFFECT_TYPE_SINGLE)
ae:SetCode(EFFECT_SET_BASE_ATTACK)
ae:SetValue(ct*500)
ae:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(ae)
local de=ae:Clone()
de:SetCode(EFFECT_SET_BASE_DEFENSE)
c:RegisterEffect(de)
end
function c21520082.sdcon(e)
return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)~=SUMMON_TYPE_FUSION --and e:GetHandler():GetFlagEffect(21520082)==0
end
function c21520082.rfliter(c)
return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_SPELL)
end
function c21520082.tdfliter(c)
return c:IsAbleToDeck() and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_LEAVE_CONFIRMED)
end
function c21520082.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c21520082.rfliter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c21520082.rfliter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function c21520082.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsAbleToDeck() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,0,LOCATION_ONFIELD)
Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,nil,0,0,1000)
Duel.SetOperationInfo(0,CATEGORY_DEFCHANGE,nil,0,0,1000)
end
function c21520082.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) and c:IsRelateToEffect(e) then
if not tc:IsImmuneToEffect(e) then
local op=Duel.SelectOption(tp,aux.Stringid(21520082,1),aux.Stringid(21520082,2))
Duel.SendtoDeck(tc,nil,op,REASON_EFFECT)
end
local ae=Effect.CreateEffect(c)
ae:SetType(EFFECT_TYPE_SINGLE)
ae:SetCode(EFFECT_UPDATE_ATTACK)
ae:SetValue(1000)
ae:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(ae)
local de=ae:Clone()
de:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(de)
end
end
--空间感应者
function c21520082.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcFunFunRep(c,c21520082.fsfilter1,c21520082.fsfilter2,1,99,true)
--spsummon condition
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_SPSUMMON_CONDITION)
e0:SetValue(c21520082.splimit)
c:RegisterEffect(e0)
--special summon rule
local e00=Effect.CreateEffect(c)
e00:SetType(EFFECT_TYPE_FIELD)
e00:SetCode(EFFECT_SPSUMMON_PROC)
e00:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e00:SetRange(LOCATION_EXTRA)
e00:SetCondition(c21520082.sprcon)
e00:SetTarget(c21520082.sprtg)
e00:SetOperation(c21520082.sprop)
e00:SetValue(SUMMON_TYPE_FUSION)
c:RegisterEffect(e00)
--atk & def
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_MATERIAL_CHECK)
e1:SetValue(c21520082.matcheck)
c:RegisterEffect(e1)
--self destroy
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EFFECT_SELF_DESTROY)
e2:SetCondition(c21520082.sdcon)
c:RegisterEffect(e2)
--to deck and power up
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(21520082,0))
e3:SetCategory(CATEGORY_TODECK+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetHintTiming(TIMING_DAMAGE_STEP+TIMING_DAMAGE_CAL)
e3:SetRange(LOCATION_MZONE)
e3:SetCost(c21520082.cost)
e3:SetTarget(c21520082.tg)
e3:SetOperation(c21520082.op)
c:RegisterEffect(e3)
end
c21520082.miracle_synchro_fusion=true
function c21520082.fsfilter1(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeFusionMaterial() and c:IsType(TYPE_MONSTER) and c:IsLevelAbove(6) and c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_WIND)
end
function c21520082.fsfilter2(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeFusionMaterial() and c:IsType(TYPE_MONSTER)
end
function c21520082.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION or se:GetHandler()==e:GetHandler()
end
function c21520082.cfilter(c,tp)
return ((c:IsLevelAbove(6) and c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_SPELLCASTER)) or c:IsRace(RACE_SPELLCASTER))
and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsReleasable() and (c:IsControler(tp) or c:IsFaceup())
end
function c21520082.fcheck(c,sg)
return c:IsRace(RACE_SPELLCASTER) and c:IsLevelAbove(6) and c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_MONSTER)
and c:IsType(TYPE_MONSTER) and sg:FilterCount(c21520082.fcheck2,c)+1==sg:GetCount()
end
function c21520082.fcheck2(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsType(TYPE_MONSTER)
end
function c21520082.fgoal(sg,tp)
return sg:GetCount()>1 and Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(c21520082.fcheck,1,nil,sg)
end
function c21520082.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520082.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
return mg:CheckSubGroup(c21520082.fgoal,1,nil,tp)
end
function c21520082.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local mg=Duel.GetMatchingGroup(c21520082.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
local cancel=Duel.GetCurrentChain()==0
local sg=mg:SelectSubGroup(tp,c21520082.fgoal,cancel,1,nil,tp)
if sg then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
end
function c21520082.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local sg=e:GetLabelObject()
c:SetMaterial(sg)
Duel.Release(sg,REASON_COST+REASON_MATERIAL+REASON_FUSION)
-- c:RegisterFlagEffect(21520082,RESET_EVENT+0xfc0000,0,1)
end
function c21520082.matcheck(e,c)
local ct=c:GetMaterialCount()
local ae=Effect.CreateEffect(c)
ae:SetType(EFFECT_TYPE_SINGLE)
ae:SetCode(EFFECT_SET_BASE_ATTACK)
ae:SetValue(ct*500)
ae:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(ae)
local de=ae:Clone()
de:SetCode(EFFECT_SET_BASE_DEFENSE)
c:RegisterEffect(de)
end
function c21520082.sdcon(e)
return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)~=SUMMON_TYPE_FUSION --and e:GetHandler():GetFlagEffect(21520082)==0
end
function c21520082.rfliter(c)
return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_SPELL)
end
function c21520082.tdfliter(c)
return c:IsAbleToDeck() and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_LEAVE_CONFIRMED)
end
function c21520082.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c21520082.rfliter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c21520082.rfliter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function c21520082.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsAbleToDeck() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,0,LOCATION_ONFIELD)
Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,nil,0,0,1000)
Duel.SetOperationInfo(0,CATEGORY_DEFCHANGE,nil,0,0,1000)
end
function c21520082.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) and c:IsRelateToEffect(e) then
if not tc:IsImmuneToEffect(e) then
local op=Duel.SelectOption(tp,aux.Stringid(21520082,1),aux.Stringid(21520082,2))
Duel.SendtoDeck(tc,nil,op,REASON_EFFECT)
end
local ae=Effect.CreateEffect(c)
ae:SetType(EFFECT_TYPE_SINGLE)
ae:SetCode(EFFECT_UPDATE_ATTACK)
ae:SetValue(1000)
ae:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(ae)
local de=ae:Clone()
de:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(de)
end
end
expansions/script/c21520083.lua
View file @ e019bf2e
--时间观望者
function c21520083.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcFunFunRep(c,c21520083.fsfilter1,c21520083.fsfilter2,1,99,true)
--spsummon condition
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_SPSUMMON_CONDITION)
e0:SetValue(c21520083.splimit)
c:RegisterEffect(e0)
--special summon rule
local e00=Effect.CreateEffect(c)
e00:SetType(EFFECT_TYPE_FIELD)
e00:SetCode(EFFECT_SPSUMMON_PROC)
e00:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e00:SetRange(LOCATION_EXTRA)
e00:SetCondition(c21520083.sprcon)
e00:SetTarget(c21520083.sprtg)
e00:SetOperation(c21520083.sprop)
e00:SetValue(SUMMON_TYPE_FUSION)
c:RegisterEffect(e00)
--atk & def
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_MATERIAL_CHECK)
e1:SetValue(c21520083.matcheck)
c:RegisterEffect(e1)
--self destroy
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EFFECT_SELF_DESTROY)
e2:SetCondition(c21520083.sdcon)
c:RegisterEffect(e2)
--check deck and power up
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(21520083,0))
e3:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetHintTiming(TIMING_DAMAGE_STEP+TIMING_DAMAGE_CAL)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1)
e3:SetTarget(c21520083.tg)
e3:SetOperation(c21520083.operation)
c:RegisterEffect(e3)
end
function c21520083.fsfilter1(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeFusionMaterial() and c:IsType(TYPE_MONSTER) and c:IsLevelAbove(6) and c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_WIND)
end
function c21520083.fsfilter2(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeFusionMaterial() and c:IsType(TYPE_MONSTER)
end
function c21520083.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION or se:GetHandler()==e:GetHandler()
end
function c21520083.cfilter(c,tp)
return ((c:IsLevelAbove(6) and c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_SPELLCASTER)) or c:IsRace(RACE_SPELLCASTER))
and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsReleasable() and (c:IsControler(tp) or c:IsFaceup())
end
function c21520083.fcheck(c,sg)
return c:IsRace(RACE_SPELLCASTER) and c:IsLevelAbove(6) and c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_MONSTER)
and c:IsType(TYPE_MONSTER) and sg:FilterCount(c21520083.fcheck2,c)+1==sg:GetCount()
end
function c21520083.fcheck2(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsType(TYPE_MONSTER)
end
function c21520083.fgoal(sg,tp)
return sg:GetCount()>1 and Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(c21520083.fcheck,1,nil,sg)
end
function c21520083.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520083.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
return mg:CheckSubGroup(c21520083.fgoal,1,nil,tp)
end
function c21520083.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local mg=Duel.GetMatchingGroup(c21520083.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
local cancel=Duel.GetCurrentChain()==0
local sg=mg:SelectSubGroup(tp,c21520083.fgoal,cancel,1,nil,tp)
if sg then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
end
function c21520083.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local sg=e:GetLabelObject()
c:SetMaterial(sg)
Duel.Release(sg,REASON_COST+REASON_MATERIAL+REASON_FUSION)
end
--[[
function c21520083.fgoal(c,tp,sg)
return sg:GetCount()>1 and Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(c21520083.fcheck,1,nil,sg)
end
function c21520083.fselect(c,tp,mg,sg)
sg:AddCard(c)
local res=c21520083.fgoal(c,tp,sg) or mg:IsExists(c21520083.fselect,1,sg,tp,mg,sg)
sg:RemoveCard(c)
return res
end
function c21520083.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520083.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
local sg=Group.CreateGroup()
return mg:IsExists(c21520083.fselect,1,nil,tp,mg,sg)
end
function c21520083.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local mg=Duel.GetMatchingGroup(c21520083.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
local sg=Group.CreateGroup()
while true do
local cg=mg:Filter(c21520083.fselect,sg,tp,mg,sg)
if cg:GetCount()==0
or (c21520083.fgoal(c,tp,sg) and not Duel.SelectYesNo(tp,210)) then break end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local g=cg:Select(tp,1,1,nil)
sg:Merge(g)
end
local sg=e:GetLabelObject()
c:SetMaterial(sg)
Duel.Release(sg,REASON_COST+REASON_MATERIAL+REASON_FUSION)
end--]]
function c21520083.matcheck(e,c)
local ct=c:GetMaterialCount()
local ae=Effect.CreateEffect(c)
ae:SetType(EFFECT_TYPE_SINGLE)
ae:SetCode(EFFECT_SET_BASE_ATTACK)
ae:SetValue(ct*500)
ae:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(ae)
local de=ae:Clone()
de:SetCode(EFFECT_SET_BASE_DEFENSE)
c:RegisterEffect(de)
end
function c21520083.sdcon(e)
return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)~=SUMMON_TYPE_FUSION
end
function c21520083.rfliter(c)
return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_SPELL)
end
function c21520083.tdfliter(c)
return c:IsAbleToDeck() and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_LEAVE_CONFIRMED)
end
function c21520083.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(Duel.GetTurnPlayer(),LOCATION_DECK,0)>0 end
Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,0,2000)
Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,nil,0,0,500)
Duel.SetOperationInfo(0,CATEGORY_DEFCHANGE,nil,0,0,500)
end
function c21520083.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local player=Duel.GetTurnPlayer()
local g=Duel.GetFieldGroup(player,LOCATION_DECK,0)
if g:GetCount()>0 and c:IsRelateToEffect(e) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
local op=Duel.SelectOption(c:GetControler(),70,71,72)
Duel.Hint(HINT_OPSELECTED,tp,op+70)
local ct=0
local tc=Duel.GetDecktopGroup(player,1):GetFirst()
Duel.ConfirmDecktop(player,1)
Duel.MoveSequence(tc,1)
while ((op==0 and tc:IsType(TYPE_MONSTER)) or (op==1 and tc:IsType(TYPE_SPELL)) or (opt==2 and tc:IsType(TYPE_TRAP))) do
local ae=Effect.CreateEffect(c)
ae:SetType(EFFECT_TYPE_SINGLE)
ae:SetCode(EFFECT_UPDATE_ATTACK)
ae:SetValue(500)
ae:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(ae)
local de=ae:Clone()
de:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(de)
c:SetHint(CHINT_NUMBER,ct+1)
-- c:RegisterFlagEffect(2295831,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,66)
Duel.BreakEffect()
if not Duel.SelectYesNo(c:GetControler(),aux.Stringid(21520083,1)) then return end
--loop
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
op=Duel.SelectOption(c:GetControler(),70,71,72)
Duel.Hint(HINT_OPSELECTED,tp,op+70)
ct=ct+1
tc=Duel.GetDecktopGroup(player,1):GetFirst()
Duel.ConfirmDecktop(player,1)
Duel.MoveSequence(tc,1)
end
if not ((op==0 and tc:IsType(TYPE_MONSTER)) or (op==1 and tc:IsType(TYPE_SPELL)) or (opt==2 and tc:IsType(TYPE_TRAP))) then
Duel.Recover(1-tp,500*ct,REASON_EFFECT)
end
end
end
--时间观望者
function c21520083.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcFunFunRep(c,c21520083.fsfilter1,c21520083.fsfilter2,1,99,true)
--spsummon condition
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_SPSUMMON_CONDITION)
e0:SetValue(c21520083.splimit)
c:RegisterEffect(e0)
--special summon rule
local e00=Effect.CreateEffect(c)
e00:SetType(EFFECT_TYPE_FIELD)
e00:SetCode(EFFECT_SPSUMMON_PROC)
e00:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e00:SetRange(LOCATION_EXTRA)
e00:SetCondition(c21520083.sprcon)
e00:SetTarget(c21520083.sprtg)
e00:SetOperation(c21520083.sprop)
e00:SetValue(SUMMON_TYPE_FUSION)
c:RegisterEffect(e00)
--atk & def
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_MATERIAL_CHECK)
e1:SetValue(c21520083.matcheck)
c:RegisterEffect(e1)
--self destroy
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EFFECT_SELF_DESTROY)
e2:SetCondition(c21520083.sdcon)
c:RegisterEffect(e2)
--check deck and power up
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(21520083,0))
e3:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetHintTiming(TIMING_DAMAGE_STEP+TIMING_DAMAGE_CAL)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1)
e3:SetTarget(c21520083.tg)
e3:SetOperation(c21520083.operation)
c:RegisterEffect(e3)
end
function c21520083.fsfilter1(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeFusionMaterial() and c:IsType(TYPE_MONSTER) and c:IsLevelAbove(6) and c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_WIND)
end
function c21520083.fsfilter2(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeFusionMaterial() and c:IsType(TYPE_MONSTER)
end
function c21520083.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION or se:GetHandler()==e:GetHandler()
end
function c21520083.cfilter(c,tp)
return ((c:IsLevelAbove(6) and c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_SPELLCASTER)) or c:IsRace(RACE_SPELLCASTER))
and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsReleasable() and (c:IsControler(tp) or c:IsFaceup())
end
function c21520083.fcheck(c,sg)
return c:IsRace(RACE_SPELLCASTER) and c:IsLevelAbove(6) and c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_MONSTER)
and c:IsType(TYPE_MONSTER) and sg:FilterCount(c21520083.fcheck2,c)+1==sg:GetCount()
end
function c21520083.fcheck2(c)
return c:IsRace(RACE_SPELLCASTER) and c:IsType(TYPE_MONSTER)
end
function c21520083.fgoal(sg,tp)
return sg:GetCount()>1 and Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(c21520083.fcheck,1,nil,sg)
end
function c21520083.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520083.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
return mg:CheckSubGroup(c21520083.fgoal,1,nil,tp)
end
function c21520083.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local mg=Duel.GetMatchingGroup(c21520083.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
local cancel=Duel.GetCurrentChain()==0
local sg=mg:SelectSubGroup(tp,c21520083.fgoal,cancel,1,nil,tp)
if sg then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
end
function c21520083.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local sg=e:GetLabelObject()
c:SetMaterial(sg)
Duel.Release(sg,REASON_COST+REASON_MATERIAL+REASON_FUSION)
end
--[[
function c21520083.fgoal(c,tp,sg)
return sg:GetCount()>1 and Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(c21520083.fcheck,1,nil,sg)
end
function c21520083.fselect(c,tp,mg,sg)
sg:AddCard(c)
local res=c21520083.fgoal(c,tp,sg) or mg:IsExists(c21520083.fselect,1,sg,tp,mg,sg)
sg:RemoveCard(c)
return res
end
function c21520083.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520083.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
local sg=Group.CreateGroup()
return mg:IsExists(c21520083.fselect,1,nil,tp,mg,sg)
end
function c21520083.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local mg=Duel.GetMatchingGroup(c21520083.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
local sg=Group.CreateGroup()
while true do
local cg=mg:Filter(c21520083.fselect,sg,tp,mg,sg)
if cg:GetCount()==0
or (c21520083.fgoal(c,tp,sg) and not Duel.SelectYesNo(tp,210)) then break end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local g=cg:Select(tp,1,1,nil)
sg:Merge(g)
end
local sg=e:GetLabelObject()
c:SetMaterial(sg)
Duel.Release(sg,REASON_COST+REASON_MATERIAL+REASON_FUSION)
end--]]
function c21520083.matcheck(e,c)
local ct=c:GetMaterialCount()
local ae=Effect.CreateEffect(c)
ae:SetType(EFFECT_TYPE_SINGLE)
ae:SetCode(EFFECT_SET_BASE_ATTACK)
ae:SetValue(ct*500)
ae:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(ae)
local de=ae:Clone()
de:SetCode(EFFECT_SET_BASE_DEFENSE)
c:RegisterEffect(de)
end
function c21520083.sdcon(e)
return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)~=SUMMON_TYPE_FUSION
end
function c21520083.rfliter(c)
return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_SPELL)
end
function c21520083.tdfliter(c)
return c:IsAbleToDeck() and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_LEAVE_CONFIRMED)
end
function c21520083.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(Duel.GetTurnPlayer(),LOCATION_DECK,0)>0 end
Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,0,2000)
Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,nil,0,0,500)
Duel.SetOperationInfo(0,CATEGORY_DEFCHANGE,nil,0,0,500)
end
function c21520083.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local player=Duel.GetTurnPlayer()
local g=Duel.GetFieldGroup(player,LOCATION_DECK,0)
if g:GetCount()>0 and c:IsRelateToEffect(e) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
local op=Duel.SelectOption(c:GetControler(),70,71,72)
Duel.Hint(HINT_OPSELECTED,tp,op+70)
local ct=0
local tc=Duel.GetDecktopGroup(player,1):GetFirst()
Duel.ConfirmDecktop(player,1)
Duel.MoveSequence(tc,1)
while ((op==0 and tc:IsType(TYPE_MONSTER)) or (op==1 and tc:IsType(TYPE_SPELL)) or (opt==2 and tc:IsType(TYPE_TRAP))) do
local ae=Effect.CreateEffect(c)
ae:SetType(EFFECT_TYPE_SINGLE)
ae:SetCode(EFFECT_UPDATE_ATTACK)
ae:SetValue(500)
ae:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(ae)
local de=ae:Clone()
de:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(de)
c:SetHint(CHINT_NUMBER,ct+1)
-- c:RegisterFlagEffect(2295831,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,66)
Duel.BreakEffect()
if not Duel.SelectYesNo(c:GetControler(),aux.Stringid(21520083,1)) then return end
--loop
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
op=Duel.SelectOption(c:GetControler(),70,71,72)
Duel.Hint(HINT_OPSELECTED,tp,op+70)
ct=ct+1
tc=Duel.GetDecktopGroup(player,1):GetFirst()
Duel.ConfirmDecktop(player,1)
Duel.MoveSequence(tc,1)
end
if not ((op==0 and tc:IsType(TYPE_MONSTER)) or (op==1 and tc:IsType(TYPE_SPELL)) or (opt==2 and tc:IsType(TYPE_TRAP))) then
Duel.Recover(1-tp,500*ct,REASON_EFFECT)
end
end
end
expansions/script/c21520085.lua
View file @ e019bf2e
--玄翼战影
function c21520085.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),aux.NonTuner(Card.IsAttribute,ATTRIBUTE_DARK),1)
c:EnableReviveLimit()
--atk & def
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(21520085,0))
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCondition(c21520085.adcon)
e1:SetCost(c21520085.adcost)
e1:SetOperation(c21520085.adop)
c:RegisterEffect(e1)
--atk up
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetValue(c21520085.atkval)
c:RegisterEffect(e2)
--damage
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(21520085,1))
e3:SetCategory(CATEGORY_DAMAGE)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e3:SetCode(EVENT_DAMAGE_STEP_END)
e3:SetCondition(c21520085.damcon)
e3:SetTarget(c21520085.damtg)
e3:SetOperation(c21520085.damop)
c:RegisterEffect(e3)
--extra attack chance
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(21520085,2))
e4:SetCategory(CATEGORY_DAMAGE)
e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetHintTiming(TIMING_BATTLE_STEP_END)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetCondition(c21520085.exatkcon)
e4:SetCost(c21520085.exatkcost)
e4:SetOperation(c21520085.exatkop)
c:RegisterEffect(e4)
end
function c21520085.adcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO
end
function c21520085.adfilter(c)
return c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToRemoveAsCost()
end
function c21520085.adcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c21520085.adfilter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c21520085.adfilter,tp,LOCATION_GRAVE,0,1,1,nil)
g:KeepAlive()
e:SetLabelObject(g)
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function c21520085.adop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=e:GetLabelObject():GetFirst()
if c:IsRelateToEffect(e) then
local atk=tc:GetTextAttack()
local def=tc:GetTextDefense()
if atk<0 then atk=0 end
if def<0 then def=0 end
--atk & def
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_BASE_ATTACK)
e1:SetValue(atk)
e1:SetReset(RESET_EVENT+0x1fe0000)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_SET_BASE_DEFENSE)
e2:SetValue(def)
c:RegisterEffect(e2)
local g=Duel.GetMatchingGroup(c21520085.tdfilter,tp,LOCATION_GRAVE,0,nil,c:GetAttack())
if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(21520085,3)) then
Duel.BreakEffect()
Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local sg=g:Select(tp,1,c:GetMaterialCount(),nil)
Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)
end
end
end
function c21520085.tdfilter(c,atk)
return c:IsAbleToDeck() --and c:IsAttackBelow(atk) and c:IsType(TYPE_MONSTER) and not c:IsAttribute(ATTRIBUTE_DARK)
end
function c21520085.atkval(e,c)
return Duel.GetMatchingGroupCount(Card.IsAttribute,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil,ATTRIBUTE_DARK)*100
end
function c21520085.damcon(e,tp,eg,ep,ev,re,r,rp)
local gc=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)
local dgc=Duel.GetMatchingGroupCount(Card.IsAttribute,tp,LOCATION_GRAVE,0,nil,ATTRIBUTE_DARK)
return gc==dgc and gc>0
end
function c21520085.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
local dgc=Duel.GetMatchingGroupCount(Card.IsAttribute,tp,LOCATION_GRAVE,0,nil,ATTRIBUTE_DARK)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dgc*200)
end
function c21520085.damop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
local dgc=Duel.GetMatchingGroupCount(Card.IsAttribute,tp,LOCATION_GRAVE,0,nil,ATTRIBUTE_DARK)
Duel.Damage(1-tp,dgc*200,REASON_EFFECT)
end
end
function c21520085.exatkcon(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
local tp=Duel.GetTurnPlayer()
return e:GetHandler():GetAttackedCount()>0 and tp==e:GetHandler():GetControler() and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
end
function c21520085.exatkcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c21520085.adfilter,tp,LOCATION_GRAVE,0,1,nil)
and e:GetHandler():GetFlagEffect(21520085)==0 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c21520085.adfilter,tp,LOCATION_GRAVE,0,1,1,nil)
g:KeepAlive()
e:SetLabelObject(g)
Duel.Remove(g,POS_FACEUP,REASON_COST)
e:GetHandler():RegisterFlagEffect(21520085,RESET_CHAIN,0,1)
end
function c21520085.exatkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=e:GetLabelObject():GetFirst()
if c:IsRelateToEffect(e) then
local atk=tc:GetTextAttack()
if atk<0 then atk=0 end
--atk & def
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_BASE_ATTACK)
e1:SetValue(atk)
e1:SetReset(RESET_EVENT+0x1fe0000)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_EXTRA_ATTACK)
e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
e2:SetValue(c:GetAttackedCount())
c:RegisterEffect(e2)
end
end
--玄翼战影
function c21520085.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),aux.NonTuner(Card.IsAttribute,ATTRIBUTE_DARK),1)
c:EnableReviveLimit()
--atk & def
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(21520085,0))
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCondition(c21520085.adcon)
e1:SetCost(c21520085.adcost)
e1:SetOperation(c21520085.adop)
c:RegisterEffect(e1)
--atk up
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetValue(c21520085.atkval)
c:RegisterEffect(e2)
--damage
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(21520085,1))
e3:SetCategory(CATEGORY_DAMAGE)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e3:SetCode(EVENT_DAMAGE_STEP_END)
e3:SetCondition(c21520085.damcon)
e3:SetTarget(c21520085.damtg)
e3:SetOperation(c21520085.damop)
c:RegisterEffect(e3)
--extra attack chance
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(21520085,2))
e4:SetCategory(CATEGORY_DAMAGE)
e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetHintTiming(TIMING_BATTLE_STEP_END)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetCondition(c21520085.exatkcon)
e4:SetCost(c21520085.exatkcost)
e4:SetOperation(c21520085.exatkop)
c:RegisterEffect(e4)
end
function c21520085.adcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO
end
function c21520085.adfilter(c)
return c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToRemoveAsCost()
end
function c21520085.adcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c21520085.adfilter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c21520085.adfilter,tp,LOCATION_GRAVE,0,1,1,nil)
g:KeepAlive()
e:SetLabelObject(g)
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function c21520085.adop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=e:GetLabelObject():GetFirst()
if c:IsRelateToEffect(e) then
local atk=tc:GetTextAttack()
local def=tc:GetTextDefense()
if atk<0 then atk=0 end
if def<0 then def=0 end
--atk & def
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_BASE_ATTACK)
e1:SetValue(atk)
e1:SetReset(RESET_EVENT+0x1fe0000)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_SET_BASE_DEFENSE)
e2:SetValue(def)
c:RegisterEffect(e2)
local g=Duel.GetMatchingGroup(c21520085.tdfilter,tp,LOCATION_GRAVE,0,nil,c:GetAttack())
if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(21520085,3)) then
Duel.BreakEffect()
Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local sg=g:Select(tp,1,c:GetMaterialCount(),nil)
Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)
end
end
end
function c21520085.tdfilter(c,atk)
return c:IsAbleToDeck() --and c:IsAttackBelow(atk) and c:IsType(TYPE_MONSTER) and not c:IsAttribute(ATTRIBUTE_DARK)
end
function c21520085.atkval(e,c)
return Duel.GetMatchingGroupCount(Card.IsAttribute,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil,ATTRIBUTE_DARK)*100
end
function c21520085.damcon(e,tp,eg,ep,ev,re,r,rp)
local gc=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)
local dgc=Duel.GetMatchingGroupCount(Card.IsAttribute,tp,LOCATION_GRAVE,0,nil,ATTRIBUTE_DARK)
return gc==dgc and gc>0
end
function c21520085.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
local dgc=Duel.GetMatchingGroupCount(Card.IsAttribute,tp,LOCATION_GRAVE,0,nil,ATTRIBUTE_DARK)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dgc*200)
end
function c21520085.damop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
local dgc=Duel.GetMatchingGroupCount(Card.IsAttribute,tp,LOCATION_GRAVE,0,nil,ATTRIBUTE_DARK)
Duel.Damage(1-tp,dgc*200,REASON_EFFECT)
end
end
function c21520085.exatkcon(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
local tp=Duel.GetTurnPlayer()
return e:GetHandler():GetAttackedCount()>0 and tp==e:GetHandler():GetControler() and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
end
function c21520085.exatkcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c21520085.adfilter,tp,LOCATION_GRAVE,0,1,nil)
and e:GetHandler():GetFlagEffect(21520085)==0 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c21520085.adfilter,tp,LOCATION_GRAVE,0,1,1,nil)
g:KeepAlive()
e:SetLabelObject(g)
Duel.Remove(g,POS_FACEUP,REASON_COST)
e:GetHandler():RegisterFlagEffect(21520085,RESET_CHAIN,0,1)
end
function c21520085.exatkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=e:GetLabelObject():GetFirst()
if c:IsRelateToEffect(e) then
local atk=tc:GetTextAttack()
if atk<0 then atk=0 end
--atk & def
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_BASE_ATTACK)
e1:SetValue(atk)
e1:SetReset(RESET_EVENT+0x1fe0000)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_EXTRA_ATTACK)
e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
e2:SetValue(c:GetAttackedCount())
c:RegisterEffect(e2)
end
end
expansions/script/c21520087.lua
View file @ e019bf2e
--灵动君王
function c21520087.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcFunRep(c,c21520087.fsfilter,2,true)
--spsummon condition
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_SPSUMMON_PROC)
e0:SetRange(LOCATION_EXTRA)
e0:SetCondition(c21520087.sprcon)
e0:SetTarget(c21520087.sprtg)
e0:SetOperation(c21520087.sprop)
c:RegisterEffect(e0)
local e01=Effect.CreateEffect(c)
e01:SetType(EFFECT_TYPE_SINGLE)
e01:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e01:SetCode(EFFECT_SPSUMMON_CONDITION)
e01:SetValue(c21520087.splimit)
c:RegisterEffect(e01)
--indes
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e1:SetCondition(c21520087.indescon)
e1:SetValue(1)
c:RegisterEffect(e1)
local e1_2=e1:Clone()
e1_2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
c:RegisterEffect(e1_2)
--water
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(21520087,0))
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetRange(LOCATION_MZONE)
e2:SetLabel(ATTRIBUTE_WATER)
e2:SetCode(EVENT_BATTLE_DAMAGE)
e2:SetCondition(c21520087.con1)
e2:SetCost(c21520087.cost)
e2:SetTarget(c21520087.tg1)
e2:SetOperation(c21520087.op1)
c:RegisterEffect(e2)
--fire
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(21520087,1))
e3:SetCategory(CATEGORY_REMOVE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetLabel(ATTRIBUTE_FIRE)
e3:SetCountLimit(1)
e3:SetCondition(c21520087.con2)
e3:SetCost(c21520087.cost)
e3:SetTarget(c21520087.tg2)
e3:SetOperation(c21520087.op2)
c:RegisterEffect(e3)
--dark
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(21520087,2))
e4:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetRange(LOCATION_MZONE)
e4:SetLabel(ATTRIBUTE_DARK)
e4:SetCountLimit(1)
e4:SetCondition(c21520087.con2)
e4:SetCost(c21520087.cost)
e4:SetTarget(c21520087.tg3)
e4:SetOperation(c21520087.op3)
c:RegisterEffect(e4)
--light
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(21520087,3))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetRange(LOCATION_MZONE)
e5:SetLabel(ATTRIBUTE_LIGHT)
e5:SetCountLimit(1)
e5:SetCondition(c21520087.con2)
e5:SetCost(c21520087.cost)
e5:SetTarget(c21520087.tg4)
e5:SetOperation(c21520087.op4)
c:RegisterEffect(e5)
end
function c21520087.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
end
function c21520087.fsfilter(c)
return (c:GetBaseAttack()>=2400 and c:GetBaseDefense()>=1000) and c:IsCanBeFusionMaterial()
end
function c21520087.spfilter(c)
return c21520087.fsfilter(c) and c:IsAbleToDeckOrExtraAsCost()
end
function c21520087.fgoal(sg,tp)
return Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(aux.TRUE,2,nil)
end
function c21520087.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520087.spfilter,tp,LOCATION_MZONE,0,nil)
return mg:CheckSubGroup(c21520087.fgoal,1,nil,tp)
end
function c21520087.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local mg=Duel.GetMatchingGroup(c21520087.spfilter,tp,LOCATION_MZONE,0,nil)
local cancel=Duel.GetCurrentChain()==0
local sg=mg:SelectSubGroup(tp,c21520087.fgoal,cancel,1,2,tp)
if sg then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
end
function c21520087.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local sg=e:GetLabelObject()
local cg=sg:Filter(Card.IsFacedown,nil)
if cg:GetCount()>0 then
Duel.ConfirmCards(1-tp,cg)
end
Duel.SendtoDeck(sg,nil,2,REASON_COST)
end
function c21520087.indescon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsStatus(STATUS_SPSUMMON_TURN)
end
function c21520087.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
end
function c21520087.effectfilter(c,attr)
return c:IsFaceup() and c:IsAttribute(attr)
end
function c21520087.con1(e,tp,eg,ep,ev,re,r,rp)
local attr=e:GetLabel()
return Duel.IsExistingMatchingCard(c21520087.effectfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,attr)
and e:GetHandler():GetAttackedCount()>0 and ep~=tp
end
function c21520087.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
end
function c21520087.op1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 then
local g=Duel.GetDecktopGroup(tp,1)
local tc=g:GetFirst()
Duel.DisableShuffleCheck()
Duel.ConfirmDecktop(tp,1)
if tc:IsType(TYPE_MONSTER) then
Duel.ShuffleDeck(tp)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EXTRA_ATTACK)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
e1:SetValue(c:GetAttackedCount())
c:RegisterEffect(e1)
end
end
end
function c21520087.con2(e,tp,eg,ep,ev,re,r,rp)
local attr=e:GetLabel()
return Duel.IsExistingMatchingCard(c21520087.effectfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,attr)
end
function c21520087.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsAbleToRemove() and chkc:IsOnField() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,LOCATION_ONFIELD)
end
function c21520087.op2(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
if Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)>0 then
local g=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_DECK,LOCATION_DECK,nil,tc:GetCode())
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
Duel.ConfirmCards(tp,Duel.GetFieldGroup(1-tp,LOCATION_DECK,0))
Duel.ConfirmCards(1-tp,Duel.GetFieldGroup(tp,LOCATION_DECK,0))
Duel.ShuffleDeck(tp)
Duel.ShuffleDeck(1-tp)
end
end
end
function c21520087.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,1-tp,LOCATION_MZONE)
end
function c21520087.op3(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetFieldGroup(tp,0,LOCATION_MZONE)
if c:IsRelateToEffect(e) and g:GetCount()>0 then
if Duel.Destroy(g,REASON_EFFECT)>0 then
local og=Duel.GetOperatedGroup()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetReset(RESET_EVENT+0x1fe0000)
e1:SetValue(1000*og:GetCount())
c:RegisterEffect(e1)
end
end
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_PHASE+PHASE_END)
e2:SetCountLimit(1)
e2:SetReset(RESET_PHASE+PHASE_END)
e2:SetOperation(c21520087.rmop)
Duel.RegisterEffect(e2,p)
end
function c21520087.rmop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,e:GetOwnerPlayer(),LOCATION_HAND+LOCATION_ONFIELD,0,e:GetHandler())
Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
end
function c21520087.sprfilter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsFaceup()
end
function c21520087.tg4(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return c21520087.sprfilter(chkc,e,tp) and chkc:IsLocation(LOCATION_REMOVED) end
if chk==0 then return Duel.IsExistingTarget(c21520087.sprfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c21520087.sprfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_REMOVED)
end
function c21520087.op4(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then
local val=math.floor(tc:GetAttack()/1000)
if val>0 then
Duel.BreakEffect()
local g=Duel.GetDecktopGroup(1-tp,val)
Duel.DisableShuffleCheck()
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end
end
end
end
--灵动君王
function c21520087.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcFunRep(c,c21520087.fsfilter,2,true)
--spsummon condition
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_SPSUMMON_PROC)
e0:SetRange(LOCATION_EXTRA)
e0:SetCondition(c21520087.sprcon)
e0:SetTarget(c21520087.sprtg)
e0:SetOperation(c21520087.sprop)
c:RegisterEffect(e0)
local e01=Effect.CreateEffect(c)
e01:SetType(EFFECT_TYPE_SINGLE)
e01:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e01:SetCode(EFFECT_SPSUMMON_CONDITION)
e01:SetValue(c21520087.splimit)
c:RegisterEffect(e01)
--indes
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e1:SetCondition(c21520087.indescon)
e1:SetValue(1)
c:RegisterEffect(e1)
local e1_2=e1:Clone()
e1_2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
c:RegisterEffect(e1_2)
--water
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(21520087,0))
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetRange(LOCATION_MZONE)
e2:SetLabel(ATTRIBUTE_WATER)
e2:SetCode(EVENT_BATTLE_DAMAGE)
e2:SetCondition(c21520087.con1)
e2:SetCost(c21520087.cost)
e2:SetTarget(c21520087.tg1)
e2:SetOperation(c21520087.op1)
c:RegisterEffect(e2)
--fire
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(21520087,1))
e3:SetCategory(CATEGORY_REMOVE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetLabel(ATTRIBUTE_FIRE)
e3:SetCountLimit(1)
e3:SetCondition(c21520087.con2)
e3:SetCost(c21520087.cost)
e3:SetTarget(c21520087.tg2)
e3:SetOperation(c21520087.op2)
c:RegisterEffect(e3)
--dark
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(21520087,2))
e4:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetRange(LOCATION_MZONE)
e4:SetLabel(ATTRIBUTE_DARK)
e4:SetCountLimit(1)
e4:SetCondition(c21520087.con2)
e4:SetCost(c21520087.cost)
e4:SetTarget(c21520087.tg3)
e4:SetOperation(c21520087.op3)
c:RegisterEffect(e4)
--light
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(21520087,3))
e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetRange(LOCATION_MZONE)
e5:SetLabel(ATTRIBUTE_LIGHT)
e5:SetCountLimit(1)
e5:SetCondition(c21520087.con2)
e5:SetCost(c21520087.cost)
e5:SetTarget(c21520087.tg4)
e5:SetOperation(c21520087.op4)
c:RegisterEffect(e5)
end
function c21520087.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
end
function c21520087.fsfilter(c)
return (c:GetBaseAttack()>=2400 and c:GetBaseDefense()>=1000) and c:IsCanBeFusionMaterial()
end
function c21520087.spfilter(c)
return c21520087.fsfilter(c) and c:IsAbleToDeckOrExtraAsCost()
end
function c21520087.fgoal(sg,tp)
return Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(aux.TRUE,2,nil)
end
function c21520087.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520087.spfilter,tp,LOCATION_MZONE,0,nil)
return mg:CheckSubGroup(c21520087.fgoal,1,nil,tp)
end
function c21520087.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local mg=Duel.GetMatchingGroup(c21520087.spfilter,tp,LOCATION_MZONE,0,nil)
local cancel=Duel.GetCurrentChain()==0
local sg=mg:SelectSubGroup(tp,c21520087.fgoal,cancel,1,2,tp)
if sg then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
end
function c21520087.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local sg=e:GetLabelObject()
local cg=sg:Filter(Card.IsFacedown,nil)
if cg:GetCount()>0 then
Duel.ConfirmCards(1-tp,cg)
end
Duel.SendtoDeck(sg,nil,2,REASON_COST)
end
function c21520087.indescon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsStatus(STATUS_SPSUMMON_TURN)
end
function c21520087.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
end
function c21520087.effectfilter(c,attr)
return c:IsFaceup() and c:IsAttribute(attr)
end
function c21520087.con1(e,tp,eg,ep,ev,re,r,rp)
local attr=e:GetLabel()
return Duel.IsExistingMatchingCard(c21520087.effectfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,attr)
and e:GetHandler():GetAttackedCount()>0 and ep~=tp
end
function c21520087.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
end
function c21520087.op1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 then
local g=Duel.GetDecktopGroup(tp,1)
local tc=g:GetFirst()
Duel.DisableShuffleCheck()
Duel.ConfirmDecktop(tp,1)
if tc:IsType(TYPE_MONSTER) then
Duel.ShuffleDeck(tp)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EXTRA_ATTACK)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
e1:SetValue(c:GetAttackedCount())
c:RegisterEffect(e1)
end
end
end
function c21520087.con2(e,tp,eg,ep,ev,re,r,rp)
local attr=e:GetLabel()
return Duel.IsExistingMatchingCard(c21520087.effectfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,attr)
end
function c21520087.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsAbleToRemove() and chkc:IsOnField() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,LOCATION_ONFIELD)
end
function c21520087.op2(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
if Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)>0 then
local g=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_DECK,LOCATION_DECK,nil,tc:GetCode())
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
Duel.ConfirmCards(tp,Duel.GetFieldGroup(1-tp,LOCATION_DECK,0))
Duel.ConfirmCards(1-tp,Duel.GetFieldGroup(tp,LOCATION_DECK,0))
Duel.ShuffleDeck(tp)
Duel.ShuffleDeck(1-tp)
end
end
end
function c21520087.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,1-tp,LOCATION_MZONE)
end
function c21520087.op3(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetFieldGroup(tp,0,LOCATION_MZONE)
if c:IsRelateToEffect(e) and g:GetCount()>0 then
if Duel.Destroy(g,REASON_EFFECT)>0 then
local og=Duel.GetOperatedGroup()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetReset(RESET_EVENT+0x1fe0000)
e1:SetValue(1000*og:GetCount())
c:RegisterEffect(e1)
end
end
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_PHASE+PHASE_END)
e2:SetCountLimit(1)
e2:SetReset(RESET_PHASE+PHASE_END)
e2:SetOperation(c21520087.rmop)
Duel.RegisterEffect(e2,p)
end
function c21520087.rmop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,e:GetOwnerPlayer(),LOCATION_HAND+LOCATION_ONFIELD,0,e:GetHandler())
Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
end
function c21520087.sprfilter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsFaceup()
end
function c21520087.tg4(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return c21520087.sprfilter(chkc,e,tp) and chkc:IsLocation(LOCATION_REMOVED) end
if chk==0 then return Duel.IsExistingTarget(c21520087.sprfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c21520087.sprfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_REMOVED)
end
function c21520087.op4(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then
local val=math.floor(tc:GetAttack()/1000)
if val>0 then
Duel.BreakEffect()
local g=Duel.GetDecktopGroup(1-tp,val)
Duel.DisableShuffleCheck()
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end
end
end
end
expansions/script/c21520088.lua
View file @ e019bf2e
--霸业皇者
function c21520088.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcFunRep(c,c21520088.fsfilter,2,true)
--spsummon condition
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_SPSUMMON_PROC)
e0:SetRange(LOCATION_EXTRA)
e0:SetCondition(c21520088.sprcon)
e0:SetTarget(c21520088.sprtg)
e0:SetOperation(c21520088.sprop)
c:RegisterEffect(e0)
local e01=Effect.CreateEffect(c)
e01:SetType(EFFECT_TYPE_SINGLE)
e01:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e01:SetCode(EFFECT_SPSUMMON_CONDITION)
e01:SetValue(c21520088.splimit)
c:RegisterEffect(e01)
--indes
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e1:SetCondition(c21520088.indescon)
e1:SetValue(1)
c:RegisterEffect(e1)
local e1_2=e1:Clone()
e1_2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
c:RegisterEffect(e1_2)
--disable
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EVENT_FREE_CHAIN)
-- e2:SetCountLimit(3)
e2:SetCost(c21520088.cost)
e2:SetTarget(c21520088.tg)
e2:SetOperation(c21520088.op)
c:RegisterEffect(e2)
end
function c21520088.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
end
function c21520088.fsfilter(c)
return (c:GetBaseAttack()>=2400 and c:GetBaseDefense()>=1000) and c:IsCanBeFusionMaterial()
end
function c21520088.spfilter(c)
return c21520088.fsfilter(c) and c:IsAbleToDeckOrExtraAsCost()
end
function c21520088.fgoal(sg,tp)
return Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(aux.TRUE,2,nil)
end
function c21520088.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520088.spfilter,tp,LOCATION_MZONE,0,nil)
return mg:CheckSubGroup(c21520088.fgoal,1,nil,tp)
end
function c21520088.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local mg=Duel.GetMatchingGroup(c21520088.spfilter,tp,LOCATION_MZONE,0,nil)
local cancel=Duel.GetCurrentChain()==0
local sg=mg:SelectSubGroup(tp,c21520088.fgoal,cancel,1,2,tp)
if sg then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
end
function c21520088.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local sg=e:GetLabelObject()
local cg=sg:Filter(Card.IsFacedown,nil)
if cg:GetCount()>0 then
Duel.ConfirmCards(1-tp,cg)
end
Duel.SendtoDeck(sg,nil,2,REASON_COST)
end
--[[nction c21520088.fselect(c,tp,mg,sg)
sg:AddCard(c)
local res=false
if sg:GetCount()<2 then
res=mg:IsExists(c21520088.fselect,1,sg,tp,mg,sg)
else
res=Duel.GetLocationCountFromEx(tp,tp,sg)>0
end
sg:RemoveCard(c)
return res
end
function c21520088.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520088.spfilter,tp,LOCATION_MZONE,0,nil)
local sg=Group.CreateGroup()
return mg:IsExists(c21520088.fselect,1,nil,tp,mg,sg)
end
function c21520088.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local mg=Duel.GetMatchingGroup(c21520088.spfilter,tp,LOCATION_MZONE,0,nil)
local sg=Group.CreateGroup()
while sg:GetCount()<2 do
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=mg:FilterSelect(tp,c21520088.fselect,1,1,sg,tp,mg,sg)
sg:Merge(g)
end
local cg=sg:Filter(Card.IsFacedown,nil)
if cg:GetCount()>0 then
Duel.ConfirmCards(1-tp,cg)
end
Duel.SendtoDeck(sg,nil,2,REASON_COST)
end--]]
function c21520088.indescon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsStatus(STATUS_SPSUMMON_TURN)
end
function c21520088.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,nil) end
Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,1,nil)
Duel.Remove(g,POS_FACEUP,REASON_COST)
local tc=g:GetFirst()
e:GetHandler():RegisterFlagEffect(21520088,RESET_CHAIN,0,1)
tc:RegisterFlagEffect(21520088,RESET_CHAIN,0,1,e:GetHandler():GetFlagEffect(21520088))
if tc:IsType(TYPE_MONSTER) then
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520088,0))
if tc:IsAttribute(ATTRIBUTE_EARTH) then
Duel.Hint(HINT_OPSELECTED,1-tp,1010)
elseif tc:IsAttribute(ATTRIBUTE_WATER) then
Duel.Hint(HINT_OPSELECTED,1-tp,1011)
elseif tc:IsAttribute(ATTRIBUTE_FIRE) then
Duel.Hint(HINT_OPSELECTED,1-tp,1012)
elseif tc:IsAttribute(ATTRIBUTE_WIND) then
Duel.Hint(HINT_OPSELECTED,1-tp,1013)
elseif tc:IsAttribute(ATTRIBUTE_LIGHT) then
Duel.Hint(HINT_OPSELECTED,1-tp,1014)
elseif tc:IsAttribute(ATTRIBUTE_DARK) then
Duel.Hint(HINT_OPSELECTED,1-tp,1015)
elseif tc:IsAttribute(ATTRIBUTE_DEVINE) then
Duel.Hint(HINT_OPSELECTED,1-tp,1016)
end
elseif tc:IsType(TYPE_SPELL) then
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520088,1))
elseif tc:IsType(TYPE_TRAP) then
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520088,2))
end
end
function c21520088.disfilter(c,ct)
return c:GetFlagEffectLabel(21520088)==ct
end
function c21520088.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
end
function c21520088.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local ct=c:GetFlagEffect(21520088)
local tc=Duel.GetMatchingGroup(c21520088.disfilter,tp,0xff,0xff,nil,ct):GetFirst()
c:ResetFlagEffect(21520088)
ct=ct-1
while ct>0 do
c:RegisterFlagEffect(21520088,RESET_CHAIN,0,1)
ct=ct-1
end
if c:IsRelateToEffect(e) then
if tc:IsType(TYPE_MONSTER) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE)
-- e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
e1:SetTargetRange(0xff,0xff)
e1:SetLabel(tc:GetAttribute())
e1:SetTarget(c21520088.distgm)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetLabel(tc:GetAttribute())
e2:SetOperation(c21520088.disopm)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
elseif tc:IsType(TYPE_SPELL) then
--disable
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE)
e1:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
e1:SetLabel(TYPE_SPELL)
e1:SetTarget(c21520088.distgst)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
--disable effect
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetLabel(TYPE_SPELL)
e2:SetOperation(c21520088.disoperation)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
--disable trap monster
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
e3:SetLabel(TYPE_SPELL)
e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e3:SetTarget(c21520088.distgst)
e3:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e3,tp)
elseif tc:IsType(TYPE_TRAP) then
--disable
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE)
e1:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
e1:SetLabel(TYPE_TRAP)
e1:SetTarget(c21520088.distgst)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
--disable effect
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetLabel(TYPE_TRAP)
e2:SetOperation(c21520088.disoperation)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
--disable trap monster
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
e3:SetLabel(TYPE_TRAP)
e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e3:SetTarget(c21520088.distgst)
e3:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e3,tp)
end
end
end
function c21520088.distgm(e,c)
return c~=e:GetHandler() and c:IsAttribute(e:GetLabel()) and (c:IsType(TYPE_EFFECT) or bit.band(c:GetOriginalType(),TYPE_EFFECT)==TYPE_EFFECT)
and not c:IsImmuneToEffect(e)
end
function c21520088.distgst(e,c)
return c:IsType(e:GetLabel()) and not c:IsImmuneToEffect(e)
end
function c21520088.disopm(e,tp,eg,ep,ev,re,r,rp)
if re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsAttribute(e:GetLabel()) and re:GetHandler()~=e:GetHandler() and not re:GetHandler():IsImmuneToEffect(e) then
Duel.NegateEffect(ev)
end
end
function c21520088.disoperation(e,tp,eg,ep,ev,re,r,rp)
local tl=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
if tl==LOCATION_SZONE and re:IsActiveType(TYPE_TRAP) then
Duel.NegateEffect(ev)
end
end
--霸业皇者
function c21520088.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcFunRep(c,c21520088.fsfilter,2,true)
--spsummon condition
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_SPSUMMON_PROC)
e0:SetRange(LOCATION_EXTRA)
e0:SetCondition(c21520088.sprcon)
e0:SetTarget(c21520088.sprtg)
e0:SetOperation(c21520088.sprop)
c:RegisterEffect(e0)
local e01=Effect.CreateEffect(c)
e01:SetType(EFFECT_TYPE_SINGLE)
e01:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e01:SetCode(EFFECT_SPSUMMON_CONDITION)
e01:SetValue(c21520088.splimit)
c:RegisterEffect(e01)
--indes
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e1:SetCondition(c21520088.indescon)
e1:SetValue(1)
c:RegisterEffect(e1)
local e1_2=e1:Clone()
e1_2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
c:RegisterEffect(e1_2)
--disable
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EVENT_FREE_CHAIN)
-- e2:SetCountLimit(3)
e2:SetCost(c21520088.cost)
e2:SetTarget(c21520088.tg)
e2:SetOperation(c21520088.op)
c:RegisterEffect(e2)
end
function c21520088.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
end
function c21520088.fsfilter(c)
return (c:GetBaseAttack()>=2400 and c:GetBaseDefense()>=1000) and c:IsCanBeFusionMaterial()
end
function c21520088.spfilter(c)
return c21520088.fsfilter(c) and c:IsAbleToDeckOrExtraAsCost()
end
function c21520088.fgoal(sg,tp)
return Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(aux.TRUE,2,nil)
end
function c21520088.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520088.spfilter,tp,LOCATION_MZONE,0,nil)
return mg:CheckSubGroup(c21520088.fgoal,1,nil,tp)
end
function c21520088.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local mg=Duel.GetMatchingGroup(c21520088.spfilter,tp,LOCATION_MZONE,0,nil)
local cancel=Duel.GetCurrentChain()==0
local sg=mg:SelectSubGroup(tp,c21520088.fgoal,cancel,1,2,tp)
if sg then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
end
function c21520088.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local sg=e:GetLabelObject()
local cg=sg:Filter(Card.IsFacedown,nil)
if cg:GetCount()>0 then
Duel.ConfirmCards(1-tp,cg)
end
Duel.SendtoDeck(sg,nil,2,REASON_COST)
end
--[[nction c21520088.fselect(c,tp,mg,sg)
sg:AddCard(c)
local res=false
if sg:GetCount()<2 then
res=mg:IsExists(c21520088.fselect,1,sg,tp,mg,sg)
else
res=Duel.GetLocationCountFromEx(tp,tp,sg)>0
end
sg:RemoveCard(c)
return res
end
function c21520088.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520088.spfilter,tp,LOCATION_MZONE,0,nil)
local sg=Group.CreateGroup()
return mg:IsExists(c21520088.fselect,1,nil,tp,mg,sg)
end
function c21520088.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local mg=Duel.GetMatchingGroup(c21520088.spfilter,tp,LOCATION_MZONE,0,nil)
local sg=Group.CreateGroup()
while sg:GetCount()<2 do
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=mg:FilterSelect(tp,c21520088.fselect,1,1,sg,tp,mg,sg)
sg:Merge(g)
end
local cg=sg:Filter(Card.IsFacedown,nil)
if cg:GetCount()>0 then
Duel.ConfirmCards(1-tp,cg)
end
Duel.SendtoDeck(sg,nil,2,REASON_COST)
end--]]
function c21520088.indescon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsStatus(STATUS_SPSUMMON_TURN)
end
function c21520088.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,nil) end
Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,1,nil)
Duel.Remove(g,POS_FACEUP,REASON_COST)
local tc=g:GetFirst()
e:GetHandler():RegisterFlagEffect(21520088,RESET_CHAIN,0,1)
tc:RegisterFlagEffect(21520088,RESET_CHAIN,0,1,e:GetHandler():GetFlagEffect(21520088))
if tc:IsType(TYPE_MONSTER) then
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520088,0))
if tc:IsAttribute(ATTRIBUTE_EARTH) then
Duel.Hint(HINT_OPSELECTED,1-tp,1010)
elseif tc:IsAttribute(ATTRIBUTE_WATER) then
Duel.Hint(HINT_OPSELECTED,1-tp,1011)
elseif tc:IsAttribute(ATTRIBUTE_FIRE) then
Duel.Hint(HINT_OPSELECTED,1-tp,1012)
elseif tc:IsAttribute(ATTRIBUTE_WIND) then
Duel.Hint(HINT_OPSELECTED,1-tp,1013)
elseif tc:IsAttribute(ATTRIBUTE_LIGHT) then
Duel.Hint(HINT_OPSELECTED,1-tp,1014)
elseif tc:IsAttribute(ATTRIBUTE_DARK) then
Duel.Hint(HINT_OPSELECTED,1-tp,1015)
elseif tc:IsAttribute(ATTRIBUTE_DEVINE) then
Duel.Hint(HINT_OPSELECTED,1-tp,1016)
end
elseif tc:IsType(TYPE_SPELL) then
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520088,1))
elseif tc:IsType(TYPE_TRAP) then
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520088,2))
end
end
function c21520088.disfilter(c,ct)
return c:GetFlagEffectLabel(21520088)==ct
end
function c21520088.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
end
function c21520088.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local ct=c:GetFlagEffect(21520088)
local tc=Duel.GetMatchingGroup(c21520088.disfilter,tp,0xff,0xff,nil,ct):GetFirst()
c:ResetFlagEffect(21520088)
ct=ct-1
while ct>0 do
c:RegisterFlagEffect(21520088,RESET_CHAIN,0,1)
ct=ct-1
end
if c:IsRelateToEffect(e) then
if tc:IsType(TYPE_MONSTER) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE)
-- e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
e1:SetTargetRange(0xff,0xff)
e1:SetLabel(tc:GetAttribute())
e1:SetTarget(c21520088.distgm)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetLabel(tc:GetAttribute())
e2:SetOperation(c21520088.disopm)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
elseif tc:IsType(TYPE_SPELL) then
--disable
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE)
e1:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
e1:SetLabel(TYPE_SPELL)
e1:SetTarget(c21520088.distgst)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
--disable effect
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetLabel(TYPE_SPELL)
e2:SetOperation(c21520088.disoperation)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
--disable trap monster
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
e3:SetLabel(TYPE_SPELL)
e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e3:SetTarget(c21520088.distgst)
e3:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e3,tp)
elseif tc:IsType(TYPE_TRAP) then
--disable
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE)
e1:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
e1:SetLabel(TYPE_TRAP)
e1:SetTarget(c21520088.distgst)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
--disable effect
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetLabel(TYPE_TRAP)
e2:SetOperation(c21520088.disoperation)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
--disable trap monster
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
e3:SetLabel(TYPE_TRAP)
e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e3:SetTarget(c21520088.distgst)
e3:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e3,tp)
end
end
end
function c21520088.distgm(e,c)
return c~=e:GetHandler() and c:IsAttribute(e:GetLabel()) and (c:IsType(TYPE_EFFECT) or bit.band(c:GetOriginalType(),TYPE_EFFECT)==TYPE_EFFECT)
and not c:IsImmuneToEffect(e)
end
function c21520088.distgst(e,c)
return c:IsType(e:GetLabel()) and not c:IsImmuneToEffect(e)
end
function c21520088.disopm(e,tp,eg,ep,ev,re,r,rp)
if re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsAttribute(e:GetLabel()) and re:GetHandler()~=e:GetHandler() and not re:GetHandler():IsImmuneToEffect(e) then
Duel.NegateEffect(ev)
end
end
function c21520088.disoperation(e,tp,eg,ep,ev,re,r,rp)
local tl=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
if tl==LOCATION_SZONE and re:IsActiveType(TYPE_TRAP) then
Duel.NegateEffect(ev)
end
end
expansions/script/c21520183.lua
View file @ e019bf2e
--曲形魔-克莱因
function c21520183.initial_effect(c)
c:EnableReviveLimit()
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_FIEND),10,3,nil,nil,99)
--spsummon 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)
e1:SetValue(c21520183.splimit)
c:RegisterEffect(e1)
--special summon rule
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
e2:SetRange(LOCATION_GRAVE+LOCATION_EXTRA)
e2:SetCondition(c21520183.spcon)
e2:SetTarget(c21520183.sptg)
e2:SetOperation(c21520183.spop)
c:RegisterEffect(e2)
--draw
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_DRAW)
e3:SetDescription(aux.Stringid(21520183,0))
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetRange(LOCATION_MZONE)
e3:SetCost(c21520183.drcost)
e3:SetTarget(c21520183.drtg)
e3:SetOperation(c21520183.drop)
c:RegisterEffect(e3)
--atk & def
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EFFECT_SET_ATTACK)
e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e4:SetRange(LOCATION_MZONE)
e4:SetValue(c21520183.adval)
c:RegisterEffect(e4)
local e5=e4:Clone()
e5:SetCode(EFFECT_SET_DEFENSE)
c:RegisterEffect(e5)
--imune
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_SINGLE)
e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e6:SetRange(LOCATION_MZONE)
e6:SetCode(EFFECT_IMMUNE_EFFECT)
e6:SetCondition(c21520183.econ)
e6:SetValue(c21520183.efilter)
c:RegisterEffect(e6)
--material
local e7=Effect.CreateEffect(c)
e7:SetDescription(aux.Stringid(21520183,1))
e7:SetType(EFFECT_TYPE_IGNITION)
e7:SetRange(LOCATION_MZONE)
e7:SetCountLimit(1,21520183)
e7:SetCost(c21520183.cost)
e7:SetTarget(c21520183.target)
e7:SetOperation(c21520183.operation)
c:RegisterEffect(e7)
--destroy replace
local e8=Effect.CreateEffect(c)
e8:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
e8:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e8:SetCode(EFFECT_DESTROY_REPLACE)
e8:SetRange(LOCATION_MZONE)
e8:SetTarget(c21520183.reptg)
c:RegisterEffect(e8)
end
function c21520183.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ or se:GetHandler()==e:GetHandler()
end
function c21520183.spfilter(c)
return (c:IsSetCard(0x490) or c:IsRace(RACE_FIEND)) and c:IsAbleToRemoveAsCost() and c:IsType(TYPE_MONSTER)
end
function c21520183.spcheck(c,sg)
return c:IsSetCard(0x490) and c:IsType(TYPE_MONSTER) and sg:FilterCount(c21520183.spcheck2,c)+1==sg:GetCount()
and sg:FilterCount(Card.IsSetCard,c,0x490)>=2
end
function c21520183.spcheck2(c)
return c:IsRace(RACE_FIEND) and c:IsType(TYPE_MONSTER)
end
function c21520183.spgoal(sg,tp,loc)
if loc==LOCATION_EXTRA then
return Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(c21520183.spcheck,1,nil,sg)
else
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and sg:IsExists(c21520183.spcheck,1,nil,sg)
end
end
function c21520183.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520183.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,e:GetHandler())
return mg:CheckSubGroup(c21520183.spgoal,1,nil,tp)
end
function c21520183.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local mg=Duel.GetMatchingGroup(c21520183.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,e:GetHandler())
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local cancel=Duel.GetCurrentChain()==0
local sg=mg:SelectSubGroup(tp,c21520183.spgoal,cancel,1,nil,tp,c:GetLocation())
if sg then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
end
function c21520183.spop(e,tp,eg,ep,ev,re,r,rp,c)
local sg=e:GetLabelObject()
c:SetMaterial(sg)
Duel.Remove(sg,POS_FACEUP,REASON_COST)
end
--[[nction c21520183.spcheck(c,sg)
return c:IsSetCard(0x490) and c:IsType(TYPE_MONSTER) and sg:FilterCount(c21520183.spcheck2,c)+1==sg:GetCount()
and sg:FilterCount(Card.IsSetCard,c,0x490)>=2
end
function c21520183.spcheck2(c)
return c:IsRace(RACE_FIEND) and c:IsType(TYPE_MONSTER)
end
function c21520183.spgoal(c,tp,sg)
return sg:GetCount()>1 and Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(c21520183.spcheck,1,nil,sg)
end
function c21520183.spselect(c,tp,mg,sg)
sg:AddCard(c)
local res=c21520183.spgoal(c,tp,sg) or mg:IsExists(c21520183.spselect,1,sg,tp,mg,sg)
sg:RemoveCard(c)
return res
end
function c21520183.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520183.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,e:GetHandler())
local sg=Group.CreateGroup()
return mg:IsExists(c21520183.spselect,1,nil,tp,mg,sg)
end
function c21520183.spop(e,tp,eg,ep,ev,re,r,rp,c)
local mg=Duel.GetMatchingGroup(c21520183.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,e:GetHandler())
local sg=Group.CreateGroup()
while true do
local cg=mg:Filter(c21520183.spselect,sg,tp,mg,sg)
if cg:GetCount()==0
or (c21520183.spgoal(c,tp,sg) and not Duel.SelectYesNo(tp,210)) then break end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=cg:Select(tp,1,1,nil)
sg:Merge(g)
end
c:SetMaterial(sg)
Duel.Remove(sg,POS_FACEUP,REASON_COST)
end--]]
function c21520183.drcost(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 c21520183.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c21520183.drop(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.Draw(tp,1,REASON_EFFECT)
end
function c21520183.adval(e,c)
return Duel.GetMatchingGroupCount(Card.IsFaceup,c:GetControler(),LOCATION_REMOVED,LOCATION_REMOVED,nil)*361
end
function c21520183.econ(e)
return e:GetHandler():GetOverlayCount()>0
end
function c21520183.efilter(e,te)
return not te:IsActiveType(TYPE_COUNTER) and te:GetHandler()~=e:GetHandler()
end
function c21520183.filter(c)
return not c:IsType(TYPE_TOKEN) and c:IsAbleToChangeControler() and c:IsFaceup()
end
function c21520183.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_OATH)
e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
e:GetHandler():RegisterEffect(e1)
end
function c21520183.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c21520183.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler())
and e:GetHandler():IsType(TYPE_XYZ) end
end
function c21520183.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsFacedown() then return end
local ct=c:GetOverlayCount()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g=Duel.SelectMatchingCard(tp,c21520183.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct+1,e:GetHandler())
local tc=g:GetFirst()
while tc do
if c:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
local og=tc:GetOverlayGroup()
if og:GetCount()>0 then
Duel.SendtoGrave(og,REASON_RULE)
end
Duel.Overlay(c,Group.FromCards(tc))
end
tc=g:GetNext()
end
end
function c21520183.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local ct=math.ceil(e:GetHandler():GetOverlayCount()/2)
return e:GetHandler():CheckRemoveOverlayCard(tp,ct,REASON_EFFECT) end
local c=e:GetHandler()
if c:GetOverlayCount()>0 then
local ct=math.ceil(c:GetOverlayCount()/2)
c:RemoveOverlayCard(tp,ct,ct,REASON_EFFECT)
return true
else return false end
end
--曲形魔-克莱因
function c21520183.initial_effect(c)
c:EnableReviveLimit()
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_FIEND),10,3,nil,nil,99)
--spsummon 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)
e1:SetValue(c21520183.splimit)
c:RegisterEffect(e1)
--special summon rule
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
e2:SetRange(LOCATION_GRAVE+LOCATION_EXTRA)
e2:SetCondition(c21520183.spcon)
e2:SetTarget(c21520183.sptg)
e2:SetOperation(c21520183.spop)
c:RegisterEffect(e2)
--draw
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_DRAW)
e3:SetDescription(aux.Stringid(21520183,0))
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetRange(LOCATION_MZONE)
e3:SetCost(c21520183.drcost)
e3:SetTarget(c21520183.drtg)
e3:SetOperation(c21520183.drop)
c:RegisterEffect(e3)
--atk & def
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EFFECT_SET_ATTACK)
e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e4:SetRange(LOCATION_MZONE)
e4:SetValue(c21520183.adval)
c:RegisterEffect(e4)
local e5=e4:Clone()
e5:SetCode(EFFECT_SET_DEFENSE)
c:RegisterEffect(e5)
--imune
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_SINGLE)
e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e6:SetRange(LOCATION_MZONE)
e6:SetCode(EFFECT_IMMUNE_EFFECT)
e6:SetCondition(c21520183.econ)
e6:SetValue(c21520183.efilter)
c:RegisterEffect(e6)
--material
local e7=Effect.CreateEffect(c)
e7:SetDescription(aux.Stringid(21520183,1))
e7:SetType(EFFECT_TYPE_IGNITION)
e7:SetRange(LOCATION_MZONE)
e7:SetCountLimit(1,21520183)
e7:SetCost(c21520183.cost)
e7:SetTarget(c21520183.target)
e7:SetOperation(c21520183.operation)
c:RegisterEffect(e7)
--destroy replace
local e8=Effect.CreateEffect(c)
e8:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
e8:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e8:SetCode(EFFECT_DESTROY_REPLACE)
e8:SetRange(LOCATION_MZONE)
e8:SetTarget(c21520183.reptg)
c:RegisterEffect(e8)
end
function c21520183.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ or se:GetHandler()==e:GetHandler()
end
function c21520183.spfilter(c)
return (c:IsSetCard(0x490) or c:IsRace(RACE_FIEND)) and c:IsAbleToRemoveAsCost() and c:IsType(TYPE_MONSTER)
end
function c21520183.spcheck(c,sg)
return c:IsSetCard(0x490) and c:IsType(TYPE_MONSTER) and sg:FilterCount(c21520183.spcheck2,c)+1==sg:GetCount()
and sg:FilterCount(Card.IsSetCard,c,0x490)>=2
end
function c21520183.spcheck2(c)
return c:IsRace(RACE_FIEND) and c:IsType(TYPE_MONSTER)
end
function c21520183.spgoal(sg,tp,loc)
if loc==LOCATION_EXTRA then
return Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(c21520183.spcheck,1,nil,sg)
else
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and sg:IsExists(c21520183.spcheck,1,nil,sg)
end
end
function c21520183.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520183.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,e:GetHandler())
return mg:CheckSubGroup(c21520183.spgoal,1,nil,tp)
end
function c21520183.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local mg=Duel.GetMatchingGroup(c21520183.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,e:GetHandler())
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local cancel=Duel.GetCurrentChain()==0
local sg=mg:SelectSubGroup(tp,c21520183.spgoal,cancel,1,nil,tp,c:GetLocation())
if sg then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
end
function c21520183.spop(e,tp,eg,ep,ev,re,r,rp,c)
local sg=e:GetLabelObject()
c:SetMaterial(sg)
Duel.Remove(sg,POS_FACEUP,REASON_COST)
end
--[[nction c21520183.spcheck(c,sg)
return c:IsSetCard(0x490) and c:IsType(TYPE_MONSTER) and sg:FilterCount(c21520183.spcheck2,c)+1==sg:GetCount()
and sg:FilterCount(Card.IsSetCard,c,0x490)>=2
end
function c21520183.spcheck2(c)
return c:IsRace(RACE_FIEND) and c:IsType(TYPE_MONSTER)
end
function c21520183.spgoal(c,tp,sg)
return sg:GetCount()>1 and Duel.GetLocationCountFromEx(tp,tp,sg)>0 and sg:IsExists(c21520183.spcheck,1,nil,sg)
end
function c21520183.spselect(c,tp,mg,sg)
sg:AddCard(c)
local res=c21520183.spgoal(c,tp,sg) or mg:IsExists(c21520183.spselect,1,sg,tp,mg,sg)
sg:RemoveCard(c)
return res
end
function c21520183.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c21520183.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,e:GetHandler())
local sg=Group.CreateGroup()
return mg:IsExists(c21520183.spselect,1,nil,tp,mg,sg)
end
function c21520183.spop(e,tp,eg,ep,ev,re,r,rp,c)
local mg=Duel.GetMatchingGroup(c21520183.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,e:GetHandler())
local sg=Group.CreateGroup()
while true do
local cg=mg:Filter(c21520183.spselect,sg,tp,mg,sg)
if cg:GetCount()==0
or (c21520183.spgoal(c,tp,sg) and not Duel.SelectYesNo(tp,210)) then break end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=cg:Select(tp,1,1,nil)
sg:Merge(g)
end
c:SetMaterial(sg)
Duel.Remove(sg,POS_FACEUP,REASON_COST)
end--]]
function c21520183.drcost(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 c21520183.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c21520183.drop(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.Draw(tp,1,REASON_EFFECT)
end
function c21520183.adval(e,c)
return Duel.GetMatchingGroupCount(Card.IsFaceup,c:GetControler(),LOCATION_REMOVED,LOCATION_REMOVED,nil)*361
end
function c21520183.econ(e)
return e:GetHandler():GetOverlayCount()>0
end
function c21520183.efilter(e,te)
return not te:IsActiveType(TYPE_COUNTER) and te:GetHandler()~=e:GetHandler()
end
function c21520183.filter(c)
return not c:IsType(TYPE_TOKEN) and c:IsAbleToChangeControler() and c:IsFaceup()
end
function c21520183.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_OATH)
e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
e:GetHandler():RegisterEffect(e1)
end
function c21520183.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c21520183.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler())
and e:GetHandler():IsType(TYPE_XYZ) end
end
function c21520183.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsFacedown() then return end
local ct=c:GetOverlayCount()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g=Duel.SelectMatchingCard(tp,c21520183.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct+1,e:GetHandler())
local tc=g:GetFirst()
while tc do
if c:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
local og=tc:GetOverlayGroup()
if og:GetCount()>0 then
Duel.SendtoGrave(og,REASON_RULE)
end
Duel.Overlay(c,Group.FromCards(tc))
end
tc=g:GetNext()
end
end
function c21520183.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local ct=math.ceil(e:GetHandler():GetOverlayCount()/2)
return e:GetHandler():CheckRemoveOverlayCard(tp,ct,REASON_EFFECT) end
local c=e:GetHandler()
if c:GetOverlayCount()>0 then
local ct=math.ceil(c:GetOverlayCount()/2)
c:RemoveOverlayCard(tp,ct,ct,REASON_EFFECT)
return true
else return false end
end
expansions/script/c21520189.lua
View file @ e019bf2e
--艺形魔-纸死神
function c21520189.initial_effect(c)
--spsumon 1 shapevil
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY+CATEGORY_RECOVER)
e1:SetDescription(aux.Stringid(21520189,0))
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,21520189)
e1:SetCondition(c21520189.sdrcon)
e1:SetCost(c21520189.sdrcost)
e1:SetTarget(c21520189.sdrtg)
e1:SetOperation(c21520189.sdrop)
c:RegisterEffect(e1)
--to grave
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(21520189,1))
e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DECKDES)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,21520189)
e2:SetTarget(c21520189.tgtg)
e2:SetOperation(c21520189.tgop)
c:RegisterEffect(e2)
local e2_2=e2:Clone()
e2_2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2_2)
--SPECIAL_SUMMON
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(21520189,2))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CLIENT_HINT)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_SZONE)
e3:SetCountLimit(1)
e3:SetCondition(c21520189.spcon)
e3:SetTarget(c21520189.sptg)
e3:SetOperation(c21520189.spop)
c:RegisterEffect(e3)
end
function c21520189.pfilter(c)
return c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK) and not c:IsPublic()
end
function c21520189.spfilter(c,e,tp)
return c:IsSetCard(0x490) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
end
function c21520189.spcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetType()&(TYPE_SPELL+TYPE_CONTINUOUS)==TYPE_SPELL+TYPE_CONTINUOUS
end
function c21520189.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c21520189.spfilter(chkc,e,tp) end
if chk==0 then return Duel.IsExistingTarget(c21520189.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
and Duel.GetLocationCount(tp,LOCATION_MZONE)+Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c21520189.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end
function c21520189.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
local atk=tc:GetBaseAttack()
if atk<0 then atk=0 end
local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
local b2=(Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and Duel.GetLP(1-tp)>atk)
if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then
local op=2
if b1 and b2 then
op=Duel.SelectOption(tp,aux.Stringid(21520189,3),aux.Stringid(21520189,4))
elseif not b1 and b2 then
op=1
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520189,4))
elseif b1 and not b2 then
op=0
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520189,3))
end
if op==0 then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
elseif op==1 then
Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP)
end
Duel.Damage(tc:GetControler(),atk,REASON_EFFECT)
end
end
function c21520189.fieldfilter(c)
return c:IsCode(21520181) and c:IsFaceup()
end
function c21520189.sdrcon(e,tp,eg,ep,ev,re,r,rp)
if Duel.IsExistingMatchingCard(c21520189.fieldfilter,tp,LOCATION_ONFIELD,0,1,nil) then
return Duel.GetTurnPlayer()==tp or Duel.GetTurnPlayer()==1-tp
else
return Duel.GetTurnPlayer()==tp
end
end
function c21520189.sdrcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsDiscardable() end
Duel.SendtoGrave(e:GetHandler(),REASON_DISCARD+REASON_COST)
end
function c21520189.sdrtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c21520189.pfilter,tp,LOCATION_HAND,0,3,e:GetHandler())
and Duel.IsExistingMatchingCard(c21520189.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end
--
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_GRAVE)
end
function c21520189.sdrop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local hg=Duel.GetMatchingGroup(c21520189.pfilter,tp,LOCATION_HAND,0,nil)
local g=Duel.GetMatchingGroup(c21520189.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil,e,tp)
if g:GetCount()>0 and hg:GetCount()>2 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local pg=hg:Select(tp,3,3,nil)
Duel.ConfirmCards(1-tp,pg)
Duel.ShuffleHand(tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
local p=tp
local tc=sg:GetFirst()
local op=2
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then
op=Duel.SelectOption(tp,aux.Stringid(21520189,3),aux.Stringid(21520189,4))
elseif Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)==0 then
op=0
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520189,3))
elseif Duel.GetLocationCount(tp,LOCATION_MZONE)==0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then
op=1
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520189,4))
end
if op==1 then
p=1-tp
end
if Duel.SpecialSummon(tc,0,tp,p,false,false,POS_FACEUP)>0 then
--can not activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetTargetRange(1,0)
e1:SetValue(c21520189.aclimit)
e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
tc:RegisterEffect(e1)
--destroy
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e2:SetCode(EVENT_BATTLE_DAMAGE)
e2:SetRange(LOCATION_MZONE)
e2:SetTarget(c21520189.destg)
e2:SetOperation(c21520189.desop)
tc:RegisterEffect(e2)
end
end
end
function c21520189.aclimit(e,re,tp)
return re:GetActivateLocation()==LOCATION_GRAVE
end
function c21520189.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=1 end
end
function c21520189.desop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsDistruable,tp,LOCATION_DECK,0,nil)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local sg=g:Select(tp,1,1,nil)
Duel.Destroy(sg,REASON_EFFECT)
Duel.BreakEffect()
Duel.Destroy(c,REASON_EFFECT)
end
end
function c21520189.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=6 end
end
function c21520189.tgop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetDecktopGroup(tp,6)
Duel.ConfirmDecktop(tp,6)
local tc=g:GetFirst()
local tgg=Group.CreateGroup()
while tc do
if tc:IsType(TYPE_MONSTER) and tc:IsSetCard(0x490) then
tgg:AddCard(tc)
end
tc=g:GetNext()
end
local ct=Duel.SendtoGrave(tgg,REASON_EFFECT)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local otg=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct,ct,nil)
Duel.SendtoGrave(otg,REASON_EFFECT)
Duel.ShuffleDeck(tp)
end
--艺形魔-纸死神
function c21520189.initial_effect(c)
--spsumon 1 shapevil
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY+CATEGORY_RECOVER)
e1:SetDescription(aux.Stringid(21520189,0))
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,21520189)
e1:SetCondition(c21520189.sdrcon)
e1:SetCost(c21520189.sdrcost)
e1:SetTarget(c21520189.sdrtg)
e1:SetOperation(c21520189.sdrop)
c:RegisterEffect(e1)
--to grave
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(21520189,1))
e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DECKDES)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,21520189)
e2:SetTarget(c21520189.tgtg)
e2:SetOperation(c21520189.tgop)
c:RegisterEffect(e2)
local e2_2=e2:Clone()
e2_2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2_2)
--SPECIAL_SUMMON
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(21520189,2))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CLIENT_HINT)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_SZONE)
e3:SetCountLimit(1)
e3:SetCondition(c21520189.spcon)
e3:SetTarget(c21520189.sptg)
e3:SetOperation(c21520189.spop)
c:RegisterEffect(e3)
end
function c21520189.pfilter(c)
return c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK) and not c:IsPublic()
end
function c21520189.spfilter(c,e,tp)
return c:IsSetCard(0x490) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER)
end
function c21520189.spcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetType()&(TYPE_SPELL+TYPE_CONTINUOUS)==TYPE_SPELL+TYPE_CONTINUOUS
end
function c21520189.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c21520189.spfilter(chkc,e,tp) end
if chk==0 then return Duel.IsExistingTarget(c21520189.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
and Duel.GetLocationCount(tp,LOCATION_MZONE)+Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c21520189.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end
function c21520189.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
local atk=tc:GetBaseAttack()
if atk<0 then atk=0 end
local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
local b2=(Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and Duel.GetLP(1-tp)>atk)
if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then
local op=2
if b1 and b2 then
op=Duel.SelectOption(tp,aux.Stringid(21520189,3),aux.Stringid(21520189,4))
elseif not b1 and b2 then
op=1
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520189,4))
elseif b1 and not b2 then
op=0
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520189,3))
end
if op==0 then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
elseif op==1 then
Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP)
end
Duel.Damage(tc:GetControler(),atk,REASON_EFFECT)
end
end
function c21520189.fieldfilter(c)
return c:IsCode(21520181) and c:IsFaceup()
end
function c21520189.sdrcon(e,tp,eg,ep,ev,re,r,rp)
if Duel.IsExistingMatchingCard(c21520189.fieldfilter,tp,LOCATION_ONFIELD,0,1,nil) then
return Duel.GetTurnPlayer()==tp or Duel.GetTurnPlayer()==1-tp
else
return Duel.GetTurnPlayer()==tp
end
end
function c21520189.sdrcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsDiscardable() end
Duel.SendtoGrave(e:GetHandler(),REASON_DISCARD+REASON_COST)
end
function c21520189.sdrtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c21520189.pfilter,tp,LOCATION_HAND,0,3,e:GetHandler())
and Duel.IsExistingMatchingCard(c21520189.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end
--
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_GRAVE)
end
function c21520189.sdrop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local hg=Duel.GetMatchingGroup(c21520189.pfilter,tp,LOCATION_HAND,0,nil)
local g=Duel.GetMatchingGroup(c21520189.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil,e,tp)
if g:GetCount()>0 and hg:GetCount()>2 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local pg=hg:Select(tp,3,3,nil)
Duel.ConfirmCards(1-tp,pg)
Duel.ShuffleHand(tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
local p=tp
local tc=sg:GetFirst()
local op=2
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then
op=Duel.SelectOption(tp,aux.Stringid(21520189,3),aux.Stringid(21520189,4))
elseif Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)==0 then
op=0
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520189,3))
elseif Duel.GetLocationCount(tp,LOCATION_MZONE)==0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then
op=1
Duel.Hint(HINT_OPSELECTED,1-tp,aux.Stringid(21520189,4))
end
if op==1 then
p=1-tp
end
if Duel.SpecialSummon(tc,0,tp,p,false,false,POS_FACEUP)>0 then
--can not activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetTargetRange(1,0)
e1:SetValue(c21520189.aclimit)
e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
tc:RegisterEffect(e1)
--destroy
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e2:SetCode(EVENT_BATTLE_DAMAGE)
e2:SetRange(LOCATION_MZONE)
e2:SetTarget(c21520189.destg)
e2:SetOperation(c21520189.desop)
tc:RegisterEffect(e2)
end
end
end
function c21520189.aclimit(e,re,tp)
return re:GetActivateLocation()==LOCATION_GRAVE
end
function c21520189.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=1 end
end
function c21520189.desop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsDistruable,tp,LOCATION_DECK,0,nil)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local sg=g:Select(tp,1,1,nil)
Duel.Destroy(sg,REASON_EFFECT)
Duel.BreakEffect()
Duel.Destroy(c,REASON_EFFECT)
end
end
function c21520189.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=6 end
end
function c21520189.tgop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetDecktopGroup(tp,6)
Duel.ConfirmDecktop(tp,6)
local tc=g:GetFirst()
local tgg=Group.CreateGroup()
while tc do
if tc:IsType(TYPE_MONSTER) and tc:IsSetCard(0x490) then
tgg:AddCard(tc)
end
tc=g:GetNext()
end
local ct=Duel.SendtoGrave(tgg,REASON_EFFECT)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local otg=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct,ct,nil)
Duel.SendtoGrave(otg,REASON_EFFECT)
Duel.ShuffleDeck(tp)
end
expansions/script/c24562471.lua
View file @ e019bf2e
--+++++猛毒性 球系
function c24562471.initial_effect(c)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(24562471,0))
e2:SetCategory(CATEGORY_DRAW)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e2:SetCode(EVENT_DAMAGE)
e2:SetRange(LOCATION_MZONE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCountLimit(1,24562471)
e2:SetCondition(c24562471.drcon)
e2:SetTarget(c24562471.drtg)
e2:SetOperation(c24562471.drop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(24562471,1))
e3:SetCategory(CATEGORY_DAMAGE)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
e3:SetRange(LOCATION_MZONE)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetCountLimit(1)
e3:SetTarget(c24562471.target)
e3:SetOperation(c24562471.operation)
c:RegisterEffect(e3)
end
function c24562471.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(1-tp)
Duel.SetTargetParam(600)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,600)
end
function c24562471.operation(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Damage(p,d,REASON_EFFECT)
end
function c24562471.drcon(e,tp,eg,ep,ev,re,r,rp)
if bit.band(r,REASON_EFFECT)~=0 then
return re and re:GetHandler():IsSetCard(0x9390) and ep~=tp
else return ep~=tp
end
end
function c24562471.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c24562471.drop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TRIGGERING_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Draw(p,d,REASON_EFFECT)
--+++++猛毒性 球系
function c24562471.initial_effect(c)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(24562471,0))
e2:SetCategory(CATEGORY_DRAW)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e2:SetCode(EVENT_DAMAGE)
e2:SetRange(LOCATION_MZONE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCountLimit(1,24562471)
e2:SetCondition(c24562471.drcon)
e2:SetTarget(c24562471.drtg)
e2:SetOperation(c24562471.drop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(24562471,1))
e3:SetCategory(CATEGORY_DAMAGE)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
e3:SetRange(LOCATION_MZONE)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetCountLimit(1)
e3:SetTarget(c24562471.target)
e3:SetOperation(c24562471.operation)
c:RegisterEffect(e3)
end
function c24562471.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(1-tp)
Duel.SetTargetParam(600)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,600)
end
function c24562471.operation(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Damage(p,d,REASON_EFFECT)
end
function c24562471.drcon(e,tp,eg,ep,ev,re,r,rp)
if bit.band(r,REASON_EFFECT)~=0 then
return re and re:GetHandler():IsSetCard(0x9390) and ep~=tp
else return ep~=tp
end
end
function c24562471.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c24562471.drop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TRIGGERING_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Draw(p,d,REASON_EFFECT)
end
\ No newline at end of file
expansions/script/c33400007.lua
View file @ e019bf2e
--时崎狂三-祈福
function c33400007.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,c33400007.mfilter,2)
c:EnableReviveLimit()
--activate from hand
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
e1:SetRange(LOCATION_MZONE)
e1:SetTarget(aux.TargetBoolFunction(c33400007.afilter))
e1:SetTargetRange(LOCATION_HAND,0)
c:RegisterEffect(e1)
--extra summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(33400007,0))
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(LOCATION_HAND,0)
e2:SetValue(c33400007.sumval)
c:RegisterEffect(e2)
--search
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(33400007,0))
e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,33400007)
e3:SetLabel(2)
e3:SetCost(c33400007.thcost)
e3:SetTarget(c33400007.thtg)
e3:SetOperation(c33400007.thop)
c:RegisterEffect(e3)
end
function c33400007.mfilter(c)
return c:IsLinkSetCard(0x3341)
end
function c33400007.afilter(c)
return c:IsSetCard(0x3340) and c:IsType(TYPE_QUICKPLAY)
end
function c33400007.sumval(e,c)
local sumzone=e:GetHandler():GetLinkedZone()
local relzone=-bit.lshift(1,e:GetHandler():GetSequence())
return 0,sumzone,relzone
end
function c33400007.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
local ct=e:GetLabel()
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil)
and Duel.IsCanRemoveCounter(tp,1,0,0x34f,ct,REASON_COST)
end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
Duel.RemoveCounter(tp,1,0,0x34f,ct,REASON_COST)
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
end
function c33400007.thfilter(c)
return c:IsSetCard(0x3341) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end
function c33400007.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c33400007.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c33400007.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c33400007.thfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
--时崎狂三-祈福
function c33400007.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,c33400007.mfilter,2)
c:EnableReviveLimit()
--activate from hand
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_QP_ACT_IN_NTPHAND)
e1:SetRange(LOCATION_MZONE)
e1:SetTarget(aux.TargetBoolFunction(c33400007.afilter))
e1:SetTargetRange(LOCATION_HAND,0)
c:RegisterEffect(e1)
--extra summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(33400007,0))
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(LOCATION_HAND,0)
e2:SetValue(c33400007.sumval)
c:RegisterEffect(e2)
--search
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(33400007,0))
e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,33400007)
e3:SetLabel(2)
e3:SetCost(c33400007.thcost)
e3:SetTarget(c33400007.thtg)
e3:SetOperation(c33400007.thop)
c:RegisterEffect(e3)
end
function c33400007.mfilter(c)
return c:IsLinkSetCard(0x3341)
end
function c33400007.afilter(c)
return c:IsSetCard(0x3340) and c:IsType(TYPE_QUICKPLAY)
end
function c33400007.sumval(e,c)
local sumzone=e:GetHandler():GetLinkedZone()
local relzone=-bit.lshift(1,e:GetHandler():GetSequence())
return 0,sumzone,relzone
end
function c33400007.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
local ct=e:GetLabel()
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil)
and Duel.IsCanRemoveCounter(tp,1,0,0x34f,ct,REASON_COST)
end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
Duel.RemoveCounter(tp,1,0,0x34f,ct,REASON_COST)
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
end
function c33400007.thfilter(c)
return c:IsSetCard(0x3341) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end
function c33400007.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c33400007.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c33400007.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c33400007.thfilter,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
\ No newline at end of file
expansions/script/c33400013.lua
View file @ e019bf2e
--时崎狂三 校服
function c33400013.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x341),aux.NonTuner(nil),1)
c:EnableReviveLimit()
--CANNOT_ATTACK
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,33400013)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCost(c33400013.cost1)
e1:SetOperation(c33400013.activate1)
c:RegisterEffect(e1)
--set counter
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(33400013,1))
e2:SetCategory(CATEGORY_COUNTER)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_TO_GRAVE)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
e2:SetCountLimit(1,33400013+10000)
e2:SetTarget(c33400013.addct)
e2:SetOperation(c33400013.addc)
c:RegisterEffect(e2)
--protection
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(33400013,1))
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_GRAVE)
e3:SetCost(aux.bfgcost)
e3:SetOperation(c33400013.activate3)
c:RegisterEffect(e3)
end
function c33400013.tgfilter(e,c)
return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsSetCard(0x341)
end
function c33400013.activate3(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
e1:SetTargetRange(LOCATION_ONFIELD,0)
e1:SetTarget(c33400013.tgfilter)
e1:SetValue(1)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
--e2
function c33400013.filter(c)
return c:IsFaceup() and c:IsCanAddCounter(0x34f,4)
end
function c33400013.addct(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and c33400013.filter(chkc) end
if chk==0 then return true end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
Duel.SelectTarget(tp,c33400013.filter,tp,LOCATION_ONFIELD,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,4,0,0x34f)
end
function c33400013.addc(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then
tc:AddCounter(0x34f,4)
end
end
--e1
function c33400013.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsReleasable() end
Duel.SendtoGrave(e:GetHandler(),REASON_COST)
end
function c33400013.activate1(e,tp,eg,ep,ev,re,r,rp)
if tp~=Duel.GetTurnPlayer() then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(0,1)
Duel.RegisterEffect(e1,tp)
else
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(0,1)
Duel.RegisterEffect(e1,1-tp)
end
end
--时崎狂三 校服
function c33400013.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x341),aux.NonTuner(nil),1)
c:EnableReviveLimit()
--CANNOT_ATTACK
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,33400013)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCost(c33400013.cost1)
e1:SetOperation(c33400013.activate1)
c:RegisterEffect(e1)
--set counter
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(33400013,1))
e2:SetCategory(CATEGORY_COUNTER)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_TO_GRAVE)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
e2:SetCountLimit(1,33400013+10000)
e2:SetTarget(c33400013.addct)
e2:SetOperation(c33400013.addc)
c:RegisterEffect(e2)
--protection
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(33400013,1))
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_GRAVE)
e3:SetCost(aux.bfgcost)
e3:SetOperation(c33400013.activate3)
c:RegisterEffect(e3)
end
function c33400013.tgfilter(e,c)
return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsSetCard(0x341)
end
function c33400013.activate3(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
e1:SetTargetRange(LOCATION_ONFIELD,0)
e1:SetTarget(c33400013.tgfilter)
e1:SetValue(1)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
--e2
function c33400013.filter(c)
return c:IsFaceup() and c:IsCanAddCounter(0x34f,4)
end
function c33400013.addct(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and c33400013.filter(chkc) end
if chk==0 then return true end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
Duel.SelectTarget(tp,c33400013.filter,tp,LOCATION_ONFIELD,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,4,0,0x34f)
end
function c33400013.addc(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then
tc:AddCounter(0x34f,4)
end
end
--e1
function c33400013.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsReleasable() end
Duel.SendtoGrave(e:GetHandler(),REASON_COST)
end
function c33400013.activate1(e,tp,eg,ep,ev,re,r,rp)
if tp~=Duel.GetTurnPlayer() then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(0,1)
Duel.RegisterEffect(e1,tp)
else
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetTargetRange(0,1)
Duel.RegisterEffect(e1,1-tp)
end
end
expansions/script/c33400103.lua
View file @ e019bf2e
--刻刻帝---「三之弹」
function c33400103.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE+CATEGORY_LVCHANGE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMINGS_CHECK_MONSTER)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCountLimit(1,33400103+EFFECT_COUNT_CODE_OATH)
e1:SetTarget(c33400103.target)
e1:SetOperation(c33400103.activate)
c:RegisterEffect(e1)
end
function c33400103.cfilter(c)
return c:IsFaceup() and c:IsSetCard(0x3341)
end
function c33400103.filter(c)
return c:IsFaceup()
end
function c33400103.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsExistingTarget(c33400103.cfilter,tp,LOCATION_MZONE,0,1,nil)
and Duel.IsCanRemoveCounter(tp,1,0,0x34f,1,REASON_COST)
end
local sc=Duel.GetMatchingGroupCount(c33400103.cfilter,tp,LOCATION_MZONE,0,nil)
if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c33400102.filter(chkc) end
if chk==0 then return sc>0 and Duel.IsExistingTarget(c33400102.filter,tp,LOCATION_MZONE,LOCATION_MZONE,-1,nil) end
local cn=Duel.GetCounter(tp,1,0,0x34f)
local lvt={}
for i=1,7 do
if i<=cn and i<=sc then lvt[i]=i end
end
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(33400103,1))
local sc1=Duel.AnnounceNumber(tp,table.unpack(lvt))
Duel.RemoveCounter(tp,1,0,0x34f,sc1,REASON_COST)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g=Duel.SelectTarget(tp,c33400103.filter,tp,LOCATION_MZONE,LOCATION_MZONE,sc1,sc1,nil)
Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE+CATEGORY_LVCHANGE,g,g:GetCount(),0,0)
local v=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
end
function c33400103.activate(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
if g:GetCount()>0 then
local sc=g:GetFirst()
while sc do
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK_FINAL)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e1:SetValue(sc:GetAttack()*2)
sc:RegisterEffect(e1)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e2:SetValue(sc:GetDefense()*2)
sc:RegisterEffect(e2)
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CHANGE_LEVEL)
e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e3:SetValue(sc:GetLevel()*2)
sc:RegisterEffect(e3)
sc=g:GetNext()
end
end
--刻刻帝---「三之弹」
function c33400103.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE+CATEGORY_LVCHANGE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMINGS_CHECK_MONSTER)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCountLimit(1,33400103+EFFECT_COUNT_CODE_OATH)
e1:SetTarget(c33400103.target)
e1:SetOperation(c33400103.activate)
c:RegisterEffect(e1)
end
function c33400103.cfilter(c)
return c:IsFaceup() and c:IsSetCard(0x3341)
end
function c33400103.filter(c)
return c:IsFaceup()
end
function c33400103.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsExistingTarget(c33400103.cfilter,tp,LOCATION_MZONE,0,1,nil)
and Duel.IsCanRemoveCounter(tp,1,0,0x34f,1,REASON_COST)
end
local sc=Duel.GetMatchingGroupCount(c33400103.cfilter,tp,LOCATION_MZONE,0,nil)
if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c33400102.filter(chkc) end
if chk==0 then return sc>0 and Duel.IsExistingTarget(c33400102.filter,tp,LOCATION_MZONE,LOCATION_MZONE,-1,nil) end
local cn=Duel.GetCounter(tp,1,0,0x34f)
local lvt={}
for i=1,7 do
if i<=cn and i<=sc then lvt[i]=i end
end
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(33400103,1))
local sc1=Duel.AnnounceNumber(tp,table.unpack(lvt))
Duel.RemoveCounter(tp,1,0,0x34f,sc1,REASON_COST)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g=Duel.SelectTarget(tp,c33400103.filter,tp,LOCATION_MZONE,LOCATION_MZONE,sc1,sc1,nil)
Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE+CATEGORY_LVCHANGE,g,g:GetCount(),0,0)
local v=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
end
function c33400103.activate(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
if g:GetCount()>0 then
local sc=g:GetFirst()
while sc do
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK_FINAL)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e1:SetValue(sc:GetAttack()*2)
sc:RegisterEffect(e1)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e2:SetValue(sc:GetDefense()*2)
sc:RegisterEffect(e2)
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CHANGE_LEVEL)
e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e3:SetValue(sc:GetLevel()*2)
sc:RegisterEffect(e3)
sc=g:GetNext()
end
end
end
\ No newline at end of file
expansions/script/c65020067.lua
View file @ e019bf2e
--夜之晶月辉印
function c65020067.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020067.target)
e1:SetOperation(c65020067.activate)
c:RegisterEffect(e1)
end
function c65020067.thfil(c)
return c:IsSetCard(0x9da3) and c:IsAbleToHand()
end
function c65020067.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65020067.thfil,tp,LOCATION_DECK,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020067,0,0x21,0,2000,4,RACE_WYRM,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020067.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.SelectMatchingCard(tp,c65020067.thfil,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 and Duel.SendtoHand(g,tp,REASON_EFFECT)~=0 then
Duel.ConfirmCards(1-tp,g)
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020067,0,0x21,0,2000,4,RACE_WYRM,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCondition(c65020067.con)
e1:SetCost(c65020067.cost)
e1:SetTarget(c65020067.xyztg)
e1:SetOperation(c65020067.xyzop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020067.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020067.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:GetFlagEffect(65020067)==0 end
c:RegisterFlagEffect(65020067,RESET_CHAIN,0,1)
end
function c65020067.xyzfilter2(c,mg)
return c:IsXyzSummonable(mg) and c:IsType(TYPE_XYZ)
end
function c65020067.xyzfilter1(c,tp)
return c:IsSetCard(0x9da3) and c:IsFaceup() and not c:IsType(TYPE_TOKEN) and Duel.GetLocationCountFromEx(tp,tp,c)>0
end
function c65020067.xyztg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local g=Duel.GetMatchingGroup(c65020067.xyzfilter1,tp,LOCATION_MZONE,0,nil,tp)
return Duel.IsExistingMatchingCard(c65020067.xyzfilter2,tp,LOCATION_EXTRA,0,1,nil,g)
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c65020067.xyzop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c65020067.xyzfilter1,tp,LOCATION_MZONE,0,nil,tp)
if g:GetCount()<=0 then return end
local xyzg=Duel.GetMatchingGroup(c65020067.xyzfilter2,tp,LOCATION_EXTRA,0,nil,g)
if xyzg:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
Duel.XyzSummon(tp,xyz,g,1,10)
end
--夜之晶月辉印
function c65020067.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020067.target)
e1:SetOperation(c65020067.activate)
c:RegisterEffect(e1)
end
function c65020067.thfil(c)
return c:IsSetCard(0x9da3) and c:IsAbleToHand()
end
function c65020067.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65020067.thfil,tp,LOCATION_DECK,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020067,0,0x21,0,2000,4,RACE_WYRM,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020067.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.SelectMatchingCard(tp,c65020067.thfil,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 and Duel.SendtoHand(g,tp,REASON_EFFECT)~=0 then
Duel.ConfirmCards(1-tp,g)
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020067,0,0x21,0,2000,4,RACE_WYRM,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCondition(c65020067.con)
e1:SetCost(c65020067.cost)
e1:SetTarget(c65020067.xyztg)
e1:SetOperation(c65020067.xyzop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020067.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020067.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:GetFlagEffect(65020067)==0 end
c:RegisterFlagEffect(65020067,RESET_CHAIN,0,1)
end
function c65020067.xyzfilter2(c,mg)
return c:IsXyzSummonable(mg) and c:IsType(TYPE_XYZ)
end
function c65020067.xyzfilter1(c,tp)
return c:IsSetCard(0x9da3) and c:IsFaceup() and not c:IsType(TYPE_TOKEN) and Duel.GetLocationCountFromEx(tp,tp,c)>0
end
function c65020067.xyztg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local g=Duel.GetMatchingGroup(c65020067.xyzfilter1,tp,LOCATION_MZONE,0,nil,tp)
return Duel.IsExistingMatchingCard(c65020067.xyzfilter2,tp,LOCATION_EXTRA,0,1,nil,g)
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c65020067.xyzop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c65020067.xyzfilter1,tp,LOCATION_MZONE,0,nil,tp)
if g:GetCount()<=0 then return end
local xyzg=Duel.GetMatchingGroup(c65020067.xyzfilter2,tp,LOCATION_EXTRA,0,nil,g)
if xyzg:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
Duel.XyzSummon(tp,xyz,g,1,10)
end
end
\ No newline at end of file
expansions/script/c65020068.lua
View file @ e019bf2e
--雪之晶月辉印
function c65020068.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020068.target)
e1:SetOperation(c65020068.activate)
c:RegisterEffect(e1)
end
function c65020068.thfil(c)
return c:IsSetCard(0x9da3) and c:IsType(TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS) and c:IsSSetable()
end
function c65020068.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65020068.thfil,tp,LOCATION_DECK,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020068,0,0x21,1600,1000,4,RACE_AQUA,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020068.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
local g=Duel.SelectMatchingCard(tp,c65020068.thfil,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 and Duel.SSet(tp,g:GetFirst())~=0 then
Duel.ConfirmCards(1-tp,g)
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020068,0,0x21,1600,1000,4,RACE_AQUA,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCondition(c65020068.con)
e1:SetCost(c65020068.cost)
e1:SetTarget(c65020068.xyztg)
e1:SetOperation(c65020068.xyzop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020068.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020068.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:GetFlagEffect(65020068)==0 end
c:RegisterFlagEffect(65020068,RESET_CHAIN,0,1)
end
function c65020068.xyzfilter2(c,mg)
return c:IsXyzSummonable(mg) and c:IsType(TYPE_XYZ)
end
function c65020068.xyzfilter1(c,tp)
return c:IsSetCard(0x9da3) and c:IsFaceup() and not c:IsType(TYPE_TOKEN) and Duel.GetLocationCountFromEx(tp,tp,c)>0
end
function c65020068.xyztg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local g=Duel.GetMatchingGroup(c65020068.xyzfilter1,tp,LOCATION_MZONE,0,nil,tp)
return Duel.IsExistingMatchingCard(c65020068.xyzfilter2,tp,LOCATION_EXTRA,0,1,nil,g)
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c65020068.xyzop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c65020068.xyzfilter1,tp,LOCATION_MZONE,0,nil,tp)
if g:GetCount()<=0 then return end
local xyzg=Duel.GetMatchingGroup(c65020068.xyzfilter2,tp,LOCATION_EXTRA,0,nil,g)
if xyzg:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
Duel.XyzSummon(tp,xyz,g,1,10)
end
end
--雪之晶月辉印
function c65020068.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020068.target)
e1:SetOperation(c65020068.activate)
c:RegisterEffect(e1)
end
function c65020068.thfil(c)
return c:IsSetCard(0x9da3) and c:IsType(TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS) and c:IsSSetable()
end
function c65020068.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65020068.thfil,tp,LOCATION_DECK,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020068,0,0x21,1600,1000,4,RACE_AQUA,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020068.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
local g=Duel.SelectMatchingCard(tp,c65020068.thfil,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 and Duel.SSet(tp,g:GetFirst())~=0 then
Duel.ConfirmCards(1-tp,g)
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020068,0,0x21,1600,1000,4,RACE_AQUA,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCondition(c65020068.con)
e1:SetCost(c65020068.cost)
e1:SetTarget(c65020068.xyztg)
e1:SetOperation(c65020068.xyzop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020068.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020068.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:GetFlagEffect(65020068)==0 end
c:RegisterFlagEffect(65020068,RESET_CHAIN,0,1)
end
function c65020068.xyzfilter2(c,mg)
return c:IsXyzSummonable(mg) and c:IsType(TYPE_XYZ)
end
function c65020068.xyzfilter1(c,tp)
return c:IsSetCard(0x9da3) and c:IsFaceup() and not c:IsType(TYPE_TOKEN) and Duel.GetLocationCountFromEx(tp,tp,c)>0
end
function c65020068.xyztg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local g=Duel.GetMatchingGroup(c65020068.xyzfilter1,tp,LOCATION_MZONE,0,nil,tp)
return Duel.IsExistingMatchingCard(c65020068.xyzfilter2,tp,LOCATION_EXTRA,0,1,nil,g)
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c65020068.xyzop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c65020068.xyzfilter1,tp,LOCATION_MZONE,0,nil,tp)
if g:GetCount()<=0 then return end
local xyzg=Duel.GetMatchingGroup(c65020068.xyzfilter2,tp,LOCATION_EXTRA,0,nil,g)
if xyzg:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
Duel.XyzSummon(tp,xyz,g,1,10)
end
end
expansions/script/c65020069.lua
View file @ e019bf2e
--幻之晶月辉印
function c65020069.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020069.target)
e1:SetOperation(c65020069.activate)
c:RegisterEffect(e1)
end
function c65020069.thfil(c)
return c:IsSetCard(0x9da3) and c:IsAbleToGrave()
end
function c65020069.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65020069.thfil,tp,LOCATION_DECK,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020069,0,0x21,1900,500,4,RACE_PSYCHO,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020069.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.SelectMatchingCard(tp,c65020069.thfil,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 then
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020069,0,0x21,1900,500,4,RACE_PSYCHO,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCondition(c65020069.con)
e1:SetCost(c65020069.cost)
e1:SetTarget(c65020069.linktg)
e1:SetOperation(c65020069.linkop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020069.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020069.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:GetFlagEffect(65020069)==0 end
c:RegisterFlagEffect(65020069,RESET_CHAIN,0,1)
end
function c65020069.matfilter(c)
return c:IsFaceup()
end
function c65020069.lkfilter(c)
return c:IsSetCard(0x9da3) and c:IsType(TYPE_LINK) and c:IsSpecialSummonable(SUMMON_TYPE_LINK)
end
function c65020069.linktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local el={}
local mg=Duel.GetMatchingGroup(c65020069.matfilter,tp,LOCATION_MZONE,0,nil)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,mg)
for tc in aux.Next(g) do
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
tc:RegisterEffect(e1)
table.insert(el,e1)
end
local res=Duel.IsExistingMatchingCard(c65020069.lkfilter,tp,LOCATION_EXTRA,0,1,nil)
for _,e in ipairs(el) do
e:Reset()
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c65020069.linkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local el={}
local mg=Duel.GetMatchingGroup(c65020069.matfilter,tp,LOCATION_MZONE,0,nil)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,mg)
for tc in aux.Next(g) do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
tc:RegisterEffect(e1)
table.insert(el,e1)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xg=Duel.SelectMatchingCard(tp,c65020069.lkfilter,tp,LOCATION_EXTRA,0,1,1,nil)
local tc=xg:GetFirst()
if tc then
Duel.SpecialSummonRule(tp,tc,SUMMON_TYPE_LINK)
end
for _,e in ipairs(el) do
e:Reset()
end
--幻之晶月辉印
function c65020069.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020069.target)
e1:SetOperation(c65020069.activate)
c:RegisterEffect(e1)
end
function c65020069.thfil(c)
return c:IsSetCard(0x9da3) and c:IsAbleToGrave()
end
function c65020069.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65020069.thfil,tp,LOCATION_DECK,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020069,0,0x21,1900,500,4,RACE_PSYCHO,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020069.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.SelectMatchingCard(tp,c65020069.thfil,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 then
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020069,0,0x21,1900,500,4,RACE_PSYCHO,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCondition(c65020069.con)
e1:SetCost(c65020069.cost)
e1:SetTarget(c65020069.linktg)
e1:SetOperation(c65020069.linkop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020069.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020069.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:GetFlagEffect(65020069)==0 end
c:RegisterFlagEffect(65020069,RESET_CHAIN,0,1)
end
function c65020069.matfilter(c)
return c:IsFaceup()
end
function c65020069.lkfilter(c)
return c:IsSetCard(0x9da3) and c:IsType(TYPE_LINK) and c:IsSpecialSummonable(SUMMON_TYPE_LINK)
end
function c65020069.linktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local el={}
local mg=Duel.GetMatchingGroup(c65020069.matfilter,tp,LOCATION_MZONE,0,nil)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,mg)
for tc in aux.Next(g) do
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
tc:RegisterEffect(e1)
table.insert(el,e1)
end
local res=Duel.IsExistingMatchingCard(c65020069.lkfilter,tp,LOCATION_EXTRA,0,1,nil)
for _,e in ipairs(el) do
e:Reset()
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c65020069.linkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local el={}
local mg=Duel.GetMatchingGroup(c65020069.matfilter,tp,LOCATION_MZONE,0,nil)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,mg)
for tc in aux.Next(g) do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
tc:RegisterEffect(e1)
table.insert(el,e1)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xg=Duel.SelectMatchingCard(tp,c65020069.lkfilter,tp,LOCATION_EXTRA,0,1,1,nil)
local tc=xg:GetFirst()
if tc then
Duel.SpecialSummonRule(tp,tc,SUMMON_TYPE_LINK)
end
for _,e in ipairs(el) do
e:Reset()
end
end
\ No newline at end of file
expansions/script/c65020070.lua
View file @ e019bf2e
--星之晶月辉印
function c65020070.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020070.target)
e1:SetOperation(c65020070.activate)
c:RegisterEffect(e1)
end
function c65020070.thfil(c)
return c:IsSetCard(0x9da3) and c:IsAbleToHand()
end
function c65020070.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65020070.thfil,tp,LOCATION_GRAVE,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020070,0,0x21,1500,1500,4,RACE_WARRIOR,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020070.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.SelectMatchingCard(tp,c65020070.thfil,tp,LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 and Duel.SendtoHand(g,tp,REASON_EFFECT)~=0 then
Duel.ConfirmCards(1-tp,g)
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020070,0,0x21,1500,1500,4,RACE_WARRIOR,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCondition(c65020070.con)
e1:SetCost(c65020070.cost)
e1:SetTarget(c65020070.linktg)
e1:SetOperation(c65020070.linkop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020070.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020070.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:GetFlagEffect(65020070)==0 end
c:RegisterFlagEffect(65020070,RESET_CHAIN,0,1)
end
function c65020070.matfilter(c)
return c:IsFaceup()
end
function c65020070.lkfilter(c)
return c:IsSetCard(0x9da3) and c:IsType(TYPE_LINK) and c:IsSpecialSummonable(SUMMON_TYPE_LINK)
end
function c65020070.linktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local el={}
local mg=Duel.GetMatchingGroup(c65020070.matfilter,tp,LOCATION_MZONE,0,nil)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,mg)
for tc in aux.Next(g) do
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
tc:RegisterEffect(e1)
table.insert(el,e1)
end
local res=Duel.IsExistingMatchingCard(c65020070.lkfilter,tp,LOCATION_EXTRA,0,1,nil)
for _,e in ipairs(el) do
e:Reset()
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c65020070.linkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local el={}
local mg=Duel.GetMatchingGroup(c65020070.matfilter,tp,LOCATION_MZONE,0,nil)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,mg)
for tc in aux.Next(g) do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
tc:RegisterEffect(e1)
table.insert(el,e1)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xg=Duel.SelectMatchingCard(tp,c65020070.lkfilter,tp,LOCATION_EXTRA,0,1,1,nil)
local tc=xg:GetFirst()
if tc then
Duel.SpecialSummonRule(tp,tc,SUMMON_TYPE_LINK)
end
for _,e in ipairs(el) do
e:Reset()
end
end
--星之晶月辉印
function c65020070.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020070.target)
e1:SetOperation(c65020070.activate)
c:RegisterEffect(e1)
end
function c65020070.thfil(c)
return c:IsSetCard(0x9da3) and c:IsAbleToHand()
end
function c65020070.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65020070.thfil,tp,LOCATION_GRAVE,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020070,0,0x21,1500,1500,4,RACE_WARRIOR,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020070.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.SelectMatchingCard(tp,c65020070.thfil,tp,LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 and Duel.SendtoHand(g,tp,REASON_EFFECT)~=0 then
Duel.ConfirmCards(1-tp,g)
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020070,0,0x21,1500,1500,4,RACE_WARRIOR,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCondition(c65020070.con)
e1:SetCost(c65020070.cost)
e1:SetTarget(c65020070.linktg)
e1:SetOperation(c65020070.linkop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020070.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020070.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:GetFlagEffect(65020070)==0 end
c:RegisterFlagEffect(65020070,RESET_CHAIN,0,1)
end
function c65020070.matfilter(c)
return c:IsFaceup()
end
function c65020070.lkfilter(c)
return c:IsSetCard(0x9da3) and c:IsType(TYPE_LINK) and c:IsSpecialSummonable(SUMMON_TYPE_LINK)
end
function c65020070.linktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local el={}
local mg=Duel.GetMatchingGroup(c65020070.matfilter,tp,LOCATION_MZONE,0,nil)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,mg)
for tc in aux.Next(g) do
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
tc:RegisterEffect(e1)
table.insert(el,e1)
end
local res=Duel.IsExistingMatchingCard(c65020070.lkfilter,tp,LOCATION_EXTRA,0,1,nil)
for _,e in ipairs(el) do
e:Reset()
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c65020070.linkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local el={}
local mg=Duel.GetMatchingGroup(c65020070.matfilter,tp,LOCATION_MZONE,0,nil)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,mg)
for tc in aux.Next(g) do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
tc:RegisterEffect(e1)
table.insert(el,e1)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local xg=Duel.SelectMatchingCard(tp,c65020070.lkfilter,tp,LOCATION_EXTRA,0,1,1,nil)
local tc=xg:GetFirst()
if tc then
Duel.SpecialSummonRule(tp,tc,SUMMON_TYPE_LINK)
end
for _,e in ipairs(el) do
e:Reset()
end
end
expansions/script/c65020071.lua
View file @ e019bf2e
--晶之晶月辉印
function c65020071.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020071.target)
e1:SetOperation(c65020071.activate)
c:RegisterEffect(e1)
end
function c65020071.thfil(c)
return c:IsSetCard(0x9da3) and c:IsType(TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS) and c:IsSSetable()
end
function c65020071.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65020071.thfil,tp,LOCATION_GRAVE,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020071,0,0x21,500,1800,4,RACE_ROCK,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020071.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
local g=Duel.SelectMatchingCard(tp,c65020071.thfil,tp,LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 and Duel.SSet(tp,g)~=0 then
Duel.ConfirmCards(1-tp,g)
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020071,0,0x21,500,1800,4,RACE_ROCK,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetCondition(c65020071.con)
e1:SetTarget(c65020071.destg)
e1:SetOperation(c65020071.desop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020071.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020071.desfilter(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP)
end
function c65020071.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return false end
if chk==0 then return Duel.IsExistingTarget(c65020071.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler())
and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g1=Duel.SelectTarget(tp,c65020071.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
g1:Merge(g2)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0)
end
function c65020071.desop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
if g:GetCount()>0 then
Duel.Destroy(g,REASON_EFFECT)
end
--晶之晶月辉印
function c65020071.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020071.target)
e1:SetOperation(c65020071.activate)
c:RegisterEffect(e1)
end
function c65020071.thfil(c)
return c:IsSetCard(0x9da3) and c:IsType(TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS) and c:IsSSetable()
end
function c65020071.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c65020071.thfil,tp,LOCATION_GRAVE,0,1,nil) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020071,0,0x21,500,1800,4,RACE_ROCK,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020071.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
local g=Duel.SelectMatchingCard(tp,c65020071.thfil,tp,LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 and Duel.SSet(tp,g)~=0 then
Duel.ConfirmCards(1-tp,g)
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020071,0,0x21,500,1800,4,RACE_ROCK,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetCondition(c65020071.con)
e1:SetTarget(c65020071.destg)
e1:SetOperation(c65020071.desop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020071.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020071.desfilter(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP)
end
function c65020071.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return false end
if chk==0 then return Duel.IsExistingTarget(c65020071.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler())
and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g1=Duel.SelectTarget(tp,c65020071.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
g1:Merge(g2)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0)
end
function c65020071.desop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
if g:GetCount()>0 then
Duel.Destroy(g,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c65020072.lua
View file @ e019bf2e
--花之晶月辉印
function c65020072.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE+CATEGORY_DRAW)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020072.target)
e1:SetOperation(c65020072.activate)
c:RegisterEffect(e1)
end
function c65020072.thfil(c)
return c:IsAbleToGrave() and c:IsSetCard(0x9da3)
end
function c65020072.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,2)
and Duel.IsExistingMatchingCard(c65020072.thfil,tp,LOCATION_HAND,0,1,e:GetHandler()) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020072,0,0x21,1700,1200,4,RACE_PLANT,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020072.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not Duel.IsPlayerCanDraw(tp,2) then return end
local g=Duel.SelectMatchingCard(tp,c65020072.thfil,tp,LOCATION_HAND,0,1,1,e:GetHandler())
if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 and Duel.Draw(tp,2,REASON_EFFECT)~=0 then
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020072,0,0x21,1700,1200,4,RACE_PLANT,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCondition(c65020072.con)
e1:SetTarget(c65020072.distg)
e1:SetOperation(c65020072.disop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020072.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020072.filter(c)
return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP)
end
function c65020072.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return false end
if chk==0 then return Duel.IsExistingTarget(c65020072.filter,tp,LOCATION_ONFIELD,0,1,e:GetHandler())
and Duel.IsExistingTarget(aux.disfilter1,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELF)
Duel.SelectTarget(tp,aux.filter,tp,LOCATION_ONFIELD,0,1,1,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO)
Duel.SelectTarget(tp,aux.disfilter1,tp,0,LOCATION_ONFIELD,1,1,nil)
end
function c65020072.disop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
if g:GetCount()~=2 then return end
for tc in aux.Next(g) do
Duel.NegateRelatedChain(tc,RESET_TURN_SET)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetValue(RESET_TURN_SET)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e2)
if tc:IsType(TYPE_TRAPMONSTER) then
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e3)
end
end
--花之晶月辉印
function c65020072.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE+CATEGORY_DRAW)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c65020072.target)
e1:SetOperation(c65020072.activate)
c:RegisterEffect(e1)
end
function c65020072.thfil(c)
return c:IsAbleToGrave() and c:IsSetCard(0x9da3)
end
function c65020072.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,2)
and Duel.IsExistingMatchingCard(c65020072.thfil,tp,LOCATION_HAND,0,1,e:GetHandler()) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,65020072,0,0x21,1700,1200,4,RACE_PLANT,ATTRIBUTE_DARK) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c65020072.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not Duel.IsPlayerCanDraw(tp,2) then return end
local g=Duel.SelectMatchingCard(tp,c65020072.thfil,tp,LOCATION_HAND,0,1,1,e:GetHandler())
if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 and Duel.Draw(tp,2,REASON_EFFECT)~=0 then
Duel.BreakEffect()
if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
or not Duel.IsPlayerCanSpecialSummonMonster(tp,65020072,0,0x21,1700,1200,4,RACE_PLANT,ATTRIBUTE_DARK) then return end
c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP)
--activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCondition(c65020072.con)
e1:SetTarget(c65020072.distg)
e1:SetOperation(c65020072.disop)
c:RegisterEffect(e1,true)
Duel.SpecialSummonComplete()
end
end
function c65020072.con(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
end
function c65020072.filter(c)
return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP)
end
function c65020072.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return false end
if chk==0 then return Duel.IsExistingTarget(c65020072.filter,tp,LOCATION_ONFIELD,0,1,e:GetHandler())
and Duel.IsExistingTarget(aux.disfilter1,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELF)
Duel.SelectTarget(tp,aux.filter,tp,LOCATION_ONFIELD,0,1,1,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO)
Duel.SelectTarget(tp,aux.disfilter1,tp,0,LOCATION_ONFIELD,1,1,nil)
end
function c65020072.disop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
if g:GetCount()~=2 then return end
for tc in aux.Next(g) do
Duel.NegateRelatedChain(tc,RESET_TURN_SET)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetValue(RESET_TURN_SET)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e2)
if tc:IsType(TYPE_TRAPMONSTER) then
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e3)
end
end
end
\ No newline at end of file
update/filelist.txt
View file @ e019bf2e
......@@ -5,9 +5,8 @@ deck/2019.9.8_new_card3.ydk d696b4ce57c3c7a221a670c9e3635a69
deck/2019.9.8_new_card4.ydk 78b8d1a90ab8f8b8f1ebf8e420ee9db3
deck/2019.9.8_new_card5.ydk f07a14b20c71e75ce6e68404f84b76d8
deck/2019.9.8_new_card6.ydk 8a945afc3c1ad1e7e58d93cee05254fd
expansions/222DIY.cdb 61ec289868d35bc8d86085650ec99daa
expansions/222DIY.cdb a1c5c852ab02121572deb2cee15b6aaa
expansions/lflist.conf f69b44ed66197c8af5b3902f2f5f3ab6
expansions/new.cdb f25a1e8fcb4889c83b7660cad4dfd67f
expansions/strings.conf cb2678199187c8d2a830d1d2aa2dc028
expansions/pics/08209710.jpg ed0e60085631bfa641ffeebd6abbd910
expansions/pics/1000360.jpg d1aa6f44fcd413402141a6bf4b886c2a
......@@ -5656,7 +5655,6 @@ expansions/pics/81000002.jpg 04ab560c72b40e90e71c0b5a50d99d66
expansions/pics/81000003.jpg a76a60ef10283ab747956089c156a2fa
expansions/pics/81000004.jpg 46e92ab37ac6fd1cdb4885a20531dcf9
expansions/pics/81000005.jpg 201e5538b070384325fb31c28f5bbb0c
expansions/pics/81000007.jpg 241cd937b101eed9b389e59b89cc01ef
expansions/pics/81000008.jpg f836a0d4c4c16a46e990aeb34eded842
expansions/pics/81000009.jpg 0d6bbf9c4205a52e4909a03febc9fff5
expansions/pics/81000027.jpg 94ddbb3ea6b7c7e60629bbb385d065fb
......@@ -5668,7 +5666,6 @@ expansions/pics/81005003.jpg 604a53fcd0df8eae00694d1a6afd05cd
expansions/pics/81005004.jpg f1cbb07faac9b889f14c239924431195
expansions/pics/81005005.jpg 70c05cf80f38b61e947c25c945e672c5
expansions/pics/81006001.jpg ed9428d1340a9de6168d2b626a3b2682
expansions/pics/81006002.jpg 276b573c37bc87a4bf39bb383e3975e1
expansions/pics/81006003.jpg b4fa87cc24ae89817416cf04fe7ecbb6
expansions/pics/81006004.jpg f48ad7529ffb94caa6577694adbe64bf
expansions/pics/81006005.jpg 3a0de8c054e33b0f0b72e2dfdf2a3736
......@@ -5703,15 +5700,12 @@ expansions/pics/81006033.jpg 1f7f1555cc897fc49b6e0e0d4a1fdb8a
expansions/pics/81006034.jpg 81d15960cac0e91d8dc06b973a0522e1
expansions/pics/81006035.jpg 08a371e20b957ae4091292a85c54b6f9
expansions/pics/81006100.jpg 1faf7f218b044086a085b8d7a8f3c80c
expansions/pics/81006101.jpg b593e184543c55952d40d1cd39676f4e
expansions/pics/81007001.jpg d26bb24fd16b115ff85385076057fc60
expansions/pics/81007002.jpg a33a6a58ded4ea8c024f4354270f142f
expansions/pics/81007003.jpg 8579ae7eb55b94790c7da2dbed0cdc27
expansions/pics/81007004.jpg 24c20027f9457a3d0f109145e0df56ab
expansions/pics/81007005.jpg 6e812d520cebcd1103acfc69f4cf684e
expansions/pics/81007006.jpg d76d0cd35f7e3a38bbc5b761e023bb7a
expansions/pics/81007009.jpg a4019534c43452f687143db0bc356d49
expansions/pics/81007010.jpg 27e04b3b4b94aeacee7b34016842a7bd
expansions/pics/81007011.jpg 5fde7525f642e1c7a071c6f0157e5ad2
expansions/pics/81007012.jpg aa80c761ca9630f68c10ef2a0cf6e98a
expansions/pics/81007013.jpg 195023361671b3dcb5cb84d66549a9a3
......@@ -5750,7 +5744,6 @@ expansions/pics/81008014.jpg 9fa7483f510dd7337db78a8a7cbf039d
expansions/pics/81008018.jpg 946df199e28ddd3f09ae4d7937525592
expansions/pics/81008023.jpg 5260cf63a80ad39cc2c1ae638d72b3af
expansions/pics/81008024.jpg 92dbd2e895ffd7759062f1184e941c58
expansions/pics/81008025.jpg fbde431da3c16c456d4025c99a270323
expansions/pics/81008026.jpg c1b0769aeb7695ba4dadb73d113b85d5
expansions/pics/81008028.jpg 08e1c9515136c22cbe2c02d66798442e
expansions/pics/81008030.jpg d0497942fa30f7e507c4eb76160653aa
......@@ -5758,18 +5751,11 @@ expansions/pics/81008032.jpg f86f04c0f162535d5fe298cada5a7a0f
expansions/pics/81008033.jpg 23bd35019d8b0e6c3d58c827d47cfe37
expansions/pics/81008034.jpg 859214ca528395d9a6d7f7cfff695b6b
expansions/pics/81008035.jpg 1fb51c23543abae4e8879efd68c5d73c
expansions/pics/81008100.jpg 6d7f62045df429185175a189cf639964
expansions/pics/81008101.jpg 153afe61e5b5f9610764f07a47eedec0
expansions/pics/81008102.jpg 0be39789bc0b4288cc7be0f306ff7ebc
expansions/pics/81008103.jpg 75c2f1fe2b97e3118f2c0548ef6be115
expansions/pics/81008104.jpg aded8f5df6f78da6fac8cb68c3112039
expansions/pics/81008105.jpg db408738bdf8e8e85ddd714258975a9c
expansions/pics/81009001.jpg c44d5cc9aecb8c68b6ce971f9bbd90b7
expansions/pics/81009002.jpg 02b525be6cfabffec968460cdceaf184
expansions/pics/81009003.jpg 5ec2adad44e6639d9974687cb8a3c422
expansions/pics/81009004.jpg 2f2ba20abd1245c6e4d58fe374ca2022
expansions/pics/81009005.jpg db06281e6109e65c40a91c812ab83b50
expansions/pics/81009006.jpg 9bc487ad584d20a822d93d7fb7c32065
expansions/pics/81009007.jpg 496f7a78676c913f3876afeae7c0b5f1
expansions/pics/81009008.jpg 21cc04ea403a6f7ee420ce7935af4645
expansions/pics/81009009.jpg e8e1ba9e32e4936f9295e0941162d832
......@@ -5781,7 +5767,6 @@ expansions/pics/81009014.jpg 791812ba658b9043afa3241e1e9a8221
expansions/pics/81009015.jpg a19f9cbecaecddfd34d1e42ace0ff608
expansions/pics/81009016.jpg 9de827b875bce5d4ff0d1f460a1e2041
expansions/pics/81009017.jpg fd3685b7e90dac4e78e62c347d832b66
expansions/pics/81009022.jpg fbc29a4aa5eed90daf5750e79500e6e5
expansions/pics/81009023.jpg 7c1c45376962cdffd4db94307d5d7128
expansions/pics/81009024.jpg 33f9a8f942b011d56f2a94de7d070829
expansions/pics/81009025.jpg e8dc0949233dce48d8180073f18a4336
......@@ -5795,16 +5780,11 @@ expansions/pics/81010004.jpg ac7081d63b1251a1061ceadb180a86a1
expansions/pics/81010005.jpg 68a341ad463df2d690095199a45e85ea
expansions/pics/81010006.jpg 8281c134d8688af3739cf84532ceb7db
expansions/pics/81010007.jpg d96b3cd2861f349bd7153833ee68a3ac
expansions/pics/81010008.jpg 9a96397c320b99cae879c79fe720ec1a
expansions/pics/81010009.jpg 48dbf23dd801dc06342e1046df57e25e
expansions/pics/81010010.jpg 4b3b3d78f8347b8bec8d47cfa0745e6f
expansions/pics/81010011.jpg 45000be43e0f2413a519366f5b16944b
expansions/pics/81010012.jpg 8cd420b46bd4246b0a9017ef1fd3f759
expansions/pics/81010014.jpg 37c496bbd2ae3f264694fc8acf0818ae
expansions/pics/81010015.jpg aab6244cb544aa482d6527d8b9410a79
expansions/pics/81010016.jpg 91bd2241dc56f8a12c519ad0cc6632b8
expansions/pics/81010017.jpg 401f24714b8adea8517fdaf8df04dd13
expansions/pics/81010018.jpg ae73169207200d6ca7ab699050f50010
expansions/pics/81010019.jpg 5acb7de24a5dd97d8a026b9780253164
expansions/pics/81010020.jpg e49503ac992add1fa345e9389e791ea6
expansions/pics/81010021.jpg 8d782c63b0162a97d1aa9a0ab65003c1
......@@ -5812,12 +5792,9 @@ expansions/pics/81010022.jpg 80fbf671db1f3d46b7b1229053e3c010
expansions/pics/81010023.jpg 10b52a334be147d57152b7742fb56e11
expansions/pics/81010024.jpg 6b5308b3b2aeb8aa3f14bb2408d6da62
expansions/pics/81010025.jpg a3effcd787432835b52b684b800a1d3f
expansions/pics/81010026.jpg 92e17e49e96cb5ba137d53937a859b4c
expansions/pics/81010027.jpg 56d33a0247b91d5d069d39e3c7e685ef
expansions/pics/81010028.jpg fb3fb4b5dcfe842c528d10b04a0aeb1e
expansions/pics/81010029.jpg 55cdea2bc48ed7b57b96eba6d4eb7b0b
expansions/pics/81010030.jpg 1f8a169e503968d1a447ff3d9a8d0ded
expansions/pics/81010032.jpg aaffc639f3a76dfba5b984fd8569c178
expansions/pics/81010033.jpg 086303ad82d32e218ce1b036d1ce153d
expansions/pics/81010034.jpg 25b441000aca4821854746bfeceb7ac7
expansions/pics/81010035.jpg 5a810d2e29c1a96937fd1f3d0f8f5194
......@@ -5830,7 +5807,6 @@ expansions/pics/81010044.jpg fdd4ce70df03cb3356d3c7341d8dcfaf
expansions/pics/81010045.jpg b25c3ab00261815f98534657ed5aaa00
expansions/pics/81010046.jpg 0e6d6691fbea2904561fdbf6a07a1e4b
expansions/pics/81010047.jpg f322807c05761206af4bcd4c19ff4063
expansions/pics/81010048.jpg ea070e478c63299b878b5980bed76f30
expansions/pics/81010049.jpg 33d6ab3edece5bac8999bf4abfa84b85
expansions/pics/81010050.jpg 5837d26179c3394a72e92704f31c37f1
expansions/pics/81010051.jpg 559a151f87cc85d5de024f6a80ca5d46
......@@ -5839,7 +5815,6 @@ expansions/pics/81010053.jpg ef3632e8fa1fcbb734346e2d89076734
expansions/pics/81010054.jpg c8b470b0fc12cf0e50d08c4e9caad158
expansions/pics/81010055.jpg 4c59f0e9e6924453f479ed73a2c903a2
expansions/pics/81010056.jpg 6dc4002f3eaef7300266caca06d01bbc
expansions/pics/81010057.jpg 8fe3162e2bdfdb115ac987210975affa
expansions/pics/81010058.jpg e45c90ab7ea81c15fe7a118fbd628640
expansions/pics/81010059.jpg 4c01b61e458749062a006fd68d2feb21
expansions/pics/81011000.jpg ce38e33c4e791af2e2a18f9f9c86ed5e
......@@ -5851,11 +5826,8 @@ expansions/pics/81011005.jpg c655fff32b566f2c0e3f1a731681d654
expansions/pics/81011006.jpg f1236d7f0d971af372cb2697826d72e1
expansions/pics/81011007.jpg 0eefe64e33877b4d89e360370eec7514
expansions/pics/81011009.jpg 350537860af480f7d07d641e119d5152
expansions/pics/81011010.jpg 530f5ded7a9ad8725361eccc60063d22
expansions/pics/81011011.jpg 97f4bcdbca386c9b9817b360b2c938a9
expansions/pics/81011013.jpg 71b5e9d1d337bca503303780e309915e
expansions/pics/81011014.jpg 18edd08c423d0a34dbd500a1e6f2d81e
expansions/pics/81011015.jpg b05b7da84f066e517f7b90cfb0950510
expansions/pics/81011016.jpg d693f38c5f105a10c46a72e5dabfba20
expansions/pics/81011017.jpg 0b909dc59c8a9c7aa15e92cfd7e2b6c7
expansions/pics/81011018.jpg 16a0c1b1e8a38f5a825217e7fc731dd1
......@@ -5870,7 +5842,6 @@ expansions/pics/81011026.jpg 5c3b3ee70763b108153122eab155056b
expansions/pics/81011027.jpg 79258c897b9fdb2aedbb7c02629ecee2
expansions/pics/81011028.jpg 600461fd30fcd42155066827f888de42
expansions/pics/81011029.jpg 5c3c0f03dc150ef0ab8f71f1514a81af
expansions/pics/81011030.jpg 44faf6c9620ed757bb27dbf1f64de27a
expansions/pics/81011031.jpg ea70abf3165ba9781a3b2adb31aab7ed
expansions/pics/81011032.jpg 143c90820b6d370944706c3b21d86e1d
expansions/pics/81011033.jpg e992b434535979dfc99f11a49e3edcaa
......@@ -5888,7 +5859,6 @@ expansions/pics/81011108.jpg 133e266ca0b6d6bcfebed5c676b0dd23
expansions/pics/81011109.jpg 2ca39afc347cee5e3a05096f59a52863
expansions/pics/81011110.jpg 19d9a6e335635697b9e16199b58df104
expansions/pics/81011111.jpg 3a53e162b4b135c705e5d955e240a0bb
expansions/pics/81011112.jpg 20bd4e4d0904cb70de21286282ce772d
expansions/pics/81011113.jpg 6b19080cf5276b603b5018930b4d267a
expansions/pics/81011114.jpg c8dadc9018a7e7935376909fc6888620
expansions/pics/81011115.jpg 8b1d30f483369fd15c59fcaf7b267a57
......@@ -6014,18 +5984,14 @@ expansions/pics/81014017.jpg 2651e2654b2b88021729c89849b16c9b
expansions/pics/81014018.jpg 81f8dbaddea8e4d98c1d2b6b523960be
expansions/pics/81014019.jpg 3792a32b0884a0d772f422dd25aac82d
expansions/pics/81014020.jpg 4d0263329dd3750787ae68fa359c501d
expansions/pics/81014021.jpg 524313ba583434104b16128f6fc8bf8f
expansions/pics/81014027.jpg 3736e748fbfa5a67be8e474f0a5820f8
expansions/pics/81014028.jpg 52430b587c733feb1230e23b55dcb2da
expansions/pics/81014029.jpg 268565a66b19c32ecc5a03e18af3940d
expansions/pics/81014030.jpg 43e462dc46bd7de89c3fab64cb718214
expansions/pics/81014031.jpg 7e3f15244e562478427a7f6d4562c1be
expansions/pics/81014032.jpg 42baa55638d234a56095fc8dec32e5d8
expansions/pics/81014033.jpg be8eb99fa65eb5dd26e2a0d78e9227b2
expansions/pics/81014034.jpg f5f887e5f86465275da3808be9070323
expansions/pics/81014035.jpg 76a5a69590a825c4e22e82892f65e2b7
expansions/pics/81014036.jpg d1d245f79bc83ffef2b89cb830daa256
expansions/pics/81014037.jpg 585f328507e61459d4a1418663e3ee12
expansions/pics/81014038.jpg a1c2bc8d9a0df7968cc7303ec3009472
expansions/pics/81014039.jpg ae7896867eccf27562b3ab5d89bffda6
expansions/pics/81014040.jpg 49ca0d2bee9759907acd30e6470742cb
......@@ -6164,7 +6130,6 @@ expansions/pics/81019012.jpg f7d16c7d00a14e7c715e2008810c2b0d
expansions/pics/81019013.jpg 13d6dc9d05d99579fca758da36c44214
expansions/pics/81019014.jpg 0a6231184db301cd8693463e7fbd423b
expansions/pics/81019017.jpg cc611790dba38635ddf0e1e82c0436af
expansions/pics/81019020.jpg 715cab62fb64ed94f888fc6fa4ae35a0
expansions/pics/81019021.jpg 5a8e801bd62334bbf84e949666164f14
expansions/pics/81019029.jpg 9585fb8866062a9695500682a546c0c3
expansions/pics/81022000.jpg 1fb4bb3d472663768142c72401e796d9
......@@ -6745,7 +6710,7 @@ expansions/script/c1007029.lua d08d88b6010eda7806fb61d2484adec8
expansions/script/c101002051.lua 9b277cece0f98d10b1c6f838bd63076a
expansions/script/c10113074.lua 92442fca8899c4e40de37d654af6bb49
expansions/script/c10113083.lua 420e1ea3f39f2cce4ea91ec0337c673c
expansions/script/c10199990.lua 5d2618bd37c532b2bc441a863523afe1
expansions/script/c10199990.lua 8ec910d399ed6ab3886e383b5fee9c00
expansions/script/c107898100.lua 1510da323415386487f514596753a1e5
expansions/script/c107898101.lua dfd427de6a8571227e5778865cf9f482
expansions/script/c107898102.lua 0171c0acd6f6bb1b82197c1744e3a7c9
......@@ -7048,9 +7013,19 @@ expansions/script/c11200009.lua 045f8d5380af362e093af8177aa71ac6
expansions/script/c11200010.lua d1491bcc963b49051714a6ab2997cbad
expansions/script/c11200011.lua 0bb8277643ce50f68cc94b63975c539a
expansions/script/c11200012.lua 52696bb657ea90c605a7d90a4747bd53
expansions/script/c11200018.lua acb849a46012e389011735c7562d19bd
expansions/script/c11200019.lua f6ac9ea241e6e7d6d222bb5217242f99
expansions/script/c11200020.lua e386fc684898a4b88f197c67a68f4fdc
expansions/script/c11200022.lua 833ac37e97d36cc698a519a87a4854e3
expansions/script/c11200024.lua 2603a22b646e4d99ef3e64bcac4b40e1
expansions/script/c11200025.lua d753ee7f602d0ecc33a811ba880479e2
expansions/script/c11200026.lua 0feb0a7d13394d29d409b46d24f0baca
expansions/script/c11200027.lua 176219b282497c9d6e3743683213be01
expansions/script/c11200028.lua c6222e2fbc213c5ddf347b77e038921d
expansions/script/c1120003.lua facf876cec593d1a277d870c16d3d890
expansions/script/c1120004.lua 68e89766a3c8bcd7231f36270706cb89
expansions/script/c1120005.lua c69089beb10b54ae48750b3b22a54e56
expansions/script/c11200066.lua f321ab0c3845ba3d21f2dd3bdde10288
expansions/script/c11200080.lua f5404401618e26f86ec21367da9d5442
expansions/script/c11200081.lua b6bf70674bcce1bcf5b2c8f8b95095d9
expansions/script/c11200082.lua d095a79bbcb87d892ab6c6e27f27e71d
......@@ -7162,7 +7137,7 @@ expansions/script/c1156008.lua c38524a90a4d32192c059d63f3322c2a
expansions/script/c1156009.lua 6bc7589c33cd054f8fe10dcb318f68ea
expansions/script/c1156010.lua 8db471fca79cffe91f0dd35871148fc2
expansions/script/c1156011.lua a767da59f37fad27ec77b1594fe1f657
expansions/script/c1156012.lua 2ec1ffcd97b9d5ec3d6a8bce2b2621f5
expansions/script/c1156012.lua 3e3d77378eeb615c02a792dc88e09734
expansions/script/c1156013.lua 85ae2204e71c8a8b81cb5810aa4fd4fb
expansions/script/c1156015.lua e1306b240c0be4d1d28e2446e5b515c1
expansions/script/c1156016.lua cbe6dc70a2c7ef336ab4d89b4c16a247
......@@ -7730,27 +7705,27 @@ expansions/script/c14801016.lua f9c53bfeca24d478da84840bbe12be4a
expansions/script/c14801027.lua 0a53d422bdb299e6b7934d89dde7bf99
expansions/script/c14801029.lua 34b880b55bd52199bec882c9d4d63200
expansions/script/c14801035.lua ff6e7c05644e3489c3499ad787fe08ed
expansions/script/c14801037.lua 216744ca56c59f89e7a8bd98569270f0
expansions/script/c14801037.lua 647f776a756df5cb4ac5a2481be2da3b
expansions/script/c14801038.lua fbc651ba115c67a1925aae316175fd6c
expansions/script/c14801039.lua 0d742487c13b6fc208f4bf4d337f1784
expansions/script/c14801043.lua 2a38f2e9a56a572a5734c1ee6ddcabe2
expansions/script/c14801047.lua 8ff3a20a2acb3173ee094ee87257c616
expansions/script/c14801049.lua 413a0ca91d2d76830c06f56b9f598cd3
expansions/script/c14801051.lua 04d526011b61fee6e55ea03f20371d36
expansions/script/c14801051.lua 2a15f3cc91e305ff86eec5e1eeb32d22
expansions/script/c14801052.lua c19f7bbf7fd9d29bb50716bee4370936
expansions/script/c14801053.lua 93e441c7aeb5bfe0ecabda80d348ae94
expansions/script/c14801053.lua dbef0fd1d5deec9db1533fd5f64d2ef1
expansions/script/c14801054.lua 8a25cc2e95a5bd7ce3bd224e41724757
expansions/script/c14801055.lua 2db41006d672c3aef7779bd221e3c9bd
expansions/script/c14801055.lua f56bef83173d4d5856836e532bae98e5
expansions/script/c14801056.lua e3e2b3f2b04c3ed0995b68fa3471f718
expansions/script/c14801057.lua 0538c0c941ae6f0f1bc565b626f6b2e8
expansions/script/c14801057.lua 32b967e146549fcff289d18d8e0331a6
expansions/script/c14801058.lua ecde63e01b2eec0460cf83f45f88eb16
expansions/script/c14801059.lua 315357807d46a8977d2b33a5432df6dc
expansions/script/c14801059.lua 8db8d5aa9c0273e5d82fc9aae36708f9
expansions/script/c14801060.lua 33d605a7721c308e0581a706c67d6e5e
expansions/script/c14801061.lua c14efd277a7c1a314f34368882f0b168
expansions/script/c14801061.lua c104edfcc9dfc51e9d32329cee3342c6
expansions/script/c14801062.lua b87fd68e62793dbeea44858e2101fb83
expansions/script/c14801066.lua 152043b348ea9588c43ff073215ecce9
expansions/script/c14801074.lua fd1ef2acb3b4115f5a92b9d92a8e62bc
expansions/script/c14801075.lua 8c6b5908f0bc05a75fce2773897536a3
expansions/script/c14801075.lua 2ef309ac06fe99351f076ffcf65de85b
expansions/script/c14801077.lua 745939a02c360afe88677c759cedd25e
expansions/script/c14801301.lua ea332e5ef85ca5d987cd6342fe6f844d
expansions/script/c14801302.lua f8e5ea53e3197160af6e14552d2367e8
......@@ -8017,7 +7992,7 @@ expansions/script/c17060801.lua ec3406fabea91c94ba43beba8c0653b1
expansions/script/c17060802.lua 13df6510d1f974dee0214eae055b281f
expansions/script/c17060803.lua 8c325a8d8137830d71fbfbf5ec945be1
expansions/script/c17060804.lua 39eaf637ee1752d368a65673fdb2dcd9
expansions/script/c17060805.lua 66bd00f134e9a3c6e7302b466df255ac
expansions/script/c17060805.lua ce5ac775d391d0a2213a18efa81a314b
expansions/script/c17060806.lua 3845564759247b8516b13724343393d0
expansions/script/c17060807.lua 0331ac7d79668dd38fcba3d813f2ae93
expansions/script/c17060814.lua 73c64fd338b4ee5bbdc923fae1eeb6f8
......@@ -8045,7 +8020,7 @@ expansions/script/c17060835.lua 3703fcf955883b348780219c668b95ba
expansions/script/c17060836.lua 3bd58f6743d14f29c1e5c18c2cb890be
expansions/script/c17060838.lua c8a9e880ea2087d5c84be773ac20b462
expansions/script/c17060839.lua c7135248d2ca2e09b61d305469bb1884
expansions/script/c17060843.lua 01675c7823ee92e53bf3b282375b3210
expansions/script/c17060843.lua f636052d1789c60d42fc774e1554f2b3
expansions/script/c17060844.lua 5896b45ee0e6288fd026c76ac6ee5962
expansions/script/c17060845.lua 0c8694541035b4eed70f91d6a7e34c5c
expansions/script/c17060846.lua 5370d8fddf0c0e366ab04899ed527d25
......@@ -8104,8 +8079,8 @@ expansions/script/c17060915.lua 1c8311fe09688bc19ecf5e3636c85ad6
expansions/script/c17060916.lua 86e38a499ff7419dc629648399a7d482
expansions/script/c17060917.lua 3032dec68ab48df3593c5a70bf82ea01
expansions/script/c17060918.lua 8413499295dab0b376968f7c734a30a8
expansions/script/c17060920.lua d293f032528879d9a165670e439be97c
expansions/script/c17060921.lua 902f3622b7e418e242d8d3d32b28687e
expansions/script/c17060920.lua 1f07594b3d8437c9429ae4f031e0e381
expansions/script/c17060921.lua ac54324c9fc768808cb684868371ee50
expansions/script/c17060922.lua 6361feedcfe52d16b4f11191b989cf39
expansions/script/c17060923.lua 4088c668305b647f26f7dd624f33d8e1
expansions/script/c17060924.lua e76e50ad818033285129fc91b2a6bd12
......@@ -8467,7 +8442,7 @@ expansions/script/c21520171.lua b411ddd3cd714426d00e99d2105c9529
expansions/script/c21520172.lua 4704ae2bf9d6b60d59906647942f7ec2
expansions/script/c21520173.lua 8b2d108e714aa90c2e0e1d5164b0661f
expansions/script/c21520174.lua aad489e04992a59fe0cb11c0979b805f
expansions/script/c21520175.lua b7b9a8a1922547a1ddf8d1ab3f1c312e
expansions/script/c21520175.lua 134e4570eb26491d190ec342e3fb2984
expansions/script/c21520176.lua a4d793433ede45f7591c338ad1d49429
expansions/script/c21520177.lua 31b71c4a69730838a30cc1701e0ed92a
expansions/script/c21520178.lua c62bab983f2d2c5edba272b51f343cb8
......@@ -8482,7 +8457,7 @@ expansions/script/c21520186.lua e2803ea349934ebeb4096c667dd1a4ad
expansions/script/c21520187.lua a42ee9134c47406d6031a753f4acdde4
expansions/script/c21520188.lua cce0d2d135c4b114c3b856a4c1b2db81
expansions/script/c21520189.lua da40dfd4fbb9d2057a3e81cb83d4dca6
expansions/script/c21520190.lua 8463b3247d59c64778d94370466368e1
expansions/script/c21520190.lua 9562ab81d011e18f4099b3bbb21c6028
expansions/script/c22000230.lua 2a25ec3aaf5365d139f3bf9c907fcd43
expansions/script/c22000240.lua 04c9d91dc0d485b32ac0689916ac6bc8
expansions/script/c22000250.lua 8b45ffded2158ae54bddf992ce4526fe
......@@ -8649,7 +8624,7 @@ expansions/script/c24562467.lua 8f302fbd216d477b5e7bd313ef1fd7e8
expansions/script/c24562468.lua b095beeaddf0f7ed2557a09e1beff625
expansions/script/c24562469.lua 83d34188500b853cbaf71f2afd8e3982
expansions/script/c24562470.lua 684b8979cc7b66f7c3b75070f35e9a6f
expansions/script/c24562471.lua dce3c9647e03d2ca5173265976365be2
expansions/script/c24562471.lua 1435c222c3cecc2b09fb980185a20a2d
expansions/script/c24562472.lua 35aa75d171d0ecd1cd805eaf7f26e4b7
expansions/script/c24562473.lua 43056548833df7df99d706b4b384d01b
expansions/script/c24562474.lua 78aed78f8df02d30cf1ff43bcb9bbdab
......@@ -8903,45 +8878,45 @@ expansions/script/c33310028.lua a73c66d2c5404a65723c57cf674a9ffd
expansions/script/c33310029.lua bbab6894262656e9b5d99eeb0594c329
expansions/script/c33310030.lua ccfdd34ad8a4e9a8a0f7e988460d7aa3
expansions/script/c33310031.lua 7153c3eba84a67f660e1b3d2d74dac2c
expansions/script/c33330001.lua 12f7a36f38bf9bbe70328040083f59f5
expansions/script/c33330002.lua 9f6548ef9c93e0a7d5e7b4d4794c94b3
expansions/script/c33330003.lua ff1eb21eb44d631472499db51e81ddda
expansions/script/c33330004.lua cb55df62e79fa20912381445da2cbd19
expansions/script/c33330005.lua 037f12a08cf2ddef083c4fc5ce27260f
expansions/script/c33330006.lua 76b53ae0a1af7900ee64ceb26cc108f2
expansions/script/c33330007.lua 31ed3ddff83f35a8a5af78ba254366a1
expansions/script/c33330008.lua ff938638b9d0bcec6aa6fe0d6cd022d0
expansions/script/c33330009.lua 9929bd2b322df3f057929989444bdd8d
expansions/script/c33330010.lua 7627c1c6b77b61c2ab7531eae0993d40
expansions/script/c33330011.lua 522637422b5aa80f79cb69d6efdad561
expansions/script/c33330012.lua 34b70496c9740e63558521bd0a47ae23
expansions/script/c33330013.lua fd551ce1199366796a089b4a751e46d7
expansions/script/c33330014.lua 7f1a892f51d9da03069be69dbb3a67c4
expansions/script/c33330015.lua a00c0f2c819a9803eec7c1ff39435917
expansions/script/c33330016.lua b3a42ae939ecf077de87da290efa27c8
expansions/script/c33330017.lua c07f7e7d02fef9ff209a59357299b132
expansions/script/c33330018.lua 9d343a926ab72f94dc7e7e1f5dd05923
expansions/script/c33330019.lua 8761c9691d6cb8ba3e60c89a84ee42d6
expansions/script/c33330020.lua 09b11995b00e8a9d27fb338e952e39e4
expansions/script/c33330021.lua a47e01740e76120a391961bf7a6ee578
expansions/script/c33330022.lua 0100138689df2e3cd76aadc946706495
expansions/script/c33330023.lua 1840cb055708314b08153d425d25a78b
expansions/script/c33330024.lua 069c1190b34303806b2c5054772e2249
expansions/script/c33330025.lua a91c3eb2cb88b67e1982070fe967d0a5
expansions/script/c33330026.lua 6a2f8cfbdefe1a0ec641fa93c32c4b3b
expansions/script/c33330027.lua 04562cf21cb418a468b4206dc988f33f
expansions/script/c33330028.lua 36485d766864f167eedbc9a24caeb5c7
expansions/script/c33330029.lua e7b7668d4014053520b8c3af5f2413cb
expansions/script/c33330030.lua e0ee02406d334d01c9c9c77b55993c36
expansions/script/c33330031.lua ddd0655b086a56aa8927e31bcaa5628b
expansions/script/c33330032.lua 0d809ed32c52428f40ee2ae52cc8a8a8
expansions/script/c33330033.lua 933663a22149bf277d3a63cc451121f4
expansions/script/c33330034.lua 1879901d6f60876ad463de91305366a0
expansions/script/c33330001.lua 223d9ae4b63a2bd59d499a5cdb8bdcf3
expansions/script/c33330002.lua 7c10c840deb1f5cf7e83b96644ae6af4
expansions/script/c33330003.lua 3718c1171fdaf75c593b506fdfe4c800
expansions/script/c33330004.lua 90269dd872c581479b5caba692b437e5
expansions/script/c33330005.lua a81897ecbc13af83f679978c94f2ae9e
expansions/script/c33330006.lua d67411cdabeb390f8996d6acd05ba6ca
expansions/script/c33330007.lua c592ee7b116bc0c3cd3750ae2c14d78a
expansions/script/c33330008.lua 2b76834ab657b05b91b6134b5e87f1fe
expansions/script/c33330009.lua c32c124fdbe36dcc6d49874c93444920
expansions/script/c33330010.lua f11b18374c6f6dc97fabde2adff1575b
expansions/script/c33330011.lua 000735d76de999dbe68e6850ed59a170
expansions/script/c33330012.lua 9a2440c6d0387ef5020ae5ef1003a815
expansions/script/c33330013.lua d3b3704faaf2c45fe0ddb3f9f6cf7cd9
expansions/script/c33330014.lua 7af5467f5fa272a11957241144fed99c
expansions/script/c33330015.lua 56dfbbb78589c7f5aac42479bd034c0f
expansions/script/c33330016.lua a001d4ad9eac3aae921c4c081a0bfb91
expansions/script/c33330017.lua 64762b62e82694c51a8e74caa56a93f7
expansions/script/c33330018.lua 0f9dceae0734ccb9a5ebf8cd68e069f9
expansions/script/c33330019.lua cb966cbc28d7a14d0e4c842e1f517108
expansions/script/c33330020.lua 56fedec32c0bd261f26c44264bfb338c
expansions/script/c33330021.lua dbd0d701ef8b6c38ec649f48fef6586d
expansions/script/c33330022.lua f2921128e52ecfcc49bbda2f7f800fc2
expansions/script/c33330023.lua 60883e2373f4e818e34e5d5d0aec2281
expansions/script/c33330024.lua 0984bc0aedd294889415c32f64ef465d
expansions/script/c33330025.lua 22cd81b640b80e88f595612c66d1d0bc
expansions/script/c33330026.lua 2aea2a282ddd2c7d52d184c63ee6534e
expansions/script/c33330027.lua a6a740ef2a55926d52fc3916dca757ca
expansions/script/c33330028.lua f587af60a7f0fc1c488c80c3d7864bb0
expansions/script/c33330029.lua 655703da69a9189b3026bc0811835120
expansions/script/c33330030.lua 2adf80acd0342dd8235f04ad4684d05e
expansions/script/c33330031.lua 4bf840db7cfcf52196831c61e8ee9c87
expansions/script/c33330032.lua cec416d2648a9de74b4f69a62cc1def8
expansions/script/c33330033.lua 86cf76755540e683993db3da4c429570
expansions/script/c33330034.lua 729e2071dd86e0f68aaf30d3c4a0c389
expansions/script/c33330036.lua bb2f12e0518d8689f699f4b90f848d78
expansions/script/c33330038.lua 5bf79ece1183e79b2389a6a3e0f3a672
expansions/script/c33330091.lua c6ebacaae82af75d32c909fa8917961c
expansions/script/c33330092.lua df4e58754be1039f0e18a53342ca299b
expansions/script/c33330093.lua 89ef10b1abf339f38b9bf835c2782dcf
expansions/script/c33330093.lua b50b174593e9a826ef65d7edde99c71e
expansions/script/c33330201.lua db8f9fdd6db69b4b0947d78109adaab5
expansions/script/c33330202.lua 180daa2bd6caba060d9d1ad0dddb9377
expansions/script/c33330204.lua 1f95ff8dd92dc04b0b0ab2d0f770f401
......@@ -8966,20 +8941,20 @@ expansions/script/c33330306.lua faf01e0f363e09b14c7ab1e2d5b5b483
expansions/script/c33330319.lua f1c368ccfb5c3e3bfbe1b1b9dcbe596b
expansions/script/c33330320.lua e3a78be74a2cce7633fb72f9920cee23
expansions/script/c33330323.lua 0dafda1bdb5bdef9d8d5831b49b8c312
expansions/script/c33330400.lua c8af662ddc9246e9b202fc49f84caeb9
expansions/script/c33330400.lua b1aeeaeb8c8674a623d7e809a51ffb83
expansions/script/c33330401.lua 89ee083e6f090061c94d9137eff541a2
expansions/script/c33330402.lua c61b3da92805e2b45edb334792f21f21
expansions/script/c33330402.lua 9d6603210db45fce6f692fa7781cb312
expansions/script/c33330403.lua d85a2378dfc8b7f08b74bcb8735011aa
expansions/script/c33330404.lua 5c6d9f070ac100fa49c7e28be1ad4fc5
expansions/script/c33330404.lua 661c2d1626c4899cf440173bd8e36693
expansions/script/c33330405.lua 586d0604c702d3a975d314b4ef51be4c
expansions/script/c33330406.lua 7fbd35a0558420aa4be86e6ca397edc9
expansions/script/c33330407.lua 3ba7e4fbad22930ab7b84b6565562f53
expansions/script/c33330408.lua f1522d06ad2cc9d9f69437b17ba0b9a8
expansions/script/c33330409.lua 7d226a8fc2781b8e2ac4b03fe5b16082
expansions/script/c33330410.lua 21453fae9060f9ca81d72ea7660abb32
expansions/script/c33330411.lua 61099115ad1aaade8193f206c9fbf0e0
expansions/script/c33330412.lua 3107ce2ba4d84c7c8a41c61397af8ef8
expansions/script/c33330413.lua a4cd215e23ad9c1e2b372729f54614e9
expansions/script/c33330410.lua 1a8e95f97c8287a0c98b3a93187136d5
expansions/script/c33330411.lua 32f98bab553cd254c2daf8a515025fff
expansions/script/c33330412.lua 9eaab649e104715a8cdb32fde08b64e3
expansions/script/c33330413.lua 0b48235a850fbe66e052913a3f97abc9
expansions/script/c33330501.lua 625985b2f1c16c11692a5fa2c963fa1f
expansions/script/c33330502.lua 4e186d818cc7dcfe28d039cdf3ca43d9
expansions/script/c33330503.lua 8b6b954e935114229a30e3b7c1dc7edb
......@@ -9053,23 +9028,23 @@ expansions/script/c33351005.lua ed3f3b881b5ab9f4b0ba5c21d08ad8aa
expansions/script/c33400001.lua 0be91f19f1e624b2b6309a9ea465636f
expansions/script/c33400002.lua 9ba3fb07f3b878597d26cba89069fca9
expansions/script/c33400003.lua e20052b7057a7e20fb4736151e384b7f
expansions/script/c33400004.lua 91218c99d4a836b23456b9229805a4d2
expansions/script/c33400004.lua ac8df49fbf267055e2a244a95b812e66
expansions/script/c33400005.lua ca0d2b3ea2ebd5249fcbfec8cc5d7f9b
expansions/script/c33400006.lua 1738780159b46fe78005ddf77ca7b4d1
expansions/script/c33400007.lua ba5cd9c56b81834c6b8d7e1ad14b9381
expansions/script/c33400008.lua 89d8ea49bd6239307366d07070d87147
expansions/script/c33400009.lua ccd5c36952a25743b18f4a10277f7cee
expansions/script/c33400010.lua bc4e9713d59f36c83ed23f36b8135836
expansions/script/c33400007.lua b7c35d90045679755c61d0316612fcfa
expansions/script/c33400008.lua 97f9e2b5986939ec27ecb34910064954
expansions/script/c33400009.lua 01c17067069707837f6cf2ad36e7006d
expansions/script/c33400010.lua 0ecfcdaa106002185fb5f391dff55c2d
expansions/script/c33400011.lua 5749630d25159f3893ceb002937f1dda
expansions/script/c33400012.lua f4d78f55b7ab9273f4ddc5afa3b839d2
expansions/script/c33400013.lua c9cad06f49f75ec404938e761d169831
expansions/script/c33400014.lua 26630d198ce7e8135cfa1c64c3607d5c
expansions/script/c33400014.lua ca7041507f8f035e531cacf4cd55ceb6
expansions/script/c33400015.lua 022c7261ed991dd1c53a622878a314ae
expansions/script/c33400016.lua 72b21bb5978ba95a98ec57104a6c0cdb
expansions/script/c33400017.lua 336a0ed24204d6db1c1ce0ecd6c6e430
expansions/script/c33400018.lua c11a3097d5c3ae789d3f63f243af26c8
expansions/script/c33400019.lua 53f44b4907a952d6067d312d8b8cf5fc
expansions/script/c33400033.lua 7f0e9f0e0aea84b2305819f762e1bd1f
expansions/script/c33400033.lua a86ffd56bc64993904bd85a626042420
expansions/script/c33400034.lua 5bf86c60b1445badd87c68adb043a7a6
expansions/script/c33400035.lua 1c32edaf8a7df398a30caeb8744a938f
expansions/script/c33400100.lua 71fd5bd9e65cd2343d3f52c2df5ca9ba
......@@ -9518,8 +9493,8 @@ expansions/script/c33700935.lua f75fdaea6b32edddf07ab3c8fccfbbb1
expansions/script/c33700936.lua dd5031bd627c8aa31ffb61405115d76e
expansions/script/c33700937.lua f5665d0e1b9d4a672610e07499f7480a
expansions/script/c33700938.lua 96f5e8e2eb1c5e57347cf83d14f208b1
expansions/script/c33700939.lua e6677592d6966b87012187bd816dd1db
expansions/script/c33700940.lua ddf23e39d8b6d65443f6695230211d93
expansions/script/c33700939.lua 7b3abdd93e03e13d6f026540e6ad559b
expansions/script/c33700940.lua eef2a87d59aa944009585084a16307ed
expansions/script/c33700941.lua c73d05c5582277e251b261328908bc48
expansions/script/c33700942.lua 07dd20c8735bc4027c335b96a53cb767
expansions/script/c33700943.lua 1a643e2f2a581dbaf90318fe941f8219
......@@ -11175,7 +11150,7 @@ expansions/script/c65020072.lua c492eb4d70c818634ec3b6b09ce06141
expansions/script/c65020073.lua 2514ffe1ed6f77f9132d881294309e59
expansions/script/c65020074.lua 595e18a1f8eb4527f25994fab1dd7b6e
expansions/script/c65020075.lua 8e08a3919da89344a459838e2ef76123
expansions/script/c65020076.lua 3976adaf2224bc28d33f056d3cbcd6b4
expansions/script/c65020076.lua 949838a4404c1ac822a2eddcb8d8533a
expansions/script/c65020077.lua be3b2f7fa94dd8ce5dcea1ea07c3b2e6
expansions/script/c65020078.lua 517e4d74292f3c489e3f7dd849e6c076
expansions/script/c65020079.lua caab10c6f6e96e228191c93aec035843
......@@ -11514,7 +11489,7 @@ expansions/script/c65072010.lua 996b511002462168469952d88a45e730
expansions/script/c65072011.lua c106ee489e3b6f256110d4f1550ce942
expansions/script/c65072012.lua 1e148c3c18d29ea563ca718213671ed7
expansions/script/c65072013.lua fcfbdd8c5e2290f11efc81a92ea03cb6
expansions/script/c65072014.lua 4e2fac9722f1446b43d6fcd0f9c39c82
expansions/script/c65072014.lua 6b924c2bcba236be583d0d84b9fdbab6
expansions/script/c65080011.lua 1947680cc7bf6ed3286d13ffceb2318e
expansions/script/c65080012.lua 23fb12caaf5a662dad5aa5a644cdd461
expansions/script/c65080014.lua fc22e6f6c2da036da369346bdce73fa7
......@@ -12130,7 +12105,7 @@ expansions/script/c79131376.lua 011660957ac274cb4963390b25b80a2d
expansions/script/c79131377.lua 6369b2e6210e1fc800fa2a25f8bea55c
expansions/script/c79131379.lua c0e1cd95a3f8b5323a3bfec7f6d1b59c
expansions/script/c80000054.lua 24d65b923a51d00405c9ea39c5de493c
expansions/script/c81000000.lua baa981f40e68003832d41045f872b881
expansions/script/c81000000.lua c242bc0bfe865a0e4733f6cc339ca781
expansions/script/c81000001.lua b816d9de581a1180d6b3b98c60d0dc8d
expansions/script/c81000002.lua 2c901ef3c01bd0561690bb200cb93253
expansions/script/c81000003.lua 4917493ba4da18e3ec522346149f7b04
......@@ -12143,7 +12118,6 @@ expansions/script/c81005003.lua 21d54bc9e01446c3ff67ac511bf30bda
expansions/script/c81005004.lua 683a0b120d8691797fd32de0888b5373
expansions/script/c81005005.lua 45b75584bf874c9058398335c10d4e51
expansions/script/c81006001.lua 09844b87c6376abadb0babb7d0ce3c14
expansions/script/c81006002.lua 9b8991547acfc37e386f723da373786a
expansions/script/c81006003.lua c6b2917e56b35aa9f447bba4732378ee
expansions/script/c81006004.lua 016af31293a49b4ba77f214fa757fadf
expansions/script/c81006005.lua f328a0db0275592dc69149420561884e
......@@ -12178,15 +12152,12 @@ expansions/script/c81006033.lua 64ef763a02cc05970ba625279e2d7338
expansions/script/c81006034.lua 5bdc63c8592af3cf0ff52709b80ddbe2
expansions/script/c81006035.lua 0101bc968fca6c99c3f0fd7a734fbe89
expansions/script/c81006100.lua f20b757e7082ba7c03f6e08d966b649c
expansions/script/c81006101.lua a4a754d9d900a508fc686a3cab8b1691
expansions/script/c81007001.lua 862e7c38e0bbd0afc9c67603cf80eaa7
expansions/script/c81007002.lua 4fb9d37d28649c8ef700868b863a25bb
expansions/script/c81007003.lua f0f81fc1de59e7d77b204d4c0063735f
expansions/script/c81007004.lua 7b42a679ede7828d98c8744051de85d8
expansions/script/c81007005.lua 8d040e6cb853ec781afe4b60cb0f3f58
expansions/script/c81007006.lua f73e0610afd867008f610f257846c641
expansions/script/c81007009.lua 964c55244e788357d7d65e1208e1adb6
expansions/script/c81007010.lua febb37def11a33a5b23d24012a7403cb
expansions/script/c81007011.lua fbfaeed624c2309064984245def2d697
expansions/script/c81007012.lua 6e8b7af16a957e793d413f44d255113b
expansions/script/c81007013.lua d7913a4fb42816f7e47522d2f72e692b
......@@ -12224,26 +12195,17 @@ expansions/script/c81008013.lua f1091581402c454b09f24bd387cafe68
expansions/script/c81008018.lua d00054f6d9cc213bb30c59d827a3753e
expansions/script/c81008023.lua 62c4a3c764ab18cb77bb959e2691b6b2
expansions/script/c81008024.lua e2850cf7892e9f507d419b1bd38ed24e
expansions/script/c81008025.lua cd06054f31cfc6069c13d09c8f085f75
expansions/script/c81008026.lua 67cc88909938b6c71f1148ae2660e337
expansions/script/c81008028.lua c38849cfe627a10c6f2ec84666532de3
expansions/script/c81008029.lua 2ebf4ab6b96754978eba7d59707f1d20
expansions/script/c81008030.lua feac7f2d86ca79132b5f23b0ade8afc9
expansions/script/c81008032.lua c684884441a8773789e6f1abe6c14f6e
expansions/script/c81008033.lua b6df2a5f9b80ce97624f7a07444b0545
expansions/script/c81008034.lua e9e967910f99176c99586a909883c1f4
expansions/script/c81008035.lua 0129ed6fb97d4bebb774860df8098563
expansions/script/c81008100.lua e6701823780e5c2cc9e1690944a16176
expansions/script/c81008101.lua c4d7d772b118d72dfe904db5558490bf
expansions/script/c81008102.lua 3bb4e4495e2eeb749d62f80077c9a68e
expansions/script/c81008103.lua c7711778ab463d3fa1fa146aafcfcdd3
expansions/script/c81008104.lua 01ad03f2666e4072c55db3790b0756de
expansions/script/c81008105.lua df0bc1a4565371493f3ab7878f017d8f
expansions/script/c81009001.lua c26f73c907b7c3744de11984404b90c5
expansions/script/c81009003.lua 3098ab2b46bcce83b685ec2cf71caadd
expansions/script/c81009004.lua c6879c75696e5999995ea69e3f7ca5f6
expansions/script/c81009005.lua b4c6306ce2436a1d35d37d0c9e492a1a
expansions/script/c81009006.lua cb57a430afaddffb05c77ed629802574
expansions/script/c81009007.lua d22ff9518d398cb72c004d6dec521622
expansions/script/c81009008.lua f0d2ef1881a18ac65956acb7c2fdde43
expansions/script/c81009009.lua ef46d7c294ed27f1dd052ffca05fc141
......@@ -12255,7 +12217,6 @@ expansions/script/c81009014.lua bb51c3598b45d28b2ae3e60ca05a7cc8
expansions/script/c81009015.lua 7b769fdfc1b2a05c2dfe38296c5c4505
expansions/script/c81009016.lua dcebfb4da619ed0cb06b74c710b91f05
expansions/script/c81009017.lua 9400a30b1f4b53a5c54b20ea025347cd
expansions/script/c81009022.lua 871841b4c9582e79568886324250a4c1
expansions/script/c81009023.lua 49ab96f05e0f7859956053289ab6d8bf
expansions/script/c81009024.lua 075c4082ea84502bf5e0f13454b7c0f5
expansions/script/c81009025.lua 753622a87e53f1dfffac2c328f3cd479
......@@ -12268,16 +12229,11 @@ expansions/script/c81010003.lua cf387247730f6b6758423685e0d67b06
expansions/script/c81010004.lua 80d60f04b3544ef647f938656b713608
expansions/script/c81010006.lua a0abe63e342d308f31569324ac80010e
expansions/script/c81010007.lua 76b3b892cc5bc0ca819a704688db961e
expansions/script/c81010008.lua 0711c93dcc53a58a00b94c5680d33bc1
expansions/script/c81010009.lua 7f91f18f52c83d7b416931ce77fd018c
expansions/script/c81010010.lua ceac1fcf93c39dc899eedfcb15203427
expansions/script/c81010011.lua 3ff1b3cd7bb9c813eec654c80d2649ab
expansions/script/c81010012.lua 923553a801d8b41ae23a1fda74c8b5b5
expansions/script/c81010014.lua 41133ba3f967cf698822bd207482c818
expansions/script/c81010015.lua a54cadfc92164b0aca0555798c10a04b
expansions/script/c81010016.lua e85d8be0f92a91e26cbd5dab3cff2910
expansions/script/c81010017.lua 85aa22279620a78436667e6e7ff3bddf
expansions/script/c81010018.lua a287cee46aa988ccff21eddcf466b781
expansions/script/c81010019.lua 5982b4afc56206086e771e8b79a7f2fa
expansions/script/c81010020.lua ae6c1aad68ab550bc8cf6155e68d0109
expansions/script/c81010021.lua 254db1e86ba4b21645d249be415550ae
......@@ -12285,12 +12241,9 @@ expansions/script/c81010022.lua 0f0dd7576b32616c028d19f943aa17f9
expansions/script/c81010023.lua 7a3d52f2d86752e0c5b4faa6a8fb299a
expansions/script/c81010024.lua 1ef70adead95f159d27b7725b4871486
expansions/script/c81010025.lua a67691289ef28cbad0a56bbba7d2f891
expansions/script/c81010026.lua 42aea4651c76291c4991c302deea2b37
expansions/script/c81010027.lua c4291c07dcd5ffb013e8e8f5388a8708
expansions/script/c81010028.lua 72d7f7a217e4a4e9ac55db5065b3d1db
expansions/script/c81010029.lua bc73397a7b5a7fdcf609ae9a0837d4f1
expansions/script/c81010030.lua 2de3e7228ec889784876f9f274c7a315
expansions/script/c81010032.lua 245e2f8cb71803659ff57f86399e4640
expansions/script/c81010033.lua 3beacd5496b0265a741c400965bb20ba
expansions/script/c81010034.lua 89ff7838d056951252e8a3955424cdc1
expansions/script/c81010035.lua 825641e968970060f7d7a0e127f2225b
......@@ -12302,7 +12255,6 @@ expansions/script/c81010043.lua 4e3e42448f46b9153e5a2acaaad0abd5
expansions/script/c81010045.lua afef252594368a01b40e34b5a20a64a4
expansions/script/c81010046.lua 5a0ae7bfa604b3c30d140faa40ce668c
expansions/script/c81010047.lua 6f723d923bb8e6a4118e0c7f2f4f653e
expansions/script/c81010048.lua cf8995471f5924326f20b9f8f2d5cc23
expansions/script/c81010049.lua 0138b91bd48780150e17be5a1dad547a
expansions/script/c81010050.lua a7dae8d8350d47acd62c508d80b77ed1
expansions/script/c81010051.lua 3a0e790ff7cabaccd285da9664a39678
......@@ -12311,7 +12263,6 @@ expansions/script/c81010053.lua 91051d9537dc5e367a65e6ab7e74f3a9
expansions/script/c81010054.lua 8cced57ae64a5e202dcb30da2a5c8b10
expansions/script/c81010055.lua 958135fd57d825d9b3982fb8b8fb995b
expansions/script/c81010056.lua 84bae1ab4b8bdee86476200016fc3eab
expansions/script/c81010057.lua c1d19c0dbe6950612d55bb9abc6459fd
expansions/script/c81010058.lua ebbb0ad435df4cc9052daa0306f53ba6
expansions/script/c81010059.lua 2b69ef627bed789ba93cd818d3a23ab3
expansions/script/c81011001.lua 40f42ed8fc4ecba45c5e3798708ace30
......@@ -12321,10 +12272,8 @@ expansions/script/c81011005.lua 4936c288eddeb6ea0bf210db929ba807
expansions/script/c81011006.lua ce7ea1406f72ea83647e029d8b9dc716
expansions/script/c81011007.lua 7d74ec16c1a8f74f838e804b29193d15
expansions/script/c81011009.lua c18d8b856277752ad337c628048566c0
expansions/script/c81011010.lua d250bd2c77645b4efff28822e1325b2a
expansions/script/c81011011.lua 70b34dd25eacd2c83056214f5259d6af
expansions/script/c81011013.lua c7237bc6ce7f5af6269099671679c069
expansions/script/c81011014.lua 06f85abfd95a1b5da93389478927214a
expansions/script/c81011016.lua 7336095f890c4effd7aa28ceaf254458
expansions/script/c81011017.lua 94a0a24cc2a3c359502ccfd0748e3f6e
expansions/script/c81011018.lua d430dcf08f1dcffbd519c58f79570e28
......@@ -12338,7 +12287,6 @@ expansions/script/c81011026.lua c942d5d60622dfeb6e5cda15a8bff098
expansions/script/c81011027.lua 52ce7daa15c6fbd3b31b1efc24bf38a8
expansions/script/c81011028.lua 1e423163b39c587a2ee5fcd4f1929ea7
expansions/script/c81011029.lua d4b6226a81938ab7f8b7d8869d064bc0
expansions/script/c81011030.lua d63ad18603af18b1314c46072e4a8b84
expansions/script/c81011031.lua c9d39fd6b3d13d6bb777a78576973628
expansions/script/c81011032.lua 4d9d011fc2274e3a4a2a6698b90f006e
expansions/script/c81011033.lua 6fc10aa3d4570b8c123e2c1d7f04f2e1
......@@ -12355,7 +12303,6 @@ expansions/script/c81011107.lua 481b67021600f10ae3581f4640eec3de
expansions/script/c81011109.lua a7b958d4dbd95e0077398ffcd0fde0a4
expansions/script/c81011110.lua 3f3b555b3a599dd43dda0fd31eb57367
expansions/script/c81011111.lua 96e98165ba9c874ddbcdf32274632eaf
expansions/script/c81011112.lua 1b59d3cfe2c9f3cb83f7ac8147e8fa84
expansions/script/c81011113.lua f3f41bb9f3b314efe3dc431d54b6b922
expansions/script/c81011114.lua f0e72d6d1e2ccc373e845206969e6479
expansions/script/c81011115.lua 522cf64680e1a76d3321f82de78d9753
......@@ -12476,8 +12423,6 @@ expansions/script/c81014016.lua 7d86d6ace036617d0511549f9677d3d7
expansions/script/c81014017.lua 042d259416e24eea41f80ad055eb78ee
expansions/script/c81014019.lua 3b5239381f6172fc8749c385699fa047
expansions/script/c81014020.lua c0288a5c73b27c67747b1361f7b5244e
expansions/script/c81014021.lua 63138d290a3f9dc5f5cf5493bc49bc6a
expansions/script/c81014027.lua e29b72b0a5349ff9b152850690d4c3f9
expansions/script/c81014028.lua 81d5b492c3b97fa2a1719ecc841b28aa
expansions/script/c81014029.lua 14a5baccf20cde776f83296564bcc9db
expansions/script/c81014031.lua 4b4fa524e34a446d3651def94c99e399
......@@ -12485,7 +12430,6 @@ expansions/script/c81014033.lua 5e8841d3e5caa2acc6fdbcd488c837ab
expansions/script/c81014034.lua c73992834734ccc71ed5330a2a0164d7
expansions/script/c81014035.lua 5acd1f41be877d5375ab3fd59f234abf
expansions/script/c81014036.lua dd4ae87adade3036258e5ff8a317ee68
expansions/script/c81014037.lua 1d62f31a43e51c6ed7d5c5456222871c
expansions/script/c81014038.lua fa6387bd0e6f5021f28fa5616636fa17
expansions/script/c81014039.lua 4c8f696c0918796fc9552172dbdfe7fb
expansions/script/c81014040.lua ab993c77ac6a0bab391442c0cbad9e0d
......@@ -12621,7 +12565,6 @@ expansions/script/c81019012.lua a0c7472396a4203818c5814642b7dc03
expansions/script/c81019013.lua b898e3c30dd05aee5e0db8fe7e412516
expansions/script/c81019014.lua 2f0c507349bb95c8d58f6cf9e7319e1b
expansions/script/c81019017.lua 84c9119c5483ce0c0266873e14dd23f7
expansions/script/c81019020.lua c743576d56e427cc3a749be178563e7b
expansions/script/c81019021.lua 4f97c42c9c51ff2f3623be80629a8262
expansions/script/c81019029.lua b30fba806b70572781388f4ebad1a835
expansions/script/c81022000.lua 2b7f045da84546cc672cee44d131e6e7
......@@ -13399,10 +13342,10 @@ sound/custom/yata_effe01.wav edf949c75a32c7b91f6029a6e6640ea6
sound/custom/yata_summon.wav 17b569892284748d19f441e6972d6cce
sound/custom/出场.wav 3f039c09531dfb96d3e637bfc1ed49ed
update/delete.txt bcae307f6039207f11b4daa83f17c0ec
update/filelist.txt 7a1c61e1f07e51f81b89b611642c4c30
update/filelist.txt 35f8e520775933046d3784ad5661bdc6
update/rename.txt c4625b442bf8f5c2e7ce4deb512d4671
update/update-push.bat 686b01a51bba916202d61d951cd7fe3e
update/update-push.sh d018a223f65feef3467b22e252468f53
update/update-server.sh 6f1cdc3e06ec58b37b14b5d9d167263c
update/update-without-sound.bat 1c2cfda2a0501642c8bceae026a73d5b
update/version.txt 963dce3191776889f5b43483fba96e74
update/version.txt dc9668438fc716cc24c371dbca5dedf5
update/version.txt
View file @ e019bf2e
2019/9/9 21:35:56
\ No newline at end of file
2019/9/10 13:21:38
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment