Commit 5afcf3e0 authored by Tachibana's avatar Tachibana

得得得得得

parent 491fa87b
Pipeline #13440 passed with stages
in 32 minutes and 36 seconds
......@@ -31,9 +31,6 @@
23062024
26807016
26807017
28308011
28308013
28308014
30005065
30005090
30005105
......
......@@ -24,6 +24,9 @@
81044005
81044006
81066027
81078011
81078013
81078014
85400000
92361300
#extra
......
No preview for this file type
......@@ -32,6 +32,7 @@
01009033 1 --物语纪录·囮
01009036 1 --物语纪录·猫
#11
01110131 1 --灵都·双生并蒂
01111018 1 --秘谈·生命的旅路
01146016 0 --辉光之针的魔法少女
01150020 1 --蝴蝶之梦
......@@ -44,6 +45,7 @@
01170018 1 --天阁
01171001 1 --诺札利亚 辉琉里
#42
04210017 0 --猫耳天堂-天地无用
04210020 1 --猫耳天堂-幼猫的梦想
04210031 1 --猫耳天堂-偶像红豆
04210049 0 --手冲魔女-救救猫猫
......@@ -197,6 +199,7 @@
11800069 1 --『终末守门人』丝碧涅
#120
12000520 0 --疾械团的攻坚者 拉
12002513 1 --南十字远征军 米莫萨
12001009 1 --六曜的先负
12001010 1 --六曜的先胜
12001011 1 --六曜的友引
......@@ -303,10 +306,14 @@
12062005 0 --灯赫的神子 梅拉尔
12062041 2 --典理的祈祷
12066023 1 --天境一闪
12069000 0 --宇宙之源 拉结尔
12069006 1 --牙月之理 月丘儿
12070046 0 --邪龙式装 玛格丽塔
12087050 1 --响彻人心之歌 罗洛涅萝尔
12087052 0 --花绽的歌声 罗洛涅萝尔
12087055 1 --闪耀的光彩 罗洛涅萝尔
12087060 1 --雪花之碎片
12087062 1 --茜色之小道
12090082 1 --星界转生
12094005 1 --魔王转生 御影零夜
#122
......@@ -382,20 +389,26 @@
15000550 0 --缓行之『蛇』
15000547 0 --黄如烟之恶虺
15000555 0 --『蛇』缠罪
15000604 1 --幻智指令·炎爆
15000625 1 --幻智的远岸·麦哲伦
15000938 0 --憾死蔷薇花-怨灾莱西米娅
15002000 0 --神名浅海
15002011 0 --郁屈的哀乐
15002020 0 --墟伪的审判
15003023 0 --虚空孔穴·格利扎
15004036 1 --东风欧洛斯的冷笑
#161
16101115 1 --现实歪曲
16101150 1 --超量进化单元
16102011 1 --SCP-2000 机械降神
16104200 0 --天命教士
16104206 0 --天命教国 奥尔斯
16104230 0 --终末之歌
16104232 0 --天命圣女 让·达克
16104240 0 --天命真王 梦想王
16104400 1 --天之界
16104400 0 --天之界
16104402 0 --天界银 亚沙拉姆
16104403 0 --天界的双子神 许珀里翁
16104405 0 --天界的双子神 忒亚修斯
16104406 0 --天界法 伊阿珀瑟斯
16104408 0 --自天界而来的制裁
......@@ -454,9 +467,10 @@
16130014 0 --B.O.W.三角兽滴漏者
16150001 1 --大王百足虫
16150007 1 --大王虫 大百足
16150008 1 --王命的集结
16150008 0 --王命的集结
16150011 0 --大王剑使
16150013 1 --大王具 大王龙机
16150015 1 --天命之骑士 大王命骑士
16150015 0 --天命之骑士 大王命骑士
16150017 0 --圣王命之大王具
16150019 1 --大王咒使
16150020 0 --大王具 智慧的抱拥
......@@ -506,6 +520,7 @@
17032860 0 --沉默绝杰·鲁鲁纳伊
17032930 1 --沉默之诗
17032950 0 --绝叫的崇拜者
17032980 0 --沉默的魔将
17035120 1 --莉莫涅姆的救济
17035150 0 --暴风军神·格尼姆尔
17035180 0 --深渊之王·撒旦
......@@ -550,12 +565,15 @@
18019006 0 --一次性摩托
18019011 0 --重皇之鋭断
18019012 0 --丛云之落泪
18019030 0 --财布融合
18020012 1 --霸星落影
18024009 1 --血战融合
18025001 0 --爱之代偿
#195
19500012 1 --七色人形剧·迷失子人形
19500029 1 --Trichromatic rotation·Alice Margatroid
#198
19840007 1 --刹极蹄猎-斗宿三μ
19840007 0 --刹极蹄猎-斗宿三μ
19840040 1 --刹极蹄猎-南斗六星
#200
20000050 1 --藏于心之Chein
......@@ -637,7 +655,7 @@
22443210 1 --启光-终末之龙 希罗娜
#230
23000305 1 --白马将军·公孙瓒
23003007 0 --龙启之地的镖师
23003007 1 --龙启之地的镖师
23003017 1 --英魂 国士无双
23004050 1 --时空的护佑
#243
......@@ -653,6 +671,11 @@
#248
24865310 1 --量子妖海-狄拉克
24865314 1 --量子海妖-塌缩克拉普斯
#266
26640001 0 --颜彩-水丽之彩
26640002 1 --颜彩-巡游之彩
26640003 1 --颜彩-通灵之彩
26640015 1 --颜彩-守望的银河
#268
26806014 0 --至纯之绘·海伊
26806024 1 --鱼跃飞升·海伊
......@@ -673,10 +696,6 @@
26818072 0 --神社庭园·仲夏
26818073 1 --神社庭园·秋深
26824005 0 --知性公主·玛娅
#283
28308004 0 --不被吓个半死是不可能的
28321002 1 --失格天使·白鸟芽衣
28321007 0 --田园精灵·白鸟芽衣
#300
30000200 0 --暗魔力的爆发
30000205 0 --不灭的黑暗
......@@ -685,8 +704,12 @@
30005016 0 --森之妖精 萨堤尔Ⅱ
30005020 1 --心哀想
30005030 1 --懵懂的暗芽
30005035 0 --仪死的供物
30005045 1 --异神 煞
30005090 0 --告别前的叮嘱
30005095 0 --天使的出道
30005105 0 --深红汇聚
30005110 0 --虚无中的陷阱
30052000 0 --克里斯汀·罗森塔尔
#305
30553101 0 --创衍秘器 愚沌之核
......@@ -716,8 +739,8 @@
30558013 0 --破灭幻械 注魂
#306
30614514 0 --超级沼气前辈 野兽形态
30655561 2 --闪耀之人
30655567 0 --第三次无限战争
30655580 0 --究极魔导之页
30666660 0 --星系守护神 长蛇星神
30666661 0 --拉伊达 3σ
30666662 0 --拉伊达 3σ『龙骑展开』
......@@ -750,13 +773,12 @@
#332
33200251 1 --机略纵横 鲁子敬
33200431 1 --魔力联合 紫鸢尾
33200512 2 --逆转检事 戈多
33200907 1 --寒霜灵兽 玛狃拉
33200912 1 --寒霜灵兽 象牙猪
33200913 1 --寒霜灵兽 冰鬼护
33250000 0 --浅间橘
#333
33300200 2 --魔王城的栖夜姬
33300200 1 --魔王城的栖夜姬
33300206 0 --栖夜姬的寝具偷盗
33310006 1 --泰拉异变·雨天
33310007 2 --泰拉瑞亚·世界
......@@ -792,7 +814,6 @@
33330080 0 --CRuritor FluWers
33330083 0 --对立性骤降之月
33330086 1 --混沌饿融合鱼
33330087 2 --死魂收割者
33330089 0 --水宫残照
33330092 0 --水灵守护 天使
33330093 0 --Grey wings·Clan
......@@ -1040,6 +1061,7 @@
37564303 1 --泡沫·悲哀的桃源
37564308 0 --Black Lotus
37564320 1 --Rebellion
37564348 1 --Who Killed U.N.Owen
37564353 0 --半世纪之梦·雪花
37564415 1 --百慕 拼搏才能·香蒂
37564451 1 --百慕 冲击的相遇·莉普丝
......@@ -1149,6 +1171,8 @@
51414052 1 --审判所有的黑白阎罗
51414056 1 --冥渡幽魂的悠闲之人
51414080 1 --难得的幽魂假日
51417185 1 --流星来的那一页
51417200 1 --梦想于报社启航
#515
51562803 0 --星之国 阿莉耶丝
#525
......@@ -1172,6 +1196,12 @@
53728001 0 --迅征啼鸟 火星之春
53731001 1 --狂喑祭月
53786002 1 --青叶由爱·主播女孩
53796002 1 --误正解
53796003 1 --啦啦队女孩蠍媛
53796005 1 --狐假虎威·回天
53796006 0 --痛剂
53796007 0 --一览无余
53796010 0 --直触
53798001 0 --手塚琳
53799001 0 --乱觉
53799012 0 --连接海与山的月球公主
......@@ -1363,6 +1393,7 @@
69696916 0 --星灵虎
69696918 0 --梦魇术士
69696931 0 --奇璞
69696933 0 --洞察之冠
69696934 1 --落石之径
69696961 1 --产量激增
#707
......@@ -1384,6 +1415,7 @@
72412020 0 --真武龙崩拳 雪蓉
72412110 0 --蘑仔
72412350 0 --镜月花
72413450 1 --冰晶之国的少女 莉莉
72499010 1 --妖樱火
#729
72979222 1 --雪之洗礼
......@@ -1440,6 +1472,7 @@
81007002 0 --白雪安娜·泯灭
81007007 0 --白雪安娜·塔牌
81009004 0 --奥空心白
81010015 1 --真实的一瞬
81011102 1 --橘花音·午后之音
81011104 1 --橘花音·约会之音
81011116 1 --双色之音
......@@ -1457,10 +1490,14 @@
81040037 0 --冬日回忆·周子
81041061 1 --不灭回忆·国见菜子
81042017 1 --属于你的一页
81044002 2 --怪物
81046034 0 --虚拟主播 西园千草
81048027 1 --猫咖 momoko
81051002 1 --失格天使·白鸟芽衣
81051007 0 --田园精灵·白鸟芽衣
81057000 0 --水晶艾蕾娜
81057009 0 --水晶艾蕾娜·无意义
81078004 0 --不被吓个半死是不可能的
#819
81901005 1 --無☆茶☆苦☆茶-喂!LP很贵的nano
81901006 0 --無☆茶☆苦☆茶-紫苑这么可爱还是吃不饱
......
......@@ -67,7 +67,7 @@ function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SendtoGrave(e:GetHandler(),REASON_COST)
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=5 end
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=5 end
Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,5)
end
function cm.cfilter(c)
......
This diff is collapsed.
This source diff could not be displayed because it is too large. You can view the blob instead.
--龙棋兵团 传令兵
if not pcall(function() require("expansions/script/c10199990") end) then require("script/c10199990") end
local m=18006001
local cm=_G["c"..m]
if not rsv.DCC then
rsv.DCC={}
rsdcc=rsv.DCC
function rsdcc.NormalMonsterFunction(c)
local e3=rsef.QO(c,nil,{m,0},1,nil,"tg",LOCATION_MZONE,rsdcc.ncon2,nil,rstg.target({rsdcc.filter1,nil,LOCATION_ONFIELD,0,2}),rsdcc.mvop)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_TYPE)
e1:SetRange(LOCATION_MZONE)
e1:SetCondition(rsdcc.ncon)
e1:SetValue(TYPE_NORMAL)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_REMOVE_TYPE)
e2:SetValue(TYPE_EFFECT)
c:RegisterEffect(e2)
return e3,e1,e2
end
function rsdcc.filter(c)
return c:GetType()&TYPE_SPELL+TYPE_CONTINUOUS ==TYPE_SPELL+TYPE_CONTINUOUS and rsdcc.IsSet(c)
end
function rsdcc.filter0(c,rc)
return c:GetType()&TYPE_SPELL+TYPE_CONTINUOUS ==TYPE_SPELL+TYPE_CONTINUOUS and c:IsFaceup() and rc:GetColumnGroup():IsContains(c)
end
function rsdcc.filter1(c,e,tp)
return c:GetType()&TYPE_SPELL+TYPE_CONTINUOUS ==TYPE_SPELL+TYPE_CONTINUOUS and c:IsFaceup() and c:IsControler(tp)
end
function rsdcc.filter2(c)
return c:IsAbleToGraveAsCost() and c:GetType()&TYPE_SPELL+TYPE_CONTINUOUS ==TYPE_SPELL+TYPE_CONTINUOUS and c:IsFaceup()
end
function rsdcc.ncon(e)
return not Duel.IsExistingMatchingCard(rsdcc.filter0,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,e:GetHandler())
end
function rsdcc.ncon2(e)
return Duel.IsExistingMatchingCard(rsdcc.filter0,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,e:GetHandler())
end
function rsdcc.mvop(e,tp)
local g=rsgf.GetTargetGroup()
if #g~=2 then return end
Duel.ChangePosition(g,POS_FACEDOWN)
local tc1=g:GetFirst()
local tc2=g:GetNext()
local seq1=tc1:GetSequence()
local seq2=tc2:GetSequence()
repeat
Duel.ShuffleSetCard(g)
until seq1~=tc1:GetSequence()
Duel.ChangePosition(g,POS_FACEUP)
end
function rsdcc.QuickEffectFunction(c,code,cate,tg,op)
local e1=rsef.QO(c,nil,{code,1},1,cate,nil,LOCATION_MZONE,rsdcc.ncon2,rscost.cost(rsdcc.filter2,"tg",LOCATION_ONFIELD),tg,op)
return e1
end
function rsdcc.IsSet(c)
return c:CheckSetCard("DragonChessCorps")
end
function rsdcc.tg(e,c)
return e:GetHandler():GetColumnGroup():IsContains(c) and rsdcc.IsSet(c) and c:IsFaceup()
end
function rsdcc.tg2(e,c)
return e:GetHandler():GetColumnGroup():IsContains(c) and not rsdcc.IsSet(c) and (e:GetLabel()==0 or c:IsType(e:GetLabel()))
end
function rsdcc.Activate(c,code,cate,op,tg2)
local con=function(e,tp)
return e:GetHandler():IsOnField()
end
local e1=rsef.ACT(c,nil,nil,{1,code},cate,"tg",con,nil,rstg.target(rsdcc.tfilter(tg2),nil,LOCATION_MZONE),op)
return e1
end
function rsdcc.tfilter(tg2)
return function(c,e,tp)
return e:GetHandler():GetColumnGroup():IsContains(c) and rsdcc.IsSet(c) and (not tg2 or tg2(c,e,tp))
end
end
---------------
end
---------------
if cm then
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
local e1,e2,e3=rsdcc.NormalMonsterFunction(c)
local e4=rsdcc.QuickEffectFunction(c,m,"se,th",rstg.target(rsop.list(cm.thfilter,"th",LOCATION_DECK)),cm.op)
end
function cm.thfilter(c)
return c:IsAbleToHand() and rsdcc.IsSet(c)
end
function cm.op(e,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local tg=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
if #tg>0 then
Duel.SendtoHand(tg,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tg)
end
end
---------------
end
--龙棋兵团 弩弓兵
if not pcall(function() require("expansions/script/c18006001") end) then require("script/c18006001") end
local m=18006002
local cm=_G["c"..m]
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
local e1,e2,e3=rsdcc.NormalMonsterFunction(c)
local e4=rsdcc.QuickEffectFunction(c,m,"des",rstg.target(rsop.list(cm.desfilter,"des",LOCATION_ONFIELD,LOCATION_ONFIELD)),cm.op)
end
function cm.desfilter(c,e)
local cg=e:GetHandler():GetColumnGroup()
return cg:IsContains(c) or c==e:GetHandler()
end
function cm.op(e,tp)
local c=aux.ExceptThisCard(e)
if not c then return end
local g=c:GetColumnGroup()
g:AddCard(c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local dg=g:Select(tp,1,1,nil)
if #dg>0 then
Duel.HintSelection(dg)
Duel.Destroy(dg,REASON_EFFECT)
end
end
\ No newline at end of file
--龙棋兵团 骑兵队
if not pcall(function() require("expansions/script/c18006001") end) then require("script/c18006001") end
local m=18006003
local cm=_G["c"..m]
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
local e1,e2,e3=rsdcc.NormalMonsterFunction(c)
local e4=rsdcc.QuickEffectFunction(c,m,nil,cm.tg,cm.op)
end
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
local seq=c:GetSequence()
if chk==0 then return (seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1)) or (seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1)) end
end
function cm.op(e,tp)
local c=aux.ExceptThisCard(e)
if not c then return end
local seq=c:GetSequence()
if seq>4 then return end
if (seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1))
or (seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1)) then
local flag=0
if seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1) then flag=bit.replace(flag,0x1,seq-1) end
if seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1) then flag=bit.replace(flag,0x1,seq+1) end
flag=bit.bxor(flag,0xff)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
local s=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,flag)
local nseq=0
if s==1 then nseq=0
elseif s==2 then nseq=1
elseif s==4 then nseq=2
elseif s==8 then nseq=3
else nseq=4 end
Duel.MoveSequence(c,nseq)
end
end
\ No newline at end of file
--龙棋兵团 长枪兵
if not pcall(function() require("expansions/script/c18006001") end) then require("script/c18006001") end
local m=18006004
local cm=_G["c"..m]
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
local e1,e2,e3=rsdcc.NormalMonsterFunction(c)
local e4=rsdcc.QuickEffectFunction(c,m,nil,rstg.target(rsop.list(cm.cfilter,nil,LOCATION_DECK)),cm.op)
end
function cm.cfilter(c)
return rsdcc.filter(c) and c:IsSSetable(true)
end
function cm.op(e,tp)
if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local tc=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
if tc then
Duel.SSet(tp,tc)
Duel.ConfirmCards(1-tp,tc)
end
end
\ No newline at end of file
--龙棋兵团 重装兵
if not pcall(function() require("expansions/script/c18006001") end) then require("script/c18006001") end
local m=18006005
local cm=_G["c"..m]
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
local e1,e2,e3=rsdcc.NormalMonsterFunction(c)
local e4=rsdcc.QuickEffectFunction(c,m,"sp",rstg.target(rsop.list(cm.cfilter,"sp",LOCATION_DECK)),cm.op)
end
function cm.cfilter(c,e,tp)
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and rsdcc.IsSet(c)
end
function cm.op(e,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
if #g>0 then
rssf.SpecialSummon(g)
end
end
\ No newline at end of file
--龙棋兵团 军团长
if not pcall(function() require("expansions/script/c18006001") end) then require("script/c18006001") end
local m=18006006
local cm=_G["c"..m]
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
c:EnableReviveLimit()
aux.AddLinkProcedure(c,cm.lfilter,2)
local e1=rsef.FTF(c,EVENT_PHASE+PHASE_END,{m,0},1,"des",nil,LOCATION_MZONE,cm.con(0,true),nil,cm.tg,cm.op)
local e2=rsef.SV_UPDATE(c,"atk",1000,cm.con(1))
local e3=rsef.SV_IMMUNE_EFFECT(c,cm.val,cm.con(2))
local e4=rsef.QO(c,nil,{m,1},1,"th,des","tg",LOCATION_MZONE,cm.con(3),nil,rstg.target({cm.thfilter,"th",LOCATION_ONFIELD },rsop.list(aux.TRUE,"des",0,LOCATION_ONFIELD )),cm.thop)
end
function cm.thfilter(c)
return c:IsAbleToHand() and rsdcc.IsSet(c) and c:IsFaceup()
end
function cm.thop(e,tp)
local tc=rscf.GetTargetCard()
if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local dg=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_ONFIELD,1,1,nil)
if #dg>0 then
Duel.HintSelection(dg)
Duel.Destroy(dg,REASON_EFFECT)
end
end
end
function cm.imfilter(c,rc)
return rc:IsOnField() and c:GetColumnGroup():IsContains(rc)
end
function cm.val(e,re)
local c=e:GetHandler()
local rc=re:GetHandler()
local g=Duel.GetMatchingGroup(cm.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
if #g<=0 then return false end
return not (g:IsExists(cm.imfilter,1,nil,rc) and rsdcc.IsSet(rc))
end
function cm.cfilter(c)
return rsdcc.IsSet(c) and c:IsFaceup()
end
function cm.lfilter(c)
return c:CheckLinkSetCard("DragonChessCorps") and c:IsType(TYPE_EFFECT)
end
function cm.seqfilter(c,seqlist)
return rsdcc.IsSet(c) and c:IsFaceup() and rsof.Table_List(seqlist,c:GetSequence())
end
function cm.con(ct,bool)
return function(e)
local c=e:GetHandler()
if not c:IsType(TYPE_LINK) then return false end
local zone=c:GetLinkedZone(tp)
local seqlist={}
if zone<=0 then return end
local list1={1,2,4,8,16,32,64}
local list2={0,1,2,3,4,5,6}
for k,azone in pairs(list1) do
if zone&azone~=0 then
table.insert(seqlist,1)
end
end
local cg=Duel.GetMatchingGroup(cm.seqfilter,tp,LOCATION_ONFIELD,0,nil,seqlist)
if bool then
return cg==ct
else
return cg>=ct
end
end
end
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
end
function cm.setfilter(c)
return c:IsSSetable() and rsdcc.filter(c)
end
function cm.op(e,tp)
local c=aux.ExceptThisCard(e)
if not c or Duel.Destroy(c,REASON_EFFECT)<=0 or Duel.GetLocationCount(tp,LOCATION_SZONE)<2 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_DECK,0,2,2,nil)
if #g==2 then
Duel.SSet(tp,g)
Duel.ConfirmCards(1-tp,g)
end
end
\ No newline at end of file
--龙棋兵团 掌旗官
if not pcall(function() require("expansions/script/c18006001") end) then require("script/c18006001") end
local m=18006007
local cm=_G["c"..m]
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
c:EnableReviveLimit()
aux.AddLinkProcedure(c,cm.lfilter,1)
local e3=rsef.I(c,{m,1},{1,3},"th","tg",LOCATION_MZONE,nil,nil,rstg.target({cm.thfilter,"th",LOCATION_ONFIELD,LOCATION_ONFIELD },rsop.list(cm.tffilter,nil,LOCATION_HAND)),cm.thop)
local e4=rsef.QO_OPPONENT_TURN(c,e3,cm.qocon)
--search
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e0:SetCode(EVENT_CHAINING)
e0:SetRange(LOCATION_MZONE)
e0:SetCondition(aux.mskregcon)
e0:SetOperation(aux.mskreg)
c:RegisterEffect(e0)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_CHAIN_SOLVING)
e1:SetRange(LOCATION_MZONE)
e1:SetCondition(cm.thcon2)
e1:SetTarget(cm.thtg2)
e1:SetOperation(cm.thop2)
c:RegisterEffect(e1)
end
function cm.qocon(e,tp)
local c=e:GetHandler()
return c:GetColumnGroup():FilterCount(cm.qofilter,c)>=2
end
function cm.qofilter(c)
return c:IsFaceup() and rsdcc.IsSet(c)
end
function cm.thfilter(c,e,tp)
return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() and (c:IsControler(tp) or Duel.GetLocationCount(tp,LOCATION_MZONE)>0)
end
function cm.tffilter(c,e,tp)
return c:GetType()&TYPE_SPELL+TYPE_CONTINUOUS ==TYPE_SPELL+TYPE_CONTINUOUS and not c:IsForbidden() and c:CheckUniqueOnField(tp)
end
function cm.thop(e,tp)
local tc=rscf.GetTargetCard()
if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
local tc2=Duel.SelectMatchingCard(tp,cm.tffilter,tp,LOCATION_HAND,0,1,1,nil,e,tp):GetFirst()
if tc2 then
Duel.MoveToField(tc2,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
end
end
end
function cm.lfilter(c)
return c:CheckLinkSetCard("DragonChessCorps") and c:IsType(TYPE_NORMAL)
end
function cm.thcon2(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetFlagEffect(ev)>0
end
function cm.thfilter2(c)
return rsdcc.filter(c) and c:IsAbleToHand()
end
function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter2,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,cm.thfilter2,tp,LOCATION_DECK,0,1,1,nil)
if #g>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
--龙棋兵团防御阵型
if not pcall(function() require("expansions/script/c18006001") end) then require("script/c18006001") end
local m=18006008
local cm=_G["c"..m]
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
local e1=rsdcc.Activate(c,m,"atk",cm.op)
local e2=rsef.FV_INDESTRUCTABLE(c,"effect",aux.indoval,rsdcc.tg,{LOCATION_ONFIELD,LOCATION_ONFIELD })
local e3=rsef.FV_CANNOT_BE_TARGET(c,"effect",aux.tgoval,rsdcc.tg,{LOCATION_ONFIELD,LOCATION_ONFIELD })
--disable
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetCode(EFFECT_DISABLE)
e4:SetRange(LOCATION_SZONE)
e4:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
e4:SetTarget(rsdcc.tg2)
e4:SetLabel(TYPE_SPELL)
c:RegisterEffect(e4)
end
function cm.op(e,tp)
local c,tc=e:GetHandler(),rscf.GetTargetCard()
if not tc then return end
local e1=rsef.SV_UPDATE({c,tc},"atk",-500,nil,rsreset.est_pend)
local e2=rsef.SV_IMMUNE_EFFECT({c,tc},rsval.imoe,nil,rsreset.est_pend)
end
--龙棋兵团攻击阵型
if not pcall(function() require("expansions/script/c18006001") end) then require("script/c18006001") end
local m=18006009
local cm=_G["c"..m]
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
local e1=rsdcc.Activate(c,m,"atk",cm.op)
local e2=rsef.FV_UPDATE(c,"atk",1000,rsdcc.tg,{LOCATION_ONFIELD,LOCATION_ONFIELD })
--disable
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetCode(EFFECT_DISABLE)
e4:SetRange(LOCATION_SZONE)
e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e4:SetTarget(rsdcc.tg2)
e4:SetLabel(TYPE_EFFECT)
c:RegisterEffect(e4)
end
function cm.op(e,tp)
local c,tc=e:GetHandler(),rscf.GetTargetCard()
if not tc then return end
local e1=rsef.SV_UPDATE({c,tc},"atk",1000,nil,rsreset.est_pend)
end
--龙棋兵团奇袭阵型
if not pcall(function() require("expansions/script/c18006001") end) then require("script/c18006001") end
local m=18006010
local cm=_G["c"..m]
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
local e1=rsdcc.Activate(c,m,nil,cm.op,cm.tg2)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_BATTLE_DAMAGE)
e4:SetRange(LOCATION_SZONE)
e4:SetCondition(cm.drcon)
e4:SetOperation(cm.drop)
c:RegisterEffect(e4)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_TO_GRAVE)
e2:SetRange(LOCATION_SZONE)
e2:SetCondition(cm.thcon)
e2:SetOperation(cm.thop)
c:RegisterEffect(e2)
end
function cm.thcon(e,tp,eg)
return eg:IsExists(cm.cfilter,1,nil,e:GetHandler())
end
function cm.cfilter(c,rc)
local seq=c:GetPreviousSequence()
if c:GetPreviousControler()~=tp then seq=seq+16 end
return c:IsPreviousLocation(LOCATION_ONFIELD) and bit.extract(rc:GetColumnZone(LOCATION_ONFIELD),seq)~=0 and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,nil)
end
function cm.thfilter(c)
return c:IsAbleToHand() and rsdcc.IsSet(c)
end
function cm.thop(e,tp)
Duel.Hint(HINT_CARD,0,m)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local tg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil)
if #tg>0 then
Duel.HintSelection(tg)
Duel.SendtoHand(tg,nil,REASON_EFFECT)
end
end
function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
return eg:GetFirst():GetColumnGroup():IsContains(e:GetHandler()) and Duel.IsAbleToEnterBP()
end
function cm.drop(e,tp)
Duel.Hint(HINT_CARD,0,m)
Duel.Draw(tp,1,REASON_EFFECT)
end
function cm.tg2(c,e,tp)
return Duel.IsAbleToEnterBP()
end
function cm.op(e,tp)
local c,tc=e:GetHandler(),rscf.GetTargetCard()
if not tc then return end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DIRECT_ATTACK)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
end
--龙棋兵团突进阵型
if not pcall(function() require("expansions/script/c18006001") end) then require("script/c18006001") end
local m=18006011
local cm=_G["c"..m]
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
local e1=rsdcc.Activate(c,m,nil,cm.op,cm.tg2)
local e4=rsef.FV_REDIRECT(c,"leave",LOCATION_REMOVED,rsdcc.tg2,{LOCATION_ONFIELD ,LOCATION_ONFIELD })
e4:SetLabel(0)
--actlimit
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetCode(EFFECT_CANNOT_ACTIVATE)
e3:SetRange(LOCATION_SZONE)
e3:SetTargetRange(0,1)
e3:SetCondition(cm.actcon)
e3:SetValue(cm.aclimit)
c:RegisterEffect(e3)
--pierce
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_PIERCE)
e2:SetRange(LOCATION_SZONE)
e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e2:SetTarget(rsdcc.tg)
c:RegisterEffect(e2)
end
function cm.actcon(e)
local tp=e:GetHandlerPlayer()
local a=Duel.GetAttacker()
local d=Duel.GetAttackTarget()
return (a and rsdcc.tg(e,a)) or (d and rsdcc.tg(e,d))
end
function cm.aclimit(e,re,tp)
return not re:GetHandler():IsImmuneToEffect(e)
end
function cm.tg2(c,e,tp)
return Duel.IsAbleToEnterBP()
end
function cm.op(e,tp)
local c,tc=e:GetHandler(),rscf.GetTargetCard()
if not tc then return end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EXTRA_ATTACK)
e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
end
--龙棋兵团翼状阵型
if not pcall(function() require("expansions/script/c18006001") end) then require("script/c18006001") end
local m=18006012
local cm=_G["c"..m]
cm.rssetcode="DragonChessCorps"
function cm.initial_effect(c)
local e1=rsdcc.Activate(c,m,nil,cm.op,cm.tg2)
--extra summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(m,0))
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetRange(LOCATION_SZONE)
e2:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0)
e2:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
e2:SetTarget(aux.TargetBoolFunction(rscf.CheckSetCard,"DragonChessCorps"))
c:RegisterEffect(e2)
--disable
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetCode(EFFECT_DISABLE)
e4:SetRange(LOCATION_SZONE)
e4:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
e4:SetTarget(rsdcc.tg2)
e4:SetLabel(TYPE_TRAP)
c:RegisterEffect(e4)
end
function cm.tg2(c,e,tp)
local seq=c:GetSequence()
return ((seq<5 and seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1)) or (seq>-1 and seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1))) and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)
end
function cm.spfilter(c,e,tp)
return rsdcc.IsSet(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.op(e,tp)
local tc=rscf.GetTargetCard(aux.FilterBoolFunction(Card.IsControler,tp))
if not tc then return end
local seq=tc:GetSequence()
if seq>4 then return end
local seq1,zone=0,0
if seq>-1 and seq<4 then zone=zone|2^(seq+1) end
if seq>0 and seq<5 then zone=zone|2^(seq-1) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local tc=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp):GetFirst()
if tc then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP,zone)
end
end
\ No newline at end of file
......@@ -14,7 +14,7 @@ function cm.initial_effect(c)
end
function cm.rmfilter(c,e,tp)
return c:IsAbleToRemove() and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
and Duel.IsExistingMatchingCard(cm.bfilter,tp,0LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil,c)
and Duel.IsExistingMatchingCard(cm.bfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil,c)
end
function cm.bfilter(c,tc)
return tc:IsCode(c:GetCode()) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
......
--远方的信鸽
local m=28300000
local cm=_G["c"..m]
function cm.initial_effect(c)
end
--三水小雪
local m=28328000
local m=30628000
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
......
--三水小雪·香草
local m=28328001
local m=30628001
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
......
--三水小雪·巧克力
local m=28328002
local m=30628002
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
......
--三水小雪·草莓
local m=28328003
local m=30628003
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
......
--三水小雪·抹茶
local m=28328005
local m=30628005
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
......
--三水小雪·奶油
local m=28328006
local m=30628006
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
......
--三水小雪·白巧克力
local m=28328007
local m=30628007
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
......
--三水小雪·焦糖
local m=28328008
local m=30628008
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
......
--匠心蛋糕院临时店员 埃莉丝·科菲
local m=28328009
local m=30628009
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
......
......@@ -17,7 +17,7 @@ function cm.initial_effect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetCondition(1,m)
e3:SetCountLimit(1,m)
e3:SetCost(cm.co3)
e3:SetTarget(cm.tg3)
e3:SetOperation(cm.op3)
......
s--八宫一月·思
--八宫一月·思
local m=66981013
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
......
--Under Construxion
local m=28303001
local m=81010000
local cm=_G["c"..m]
function cm.initial_effect(c)
--Activate
......
--Daisuke
local m=28303003
local m=81010001
local cm=_G["c"..m]
function cm.initial_effect(c)
c:EnableCounterPermit(0xddd)
c:EnableCounterPermit(0x81d)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TODECK+CATEGORY_COUNTER)
......@@ -40,19 +40,19 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
if g:GetCount()>0 then
local oc=Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
if oc==0 then return end
e:GetHandler():AddCounter(0xddd,oc)
e:GetHandler():AddCounter(0x81d,oc)
end
end
function cm.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() and cm.cost(e,tp,eg,ep,ev,re,r,rp,0) end
local ct=e:GetHandler():GetCounter(0xddd)
local ct=e:GetHandler():GetCounter(0x81d)
e:SetLabel(ct)
cm.cost(e,tp,eg,ep,ev,re,r,rp,1)
Duel.SendtoGrave(e:GetHandler(),REASON_COST)
end
function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:GetCounter(0xddd)>0 and Duel.IsPlayerCanDraw(tp,c:GetCounter(0xddd)+1) end
if chk==0 then return c:GetCounter(0x81d)>0 and Duel.IsPlayerCanDraw(tp,c:GetCounter(0x81d)+1) end
local ct=e:GetLabel()
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(ct+1)
......
--九点啦!
local m=28303004
local m=81010002
local cm=_G["c"..m]
function cm.initial_effect(c)
--Activate
......
--白鸟芽衣
local m=28321000
local m=81051000
local cm=_G["c"..m]
function cm.initial_effect(c)
--special summon
......
--陌路之风·白鸟芽衣
local m=28321001
local m=81051001
local cm=_G["c"..m]
function cm.initial_effect(c)
--xyz summon
......
--失格天使·白鸟芽衣
local m=28321002
local m=81051002
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
function cm.initial_effect(c)
......
--解忧精灵·白鸟芽衣
local m=28321003
local m=81051003
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
......
--白昼精灵·白鸟芽衣
local m=28321004
local m=81051004
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
function cm.initial_effect(c)
......
--黄昏精灵·白鸟芽衣
local m=28321005
local m=81051005
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
function cm.initial_effect(c)
......
--杀戮精灵·白鸟芽衣
local m=28321006
local m=81051006
local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
......
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
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