Commit 97626907 authored by Tachibana's avatar Tachibana

delete

parent dd876ae0
Pipeline #3742 passed with stage
in 18 minutes and 51 seconds
No preview for this file type
......@@ -3,7 +3,6 @@
#1
00113217 1 --小红花
00114015 0 --后巴别塔·苏苏洛
00119002 0 --MS-06S 夏亚专用-扎古II
00119006 1 --海帕杰顿-完全体
#7
......@@ -574,7 +573,6 @@
28319006 0 --下垣鸣海凛央奈 Single
28322000 0 --黑野紫
#290
29065595 0 --双龙呼争
29065598 0 --方舟之骑士·廷达
#300
30000200 0 --暗魔力的爆发
......@@ -1049,7 +1047,6 @@
#610
61000040 2 --神赐之门的魔法师-奥伯龙
#622
62200000 0 --从那里开始的一切
62200040 0 --外典救世主 漂泊的华欲-孕剑姬
62201001 1 --少年阿玛多伊斯的玻离乐章
62210002 0 --赤百合与骷髅与初梦的他
......@@ -1129,7 +1126,6 @@
65031014 1 --独我的律歌者
65040010 0 --红暗之翼
65040046 0 --深晦的原海
65040049 0 --单向基因组
65050042 0 --连理蔷薇 净色
65050071 2 --沁恋甜心 樱粉之春
65050077 2 --沁恋甜心 雾白之冬
......
--后巴别塔·苏苏洛
function c114015.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--to hand
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_DESTROY)
e1:SetRange(LOCATION_PZONE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,114015+EFFECT_COUNT_CODE_DUEL)
e1:SetCost(c114015.thcost)
e1:SetTarget(c114015.thtg)
e1:SetOperation(c114015.thop)
c:RegisterEffect(e1)
--Recover
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCategory(CATEGORY_RECOVER)
e4:SetCode(EVENT_DESTROYED)
e4:SetProperty(EFFECT_FLAG_DELAY)
e4:SetTarget(c114015.rectg)
e4:SetOperation(c114015.recop)
c:RegisterEffect(e4)
--SpecialSummon
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
e4:SetCode(EVENT_RECOVER)
e4:SetProperty(EFFECT_FLAG_DELAY)
e4:SetRange(LOCATION_HAND)
e4:SetCountLimit(1,214015)
e4:SetTarget(c114015.sptg1)
e4:SetOperation(c114015.spop1)
c:RegisterEffect(e4)
Duel.AddCustomActivityCounter(114015,ACTIVITY_SPSUMMON,c114015.counterfilter)
end
function c114015.counterfilter(c)
return c:IsSetCard(0xca3)
end
function c114015.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCustomActivityCount(114015,tp,ACTIVITY_SPSUMMON)==0 and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_PZONE,0,1,e:GetHandler(),0xca3) end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
e1:SetTargetRange(1,0)
e1:SetTarget(c114015.splimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local g=Duel.GetFieldGroup(tp,LOCATION_PZONE,0)
Duel.Destroy(g,REASON_COST)
end
function c114015.splimit(e,c,tp,sumtp,sumpos)
return not c:IsSetCard(0xca3)
end
function c114015.thfil(c)
return c:IsSetCard(0xca3) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end
function c114015.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c114015.thfil,tp,LOCATION_DECK,0,1,nil) end
local g=Duel.GetFieldGroup(tp,LOCATION_PZONE,0,nil)
Duel.SetTargetCard(g)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,tp,LOCATION_PZONE)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,0)
end
function c114015.thop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local g1=Duel.GetMatchingGroup(c114015.thfil,tp,LOCATION_DECK,0,1,nil)
if Duel.Destroy(g,REASON_EFFECT) and g1:GetCount()>0 then
local tg=g1:Select(tp,1,1,nil)
Duel.SendtoHand(tg,tp,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tg)
if Duel.GetFieldGroupCount(tp,LOCATION_GRAVE,0)==0 then
Duel.BreakEffect()
Duel.Draw(tp,1,REASON_EFFECT)
end
end
end
function c114015.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsReason(REASON_EFFECT) end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(500)
Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,500)
end
function c114015.recop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Recover(p,d,REASON_EFFECT)
end
function c114015.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and ep==tp end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,tp,LOCATION_HAND)
end
function c114015.spop1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
--双龙呼争
function c29065595.initial_effect(c)
aux.AddCodeList(c,29065577)
--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:SetCountLimit(1,29065595+EFFECT_COUNT_CODE_OATH)
e1:SetCost(c29065595.cost)
e1:SetTarget(c29065595.target)
e1:SetOperation(c29065595.activate)
c:RegisterEffect(e1)
end
function c29065595.cofil(c,e,tp)
return c:IsRace(RACE_DRAGON) and c:IsSetCard(0x87af) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
end
function c29065595.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c29065595.cofil,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
local g=Duel.SelectMatchingCard(tp,c29065595.cofil,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
Duel.SpecialSummon(g,0,tp,1-tp,false,false,POS_FACEUP)
end
function c29065595.thfil1(c)
local tp=c:GetControler()
return c:IsAbleToHand() and c:IsSetCard(0x87af) and c:IsType(TYPE_MONSTER)
and Duel.IsExistingMatchingCard(c29065595.thfil2,tp,LOCATION_DECK,0,1,c)
end
function c29065595.thfil2(c)
return c:IsAbleToHand() and c:IsSetCard(0x87af) and c:IsType(TYPE_MONSTER) and c:IsRace(RACE_DRAGON)
end
function c29065595.thfil(c)
return c:IsAbleToHand() and c:IsSetCard(0x87af) and c:IsType(TYPE_MONSTER)
end
function c29065595.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c29065595.thfil1,tp,LOCATION_DECK,0,1,nil) end
end
function c29065595.spfil(c,e,tp)
return (c:IsRace(RACE_DRAGON) or c:IsCode(29065577)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c29065595.fcheck(c,g)
return g:IsExists(Card.IsOriginalCodeRule,1,c,c:GetOriginalCodeRule())
end
function c29065595.fselect(g)
return not g:IsExists(c29065595.fcheck,1,nil,g) and g:IsExists(c29065595.thfil2,1,nil)
end
function c29065595.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c29065595.thfil1,tp,LOCATION_DECK,0,nil)
if g:GetCount()>=1 then
local hg=Duel.GetMatchingGroup(c29065595.thfil,tp,LOCATION_DECK,0,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local sg=hg:SelectSubGroup(tp,c29065595.fselect,false,2,2,e,tp)
Duel.SendtoHand(sg,tp,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 and Duel.IsExistingMatchingCard(c29065595.spfil,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(29065595,0)) then
tc=Duel.SelectMatchingCard(tp,c29065595.spfil,tp,LOCATION_HAND,0,1,1,nil,e,tp)
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
end
--act limit
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(c29065595.aclimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
end
function c29065595.aclimit(e,re,tp)
return not re:GetHandler():IsSetCard(0x87af) and (re:GetHandler():IsType(TYPE_MONSTER))
end
\ No newline at end of file
--单向基因组
function c65040049.initial_effect(c)
--link summon
c:SetSPSummonOnce(65040049)
c:EnableReviveLimit()
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_LINK),1,1)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(65040049,0))
e3:SetCategory(CATEGORY_DRAW)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_PLAYER_TARGET)
e3:SetRange(LOCATION_MZONE)
e3:SetCondition(c65040049.descon)
e3:SetTarget(c65040049.destg)
e3:SetOperation(c65040049.desop)
c:RegisterEffect(e3)
end
function c65040049.cfilter(c,ec)
local g=c:GetMaterial()
return ec:GetLinkedGroup():IsContains(c) and c:IsType(TYPE_LINK) and c:IsSummonType(SUMMON_TYPE_LINK) and g:GetCount()>0 and g:IsExists(Card.IsLinkCode,1,nil,c:GetCode())
end
function c65040049.descon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c65040049.cfilter,1,nil,e:GetHandler())
end
function c65040049.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(2)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
end
function c65040049.desop(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
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