Skip to content

Y
ygopro-222DIY-cards
Commit 0f7e0bec authored by Huangnan's avatar Huangnan
Browse files
Options

cdb delete add lflist strings update

parent f4a33404
Pipeline #33500 passed with stage
    in 29 minutes and 45 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 89 additions and 8344 deletions
    expansions/FiNALE.cdb
    View file @ 0f7e0bec
    No preview for this file type
    expansions/lflist.conf
    View file @ 0f7e0bec
    #[2025.1.DIY....]
    !2025.1.DIY....
    #001
    110015 0 --Fate/Grand Order·Lancer·埃列什基伽勒
    110025 0 --Fate/Grand Order·埃尔梅罗Ⅱ世
    114514 0 --超级沼气前辈 野兽形态
    155567 0 --第三次无限战争
    155580 0 --究极魔导之页
    155590 0 --神说：要有光
    155601 0 --禁忌万物的一滴
    166660 0 --星系守护神 长蛇星神
    166661 0 --拉伊达 3σ
    166662 0 --拉伊达 3σ『龙骑展开』
    166670 0 --拟龙贵族·引导龙女
    166700 3 --拟龙贵族·谋士龙女
    166725 1 --拟龙贵族·复仇龙女
    182130 0 --古道登仙·炼龙骨
    183570 0 --全能全知的栞啊！回应我的呼唤！
    #002
    00200001 1 --魔王的剑
    00200007 0 --青行灯·辉火
    #010
    01000376 0 --美丽的公主·姬丝秀忒
    01000378 1 --美丽善良的金发神明
    ......@@ -97,11 +115,10 @@
    05012601 2 --茵蒂克丝
    05012603 1 --一方通行
    05012604 1 --上条当麻
    05012605 0 --奥雷欧斯·伊萨德
    05012605 1 --奥雷欧斯·伊萨德
    05012609 2 --滨面仕上
    05012613 1 --欧提努斯
    05012615 1 --学院都市
    05012616 0 --欧雷尔斯
    05012622 2 --月咏小萌
    05012628 1 --科隆尊
    05012630 2 --圣日耳曼
    ......@@ -594,6 +611,8 @@
    16362069 2 --英雄传说 神话
    16362070 2 --英雄传说 复仇者
    16372009 2 --山菊·花信
    16349310 1 --中坚骑士 骑士兽
    16372008 1 --玉桂·花信
    #164
    16400039 0 --独裁者的计谋
    16400040 1 --Geass-逃避的战斗
    ......@@ -637,6 +656,29 @@
    16400130 1 --Knightmare-红莲
    16400131 1 --Knightmare-兰斯洛特
    16400370 1 --光之战士 布鲁 跃水
    # 光之战士系列
    16400310 1 --光之战士 欧布 原生
    16400272 1 --光之战士 杰克
    16400291 1 --光之战士 赛文
    16400374 1 --光之战士 泽塔 原始
    16400289 1 --光之战士 阿斯特拉
    16400286 1 --光之战士 奥特曼
    16400379 1 --光之战士 泽塔 德尔塔天爪
    16400337 1 --光之战士 捷德 刚燃
    16400316 1 --光之战士 欧布 三重
    16400390 1 --光之战士 罗布
    16400295 1 --等离子火花塔
    16400296 1 --宇宙警备队 本部
    16400329 1 --奥特宇宙港
    16400330 1 --奥特竞技场
    16400331 1 --奥特技术实验室
    # 光之战士系列（限制为2）
    16400270 2 --光之战士 希卡利
    16400305 2 --光之战士 迪迦
    16400365 2 --光之战士 特利迦
    16400278 2 --光之战士 维克特利
    16400322 2 --光之战士 奈克赛斯
    16400297 2 --光之战士 出动
    #170
    17020410 0 --失落的火焰
    17030610 1 --火神龙
    ......@@ -703,7 +745,7 @@
    17243306 0 --米勒山谷 狼巫
    17243322 0 --基金会 编号682
    17243327 0 --基金会 编号173
    17243329 2 --基金会 编号294
    17243329 1 --基金会 编号294
    17243339 0 --基金会 博士Clef
    17243344 0 --传说的黑夜 耀月龙
    17243349 0 --恩佐·内洛法
    ......@@ -719,6 +761,7 @@
    17243617 1 --剑与魔法石 天鹅座
    17243056 1 --势卫吴疆
    17243060 1 --破军杀敌
    17243312 1 --米勒山谷 石像鬼
    #173
    17300007 0 --Arcaea 绝对的理性 咲弥
    17300011 0 --Arcaea 记忆回响的世界
    ......@@ -766,7 +809,7 @@
    18700055 1 --血罪灵骸·业罪骨
    18700062 2 --血罪灵骸·嗔罪骸蛇
    18700067 1 --天魔血罪·万千苦厄皆呓语·十恶埋骨·原罪骸灵
    18700087 0 --灾绝灭术·归鸿
    18700087 1 --灾绝灭术·归鸿
    18700090 0 --奇物-16 真相没于虚假
    18700130 0 --奇物-36 蓝槿罗之华
    18700132 1 --无常戏伶 芙蕾娜·维尔薇特
    ......@@ -852,6 +895,7 @@
    21113820 1 --芳青之梦 写彩
    21113835 1 --芳青之梦 幻天使
    21113810 1 --芳青之梦 天弦声
    21185665 0 --H：P 自闭宅
    #215
    21520061 1 --玲珑法师-夕雾
    21520066 1 --玲珑法师-鸢尾
    ......@@ -1004,26 +1048,6 @@
    30052005 0 --克里斯汀·罗森塔尔-633cae
    30052011 0 --克里斯汀·罗森塔尔-22b15d
    30052073 0 --感知现实镜面
    #306
    30610015 0 --Fate/Grand Order·Lancer·埃列什基伽勒
    30610025 0 --Fate/Grand Order·埃尔梅罗Ⅱ世
    30614514 0 --超级沼气前辈 野兽形态
    30655567 0 --第三次无限战争
    30655580 0 --究极魔导之页
    30655590 0 --神说：要有光
    30655601 0 --禁忌万物的一滴
    30666660 0 --星系守护神 长蛇星神
    30666661 0 --拉伊达 3σ
    30666662 0 --拉伊达 3σ『龙骑展开』
    30666670 0 --拟龙贵族·引导龙女
    30666700 3 --拟龙贵族·谋士龙女
    30666725 1 --拟龙贵族·复仇龙女
    30682130 0 --古道登仙·炼龙骨
    30683110 0 --M·A·L·Hydra
    30683305 0 --M·A·L·Growth Wedge
    30683425 0 --M·A·L——Null
    30683435 0 --M·A·L·Hive balloon
    30683570 0 --全能全知的栞啊！回应我的呼唤！
    #305
    30553214 0 --墟界天使紊乱
    30553252 1 --浮世苍景
    ......@@ -1306,6 +1330,7 @@
    33538036 1 --下午茶会 苹果茶会
    33538061 0 --少女绘梦 图仓
    33538067 0 --少女绘梦 梦想衣橱
    33500939 0 --水晶洞窟 无名者之墓
    #337
    33700001 1 --上级Protoform 乞力马扎罗
    33700028 1 --Proto-Protoform
    ......@@ -1507,10 +1532,16 @@
    36700010 1 --三重小队·风马－神速残像
    36700001 2 --三重小队·光之勇者－泰迦
    36700016 2 --泰迦光饰·钥匙
    36700018 2 --泰迦火花
    36700018 1 --泰迦火花
    36700013 1 --太阳之子－泰罗
    36700034 1 --极星光波手里剑
    36700031 1 --泰迦光饰·钥匙·形态切换
    36700239 1 --乱炖龙仔-究极龙 新星
    36700242 1 --乱炖龙仔-无牙龙 黑爆裂
    36700245 1 --乱炖龙仔-杰庞顿
    36700250 1 --乱炖龙仔-猛烈凶魇
    36700253 1 --乱炖龙仔-邪恶双头龙
    #375
    37564012 0 --元灵毁灭者·Aya Ayane
    37564041 0 --阎-少女之梦·虚无的世界
    ......@@ -1611,7 +1642,7 @@
    47370104 0 --饕灵魔暗伏
    47390001 2 --LCB=司机 卡戎
    47390004 1 --In Hell We Live, Lament
    47390035 0 --绽放E.G.O::燃气捕鲸叉 亚哈
    47390035 1 --绽放E.G.O::燃气捕鲸叉 亚哈
    47390036 0 --魔王希斯克利夫
    47390254 1 --Dieci协会南部4科 鸿璐
    47310307 0 --残赫照灵 熔火无穷
    ......@@ -1693,6 +1724,11 @@
    51419716 0 --地狱的狂气女神-赫卡提亚
    51419718 0 --地狱的时尚女神-赫卡提亚
    51419720 0 --地狱的三球女神-赫卡提亚
    #523
    52300105 1 --无名者·牺牲
    52300110 1 --无名者·精灵
    #527
    52700103 1 --百群骑士 血腥独角仙
    52700106 1 --百群骑士 格拉法
    ......@@ -1709,7 +1745,8 @@
    52700706 0 --伏魔月影
    52700709 0 --报复之鬼 忍·鬼 大星
    52700712 1 --忍·妖 玉雪
    52700715 0 --忍·兽 鹿雷
    52700715 0 --忍·兽 鹿雷
    52700697 1 --鬼行大道而世人惮之 忍·鬼 猩猩童子
    #537
    53705018 0 --超极幻海袭 丰之黄金
    53707016 0 --清响 抄染扉
    ......@@ -1925,20 +1962,23 @@
    61000009 0 --霞烈之魔妖 火取魔
    61000101 1 --“敬畏”
    #612
    61200001 0 --云轮之界域 云轮界
    61200001 1 --云轮之界域 云轮界
    61200002 1 --至高之器 云轮之玄
    61200003 1 --至高之器 云轮之元
    61200004 1 --云轮大榜 道古玄碑
    61200005 0 --云轮王证 流云令
    61200005 1 --云轮王证 流云令
    61200101 1 --前尘轮转 悲戚云轮之愚者
    61200110 1 --玄元尊仪 云轮之云落
    61200000 1 --瀚古云轮之秘仪
    61200201 1 --五剑一心 云轮之白夜
    61200310 0 --执我酌光 云轮之月曦
    61200310 1 --执我酌光 云轮之月曦
    61200105 1 --前尘轮转 引领云轮之歌者
    61200207 1 --云轮秘造 殇
    61200205 1 --云轮铸造 赤璃玄霜
    61200202 1 --云轮伴剑 白夜
    61200103 1 --前尘轮转 协同云轮之奏者
    61200006 1 --青夜弧光 云轮夜未央
    #639
    63924105 0 --米诺陶诺斯
    63924110 1 --米诺陶诺斯-无法走出的迷宫
    ......@@ -2079,10 +2119,12 @@
    65899905 0 --抽1！抽1！再抽1！
    65899920 0 --反多元防空炮
    65899935 0 --甲虫武士
    65870030 0 ----Protoss·黑暗圣堂武士
    65870030 1 ----Protoss·黑暗圣堂武士
    65870055 1 --Protoss·执政官
    65870110 1 --Protoss·黑暗执政官
    65870025 1 --Protoss·母舰核心
    65899940 0 --万虫希冀之手
    #666
    66600000 0 --夜行的领路人 滑头鬼
    66600002 0 --百鬼夜行 滑头鬼
    ......@@ -2223,7 +2265,7 @@
    81902106 1 --TC.105 隐匿于幕后的禁忌门扉 摩多罗隐岐奈
    81902107 1 --TC.106 赛之河原的弃子 戎璎花
    81902112 1 --TC.111 孤立无援的造形神 埴安神袿姬
    81903100 0 --未确认幻想少女
    81903100 1 --未确认幻想少女
    81905005 1 --八云友·侍 丁礼田舞&尔子田里乃
    81905013 0 --八云友 西行寺幽幽子
    81905014 0 --境界的妖怪 八云紫
    ......
    expansions/script/c183011.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Gladiator
    local m=183011
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --tohand
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e2)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --atk/def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCode(EFFECT_UPDATE_ATTACK)
    e3:SetValue(cm.adval)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e4)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.thfilter(c)
    return c:IsSetCard(0xc19) and c:IsAbleToHand() and not c:IsCode(m) and c:IsType(TYPE_MONSTER)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter,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 cm.filter(c)
    return c:IsFaceup() and c:IsRace(RACE_MACHINE)
    end
    function cm.adval(e,c)
    return Duel.GetMatchingGroupCount(cm.filter,c:GetControler(),LOCATION_MZONE+LOCATION_GRAVE,0,c)*500
    end
    expansions/script/c183015.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Tracker
    local m=183015
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --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)
    e1:SetCondition(cm.spcon)
    c:RegisterEffect(e1)
    --draw
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,0))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,m)
    e2:SetCost(cm.cost)
    e2:SetTarget(cm.target)
    e2:SetOperation(cm.operation)
    c:RegisterEffect(e2)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.filter(c)
    return c:IsFaceup() and c:IsSetCard(0xc19) and not c:IsCode(m)
    end
    function cm.spcon(e,c)
    if c==nil then return true end
    return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and
    Duel.IsExistingMatchingCard(cm.filter,c:GetControler(),LOCATION_MZONE,0,1,nil)
    end
    function cm.costfilter(c)
    return c:IsSetCard(0xc19) and c:IsAbleToRemoveAsCost()
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) and Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
    Duel.Remove(g,POS_FACEUP,REASON_COST)
    KanKan.MALcanntspm(e:GetHandler())
    end
    function cm.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 cm.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
    expansions/script/c183020.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Breakthrough
    local m=183020
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --special summon rule
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_SPSUMMON_PROC)
    e1:SetRange(LOCATION_HAND)
    e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
    e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
    e1:SetCondition(cm.spcon)
    c:RegisterEffect(e1)
    --change level
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_SPSUMMON_COST)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetOperation(cm.lvop)
    c:RegisterEffect(e2)
    --search
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
    e3:SetCode(EVENT_SUMMON_SUCCESS)
    e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e3:SetCountLimit(1,m+1)
    e3:SetCost(cm.cost)
    e3:SetTarget(cm.settg)
    e3:SetOperation(cm.setop)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e4)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.cfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xc19)
    end
    function cm.spcon(e,c)
    if c==nil then return true end
    local tp=c:GetControler()
    return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 or Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil) and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
    end
    function cm.lvop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_CHANGE_LEVEL)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetValue(4)
    e1:SetReset(RESET_EVENT+0x7f0000)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_SET_BASE_ATTACK)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetValue(1500)
    e2:SetReset(RESET_EVENT+0x7f0000)
    c:RegisterEffect(e2)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.filter(c)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable() and c:GetType()~=TYPE_SPELL
    end
    function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
    end
    function cm.setop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
    if #g>0 then
    Duel.SSet(tp,g)
    end
    end
    expansions/script/c183025.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Metal Squad
    local m=183025
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --special summon rule
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_SPSUMMON_PROC)
    e1:SetRange(LOCATION_HAND)
    e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
    e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
    e1:SetCondition(cm.spcon)
    c:RegisterEffect(e1)
    --change level
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_SPSUMMON_COST)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetOperation(cm.lvop)
    c:RegisterEffect(e2)
    --double attack
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e3:SetCode(EVENT_TO_GRAVE)
    e3:SetCountLimit(1,m+1)
    e3:SetTarget(cm.datg)
    e3:SetOperation(cm.daop)
    c:RegisterEffect(e3)
    end
    function cm.cfilter(c)
    return c:IsFaceup() and c:IsType(TYPE_XYZ)
    end
    function cm.spcon(e,c)
    if c==nil then return true end
    local tp=c:GetControler()
    return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
    end
    function cm.lvop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_CHANGE_LEVEL)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetValue(4)
    e1:SetReset(RESET_EVENT+0x7f0000)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_SET_BASE_DEFENSE)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetValue(500)
    e2:SetReset(RESET_EVENT+0x7f0000)
    c:RegisterEffect(e2)
    end
    function cm.dafilter(c)
    return c:IsFaceup() and c:IsSetCard(0xc19)
    end
    function cm.datg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.dafilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.dafilter,tp,LOCATION_MZONE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    Duel.SelectTarget(tp,cm.dafilter,tp,LOCATION_MZONE,0,1,1,nil)
    end
    function cm.daop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) and tc:IsFaceup() then
    local atk=tc:GetAttack()
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EFFECT_SET_ATTACK_FINAL)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetValue(atk*2)
    tc:RegisterEffect(e1)
    end
    end
    expansions/script/c183030.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Cathode Ray Tube
    local m=183030
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e1:SetCode(EVENT_SUMMON_SUCCESS)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e2)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --atk/def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCode(EFFECT_UPDATE_ATTACK)
    e3:SetValue(cm.adval)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e4)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.thfilter(c)
    return c:IsSetCard(0xc19) and c:IsAbleToHand() and not c:IsCode(m) and c:IsType(TYPE_MONSTER)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xc19) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE) and not c:IsCode(m) and c:IsType(TYPE_MONSTER)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and cm.spfilter(chkc,e,tp) end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingTarget(cm.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectTarget(tp,cm.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
    end
    end
    function cm.filter(c)
    return c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.adval(e,c)
    return Duel.GetMatchingGroupCount(cm.filter,c:GetControler(),LOCATION_ONFIELD+LOCATION_GRAVE,0,c)*300
    end
    expansions/script/c183035.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L
    local m=183035
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --to grave
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_TOGRAVE)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCode(EVENT_SUMMON_SUCCESS)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.tgtg)
    e1:SetOperation(cm.tgop)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e2)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --hand link
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e3:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
    e3:SetRange(LOCATION_HAND)
    e3:SetCountLimit(1,m+1)
    e3:SetValue(cm.matval)
    c:RegisterEffect(e3)
    --search
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,1))
    e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e4:SetProperty(EFFECT_FLAG_DELAY)
    e4:SetCode(EVENT_BE_MATERIAL)
    e4:SetCountLimit(1,m+2)
    e4:SetCondition(cm.thcon)
    e4:SetOperation(cm.thop)
    c:RegisterEffect(e4)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.tgfilter(c)
    return c:IsSetCard(0xc19) and not c:IsCode(m) and c:IsAbleToGrave()
    end
    function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
    end
    function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoGrave(g,REASON_EFFECT)
    end
    end
    function cm.mfilter(c)
    return c:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c:IsSetCard(0xc19)
    end
    function cm.exmfilter(c)
    return c:IsLocation(LOCATION_HAND) and c:IsCode(m)
    end
    function cm.matval(e,lc,mg,c,tp)
    if not lc:IsSetCard(0xc19) then return false,nil end
    return true,not mg or mg:IsExists(cm.mfilter,1,nil) and not mg:IsExists(cm.exmfilter,1,nil)
    end
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    e:SetLabel(0)
    if c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and c:IsPreviousLocation(LOCATION_ONFIELD+LOCATION_HAND) and r==REASON_LINK and c:GetReasonCard():IsSetCard(0xc19) then
    if c:IsPreviousLocation(LOCATION_ONFIELD) then
    e:SetLabel(1)
    c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    end
    return true
    else
    return false
    end
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    if (e:GetLabel()==0 or Duel.SelectOption(tp,1003,1100)==0) then
    local sg1=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_SZONE,LOCATION_SZONE,nil)
    Duel.Destroy(sg1,REASON_EFFECT)
    else
    local sg2=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_SZONE,nil)
    Duel.Destroy(sg2,REASON_EFFECT)
    end
    end
    expansions/script/c183040.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L
    local m=183040
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    --pendulum set
    local e0=Effect.CreateEffect(c)
    e0:SetDescription(aux.Stringid(m,0))
    e0:SetType(EFFECT_TYPE_IGNITION)
    e0:SetRange(LOCATION_PZONE)
    e0:SetCountLimit(1,m)
    e0:SetCost(cm.pccost)
    e0:SetTarget(cm.pctg)
    e0:SetOperation(cm.pcop)
    c:RegisterEffect(e0)
    --spsummon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m+1)
    e1:SetCost(cm.spcost)
    e1:SetTarget(cm.settg)
    e1:SetOperation(cm.setop)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    KanKan.MALPleave(c,m)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.pcfilter1(c)
    return c:IsDiscardable()
    end
    function cm.pccost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.pcfilter1,tp,LOCATION_HAND,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
    local g=Duel.SelectMatchingCard(tp,cm.pcfilter1,tp,LOCATION_HAND,0,1,1,nil)
    Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
    end
    function cm.pcfilter0(c)
    return c:IsType(TYPE_PENDULUM) and not c:IsForbidden() and c:IsSetCard(0xc19)
    end
    function cm.pctg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
    and Duel.IsExistingMatchingCard(cm.pcfilter0,tp,LOCATION_DECK,0,1,nil) end
    end
    function cm.pcop(e,tp,eg,ep,ev,re,r,rp)
    if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
    local g=Duel.SelectMatchingCard(tp,cm.pcfilter0,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
    end
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsReleasable() and Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    Duel.Release(e:GetHandler(),REASON_COST)
    end
    function cm.filter(c)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_SPELL) and c:IsSSetable()
    end
    function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
    end
    function cm.setop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
    if #g>0 then
    Duel.SSet(tp,g)
    end
    end
    \ No newline at end of file
    expansions/script/c183045.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L Riot
    local m=183045
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    --special summon
    local e0=Effect.CreateEffect(c)
    e0:SetDescription(aux.Stringid(m,0))
    e0:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
    e0:SetType(EFFECT_TYPE_IGNITION)
    e0:SetRange(LOCATION_PZONE)
    e0:SetCountLimit(1,m)
    e0:SetCondition(cm.spcon)
    e0:SetTarget(KanKan.MALFusionPEXtg)
    e0:SetOperation(KanKan.MALFusionPEXop)
    c:RegisterEffect(e0)
    --spsummon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m+1)
    e1:SetCost(cm.spcost)
    e1:SetTarget(cm.pentg)
    e1:SetOperation(cm.penop)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --set
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,2))
    e4:SetType(EFFECT_TYPE_IGNITION)
    e4:SetRange(LOCATION_EXTRA)
    e4:SetCountLimit(1,m+2)
    e4:SetCost(cm.lpcost)
    e4:SetTarget(cm.tftg)
    e4:SetOperation(cm.tfop)
    c:RegisterEffect(e4)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(nil,tp,LOCATION_PZONE,0,1,e:GetHandler())
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.penfilter(c,e,tp)
    return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.penfilter,tp,LOCATION_PZONE,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_PZONE)
    end
    function cm.penop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.penfilter,tp,LOCATION_PZONE,0,1,1,nil,e,tp)
    if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0 then
    Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
    end
    end
    function cm.lpcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.tffilter(c)
    return c:IsSetCard(0xc19) and not c:IsForbidden() and c:IsType(TYPE_MONSTER)
    end
    function cm.tftg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingMatchingCard(cm.tffilter,tp,LOCATION_DECK,0,1,nil) end
    end
    function cm.tfop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
    local g=Duel.SelectMatchingCard(tp,cm.tffilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    local tc=g:GetFirst()
    Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetCode(EFFECT_CHANGE_TYPE)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetValue(TYPE_SPELL+TYPE_TRAP+TYPE_CONTINUOUS)
    tc:RegisterEffect(e1)
    end
    end
    \ No newline at end of file
    expansions/script/c183050.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L Arsenal Crab
    local m=183050
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --pendulum summon
    aux.EnablePendulumAttribute(c)
    --spsummon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.operation)
    c:RegisterEffect(e1)
    --to hand
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,2))
    e2:SetCategory(CATEGORY_TOHAND)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,m+1)
    e2:SetCost(cm.thcost)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    --Summon
    KanKan.MALSZSpm(c,m)
    end
    function cm.cfilter(c)
    return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsAbleToDeckAsCost()
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xc19) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_EXTRA,0,3,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_EXTRA,0,3,3,nil)
    Duel.SendtoDeck(g,nil,3,REASON_COST)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsReleasable() end
    Duel.Release(e:GetHandler(),REASON_COST)
    end
    function cm.thfilter(c)
    return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and c:IsSetCard(0xc19)
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and cm.thfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
    local g=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    Duel.SendtoHand(tc,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,tc)
    end
    end
    expansions/script/c183055.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L Titan
    local m=183055
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    aux.EnablePendulumAttribute(c)
    --spsummon
    local e0=Effect.CreateEffect(c)
    e0:SetDescription(aux.Stringid(m,0))
    e0:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
    e0:SetType(EFFECT_TYPE_IGNITION)
    e0:SetRange(LOCATION_PZONE)
    e0:SetCountLimit(1,m)
    e0:SetTarget(cm.rptg)
    e0:SetOperation(cm.rpop)
    c:RegisterEffect(e0)
    --act limit
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,5))
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetCountLimit(1,m+3)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.operation)
    c:RegisterEffect(e1)
    --Summon
    KanKan.MALSZSpm(c,m)
    KanKan.MALPleave(c,m)
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xc19) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.rptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
    end
    function cm.rpop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)>0 then
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsReleasable() end
    Duel.Release(e:GetHandler(),REASON_COST)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
    e:SetLabel(Duel.AnnounceType(tp))
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
    e1:SetCode(EFFECT_CANNOT_ACTIVATE)
    e1:SetTargetRange(0,1)
    if e:GetLabel()==0 then
    e1:SetDescription(aux.Stringid(m,2))
    e1:SetValue(cm.aclimit1)
    elseif e:GetLabel()==1 then
    e1:SetDescription(aux.Stringid(m,3))
    e1:SetValue(cm.aclimit2)
    else
    e1:SetDescription(aux.Stringid(m,4))
    e1:SetValue(cm.aclimit3)
    end
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.aclimit1(e,re,tp)
    local rc=re:GetHandler()
    return rc:IsLocation(LOCATION_HAND) and re:IsActiveType(TYPE_MONSTER)
    end
    function cm.aclimit2(e,re,tp)
    local rc=re:GetHandler()
    return rc:IsLocation(LOCATION_HAND) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL)
    end
    function cm.aclimit3(e,re,tp)
    local rc=re:GetHandler()
    return rc:IsLocation(LOCATION_HAND) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_TRAP)
    end
    expansions/script/c183060.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L Army Space Fleet
    local m=183060
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    c:EnableReviveLimit()
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_SPSUMMON_PROC)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
    e1:SetCost(cm.spcost)
    e1:SetCondition(cm.spcon)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --actlimit
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e2:SetCode(EFFECT_CANNOT_ACTIVATE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetTargetRange(0,1)
    e2:SetValue(1)
    e2:SetCondition(cm.actcon)
    c:RegisterEffect(e2)
    --ATK
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,1))
    e3:SetCategory(CATEGORY_ATKCHANGE)
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCountLimit(1,m)
    e3:SetCondition(cm.atkcon)
    e3:SetTarget(cm.atktg)
    e3:SetOperation(cm.atkop)
    c:RegisterEffect(e3)
    --immune
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetCode(EFFECT_IMMUNE_EFFECT)
    e5:SetValue(cm.efilter1)
    c:RegisterEffect(e5)
    --immune
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_SINGLE)
    e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e6:SetRange(LOCATION_MZONE)
    e6:SetCode(EFFECT_IMMUNE_EFFECT)
    e6:SetValue(cm.efilter2)
    c:RegisterEffect(e6)
    end
    cm.spchecks=aux.CreateChecks(Card.IsType,{TYPE_RITUAL,TYPE_FUSION,TYPE_SYNCHRO,TYPE_XYZ,TYPE_PENDULUM,TYPE_LINK})
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetReset(RESET_PHASE+PHASE_END)
    e1:SetTargetRange(1,0)
    e1:SetTarget(cm.splimit)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
    return not c:IsSetCard(0xc19)
    end
    function cm.spcostfilter(c)
    return c:IsFaceup() and c:IsAbleToDeckOrExtraAsCost() and c:IsType(TYPE_RITUAL+TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_PENDULUM+TYPE_LINK) and c:IsSetCard(0xc19) and c:IsType(TYPE_MONSTER)
    end
    function cm.spcon(e,c)
    if c==nil then return true end
    local tp=c:GetControler()
    local g=Duel.GetMatchingGroup(cm.spcostfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
    return g:CheckSubGroupEach(cm.spchecks,aux.mzctcheck,tp)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
    local g=Duel.GetMatchingGroup(cm.spcostfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local sg=g:SelectSubGroupEach(tp,cm.spchecks,true,aux.mzctcheck,tp)
    if sg then
    sg:KeepAlive()
    e:SetLabelObject(sg)
    return true
    else return false end
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
    local g=e:GetLabelObject()
    Duel.SendtoDeck(g,nil,2,REASON_COST)
    end
    function cm.actcon(e)
    return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()
    end
    function cm.efilter1(e,te)
    return (te:GetHandler():GetType()&TYPE_RITUAL~=0 or te:GetHandler():GetType()&TYPE_FUSION~=0 or te:GetHandler():GetType()&TYPE_SYNCHRO~=0 or te:GetHandler():GetType()&TYPE_XYZ~=0 or te:GetHandler():GetType()&TYPE_PENDULUM~=0 or te:GetHandler():GetType()&TYPE_LINK~=0) and te:GetOwner()~=e:GetOwner()
    end
    function cm.efilter2(e,te)
    return te:IsActiveType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
    end
    function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,e:GetHandler()):GetSum(Card.GetAttack)>0 end
    end
    function cm.filter1(c)
    return c:IsType(TYPE_XYZ) and c:GetOverlayCount()>0
    end
    function cm.filter2(c)
    return c:IsType(TYPE_MONSTER) and c:IsAttackAbove(0)
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsFaceup() and c:IsRelateToEffect(e) then
    local atk1=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,c):GetSum(Card.GetAttack)
    local g2=Duel.GetMatchingGroup(cm.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
    local atk2=0
    if g2:GetCount()>0 then
    local tc2=g2:GetFirst()
    while tc2 do
    local cg=tc2:GetOverlayGroup()
    local sg=cg:Filter( cm.filter2,nil)
    if sg:GetCount()>0 then
    local tc3=sg:GetFirst()
    while tc3 do
    atk2=atk2+tc3:GetAttack()
    tc3=sg:GetNext()
    end
    end
    tc2=g2:GetNext()
    end
    end
    local atk=atk1+atk2
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    e1:SetValue(atk)
    c:RegisterEffect(e1)
    end
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
    e0:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e0:SetTargetRange(LOCATION_MZONE,0)
    e0:SetTarget(cm.ftarget)
    e0:SetLabel(c:GetFieldID())
    e0:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e0,tp)
    end
    function cm.ftarget(e,c)
    return e:GetLabel()~=c:GetFieldID()
    end
    expansions/script/c183085.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Imperial Chief
    local m=183085
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    aux.EnablePendulumAttribute(c)
    c:EnableReviveLimit()
    --ev
    KanKan.MALritual(c,m,cm.descon)
    KanKan.MALSZSpm(c,m,183085)
    KanKan.MALeffectgain(c,m,cm.effop)
    --to hand
    local e0=Effect.CreateEffect(c)
    e0:SetDescription(aux.Stringid(m,0))
    e0:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_GRAVE_ACTION)
    e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e0:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
    e0:SetRange(LOCATION_PZONE)
    e0:SetCountLimit(1,m+1)
    e0:SetTarget(cm.thtg)
    e0:SetOperation(cm.thop)
    c:RegisterEffect(e0)
    end
    function cm.filter(c)
    return c:IsSetCard(0xc19) and c:IsDiscardable(REASON_DISCARD)
    end
    function cm.descon(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetTurnPlayer()~=tp then return false end
    local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
    local ph=Duel.GetCurrentPhase()
    return rp~=tp and Duel.IsChainDisablable(ev) and re:IsActiveType(TYPE_MONSTER) and loc==LOCATION_GRAVE+LOCATION_REMOVED
    and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil) and not (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)
    end
    function cm.effop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    --
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetDescription(aux.Stringid(m,4))
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetCode(EFFECT_CANNOT_REMOVE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCondition(cm.reascon)
    e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
    rc:RegisterEffect(e1,true)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetDescription(aux.Stringid(m,4))
    e2:SetCode(EFFECT_CANNOT_ACTIVATE)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
    e2:SetRange(LOCATION_MZONE)
    e2:SetTargetRange(1,1)
    e2:SetCondition(function (e,rc)
    return Duel.IsExistingMatchingCard(function (c)
    return c:IsFaceup() and c==e:GetHandler()
    end,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
    end)
    e2:SetValue(cm.limval)
    e2:SetReset(RESET_EVENT+RESETS_REDIRECT)
    rc:RegisterEffect(e2,true)
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,4))
    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e4:SetCode(EFFECT_DESTROY_REPLACE)
    e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CLIENT_HINT+EFFECT_FLAG_CANNOT_DISABLE)
    e4:SetRange(LOCATION_MZONE)
    e4:SetTarget(cm.reptg)
    e4:SetReset(RESET_EVENT+RESETS_REDIRECT)
    rc:RegisterEffect(e4,true)
    if not Auxiliary.HackIsAbleToGrave then
    Auxiliary.HackIsAbleToGrave=true
    HackIsAbleToGrave=Card.IsAbleToGrave
    HackIsAbleToGraveAsCost=Card.IsAbleToGraveAsCost
    function Card.IsAbleToGrave(c)
    if rc:IsFaceup() then
    return false
    end
    end
    function Card.IsAbleToGraveAsCost(c)
    if rc:IsFaceup() then
    return false
    end
    end
    end
    if not rc:IsType(TYPE_EFFECT) then
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_ADD_TYPE)
    e3:SetValue(TYPE_EFFECT)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e3,true)
    end
    rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
    end
    function cm.reascon(e,tp,eg,ep,ev,re,r,rp)
    return not (r==REASON_SYNCHRO or r==REASON_FUSION or r==REASON_LINK or r==REASON_XYZ)
    end
    function cm.limval(e,te)
    local ex=Duel.GetOperationInfo(ev,CATEGORY_TOGRAVE)
    return te:IsHasCategory(CATEGORY_TOGRAVE) or ex
    or te:IsHasCategory(CATEGORY_DECKDES)
    or te:IsHasCategory(CATEGORY_HANDES)
    end
    function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE) end
    Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    function cm.thfilter(c)
    return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) and e:GetHandler():IsAbleToHand() end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
    local tc=g:GetFirst()
    if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then
    Duel.ConfirmCards(1-tp,tc)
    if c:IsRelateToEffect(e) then
    Duel.BreakEffect()
    Duel.SendtoHand(c,nil,REASON_EFFECT)
    end
    end
    end
    expansions/script/c183090.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Orion
    local m=183090
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    c:EnableReviveLimit()
    --ev
    KanKan.MALritual(c,m,cm.descon)
    --atkup
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_ATKCHANGE)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
    e2:SetCountLimit(1,m+1)
    e2:SetCondition(cm.atkcon)
    e2:SetTarget(cm.atktg)
    e2:SetOperation(cm.atkop)
    c:RegisterEffect(e2)
    end
    function cm.filter(c)
    return c:IsSetCard(0xc19) and c:IsDiscardable(REASON_DISCARD)
    end
    function cm.descon(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetTurnPlayer()~=tp then return false end
    local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
    local ph=Duel.GetCurrentPhase()
    return rp~=tp and Duel.IsChainDisablable(ev) and re:IsActiveType(TYPE_MONSTER) and loc==LOCATION_HAND and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil) and not (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL)
    end
    function cm.atktgfilter1(c,tp)
    return c:IsFaceup() and Duel.IsExistingTarget(cm.atktgfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,c)
    end
    function cm.atktgfilter2(c)
    return c:IsFaceup()
    end
    function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return false end
    if chk==0 then return Duel.IsExistingTarget(cm.atktgfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    local g=Duel.SelectTarget(tp,cm.atktgfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    Duel.SelectTarget(tp,cm.atktgfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,g)
    end
    function cm.atkfilter(c,e)
    return c:IsRelateToEffect(e) and c:IsFaceup()
    end
    function cm.atkupfilter(c,g)
    return g:FilterCount(cm.atktgfilter2,c)>0
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(cm.atkfilter,nil,e)
    if #g==2 then
    Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,2))
    local hc=g:FilterSelect(tp,cm.atkupfilter,1,1,nil,g):GetFirst()
    if not hc then return end
    local tc=g:Filter(aux.TRUE,hc):GetFirst()
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetValue(tc:GetAttack())
    hc:RegisterEffect(e1)
    end
    end
    expansions/script/c183095.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Command Chief
    local m=183095
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    c:EnableReviveLimit()
    --ev
    KanKan.MALritual(c,m,cm.descon)
    --to hand
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_TOHAND)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e2:SetCountLimit(1,m+1)
    e2:SetCondition(cm.thcon)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    end
    function cm.filter(c)
    return c:IsSetCard(0xc19) and c:IsDiscardable(REASON_DISCARD)
    end
    function cm.descon(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetTurnPlayer()~=tp then return false end
    local ph=Duel.GetCurrentPhase()
    return rp~=tp and Duel.IsChainDisablable(ev) and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil) and not (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)
    end
    function cm.thfilter1(c,lv)
    return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and c:IsLevelAbove(1)
    end
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL)
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    local c=e:GetHandler()
    local lv=c:GetLevel()
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter1(chkc,lv) end
    if chk==0 then return c:IsLevelAbove(1) and c:IsRelateToEffect(e)
    and Duel.IsExistingTarget(cm.thfilter1,tp,LOCATION_GRAVE,0,1,nil,lv) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectTarget(tp,cm.thfilter1,tp,LOCATION_GRAVE,0,1,1,nil,lv)
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsFaceup() and c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then
    local lv=tc:GetLevel()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_CHANGE_LEVEL)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetValue(lv)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    Duel.BreakEffect()
    Duel.SendtoHand(tc,nil,REASON_EFFECT)
    end
    end
    expansions/script/c183100.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Ground Roar
    local m=183100
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcFunRep(c,cm.ffilter,2,true)
    --spsummon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost)
    e1:SetCondition(cm.spcon)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --to extra
    local e2=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_TOEXTRA)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetCode(EVENT_DESTROYED)
    e2:SetCondition(cm.tecon)
    e2:SetTarget(cm.tetg)
    e2:SetOperation(cm.teop)
    c:RegisterEffect(e2)
    end
    function cm.ffilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xc19) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
    end
    function cm.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,cm.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
    function cm.tecon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:IsReason(REASON_EFFECT+REASON_BATTLE) and c:IsPreviousLocation(LOCATION_ONFIELD)
    end
    function cm.tetg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)
    end
    function cm.teop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    expansions/script/c183105.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Enfocer
    local m=183105
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    c:EnableReviveLimit()
    aux.AddFusionProcFun2(c,cm.matfilter1,cm.matfilter2,true)
    --cannot be target
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e0:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_SET_AVAILABLE)
    e0:SetRange(LOCATION_MZONE)
    e0:SetTargetRange(LOCATION_MZONE,0)
    e0:SetCondition(cm.imcon)
    e0:SetTarget(cm.imval)
    e0:SetValue(cm.imfilter)
    c:RegisterEffect(e0)
    --position
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_SET_POSITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
    e1:SetValue(POS_FACEUP_ATTACK)
    c:RegisterEffect(e1)
    --immune
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e2:SetCode(EFFECT_IMMUNE_EFFECT)
    e2:SetRange(LOCATION_MZONE)
    e2:SetValue(cm.immval)
    c:RegisterEffect(e2)
    --atk
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_MATERIAL_CHECK)
    e3:SetValue(cm.valcheck)
    c:RegisterEffect(e3)
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e4:SetCode(EVENT_SPSUMMON_SUCCESS)
    e4:SetCondition(cm.atkcon)
    e4:SetOperation(cm.atkop)
    e4:SetLabelObject(e3)
    c:RegisterEffect(e4)
    end
    function cm.matfilter1(c)
    return c:IsFusionSetCard(0xc19) and c:IsType(TYPE_FUSION)
    end
    function cm.matfilter2(c)
    return c:IsRace(RACE_MACHINE)
    end
    function cm.imcon(e)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
    end
    function cm.imval(e,c)
    return c~=e:GetHandler()
    end
    function cm.imfilter(e,re,rp)
    return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_MONSTER)
    end
    function cm.immval(e,re)
    local rc=re:GetHandler()
    return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and re:GetActivateLocation()==LOCATION_MZONE
    and (rc:IsRelateToEffect(re) and rc:IsAttackPos() or not rc:IsRelateToEffect(re) and rc:IsPreviousPosition(POS_ATTACK))
    end
    function cm.valcheck(e,c)
    local g=c:GetMaterial()
    local atk=0
    local tc=g:GetFirst()
    while tc do
    local lk
    if tc:IsLevelAbove(1) then lk=tc:GetLevel()
    elseif tc:IsRankAbove(1) then lk=tc:GetRank()
    elseif tc:IsLinkAbove(1) then lk=tc:GetLink()
    end
    atk=atk+lk
    tc=g:GetNext()
    end
    e:SetLabel(atk)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local atk=e:GetLabelObject():GetLabel()*300
    if atk>0 then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(atk)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e2)
    end
    end
    expansions/script/c183110.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Hydra
    local m=183110
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcFunRep(c,cm.ffilter,2,true)
    --spsummon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost)
    e1:SetCondition(cm.thcon)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    KanKan.MALeffectgain(c,m,cm.effop)
    end
    function cm.ffilter(c)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_LINK)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
    end
    function cm.thfilter1(c)
    return c:GetType()==TYPE_SPELL and c:IsAbleToHand() and c:IsSetCard(0xc19)
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter1,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter1,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function cm.effop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    --
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e1:SetValue(aux.tgoval)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e1,true)
    if not rc:IsType(TYPE_EFFECT) then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_ADD_TYPE)
    e2:SetValue(TYPE_EFFECT)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e2,true)
    end
    rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    end
    expansions/script/c183115.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Cheiron
    local m=183115
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --fusion material
    aux.AddFusionProcFunFunRep(c,aux.FilterBoolFunction(Card.IsSetCard,0xc19),aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),1,99,true,true)
    c:EnableReviveLimit()
    aux.EnablePendulumAttribute(c,false)
    KanKan.MALeffectgain(c,m,cm.effop)
    KanKan.MALPleave(c,m)
    --pendulum set
    local e0=Effect.CreateEffect(c)
    e0:SetDescription(aux.Stringid(m,0))
    e0:SetType(EFFECT_TYPE_IGNITION)
    e0:SetRange(LOCATION_PZONE)
    e0:SetCountLimit(1,m+1)
    e0:SetTarget(cm.pctg)
    e0:SetOperation(cm.pcop)
    c:RegisterEffect(e0)
    --search
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost1)
    e1:SetCondition(cm.spcon1)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --destroy
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,2))
    e3:SetCategory(CATEGORY_DESTROY)
    e3:SetType(EFFECT_TYPE_IGNITION)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCountLimit(1,m+3)
    e3:SetTarget(cm.tgtg)
    e3:SetOperation(cm.tgop)
    c:RegisterEffect(e3)
    end
    function cm.pcfilter(c,tp)
    return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and not c:IsForbidden() and c:CheckUniqueOnField(tp,LOCATION_SZONE)
    end
    function cm.pctg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
    and Duel.IsExistingMatchingCard(cm.pcfilter,tp,LOCATION_EXTRA,0,1,nil,tp) end
    end
    function cm.pcop(e,tp,eg,ep,ev,re,r,rp)
    if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
    local g=Duel.SelectMatchingCard(tp,cm.pcfilter,tp,LOCATION_EXTRA,0,1,1,nil,tp)
    if g:GetCount()>0 then
    Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
    end
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    end
    function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
    end
    function cm.spfilter1(c)
    return c:IsCode(183530) and c:IsSSetable()
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_DECK,0,1,nil) end
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter1,tp,LOCATION_DECK,0,1,1,nil)
    if #g>0 then
    Duel.SSet(tp,g)
    end
    end
    function cm.desfilter(c)
    return c:IsType(TYPE_SPELL+TYPE_TRAP+TYPE_MONSTER)
    end
    function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsOnField() and cm.desfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
    local ct=e:GetHandler():GetMaterialCount()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectTarget(tp,cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
    end
    function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
    Duel.Destroy(g,REASON_EFFECT)
    end
    function cm.effop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    --
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT+EFFECT_FLAG_PLAYER_TARGET)
    e1:SetCode(EFFECT_CANNOT_TO_DECK)
    e1:SetTargetRange(1,0)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e1,true)
    if not rc:IsType(TYPE_EFFECT) then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_ADD_TYPE)
    e2:SetValue(TYPE_EFFECT)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e2,true)
    end
    rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    end
    expansions/script/c183120.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L 【Centaur】
    local m=183120
    local cm=_G["c"..m]
    cm.dfc_front_side=183120
    cm.dfc_back_side=183445
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --link summon
    aux.AddLinkProcedure(c,nil,2,99,cm.lcheck)
    c:EnableReviveLimit()
    c:SetUniqueOnField(1,0,m)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetCategory(CATEGORY_ATKCHANGE)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetCountLimit(99)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCost(cm.spcost)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --selfdes(Excessive idling)
    local e7=Effect.CreateEffect(c)
    e7:SetType(EFFECT_TYPE_SINGLE)
    e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e7:SetRange(LOCATION_MZONE)
    e7:SetCode(EFFECT_SELF_DESTROY)
    e7:SetCondition(cm.descon1)
    c:RegisterEffect(e7)
    --atkdown
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,3))
    e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_REMOVE)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetCountLimit(1,m+1)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCost(cm.atkcost)
    e2:SetCondition(cm.atkcon)
    e2:SetOperation(cm.atkop)
    c:RegisterEffect(e2)
    end
    function cm.lcheck(g,lc)
    return g:IsExists(cm.lkfilter1,1,nil)
    end
    function cm.lkfilter1(c)
    return c:IsLinkType(TYPE_FUSION) and c:IsSetCard(0xc19)
    end
    function cm.costfilter(c)
    return c:IsDiscardable()
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter,tp,LOCATION_HAND,0,1,nil) end
    local g1=Duel.SelectMatchingCard(tp,cm.costfilter,tp,LOCATION_HAND,0,0,99,nil)
    if Duel.SendtoGrave(g1,REASON_COST+REASON_DISCARD)~=0 then
    local gc=g1:GetCount()
    e:SetLabel(gc)
    end
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsFaceup() and c:IsRelateToEffect(e) then
    local gc=e:GetLabel()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_BASE_ATTACK)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    e1:SetValue(gc*2000)
    c:RegisterEffect(e1)
    end
    Duel.BreakEffect()
    if c:GetFlagEffect(m)>=3 then
    Duel.Hint(24,0,aux.Stringid(m,11))
    Duel.Hint(24,0,aux.Stringid(m,11))
    Duel.Hint(24,0,aux.Stringid(m,11))
    end
    Duel.BreakEffect()
    if c:IsAttackAbove(6000) then
    c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
    end
    end
    function cm.descon1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:GetFlagEffect(m)>=4
    end
    function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return true end
    c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():GetBaseAttack()>=4000
    end
    function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_MZONE,1,nil) end
    end
    ---
    ---
    ---
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    local g11=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_MZONE,1,1,nil)
    local tc=g11:GetFirst()
    local atk1=tc:GetAttack()
    local atkac=c:GetBaseAttack()
    local atkwtf=math.floor(((c:GetAttack()-6000)/1000)/2)
    local atkmax=atkwtf*10
    if tc then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_UPDATE_ATTACK)
    e2:SetValue(-atkac)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e2)
    Duel.BreakEffect()
    if tc:IsAttack(0) then
    Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
    if c:GetAttack()<6000 and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
    Duel.BreakEffect()
    Duel.Hint(24,0,aux.Stringid(m,13))
    Duel.BreakEffect()
    Duel.Hint(24,0,aux.Stringid(m,14))
    local tcode=c.dfc_back_side
    c:SetEntityCode(tcode,true)
    c:ReplaceEffect(tcode,0,0)
    Duel.Hint(HINT_CARD,1,183445)
    end
    elseif tc:IsAttack(atk1) then
    Duel.Remove(tc,POS_FACEDOWN,REASON_RULE)
    if c:GetAttack()<6000 and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
    Duel.BreakEffect()
    Duel.Hint(24,0,aux.Stringid(m,13))
    Duel.BreakEffect()
    Duel.Hint(24,0,aux.Stringid(m,14))
    local tcode=c.dfc_back_side
    c:SetEntityCode(tcode,true)
    c:ReplaceEffect(tcode,0,0)
    Duel.Hint(HINT_CARD,1,183445)
    end
    end
    if c:GetAttack()>=6000 then
    if tc:IsAttack(0) then
    Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
    if not KanKan.resultnumber then
    local result=0
    local g=Duel.GetFieldGroup(0,0xff,0xff):RandomSelect(0,8)
    local ct={}
    local c=g:GetFirst()
    for i=0,7 do
    ct[c]=i
    c=g:GetNext()
    end
    for i=0,10 do
    result=result+(ct[g:RandomSelect(2,1):GetFirst()]<<(3*i))
    end
    g:DeleteGroup()
    KanKan.resultnumber=result&0xffffffff
    end
    local dice1=KanKan.odds(1,10)
    e:GetHandler():SetTurnCounter(dice1)
    local dice2=KanKan.odds(1,10)
    e:GetHandler():SetTurnCounter(dice2)
    local c=e:GetHandler()
    if c:IsFaceup() and c:IsRelateToEffect(e) then
    if dice1==10 and dice2~=10 then dice1=0 end
    if dice1~=10 and dice2==10 then dice2=0 end
    local x=(dice1*10)+dice2
    if dice1==10 and dice2==10 then x=100 end
    if x>50-atkmax then
    Duel.Hint(24,0,aux.Stringid(m,12))
    Duel.Hint(24,0,aux.Stringid(m,12))
    Duel.Hint(24,0,aux.Stringid(m,12))
    Duel.BreakEffect()
    Duel.SendtoGrave(c,REASON_RULE)
    else
    if Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
    Duel.BreakEffect()
    Duel.Hint(24,0,aux.Stringid(m,13))
    Duel.BreakEffect()
    Duel.Hint(24,0,aux.Stringid(m,14))
    local tcode=c.dfc_back_side
    c:SetEntityCode(tcode,true)
    c:ReplaceEffect(tcode,0,0)
    Duel.Hint(HINT_CARD,1,183445)
    end
    end
    end--(结算完毕开始骰)
    elseif tc:IsAttack(atk1) then
    Duel.Remove(tc,POS_FACEDOWN,REASON_RULE)
    if not KanKan.resultnumber then
    local result=0
    local g=Duel.GetFieldGroup(0,0xff,0xff):RandomSelect(0,8)
    local ct={}
    local c=g:GetFirst()
    for i=0,7 do
    ct[c]=i
    c=g:GetNext()
    end
    for i=0,10 do
    result=result+(ct[g:RandomSelect(2,1):GetFirst()]<<(3*i))
    end
    g:DeleteGroup()
    KanKan.resultnumber=result&0xffffffff
    end
    local dice1=KanKan.odds(1,10)
    e:GetHandler():SetTurnCounter(dice1)
    local dice2=KanKan.odds(1,10)
    e:GetHandler():SetTurnCounter(dice2)
    local c=e:GetHandler()
    if c:IsFaceup() and c:IsRelateToEffect(e) then
    if dice1==10 and dice2~=10 then dice1=0 end
    if dice1~=10 and dice2==10 then dice2=0 end
    local x=(dice1*10)+dice2
    if dice1==10 and dice2==10 then x=100 end
    if x>50-atkmax then
    Duel.Hint(24,0,aux.Stringid(m,12))
    Duel.Hint(24,0,aux.Stringid(m,12))
    Duel.Hint(24,0,aux.Stringid(m,12))
    Duel.BreakEffect()
    Duel.SendtoGrave(c,REASON_RULE)
    else
    if Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
    Duel.BreakEffect()
    Duel.Hint(24,0,aux.Stringid(m,13))
    Duel.BreakEffect()
    Duel.Hint(24,0,aux.Stringid(m,14))
    local tcode=c.dfc_back_side
    c:SetEntityCode(tcode,true)
    c:ReplaceEffect(tcode,0,0)
    Duel.Hint(HINT_CARD,1,183445)
    end
    end
    end--(结算完毕开始骰)
    end--(2种除外的结算)
    end--
    end
    end
    function cm.efilter(e,te)
    return te:GetOwner()~=e:GetOwner()
    end
    expansions/script/c183125.lua deleted 100644 → 0
    View file @ f4a33404
    --M——A——L
    local m=183125
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --fusion material
    c:EnableReviveLimit()
    aux.AddFusionProcCode2FunRep(c,183215,183345,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),1,99,true,true)
    aux.AddContactFusionProcedure(c,Card.IsReleasable,LOCATION_MZONE,0,Duel.Release,REASON_COST+REASON_MATERIAL+REASON_FUSION)
    --immune
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE)
    e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e0:SetRange(LOCATION_MZONE)
    e0:SetCode(EFFECT_IMMUNE_EFFECT)
    e0:SetValue(cm.efilter)
    c:RegisterEffect(e0)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e1:SetCode(EVENT_ADJUST)
    e1:SetRange(LOCATION_MZONE)
    e1:SetOperation(cm.adjustop)
    c:RegisterEffect(e1)
    KanKan.MAL(c)
    --disable field
    local e9=Effect.CreateEffect(c)
    e9:SetType(EFFECT_TYPE_FIELD)
    e9:SetCode(EFFECT_DISABLE_FIELD)
    e9:SetRange(LOCATION_MZONE)
    e9:SetValue(cm.disval)
    c:RegisterEffect(e9)
    --multi
    local e10=Effect.CreateEffect(c)
    e10:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e10:SetCode(EVENT_SPSUMMON_SUCCESS)
    e10:SetOperation(cm.atk)
    c:RegisterEffect(e10)
    local e11=Effect.CreateEffect(c)
    e11:SetType(EFFECT_TYPE_SINGLE)
    e11:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
    e11:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    c:RegisterEffect(e11)
    end
    function cm.efilter(e,te)
    local tc=te:GetHandler()
    local c=e:GetHandler()
    return te:IsActiveType(TYPE_MONSTER) and te:GetOwner()~=e:GetOwner() and (tc:GetAttack()<=c:GetAttack() or tc:GetDefense()<=c:GetDefense())
    end
    function cm.adjustfilter(c)
    return not c:IsType(TYPE_FIELD)
    end
    function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local phase=Duel.GetCurrentPhase()
    if (phase==PHASE_DAMAGE and not Duel.IsDamageCalculated()) or phase==PHASE_DAMAGE_CAL then return end
    local g=Duel.GetMatchingGroup(cm.adjustfilter,tp,LOCATION_ONFIELD,0,c)
    if g:GetCount()>0 then
    Duel.SendtoGrave(g,REASON_RULE)
    Duel.Readjust()
    end
    end
    function cm.disval(e)
    local tp=e:GetOwnerPlayer()
    local val1,val2,val3,val4,val5,val6,val7,val8,val9,val10=0,0,0,0,0,0,0,0,0,0
    val1=aux.SequenceToGlobal(tp,LOCATION_MZONE,0)
    val2=aux.SequenceToGlobal(tp,LOCATION_MZONE,1)
    val3=aux.SequenceToGlobal(tp,LOCATION_MZONE,2)
    val4=aux.SequenceToGlobal(tp,LOCATION_MZONE,3)
    val5=aux.SequenceToGlobal(tp,LOCATION_MZONE,4)
    val6=aux.SequenceToGlobal(tp,LOCATION_SZONE,0)
    val7=aux.SequenceToGlobal(tp,LOCATION_SZONE,1)
    val8=aux.SequenceToGlobal(tp,LOCATION_SZONE,2)
    val9=aux.SequenceToGlobal(tp,LOCATION_SZONE,3)
    val10=aux.SequenceToGlobal(tp,LOCATION_SZONE,4)
    return val1|val2|val3|val4|val5|val6|val7|val8|val9|val10
    end
    function cm.atk(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local ct=c:GetMaterialCount()
    --ATK
    local e10=Effect.CreateEffect(c)
    e10:SetDescription(aux.Stringid(m,1))
    e10:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
    e10:SetType(EFFECT_TYPE_QUICK_O)
    e10:SetCode(EVENT_FREE_CHAIN)
    e10:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
    e10:SetHintTiming(TIMING_DAMAGE_STEP,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
    e10:SetRange(LOCATION_MZONE)
    e10:SetCountLimit(ct)
    e10:SetOperation(cm.atkop)
    e10:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e10)
    c:SetTurnCounter(ct)
    end
    function cm.filter1(c)
    return c:IsType(TYPE_XYZ) and c:GetOverlayCount()>0
    end
    function cm.filter2(c)
    return c:IsType(TYPE_MONSTER) and (c:IsAttackAbove(0) or c:IsDefenseAbove(0))
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local atk1=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,nil):GetSum(Card.GetAttack)
    local def1=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,nil):GetSum(Card.GetDefense)
    local g2=Duel.GetMatchingGroup(cm.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
    local atk2=0
    local def2=0
    if g2:GetCount()>0 then
    local tc2=g2:GetFirst()
    while tc2 do
    local cg=tc2:GetOverlayGroup()
    local sg=cg:Filter( cm.filter2,nil)
    if sg:GetCount()>0 then
    local tc3=sg:GetFirst()
    while tc3 do
    atk2=atk2+tc3:GetAttack()
    def2=def2+tc3:GetDefense()
    tc3=sg:GetNext()
    end
    end
    tc2=g2:GetNext()
    end
    end
    local atk=atk1+atk2
    local def=def1+def2
    local catk=c:GetAttack()
    local cdef=c:GetDefense()
    if catk>=1070000000 then
    --attack
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_ATTACK_FINAL)
    e1:SetValue(2147480000)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e1)
    else
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_UPDATE_ATTACK)
    e4:SetValue(atk)
    e4:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e4)
    end
    if cdef>=1070000000 then
    --
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_SINGLE)
    e6:SetCode(EFFECT_SET_DEFENSE_FINAL)
    e6:SetValue(2147480000)
    e6:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e6)
    else
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_UPDATE_DEFENSE)
    e5:SetValue(def)
    e5:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e5)
    end
    --immune
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_IMMUNE_EFFECT)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e3:SetRange(LOCATION_MZONE)
    e3:SetValue(cm.efilter)
    c:RegisterEffect(e3)
    end
    function cm.efilter(e,te)
    return not te:GetOwner():IsSetCard(0xc19) and
    (te:GetCode()&EFFECT_SET_ATTACK~=0
    or te:GetCode()&EFFECT_SET_ATTACK_FINAL~=0
    or te:GetCode()&EFFECT_SET_BASE_ATTACK~=0
    or te:GetCode()&EFFECT_SET_BASE_ATTACK_FINAL~=0
    or te:GetCode()&EFFECT_SET_BATTLE_ATTACK~=0
    or te:GetCode()&EFFECT_UPDATE_ATTACK~=0
    or te:GetCode()&EFFECT_SET_DEFENSE~=0
    or te:GetCode()&EFFECT_SET_DEFENSE_FINAL~=0
    or te:GetCode()&EFFECT_SET_BASE_DEFENSE~=0
    or te:GetCode()&EFFECT_SET_BASE_DEFENSE_FINAL~=0
    or te:GetCode()&EFFECT_SET_BATTLE_DEFENSE~=0
    or te:GetCode()&EFFECT_UPDATE_DEFENSE~=0)
    end
    expansions/script/c183200.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Surveillance Crawler
    local m=183200
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --synchro summon
    aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0xc19),aux.NonTuner(nil),1,1)
    c:EnableReviveLimit()
    --search
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost1)
    e1:SetCondition(cm.spcon1)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    KanKan.MALeffectgain(c,m,cm.effop)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    end
    function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
    end
    function cm.spfilter1(c)
    return c:IsCode(183500) and c:IsSSetable()
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_DECK,0,1,nil) end
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter1,tp,LOCATION_DECK,0,1,1,nil)
    if #g>0 then
    Duel.SSet(tp,g)
    end
    end
    function cm.effop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    --
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
    e1:SetValue(1)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e1,true)
    if not rc:IsType(TYPE_EFFECT) then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_ADD_TYPE)
    e2:SetValue(TYPE_EFFECT)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e2,true)
    end
    rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    end
    expansions/script/c183205.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Dominant Pillar
    local m=183205
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --synchro summon
    aux.AddSynchroProcedure(c,aux.FilterBoolFunction(cm.sfilter1),aux.NonTuner(nil),1,1)
    c:EnableReviveLimit()
    --negate
    local e0=Effect.CreateEffect(c)
    e0:SetDescription(aux.Stringid(m,0))
    e0:SetCategory(CATEGORY_NEGATE+CATEGORY_TODECK)
    e0:SetType(EFFECT_TYPE_QUICK_O)
    e0:SetCode(EVENT_CHAINING)
    e0:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
    e0:SetCountLimit(1,m)
    e0:SetRange(LOCATION_MZONE)
    e0:SetCost(cm.negcost)
    e0:SetCondition(cm.negcon)
    e0:SetTarget(cm.negtg)
    e0:SetOperation(cm.negop)
    c:RegisterEffect(e0)
    --SpecialSummon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCode(EVENT_TO_GRAVE)
    e1:SetCountLimit(1,m+1)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    end
    function cm.sfilter1(c)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_SYNCHRO)
    end
    function cm.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if ep==tp or c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end
    return re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
    end
    function cm.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
    if re:GetHandler():IsRelateToEffect(re) then
    Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,1,0,0)
    end
    end
    function cm.negop(e,tp,eg,ep,ev,re,r,rp)
    local ec=re:GetHandler()
    if Duel.NegateActivation(ev) and ec:IsRelateToEffect(re) then
    ec:CancelToGrave()
    if Duel.SendtoDeck(ec,nil,2,REASON_EFFECT)~=0 and ec:IsLocation(LOCATION_DECK) then
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetCode(EFFECT_CANNOT_ACTIVATE)
    e1:SetTargetRange(0,1)
    e1:SetValue(cm.aclimit)
    e1:SetLabelObject(ec)
    e1:SetReset(RESET_PHASE+PHASE_END,2)
    Duel.RegisterEffect(e1,tp)
    end
    end
    end
    function cm.aclimit(e,re,tp)
    local c=re:GetHandler()
    local ec=e:GetLabelObject()
    return c:IsOriginalCodeRule(ec:GetOriginalCodeRule())
    end
    function cm.filter(c,e,tp,g)
    return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsPreviousLocation(LOCATION_HAND) and c:IsPreviousControler(1-tp) and g:IsContains(c)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and cm.filter(chkc,e,tp,eg) end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingTarget(cm.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp,eg) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp,eg)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local tc,c=Duel.GetFirstTarget(),e:GetHandler()
    if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_DISABLE_EFFECT)
    e2:SetValue(RESET_TURN_SET)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e2)
    end
    Duel.SpecialSummonComplete()
    end
    expansions/script/c183210.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·α·β·γ·Δ
    local m=183210
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    aux.EnablePendulumAttribute(c)
    c:EnableReviveLimit()
    KanKan.MALSynchro(c)
    KanKan.MALPleave(c,code)
    --spsummon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.rptg)
    e1:SetOperation(cm.rpop)
    c:RegisterEffect(e1)
    --special summon
    local e5=Effect.CreateEffect(c)
    e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e5:SetRange(LOCATION_PZONE)
    e5:SetCode(EVENT_DESTROYED)
    e5:SetCountLimit(1,m+1)
    e5:SetCondition(cm.spcon)
    e5:SetTarget(cm.sptg)
    e5:SetOperation(cm.spop)
    c:RegisterEffect(e5)
    --disable attack
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_ATTACK_ANNOUNCE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(3,m+2)
    e2:SetCondition(cm.atkcon)
    e2:SetOperation(cm.atkop)
    c:RegisterEffect(e2)
    --atk
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,2))
    e3:SetCategory(CATEGORY_ATKCHANGE)
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetCode(EVENT_CHAINING)
    e3:SetRange(LOCATION_MZONE)
    e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e3:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
    e3:SetCondition(cm.atkcon2)
    e3:SetTarget(cm.atktg2)
    e3:SetOperation(cm.atkop2)
    c:RegisterEffect(e3)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetAttacker():IsControler(1-tp)
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    Duel.NegateAttack()
    end
    function cm.atkcon2(e,tp,eg,ep,ev,re,r,rp)
    return ep==1-tp and re:IsActiveType(TYPE_MONSTER) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
    end
    function cm.atktg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and aux.nzatk(chkc) end
    if chk==0 then return Duel.IsExistingTarget(aux.nzatk,tp,0,LOCATION_MZONE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    Duel.SelectTarget(tp,aux.nzatk,tp,0,LOCATION_MZONE,1,1,nil)
    end
    function cm.atkop2(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_SET_ATTACK_FINAL)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE,EFFECT_FLAG2_WICKED)
    e1:SetValue(0)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e1)
    end
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xc19) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.rptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
    end
    function cm.rpop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.Destroy(c,REASON_EFFECT)>0 then
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    end
    function cm.cfilter(c,tp)
    return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(tp) and c:IsReason(REASON_BATTLE+REASON_EFFECT)
    and c:IsSetCard(0xc19)
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.cfilter,1,nil,tp)
    end
    function cm.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 cm.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
    \ No newline at end of file
    expansions/script/c183215.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Cathode Ray Tube MAX!
    local m=183215
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --synchro summon
    aux.AddSynchroProcedure(c,aux.FilterBoolFunction(cm.sfilter1),aux.NonTuner(nil),1,1)
    c:EnableReviveLimit()
    --act limit
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(cm.regcon)
    e1:SetOperation(cm.regop)
    c:RegisterEffect(e1)
    --avoid damage
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetCode(EFFECT_CHANGE_DAMAGE)
    e0:SetRange(LOCATION_MZONE)
    e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e0:SetTargetRange(1,0)
    e0:SetValue(cm.damval)
    c:RegisterEffect(e0)
    KanKan.MALeffectgain(c,m,cm.effop)
    end
    function cm.sfilter1(c)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_SYNCHRO)
    end
    function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
    end
    function cm.regop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_IMMUNE_EFFECT)
    e1:SetRange(LOCATION_MZONE)
    e1:SetTargetRange(LOCATION_MZONE,0)
    e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xc19))
    e1:SetCondition(cm.condition)
    e1:SetValue(cm.efilter)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e1)
    end
    function cm.condition(e,tp,eg,ep,ev,re,r,rp)
    local ct=Duel.GetCurrentChain()
    return not ct or ct<3
    end
    function cm.efilter(e,te)
    return e:GetOwnerPlayer()~=te:GetOwnerPlayer() and te:IsActiveType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.damval(e,re,val,r,rp,rc)
    local atk=e:GetHandler():GetDefense()
    if val<=atk then return 0 else return val end
    end
    function cm.effop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    --
    --avoid damage
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetCode(EFFECT_CHANGE_DAMAGE)
    e0:SetRange(LOCATION_MZONE)
    e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e0:SetTargetRange(1,0)
    e0:SetValue(cm.damval2)
    e0:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e0,true)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetCode(EFFECT_REFLECT_BATTLE_DAMAGE)
    e1:SetValue(1)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e1,true)
    if not rc:IsType(TYPE_EFFECT) then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_ADD_TYPE)
    e2:SetValue(TYPE_EFFECT)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e2,true)
    end
    rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    end
    function cm.damval2(e,re,val,r,rp,rc)
    local atk=e:GetHandler():GetAttack()
    if val<=atk then return 0 else return val end
    end
    expansions/script/c183220.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·MALB
    local m=183220
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    aux.EnablePendulumAttribute(c)
    c:EnableReviveLimit()
    ---
    KanKan.MALSynchro(c,m)
    KanKan.MALeffectgain(c,m,cm.effop)
    KanKan.MALPleave(c,m)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e1:SetCountLimit(1,m)
    e1:SetCondition(cm.spcon)
    e1:SetCost(cm.spcost)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --set
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,2))
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
    e2:SetCountLimit(1,m+1)
    e2:SetRange(LOCATION_PZONE)
    e2:SetTarget(cm.sttg)
    e2:SetOperation(cm.stop)
    c:RegisterEffect(e2)
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    e:SetLabel(100)
    if chk==0 then return true end
    end
    function cm.costfilter(c,e,tp)
    return c:IsType(TYPE_SYNCHRO) and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetLevel(),e:GetHandler(),c:GetCode())
    end
    function cm.spfilter(c,e,tp,lv,ec,code)
    return c:IsLevel(lv) and c:IsType(TYPE_SYNCHRO) and c:IsSetCard(0xc19) and not c:IsCode(code)
    and Duel.GetLocationCountFromEx(tp,tp,ec,c)>0
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then
    if e:GetLabel()~=100 then return false end
    e:SetLabel(0)
    return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL)
    and Duel.CheckReleaseGroup(tp,cm.costfilter,1,nil,e,tp)
    end
    e:SetLabel(0)
    local g=Duel.SelectReleaseGroup(tp,cm.costfilter,1,1,nil,e,tp)
    Duel.Release(g,REASON_COST)
    Duel.SetTargetCard(g)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local sc=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc:GetLevel(),nil):GetFirst()
    if sc then
    sc:SetMaterial(nil)
    if Duel.SpecialSummon(sc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)>0 then
    sc:CompleteProcedure()
    end
    end
    end
    function cm.effop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    --
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_PIERCE)
    e1:SetValue(1)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e1,true)
    if not rc:IsType(TYPE_EFFECT) then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_ADD_TYPE)
    e2:SetValue(TYPE_EFFECT)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e2,true)
    end
    rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    end
    function cm.stfilter(c,tp)
    local seq=c:GetSequence()
    return seq<=4 and c:IsType(TYPE_MONSTER) and c:IsFaceup()
    end
    function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and cm.stfilter(chkc,tp) end
    if chk==0 then return Duel.IsExistingTarget(cm.stfilter,tp,0,LOCATION_MZONE,1,nil,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,4))
    Duel.SelectTarget(tp,cm.stfilter,tp,0,LOCATION_MZONE,1,1,nil,tp)
    end
    function cm.stop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if not (tc:IsRelateToEffect(e) and tc:IsControler(1-tp) and not tc:IsImmuneToEffect(e)) then return end
    local zone=1<<tc:GetSequence()
    local oc=Duel.GetMatchingGroup(cm.seqfilter,tp,0,LOCATION_SZONE,nil,tc:GetSequence()):GetFirst()
    if oc then
    Duel.Destroy(oc,REASON_RULE)
    end
    if Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true,zone) then
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetCode(EFFECT_CHANGE_TYPE)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
    e1:SetValue(TYPE_TRAP+TYPE_CONTINUOUS)
    tc:RegisterEffect(e1)
    end
    end
    function cm.seqfilter(c,seq)
    return c:GetSequence()==seq
    end
    expansions/script/c183300.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Merciless
    local m=183300
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --xyz summon
    aux.AddXyzProcedure(c,nil,4,2)
    c:EnableReviveLimit()
    --rank up/down
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.operation)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --special summon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,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:SetCountLimit(1,m+1)
    e2:SetCost(cm.cost2)
    e2:SetCondition(cm.spcon2)
    e2:SetTarget(cm.sptg2)
    e2:SetOperation(cm.spop2)
    c:RegisterEffect(e2)
    KanKan.MALeffectgain(c,m,cm.effop)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) and Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    local e1=Effect.CreateEffect(e:GetHandler())
    KanKan.MALcanntspm(e:GetHandler())
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function cm.filter(c,e,tp,mc)
    return c:IsRank(mc:GetRank()) and c:IsSetCard(0xc19) and c:IsType(TYPE_XYZ)
    and mc:IsCanBeXyzMaterial(c)
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false)
    and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
    and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsFaceup() and c:IsRelateToEffect(e) and c:IsControler(tp) and not c:IsImmuneToEffect(e) and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,c)
    local tc=g:GetFirst()
    if tc then
    local mg=c:GetOverlayGroup()
    if mg:GetCount()>0 then
    Duel.Overlay(tc,mg)
    end
    tc:SetMaterial(Group.FromCards(c))
    Duel.Overlay(tc,Group.FromCards(c))
    if Duel.SpecialSummon(tc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)~=0 then
    tc:CompleteProcedure()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCode(EFFECT_CANNOT_CHANGE_CONTROL)
    Duel.RegisterEffect(e1,tp)
    end
    end
    end
    end
    function cm.ctfilter(c)
    return c:IsSetCard(0xc19) and c:GetOriginalType()&TYPE_MONSTER==TYPE_MONSTER
    end
    function cm.ctcon(e)
    return e:GetHandler():GetOverlayGroup():IsExists(cm.ctfilter,1,nil)
    end
    function cm.ctval(e,c)
    return e:GetHandler():GetOverlayGroup():FilterCount(cm.ctfilter,nil)-1
    end
    function cm.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    end
    function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:GetOverlayGroup():IsExists(cm.ctfilter,1,nil) and c:IsPreviousLocation(LOCATION_MZONE)
    end
    function cm.spfilter2(c,e,tp)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_XYZ) and not c:IsCode(30683300) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
    end
    function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp)
    and e:GetHandler():IsCanOverlay() end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
    end
    function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
    local tc=g:GetFirst()
    if tc then
    Duel.SpecialSummon(tc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
    tc:CompleteProcedure()
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    Duel.Overlay(tc,Group.FromCards(c))
    end
    end
    end
    function cm.effop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    --
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetDescription(aux.Stringid(m,2))
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetValue(1)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e1,true)
    if not rc:IsType(TYPE_EFFECT) then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_ADD_TYPE)
    e2:SetValue(TYPE_EFFECT)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e2,true)
    end
    rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
    end
    expansions/script/c183305.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Growth Wedge
    local m=183305
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    aux.AddXyzProcedure(c,nil,4,4)
    c:EnableReviveLimit()
    --destroy
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetCountLimit(1)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCondition(cm.descon)
    e1:SetCost(cm.descost)
    e1:SetTarget(cm.destg)
    e1:SetOperation(cm.desop)
    c:RegisterEffect(e1)
    --special summon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e2:SetCode(EVENT_TO_GRAVE)
    e2:SetCost(cm.cost)
    e2:SetCondition(cm.spcon)
    e2:SetTarget(cm.sptg)
    e2:SetOperation(cm.spop)
    c:RegisterEffect(e2)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.descon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():GetOverlayGroup():IsExists(Card.IsType,1,nil,TYPE_XYZ)
    end
    function cm.descost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
    local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
    if sg:GetCount()==0 then return end
    local oc=Duel.Destroy(sg,REASON_EFFECT)
    if oc>0 then Duel.Damage(1-tp,oc*1000,REASON_EFFECT) end
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:IsPreviousControler(tp) and rp==1-tp and c:IsReason(REASON_DESTROY)
    end
    function cm.spfilter(c,e,tp)
    return c:IsType(TYPE_XYZ) and c:IsSetCard(0xc19) and not c:IsCode(m) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.spfilter(chkc,e,tp) end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingTarget(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
    and e:GetHandler():IsCanOverlay() end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectTarget(tp,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) then
    tc:CompleteProcedure()
    if c:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
    Duel.Overlay(tc,Group.FromCards(c))
    end
    end
    Duel.SpecialSummonComplete()
    end
    expansions/script/c183310.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L Nighthaunt
    local m=183310
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --xyz summon
    aux.AddXyzProcedure(c,cm.mfilter,8,3)
    c:EnableReviveLimit()
    --equip
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_LEAVE_GRAVE+CATEGORY_EQUIP)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e1:SetCondition(cm.eqcon)
    e1:SetTarget(cm.eqtg)
    e1:SetOperation(cm.eqop)
    c:RegisterEffect(e1)
    --disable
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,1))
    e3:SetCategory(CATEGORY_DISABLE)
    e3:SetType(EFFECT_TYPE_IGNITION)
    e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCountLimit(1)
    e3:SetCost(cm.discost)
    e3:SetTarget(cm.distg)
    e3:SetOperation(cm.disop)
    c:RegisterEffect(e3)
    end
    function cm.mfilter(c)
    return c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT)
    end
    function cm.eqcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
    end
    function cm.filter(c)
    return c:IsSetCard(0xc19) and not c:IsForbidden() and c:IsType(TYPE_MONSTER)
    end
    function cm.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.filter(chkc) end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingTarget(cm.filter,tp,LOCATION_GRAVE,0,1,nil) end
    local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
    local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_GRAVE,0,1,ft,nil)
    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,g:GetCount(),0,0)
    Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,g:GetCount(),0,0)
    end
    function cm.eqop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
    local sg=g:Filter(Card.IsRelateToEffect,nil,e)
    if Duel.GetLocationCount(tp,LOCATION_SZONE)<sg:GetCount() then return end
    local c=e:GetHandler()
    if c:IsFacedown() or not c:IsRelateToEffect(e) then return end
    local tc=sg:GetFirst()
    local atk=tc:GetTextAttack()
    while tc do
    Duel.Equip(tp,tc,c,false,true)
    --Add Equip limit
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
    e1:SetCode(EFFECT_EQUIP_LIMIT)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetValue(cm.eqlimit)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_EQUIP)
    e2:SetCode(EFFECT_UPDATE_ATTACK)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    e2:SetValue(atk)
    tc:RegisterEffect(e2)
    tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
    tc=sg:GetNext()
    end
    Duel.EquipComplete()
    end
    function cm.eqlimit(e,c)
    return e:GetOwner()==c
    end
    function cm.discost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function cm.cfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xc19) and c:GetOriginalType()&TYPE_MONSTER~=0
    end
    function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and aux.NegateAnyFilter(chkc) end
    local ct=e:GetHandler():GetEquipGroup():FilterCount(cm.cfilter,nil)
    if chk==0 then return ct>0 and Duel.IsExistingTarget(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
    local g=Duel.SelectTarget(tp,aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,ct,nil)
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,#g,0,0)
    end
    function cm.disfilter(c,e)
    return aux.NegateAnyFilter(c) and c:IsRelateToEffect(e)
    end
    function cm.disop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(cm.disfilter,nil,e)
    local tc=g:GetFirst()
    while tc do
    Duel.NegateRelatedChain(tc,RESET_TURN_SET)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_DISABLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_DISABLE_EFFECT)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetValue(RESET_TURN_SET)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e2)
    if tc:IsType(TYPE_TRAPMONSTER) then
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e3)
    end
    tc=g:GetNext()
    end
    end
    \ No newline at end of file
    expansions/script/c183315.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Phoenix
    local m=183315
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --xyz summon
    c:EnableReviveLimit()
    aux.AddXyzProcedureLevelFree(c,cm.mfilter,nil,3,99,cm.ovfilter,aux.Stringid(m,0),cm.xyzop)
    --XYZ SUM
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e3:SetCode(EFFECT_SPSUMMON_CONDITION)
    e3:SetValue(cm.splimit0)
    c:RegisterEffect(e3)
    local e7=Effect.CreateEffect(c)
    e7:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
    e7:SetCode(EVENT_SPSUMMON_SUCCESS)
    e7:SetCondition(cm.txtcon1)
    e7:SetOperation(cm.txtop1)
    c:RegisterEffect(e7)
    local e8=Effect.CreateEffect(c)
    e8:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
    e8:SetCode(EVENT_SPSUMMON_SUCCESS)
    e8:SetCondition(cm.txtcon2)
    e8:SetOperation(cm.txtop2)
    c:RegisterEffect(e8)
    --atkup
    local e0=Effect.CreateEffect(c)
    e0:SetDescription(aux.Stringid(m,0))
    e0:SetCategory(CATEGORY_ATKCHANGE)
    e0:SetType(EFFECT_TYPE_IGNITION)
    e0:SetRange(LOCATION_MZONE)
    e0:SetCountLimit(1)
    e0:SetCost(cm.atkcost1)
    e0:SetTarget(cm.atktg1)
    e0:SetOperation(cm.atkop1)
    c:RegisterEffect(e0)
    --tograve
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetCategory(CATEGORY_TODECK)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.tgcost)
    e1:SetCondition(cm.tgcon)
    e1:SetTarget(cm.tgtg)
    e1:SetOperation(cm.tgop)
    c:RegisterEffect(e1)
    --special summon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,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:SetCountLimit(1,m+1)
    e2:SetCost(cm.cost2)
    e2:SetCondition(cm.spcon2)
    e2:SetTarget(cm.sptg2)
    e2:SetOperation(cm.spop2)
    c:RegisterEffect(e2)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    end
    function cm.txtcon1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:IsSummonType(SUMMON_TYPE_XYZ)
    end
    function cm.txtop1(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(24,0,aux.Stringid(m,12))
    Duel.Hint(24,0,aux.Stringid(m,13))
    Duel.Hint(24,0,aux.Stringid(m,14))
    end
    function cm.txtcon2(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return not c:IsSummonType(SUMMON_TYPE_XYZ)
    end
    function cm.txtop2(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(24,0,aux.Stringid(m,15))
    end
    function cm.splimit0(e,se,sp,st)
    if st&SUMMON_TYPE_XYZ~=0 then return not se or not se:IsHasType(EFFECT_TYPE_ACTIONS)
    else
    return true
    end
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.mfilter(c)
    return c:IsSetCard(0xc19) and c:IsRankAbove(1)
    end
    function cm.cfilter(c)
    return c:IsSetCard(0x95,0x15e,0xc1f) and c:IsType(TYPE_SPELL) and c:IsDiscardable()
    end
    function cm.ovfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xc19) and c:IsType(TYPE_XYZ)
    end
    function cm.xyzop(e,tp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.DiscardHand(tp,cm.cfilter,1,1,REASON_COST+REASON_DISCARD,nil)
    end
    function cm.ftarget(e,c)
    return e:GetLabel()~=c:GetFieldID()
    end
    function cm.atkcost1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    local e0=Effect.CreateEffect(e:GetHandler())
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetCode(EFFECT_CANNOT_ATTACK)
    e0:SetProperty(EFFECT_FLAG_OATH)
    e0:SetTargetRange(LOCATION_MZONE,0)
    e0:SetTarget(cm.ftarget)
    e0:SetLabel(e:GetHandler():GetFieldID())
    e0:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e0,tp)
    end
    function cm.filter1(c,e,tp)
    return c:IsType(TYPE_MONSTER)
    end
    function cm.filter11(c,e,tp)
    return c:IsType(TYPE_MONSTER) and c:IsFaceup()
    end
    function cm.atktg1(e,tp,eg,ep,ev,re,r,rp,chk)
    local og2=Duel.GetOverlayGroup(tp,1,1)
    if chk==0 then return og2:IsExists(cm.filter1,1,nil,e,tp) end
    end
    function cm.atkop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsFaceup() and c:IsRelateToEffect(e) then
    local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,c)
    if g:GetCount()>0 then
    for oc in aux.Next(g) do
    local og1=oc:GetOverlayGroup()
    if og1:GetCount()>0 then
    Duel.SendtoGrave(og1,REASON_RULE)
    end
    end
    Duel.Overlay(c,g)
    end
    local og2=Duel.GetOverlayGroup(tp,1,1)
    local g1=og2:Filter(cm.filter1,nil,e,tp)
    local g2=Duel.GetMatchingGroup(cm.filter11,c:GetControler(),LOCATION_MZONE+LOCATION_GRAVE,0,nil)
    local atk11=0
    local atk12=0
    if g1:GetCount()>0 then
    local tc=g1:GetFirst()
    while tc do
    local lk1
    if tc:IsLevelAbove(1) then lk1=tc:GetLevel()
    elseif tc:IsRankAbove(1) then lk1=tc:GetRank()
    elseif tc:IsLinkAbove(1) then lk1=tc:GetLink()
    end
    atk11=atk11+lk1
    tc=g1:GetNext()
    end
    end
    if g2:GetCount()>0 then
    local ttc=g2:GetFirst()
    while ttc do
    local lk2
    if ttc:IsLevelAbove(1) then lk2=ttc:GetLevel()
    elseif ttc:IsRankAbove(1) then lk2=ttc:GetRank()
    elseif ttc:IsLinkAbove(1) then lk2=ttc:GetLink()
    end
    atk12=atk12+lk2
    ttc=g2:GetNext()
    end
    end
    local atkall1=atk11+atk12
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE)
    e0:SetCode(EFFECT_UPDATE_ATTACK)
    e0:SetValue(atkall1*700)
    e0:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e0)
    local e2=e0:Clone()
    e2:SetCode(EFFECT_UPDATE_DEFENSE)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e2)
    end
    end
    function cm.tgcon(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetTurnPlayer()~=tp then return false end
    return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
    end
    function cm.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local lp=Duel.GetLP(tp)
    if chk==0 then return Duel.CheckLPCost(tp,lp-10) end
    Duel.PayLPCost(tp,lp-10)
    end
    function cm.tgfilter(c)
    return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck()
    end
    function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_ONFIELD,0,1,c) and Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
    local sg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_ONFIELD,0,c)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,sg:GetCount(),0,0)
    end
    function cm.filter2(c)
    return c:IsSetCard(0x95,0x15e,0xc1f) and c:IsSSetable()
    end
    function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
    local sg=Duel.GetMatchingGroup(cm.tgfilter,tp,LOCATION_ONFIELD,0,aux.ExceptThisCard(e))
    if Duel.SendtoDeck(sg,nil,2,REASON_RULE)~=0 then
    local ft=sg:GetCount()
    Duel.ShuffleDeck(tp)
    Duel.BreakEffect()
    if ft>=3 then ft=3 end
    local g9=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.filter2),tp,LOCATION_DECK+LOCATION_GRAVE,0,nil)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local sg2=g9:SelectSubGroup(tp,aux.dncheck,false,1,ft)
    if sg2:GetCount()>0 then
    Duel.SSet(tp,sg2)
    end
    for ttc in aux.Next(sg2) do
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
    e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    ttc:RegisterEffect(e1)
    end
    local c=e:GetHandler()
    local e2=Effect.CreateEffect(c)
    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(cm.splimit2)
    Duel.RegisterEffect(e2,tp)
    end
    end
    function cm.splimit2(e,c)
    return not c:IsType(TYPE_XYZ) and c:IsLocation(LOCATION_EXTRA)
    end
    function cm.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    end
    function cm.ctfilter(c)
    return c:IsSetCard(0xc19) and c:GetOriginalType()&TYPE_MONSTER==TYPE_MONSTER
    end
    function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:GetOverlayGroup():IsExists(cm.ctfilter,1,nil) and c:IsPreviousLocation(LOCATION_MZONE)
    end
    function cm.spfilter2(c,e,tp)
    return c:IsSetCard(0xc19) and not c:IsCode(30683315) and c:IsCanOverlay()
    end
    function cm.sptg2(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 cm.spop2(e,tp,eg,ep,ev,re,r,rp)
    local ct=Duel.GetMatchingGroupCount(nil,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil)
    Duel.SetLP(tp,Duel.GetLP(tp)+ct*500)
    local e0=Effect.CreateEffect(e:GetHandler())
    e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e0:SetCode(EVENT_PHASE+PHASE_STANDBY)
    e0:SetCountLimit(1)
    e0:SetLabel(Duel.GetTurnCount())
    e0:SetCondition(cm.regcon)
    e0:SetOperation(cm.regop)
    if Duel.GetCurrentPhase()<=PHASE_STANDBY then
    e0:SetReset(RESET_PHASE+PHASE_STANDBY,2)
    else
    e0:SetReset(RESET_PHASE+PHASE_STANDBY)
    end
    Duel.RegisterEffect(e0,tp)
    end
    function cm.spfilter(c,e,tp)
    return c:IsSetCard(0xc008) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnCount()~=e:GetLabel() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    end
    function cm.regop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_CARD,0,m)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local c=e:GetHandler()
    Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
    end
    expansions/script/c183320.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Fuser
    local m=183320
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --xyz summon
    aux.AddXyzProcedure(c,nil,5,2)
    c:EnableReviveLimit()
    --
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_DAMAGE)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_BATTLE_CONFIRM)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetCountLimit(1,m)
    e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local bc=c:GetBattleTarget()
    return c:IsRelateToBattle() and bc and bc:IsFaceup() and bc:IsRelateToBattle()
    end)
    e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    local bc=e:GetHandler():GetBattleTarget()
    Duel.SetTargetPlayer(1-tp)
    Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,bc:GetAttack()/2)
    end)
    e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local bc=c:GetBattleTarget()
    local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
    if c:IsFaceup() and c:IsRelateToBattle() and bc:IsFaceup() and bc:IsRelateToBattle() then
    local dam=bc:GetAttack()/2
    if dam>0 then Duel.Damage(p,dam,REASON_EFFECT) end
    end
    end)
    c:RegisterEffect(e1)
    --destroy
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_DESTROY)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCost(cm.descost)
    e2:SetTarget(cm.destg)
    e2:SetOperation(cm.desop)
    c:RegisterEffect(e2)
    --spsummon
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,2))
    e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetCountLimit(1,m+1)
    e3:SetCost(cm.spcost)
    e3:SetTarget(cm.sptg)
    e3:SetOperation(cm.spop)
    e3:SetHintTiming(0,TIMING_END_PHASE)
    c:RegisterEffect(e3)
    end
    function cm.descost(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_COST) end
    local rt=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)
    local ct=c:RemoveOverlayCard(tp,1,rt,REASON_COST)
    e:SetLabel(ct)
    end
    function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
    local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,e:GetLabel(),0,0)
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    local ct=e:GetLabel()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,ct,ct,nil)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.Destroy(g,REASON_EFFECT)
    end
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_COST) and c:GetFlagEffect(m)==0 end
    local ct=c:RemoveOverlayCard(tp,1,c:GetOverlayCount(),REASON_COST)
    e:SetLabel(ct)
    c:RegisterFlagEffect(m,RESET_CHAIN,0,1)
    end
    function cm.filter(c,e,tp,rk,mc)
    return c:IsRank(rk) and e:GetHandler():IsCanBeXyzMaterial(c) and c:IsSetCard(0xc19)
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:GetBattledGroupCount()>0 end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsFaceup() and c:IsRelateToEffect(e) then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_UPDATE_RANK)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    e2:SetValue(e:GetLabel())
    c:RegisterEffect(e2)
    end
    if not aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL) then return end
    if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsControler(1-tp) or c:IsImmuneToEffect(e) then return end
    local rg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_EXTRA,0,nil,e,tp,c:GetRank(),c)
    if #rg>0 and Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,c:GetRank(),c)
    local sc=g:GetFirst()
    if sc then
    local mg=c:GetOverlayGroup()
    if mg:GetCount()~=0 then
    Duel.Overlay(sc,mg)
    end
    sc:SetMaterial(Group.FromCards(c))
    Duel.Overlay(sc,Group.FromCards(c))
    Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
    sc:CompleteProcedure()
    end
    end
    end
    \ No newline at end of file
    expansions/script/c183325.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Marauder
    local m=183325
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --xyz summon
    aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),6,3)
    c:EnableReviveLimit()
    --to hand
    local e0=Effect.CreateEffect(c)
    e0:SetDescription(aux.Stringid(m,0))
    e0:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e0:SetType(EFFECT_TYPE_IGNITION)
    e0:SetRange(LOCATION_MZONE)
    e0:SetCountLimit(1)
    e0:SetCost(cm.thcost)
    e0:SetTarget(cm.thtg)
    e0:SetOperation(cm.thop)
    c:RegisterEffect(e0)
    --indes
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetValue(1)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
    c:RegisterEffect(e2)
    --spsummon
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,1))
    e3:SetCategory(CATEGORY_TOEXTRA+CATEGORY_SPECIAL_SUMMON)
    e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e3:SetCode(EVENT_BE_BATTLE_TARGET)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCountLimit(1,m)
    e3:SetCondition(cm.spcon1)
    e3:SetTarget(cm.sptg)
    e3:SetOperation(cm.spop)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetType(EFFECT_TYPE_QUICK_O)
    e4:SetCode(EVENT_BECOME_TARGET)
    e4:SetCondition(cm.spcon2)
    c:RegisterEffect(e4)
    end
    function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    local rt=e:GetHandler():GetOverlayCount()
    if rt>0 then
    if chk==0 then return c:CheckRemoveOverlayCard(tp,rt,REASON_COST) end
    local ct=c:RemoveOverlayCard(tp,rt,rt,REASON_COST)
    end
    end
    function cm.thfilter(c)
    return c:IsSetCard(0x95,0x15e,0xc1f) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    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(cm.xyzsplimit)
    Duel.RegisterEffect(e2,tp)
    end
    function cm.xyzsplimit(e,c)
    return not c:IsType(TYPE_XYZ) and c:IsLocation(LOCATION_EXTRA)
    end
    function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetAttacker():IsControler(1-tp)
    end
    function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsContains(e:GetHandler()) and rp==1-tp
    end
    function cm.toexfilter(c,tp)
    return c:IsType(TYPE_XYZ) and c:IsAbleToExtra() and c:GetOwner()==tp
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    local g=c:GetOverlayGroup()
    local g2=Duel.GetMatchingGroup(cm.toexfilter,tp,LOCATION_GRAVE,0,nil,tp)
    g:Merge(g,g2)
    if chk==0 then return c:GetFlagEffect(m)==0 and g:IsExists(cm.toexfilter,1,nil,tp) or g2:IsExists(cm.toexfilter,1,nil,tp) end
    c:RegisterFlagEffect(m,RESET_CHAIN,0,1)
    Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local g=c:GetOverlayGroup()
    local g2=Duel.GetMatchingGroup(cm.toexfilter,tp,LOCATION_GRAVE,0,nil,tp)
    g:Merge(g,g2)
    if c:IsRelateToEffect(e) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local sc=g:FilterSelect(tp,cm.toexfilter,1,1,nil,tp):GetFirst()
    if sc and Duel.SendtoDeck(sc,nil,0,REASON_EFFECT)>0 and sc:IsLocation(LOCATION_EXTRA)
    and c:IsFaceup() and c:IsControler(tp) and not c:IsImmuneToEffect(e)
    and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL) and c:IsCanBeXyzMaterial(sc)
    and sc:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,c,sc)>0
    and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
    Duel.BreakEffect()
    local mg=c:GetOverlayGroup()
    if mg:GetCount()~=0 then
    Duel.Overlay(sc,mg)
    end
    sc:SetMaterial(Group.FromCards(c))
    Duel.Overlay(sc,Group.FromCards(c))
    Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
    sc:CompleteProcedure()
    end
    end
    end
    \ No newline at end of file
    expansions/script/c183335.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Outer·Limits
    local m=183335
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --xyz summon
    aux.AddXyzProcedure(c,nil,7,3)
    c:EnableReviveLimit()
    --atkup
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_ATKCHANGE)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCondition(cm.atkcon)
    e1:SetOperation(cm.atkop)
    c:RegisterEffect(e1)
    --destroy
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,1))
    e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
    e3:SetType(EFFECT_TYPE_IGNITION)
    e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e3:SetCountLimit(1)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCondition(cm.descon)
    e3:SetTarget(cm.destg)
    e3:SetOperation(cm.desop)
    c:RegisterEffect(e3)
    --special summon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,2))
    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:SetCountLimit(1,m)
    e2:SetCost(cm.cost2)
    e2:SetCondition(cm.spcon2)
    e2:SetTarget(cm.sptg2)
    e2:SetOperation(cm.spop2)
    c:RegisterEffect(e2)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetLP(tp)<=Duel.GetLP(1-tp)-7000 and e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and c:IsFaceup() then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(3000)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    end
    end
    function cm.filter(c)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_XYZ)
    end
    function cm.descon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():GetOverlayGroup():IsExists(cm.filter,1,nil)
    end
    function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) end
    if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    local rec=math.floor(tc:GetAttack())
    if rec<0 or tc:IsFacedown() then rec=0 end
    Duel.SetLP(tp,Duel.GetLP(tp)+rec)
    Duel.BreakEffect()
    Duel.Destroy(tc,REASON_EFFECT)
    end
    end
    function cm.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    end
    function cm.ctfilter2(c)
    return c:IsSetCard(0xc19) and c:GetOriginalType()&TYPE_MONSTER==TYPE_MONSTER
    end
    function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:GetOverlayGroup():IsExists(cm.ctfilter2,1,nil) and c:IsPreviousLocation(LOCATION_MZONE)
    end
    function cm.spfilter2(c,e,tp)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_XYZ) and not c:IsCode(183335)
    and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsRankBelow(7)
    and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
    end
    function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp)
    and e:GetHandler():IsCanOverlay() end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
    end
    function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
    local tc=g:GetFirst()
    if tc then
    Duel.SpecialSummon(tc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
    tc:CompleteProcedure()
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    Duel.Overlay(tc,Group.FromCards(c))
    end
    end
    end
    \ No newline at end of file
    expansions/script/c183340.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L Armament Bulwarker
    local m=183340
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --xyz summon
    c:EnableReviveLimit()
    aux.AddXyzProcedureLevelFree(c,cm.mfilter,nil,2,2)
    --spsummon1
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.spcost1)
    e1:SetTarget(cm.sptg1)
    e1:SetOperation(cm.spop1)
    c:RegisterEffect(e1)
    KanKan.MALeffectgain(c,m,cm.effop)
    end
    function cm.mfilter(c,xyzc)
    return c:IsSetCard(0xc19) and (c:IsXyzLevel(xyzc,8) or c:IsLinkAbove(1))
    end
    function cm.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function cm.spfilter1(c,e,tp)
    return c:IsSetCard(0xc19) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
    end
    function cm.spop1(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(cm.spfilter1),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function cm.effop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_IMMUNE_EFFECT)
    e1:SetValue(cm.efilter)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e1,true)
    rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    end
    function cm.efilter(e,te)
    return e:GetHandlerPlayer()~=te:GetOwnerPlayer() and not te:IsActivated()
    end
    \ No newline at end of file
    expansions/script/c183345.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Taraxacum
    local m=183345
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --xyz summon
    c:SetSPSummonOnce(183345)
    aux.AddXyzProcedureLevelFree(c,cm.xyzfilter,cm.xyzcheck,2,99,cm.ovfilter,aux.Stringid(m,0),cm.xyzop)
    c:EnableReviveLimit()
    KanKan.MALXYZ(c)
    KanKan.MALPleave(c,m)
    --spsummon other
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetCountLimit(1,m)
    e1:SetRange(LOCATION_PZONE)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.tg)
    e1:SetOperation(cm.op)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --spsummon self
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_DESTROYED)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e2:SetRange(LOCATION_PZONE)
    e2:SetCountLimit(1,m+1)
    e2:SetCondition(cm.spcon1)
    e2:SetTarget(cm.sptg1)
    e2:SetOperation(cm.spop1)
    c:RegisterEffect(e2)
    --negate
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,2))
    e3:SetCategory(CATEGORY_POSITION+CATEGORY_ATKCHANGE)
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCountLimit(1,m+2)
    e3:SetCost(cm.cost3)
    e3:SetTarget(cm.target3)
    e3:SetOperation(cm.operation3)
    c:RegisterEffect(e3)
    --atk & def
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_SINGLE)
    e4:SetCode(EFFECT_UPDATE_ATTACK)
    e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e4:SetRange(LOCATION_MZONE)
    e4:SetValue(cm.atkval)
    c:RegisterEffect(e4)
    local e5=e4:Clone()
    e5:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e5)
    --destroy replace
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
    e6:SetCode(EFFECT_DESTROY_REPLACE)
    e6:SetRange(LOCATION_MZONE)
    e6:SetTarget(cm.desreptg)
    e6:SetValue(cm.desrepval)
    e6:SetOperation(cm.desrepop)
    c:RegisterEffect(e6)
    if not cm.global_check then
    cm.global_check=TRUE
    material_check=2
    rank_check=12
    end
    end
    function cm.xyzfilter(c,xyzc)
    return c:IsSetCard(0xc19) and c:IsLevelAbove(1)
    end
    function cm.xyzcheck(g)
    return g:GetSum(Card.GetLevel)==12
    end
    function cm.ovfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xc19)
    end
    function cm.xyzcfilter1(c)
    return c:GetType()==TYPE_SPELL and c:IsDiscardable()
    end
    function cm.xyzcfilter2(c)
    return c:IsType(TYPE_MONSTER) and c:IsDiscardable()
    end
    function cm.xyzop(e,tp,chk)
    local xg=Group.CreateGroup()
    if chk==0 then return Duel.IsExistingMatchingCard(cm.xyzcfilter1,tp,LOCATION_HAND,0,1,nil) and Duel.IsExistingMatchingCard(cm.xyzcfilter2,tp,LOCATION_HAND,0,2,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local tc1=Duel.SelectMatchingCard(tp,cm.xyzcfilter1,tp,LOCATION_HAND,0,1,1,nil):GetFirst()
    xg:AddCard(tc1)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local tc2=Duel.SelectMatchingCard(tp,cm.xyzcfilter2,tp,LOCATION_HAND,0,2,2,nil)
    xg:AddCard(tc2)
    Duel.SendtoGrave(xg,REASON_DISCARD+REASON_COST)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    local e1=Effect.CreateEffect(e:GetHandler())
    KanKan.MALcanntspm(e:GetHandler())
    end
    function cm.filter(c,e,tp)
    return c:IsLevelBelow(4) and c:IsSetCard(0xc19) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
    end
    function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
    end
    function cm.op(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,cm.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
    end
    end
    function cm.cfilter(c,tp)
    return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsSetCard(0xc19) and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(tp)
    end
    function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.cfilter,1,nil,tp)
    end
    function cm.cfiltertt(c)
    return c:IsSetCard(0xc19)
    end
    function cm.sptg1(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
    local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
    end
    function cm.spop1(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
    local ct=Duel.GetMatchingGroupCount(cm.cfiltertt,tp,LOCATION_ONFIELD,0,nil)
    if ct==0 then return end
    Duel.BreakEffect()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil)
    Duel.HintSelection(g)
    Duel.Destroy(g,REASON_EFFECT)
    end
    end
    function cm.cost3(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function cm.target3(e,tp,eg,ep,ev,re,r,rp,chk)
    local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
    if chk==0 then return #g>0 end
    Duel.SetOperationInfo(0,CATEGORY_POSITION,g,#g,0,0)
    end
    function cm.operation3(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
    if Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)>=0 then
    local tg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
    if #tg>0 then
    Duel.BreakEffect()
    local tc=tg:GetFirst()
    local atk=0
    while tc do
    if tc:GetAttack()>0 then
    atk=atk+tc:GetAttack()
    end
    tc=tg:GetNext()
    end
    if c:IsFaceup() then
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetProperty(EFFECT_FLAG_COPY_INHERIT)
    e5:SetCode(EFFECT_UPDATE_ATTACK)
    e5:SetReset(RESET_EVENT+RESETS_STANDARD)
    e5:SetValue(atk)
    c:RegisterEffect(e5)
    end
    end
    end
    end
    function cm.atkval(e,c)
    return c:GetOverlayCount()*1000
    end
    function cm.repfilter(c,tp)
    return c:IsControler(tp) and c:IsOnField()
    and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
    end
    function cm.desreptg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return eg:IsExists(cm.repfilter,1,nil,tp)
    and c:CheckRemoveOverlayCard(tp,1,REASON_EFFECT) end
    return Duel.SelectEffectYesNo(tp,c,96)
    end
    function cm.desrepval(e,c)
    return cm.repfilter(c,e:GetHandlerPlayer())
    end
    function cm.desrepop(e,tp,eg,ep,ev,re,r,rp)
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT)
    Duel.Hint(HINT_CARD,0,m)
    local c=e:GetHandler()
    if c:IsFaceup() then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(2000)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e1)
    end
    end
    expansions/script/c183350.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L——Blink
    local m=183350
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --xyz summon
    c:EnableReviveLimit()
    aux.AddXyzProcedureLevelFree(c,cm.mfilter,cm.xyzcheck,2,99)
    --search
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_DRAW)
    e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost1)
    e1:SetCondition(cm.spcon1)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --reflect
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetRange(LOCATION_MZONE)
    e2:SetTargetRange(LOCATION_MZONE,0)
    e2:SetCode(EFFECT_REFLECT_BATTLE_DAMAGE)
    e2:SetTarget(cm.reftg)
    e2:SetValue(1)
    c:RegisterEffect(e2)
    --indes
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e3:SetValue(1)
    c:RegisterEffect(e3)
    --control
    local e6=Effect.CreateEffect(c)
    e6:SetDescription(aux.Stringid(m,1))
    e6:SetCategory(CATEGORY_DESTROY)
    e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e6:SetCode(EVENT_DAMAGE_STEP_END)
    e6:SetCost(cm.atkcost)
    e6:SetCondition(cm.atkcon)
    e6:SetTarget(cm.cttg)
    e6:SetOperation(cm.ctop)
    c:RegisterEffect(e6)
    --negate
    local e5=Effect.CreateEffect(c)
    e5:SetDescription(aux.Stringid(m,2))
    e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e5:SetType(EFFECT_TYPE_QUICK_O)
    e5:SetCode(EVENT_FREE_CHAIN)
    e5:SetRange(LOCATION_MZONE)
    e5:SetCountLimit(1)
    e5:SetCondition(cm.condition)
    e5:SetOperation(cm.operation)
    c:RegisterEffect(e5)
    end
    function cm.mfilter(c,xyzc)
    return c:IsSetCard(0xc19)
    end
    function cm.xygfilter(c)
    return c:IsSummonLocation(LOCATION_EXTRA)
    end
    function cm.xyzcheck(g)
    return g:IsExists(cm.xygfilter,1,nil)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    end
    function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
    end
    function cm.spfilter1(c)
    return c:IsCode(183525) and c:IsSSetable()
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,nil) end
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
    local tc=g:GetFirst()
    if #g>0 then
    Duel.SSet(tp,g)
    if tc:IsPreviousLocation(LOCATION_HAND) then
    Duel.BreakEffect()
    Duel.Draw(tp,1,REASON_EFFECT)
    end
    end
    end
    function cm.reftg(e,c)
    return c:IsSetCard(0xc19)
    end
    function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:IsRelateToBattle() and c:IsStatus(STATUS_OPPO_BATTLE)
    end
    function cm.cttg(e,tp,eg,ep,ev,re,r,rp,chk)
    local tc=e:GetHandler():GetBattleTarget()
    if chk==0 then return tc and tc:IsRelateToBattle() end
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0)
    end
    function cm.ctop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=c:GetBattleTarget()
    if tc:IsRelateToBattle() then
    if Duel.Destroy(tc,REASON_EFFECT)==0 and not tc:IsImmuneToEffect(e) then
    local og=tc:GetOverlayGroup()
    if og:GetCount()>0 then
    Duel.SendtoGrave(og,REASON_RULE)
    end
    Duel.Overlay(c,Group.FromCards(tc))
    end
    end
    end
    function cm.ssfilter(c,e,tp)
    return c:IsType(TYPE_MONSTER) and c:GetOwner()==1-tp
    end
    function cm.condition(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tg=c:GetOverlayGroup()
    local ph=Duel.GetCurrentPhase()
    return tp~=Duel.GetTurnPlayer() and bit.band(ph,PHASE_MAIN2+PHASE_END)==0 and tg:IsExists(cm.ssfilter,1,nil,e,tp)
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetReset(RESET_PHASE+PHASE_END)
    e1:SetTargetRange(0,1)
    Duel.RegisterEffect(e1,tp)
    end
    expansions/script/c183355.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L+-Sharp Blow
    local m=183355
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --xyz summon
    aux.AddXyzProcedure(c,nil,4,4)
    c:EnableReviveLimit()
    --multi attack
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetCost(cm.atkcost)
    e1:SetOperation(cm.atkop)
    c:RegisterEffect(e1)
    end
    function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
    e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EFFECT_EXTRA_ATTACK)
    e1:SetCondition(cm.spcon2)
    e1:SetValue(2)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetCode(EFFECT_DIRECT_ATTACK)
    e2:SetCondition(cm.spcon2)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD)
    e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
    e3:SetCode(EFFECT_CANNOT_ACTIVATE)
    e3:SetRange(LOCATION_MZONE)
    e3:SetTargetRange(0,1)
    e3:SetValue(1)
    e3:SetCondition(cm.actcon)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    c:RegisterEffect(e3)
    end
    local e0=Effect.CreateEffect(e:GetHandler())
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetCode(EFFECT_CANNOT_ATTACK)
    e0:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
    e0:SetTargetRange(LOCATION_MZONE,0)
    e0:SetTarget(cm.ftarget)
    e0:SetLabel(c:GetFieldID())
    e0:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e0,tp)
    end
    function cm.ftarget(e,c)
    return e:GetLabel()~=c:GetFieldID()
    end
    function cm.ctfilter(c)
    return c:IsSetCard(0xc19) and c:GetOriginalType()&TYPE_MONSTER==TYPE_MONSTER
    end
    function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:GetOverlayGroup():IsExists(cm.ctfilter,1,nil)
    end
    function cm.actcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:GetOverlayGroup():IsExists(cm.ctfilter,1,nil)
    and Duel.GetAttacker()==e:GetHandler()
    or Duel.GetAttackTarget()==e:GetHandler()
    end
    expansions/script/c183400.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L OP-COM
    local m=183400
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --link summon
    c:EnableReviveLimit()
    aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0xc19),2,2)
    --search
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost1)
    e1:SetCondition(cm.spcon1)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --destroy
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,m+1)
    e2:SetCondition(cm.thcon)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    KanKan.MALcanntspm(e:GetHandler())
    end
    function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.spfilter1(c)
    return c:IsCode(183510) and c:IsSSetable()
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_DECK,0,1,nil) end
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter1,tp,LOCATION_DECK,0,1,1,nil)
    if #g>0 then
    Duel.SSet(tp,g)
    end
    end
    function cm.cfilter(c,lg)
    return c:IsFaceup() and c:IsSetCard(0xc19) and lg:IsContains(c)
    end
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    local lg=e:GetHandler():GetLinkedGroup()
    return eg:IsExists(cm.cfilter,1,nil,lg)
    end
    function cm.thfilter(c)
    return c:IsSetCard(0xc19) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER)
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
    if #g>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    expansions/script/c183405.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L Wunder
    local m=183405
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --link summon
    c:EnableReviveLimit()
    aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0xc19),2,99)
    --atk
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE)
    e0:SetCode(EFFECT_MATERIAL_CHECK)
    e0:SetValue(cm.valcheck)
    c:RegisterEffect(e0)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(cm.atkcon)
    e1:SetOperation(cm.atkop)
    e1:SetLabelObject(e0)
    c:RegisterEffect(e1)
    --indestructable
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e2:SetCondition(cm.indcon)
    e2:SetValue(1)
    c:RegisterEffect(e2)
    local e3=e2:Clone()
    e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
    c:RegisterEffect(e3)
    end
    function cm.valcheck(e,c)
    local g=c:GetMaterial()
    local atk=0
    local tc=g:GetFirst()
    while tc do
    local lk
    if tc:IsLevelAbove(1) then lk=tc:GetLevel()
    elseif tc:IsRankAbove(1) then lk=tc:GetRank()
    elseif tc:IsLinkAbove(1) then lk=tc:GetLink()
    end
    atk=atk+lk
    tc=g:GetNext()
    end
    e:SetLabel(atk)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local atk=e:GetLabelObject():GetLabel()*500
    if atk>0 then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(atk)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e2)
    end
    end
    function cm.lkfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xc19)
    end
    function cm.indcon(e)
    return e:GetHandler():GetLinkedGroup():IsExists(cm.lkfilter,1,nil)
    end
    \ No newline at end of file
    expansions/script/c183410.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L Black Mantle
    local m=183410
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --link summon
    c:EnableReviveLimit()
    aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0xc19),2,2)
    --race
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetRange(LOCATION_MZONE)
    e0:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
    e0:SetCode(EFFECT_CHANGE_RACE)
    e0:SetCondition(cm.condition)
    e0:SetValue(RACE_MACHINE)
    c:RegisterEffect(e0)
    --flip
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_CONTROL)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.fltg)
    e1:SetOperation(cm.flop)
    c:RegisterEffect(e1)
    --spsummon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e2:SetCode(EVENT_TO_GRAVE)
    e2:SetCountLimit(1,m+1)
    e2:SetTarget(cm.sptg)
    e2:SetOperation(cm.spop)
    c:RegisterEffect(e2)
    end
    function cm.condition(e)
    local tp=e:GetHandlerPlayer()
    return not Duel.IsPlayerAffectedByEffect(tp,EFFECT_NECRO_VALLEY) and not Duel.IsPlayerAffectedByEffect(1-tp,EFFECT_NECRO_VALLEY)
    and e:GetHandler():GetMutualLinkedGroupCount()>0
    end
    function cm.ctfilter(c)
    return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:IsControlerCanBeChanged()
    end
    function cm.fltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and cm.ctfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.ctfilter,tp,0,LOCATION_MZONE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
    local g1=Duel.SelectTarget(tp,cm.ctfilter,tp,0,LOCATION_MZONE,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_CONTROL,g1,g1:GetCount(),0,0)
    end
    function cm.flop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local ttc=Duel.GetFirstTarget()
    if c:IsRelateToEffect(e) and c:IsFaceup() and ttc and ttc:IsRelateToEffect(e)
    and not ttc:IsImmuneToEffect(e) then
    c:SetCardTarget(ttc)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_CONTROL)
    e1:SetValue(tp)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetCondition(cm.ctcon)
    ttc:RegisterEffect(e1)
    end
    end
    function cm.ctcon(e)
    local c=e:GetOwner()
    local h=e:GetHandler()
    return c:IsHasCardTarget(h)
    end
    function cm.filter(c,e,tp)
    return c:IsSetCard(0xc19) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
    end
    function cm.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,cm.filter,tp,LOCATION_HAND,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
    expansions/script/c183415.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L Skirmisher
    local m=183415
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --link summon
    c:EnableReviveLimit()
    aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0xc19),2,99)
    --atk
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE)
    e0:SetCode(EFFECT_MATERIAL_CHECK)
    e0:SetValue(cm.valcheck)
    c:RegisterEffect(e0)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(cm.atkcon)
    e1:SetOperation(cm.atkop)
    e1:SetLabelObject(e0)
    c:RegisterEffect(e1)
    --all
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_DESTROY)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetCondition(cm.descon)
    e2:SetTarget(cm.target)
    e2:SetOperation(cm.operation)
    c:RegisterEffect(e2)
    KanKan.MALeffectgain(c,m,cm.effop)
    end
    function cm.valcheck(e,c)
    local g=c:GetMaterial()
    local atk=0
    local tc=g:GetFirst()
    while tc do
    local lk
    if tc:IsLinkAbove(1) then
    lk=tc:GetLink()
    else lk=0
    end
    atk=atk+lk
    tc=g:GetNext()
    end
    e:SetLabel(atk)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local atk=e:GetLabelObject():GetLabel()*1000
    if atk>0 then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(atk)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e2)
    end
    end
    function cm.descon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.filter(c)
    return c:IsFaceup() and c:GetAttack()>0
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,0,LOCATION_MZONE,1,nil) end
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
    local tc=g:GetFirst()
    while tc do
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_ATTACK_FINAL)
    e1:SetValue(0)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    tc=g:GetNext()
    end
    end
    function cm.effop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    --immune
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_IMMUNE_EFFECT)
    e1:SetValue(cm.efilter)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e1,true)
    if not rc:IsType(TYPE_EFFECT) then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_ADD_TYPE)
    e2:SetValue(TYPE_EFFECT)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e2,true)
    end
    rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    end
    function cm.efilter(e,te)
    if te:GetHandlerPlayer()==e:GetHandlerPlayer() or not te:IsActivated() then return false end
    if not te:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return true end
    local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
    return not g or not g:IsContains(e:GetHandler())
    end
    expansions/script/c183420.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L——Hyperion
    local m=183420
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --link summon
    c:EnableReviveLimit()
    aux.AddLinkProcedure(c,nil,4,99,cm.lcheck)
    KanKan.MAL(c)
    --spsummon condition
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE)
    e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e0:SetCode(EFFECT_SPSUMMON_CONDITION)
    e0:SetValue(aux.linklimit)
    c:RegisterEffect(e0)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(cm.atkcon)
    e1:SetOperation(cm.sumsuc)
    c:RegisterEffect(e1)
    --position
    local e9=Effect.CreateEffect(c)
    e9:SetType(EFFECT_TYPE_FIELD)
    e9:SetCode(EFFECT_SET_POSITION)
    e9:SetRange(LOCATION_MZONE)
    e9:SetTargetRange(0,LOCATION_MZONE)
    e9:SetValue(POS_FACEUP_ATTACK)
    c:RegisterEffect(e9)
    --atk limit
    local e10=Effect.CreateEffect(c)
    e10:SetType(EFFECT_TYPE_FIELD)
    e10:SetRange(LOCATION_MZONE)
    e10:SetTargetRange(0,LOCATION_MZONE)
    e10:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
    e10:SetValue(cm.atklimit)
    c:RegisterEffect(e10)
    end
    function cm.lcheck(g,lc)
    return g:IsExists(cm.lkfilter1,1,nil) and g:IsExists(cm.lkfilter2,1,nil) and g:IsExists(cm.lkfilter3,1,nil) and g:IsExists(cm.lkfilter4,1,nil)
    end
    function cm.lkfilter1(c)
    return c:IsLinkType(TYPE_FUSION) and c:IsSetCard(0xc19)
    end
    function cm.lkfilter2(c)
    return c:IsLinkType(TYPE_SYNCHRO) and c:IsSetCard(0xc19)
    end
    function cm.lkfilter3(c)
    return c:IsLinkType(TYPE_XYZ) and c:IsSetCard(0xc19)
    end
    function cm.lkfilter4(c)
    return c:IsLinkType(TYPE_LINK) and c:IsSetCard(0xc19)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.sumsuc(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local sg=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil)
    Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)
    local og=Duel.GetOperatedGroup()
    local ct=og:FilterCount(aux.TRUE,nil)
    if ct>0 then
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(ct*800)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD+RESET_DISABLE)
    c:RegisterEffect(e1)
    end
    local sg2=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_REMOVED,LOCATION_REMOVED,nil)
    Duel.SendtoDeck(sg2,nil,2,REASON_EFFECT)
    if sg2:GetCount()>0 then
    local og2=Duel.GetOperatedGroup()
    local ct2=og2:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
    if ct2>0 then
    Duel.BreakEffect()
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,2))
    e2:SetProperty(EFFECT_FLAG_CLIENT_HINT)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_EXTRA_ATTACK)
    e2:SetValue(ct2)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e2)
    Duel.NegateRelatedChain(c,RESET_TURN_SET)
    end
    end
    Duel.Hint(24,0,aux.Stringid(m,12))
    Duel.Hint(24,0,aux.Stringid(m,13))
    Duel.Hint(24,0,aux.Stringid(m,14))
    end
    function cm.atklimit(e,c)
    return c~=e:GetHandler()
    end
    expansions/script/c183425.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L——Null
    local m=183425
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    c:EnableReviveLimit()
    KanKan.MALLink(c)
    --effect gain
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(cm.regcon)
    e1:SetOperation(cm.regop)
    c:RegisterEffect(e1)
    --effect gain
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
    e2:SetProperty(EFFECT_FLAG_DELAY)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetCountLimit(1)
    e2:SetCondition(cm.tkcon)
    e2:SetOperation(cm.tkop)
    c:RegisterEffect(e2)
    end
    function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.regop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:GetMaterial():FilterCount(Card.IsLinkType,nil,TYPE_FUSION)>0 then
    --activate limit - fusion -> Search
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCode(EVENT_PHASE+PHASE_END)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetCondition(cm.thcon1)
    e1:SetTarget(cm.thtac1)
    e1:SetOperation(cm.thop1)
    c:RegisterEffect(e1)
    c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,0))
    end
    if c:GetMaterial():FilterCount(Card.IsLinkType,nil,TYPE_SYNCHRO)>0 then
    --activate limit - synchro -> actlimit
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e2:SetCode(EFFECT_CANNOT_ACTIVATE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetTargetRange(1,1)
    e2:SetValue(1)
    e2:SetCondition(cm.actcon2)
    c:RegisterEffect(e2)
    c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    end
    if c:GetMaterial():FilterCount(Card.IsLinkType,nil,TYPE_XYZ)>0 then
    --activate limit - XYZ -> spell
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
    e3:SetCode(EFFECT_TO_GRAVE_REDIRECT)
    e3:SetRange(LOCATION_MZONE)
    e3:SetTargetRange(0xff,0xff)
    e3:SetValue(LOCATION_DECK)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e3)
    c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
    end
    if c:GetMaterial():FilterCount(Card.IsLinkType,nil,TYPE_LINK)>0 then
    --activate limit - Link -> must use Summon
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_FIELD)
    e4:SetCode(EFFECT_MUST_USE_MZONE)
    e4:SetRange(LOCATION_MZONE)
    e4:SetTargetRange(LOCATION_EXTRA,LOCATION_EXTRA)
    e4:SetValue(cm.frcval4)
    e4:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e4)
    c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
    end
    Duel.Hint(24,0,aux.Stringid(m,12))
    Duel.Hint(24,0,aux.Stringid(m,13))
    Duel.Hint(24,0,aux.Stringid(m,14))
    end
    function cm.thfilter1(c)
    return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
    end
    function cm.thcon1(e,tp,eg,ep,ev,re,r,rp)
    return tp==Duel.GetTurnPlayer()
    end
    function cm.thtac1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter1,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
    end
    function cm.thop1(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter1,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SSet(tp,g:GetFirst())
    end
    end
    function cm.ffilter2(c)
    return c:IsFaceup() and c:IsType(TYPE_FIELD)
    end
    function cm.actcon2(e)
    local ph=Duel.GetCurrentPhase()
    local tp=e:GetHandlerPlayer()
    return Duel.IsExistingMatchingCard(cm.ffilter2,e:GetHandlerPlayer(),LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
    end
    function cm.frcval4(e,c,fp,rp,r)
    local tp=e:GetHandlerPlayer()
    local zone = 0
    zone = zone | Duel.GetLinkedZone(tp)
    zone = zone | Duel.GetLinkedZone(1-tp)
    zone = zone | 0x60
    zone = zone | (0x60*0x10000)
    return zone
    end
    function cm.tkcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.tkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local g=c:GetMaterial()
    local link=0
    local tc=g:GetFirst()
    while tc do
    local lk
    if tc:IsLinkAbove(1) then
    lk=tc:GetLink()
    else lk=0
    end
    link=link+lk
    tc=g:GetNext()
    end
    local atk=link*1000
    if c:GetFlagEffect(183426)==0 and link>=1 then
    --atk
    local e1_1=Effect.CreateEffect(e:GetHandler())
    e1_1:SetType(EFFECT_TYPE_SINGLE)
    e1_1:SetCode(EFFECT_SET_BASE_ATTACK)
    e1_1:SetValue(atk)
    e1_1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e1_1)
    c:RegisterFlagEffect(183426,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
    end
    if c:GetFlagEffect(183427)==0 and link>=2 then
    --damage reduce
    local e2_1=Effect.CreateEffect(e:GetHandler())
    e2_1:SetType(EFFECT_TYPE_FIELD)
    e2_1:SetCode(EFFECT_CHANGE_DAMAGE)
    e2_1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e2_1:SetRange(LOCATION_MZONE)
    e2_1:SetTargetRange(1,0)
    e2_1:SetValue(cm.damval)
    e2_1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e2_1)
    local e3_1=e2_1:Clone()
    e3_1:SetCode(EFFECT_NO_EFFECT_DAMAGE)
    c:RegisterEffect(e3_1)
    c:RegisterFlagEffect(183427,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
    end
    if c:GetFlagEffect(183428)==0 and link>=4 then
    --atlimit
    local e4_1=Effect.CreateEffect(e:GetHandler())
    e4_1:SetType(EFFECT_TYPE_FIELD)
    e4_1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
    e4_1:SetRange(LOCATION_MZONE)
    e4_1:SetTargetRange(0,LOCATION_MZONE)
    e4_1:SetValue(cm.atlimit)
    e4_1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e4_1)
    c:RegisterFlagEffect(183428,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,6))
    end
    if c:GetFlagEffect(183429)==0 and link>=5 then
    --atkup
    local e5_1=Effect.CreateEffect(e:GetHandler())
    e5_1:SetType(EFFECT_TYPE_SINGLE)
    e5_1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e5_1:SetRange(LOCATION_MZONE)
    e5_1:SetCode(EFFECT_SET_ATTACK_FINAL)
    e5_1:SetValue(cm.atkval)
    e5_1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e5_1)
    c:RegisterFlagEffect(183429,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,7))
    end
    if c:GetFlagEffect(183430)==0 and link>=7 then
    --Damage
    local e6_1=Effect.CreateEffect(e:GetHandler())
    e6_1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e6_1:SetCode(EVENT_PRE_BATTLE_DAMAGE)
    e6_1:SetRange(LOCATION_MZONE)
    e6_1:SetOperation(cm.rdop)
    e6_1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e6_1)
    c:RegisterFlagEffect(183430,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,8))
    end
    if c:GetFlagEffect(183431)==0 and link>=8 then
    --pierce
    local e8_1=Effect.CreateEffect(e:GetHandler())
    e8_1:SetType(EFFECT_TYPE_SINGLE)
    e8_1:SetCode(EFFECT_PIERCE)
    e8_1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e8_1)
    c:RegisterFlagEffect(183431,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,9))
    end
    end
    function cm.damval(e,re,val,r,rp,rc)
    if bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 then return 0 end
    return val
    end
    function cm.atlimit(e,c)
    return c~=e:GetHandler()
    end
    function cm.atkval(e,c)
    return c:GetAttack()*2
    end
    function cm.rdop(e,tp,eg,ep,ev,re,r,rp)
    Duel.ChangeBattleDamage(ep,ev*3)
    end
    expansions/script/c183430.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Valiant
    local m=183430
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --link summon
    c:EnableReviveLimit()
    aux.AddLinkProcedure(c,cm.matfilter,1,1)
    --atk
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE)
    e0:SetCode(EFFECT_MATERIAL_CHECK)
    e0:SetValue(cm.valcheck)
    c:RegisterEffect(e0)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(cm.atkcon)
    e1:SetOperation(cm.atkop)
    e1:SetLabelObject(e0)
    c:RegisterEffect(e1)
    --search
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,0))
    e2:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetCountLimit(1,m)
    e2:SetCost(cm.cost1)
    e2:SetCondition(cm.spcon1)
    e2:SetTarget(cm.sptg)
    e2:SetOperation(cm.spop)
    c:RegisterEffect(e2)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    end
    function cm.matfilter(c)
    return c:IsLinkSetCard(0xc19) and not c:IsLinkCode(183430)
    end
    function cm.valcheck(e,c)
    local g=c:GetMaterial()
    local atk=0
    local tc=g:GetFirst()
    while tc do
    local lk
    if tc:IsLevelAbove(1) then lk=tc:GetLevel()
    elseif tc:IsRankAbove(1) then lk=tc:GetRank()
    elseif tc:IsLinkAbove(1) then lk=tc:GetLink()
    end
    atk=atk+lk
    tc=g:GetNext()
    end
    e:SetLabel(atk)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local atk=e:GetLabelObject():GetLabel()*200
    if atk>0 then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetValue(atk)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    local e2=e1:Clone()
    e2:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e2)
    end
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    local e2=Effect.CreateEffect(e:GetHandler())
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e2:SetReset(RESET_PHASE+PHASE_END)
    e2:SetTargetRange(1,0)
    e2:SetTarget(cm.splimit)
    Duel.RegisterEffect(e2,tp)
    end
    function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
    return not c:IsSetCard(0xc19)
    end
    function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.filter(c,e,tp,zone)
    return c:IsSetCard(0xc19) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then
    local zone=e:GetHandler():GetLinkedZone(tp)
    return zone~=0 and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil,e,tp,zone)
    end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local zone=e:GetHandler():GetLinkedZone(tp)
    if zone==0 then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,zone)
    if g:GetCount()>0 then
    Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP,zone)
    end
    end
    \ No newline at end of file
    expansions/script/c183435.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Hive balloon
    local m=183435
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --link summon
    aux.AddLinkProcedure(c,cm.mfilter,2,2,cm.lcheck)
    c:EnableReviveLimit()
    --cannot link material
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE)
    e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e0:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
    e0:SetValue(cm.lmlimit)
    c:RegisterEffect(e0)
    --to hand
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SEARCH)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,m+1)
    e2:SetCondition(cm.thcon)
    e2:SetCost(cm.thcost)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCountLimit(1,m)
    e1:SetCondition(cm.spcon)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    end
    function cm.lmlimit(e)
    local c=e:GetHandler()
    return c:IsStatus(STATUS_SPSUMMON_TURN) and c:IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.mfilter(c)
    return c:IsRankAbove(1)
    end
    function cm.lcheck(g,lc)
    return g:GetClassCount(Card.GetRank)==1
    end
    function cm.cfilter(c,lg)
    return c:IsFaceup() and c:IsType(TYPE_XYZ) and lg:IsContains(c)
    end
    function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
    local lg=e:GetHandler():GetLinkedGroup()
    return eg:IsExists(cm.cfilter,1,nil,lg)
    end
    function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
    e:SetLabel(100)
    if chk==0 then return true end
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.cpfilter(c)
    return c:IsType(TYPE_SPELL) and c:IsSetCard(0x95,0x15e,0xc1f) and c:IsAbleToGraveAsCost()
    and c:CheckActivateEffect(true,true,false)~=nil
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then
    if e:GetLabel()~=100 then return false end
    e:SetLabel(0)
    return Duel.IsExistingMatchingCard(cm.cpfilter,tp,LOCATION_DECK,0,1,nil)
    end
    e:SetLabel(0)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g=Duel.SelectMatchingCard(tp,cm.cpfilter,tp,LOCATION_DECK,0,1,1,nil)
    local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(true,true,true)
    Duel.SendtoGrave(g,REASON_COST)
    e:SetProperty(te:GetProperty())
    local tg=te:GetTarget()
    if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end
    te:SetLabelObject(e:GetLabelObject())
    e:SetLabelObject(te)
    Duel.ClearOperationInfo(0)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    local te=e:GetLabelObject()
    if not te then return end
    e:SetLabelObject(te:GetLabelObject())
    local op=te:GetOperation()
    if op then op(e,tp,eg,ep,ev,re,r,rp) 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(cm.xyzsplimit)
    Duel.RegisterEffect(e2,tp)
    end
    function cm.xyzsplimit(e,c)
    return not c:IsType(TYPE_XYZ) and c:IsLocation(LOCATION_EXTRA)
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.filter(c,e,tp)
    return c:IsCanBeEffectTarget(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.xyzfilter(c,mg)
    return c:IsType(TYPE_XYZ) and c:IsXyzSummonable(mg,2,2)
    end
    function cm.mfilter1(c,mg,exg)
    return mg:IsExists(cm.mfilter2,1,c,c,exg)
    end
    function cm.mfilter2(c,mc,exg)
    return exg:IsExists(Card.IsXyzSummonable,1,nil,Group.FromCards(c,mc))
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return false end
    local mg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_GRAVE,0,nil,e,tp)
    local exg=Duel.GetMatchingGroup(cm.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg)
    if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2)
    and not Duel.IsPlayerAffectedByEffect(tp,59822133)
    and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
    and exg:GetCount()>0 end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local sg1=mg:FilterSelect(tp,cm.mfilter1,1,1,nil,mg,exg)
    local tc1=sg1:GetFirst()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local sg2=mg:FilterSelect(tp,cm.mfilter2,1,1,tc1,tc1,exg)
    sg1:Merge(sg2)
    Duel.SetTargetCard(sg1)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg1,2,0,0)
    end
    function cm.filter2(c,e,tp)
    return c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end
    local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(cm.filter2,nil,e,tp)
    if g:GetCount()<2 then return end
    local tc=g:GetFirst()
    while tc do
    Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
    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)
    tc=g:GetNext()
    end
    Duel.SpecialSummonComplete()
    Duel.AdjustAll()
    if g:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<2 then return end
    local xyzg=Duel.GetMatchingGroup(cm.xyzfilter,tp,LOCATION_EXTRA,0,nil,g)
    if xyzg:GetCount()>0 then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
    Duel.XyzSummon(tp,xyz,g)
    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(cm.xyzsplimit)
    Duel.RegisterEffect(e2,tp)
    end
    end
    function cm.xyzsplimit(e,c)
    return not c:IsType(TYPE_XYZ) and c:IsLocation(LOCATION_EXTRA)
    end
    \ No newline at end of file
    expansions/script/c183445.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L 【Helepolis】
    local m=183445
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --attack target
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetRange(LOCATION_MZONE)
    e0:SetCode(EFFECT_PATRICIAN_OF_DARKNESS)
    e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e0:SetTargetRange(0,1)
    c:RegisterEffect(e0)
    --link add
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(183120,6))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.linkcost)
    e1:SetTarget(cm.linktg)
    e1:SetOperation(cm.linkop)
    c:RegisterEffect(e1)
    --to grave
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(183120,7))
    e2:SetCategory(CATEGORY_TOGRAVE)
    e2:SetType(EFFECT_TYPE_QUICK_O)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
    e2:SetCountLimit(1,m+1)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCost(cm.tgcost)
    e2:SetTarget(cm.gytg)
    e2:SetOperation(cm.gyop)
    c:RegisterEffect(e2)
    --indestructable effect
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD)
    e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
    e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
    e3:SetRange(LOCATION_MZONE)
    e3:SetTargetRange(LOCATION_ONFIELD,0)
    e3:SetTarget(cm.indtg)
    e3:SetValue(aux.indoval)
    c:RegisterEffect(e3)
    --link lose
    local e5=Effect.CreateEffect(c)
    e5:SetDescription(aux.Stringid(183120,8))
    e5:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_SPECIAL_SUMMON)
    e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e5:SetCode(EVENT_PHASE+PHASE_END)
    e5:SetRange(LOCATION_MZONE)
    e5:SetCountLimit(1)
    e5:SetCondition(cm.lscon)
    e5:SetOperation(cm.lsop)
    c:RegisterEffect(e5)
    end
    function cm.linkcost(e,tp,eg,ep,ev,re,r,rp,chk)
    e:SetLabel(100)
    if chk==0 then return true end
    end
    function cm.linkfilter(c)
    return c:IsType(TYPE_LINK) and c:IsType(TYPE_MONSTER) and c:IsSetCard(0xc19)
    end
    function cm.linktg(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then
    if e:GetLabel()~=100 then return false end
    e:SetLabel(0)
    return Duel.CheckReleaseGroup(tp,cm.linkfilter,1,c)
    end
    e:SetLabel(0)
    local g=Duel.SelectReleaseGroup(tp,cm.linkfilter,1,1,c)
    Duel.Release(g,REASON_COST)
    Duel.SetTargetCard(g)
    end
    function cm.linkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    local lm1=0
    local lm2=0
    local lm3=0
    local lm4=0
    local lm5=0
    local lm6=0
    local lm7=0
    local lm8=0
    if tc:IsLinkAbove(1) then
    if tc:IsLinkMarker(LINK_MARKER_TOP_RIGHT) then lm1=lm1+1 end
    if tc:IsLinkMarker(LINK_MARKER_TOP_LEFT) then lm2=lm2+1 end
    if tc:IsLinkMarker(LINK_MARKER_TOP) then lm3=lm3+1 end
    if tc:IsLinkMarker(LINK_MARKER_LEFT) then lm4=lm4+1 end
    if tc:IsLinkMarker(LINK_MARKER_RIGHT) then lm5=lm5+1 end
    if tc:IsLinkMarker(LINK_MARKER_BOTTOM_LEFT) then lm6=lm6+1 end
    if tc:IsLinkMarker(LINK_MARKER_BOTTOM) then lm7=lm7+1 end
    if tc:IsLinkMarker(LINK_MARKER_BOTTOM_RIGHT) then lm8=lm8+1 end
    end
    if c:IsLinkMarker(LINK_MARKER_TOP_RIGHT) then lm1=0 end
    if c:IsLinkMarker(LINK_MARKER_TOP_LEFT) then lm2=0 end
    if c:IsLinkMarker(LINK_MARKER_TOP) then lm3=0 end
    if c:IsLinkMarker(LINK_MARKER_LEFT) then lm4=0 end
    if c:IsLinkMarker(LINK_MARKER_RIGHT) then lm5=0 end
    if c:IsLinkMarker(LINK_MARKER_BOTTOM_LEFT) then lm6=0 end
    if c:IsLinkMarker(LINK_MARKER_BOTTOM) then lm7=0 end
    if c:IsLinkMarker(LINK_MARKER_BOTTOM_RIGHT) then lm8=0 end
    if lm1+lm2+lm3+lm4+lm5+lm6+lm7+lm8>=5 then
    local linksurprised=4
    while linksurprised do
    local off=1
    local ops={}
    local opval={}
    if lm1==1 then
    ops[off]=aux.Stringid(m,0)
    opval[off-1]=1
    off=off+1
    end
    if lm2==1 then
    ops[off]=aux.Stringid(m,1)
    opval[off-1]=2
    off=off+1
    end
    if lm3==1 then
    ops[off]=aux.Stringid(m,2)
    opval[off-1]=3
    off=off+1
    end
    if lm4==1 then
    ops[off]=aux.Stringid(m,3)
    opval[off-1]=4
    off=off+1
    end
    if lm5==1 then
    ops[off]=aux.Stringid(m,4)
    opval[off-1]=5
    off=off+1
    end
    if lm6==1 then
    ops[off]=aux.Stringid(m,5)
    opval[off-1]=6
    off=off+1
    end
    if lm7==1 then
    ops[off]=aux.Stringid(m,6)
    opval[off-1]=7
    off=off+1
    end
    if lm8==1 then
    ops[off]=aux.Stringid(m,7)
    opval[off-1]=8
    off=off+1
    end
    if off==1 then return end
    local op=Duel.SelectOption(tp,table.unpack(ops))
    if opval[op]==1 then
    lm1=0
    local e0_1=Effect.CreateEffect(c)
    e0_1:SetType(EFFECT_TYPE_SINGLE)
    e0_1:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e0_1:SetValue(LINK_MARKER_TOP_RIGHT)
    e0_1:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_1)
    c:ResetFlagEffect(m+9)
    c:RegisterFlagEffect(m+1,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,0))
    elseif opval[op]==2 then
    lm2=0
    local e0_2=Effect.CreateEffect(c)
    e0_2:SetType(EFFECT_TYPE_SINGLE)
    e0_2:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e0_2:SetValue(LINK_MARKER_TOP_LEFT)
    e0_2:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_2)
    c:ResetFlagEffect(m+10)
    c:RegisterFlagEffect(m+2,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    elseif opval[op]==3 then
    lm3=0
    local e0_3=Effect.CreateEffect(c)
    e0_3:SetType(EFFECT_TYPE_SINGLE)
    e0_3:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e0_3:SetValue(LINK_MARKER_TOP)
    e0_3:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_3)
    c:ResetFlagEffect(m+11)
    c:RegisterFlagEffect(m+3,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
    elseif opval[op]==4 then
    lm4=0
    local e0_4=Effect.CreateEffect(c)
    e0_4:SetType(EFFECT_TYPE_SINGLE)
    e0_4:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e0_4:SetValue(LINK_MARKER_LEFT)
    e0_4:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_4)
    c:ResetFlagEffect(m+12)
    c:RegisterFlagEffect(m+4,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
    elseif opval[op]==5 then
    lm5=0
    local e0_5=Effect.CreateEffect(c)
    e0_5:SetType(EFFECT_TYPE_SINGLE)
    e0_5:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e0_5:SetValue(LINK_MARKER_RIGHT)
    e0_5:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_5)
    c:ResetFlagEffect(m+13)
    c:RegisterFlagEffect(m+5,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
    elseif opval[op]==6 then
    lm6=0
    local e0_6=Effect.CreateEffect(c)
    e0_6:SetType(EFFECT_TYPE_SINGLE)
    e0_6:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e0_6:SetValue(LINK_MARKER_BOTTOM_LEFT)
    e0_6:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_6)
    c:ResetFlagEffect(m+14)
    c:RegisterFlagEffect(m+6,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
    elseif opval[op]==7 then
    lm7=0
    local e0_7=Effect.CreateEffect(c)
    e0_7:SetType(EFFECT_TYPE_SINGLE)
    e0_7:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e0_7:SetValue(LINK_MARKER_BOTTOM)
    e0_7:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_7)
    c:ResetFlagEffect(m+15)
    c:RegisterFlagEffect(m+7,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,6))
    elseif opval[op]==8 then
    lm8=0
    local e0_8=Effect.CreateEffect(c)
    e0_8:SetType(EFFECT_TYPE_SINGLE)
    e0_8:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e0_8:SetValue(LINK_MARKER_BOTTOM_RIGHT)
    e0_8:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_8)
    c:ResetFlagEffect(m+16)
    c:RegisterFlagEffect(m+8,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,7))
    end--(op)
    linksurprised=linksurprised-1
    if linksurprised<=0 then
    break
    end
    end--(while)
    else--(<=4)
    if lm1>0 then
    local e1_1=Effect.CreateEffect(c)
    e1_1:SetType(EFFECT_TYPE_SINGLE)
    e1_1:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e1_1:SetValue(LINK_MARKER_TOP_RIGHT)
    e1_1:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e1_1)
    c:ResetFlagEffect(m+9)
    c:RegisterFlagEffect(m+1,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,0))
    end
    if lm2>0 then
    local e1_2=Effect.CreateEffect(c)
    e1_2:SetType(EFFECT_TYPE_SINGLE)
    e1_2:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e1_2:SetValue(LINK_MARKER_TOP_LEFT)
    e1_2:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e1_2)
    c:ResetFlagEffect(m+10)
    c:RegisterFlagEffect(m+2,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    end
    if lm3>0 then
    local e1_3=Effect.CreateEffect(c)
    e1_3:SetType(EFFECT_TYPE_SINGLE)
    e1_3:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e1_3:SetValue(LINK_MARKER_TOP)
    e1_3:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e1_3)
    c:ResetFlagEffect(m+11)
    c:RegisterFlagEffect(m+3,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
    end
    if lm4>0 then
    local e1_4=Effect.CreateEffect(c)
    e1_4:SetType(EFFECT_TYPE_SINGLE)
    e1_4:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e1_4:SetValue(LINK_MARKER_LEFT)
    e1_4:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e1_4)
    c:ResetFlagEffect(m+12)
    c:RegisterFlagEffect(m+4,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,3))
    end
    if lm5>0 then
    local e1_5=Effect.CreateEffect(c)
    e1_5:SetType(EFFECT_TYPE_SINGLE)
    e1_5:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e1_5:SetValue(LINK_MARKER_RIGHT)
    e1_5:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e1_5)
    c:ResetFlagEffect(m+13)
    c:RegisterFlagEffect(m+5,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
    end
    if lm6>0 then
    local e1_6=Effect.CreateEffect(c)
    e1_6:SetType(EFFECT_TYPE_SINGLE)
    e1_6:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e1_6:SetValue(LINK_MARKER_BOTTOM_LEFT)
    e1_6:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e1_6)
    c:ResetFlagEffect(m+14)
    c:RegisterFlagEffect(m+6,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
    end
    if lm7>0 then
    local e1_7=Effect.CreateEffect(c)
    e1_7:SetType(EFFECT_TYPE_SINGLE)
    e1_7:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e1_7:SetValue(LINK_MARKER_BOTTOM)
    e1_7:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e1_7)
    c:ResetFlagEffect(m+15)
    c:RegisterFlagEffect(m+7,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,6))
    end
    if lm8>0 then
    local e1_8=Effect.CreateEffect(c)
    e1_8:SetType(EFFECT_TYPE_SINGLE)
    e1_8:SetCode(EFFECT_ADD_LINK_MARKER_KOISHI)
    e1_8:SetValue(LINK_MARKER_BOTTOM_RIGHT)
    e1_8:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e1_8)
    c:ResetFlagEffect(m+16)
    c:RegisterFlagEffect(m+8,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,7))
    end
    end--(>5;<=4)
    end--(end)
    function cm.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    local lm1=0
    local lm2=0
    local lm3=0
    local lm4=0
    local lm5=0
    local lm6=0
    local lm7=0
    local lm8=0
    if c:IsLinkMarker(LINK_MARKER_TOP_RIGHT) then lm1=lm1+1 end
    if c:IsLinkMarker(LINK_MARKER_TOP_LEFT) then lm2=lm2+1 end
    if c:IsLinkMarker(LINK_MARKER_TOP) then lm3=lm3+1 end
    if c:IsLinkMarker(LINK_MARKER_LEFT) then lm4=lm4+1 end
    if c:IsLinkMarker(LINK_MARKER_RIGHT) then lm5=lm5+1 end
    if c:IsLinkMarker(LINK_MARKER_BOTTOM_LEFT) then lm6=lm6+1 end
    if c:IsLinkMarker(LINK_MARKER_BOTTOM) then lm7=lm7+1 end
    if c:IsLinkMarker(LINK_MARKER_BOTTOM_RIGHT) then lm8=lm8+1 end
    if chk==0 then return lm1+lm2+lm3+lm4+lm5+lm6+lm7+lm8>=1 end
    local off=1
    local ops={}
    local opval={}
    if lm1>0 then
    ops[off]=aux.Stringid(m,0)
    opval[off-1]=1
    off=off+1
    end
    if lm2>0 then
    ops[off]=aux.Stringid(m,1)
    opval[off-1]=2
    off=off+1
    end
    if lm3>0 then
    ops[off]=aux.Stringid(m,2)
    opval[off-1]=3
    off=off+1
    end
    if lm4>0 then
    ops[off]=aux.Stringid(m,3)
    opval[off-1]=4
    off=off+1
    end
    if lm5>0 then
    ops[off]=aux.Stringid(m,4)
    opval[off-1]=5
    off=off+1
    end
    if lm6>0 then
    ops[off]=aux.Stringid(m,5)
    opval[off-1]=6
    off=off+1
    end
    if lm7>0 then
    ops[off]=aux.Stringid(m,6)
    opval[off-1]=7
    off=off+1
    end
    if lm8>0 then
    ops[off]=aux.Stringid(m,7)
    opval[off-1]=8
    off=off+1
    end
    if off==1 then return end
    local op=Duel.SelectOption(tp,table.unpack(ops))
    if opval[op]==1 then
    local e0_1=Effect.CreateEffect(c)
    e0_1:SetType(EFFECT_TYPE_SINGLE)
    e0_1:SetCode(EFFECT_REMOVE_LINK_MARKER_KOISHI)
    e0_1:SetValue(LINK_MARKER_TOP_RIGHT)--没有问题
    e0_1:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_1)
    c:ResetFlagEffect(m+1)
    c:RegisterFlagEffect(m+9,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,8))
    elseif opval[op]==2 then
    local e0_2=Effect.CreateEffect(c)
    e0_2:SetType(EFFECT_TYPE_SINGLE)
    e0_2:SetCode(EFFECT_REMOVE_LINK_MARKER_KOISHI)
    e0_2:SetValue(LINK_MARKER_TOP_LEFT)--没有问题
    e0_2:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_2)
    c:ResetFlagEffect(m+2)
    c:RegisterFlagEffect(m+10,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,9))
    elseif opval[op]==3 then
    local e0_3=Effect.CreateEffect(c)
    e0_3:SetType(EFFECT_TYPE_SINGLE)
    e0_3:SetCode(EFFECT_REMOVE_LINK_MARKER_KOISHI)
    e0_3:SetValue(LINK_MARKER_TOP)--没有问题
    e0_3:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_3)
    c:ResetFlagEffect(m+3)
    c:RegisterFlagEffect(m+11,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,10))
    elseif opval[op]==4 then
    local e0_4=Effect.CreateEffect(c)
    e0_4:SetType(EFFECT_TYPE_SINGLE)
    e0_4:SetCode(EFFECT_REMOVE_LINK_MARKER_KOISHI)
    e0_4:SetValue(LINK_MARKER_LEFT)--没有问题
    e0_4:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_4)
    c:ResetFlagEffect(m+4)
    c:RegisterFlagEffect(m+12,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,11))
    elseif opval[op]==5 then
    local e0_5=Effect.CreateEffect(c)
    e0_5:SetType(EFFECT_TYPE_SINGLE)
    e0_5:SetCode(EFFECT_REMOVE_LINK_MARKER_KOISHI)
    e0_5:SetValue(LINK_MARKER_RIGHT)
    e0_5:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_5)
    c:ResetFlagEffect(m+5)
    c:RegisterFlagEffect(m+13,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,12))
    elseif opval[op]==6 then
    local e0_6=Effect.CreateEffect(c)
    e0_6:SetType(EFFECT_TYPE_SINGLE)
    e0_6:SetCode(EFFECT_REMOVE_LINK_MARKER_KOISHI)
    e0_6:SetValue(LINK_MARKER_BOTTOM_LEFT)
    e0_6:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_6)
    c:ResetFlagEffect(m+6)
    c:RegisterFlagEffect(m+14,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,13))
    elseif opval[op]==7 then
    local e0_7=Effect.CreateEffect(c)
    e0_7:SetType(EFFECT_TYPE_SINGLE)
    e0_7:SetCode(EFFECT_REMOVE_LINK_MARKER_KOISHI)
    e0_7:SetValue(LINK_MARKER_BOTTOM)
    e0_7:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_7)
    c:ResetFlagEffect(m+7)
    c:RegisterFlagEffect(m+15,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,14))
    elseif opval[op]==8 then
    local e0_8=Effect.CreateEffect(c)
    e0_8:SetType(EFFECT_TYPE_SINGLE)
    e0_8:SetCode(EFFECT_REMOVE_LINK_MARKER_KOISHI)
    e0_8:SetValue(LINK_MARKER_BOTTOM_RIGHT)
    e0_8:SetReset(RESET_EVENT+0x7e0000)
    c:RegisterEffect(e0_8)
    c:ResetFlagEffect(m+8)
    c:RegisterFlagEffect(m+16,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,15))
    end--(op)
    end
    function cm.gyfilter(c,g)
    return g:IsContains(c)
    end
    function cm.gytg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,0,1-tp,LOCATION_ONFIELD)
    end
    function cm.gyop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local pg=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,tp)
    if pg:GetCount()==0 then return end
    local pc=pg:GetFirst()
    local g=Duel.GetMatchingGroup(cm.gyfilter,tp,0,LOCATION_ONFIELD,nil,pc:GetColumnGroup())
    if pc:GetControler()~=c:GetControler() then
    g:AddCard(pc)
    Duel.SendtoGrave(g,REASON_EFFECT)
    else
    Duel.SendtoGrave(g,REASON_EFFECT)
    end
    end
    function cm.indtg(e,c)
    return c~=e:GetHandler()
    end
    function cm.lscon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnPlayer()~=tp
    end
    function cm.exspfilter(c,e,tp)
    return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCode(183120)
    and c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
    end
    function cm.lsop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_BASE_ATTACK)
    e1:SetValue(math.ceil(c:GetAttack()/2))
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e1)
    Duel.BreakEffect()
    local lm1=0
    local lm2=0
    local lm3=0
    local lm4=0
    local lm5=0
    local lm6=0
    local lm7=0
    local lm8=0
    if c:IsLinkMarker(LINK_MARKER_TOP_RIGHT) then lm1=lm1+1 end
    if c:IsLinkMarker(LINK_MARKER_TOP_LEFT) then lm2=lm2+1 end
    if c:IsLinkMarker(LINK_MARKER_TOP) then lm3=lm3+1 end
    if c:IsLinkMarker(LINK_MARKER_LEFT) then lm4=lm4+1 end
    if c:IsLinkMarker(LINK_MARKER_RIGHT) then lm5=lm5+1 end
    if c:IsLinkMarker(LINK_MARKER_BOTTOM_LEFT) then lm6=lm6+1 end
    if c:IsLinkMarker(LINK_MARKER_BOTTOM) then lm7=lm7+1 end
    if c:IsLinkMarker(LINK_MARKER_BOTTOM_RIGHT) then lm8=lm8+1 end
    if lm1+lm2+lm3+lm4+lm5+lm6+lm7+lm8<1 or c:GetBaseAttack()<=2500 then
    Duel.SendtoDeck(c,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    Duel.Hint(24,0,aux.Stringid(m,10))
    Duel.Hint(24,0,aux.Stringid(m,10))
    Duel.Hint(24,0,aux.Stringid(m,10))
    end
    end
    expansions/script/c183465.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·
    local m=183465
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    c:SetUniqueOnField(1,0,m)
    --link summon
    c:EnableReviveLimit()
    aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0xc19),2,99)
    --immune
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_SINGLE)
    e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e6:SetRange(LOCATION_MZONE)
    e6:SetCode(EFFECT_IMMUNE_EFFECT)
    e6:SetCondition(cm.immcon)
    e6:SetValue(cm.efilter)
    c:RegisterEffect(e6)
    --change battle target
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetCode(EVENT_ATTACK_ANNOUNCE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCondition(cm.cbcon)
    e2:SetOperation(cm.cbop)
    c:RegisterEffect(e2)
    --remove
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_REMOVE)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
    e1:SetCondition(cm.rmcon)
    e1:SetTarget(cm.rmtg)
    e1:SetOperation(cm.rmop)
    c:RegisterEffect(e1)
    end
    function cm.immcon(e)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.efilter(e,te)
    return not (te:GetHandler():IsType(TYPE_FIELD) or te:GetHandler():IsType(TYPE_QUICKPLAY))
    end
    function cm.cbcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnPlayer()~=tp and Duel.GetAttackTarget()~=e:GetHandler()
    end
    ---
    ---
    ---
    ---
    ---
    ---
    function cm.cbop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local atkwtf=math.floor((c:GetAttack()-3500)/1000)
    local atkmax=atkwtf*4
    if c:IsRelateToEffect(e) then
    local at=Duel.GetAttacker()
    if not KanKan.resultnumber then
    local result=0
    local g=Duel.GetFieldGroup(0,0xff,0xff):RandomSelect(0,8)
    local ct={}
    local c=g:GetFirst()
    for i=0,7 do
    ct[c]=i
    c=g:GetNext()
    end
    for i=0,10 do
    result=result+(ct[g:RandomSelect(2,1):GetFirst()]<<(3*i))
    end
    g:DeleteGroup()
    KanKan.resultnumber=result&0xffffffff
    end
    local dice1=KanKan.odds(1,10)
    e:GetHandler():SetTurnCounter(dice1)
    local dice2=KanKan.odds(1,10)
    e:GetHandler():SetTurnCounter(dice2)
    local c=e:GetHandler()
    if c:IsFaceup() and c:IsRelateToEffect(e) then
    if dice1==10 and dice2~=10 then dice1=0 end
    if dice1~=10 and dice2==10 then dice2=0 end
    local x=(dice1*10)+dice2
    if dice1==10 and dice2==10 then x=100 end
    if x>60-atkmax then
    if at:IsAttackable() and not at:IsImmuneToEffect(e) then
    Duel.CalculateDamage(at,c)
    end
    end
    end
    end
    end
    function cm.rmcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():GetFlagEffect(m)==0
    end
    function cm.tfilter2(c)
    return not c:IsLocation(LOCATION_SZONE) or c:GetSequence()<5
    end
    function cm.seqfilter2(c,seq)
    local loc=LOCATION_MZONE
    if seq>8 then
    loc=LOCATION_SZONE
    seq=seq-8
    end
    if seq>=5 and seq<=7 then return false end
    local cseq=c:GetSequence()
    local cloc=c:GetLocation()
    if cloc==LOCATION_SZONE and cseq>=5 then return false end
    if cloc==LOCATION_MZONE and cseq>=5 and loc==LOCATION_MZONE
    and (seq==1 and cseq==5 or seq==3 and cseq==6) then return true end
    return cseq==seq or cloc==loc and math.abs(cseq-seq)==1
    end
    function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.tfilter2,tp,0,LOCATION_ONFIELD,1,nil) end
    local filter=0
    for i=0,16 do
    if not Duel.IsExistingMatchingCard(cm.seqfilter2,tp,0,LOCATION_ONFIELD,1,nil,i) then
    filter=filter|1<<(i+16)
    end
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    local flag=Duel.SelectField(tp,1,0,LOCATION_ONFIELD,filter)
    local seq=math.log(flag>>16,2)
    e:SetLabel(seq)
    local sg=Duel.GetMatchingGroup(cm.seqfilter2,tp,0,LOCATION_ONFIELD,nil,seq)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,1,0,0)
    end
    function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
    local seq=e:GetLabel()
    local dg=Duel.GetMatchingGroup(cm.seqfilter2,tp,0,LOCATION_ONFIELD,nil,seq)
    if dg:GetCount()<1 then return end
    Duel.Destroy(dg,REASON_EFFECT)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,2)
    end
    end
    expansions/script/c183470.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·Pendragon
    local m=183470
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --link summon
    c:EnableReviveLimit()
    aux.AddLinkProcedure(c,nil,3,99,cm.lcheck)
    --atk
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE)
    e0:SetCode(EFFECT_MATERIAL_CHECK)
    e0:SetValue(cm.valcheck)
    c:RegisterEffect(e0)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetCondition(cm.atkcon)
    e1:SetOperation(cm.atkop)
    e1:SetLabelObject(e0)
    c:RegisterEffect(e1)
    --act limit
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetRange(LOCATION_ONFIELD)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e2:SetCode(EFFECT_CANNOT_ACTIVATE)
    e2:SetTargetRange(0,LOCATION_MZONE+LOCATION_HAND)
    e2:SetValue(cm.actlimit)
    c:RegisterEffect(e2)
    --disable
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_FIELD)
    e6:SetCode(EFFECT_DISABLE)
    e6:SetRange(LOCATION_ONFIELD)
    e6:SetTargetRange(0,LOCATION_MZONE+LOCATION_HAND)
    e6:SetTarget(cm.distg)
    c:RegisterEffect(e6)
    --to grave
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,2))
    e3:SetCategory(CATEGORY_TOGRAVE)
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetRange(LOCATION_MZONE)
    e3:SetProperty(EFFECT_FLAG_NO_TURN_RESET)
    e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
    e3:SetCondition(cm.tgcon)
    e3:SetTarget(cm.tgtg)
    e3:SetOperation(cm.tgop)
    c:RegisterEffect(e3)
    --Revive
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,3))
    e4:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD)
    e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e4:SetCode(EVENT_PHASE+PHASE_END)
    e4:SetRange(0xff-LOCATION_ONFIELD)
    e4:SetCountLimit(1)
    e4:SetCondition(cm.sumcon)
    e4:SetTarget(cm.sumtg)
    e4:SetOperation(cm.sumop)
    c:RegisterEffect(e4)
    local e5=Effect.CreateEffect(c)
    e5:SetDescription(aux.Stringid(m,3))
    e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e5:SetProperty(EFFECT_FLAG_DELAY)
    e5:SetCode(EVENT_DESTROYED)
    e5:SetCondition(cm.spcon)
    e5:SetOperation(cm.sumop)
    c:RegisterEffect(e5)
    end
    function cm.lcheck(g,lc)
    return g:IsExists(cm.lkfilter1,1,nil)
    end
    function cm.lkfilter1(c)
    return (c:IsLinkType(TYPE_FUSION) or c:IsLinkType(TYPE_SYNCHRO) or c:IsLinkType(TYPE_XYZ) or c:IsLinkType(TYPE_LINK)) and c:IsSetCard(0xc19)
    end
    function cm.lkfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.valcheck(e,c)
    local g=c:GetMaterial()
    local fg=g:Filter(cm.lkfilter,nil)
    local atk=0
    local tc=fg:GetFirst()
    while tc do
    local lk
    if tc:IsLevelAbove(1) then lk=tc:GetLevel()
    elseif tc:IsRankAbove(1) then lk=tc:GetRank()
    elseif tc:IsLinkAbove(1) then lk=tc:GetLink()
    end
    atk=atk+lk
    tc=fg:GetNext()
    end
    e:SetLabel(atk)
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local atk=e:GetLabelObject():GetLabel()*700
    if atk>0 then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_BASE_ATTACK)
    e1:SetValue(atk)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD+RESET_DISABLE)
    c:RegisterEffect(e1)
    end
    Duel.Hint(24,0,aux.Stringid(m,12))
    Duel.Hint(24,0,aux.Stringid(m,13))
    Duel.Hint(24,0,aux.Stringid(m,14))
    end
    function cm.actlimit(e,re,tp)
    local loc=re:GetActivateLocation()
    return (loc==LOCATION_MZONE or loc==LOCATION_HAND) and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():GetAttack()<e:GetHandler():GetAttack()
    end
    function cm.distg(e,c)
    return c:GetAttack()<e:GetHandler():GetAttack()
    end
    function cm.tgcon(e,tp,eg,ep,ev,re,r,rp)
    return e:GetHandler():GetBaseAttack()>=5000
    end
    function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
    local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
    if chk==0 then return #g>0 end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,#g,0,0)
    end
    function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
    if #g>0 then
    Duel.SendtoGrave(g,REASON_EFFECT)
    end
    Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetDescription(aux.Stringid(m,3))
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
    e1:SetTargetRange(1,0)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.sumcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>0 and Duel.GetFlagEffect(tp,m)>0
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return c:IsPreviousLocation(LOCATION_MZONE)
    and c:IsSummonType(SUMMON_TYPE_LINK)
    and bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0
    and Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>0
    end
    function cm.sumtg(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 cm.sumop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) and Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)>0 and c:IsFaceup() then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_SET_BASE_ATTACK)
    e1:SetValue(4000)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e1)
    --immune
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_IMMUNE_EFFECT)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetValue(cm.efilter)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
    c:RegisterEffect(e2)
    end
    end
    function cm.efilter(e,te)
    return te:GetOwner()~=e:GetOwner()
    end
    expansions/script/c183500.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L<Armament Bulwar>
    local m=183500
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_ACTIVATE)
    e0:SetCode(EVENT_FREE_CHAIN)
    c:RegisterEffect(e0)
    --fusion summon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(0,TIMING_MAIN_END)
    e1:SetRange(LOCATION_FZONE)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    --Atk
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetCode(EFFECT_UPDATE_ATTACK)
    e2:SetRange(LOCATION_FZONE)
    e2:SetTargetRange(LOCATION_MZONE,0)
    e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xc19))
    e2:SetValue(cm.val)
    c:RegisterEffect(e2)
    --Def
    local e3=e2:Clone()
    e3:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e3)
    --reduce battle damage
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_FIELD)
    e4:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
    e4:SetRange(LOCATION_FZONE)
    e4:SetTargetRange(LOCATION_MZONE,0)
    e4:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xc19))
    e4:SetValue(aux.ChangeBattleDamage(1,HALF_DAMAGE))
    c:RegisterEffect(e4)
    end
    function cm.val(e,c)
    return math.abs(Duel.GetLP(0)-Duel.GetLP(1))
    end
    function cm.filter0(c)
    return c:IsOnField() and c:IsAbleToDeck()
    end
    function cm.filter1(c,e)
    return c:IsOnField() and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
    end
    function cm.filter2(c,e,tp,m,f,chkf)
    return c:IsType(TYPE_FUSION) and c:IsSetCard(0xc19) and (not f or f(c))
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
    end
    function cm.filter3(c)
    return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then
    local chkf=tp
    local mg1=Duel.GetFusionMaterial(tp):Filter(cm.filter0,nil)
    local mg2=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_GRAVE,0,nil)
    mg1:Merge(mg2)
    local res=Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
    if not res then
    local ce=Duel.GetChainMaterial(tp)
    if ce~=nil then
    local fgroup=ce:GetTarget()
    local mg3=fgroup(ce,e,tp)
    local mf=ce:GetValue()
    res=Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf)
    end
    end
    return res
    end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_ONFIELD+LOCATION_GRAVE)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local chkf=tp
    local mg1=Duel.GetFusionMaterial(tp):Filter(cm.filter1,nil,e)
    local mg2=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_GRAVE,0,nil)
    mg1:Merge(mg2)
    local sg1=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
    local mg3=nil
    local sg2=nil
    local ce=Duel.GetChainMaterial(tp)
    if ce~=nil then
    local fgroup=ce:GetTarget()
    mg3=fgroup(ce,e,tp)
    local mf=ce:GetValue()
    sg2=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf)
    end
    if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
    local sg=sg1:Clone()
    if sg2 then sg:Merge(sg2) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local tg=sg:Select(tp,1,1,nil)
    local tc=tg:GetFirst()
    if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
    local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
    tc:SetMaterial(mat1)
    Duel.SendtoDeck(mat1,nil,2,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
    Duel.BreakEffect()
    Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
    else
    local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
    local fop=ce:GetOperation()
    fop(ce,e,tp,tc,mat2)
    end
    tc:CompleteProcedure()
    end
    end
    \ No newline at end of file
    expansions/script/c183505.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L A!A!A!
    local m=183505
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    --Destroy replace
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    e2:SetCode(EFFECT_DESTROY_REPLACE)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1)
    e2:SetTarget(cm.reptg)
    e2:SetValue(cm.repval)
    c:RegisterEffect(e2)
    end
    function cm.filter(c,e,tp)
    return c:IsSetCard(0xc19) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.filter(chkc,e,tp) end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsExistingTarget(cm.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
    end
    end
    function cm.repfilter(c,tp)
    return c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5 and c:IsControler(tp) and c:IsFaceup() and c:IsSetCard(0xc19) and c:GetReasonPlayer()==1-tp
    and c:IsReason(REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
    end
    function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(cm.repfilter,1,nil,tp) end
    if Duel.SelectEffectYesNo(tp,e:GetHandler(),96) then
    Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
    return true
    else return false end
    end
    function cm.repval(e,c)
    return cm.repfilter(c,e:GetHandlerPlayer())
    end
    expansions/script/c183510.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L<Eclipse>
    local m=183510
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_ACTIVATE)
    e0:SetCode(EVENT_FREE_CHAIN)
    c:RegisterEffect(e0)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(0,TIMING_MAIN_END)
    e1:SetRange(LOCATION_FZONE)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.spcost)
    e1:SetCondition(cm.spcon1)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --special summon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_DRAW)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e2:SetRange(LOCATION_FZONE)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_PHASE+PHASE_END)
    e2:SetCountLimit(1,m+1)
    e2:SetCost(cm.drcost)
    e2:SetCondition(cm.drcon)
    e2:SetTarget(cm.drtg)
    e2:SetOperation(cm.drop)
    c:RegisterEffect(e2)
    end
    function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
    e:SetLabel(100)
    return true
    end
    function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
    end
    function cm.cfilter1(c)
    return c:IsSetCard(0xc19) and c:IsAbleToRemoveAsCost() and c:IsType(TYPE_MONSTER)
    end
    function cm.fselect(g,tg)
    return tg:IsExists(Card.IsLink,1,nil,#g)
    end
    function cm.spfilter(c,e,tp)
    return c:IsType(TYPE_LINK) and c:IsSetCard(0xc19)
    and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    local cg=Duel.GetMatchingGroup(cm.cfilter1,tp,LOCATION_GRAVE+LOCATION_HAND,0,nil)
    local tg=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
    local _,maxlink=tg:GetMaxGroup(Card.GetLink)
    if chk==0 then
    if e:GetLabel()~=100 then return false end
    e:SetLabel(0)
    if #tg==0 then return false end
    return cg:CheckSubGroup(cm.fselect,1,maxlink,tg)
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local rg=cg:SelectSubGroup(tp,cm.fselect,false,1,maxlink,tg)
    Duel.Remove(rg,POS_FACEUP,REASON_COST)
    e:SetLabel(rg:GetCount())
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.spfilter1(c,e,tp,lk)
    return cm.spfilter(c,e,tp) and c:IsLink(lk)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local lk=e:GetLabel()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter1,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,lk)
    local tc=g:GetFirst()
    if tc then
    Duel.SpecialSummon(tc,SUMMON_TYPE_LINK,tp,tp,false,false,POS_FACEUP)
    tc:CompleteProcedure()
    end
    end
    function cm.cfilter2(c)
    return c:IsSetCard(0xc19) and (c:IsAbleToDeckAsCost() or c:IsAbleToExtraAsCost())
    end
    function cm.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,2,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,2,2,nil)
    Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_COST)
    end
    function cm.drcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetTurnPlayer()==tp
    end
    function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
    Duel.SetTargetPlayer(tp)
    Duel.SetTargetParam(1)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    end
    function cm.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
    expansions/script/c183515.lua deleted 100644 → 0
    View file @ f4a33404
    --
    local m=183515
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e0=Effect.CreateEffect(c)
    e0:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e0:SetType(EFFECT_TYPE_ACTIVATE)
    e0:SetCode(EVENT_FREE_CHAIN)
    e0:SetCountLimit(1,m)
    e0:SetCondition(cm.condition)
    e0:SetOperation(cm.activate)
    c:RegisterEffect(e0)
    --to hand
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetCode(EVENT_TO_GRAVE)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCountLimit(1,m)
    e1:SetTarget(cm.thtg)
    e1:SetOperation(cm.thop)
    c:RegisterEffect(e1)
    --recover
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_RECOVER)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e2:SetRange(LOCATION_SZONE)
    e2:SetCode(EVENT_BATTLE_DAMAGE)
    e2:SetCountLimit(1)
    e2:SetCondition(cm.reccon)
    e2:SetTarget(cm.rectg)
    e2:SetOperation(cm.recop)
    c:RegisterEffect(e2)
    end
    function cm.cfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xc19) and c:IsType(TYPE_MONSTER)
    end
    function cm.condition(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
    end
    function cm.thfilter(c)
    return c:IsSetCard(0xc19) and c:IsAbleToHand()
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,nil)
    if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local sg=g:Select(tp,1,1,nil)
    Duel.SendtoHand(sg,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,sg)
    end
    end
    function cm.thfilter(c)
    return c:IsSetCard(0xc19) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function cm.thop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoHand(g,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,g)
    end
    end
    function cm.reccon(e,tp,eg,ep,ev,re,r,rp)
    return ep~=tp and eg:GetFirst():IsControler(tp) and eg:GetFirst():IsSetCard(0xc19)
    end
    function cm.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return true end
    Duel.SetTargetPlayer(tp)
    Duel.SetTargetParam(ev)
    Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,ev)
    end
    function cm.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
    \ No newline at end of file
    expansions/script/c183520.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·B-5［Vulture］
    local m=183520
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_DESTROY)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCondition(cm.condition)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    end
    function cm.cfilter(c)
    return c:IsFaceup() and c:IsCode(183420,183425)
    end
    function cm.condition(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
    end
    function cm.filter(c)
    return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGrave()
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,0,LOCATION_ONFIELD,1,c) end
    local g=Duel.GetMatchingGroup(cm.filter,tp,0,LOCATION_ONFIELD,c)
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(cm.filter,tp,0,LOCATION_ONFIELD,aux.ExceptThisCard(e))
    if g:GetCount()>0 then
    Duel.SendtoGrave(g,REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/script/c183525.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L<SF>
    local m=183525
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_ACTIVATE)
    e0:SetCode(EVENT_FREE_CHAIN)
    c:RegisterEffect(e0)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetHintTiming(0,TIMING_MAIN_END)
    e1:SetRange(LOCATION_FZONE)
    e1:SetCountLimit(1,m)
    e1:SetCondition(cm.spcon1)
    e1:SetTarget(cm.sptg)
    e1:SetOperation(cm.spop)
    c:RegisterEffect(e1)
    --Draw
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,1))
    e3:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
    e3:SetType(EFFECT_TYPE_IGNITION)
    e3:SetRange(LOCATION_SZONE)
    e3:SetCountLimit(1,m+1)
    e3:SetTarget(cm.drawtg)
    e3:SetOperation(cm.drawop)
    c:RegisterEffect(e3)
    end
    function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
    end
    function cm.cfilter1(c)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_SPELL) and c:IsCanOverlay()
    end
    function cm.fselect(g,tg)
    return tg:IsExists(Card.IsRank,1,nil,#g*4)
    end
    function cm.spfilter(c,e,tp)
    return c:IsType(TYPE_XYZ) and c:IsSetCard(0xc19)
    and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    local cg=Duel.GetMatchingGroup(cm.cfilter1,tp,LOCATION_GRAVE+LOCATION_HAND+LOCATION_REMOVED,0,nil)
    local tg=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
    local _,maxrank=tg:GetMaxGroup(Card.GetRank)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.cfilter1(chkc) end
    if chk==0 then
    if #tg==0 then return false end
    return cg:CheckSubGroup(cm.fselect,1,maxrank,tg) and Duel.IsExistingTarget(cm.cfilter1,tp,LOCATION_GRAVE+LOCATION_HAND+LOCATION_REMOVED,0,1,nil)
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
    local rg=Duel.SelectTarget(tp,cm.cfilter1,tp,LOCATION_GRAVE,0,1,maxrank/4,nil)
    e:SetLabel(rg:GetCount())
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.spfilter1(c,e,tp,rk)
    return cm.spfilter(c,e,tp) and c:IsRank(rk*4)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rk=e:GetLabel()
    local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
    if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=rk then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter1,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,rk)
    local tc=g:GetFirst()
    if tc then
    Duel.SpecialSummon(tc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
    tc:CompleteProcedure()
    Duel.Overlay(tc,Group.FromCards(tg))
    end
    end
    function cm.cfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.drawtg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
    and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND)
    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
    end
    function cm.drawop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_HAND,0,1,1,nil)
    if g:GetCount()>0 then
    Duel.SendtoDeck(g,nil,1,REASON_EFFECT)
    Duel.BreakEffect()
    Duel.Draw(tp,1,REASON_EFFECT)
    end
    end
    expansions/script/c183530.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L<Locust>
    local m=183530
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_ACTIVATE)
    e0:SetCode(EVENT_FREE_CHAIN)
    c:RegisterEffect(e0)
    --special summon
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_QUICK_O)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(0,TIMING_MAIN_END)
    e1:SetRange(LOCATION_FZONE)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost)
    e1:SetCondition(cm.spcon1)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.operation)
    c:RegisterEffect(e1)
    --actlimit
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD)
    e3:SetCode(EFFECT_CANNOT_ACTIVATE)
    e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e3:SetRange(LOCATION_SZONE)
    e3:SetTargetRange(0,1)
    e3:SetValue(1)
    e3:SetCondition(cm.actcon)
    c:RegisterEffect(e3)
    end
    function cm.cfilter(c,tp)
    return c:IsFaceup() and c:IsSetCard(0xc19) and c:IsControler(tp)
    end
    function cm.actcon(e)
    local tp=e:GetHandlerPlayer()
    local a=Duel.GetAttacker()
    local d=Duel.GetAttackTarget()
    return (a and cm.cfilter(a,tp)) or (d and cm.cfilter(d,tp))
    end
    function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
    end
    function cm.tdfilter(c)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_MONSTER) and c:GetLevel()>0
    and c:IsAbleToDeckOrExtraAsCost()
    and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
    end
    function cm.fselect(g,e,tp)
    return aux.gffcheck(g,Card.IsType,TYPE_TUNER,aux.NOT(Card.IsType),TYPE_TUNER)
    and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,g:GetSum(Card.GetLevel))
    end
    function cm.spfilter(c,e,tp,lv)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_SYNCHRO) and c:IsLevel(lv) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    e:SetLabel(100)
    local g=Duel.GetMatchingGroup(cm.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
    if chk==0 then
    return g:CheckSubGroup(cm.fselect,2,2,e,tp)
    end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
    local sg=g:SelectSubGroup(tp,cm.fselect,false,2,2,e,tp)
    e:SetLabel(sg:GetSum(Card.GetLevel))
    Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_COST)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then
    if e:GetLabel()~=100 then return false end
    e:SetLabel(0)
    return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL)
    end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    if not aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_SMATERIAL) then return end
    local lv=e:GetLabel()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local tc=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,lv):GetFirst()
    if tc then
    tc:SetMaterial(nil)
    if Duel.SpecialSummon(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)>0 then
    tc:CompleteProcedure()
    end
    end
    end
    expansions/script/c183535.lua deleted 100644 → 0
    View file @ f4a33404
    --马尔特效应
    local m=183535
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetTarget(KanKan.MALRitualspelltg)
    e1:SetOperation(KanKan.MALRitualspellop)
    c:RegisterEffect(e1)
    --salvage
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,0))
    e2:SetCategory(CATEGORY_ATKCHANGE)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,m)
    e2:SetCost(cm.thcost)
    e2:SetTarget(cm.atktg)
    e2:SetOperation(cm.atkop)
    c:RegisterEffect(e2)
    end
    function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
    Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_COST)
    end
    function cm.atkfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xc19)
    end
    function cm.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.atkfilter,tp,LOCATION_MZONE,0,1,nil) end
    end
    function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(cm.atkfilter,tp,LOCATION_MZONE,0,nil)
    local tc=g:GetFirst()
    while tc do
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetValue(1500)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    tc=g:GetNext()
    end
    end
    \ No newline at end of file
    expansions/script/c183540.lua deleted 100644 → 0
    View file @ f4a33404
    --升阶魔法·来自不死鸟的呼鸣
    local m=183540
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    --salvage
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_TOHAND)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCost(cm.thcost)
    e2:SetTarget(cm.thtg)
    e2:SetOperation(cm.thop)
    c:RegisterEffect(e2)
    end
    function cm.filter1(c,e,tp)
    local rk=c:GetRank()
    return c:IsFaceup() and c:IsType(TYPE_XYZ)
    and Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,rk+1)
    and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
    end
    function cm.filter2(c,e,tp,mc,rk)
    return c:IsRank(rk) and c:IsSetCard(0xc19) and mc:IsCanBeXyzMaterial(c)
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and cm.filter1(chkc,e,tp) end
    if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(24,0,aux.Stringid(m,12))
    Duel.Hint(24,0,aux.Stringid(m,13))
    Duel.Hint(24,0,aux.Stringid(m,14))
    local tc=Duel.GetFirstTarget()
    if not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
    if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank()+1)
    local sc=g:GetFirst()
    if sc then
    local mg=tc:GetOverlayGroup()
    if mg:GetCount()~=0 then
    Duel.Overlay(sc,mg)
    end
    sc:SetMaterial(Group.FromCards(tc))
    Duel.Overlay(sc,Group.FromCards(tc))
    Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
    sc:CompleteProcedure()
    end
    end
    function cm.cfilter(c)
    return c:IsSetCard(0xc19) and c:IsAbleToRemoveAsCost()
    end
    function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost()
    and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,nil)
    g:AddCard(e:GetHandler())
    Duel.Remove(g,POS_FACEUP,REASON_COST)
    end
    function cm.thfilter(c)
    return c:IsSetCard(0x95,0x15e,0xc1f) and not c:IsCode(183540) and c:IsAbleToHand()
    end
    function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
    end
    function cm.thop(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
    expansions/script/c183545.lua deleted 100644 → 0
    View file @ f4a33404
    --降阶魔法·破灭性降临
    local m=183545
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    --material
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
    e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,m)
    e2:SetCondition(cm.matcon)
    e2:SetTarget(cm.mattg)
    e2:SetOperation(cm.matop)
    c:RegisterEffect(e2)
    end
    function cm.filter1(c,e,tp)
    local rk=c:GetRank()
    return c:IsFaceup() and c:IsType(TYPE_XYZ)
    and Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,rk-1)
    and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
    end
    function cm.filter2(c,e,tp,mc,rk)
    return c:IsRank(rk) and c:IsSetCard(0xc19) and mc:IsCanBeXyzMaterial(c)
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and cm.filter1(chkc,e,tp) end
    if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
    if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank()-1)
    local sc=g:GetFirst()
    if sc then
    local mg=tc:GetOverlayGroup()
    if mg:GetCount()~=0 then
    Duel.Overlay(sc,mg)
    end
    sc:SetMaterial(Group.FromCards(tc))
    Duel.Overlay(sc,Group.FromCards(tc))
    Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
    sc:CompleteProcedure()
    if c:IsRelateToEffect(e) then
    c:CancelToGrave()
    Duel.Overlay(sc,Group.FromCards(c))
    end
    --to grave
    local e5=Effect.CreateEffect(sc)
    e5:SetCategory(CATEGORY_TOGRAVE)
    e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e5:SetCode(EVENT_ATTACK_ANNOUNCE)
    e5:SetRange(LOCATION_MZONE)
    e5:SetReset(RESET_EVENT+RESETS_STANDARD)
    e5:SetTarget(cm.tgtg)
    e5:SetOperation(cm.tgop)
    sc:RegisterEffect(e5)
    if not sc:IsType(TYPE_EFFECT) then
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_SINGLE)
    e6:SetCode(EFFECT_ADD_TYPE)
    e6:SetValue(TYPE_EFFECT)
    e6:SetReset(RESET_EVENT+RESETS_STANDARD)
    sc:RegisterEffect(e6)
    end
    sc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,0))
    end
    end
    function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
    local g=Duel.GetFieldGroup(tp,0,LOCATION_MZONE)
    if chk==0 then return g:GetCount()>0 end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_MZONE)
    end
    function cm.tgop(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetFieldGroup(tp,0,LOCATION_MZONE)
    if g:GetCount()>0 then
    Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE)
    local sg=g:Select(1-tp,1,1,nil)
    Duel.HintSelection(sg)
    Duel.SendtoGrave(sg,REASON_RULE)
    end
    end
    function cm.cfilter(c,e)
    return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsCanBeEffectTarget(e)
    end
    function cm.matcon(e,tp,eg,ep,ev,re,r,rp)
    local rc=re:GetHandler()
    return rc and re:IsActivated() and rc:IsType(TYPE_XYZ) and rc:IsRankAbove(9) and rc:IsSetCard(0xc19) and eg:IsExists(cm.cfilter,1,nil,e)
    end
    function cm.tgfilter(c,eg)
    return eg:IsContains(c) and c:IsFaceup() and c:IsType(TYPE_XYZ)
    end
    function cm.mattg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and cm.tgfilter(chkc,eg) end
    if chk==0 then return Duel.IsExistingTarget(cm.tgfilter,tp,LOCATION_MZONE,0,1,nil,eg)
    and e:GetHandler():IsCanOverlay() end
    if eg:GetCount()==1 then
    Duel.SetTargetCard(eg)
    else
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    Duel.SelectTarget(tp,cm.tgfilter,tp,LOCATION_MZONE,0,1,1,nil,eg)
    end
    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
    end
    function cm.matop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then
    Duel.Overlay(tc,Group.FromCards(c))
    end
    end
    expansions/script/c183550.lua deleted 100644 → 0
    View file @ f4a33404
    --同阶魔法·引力转变
    local m=183550
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    --salvage
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,0))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_GRAVE)
    e2:SetCountLimit(1,m)
    e2:SetCost(cm.thcost)
    e2:SetTarget(cm.tg)
    e2:SetOperation(cm.op)
    c:RegisterEffect(e2)
    end
    function cm.filter1(c,e,tp)
    local rk=c:GetRank()
    return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsSetCard(0xc19)
    and Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,rk)
    and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
    end
    function cm.filter2(c,e,tp,mc,rk)
    return c:IsRank(rk) and c:IsAttribute(ATTRIBUTE_WIND) and mc:IsCanBeXyzMaterial(c)
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and cm.filter1(chkc,e,tp) end
    if chk==0 then return Duel.IsExistingTarget(cm.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    Duel.SelectTarget(tp,cm.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
    if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank())
    local sc=g:GetFirst()
    if sc then
    local mg=tc:GetOverlayGroup()
    if mg:GetCount()~=0 then
    Duel.Overlay(sc,mg)
    end
    sc:SetMaterial(Group.FromCards(tc))
    Duel.Overlay(sc,Group.FromCards(tc))
    Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
    sc:CompleteProcedure()
    if c:IsRelateToEffect(e) then
    c:CancelToGrave()
    Duel.Overlay(sc,Group.FromCards(c))
    end
    end
    end
    function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
    Duel.SendtoDeck(e:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_COST)
    end
    function cm.filter10(c,e,tp)
    local rk=c:GetRank()
    return c:IsFaceup() and c:IsType(TYPE_XYZ) and not c:IsAttribute(ATTRIBUTE_WATER)
    and Duel.IsExistingMatchingCard(cm.filter20,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,rk)
    and aux.MustMaterialCheck(c,tp,EFFECT_MUST_BE_XMATERIAL)
    end
    function cm.filter20(c,e,tp,mc,rk)
    return c:IsRank(rk) and c:IsAttribute(ATTRIBUTE_WATER) and mc:IsCanBeXyzMaterial(c)
    and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,mc,c)>0
    end
    function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and cm.filter10(chkc,e,tp) end
    if chk==0 then return Duel.IsExistingTarget(cm.filter10,tp,LOCATION_MZONE,0,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
    Duel.SelectTarget(tp,cm.filter10,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
    end
    function cm.op(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if not aux.MustMaterialCheck(tc,tp,EFFECT_MUST_BE_XMATERIAL) then return end
    if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectMatchingCard(tp,cm.filter20,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank())
    local sc=g:GetFirst()
    if sc then
    local mg=tc:GetOverlayGroup()
    if mg:GetCount()~=0 then
    Duel.Overlay(sc,mg)
    end
    sc:SetMaterial(Group.FromCards(tc))
    Duel.Overlay(sc,Group.FromCards(tc))
    Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)
    sc:CompleteProcedure()
    end
    end
    \ No newline at end of file
    expansions/script/c183560.lua deleted 100644 → 0
    View file @ f4a33404
    --挟持命运的赛博抽卡
    local m=183560
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetCode(EVENT_DRAW)
    e1:SetCondition(cm.regcon)
    e1:SetOperation(cm.regop)
    c:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SEARCH+CATEGORY_TOHAND)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_FREE_CHAIN)
    e2:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
    e2:SetCost(cm.cost)
    e2:SetCondition(cm.condition)
    e2:SetTarget(cm.target)
    e2:SetOperation(cm.activate)
    c:RegisterEffect(e2)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    end
    cm.spchecks=aux.CreateChecks(Card.IsType,{TYPE_RITUAL,TYPE_FUSION,TYPE_SYNCHRO,TYPE_XYZ,TYPE_PENDULUM,TYPE_LINK})
    function cm.counterfilter(c)
    return c:IsCode(183060)
    end
    function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return Duel.GetFlagEffect(tp,m)==0 and Duel.GetCurrentPhase()==PHASE_DRAW and c:IsReason(REASON_RULE)
    end
    function cm.regop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_PUBLIC)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE)
    c:RegisterEffect(e1)
    c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,66)
    end
    end
    function cm.condition(e,tp,eg,ep,ev,re,r,rp)
    if c==nil then return true end
    local tp=c:GetControler()
    local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
    if g:GetCount()==0 then return false end
    local tg=g:GetMaxGroup(Card.GetAttack)
    return (tg:IsExists(Card.IsControler,1,nil,1-tp) or Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0)
    and e:GetHandler():GetFlagEffect(m)~=0
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 and e:GetHandler():GetFlagEffect(m)~=0 end
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetReset(RESET_PHASE+PHASE_END)
    e1:SetTargetRange(1,0)
    e1:SetTarget(cm.splimit)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
    return not c:IsCode(183060)
    end
    function cm.tgfilter(c)
    return c:IsType(TYPE_MONSTER) and c:IsType(TYPE_RITUAL+TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_PENDULUM+TYPE_LINK)
    and c:IsAbleToGrave()
    end
    function cm.fgoal(g)
    return g:GetClassCount(Card.GetType)==#g
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    local g=Duel.GetMatchingGroup(cm.tgfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA,0,nil)
    if chk==0 then return g:CheckSubGroupEach(cm.spchecks,nil,e,tp) end
    Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,6,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA)
    end
    function cm.srfilter(c)
    return c:IsCode(183060) and c:IsAbleToHand()
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local g=Duel.GetMatchingGroup(cm.tgfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA,0,nil)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local sg=g:SelectSubGroupEach(tp,cm.spchecks,false,nil,e,tp)
    local tg=Duel.GetMatchingGroup(cm.srfilter,tp,LOCATION_DECK,0,nil)
    if sg and Duel.SendtoGrave(sg,REASON_EFFECT)>0 and sg:IsExists(Card.IsLocation,6,nil,LOCATION_GRAVE)
    and tg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
    Duel.BreakEffect()
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local tg2=Duel.SelectMatchingCard(tp,cm.srfilter,tp,LOCATION_DECK,0,1,1,nil)
    Duel.SendtoHand(tg2,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,tg2)
    end
    end
    expansions/script/c183565.lua deleted 100644 → 0
    View file @ f4a33404
    --疾步前行
    local m=183565
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    e1:SetLabel(0)
    c:RegisterEffect(e1)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    e:SetLabel(100)
    if chk==0 then return true end
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    local hp=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
    if chk==0 then
    if e:GetLabel()~=100 then return false end
    e:SetLabel(0)
    return e:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.CheckLPCost(tp,hp*1000+1000) and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>4
    end
    e:SetLabel(0)
    Duel.PayLPCost(tp,hp*1000+1000)
    end
    function cm.filter(c)
    return (c:IsSetCard(0xc19) or c:IsRace(RACE_MACHINE)) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<5 then return end
    local g=Duel.GetDecktopGroup(tp,5)
    Duel.ConfirmCards(tp,g)
    if g:IsExists(cm.filter,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local sg=g:FilterSelect(tp,cm.filter,1,1,nil)
    Duel.DisableShuffleCheck()
    Duel.SendtoHand(sg,nil,REASON_EFFECT)
    Duel.ConfirmCards(1-tp,sg)
    Duel.ShuffleHand(tp)
    Duel.SortDecktop(tp,tp,4)
    else
    Duel.SortDecktop(tp,tp,5)
    end
    if g:IsExists(Card.IsSetCard,1,nil,0xc19) then
    local lg=g:FilterCount(Card.IsSetCard,nil,0xc19)
    if lg==0 then
    Duel.SetLP(tp,Duel.GetLP(tp)-3000)
    else
    Duel.SetLP(tp,Duel.GetLP(tp)-lg*500)
    end
    end
    end
    expansions/script/c183585.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·M7 [Gehrels]
    local m=183585
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_DRAW)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    end
    function cm.filter(c,e,tp)
    return c:IsSetCard(0xc19)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and cm.filter(chkc,e,tp) end
    if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
    Duel.SelectTarget(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    e1:SetValue(1)
    tc:RegisterEffect(e1)
    --immune effect
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetCode(EFFECT_IMMUNE_EFFECT)
    e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
    e2:SetRange(LOCATION_MZONE)
    e2:SetTargetRange(LOCATION_MZONE,0)
    e2:SetTarget(cm.indtg)
    e2:SetValue(cm.efilter)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e2,true)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_FIELD)
    e3:SetCode(EFFECT_CHANGE_DAMAGE)
    e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e3:SetRange(LOCATION_MZONE)
    e3:SetAbsoluteRange(tp,1,0)
    e3:SetTargetRange(1,0)
    e3:SetValue(0)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e3,true)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_NO_EFFECT_DAMAGE)
    e4:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
    tc:RegisterEffect(e4,true)
    end
    end
    function cm.indtg(e,c)
    return c:IsSetCard(0xc19)
    end
    function cm.efilter(e,te)
    return not te:GetOwner():IsSetCard(0xc19)
    end
    expansions/script/c183600.lua deleted 100644 → 0
    View file @ f4a33404
    --M！A！L！Jumping！
    local m=183600
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_NEGATE+CATEGORY_TODECK)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_CHAINING)
    e1:SetCountLimit(1,m)
    e1:SetCost(cm.cost)
    e1:SetCondition(cm.necon)
    e1:SetTarget(cm.netg)
    e1:SetOperation(cm.neop)
    c:RegisterEffect(e1)
    end
    function cm.cfilter(c,tp)
    return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsSetCard(0xc19) and c:CheckRemoveOverlayCard(tp,1,REASON_COST)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEATTACHFROM)
    local c=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_MZONE,0,1,1,nil,tp):GetFirst()
    c:RemoveOverlayCard(tp,1,1,REASON_COST)
    end
    function cm.necon(e,tp,eg,ep,ev,re,r,rp)
    return re:IsActiveType(TYPE_SPELL+TYPE_TRAP+TYPE_MONSTER) and Duel.IsChainNegatable(ev)
    end
    function cm.netg(e,tp,eg,ep,ev,re,r,rp,chk)
    local rc=re:GetHandler()
    if chk==0 then return Duel.IsPlayerCanSendtoDeck(tp) end
    Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
    if rc:IsRelateToEffect(re) then
    Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,1,0,0)
    end
    end
    function cm.neop(e,tp,eg,ep,ev,re,r,rp)
    local rc=re:GetHandler()
    if Duel.NegateActivation(ev) and rc:IsRelateToEffect(re) then
    rc:CancelToGrave()
    Duel.SendtoDeck(rc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/script/c183605.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L FIRE
    local m=183605
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --activate
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(TIMING_DAMAGE_STEP)
    e1:SetCondition(aux.dscon)
    c:RegisterEffect(e1)
    --atk/def
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetCode(EFFECT_UPDATE_ATTACK)
    e2:SetRange(LOCATION_SZONE)
    e2:SetTargetRange(LOCATION_MZONE,0)
    e2:SetTarget(cm.atktg)
    e2:SetValue(1000)
    c:RegisterEffect(e2)
    --negate
    local e3=Effect.CreateEffect(c)
    e3:SetDescription(aux.Stringid(m,0))
    e3:SetCategory(CATEGORY_DESTROY)
    e3:SetType(EFFECT_TYPE_QUICK_O)
    e3:SetCode(EVENT_FREE_CHAIN)
    e3:SetRange(LOCATION_SZONE)
    e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e3:SetCountLimit(1,m)
    e3:SetCondition(cm.descon)
    e3:SetCost(cm.cost)
    e3:SetTarget(cm.target)
    e3:SetOperation(cm.operation)
    c:RegisterEffect(e3)
    --destroy
    local e4=Effect.CreateEffect(c)
    e4:SetDescription(aux.Stringid(m,1))
    e4:SetCategory(CATEGORY_DESTROY)
    e4:SetType(EFFECT_TYPE_QUICK_O)
    e4:SetRange(LOCATION_SZONE)
    e4:SetCode(EVENT_FREE_CHAIN)
    e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
    e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e4:SetCountLimit(1,m+1)
    e4:SetCost(cm.descost)
    e4:SetTarget(cm.destg)
    e4:SetOperation(cm.desop)
    c:RegisterEffect(e4)
    end
    function cm.atktg(e,c)
    return c:IsSetCard(0xc19)
    end
    function cm.cfilter(c)
    return c:IsFaceup() and c:IsSetCard(0xc19) and c:IsType(TYPE_MONSTER)
    end
    function cm.descon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil) and e:GetHandler():IsStatus(STATUS_EFFECT_ENABLED)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
    Duel.SendtoGrave(e:GetHandler(),REASON_COST)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and aux.NegateAnyFilter(chkc) end
    if chk==0 then return Duel.IsExistingTarget(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
    local g=Duel.SelectTarget(tp,aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
    end
    function cm.operation(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if ((tc:IsFaceup() and not tc:IsDisabled()) or tc:IsType(TYPE_TRAPMONSTER)) and tc:IsRelateToEffect(e) then
    Duel.NegateRelatedChain(tc,RESET_TURN_SET)
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EFFECT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e2:SetCode(EFFECT_DISABLE_EFFECT)
    e2:SetValue(RESET_TURN_SET)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e2)
    if tc:IsType(TYPE_TRAPMONSTER) then
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
    e3:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e3)
    end
    end
    end
    function cm.cfilter(c)
    return c:IsSetCard(0xc19) and c:IsAbleToGraveAsCost()
    end
    function cm.descost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_HAND,0,1,nil) end
    Duel.DiscardHand(tp,cm.cfilter,1,1,REASON_COST)
    end
    function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsOnField() end
    local xg=nil
    if not e:GetHandler():IsStatus(STATUS_EFFECT_ENABLED) then xg=e:GetHandler() end
    if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,xg) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
    local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,xg)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    Duel.Destroy(tc,REASON_EFFECT)
    end
    end
    \ No newline at end of file
    expansions/script/c183610.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L{Windward Giant Bird}
    local m=183610
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.target)
    e1:SetOperation(cm.activate)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --spsummon
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,1))
    e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
    e2:SetCode(EVENT_DESTROYED)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCost(cm.cost)
    e2:SetCondition(cm.spcon)
    e2:SetTarget(cm.sptg)
    e2:SetOperation(cm.spop)
    c:RegisterEffect(e2)
    --revive
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_IGNITION)
    e3:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
    e3:SetCountLimit(1,m)
    e3:SetCost(cm.setcost)
    e3:SetTarget(cm.settg)
    e3:SetOperation(cm.setop)
    c:RegisterEffect(e3)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetReset(RESET_PHASE+PHASE_END)
    e1:SetTargetRange(1,0)
    e1:SetTarget(cm.splimit)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
    return not c:IsSetCard(0xc19)
    end
    function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsPlayerCanSpecialSummonMonster(tp,183610,0xc19,TYPES_EFFECT_TRAP_MONSTER,1500,3500,7,RACE_MACHINE,ATTRIBUTE_WIND)
    and Duel.IsPlayerCanSpecialSummonMonster(tp,183615,0xc19,TYPES_TOKEN_MONSTER,200,200,1,RACE_MACHINE,ATTRIBUTE_WIND) end
    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
    if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,ft,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ft,0,0)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
    end
    function cm.activate(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
    or not Duel.IsPlayerCanSpecialSummonMonster(tp,183610,0xc19,TYPES_EFFECT_TRAP_MONSTER,1500,3500,7,RACE_MACHINE,ATTRIBUTE_WIND) then return end
    c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP)
    Duel.SpecialSummon(c,SUMMON_VALUE_SELF,tp,tp,true,false,POS_FACEUP)
    Duel.BreakEffect()
    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
    if ft<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,183615,0xc19,TYPES_TOKEN_MONSTER,200,200,1,RACE_MACHINE,ATTRIBUTE_WIND) then return end
    if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
    local g=Group.CreateGroup()
    for i=1,ft do
    local token=Duel.CreateToken(tp,183615)
    Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
    g:AddCard(token)
    end
    local tc=g:GetFirst()
    local lp=0
    while tc do
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_SINGLE)
    e6:SetCode(EFFECT_NO_BATTLE_DAMAGE)
    e6:SetValue(1)
    e6:SetReset(RESET_EVENT+RESETS_STANDARD)
    tc:RegisterEffect(e6,true)
    local e7=e6:Clone()
    e7:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
    tc:RegisterEffect(e7,true)
    tc=g:GetNext()
    end
    Duel.SpecialSummonComplete()
    Duel.BreakEffect()
    if c then
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetTargetRange(1,0)
    e1:SetTarget(cm.splimit)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    end
    end
    function cm.splimit(e,c)
    return c:IsLocation(LOCATION_EXTRA)
    end
    function cm.cfilter(c)
    return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsCode(183615)
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return eg:IsExists(cm.cfilter,1,e:GetHandler())
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
    and Duel.IsPlayerCanSpecialSummonMonster(tp,183615,0xc19,TYPES_TOKEN_MONSTER,200,200,1,RACE_MACHINE,ATTRIBUTE_WIND) end
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
    or not Duel.IsPlayerCanSpecialSummonMonster(tp,183615,0xc19,TYPES_TOKEN_MONSTER,200,200,1,RACE_MACHINE,ATTRIBUTE_WIND) then return end
    local token=Duel.CreateToken(tp,183615)
    Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
    local e6=Effect.CreateEffect(c)
    e6:SetType(EFFECT_TYPE_SINGLE)
    e6:SetCode(EFFECT_NO_BATTLE_DAMAGE)
    e6:SetValue(1)
    e6:SetReset(RESET_EVENT+RESETS_STANDARD)
    token:RegisterEffect(e6,true)
    local e7=e6:Clone()
    e7:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
    token:RegisterEffect(e7,true)
    Duel.SpecialSummonComplete()
    end
    function cm.setfilter(c)
    return c:IsRace(RACE_MACHINE)
    end
    function cm.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.CheckReleaseGroupEx(REASON_COST,tp,cm.setfilter,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
    local g=Duel.SelectReleaseGroupEx(REASON_COST,tp,cm.setfilter,1,1,nil)
    Duel.Release(g,REASON_COST)
    end
    function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return e:GetHandler():IsSSetable() end
    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
    end
    function cm.setop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    if c:IsRelateToEffect(e) then
    Duel.SSet(tp,c)
    end
    end
    expansions/script/c183620.lua deleted 100644 → 0
    View file @ f4a33404
    --M！A！L！Neutron annihilation！
    local m=183620
    local cm=_G["c"..m]
    Duel.LoadScript("c100000.lua")
    function cm.initial_effect(c)
    --ev
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,8))
    e1:SetCategory(CATEGORY_DESTROY)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_ATTACK_ANNOUNCE)
    e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL+EFFECT_COUNT_CODE_OATH)
    e1:SetCondition(cm.con)
    e1:SetCost(cm.cost)
    e1:SetTarget(cm.destg)
    e1:SetOperation(cm.desop)
    c:RegisterEffect(e1)
    --remove
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,9))
    e2:SetCategory(CATEGORY_REMOVE)
    e2:SetType(EFFECT_TYPE_ACTIVATE)
    e2:SetCode(EVENT_ATTACK_ANNOUNCE)
    e2:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL+EFFECT_COUNT_CODE_OATH)
    e2:SetCondition(cm.con)
    e2:SetCost(cm.cost)
    e2:SetTarget(KanKan.MALcounterdistg)
    e2:SetOperation(KanKan.MALcounterdisop)
    c:RegisterEffect(e2)
    Duel.AddCustomActivityCounter(m,ACTIVITY_CHAIN,cm.counterfilter)
    end
    function cm.counterfilter(re,tp)
    local rc=re:GetHandler()
    return rc:IsSetCard(0xc19)
    end
    function cm.con(e,tp,eg,ep,ev,re,r,rp)
    return Duel.GetAttacker():IsControler(1-tp)
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_CHAIN)==0 end
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetCode(EFFECT_CANNOT_ACTIVATE)
    e1:SetTargetRange(1,0)
    e1:SetValue(cm.aclimit)
    e1:SetReset(RESET_PHASE+PHASE_END)
    Duel.RegisterEffect(e1,tp)
    Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
    end
    function cm.aclimit(e,re,tp)
    return not re:GetHandler():IsSetCard(0xc19)
    end
    function cm.filter(c)
    return c:IsType(TYPE_SPELL+TYPE_TRAP)
    end
    function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAttackPos,tp,0,LOCATION_MZONE,1,nil)
    or Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
    local g1=Duel.GetMatchingGroup(Card.IsAttackPos,tp,0,LOCATION_MZONE,nil)
    local g2=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
    g1:Merge(g2)
    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,g1:GetCount(),0,0)
    end
    function cm.desop(e,tp,eg,ep,ev,re,r,rp)
    local g1=Duel.GetMatchingGroup(Card.IsAttackPos,tp,0,LOCATION_MZONE,nil)
    local g2=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
    g1:Merge(g2)
    if g:GetCount()>0 then
    Duel.Destroy(g,REASON_EFFECT)
    end
    end
    expansions/script/c184000.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·U·P·Lair
    local m=184000
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.EnableDualAttribute(c)
    --spsummon proc
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetCode(EFFECT_SPSUMMON_PROC)
    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
    e0:SetRange(LOCATION_HAND)
    e0:SetCountLimit(1,m)
    e0:SetCondition(cm.spcon)
    e0:SetTarget(cm.sptg)
    e0:SetOperation(cm.spop)
    e0:SetValue(SUMMON_VALUE_SELF)
    c:RegisterEffect(e0)
    --remove
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_REMOVE)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m+1)
    e1:SetCost(cm.cost)
    e1:SetCondition(aux.IsDualState)
    e1:SetTarget(cm.rmtg)
    e1:SetOperation(cm.rmop)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --atk/def
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e3:SetRange(LOCATION_MZONE)
    e3:SetCode(EFFECT_UPDATE_ATTACK)
    e3:SetCondition(aux.IsDualState)
    e3:SetValue(cm.adval)
    c:RegisterEffect(e3)
    local e4=e3:Clone()
    e4:SetCode(EFFECT_UPDATE_DEFENSE)
    c:RegisterEffect(e4)
    --spsummon cost
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_SPSUMMON_COST)
    e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e5:SetCost(cm.spccost)
    e5:SetOperation(cm.spccop)
    c:RegisterEffect(e5)
    end
    function cm.spccost(e,c,tp)
    return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0
    end
    function cm.spccop(e,tp,eg,ep,ev,re,r,rp)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetReset(RESET_PHASE+PHASE_END)
    e1:SetTargetRange(1,0)
    e1:SetTarget(cm.splimit)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.spfilter(c)
    return c:IsReleasable()
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return Duel.IsExistingMatchingCard(cm.spfilter,c:GetControler(),LOCATION_ONFIELD,0,1,nil)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_ONFIELD,0,1,99,nil)
    if g then
    g:KeepAlive()
    e:SetLabelObject(g)
    return true
    else return false end
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
    local g=e:GetLabelObject()
    Duel.Release(g,REASON_COST)
    g:DeleteGroup()
    end
    function cm.cfilter(c)
    return ((c:IsSetCard(0x1c19) and c:IsType(TYPE_MONSTER)) or (c:IsSetCard(0xc19) and c:IsType(TYPE_SPELL+TYPE_TRAP))) and not c:IsCode(m) and c:IsAbleToGraveAsCost()
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0
    and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_DECK,0,1,1,nil)
    Duel.SendtoGrave(g,REASON_COST)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetReset(RESET_PHASE+PHASE_END)
    e1:SetTargetRange(1,0)
    e1:SetTarget(cm.splimit)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
    return not c:IsSetCard(0xc19)
    end
    function cm.rmfilter(c,tp)
    return c:IsFaceup() and c:IsAbleToRemove(tp)
    end
    function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
    local g=Duel.GetMatchingGroup(cm.rmfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
    if chk==0 then return g:GetCount()>0 end
    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
    end
    function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectMatchingCard(tp,cm.rmfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp)
    if g:GetCount()>0 then
    Duel.HintSelection(g)
    Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
    end
    end
    function cm.filter(c)
    return c:IsType(TYPE_MONSTER) and c:IsFaceup()
    end
    function cm.adval(e,c)
    return Duel.GetMatchingGroupCount(cm.filter,c:GetControler(),0,LOCATION_MZONE+LOCATION_GRAVE,c)*500
    end
    expansions/script/c184005.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·U·P
    local m=184005
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.EnableDualAttribute(c)
    --spsummon proc
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetCode(EFFECT_SPSUMMON_PROC)
    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
    e0:SetRange(LOCATION_HAND)
    e0:SetCountLimit(1,m)
    e0:SetCondition(cm.spcon)
    e0:SetTarget(cm.sptg)
    e0:SetOperation(cm.spop)
    e0:SetValue(SUMMON_VALUE_SELF)
    c:RegisterEffect(e0)
    --set
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1,m+1)
    e1:SetCost(cm.cost)
    e1:SetCondition(aux.IsDualState)
    e1:SetTarget(cm.sttg)
    e1:SetOperation(cm.stop)
    c:RegisterEffect(e1)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --pierce
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_PIERCE)
    e2:SetCondition(aux.IsDualState)
    c:RegisterEffect(e2)
    --spsummon cost
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_SPSUMMON_COST)
    e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e5:SetCost(cm.spccost)
    e5:SetOperation(cm.spccop)
    c:RegisterEffect(e5)
    end
    function cm.spccost(e,c,tp)
    return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0
    end
    function cm.spccop(e,tp,eg,ep,ev,re,r,rp)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetReset(RESET_PHASE+PHASE_END)
    e1:SetTargetRange(1,0)
    e1:SetTarget(cm.splimit)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.spfilter(c)
    return c:IsAbleToRemoveAsCost()
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    return Duel.IsExistingMatchingCard(cm.spfilter,c:GetControler(),LOCATION_ONFIELD,0,1,nil)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_ONFIELD,0,1,99,nil)
    if g then
    g:KeepAlive()
    e:SetLabelObject(g)
    return true
    else return false end
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
    local g=e:GetLabelObject()
    Duel.Remove(g,POS_FACEUP,REASON_COST)
    g:DeleteGroup()
    end
    function cm.cfilter(c)
    return ((c:IsSetCard(0x1c19) and c:IsType(TYPE_MONSTER)) or (c:IsSetCard(0xc19) and c:IsType(TYPE_SPELL+TYPE_TRAP))) and not c:IsCode(m) and c:IsAbleToRemoveAsCost()
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0
    and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_DECK,0,1,1,nil)
    Duel.Remove(g,POS_FACEUP,REASON_COST)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetReset(RESET_PHASE+PHASE_END)
    e1:SetTargetRange(1,0)
    e1:SetTarget(cm.splimit)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
    return not c:IsSetCard(0xc19)
    end
    function cm.stfilter(c)
    local seq=c:GetSequence()
    return seq<=4 and c:IsType(TYPE_MONSTER) and c:IsFaceup()
    end
    function cm.sttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.stfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
    end
    function cm.stop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,0))
    local mg=Duel.SelectMatchingCard(tp,cm.stfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
    local tc=mg:GetFirst()
    if tc:IsImmuneToEffect(e) and not tc:IsRelateToEffect(e) then return end
    if tc:IsControler(tp) then
    if tc then
    local zone=1<<tc:GetSequence()
    local oc=Duel.GetMatchingGroup(cm.seqfilter,tp,LOCATION_SZONE,0,nil,tc:GetSequence()):GetFirst()
    if oc then
    Duel.Destroy(oc,REASON_RULE)
    end
    if Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true,zone) then
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetCode(EFFECT_CHANGE_TYPE)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
    e1:SetValue(TYPE_TRAP+TYPE_CONTINUOUS)
    tc:RegisterEffect(e1)
    end
    end
    else
    if tc then
    local zone=1<<tc:GetSequence()
    local oc=Duel.GetMatchingGroup(cm.seqfilter,tp,0,LOCATION_SZONE,nil,tc:GetSequence()):GetFirst()
    if oc then
    Duel.Destroy(oc,REASON_RULE)
    end
    if Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true,zone) then
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetCode(EFFECT_CHANGE_TYPE)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
    e1:SetValue(TYPE_TRAP+TYPE_CONTINUOUS)
    tc:RegisterEffect(e1)
    end
    end
    end
    end
    function cm.seqfilter(c,seq)
    return c:GetSequence()==seq
    end
    expansions/script/c184010.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·U·P·Upward
    local m=184010
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.EnableDualAttribute(c)
    --spsummon proc
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetCode(EFFECT_SPSUMMON_PROC)
    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
    e0:SetRange(LOCATION_HAND)
    e0:SetCountLimit(1,m)
    e0:SetCondition(cm.spcon)
    e0:SetTarget(cm.sptg)
    e0:SetOperation(cm.spop)
    e0:SetValue(SUMMON_VALUE_SELF)
    c:RegisterEffect(e0)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --copy
    local e2=Effect.CreateEffect(c)
    e2:SetDescription(aux.Stringid(m,0))
    e2:SetType(EFFECT_TYPE_IGNITION)
    e2:SetRange(LOCATION_MZONE)
    e2:SetCountLimit(1,m+1)
    e2:SetCost(cm.cost)
    e2:SetCondition(aux.IsDualState)
    e2:SetTarget(cm.copytg)
    e2:SetOperation(cm.copyop)
    c:RegisterEffect(e2)
    --equip
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetCategory(CATEGORY_EQUIP)
    e1:SetType(EFFECT_TYPE_IGNITION)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetRange(LOCATION_MZONE)
    e1:SetCountLimit(1)
    e1:SetCondition(aux.IsDualState)
    e1:SetTarget(cm.eqtg)
    e1:SetOperation(cm.eqop)
    c:RegisterEffect(e1)
    --spsummon cost
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_SPSUMMON_COST)
    e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e5:SetCost(cm.spccost)
    e5:SetOperation(cm.spccop)
    c:RegisterEffect(e5)
    end
    function cm.spccost(e,c,tp)
    return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0
    end
    function cm.spccop(e,tp,eg,ep,ev,re,r,rp)
    local e2=Effect.CreateEffect(e:GetHandler())
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e2:SetReset(RESET_PHASE+PHASE_END)
    e2:SetTargetRange(1,0)
    e2:SetTarget(cm.splimit)
    Duel.RegisterEffect(e2,tp)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.spfilter(c)
    return c:IsAbleToHandAsCost()
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_ONFIELD,0,1,nil)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_ONFIELD,0,1,99,nil)
    if g then
    g:KeepAlive()
    e:SetLabelObject(g)
    return true
    else return false end
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
    local g=e:GetLabelObject()
    Duel.SendtoHand(g,tp,REASON_COST)
    g:DeleteGroup()
    end
    function cm.cfilter(c)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_MONSTER) and not c:IsCode(m) and c:IsAbleToGraveAsCost()
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    e:SetLabel(100)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    local e2=Effect.CreateEffect(e:GetHandler())
    e2:SetType(EFFECT_TYPE_FIELD)
    e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e2:SetReset(RESET_PHASE+PHASE_END)
    e2:SetTargetRange(1,0)
    e2:SetTarget(cm.splimit)
    Duel.RegisterEffect(e2,tp)
    end
    function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
    return not c:IsSetCard(0xc19)
    end
    function cm.copytg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    local c=e:GetHandler()
    if chk==0 then
    if e:GetLabel()~=100 then return false end
    e:SetLabel(0)
    return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_DECK,0,1,nil)
    end
    e:SetLabel(0)
    local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_DECK,0,1,1,nil)
    Duel.SendtoGrave(g,REASON_COST)
    Duel.SetTargetCard(g)
    end
    function cm.copyop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) then
    local code=tc:GetOriginalCode()
    c:CopyEffect(code,RESET_EVENT+RESETS_STANDARD,1)
    end
    end
    function cm.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAbleToChangeControler() end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
    and Duel.IsExistingTarget(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
    local g=Duel.SelectTarget(tp,Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,1,nil)
    Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
    end
    function cm.eqop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if tc:IsRelateToEffect(e) then
    if not Duel.Equip(tp,tc,c,false) then return end
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
    e1:SetCode(EFFECT_EQUIP_LIMIT)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetValue(cm.eqlimit)
    tc:RegisterEffect(e1)
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_EQUIP)
    e2:SetCode(EFFECT_UPDATE_ATTACK)
    e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    e2:SetValue(1000)
    tc:RegisterEffect(e2)
    tc:RegisterFlagEffect(6387204,RESET_EVENT+RESETS_STANDARD,0,0)
    end
    end
    function cm.eqlimit(e,c)
    return e:GetOwner()==c
    end
    expansions/script/c184015.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·U·P·Captor
    local m=184015
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    aux.EnableDualAttribute(c)
    --spsummon proc
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_FIELD)
    e0:SetCode(EFFECT_SPSUMMON_PROC)
    e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
    e0:SetRange(LOCATION_HAND)
    e0:SetCountLimit(1,m)
    e0:SetCondition(cm.spcon)
    e0:SetTarget(cm.sptg)
    e0:SetOperation(cm.spop)
    e0:SetValue(SUMMON_VALUE_SELF)
    c:RegisterEffect(e0)
    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
    --search
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,0))
    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
    e1:SetProperty(EFFECT_FLAG_DELAY)
    e1:SetCode(EVENT_SUMMON_SUCCESS)
    e1:SetCountLimit(1,m+1)
    e1:SetCost(cm.cost)
    e1:SetCondition(aux.IsDualState)
    e1:SetTarget(cm.settg)
    e1:SetOperation(cm.setop)
    c:RegisterEffect(e1)
    local e3=e1:Clone()
    e3:SetCode(EVENT_SPSUMMON_SUCCESS)
    c:RegisterEffect(e3)
    --effect gain
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e2:SetCode(EVENT_BE_MATERIAL)
    e2:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
    e2:SetCondition(cm.effcon)
    e2:SetOperation(cm.effop)
    c:RegisterEffect(e2)
    --spsummon cost
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_SINGLE)
    e5:SetCode(EFFECT_SPSUMMON_COST)
    e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
    e5:SetCost(cm.spccost)
    e5:SetOperation(cm.spccop)
    c:RegisterEffect(e5)
    end
    function cm.spccost(e,c,tp)
    return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0
    end
    function cm.spccop(e,tp,eg,ep,ev,re,r,rp)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetReset(RESET_PHASE+PHASE_END)
    e1:SetTargetRange(1,0)
    e1:SetTarget(cm.splimit)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.counterfilter(c)
    return c:IsSetCard(0xc19)
    end
    function cm.spfilter(c)
    return c:IsAbleToGraveAsCost()
    end
    function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
    return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_ONFIELD,0,1,nil)
    end
    function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
    local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_ONFIELD,0,1,99,nil)
    if g then
    g:KeepAlive()
    e:SetLabelObject(g)
    return true
    else return false end
    end
    function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
    local g=e:GetLabelObject()
    Duel.SendtoGrave(g,tp,REASON_COST)
    g:DeleteGroup()
    end
    function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
    c:RegisterFlagEffect(m,RESET_PHASE+PHASE_END,0,1,0)
    local e1=Effect.CreateEffect(e:GetHandler())
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
    e1:SetReset(RESET_PHASE+PHASE_END)
    e1:SetTargetRange(1,0)
    e1:SetTarget(cm.splimit)
    Duel.RegisterEffect(e1,tp)
    end
    function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
    return not c:IsSetCard(0xc19)
    end
    function cm.setfilter(c)
    return c:IsSetCard(0xc19) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
    end
    function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
    if chk==0 then return Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_DECK,0,1,nil) end
    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
    end
    function cm.setop(e,tp,eg,ep,ev,re,r,rp)
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
    local g=Duel.SelectMatchingCard(tp,cm.setfilter,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 cm.effcon(e,tp,eg,ep,ev,re,r,rp)
    return (r==REASON_SYNCHRO or r==REASON_FUSION or r==REASON_LINK or r==REASON_XYZ) and e:GetHandler():GetReasonCard():IsSetCard(0xc19)
    and e:GetHandler():GetFlagEffect(m)>0
    end
    function cm.filter1(c)
    return c:IsType(TYPE_XYZ) and c:GetOverlayCount()>0
    end
    function cm.filter2(c)
    return c:IsType(TYPE_MONSTER) and (c:IsAttackAbove(0) or c:IsDefenseAbove(0))
    end
    function cm.effop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local rc=c:GetReasonCard()
    local atk1=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,c):GetSum(Card.GetAttack)
    local atk3=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,c):GetSum(Card.GetDefense)
    local g2=Duel.GetMatchingGroup(cm.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
    local atk2=0
    if g2:GetCount()>0 then
    local tc2=g2:GetFirst()
    while tc2 do
    local cg=tc2:GetOverlayGroup()
    local sg=cg:Filter( cm.filter2,nil)
    if sg:GetCount()>0 then
    local tc3=sg:GetFirst()
    while tc3 do
    atk2=atk2+tc3:GetAttack()+tc3:GetDefense()
    tc3=sg:GetNext()
    end
    end
    tc2=g2:GetNext()
    end
    end
    local atk=atk1+atk2+atk3
    local e1=Effect.CreateEffect(c)
    e1:SetDescription(aux.Stringid(m,1))
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CLIENT_HINT+EFFECT_FLAG_CANNOT_DISABLE)
    e1:SetCode(EFFECT_UPDATE_ATTACK)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    e1:SetValue(atk)
    rc:RegisterEffect(e1,true)
    --immune
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetCode(EFFECT_IMMUNE_EFFECT)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CLIENT_HINT+EFFECT_FLAG_CANNOT_DISABLE)
    e3:SetRange(LOCATION_MZONE)
    e3:SetValue(cm.efilter)
    rc:RegisterEffect(e3,true)
    if not rc:IsType(TYPE_EFFECT) then
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetCode(EFFECT_ADD_TYPE)
    e2:SetValue(TYPE_EFFECT)
    e2:SetReset(RESET_EVENT+RESETS_STANDARD)
    rc:RegisterEffect(e2,true)
    end
    rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,1))
    end
    function cm.efilter(e,te)
    return not (te:GetOwner():IsSetCard(0xc19) and
    (te:GetCode()&EFFECT_SET_ATTACK~=0
    or te:GetCode()&EFFECT_SET_ATTACK_FINAL~=0
    or te:GetCode()&EFFECT_SET_BASE_ATTACK~=0
    or te:GetCode()&EFFECT_SET_BASE_ATTACK_FINAL~=0
    or te:GetCode()&EFFECT_SET_BATTLE_ATTACK~=0
    or te:GetCode()&EFFECT_UPDATE_ATTACK~=0))
    end
    expansions/script/c184100.lua deleted 100644 → 0
    View file @ f4a33404
    --M·A·L·U·P·Sabretooth
    local m=184100
    local cm=_G["c"..m]
    function cm.initial_effect(c)
    --fusion material
    aux.AddFusionProcFunFunRep(c,aux.FilterBoolFunction(Card.IsSetCard,0xc19),aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),1,99,true,true)
    aux.AddContactFusionProcedure(c,aux.FilterBoolFunction(Card.IsReleasable,REASON_SPSUMMON),LOCATION_MZONE,0,Duel.Release,REASON_SPSUMMON+REASON_MATERIAL)
    c:EnableReviveLimit()
    --spsummon condition
    local e0=Effect.CreateEffect(c)
    e0:SetType(EFFECT_TYPE_SINGLE)
    e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
    e0:SetCode(EFFECT_SPSUMMON_CONDITION)
    e0:SetValue(aux.fuslimit)
    c:RegisterEffect(e0)
    --multi
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
    e1:SetCode(EVENT_SPSUMMON_SUCCESS)
    e1:SetOperation(cm.attkop)
    c:RegisterEffect(e1)
    --immune
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_SINGLE)
    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e2:SetCode(EFFECT_IMMUNE_EFFECT)
    e2:SetRange(LOCATION_MZONE)
    e2:SetValue(cm.immval)
    c:RegisterEffect(e2)
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_SINGLE)
    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
    e3:SetCode(EFFECT_CANNOT_CHANGE_POS_E)
    e3:SetRange(LOCATION_MZONE)
    c:RegisterEffect(e3)
    --activate limit
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_FIELD)
    e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e4:SetCode(EFFECT_CANNOT_ACTIVATE)
    e4:SetRange(LOCATION_MZONE)
    e4:SetTargetRange(1,1)
    e4:SetValue(cm.actlimit)
    c:RegisterEffect(e4)
    --
    local e5=Effect.CreateEffect(c)
    e5:SetType(EFFECT_TYPE_QUICK_O)
    e5:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
    e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
    e5:SetRange(LOCATION_MZONE)
    e5:SetCondition(cm.atkcon)
    e5:SetCost(cm.atkcost)
    e5:SetOperation(cm.op)
    c:RegisterEffect(e5)
    end
    function cm.attkop(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetCode(EFFECT_EXTRA_ATTACK)
    e1:SetValue(c:GetMaterialCount()*2)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD)
    c:RegisterEffect(e1)
    c:SetTurnCounter(c:GetMaterialCount()*2)
    end
    function cm.immval(e,re)
    local rc=re:GetHandler()
    return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and re:GetActivateLocation()==LOCATION_MZONE
    and (rc:IsRelateToEffect(re) and rc:IsDefensePos() or not rc:IsRelateToEffect(re) and rc:IsPreviousPosition(POS_DEFENSE))
    end
    function cm.actlimit(e,re,tp)
    local rc=re:GetHandler()
    return re:IsActiveType(TYPE_MONSTER) and rc:IsDefensePos()
    end
    function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local bc=c:GetBattleTarget()
    return bc
    end
    function cm.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
    local c=e:GetHandler()
    if chk==0 then return c:GetFlagEffect(m)==0 end
    c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_DAMAGE_CAL,0,1)
    end
    function cm.op(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local atk=c:GetBaseAttack()
    local e1=Effect.CreateEffect(c)
    e1:SetType(EFFECT_TYPE_FIELD)
    e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
    e1:SetTargetRange(1,1)
    e1:SetReset(RESET_PHASE+PHASE_DAMAGE)
    Duel.RegisterEffect(e1,tp)
    Duel.SetLP(1-tp,Duel.GetLP(1-tp)-atk)
    end
    expansions/strings.conf
    View file @ 0f7e0bec
    ......@@ -392,6 +392,7 @@
    !setname 0x9dc2 驯兽师
    !setname 0xdc3 X抗体
    !setname 0xdc4 阿尔法兽
    !setname 0x3dc6 Legend-Arms
    !counter 0xdc0 神耀指示物
    !counter 0xdc1 辛指示物
    !counter 3dc1 神印指示物
    ......@@ -435,6 +436,7 @@
    #cm.SetCard_MLSG 米勒山谷
    #cm.SetCard_PPX_foundation 基金会
    #cm.SetCard_TSJ 铁三角
    #named_with_ThKingdWei 银幕（三国-魏）
    #副连_VOLIAN 984086774 173 0x260-0x26f
    !setname 0x268 Arcaea
    ......@@ -470,7 +472,13 @@
    !setname 0x6ee 忆炼
    !setname 0x66e6 纯白骑士
    !setname 0x66e8 玉馔
    !setname 0x56e9 妙聚星
    !setname 0x6f0 煌剑
    !setname 0xa6e9 白雪恋
    setname 0xc6e9 早乙女志乃
    !setname 0xa6ea 大厨精选
    !setname 0x96ea 灾祸魔女
    !setname 56e6 心阴
    #DefineSet(code,"LianXing") 恋星
    #setname="advency" 冒险遗产
    #setcard="Shinkansen" 新干线
    ......@@ -1130,6 +1138,7 @@
    !setname 0x3620 永夜抄
    !setname 0x6620 灵代
    !setname 0xa620 时光酒桌
    !setname 0xc620 奇术尊者
    !setname 0x626 黄昏
    !setname 0x3626 黄昏之骑士
    !setname 0x6629 伊兹尼亚
    ......@@ -1161,6 +1170,7 @@
    !setname 0x562e 圣兽装骑·鲨
    !setname 0x662e 圣兽装骑·蜂
    !setname 0x962e 圣兽装骑·骸
    #AddCodeList(60001179) 紫罗兰永恒花园卡名记述
    !counter 0x624 进化指示物
    !counter 0x625 吟唱指示物
    ......@@ -1213,11 +1223,13 @@
    !setname 0x6d1 世界猫咪联盟
    !setname 0x6de 千古食魂录
    !setname 0x6df 猫箱反转
    !setname 0x26df “星之眷族”|猫箱反转
    !counter 0x6d0 蝴蝶指示物
    !counter 0x6dd 触足指示物
    !counter 0x6dc 弦音指示物
    !counter 0x16de 像素化指示物
    !counter 0x16df 基因污染指示物
    !counter 0x16db 剧毒指示物
    #希尔薇 - 639 0x860-0x86f
    !setname 0x860 米诺陶诺斯
    ......@@ -1241,6 +1253,7 @@
    !setname 0x341a 深层幻夜
    !setname 0x541a 燃煤
    !setname 0x641a 神代丰
    !setname 0x1419 摩斯迪露姆
    #set_without_id 02
    #setname="Devildiocese" 魔军教廷
    #setname="VrAqua" 虚拟水神
    ......@@ -1588,7 +1601,9 @@
    !counter 0x3597 旧地狱
    #2987736314 阿塔 888 0x890-0x89f
    #等数理罪论修正字段
    !setname 0x8903 数理罪论
    !setname 0x898 深渊的呼唤VII
    #王道游老子 995602632 894 0x700-0x70f
    !setname 0xa701 XTale
    ......
    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