Commit 34837214 authored by 聖園ミカ's avatar 聖園ミカ 🐟

7

parent 088d959e
No preview for this file type
--数码精神:友情
function c16348053.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,16348053)
e1:SetTarget(c16348053.target)
e1:SetOperation(c16348053.activate)
c:RegisterEffect(e1)
--equip
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_EQUIP)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,16348053+1)
e2:SetTarget(c16348053.eqtg)
e2:SetOperation(c16348053.eqop)
c:RegisterEffect(e2)
end
c16348053.fusion_effect=true
function c16348053.tgfilter(c,e,tp)
return c:IsFaceup() and c:IsSetCard(0x6dc2) and c:IsCanBeFusionMaterial()
and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_FMATERIAL)
and Duel.IsExistingMatchingCard(c16348053.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c)
end
function c16348053.spfilter(c,e,tp,tc)
return c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_WIND) and aux.IsMaterialListCode(c,tc:GetCode())
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,tc,c)>0
end
function c16348053.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc==0 then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c16348053.tgfilter(chkc,e,tp) end
if chk==0 then return Duel.IsExistingTarget(c16348053.tgfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
Duel.SelectTarget(tp,c16348053.tgfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c16348053.activate(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_FMATERIAL) then return end
if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsCanBeFusionMaterial() and not tc:IsImmuneToEffect(e) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=Duel.SelectMatchingCard(tp,c16348053.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc)
local sc=sg:GetFirst()
if sc then
sc:SetMaterial(Group.FromCards(tc))
Duel.SendtoGrave(tc,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
Duel.BreakEffect()
Duel.SpecialSummon(sc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
sc:CompleteProcedure()
end
end
end
function c16348053.eqfilter(c)
return c:IsFaceup() and c:IsSetCard(0x6dc2)
end
function c16348053.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c16348053.eqfilter(chkc) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
and Duel.IsExistingTarget(c16348053.eqfilter,tp,LOCATION_MZONE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
Duel.SelectTarget(tp,c16348053.eqfilter,tp,LOCATION_MZONE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
end
function c16348053.eqop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsControler(tp) then
if not Duel.Equip(tp,c,tc) then return end
--equip limit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EQUIP_LIMIT)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetLabelObject(tc)
e1:SetValue(c16348053.eqlimit)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_EQUIP)
e2:SetCode(EFFECT_UPDATE_DEFENSE)
e2:SetValue(500)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e2)
--indestructable
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_EQUIP)
e3:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
e3:SetCountLimit(1)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
e3:SetValue(c16348053.valcon)
c:RegisterEffect(e3)
end
end
function c16348053.eqlimit(e,c)
return c==e:GetLabelObject()
end
function c16348053.valcon(e,re,r,rp)
return bit.band(r,REASON_EFFECT)~=0
end
\ No newline at end of file
--驯兽师 本宫大辅
function c16348065.initial_effect(c)
--Activate
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_ACTIVATE)
e0:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e0)
--atk & def
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetRange(LOCATION_SZONE)
e1:SetTargetRange(LOCATION_MZONE,0)
e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x6dc2))
e1:SetValue(500)
c:RegisterEffect(e1)
--spsummon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(16348065,2))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1,16348065)
e2:SetCondition(c16348065.spcon)
e2:SetTarget(c16348065.sptg)
e2:SetOperation(c16348065.spop)
c:RegisterEffect(e2)
--to hand
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(16348065,3))
e3:SetCategory(CATEGORY_TOHAND)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetRange(LOCATION_SZONE)
e3:SetCountLimit(1,16348065+1)
e3:SetCondition(c16348065.thcon2)
e3:SetTarget(c16348065.thtg2)
e3:SetOperation(c16348065.thop2)
c:RegisterEffect(e3)
end
function c16348065.cfilter(c)
return c:IsSetCard(0x6dc2) and c:IsFaceup()
end
function c16348065.spcon(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsExistingMatchingCard(c16348065.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c16348065.spfilter(c,e,tp)
return c:IsSetCard(0x6dc2) and c:IsLevel(3) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c16348065.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c16348065.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
end
function c16348065.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,aux.NecroValleyFilter(c16348065.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
local tc=g:GetFirst()
if tc then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
local fid=e:GetHandler():GetFieldID()
tc:RegisterFlagEffect(16348065,RESET_EVENT+RESETS_STANDARD,0,1,fid)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_PHASE+PHASE_END)
e1:SetCountLimit(1)
e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetLabel(fid)
e1:SetLabelObject(tc)
e1:SetCondition(c16348065.thcon)
e1:SetOperation(c16348065.thop)
Duel.RegisterEffect(e1,tp)
end
end
function c16348065.thcon(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject()
if tc:GetFlagEffectLabel(16348065)~=e:GetLabel() then
e:Reset()
return false
else return true end
end
function c16348065.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.SendtoHand(e:GetLabelObject(),nil,REASON_EFFECT)
end
function c16348065.thcfilter1(c)
return c:IsSetCard(0x6dc2) and c:IsFaceup()
end
function c16348065.thcfilter2(c)
return not c:IsSetCard(0x6dc2) or c:IsFacedown()
end
function c16348065.thcon2(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c16348065.thcfilter1,tp,LOCATION_MZONE,0,1,nil)
and not Duel.IsExistingMatchingCard(c16348065.thcfilter2,tp,LOCATION_MZONE,0,1,nil)
end
function c16348065.thtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsAbleToHand() end
if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function c16348065.thop2(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
end
end
\ No newline at end of file
......@@ -93,7 +93,7 @@ function c71403014.op1(e,tp,eg,ep,ev,re,r,rp)
end
end
end
if op_flag then
if op_flag and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_PZONE,0,2,nil,0x715) then
yume.OptionalPendulum(e,c,tp)
end
end
......
......@@ -169,9 +169,11 @@
!setname 0x542 H.I
!setname 0x543 逐火十三英桀
!setname 0x544 之律者
!setname 0x545 深渊教团
!counter 0x1540 蕴种印指示物
!counter 0x540 契约指示物
!counter 0x541 棱镜指示物
!counter 0x1545 深渊指示物
#yuangeril 1404497238 118 0x310-0x31f
!setname 0x3310 创造物
......@@ -377,6 +379,7 @@
!setname 0x3dc2 究极骑士
!setname 0x5dc2 数码精神
!setname 0x6dc2 自由斗士
!setname 0x9dc2 驯兽师
!setname 0xdc3 X抗体
!setname 0xdc4 阿尔法兽
!counter 0xdc0 神耀指示物
......@@ -439,6 +442,14 @@
!setname 0xa6e5 高贵的深红
!setname 0xc6e5 吸血姬
!setname 0x36e6 孤独摇滚
!setname 0x96e6 兜武
!setname 0xc6e6 鼠骑士
!setname 0x6e7 狱水
!setname 0x36e7 狱水甲
!setname 0x56e7 狱水鳞
!setname 0x36e8 蒂蕾
!setname 0x56e8 U.S.
!setname 0x96e8 星选姬
!setname 0x6ed 守护骑士
!setname 0x6ee 忆炼
#DefineSet(code,"LianXing") 恋星
......@@ -468,9 +479,11 @@
!setname 0x9824 祈星·晶
!setname 0x825 溯猎逐时
!setname 0x826 风吟游歌
!setname 0x827 忆质渊
!counter 0x1820 灵骸指示物
!counter 0x1822 誓约指示物
!counter 0x1823 幽梦指示物
!setname 0x1825 狩魔指示物
#AddCodeList(18700201) 奇物-64 帝国中枢齿轮 卡名记述
#imun. 3545696124 190 0x7a0-0x7af
......@@ -499,13 +512,16 @@
#△演示白板 178434020 210 0x600-0x60f
!setname 0x601 道明寺歌鈴
!setname 0x602 神崎兰
!setname 0x602 舆水幸
!setname 0x603 堀裕子
!setname 0x604 千川千寻
!setname 0x605 偶像大师灰姑娘
!setname 0x605 灰灰小偶像
!setname 0x606 片桐早苗
!setname 0x607 大原满
!setname 0x609 璃亚梦
!setname 0x60a 白坂小梅
!setname 0x60b 星輝子
!setname 0x60c 前川未来
!setname 0x60f 大和亚季
#七月七日晴 2118557093 211 0x900-0x90f
......@@ -622,6 +638,7 @@
#fffd 3174054935 317 0x690-0x69f
!setname 0x690 暴风雨
!setname 0x691 作战指令
!counter 0x1690 情报指示物
#VHisc 916214730 332 0x320-0x32f
!setname 0x321 锻溶
......@@ -867,6 +884,7 @@
!setname 0x380 隐居
!setname 0x381 界神
!setname 0x382 演绎者
!setname 0x383 刃道学院
!setname 0x388 机娘
!setname 0x389 神隐
!counter 0x389 神隐指示物
......@@ -1322,6 +1340,9 @@
!counter 0x671 结缘指示物
!counter 0x1673 血指示物
#加汤 2818667760 683 0x630-0x63f
!setname 0x630 magia
#翼龙 1253913364 710
#codelist 废柴小红帽
......@@ -1365,6 +1386,14 @@
!setname 0x3730 洛克
!setname 0x5730 圣物
#TT - 12 750 0x750-0x75f
!setname 0x751 纹章士|非「纹章」
!setname 0x753 苍炎之轨迹
!setname 0x755 烈刃
!setname 0x756 封炎
!setname 0x75c 罪秽
!setname 0x75f 纹章呼唤|非「纹章」
#天生 756460095 756 0x2c0-0x2cf
!setname 0x2c0 崩坏
!setname 0x32c0 崩坏神格
......@@ -1407,6 +1436,7 @@
#幻灵~eidoion 3371467150 791 0xa10-0xa1f
!setname 0xa10 绯红编年史
!setname 0x3a12 复乐园
#yee 1138772630 792 0x5c0-0x5cf
!setname 0x5c0 星钢
......
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