Commit 9f4eadb3 authored by root's avatar root

Refresh on 2025-05-13 16:48:10

parent 275587d6
......@@ -50,7 +50,7 @@ function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function s.filter(c)
return (c:IsCode(6186304) or c:IsCode(8698851) or c:IsCode(9201964) or c:IsCode(26841274) or c:IsCode(43405287) or c:IsCode(48032131) or c:IsCode(62868900) or c:IsCode(74329404) or c:IsCode(89899996) or c:IsCode(99075257) or c:IsCode(22147147) or c:IsCode(32671443) or c:IsCode(45809008) or c:IsCode(52947044) or c:IsCode(53527835) or c:IsCode(72204747) or c:IsCode(75041269) or c:IsCode(4008212) or c:IsCode(15294090) or c:IsCode(35464895) or c:IsCode(114514107)) and c:IsAbleToHand()
return c:IsCode(114514608,114514687,191981158,191981159,191981160,6186304,8698851,9201964,26841274,43405287,48032131,62868900,74329404,89899996,99075257,22147147,32671443,45809008,52947044,53527835,72204747,75041269,4008212,15294090,35464895,114514107) and c:IsAbleToHand()
end
function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
......@@ -65,12 +65,15 @@ function s.thop(e,tp,eg,ep,ev,re,r,rp)
end
end
function s.tgfilter(c)
return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xc008) and c:IsAbleToGrave()
return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xc008) and (c:IsAbleToHand() or c:IsAbleToGrave())
end
function s.tgop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
local tc=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
if tc:GetCount()>0 and tc:IsAbleToHand() and Duel.SelectYesNo(tp,aux.Stringid(id,0)) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
else
Duel.SendtoGrave(tc,REASON_EFFECT)
end
end
\ No newline at end of file
......@@ -70,7 +70,7 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
end
end
function s.tdfilter(c)
return c:IsFaceup() and c:IsAbleToDeck() and (c:IsCode(76263644) or c:IsSetCard(0x8))
return c:IsFaceup() and c:IsAbleToDeck() and (c:IsCode(76263644) or c:IsSetCard(0x8)) and c:IsType(TYPE_MONSTER)
end
function s.rfilter(c)
return c:IsFaceup() and (c:IsCode(76263644) or c:IsSetCard(0xc008) and c:IsLevelAbove(8))
......@@ -88,6 +88,6 @@ function s.tdop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local tg=g:Filter(Card.IsRelateToEffect,nil,e)
if tg:GetCount()>0 then
Duel.SendtoDeck(tc,nil,SEQ_DECKBOTTOM,REASON_EFFECT)
Duel.SendtoDeck(tg,nil,SEQ_DECKBOTTOM,REASON_EFFECT)
end
end
\ No newline at end of file
......@@ -27,7 +27,7 @@ function s.initial_effect(c)
c:RegisterEffect(e3)
end
function s.eqfilter(c)
return c:IsAbleToChangeControler() and c:IsLocation(LOCATION_MZONE) or not c:IsForbidden() and c:IsLocation(LOCATION_GRAVE)
return c:IsAbleToChangeControler() and c:IsLocation(LOCATION_MZONE) or not c:IsForbidden() and c:IsLocation(LOCATION_GRAVE) and c:IsType(TYPE_MONSTER)
end
function s.tgfilter(c)
return c:IsFaceup()
......
--电子鱼人-探索者
function c1994370.initial_effect(c)
-- ① 效果:召唤·特殊召唤成功时发动
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DRAW+CATEGORY_TODECK)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,1994370)
e1:SetTarget(c1994370.tgtg)
e1:SetOperation(c1994370.tgop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
-- ② 效果:将墓地的这张卡除外,使1只怪兽视为调整
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_TUNER)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_GRAVE)
e3:SetCountLimit(1,19943701)
e3:SetCost(c1994370.tuncost)
e3:SetTarget(c1994370.tuntg)
e3:SetOperation(c1994370.tunop)
c:RegisterEffect(e3)
end
-- ① 效果:目标设置
function c1994370.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
return Duel.IsExistingMatchingCard(c1994370.tgfilter,tp,LOCATION_DECK,0,1,nil)
end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
end
-- ① 效果:执行操作
function c1994370.tgop(e,tp,eg,ep,ev,re,r,rp)
-- 从卡组送墓1只「电子鱼人」怪兽
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c1994370.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
if #g>0 and Duel.SendtoGrave(g,REASON_EFFECT)>0 then
-- 询问玩家是否执行后续效果
if Duel.SelectYesNo(tp,aux.Stringid(1994370,0)) then
-- 抽1张卡
if Duel.Draw(tp,1,REASON_EFFECT)>0 then
-- 选1张手卡放回卡组最上方
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,1,nil)
if #sg>0 then
Duel.SendtoDeck(sg,nil,0,REASON_EFFECT)
end
end
end
end
end
-- ① 效果:送墓过滤函数
function c1994370.tgfilter(c)
return c:IsSetCard(0x96) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
end
-- ② 效果:除外自身作为代价
function c1994370.tuncost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
end
-- ② 效果:目标设置
function c1994370.tuntg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil)
end
-- ② 效果:执行操作
function c1994370.tunop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsFaceup() then
-- 视为调整
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_ADD_TYPE)
e1:SetValue(TYPE_TUNER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
end
end
\ No newline at end of file
-- 电子鱼人-抓取者
function c1994371.initial_effect(c)
-- 同调素材限制
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_SYNCHRO_MATERIAL_CUSTOM)
e0:SetOperation(c1994371.syncheck)
c:RegisterEffect(e0)
-- ① 效果:从墓地特殊召唤
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_GRAVE)
e1:SetCountLimit(1,1994371)
e1:SetCost(c1994371.spcost)
e1:SetTarget(c1994371.sptg)
e1:SetOperation(c1994371.spop)
c:RegisterEffect(e1)
-- ② 效果:被送去墓地时回收鱼族怪兽
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_TO_GRAVE)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,19943711)
e2:SetTarget(c1994371.thtg)
e2:SetOperation(c1994371.thop)
c:RegisterEffect(e2)
end
-- 同调素材限制:其他素材必须是水属性
function c1994371.syncheck(g,lc,tp)
return g:FilterCount(Card.IsAttribute,nil,ATTRIBUTE_WATER)==g:GetCount()-1
end
-- ① 效果:除外水属性以外的怪兽作为代价
function c1994371.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c1994371.costfilter,tp,LOCATION_GRAVE,0,1,nil) end
local g=Duel.GetMatchingGroup(c1994371.costfilter,tp,LOCATION_GRAVE,0,nil)
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
-- ① 效果:目标设置
function c1994371.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
-- ① 效果:执行特殊召唤
function c1994371.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
-- ① 效果:除外过滤函数
function c1994371.costfilter(c)
return not c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToRemoveAsCost() and c:IsType(TYPE_MONSTER)
end
-- ② 效果:目标设置
function c1994371.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c1994371.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
end
-- ② 效果:执行回收
function c1994371.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c1994371.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
if #g>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
-- ② 效果:回收过滤函数
function c1994371.thfilter(c)
return c:IsRace(RACE_FISH) and c:IsAbleToHand()
end
\ No newline at end of file
-- 白斗气虎鲸
function c1994374.initial_effect(c)
-- 同调召唤
aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),aux.NonTuner(Card.IsAttribute,ATTRIBUTE_WATER),1)
c:EnableReviveLimit()
-- ① 效果:改变对方怪兽的效果
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(1994374,0))
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_CHAINING)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,1994374)
e1:SetCondition(c1994374.condition1)
e1:SetTarget(c1994374.target1)
e1:SetOperation(c1994374.operation1)
c:RegisterEffect(e1)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(5614808,1))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_TO_GRAVE)
e2:SetCondition(c1994374.condition)
e2:SetCost(c1994374.cost)
e2:SetTarget(c1994374.target)
e2:SetOperation(c1994374.operation)
c:RegisterEffect(e2)
end
-- ① 效果:发动条件
function c1994374.condition1(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp and re:IsActiveType(TYPE_MONSTER)
end
-- ① 效果:目标设置
function c1994374.target1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
end
-- ① 效果:执行操作
function c1994374.operation1(e,tp,eg,ep,ev,re,r,rp)
local g=Group.CreateGroup()
Duel.ChangeTargetCard(ev,g)
Duel.ChangeChainOperation(ev,c1994374.repop)
end
-- ① 效果:替换效果
function c1994374.repop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_DESTROY)
local g=Duel.SelectMatchingCard(1-tp,c1994374.filter,tp,0,LOCATION_MZONE,1,1,nil)
if #g>0 then
Duel.Destroy(g,REASON_EFFECT)
end
end
-- ① 效果:过滤函数
function c1994374.filter(c)
return c:IsRace(RACE_FISH) and c:IsFaceup()
end
function c1994374.condition(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return rp==1-tp and c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT)
end
function c1994374.cfilter(c)
return c:IsAttribute(ATTRIBUTE_WATER) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
end
function c1994374.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c1994374.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c1994374.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function c1994374.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c1994374.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_ADD_TYPE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(TYPE_TUNER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
end
Duel.SpecialSummonComplete()
end
\ No newline at end of file
--魊影潜猎 斯多米得
local s,id,o=GetID()
function s.initial_effect(c)
-- ① 效果:双方回合,除外手卡的这张卡和1只鱼族怪兽,改变送墓规则
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,1994375)
e1:SetCost(c1994375.cost1)
e1:SetOperation(c1994375.operation1)
c:RegisterEffect(e1)
--spsummon self
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_REMOVE)
e2:SetOperation(s.spreg)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(1994375,1))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e3:SetRange(LOCATION_REMOVED)
e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
e3:SetCountLimit(1,19943751)
e3:SetCondition(s.spcon)
e3:SetTarget(s.sptg)
e3:SetOperation(s.spop)
e3:SetLabelObject(e2)
c:RegisterEffect(e3)
--synchro
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(id,2))
e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetCountLimit(1,19943752)
e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
e4:SetCondition(c1994375.syncon)
e4:SetTarget(c1994375.syntg)
e4:SetOperation(c1994375.synop)
c:RegisterEffect(e4)
end
-- ① 效果:除外手卡的这张卡和1只鱼族怪兽作为代价
function c1994375.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToRemove()
and Duel.IsExistingMatchingCard(c1994375.costfilter,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c1994375.costfilter,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE,0,1,1,nil)
g:AddCard(e:GetHandler())
Duel.Remove(g,POS_FACEUP,REASON_COST)
end
function c1994375.operation1(e,tp,eg,ep,ev,re,r,rp)
-- 改变送墓规则
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetCode(EFFECT_TO_GRAVE_REDIRECT)
e1:SetTargetRange(LOCATION_ONFIELD+LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA)
e1:SetValue(LOCATION_REMOVED)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
-- ① 效果:除外过滤函数
function c1994375.costfilter(c)
return c:IsRace(RACE_FISH) and c:IsAbleToRemove() and not c:IsCode(1994375)
end
function c1994375.spreg(e,tp,eg,ep,ev,re,r,rp)
local ct=Duel.GetTurnCount()
e:SetLabel(ct)
e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,2)
end
function c1994375.spcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetLabelObject():GetLabel()~=Duel.GetTurnCount() and e:GetHandler():GetFlagEffect(id)>0
end
function c1994375.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
end
function c1994375.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
function c1994375.syncon(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
and e:GetHandler():IsStatus(STATUS_SPSUMMON_TURN)
end
function c1994375.sfilter(c,tc)
return c:IsRace(RACE_FISH) and c:IsSynchroSummonable(tc)
end
function c1994375.syntg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c1994375.sfilter,tp,LOCATION_EXTRA,0,1,nil,e:GetHandler()) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c1994375.synop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsControler(1-tp) or not c:IsRelateToEffect(e) or c:IsFacedown() then return end
local g=Duel.GetMatchingGroup(s.sfilter,tp,LOCATION_EXTRA,0,nil,c)
if #g>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sc=g:Select(tp,1,1,nil):GetFirst()
Duel.SynchroSummon(tp,sc,c)
end
end
\ No newline at end of file
--魊影伪幻 米弥阔提普斯
local s,id,o=GetID()
function s.initial_effect(c)
-- ① 效果:双方回合,除外手卡·场上的这张卡,从卡组除外1只鱼族怪兽
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND+LOCATION_MZONE)
e1:SetCountLimit(1,1994376)
e1:SetCost(c1994376.cost1)
e1:SetTarget(c1994376.target1)
e1:SetOperation(c1994376.operation1)
c:RegisterEffect(e1)
--spsummon self
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_REMOVE)
e2:SetOperation(s.spreg)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(1994376,1))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e3:SetRange(LOCATION_REMOVED)
e3:SetCode(EVENT_PHASE+PHASE_STANDBY)
e3:SetCountLimit(1,19943761)
e3:SetCondition(s.spcon)
e3:SetTarget(s.sptg)
e3:SetOperation(s.spop)
e3:SetLabelObject(e2)
c:RegisterEffect(e3)
--synchro
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(id,2))
e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE)
e4:SetCountLimit(1,19943762)
e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
e4:SetCondition(c1994376.syncon)
e4:SetTarget(c1994376.syntg)
e4:SetOperation(c1994376.synop)
c:RegisterEffect(e4)
end
-- ① 效果:除外手卡·场上的这张卡作为代价
function c1994376.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:IsAbleToRemove() end
Duel.Remove(c,POS_FACEUP,REASON_COST)
end
-- ① 效果:目标设置
function c1994376.target1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c1994376.rmfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK)
end
-- ① 效果:执行操作
function c1994376.operation1(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c1994376.rmfilter,tp,LOCATION_DECK,0,1,1,nil)
if #g>0 then
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end
end
-- ① 效果:除外过滤函数
function c1994376.rmfilter(c)
return c:IsRace(RACE_FISH) and c:IsAbleToRemove() and not c:IsCode(1994376)
end
function c1994376.spreg(e,tp,eg,ep,ev,re,r,rp)
local ct=Duel.GetTurnCount()
e:SetLabel(ct)
e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,2)
end
function c1994376.spcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetLabelObject():GetLabel()~=Duel.GetTurnCount() and e:GetHandler():GetFlagEffect(id)>0
end
function c1994376.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
end
function c1994376.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
function c1994376.syncon(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase()
return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
and e:GetHandler():IsStatus(STATUS_SPSUMMON_TURN)
end
function c1994376.sfilter(c,tc)
return c:IsRace(RACE_FISH) and c:IsSynchroSummonable(tc)
end
function c1994376.syntg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c1994376.sfilter,tp,LOCATION_EXTRA,0,1,nil,e:GetHandler()) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c1994376.synop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsControler(1-tp) or not c:IsRelateToEffect(e) or c:IsFacedown() then return end
local g=Duel.GetMatchingGroup(c1994376.sfilter,tp,LOCATION_EXTRA,0,nil,c)
if #g>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sc=g:Select(tp,1,1,nil):GetFirst()
Duel.SynchroSummon(tp,sc,c)
end
end
\ No newline at end of file
--审判之代行者 萨图恩
function c1994381.initial_effect(c)
aux.AddCodeList(c,56433456)
Duel.AddCustomActivityCounter(1994381,ACTIVITY_CHAIN,c1994381.chainfilter)
Duel.AddCustomActivityCounter(1994382,ACTIVITY_CHAIN,c1994381.chainfilter2)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(1994381,0))
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,1994381)
e1:SetCost(c1994381.setcost)
e1:SetTarget(c1994381.settg)
e1:SetCondition(c1994381.con)
e1:SetOperation(c1994381.setop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetHintTiming(0,TIMING_SSET+TIMING_EQUIP+TIMING_END_PHASE)
e2:SetCondition(c1994381.scon)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_PAY_LPCOST)
e3:SetRange(LOCATION_GRAVE)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCountLimit(1,1994381+1994381)
e3:SetCondition(c1994381.sscon)
e3:SetTarget(c1994381.sstg)
e3:SetOperation(c1994381.ssop)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_DISCARD)
e4:SetRange(LOCATION_GRAVE)
e4:SetProperty(EFFECT_FLAG_DELAY)
e4:SetCountLimit(1,1994381+1994381+1994381)
e4:SetCondition(c1994381.sscon2)
e4:SetTarget(c1994381.sstg2)
e4:SetOperation(c1994381.ssop2)
c:RegisterEffect(e4)
end
function c1994381.chainfilter(re,tp,cid)
local rc=re:GetHandler()
return not rc:IsCode(56433456)
end
function c1994381.chainfilter2(re,tp,cid)
local rc=re:GetHandler()
return not rc:IsCode(1994381)
end
function c1994381.setfilter(c)
return aux.IsCodeListed(c,56433456) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
end
function c1994381.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:IsDiscardable() end
Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
end
function c1994381.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c1994381.setfilter,tp,LOCATION_DECK,0,1,nil) end
end
function c1994381.setop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,c1994381.setfilter,tp,LOCATION_DECK,0,1,1,nil)
local tc=g:GetFirst()
if tc and Duel.SSet(tp,tc)~=0 then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetDescription(aux.Stringid(1994381,0))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
end
function c1994381.con(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCustomActivityCount(1994382,tp,ACTIVITY_CHAIN)<1 or Duel.GetCustomActivityCount(1994381,tp,ACTIVITY_CHAIN)>0
end
function c1994381.scon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsEnvironment(56433456,PLAYER_ALL,LOCATION_ONFIELD) and (Duel.GetCustomActivityCount(1994382,tp,ACTIVITY_CHAIN)<1 or Duel.GetCustomActivityCount(1994381,tp,ACTIVITY_CHAIN)>0)
end
function c1994381.sscon(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetCustomActivityCount(1994382,tp,ACTIVITY_CHAIN)<1 or Duel.GetCustomActivityCount(1994381,tp,ACTIVITY_CHAIN)>0 then
if not tp==ep and re and re:IsActivated() then return false end
local rc=re:GetHandler()
if rc:IsRelateToEffect(re) and rp==tp then
return rc:IsRace(RACE_FAIRY) or rc:IsType(TYPE_COUNTER)
else
return (rc:GetPreviousRaceOnField()&RACE_FAIRY~=0) or rc:IsType(TYPE_COUNTER)
end
end
end
function c1994381.sstg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
end
function c1994381.ssop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
if aux.NecroValleyNegateCheck(c) then return end
if not aux.NecroValleyFilter()(c) then return end
local b1=c:IsAbleToHand()
local b2=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
Duel.Recover(tp,500,REASON_EFFECT)
end
function c1994381.sscon2(e,tp,eg,ep,ev,re,r,rp)
if not (Duel.GetCustomActivityCount(1994382,tp,ACTIVITY_CHAIN)<1 or Duel.GetCustomActivityCount(1994381,tp,ACTIVITY_CHAIN)>0) then return end
if not re then return false end
local rc=re:GetHandler()
return rp==tp and r&REASON_COST>0
and (rc:IsRace(RACE_FAIRY) and not rc:IsCode(1994381) or re:IsHasType(EFFECT_TYPE_ACTIVATE) and rc:GetType()==TYPE_COUNTER)
and eg:IsExists(Card.IsPreviousLocation,1,nil,LOCATION_HAND) and not eg:IsContains(e:GetHandler())
end
function c1994381.sstg2(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c1994381.ssop2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
if aux.NecroValleyNegateCheck(c) then return end
if not aux.NecroValleyFilter()(c) then return end
local b1=c:IsAbleToHand()
local b2=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
Duel.Draw(tp,1,REASON_EFFECT)
end
\ No newline at end of file
--暴行之代行者 玛尔斯
function c1994382.initial_effect(c)
aux.AddCodeList(c,56433456)
c:SetSPSummonOnce(1994382)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e1:SetCondition(c1994382.spcon)
c:RegisterEffect(e1)
--immune effect
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_IMMUNE_EFFECT)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(LOCATION_MZONE,0)
e2:SetCondition(c1994382.indcon)
e2:SetTarget(c1994382.indtg)
e2:SetValue(c1994382.efilter)
c:RegisterEffect(e2)
--to grave
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(1994382,0))
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetCountLimit(1,1994382)
e3:SetTarget(c1994382.tgtg)
e3:SetOperation(c1994382.tgop)
c:RegisterEffect(e3)
end
function c1994382.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.GetLP(tp)<Duel.GetLP(1-tp)
end
function c1994382.indcon(e)
return Duel.IsEnvironment(56433456)
end
function c1994382.indtg(e,c)
return c:IsRace(RACE_FAIRY)
end
function c1994382.efilter(e,re)
return e:GetHandlerPlayer()~=re:GetOwnerPlayer() and re:IsActivated() and re:IsActiveType(TYPE_TRAP)
end
function c1994382.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLP(tp)<Duel.GetLP(1-tp) end
end
function c1994382.tgop(e,tp,eg,ep,ev,re,r,rp)
Duel.SetLP(1-tp,Duel.GetLP(tp))
end
--愚慧的代行者 墨丘利
function c1994383.initial_effect(c)
aux.AddCodeList(c,56433456)
c:SetSPSummonOnce(1994383)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e1:SetCondition(c1994383.spcon)
c:RegisterEffect(e1)
--draw
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(1994383,0))
e2:SetCategory(CATEGORY_DRAW)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetCountLimit(1,1994383)
e2:SetTarget(c1994383.drtg)
e2:SetOperation(c1994383.drop)
c:RegisterEffect(e2)
end
function c1994383.spfilter(c)
return c:IsFaceup() and c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_DARK)
end
function c1994383.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c1994383.spfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c1994383.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local drawCount=1
if Duel.IsEnvironment(56433456) then
drawCount=2
end
return Duel.IsPlayerCanDraw(tp,drawCount)
end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(1)
if Duel.IsEnvironment(56433456) then
Duel.SetTargetParam(2)
end
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
if Duel.IsEnvironment(56433456) then
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
end
end
function c1994383.drop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Draw(p,d,REASON_EFFECT)
end
\ No newline at end of file
--命定之代行者 朱庇特
function c1994384.initial_effect(c)
aux.AddCodeList(c,56433456)
--summon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(1994384,0))
e1:SetCategory(CATEGORY_SUMMON)
e1:SetCountLimit(1,1994384)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetTarget(c1994384.sumtg)
e1:SetOperation(c1994384.sumop)
c:RegisterEffect(e1)
--spsummon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(1994384,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_REMOVE)
e2:SetCountLimit(1,1994384+1994384)
e2:SetCost(c1994384.con)
e2:SetTarget(c1994384.target)
e2:SetOperation(c1994384.operation)
c:RegisterEffect(e2)
end
function c1994384.filter(c)
return c:IsRace(RACE_FAIRY) and c:IsSummonable(true,nil)
end
function c1994384.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c1994384.filter,tp,LOCATION_HAND,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
end
function c1994384.sumop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
local g=Duel.SelectMatchingCard(tp,c1994384.filter,tp,LOCATION_HAND,0,1,1,nil)
if g:GetCount()>0 then
Duel.Summon(tp,g:GetFirst(),true,nil)
end
end
function c1994384.con(e)
return Duel.IsEnvironment(56433456)
end
function c1994384.target(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
end
function c1994384.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
\ No newline at end of file
--生之代行者 乌拉诺斯
function c19943845.initial_effect(c)
aux.AddCodeList(c,56433456)
c:SetSPSummonOnce(19943845)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e1:SetCondition(c19943845.spcon)
c:RegisterEffect(e1)
--to deck+spsummon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(19943845,0))
e2:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetCountLimit(1,19943845)
e2:SetTarget(c19943845.tstg)
e2:SetOperation(c19943845.tsop)
c:RegisterEffect(e2)
end
function c19943845.spcon(e,c)
return Duel.IsEnvironment(56433456)
end
function c19943845.tgfilter(c,e,tp)
return c:IsRace(RACE_FAIRY) and c:IsLevelAbove(1)
and Duel.IsExistingMatchingCard(c19943845.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetLevel(),c:GetCode())
end
function c19943845.spfilter(c,e,tp,lv,code)
return c:IsSetCard(0x44) and c:IsLevel(lv)
and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
end
function c19943845.tstg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c19943845.tgfilter(chkc,e,tp) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingTarget(c19943845.tgfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
local g=Duel.SelectTarget(tp,c19943845.tgfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c19943845.tsop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsRelateToEffect(e) and tc:IsFaceup() then
local lv=tc:GetLevel()
Duel.SendtoDeck(tc,tp,2,REASON_EFFECT)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c19943845.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,lv,code)
local tc=g:GetFirst()
if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetValue(RESET_TURN_SET)
tc:RegisterEffect(e2)
Duel.SpecialSummonComplete()
end
end
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetTargetRange(1,0)
e2:SetReset(RESET_PHASE+PHASE_END)
e2:SetTarget(c19943845.splimit)
Duel.RegisterEffect(e2,tp)
end
\ No newline at end of file
-- Card: 幻变骚灵陷阱怪兽 (ID: 199439940)
function c199439940.initial_effect(c)
-- Activate (Special Summon as Monster)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,199439940+EFFECT_COUNT_CODE_OATH)
e1:SetTarget(c199439940.target)
e1:SetOperation(c199439940.activate)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e2:SetCondition(c199439940.actcon)
c:RegisterEffect(e2)
-- Effect ②: Set 1 Trap from Deck when "幻变骚灵" monster is summoned
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(199439940,1))
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SUMMON_SUCCESS)
e3:SetRange(LOCATION_MZONE)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCountLimit(1)
e3:SetCondition(c199439940.setcon2)
e3:SetTarget(c199439940.settg)
e3:SetOperation(c199439940.setop)
c:RegisterEffect(e3)
local e4=e3:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e4)
end
function c199439940.cfilter(c)
return c:IsSetCard(0x103)
end
function c199439940.actcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c199439940.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
end
-- Effect ①: Target
function c199439940.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
return e:IsCostChecked()
and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,199439940,0x103,TYPES_EFFECT_TRAP_MONSTER,1500,1600,4,RACE_SPELLCASTER,ATTRIBUTE_FIRE)
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
-- Effect ①: Activate
function c199439940.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not Duel.IsPlayerCanSpecialSummonMonster(tp,199439940,0x103,TYPES_EFFECT_TRAP_MONSTER,1500,1600,4,RACE_SPELLCASTER,ATTRIBUTE_LIGHT) then return end
c:AddMonsterAttribute(TYPE_TRAP+TYPE_EFFECT)
Duel.SpecialSummon(c,SUMMON_VALUE_SELF,tp,tp,true,false,POS_FACEUP)
end
function c199439940.setcon2(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c199439940.cfilter,1,nil,tp) and not eg:IsContains(e:GetHandler())
end
function c199439940.setfilter(c)
return not c:IsCode(199439940) and c:IsSetCard(0x103) and c:IsType(TYPE_TRAP) and c:IsSSetable() or c:IsCode(53936268)
end
function c199439940.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c199439940.setfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c199439940.setop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,c199439940.setfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SSet(tp,g:GetFirst())
end
end
\ No newline at end of file
--机界之圣像骑士
function c199440.initial_effect(c)
-- 特殊召唤
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetRange(LOCATION_HAND)
e1:SetTargetRange(POS_FACEUP_DEFENSE,0)
e1:SetCountLimit(1,199440+EFFECT_COUNT_CODE_OATH)
e1:SetCondition(c199440.hspcon)
e1:SetValue(c199440.hspval)
c:RegisterEffect(e1)
-- 检索
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(199440,1))
e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetCountLimit(1,1994400)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetTarget(c199440.thtg)
e2:SetOperation(c199440.thop)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e3)
-- 衍生物
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(199440,0))
e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_BE_MATERIAL)
e4:SetCountLimit(1,1994401)
e4:SetCondition(c199440.thcon)
e4:SetTarget(c199440.target)
e4:SetOperation(c199440.operation)
c:RegisterEffect(e4)
end
function c199440.cfilter(c)
return c:GetColumnGroupCount()>0
end
function c199440.hspcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local zone=Duel.GetLinkedZone(tp)
-- 额外添加:检查是否有至少 2 张卡在相同纵列
local lg=Duel.GetMatchingGroup(c199440.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
if lg:GetCount()==0 then return false end -- 如果没有符合条件的纵列,则无法特招
return Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
end
function c199440.hspval(e,c)
return 0,Duel.GetLinkedZone(c:GetControler()) -- 只能特招到连接端
end
function c199440.filter(c)
return c:IsType(TYPE_MONSTER) and (c:IsSetCard(0x10c) or c:IsSetCard(0x116))
end
function c199440.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c199440.filter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c199440.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c199440.filter,tp,LOCATION_DECK,0,1,1,nil)
if #g>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
function c199440.thcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsLocation(LOCATION_GRAVE) and r==REASON_LINK
end
function c199440.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,tp,0)
end
function c199440.operation(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,46647145,0xfe,TYPES_TOKEN_MONSTER,0,0,1,RACE_MACHINE,
ATTRIBUTE_DARK,POS_FACEUP_ATTACK,1-tp) then
local token=Duel.CreateToken(tp,46647145)
Duel.SpecialSummon(token,0,tp,1-tp,false,false,POS_FACEUP_ATTACK)
end
end
\ No newline at end of file
-- 机痕之圣像骑士
function c199442.initial_effect(c)
-- 连接召唤条件
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2,3,c199442.lcheck)
c:EnableReviveLimit()
-- 效果①:攻击力上升
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c199442.atkval)
c:RegisterEffect(e1)
-- 效果②:连接区怪兽不能攻击
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_CANNOT_ATTACK)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e2:SetTarget(c199442.antg)
c:RegisterEffect(e2)
-- 效果③:连接区有效果怪兽特殊召唤时触发
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(199442,0)) -- 效果描述
e3:SetCategory(CATEGORY_SPECIAL_SUMMON) -- 效果分类
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) -- 效果类型
e3:SetCode(EVENT_SPSUMMON_SUCCESS) -- 触发条件:特殊召唤成功时
e3:SetRange(LOCATION_MZONE) -- 效果范围:场上
e3:SetCountLimit(1,199442) -- 1回合1次限制
e3:SetCondition(c199442.spcon) -- 发动条件
e3:SetTarget(c199442.sptg) -- 效果目标
e3:SetOperation(c199442.spop) -- 效果处理
c:RegisterEffect(e3)
end
function c199442.lcheck(g,lc)
return g:IsExists(Card.IsLinkSetCard,1,nil,0x116)
end
-- 效果①:攻击力上升
function c199442.atkval(e,c)
local g=e:GetHandler():GetLinkedGroup():Filter(Card.IsFaceup,nil)
return g:GetSum(Card.GetBaseAttack)
end
-- 效果②:连接区怪兽不能攻击
function c199442.antg(e,c)
return e:GetHandler():GetLinkedGroup():IsContains(c)
end
-- 效果③的发动条件
function c199442.spcon(e,tp,eg,ep,ev,re,r,rp)
-- 检查是否有怪兽在连接区特殊召唤
local c=e:GetHandler()
local lg=c:GetLinkedGroup()
return eg:IsExists(c199442.cfilter,1,nil,lg)
end
-- 效果③的过滤器
function c199442.cfilter(c,lg)
return c:IsType(TYPE_EFFECT) and lg:IsContains(c)
end
-- 效果③的目标设置
function c199442.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c199442.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
-- 效果③的处理
function c199442.spop(e,tp,eg,ep,ev,re,r,rp)
-- 从卡组特殊召唤1只「星遗物」怪兽
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c199442.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
if #g>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
-- 让玩家选择是否将这张卡移动到主要怪兽区域
local c=e:GetHandler()
if c:IsRelateToEffect(e) and c:IsLocation(LOCATION_MZONE) then
local opt=Duel.SelectOption(tp,aux.Stringid(199442,1),aux.Stringid(199442,2)) -- 选择是否移动
if opt==0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
local s=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0) -- 选择移动位置
local nseq=math.log(s,2) -- 将位掩码转换为序列号
Duel.MoveSequence(c,nseq) -- 移动卡片
end
end
end
-- 效果③的特殊召唤过滤器
function c199442.spfilter(c,e,tp)
return c:IsSetCard(0xfe) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
\ No newline at end of file
-- 爆破零件
function c1994430.initial_effect(c)
-- ①: Destroy and damage effect
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(1994430,0))
e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
e1:SetTarget(c1994430.destg)
e1:SetOperation(c1994430.desop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
-- ②: Special summon when destroyed
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(1994430,1))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_DESTROYED)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCountLimit(1,1994430)
e3:SetCondition(c1994430.spcon)
e3:SetTarget(c1994430.sptg)
e3:SetOperation(c1994430.spop)
c:RegisterEffect(e3)
end
-- Effect ①: Destroy and damage
function c1994430.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
local tc=g:GetFirst()
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,tc:GetBaseAttack())
end
function c1994430.desop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then
local atk=tc:GetBaseAttack()
if Duel.Destroy(tc,REASON_EFFECT)~=0 then
Duel.Damage(tp,atk,REASON_EFFECT,true)
Duel.Damage(1-tp,atk,REASON_EFFECT,true)
Duel.RDComplete()
end
end
end
-- Effect ②: Special summon when destroyed
function c1994430.spcon(e,tp,eg,ep,ev,re,r,rp)
return (e:GetHandler():IsReason(REASON_BATTLE) or e:GetHandler():IsReason(REASON_EFFECT))
and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
end
function c1994430.spfilter(c,e,tp)
return c:IsSetCard(0x51) and c:IsLevel(4) and not c:IsCode(1994430)
and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c1994430.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c1994430.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c1994430.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c1994430.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
\ No newline at end of file
-- 血肉零件
function c1994431.initial_effect(c)
-- ①: Additional normal summon + restriction
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(1994431,0))
e1:SetCategory(CATEGORY_SUMMON_COUNT_LIMIT)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,1994431)
e1:SetCost(c1994431.nscost)
e1:SetOperation(c1994431.nsop)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
-- ②: Special summon when destroyed
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(1994431,1))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_DESTROYED)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCountLimit(1,1994431+100)
e3:SetCondition(c1994431.spcon)
e3:SetTarget(c1994431.sptg)
e3:SetOperation(c1994431.spop)
c:RegisterEffect(e3)
end
-- Effect ①: Additional normal summons
function c1994431.nscost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLPCost(tp,1000) end
Duel.PayLPCost(tp,1000)
end
function c1994431.nsop(e,tp,eg,ep,ev,re,r,rp)
-- Allow 3 normal summons this turn
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SET_SUMMON_COUNT_LIMIT)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,0)
e1:SetValue(3)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
-- Restrict special summons to Machine monsters
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetTargetRange(1,0)
e2:SetTarget(c1994431.splimit)
e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
end
function c1994431.splimit(e,c)
return not c:IsRace(RACE_MACHINE)
end
-- Effect ②: Special summon when destroyed
function c1994431.spcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsReason(REASON_BATTLE) or (e:GetHandler():IsReason(REASON_EFFECT))
and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
end
function c1994431.spfilter(c,e,tp)
return c:IsSetCard(0x51) and c:IsLevel(4) and not c:IsCode(1994431)
and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c1994431.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c1994431.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c1994431.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c1994431.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
\ No newline at end of file
--魊影的星图 拉塔斯
local s,id,o=GetID()
function s.initial_effect(c)
--Search
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(id,0))
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,id)
e1:SetCost(s.cost)
e1:SetTarget(s.thtg)
e1:SetOperation(s.thop)
c:RegisterEffect(e1)
--Special Summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(id,1))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_REMOVE)
e2:SetCountLimit(1,id+1)
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_ACTIVATE_CONDITION)
e2:SetCondition(s.spcon)
e2:SetTarget(s.sptg)
e2:SetOperation(s.spop)
c:RegisterEffect(e2)
end
function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:IsAbleToGraveAsCost() and c:IsDiscardable() end
Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
end
function s.filter(c)
return c:IsCode(8794055) and c:IsAbleToHand()
end
function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function s.thop(e,tp,eg,ep,ev,re,r,rp,chk)
local tc=Duel.GetFirstMatchingCard(s.filter,tp,LOCATION_DECK,0,nil)
if tc then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
end
end
function s.cfilter(c)
return c:IsFaceup() and (c:IsSetCard(0x18a) or c:IsCode(8794055))
end
function s.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
end
function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function s.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
......@@ -7136,6 +7136,7 @@ Take Your Heart(114514326) 通常陷阱 (Custom)
①:这张卡召唤·特殊召唤的场合才能发动。下个回合的准备阶段,从卡组把1只「命运英雄」怪兽加入手卡或送去墓地。
②:把墓地的这张卡和3只「命运英雄」怪兽除外才能发动。从卡组把1张记述有「命运英雄」的魔法·陷阱卡加入手卡。
分类:暗属性、战士族、主卡、融合、动漫-GX-男二、动漫-ARCV
提示文本:是否加入手卡?
命运英雄 失效人(114514607) 暗 4星 战士 1400 800 (Custom)
系列:0xC008
......
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