Commit 6f3e4aac authored by Tachibana's avatar Tachibana

emergency

parent d7d616dd
...@@ -5,7 +5,7 @@ stages: ...@@ -5,7 +5,7 @@ stages:
variables: variables:
GIT_DEPTH: "1" GIT_DEPTH: "1"
LAST_UPDATE_DATE: "2021.9.7" LAST_UPDATE_DATE: "2021.9.7"
CURRENT_UPDATE_DATE: "2021.9.21" CURRENT_UPDATE_DATE: "2021.9.22"
redtext: redtext:
stage: prepare stage: prepare
......
No preview for this file type
...@@ -133,6 +133,7 @@ ...@@ -133,6 +133,7 @@
10222035 1 --GGO 抛弃自卑 莲 10222035 1 --GGO 抛弃自卑 莲
10222045 1 --GGO 疯狂的杀戮 林鵙鹟 10222045 1 --GGO 疯狂的杀戮 林鵙鹟
#104 #104
10400014 0 --绝界剑·剑理阴阳
10401154 1 --梦之海 10401154 1 --梦之海
10401167 0 --毒草 10401167 0 --毒草
10401170 0 --复杂世界 10401170 0 --复杂世界
...@@ -478,6 +479,7 @@ ...@@ -478,6 +479,7 @@
16150017 0 --圣王命之大王具 16150017 0 --圣王命之大王具
16150019 1 --大王咒使 16150019 1 --大王咒使
16150020 0 --大王具 智慧的抱拥 16150020 0 --大王具 智慧的抱拥
16150029 0 --洋馆的怪人
16150049 0 --天命教令 天命统合 16150049 0 --天命教令 天命统合
16160004 1 --憎恶的狂战士 兰斯洛特 16160004 1 --憎恶的狂战士 兰斯洛特
16161010 0 --卡多克·泽姆露普斯 16161010 0 --卡多克·泽姆露普斯
......
expansions/pics/12043052.jpg

226 KB | W: | H:

expansions/pics/12043052.jpg

480 KB | W: | H:

expansions/pics/12043052.jpg
expansions/pics/12043052.jpg
expansions/pics/12043052.jpg
expansions/pics/12043052.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/12043061.jpg

228 KB | W: | H:

expansions/pics/12043061.jpg

506 KB | W: | H:

expansions/pics/12043061.jpg
expansions/pics/12043061.jpg
expansions/pics/12043061.jpg
expansions/pics/12043061.jpg
  • 2-up
  • Swipe
  • Onion skin
...@@ -72,11 +72,10 @@ function cm.sumfilter(c) ...@@ -72,11 +72,10 @@ function cm.sumfilter(c)
return c:IsSummonable(true,nil) and c:IsRace(RACE_SEASERPENT) return c:IsSummonable(true,nil) and c:IsRace(RACE_SEASERPENT)
end end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
local ct=Duel.GetMatchingGroupCount(cm.dfilter,tp,LOCATION_MZONE,0,nil) if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
if chk==0 then return Duel.IsPlayerCanDraw(tp,ct) end
Duel.SetTargetPlayer(tp) Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(ct) Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end end
function cm.thop(e,tp,eg,ep,ev,re,r,rp) function cm.thop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
......
...@@ -13,6 +13,7 @@ function cm.initial_effect(c) ...@@ -13,6 +13,7 @@ function cm.initial_effect(c)
e22:SetCategory(CATEGORY_SUMMON) e22:SetCategory(CATEGORY_SUMMON)
e22:SetType(EFFECT_TYPE_IGNITION) e22:SetType(EFFECT_TYPE_IGNITION)
e22:SetRange(LOCATION_HAND) e22:SetRange(LOCATION_HAND)
e22:SetCountLimit(1,m)
e22:SetCost(cm.cost1) e22:SetCost(cm.cost1)
e22:SetTarget(cm.sumtg) e22:SetTarget(cm.sumtg)
e22:SetOperation(cm.sumop) e22:SetOperation(cm.sumop)
......
--2pick Card List
local cc=13959994
local this=_G["c"..cc]
function this.initial_effect(c)
end
this.Main="1000360A5A6A7A8A9B72A3A4A8C400A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A4A5A8C600A1A2A3A4A5A6A8A9B19B20A1A2C801A6A7A8A9B10A2A4A5A6A7A9B20D3004A5A6A7A8B10A1A4A5A6A7B22A4D70003B10A1A2A4A5A7A8AA20A1A2AA3A4A5A6A7A9B100A1A2AA1A3A5A9B29C1001C101C201A2A3B11B21C301E8000A1A2A3A7A8B14A5B20A1A2A3A4A5A6A7B37A8D9001A2A3A4A5A6A7A8A9B10A5A8A9B20A1A2A3B30A1A2A3A4A5A6A7A9B40E108001A2A3A4A7B10E13067E50096E71001A2A3A4A5A6B12A3A4A5A6A8A9B20A3D4036B44A8A9B57B63A9F200010B20B80B90A9C110C212A3C520C655C866A7E12103E20000B11A2A3B21A2B31A2B41A2B51A2B61A2B71A2B82B92C102D1011A2A3B21A2B31B41D2013A4B23A4B34B44F400001A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7D1153A4A5A6A9B61A2A7A9B72A3A5A7A8A9B80A1A2A3A4F700003B30C201A9B24A5A6A7B34A5A6A7A9B40B70A1A2A4A5A6A8C318F900048B51A2A3A4D1000A1A2A3A4A5A6A7A8A9B10A2A3A5C111D2000A1A2A3A4A5A6A8B10A1D3000A1A2A3D4000A1A2A3A4A5A6A7A8A9B10A3A4A7A8B21A2A3A6A7A8A9B30A3A4A5A6A7D5000A1A2A3A4A5A6A7B10D6000A1A2A3A4A5A6B11A3A4D7000A1A2A3A4A5D8000A1A2A3A4A7A9B10A1D9000A1A2A4A5A6A7A8A9B10A1A4E10000A1A2A3A4A5A6A7A8B10A2D9000E20000A1A2A3A4A5A8E30000A1A2A3A4A5A6E40000A1A3E69988A9B92A4A5A8A9E70000A1A2A3A4A5A6A7A9B10A2A3E81040G110000A1A2A3A4A5A6AA10A1A2AA2A4A7A8A9B10A1A2A3A41A2A3AA51A2B6A98D1001A2A3A4A5A9B18B25A6A9AA31A2A6B41B50A6A7B90C201A2A3B21A2A3A4C3000A1A6A7A8A9B13AA27B34B91C105B23B33A5B71A5D401A2A3C5000A1A3A4A5A6A7A9B10A2A3A5A6AA21AB11D2101A2A3C201A2A3E20003A4A5B3A4A5A6A7A8A9B101AA1A2C310A1A2A3A4A5A6D3000A1A2A3A4A5A6A7A8B58A9C210A1A2A3A4A5A6A7A8A9B21A2A5D40001B1A2B101AA1A21B4A6A7A8A9B201A4B3A4A6B34A5C1001A2A4A5C101A3C201C701A2D5001C1400A1A2A3A4A5A6A7A8B11A2A3A4A5A6A7A8B20A1A2A3A4A5B31A2A3A4A5B55A7A8A9B61A2A3A4A5A6A7A8A9B70A1B89B90A3A4A5A7A8A9C500A2A5A6A7A8A9B10B21A2A3A4A5A6A8E9001E50001A2A3A4A6A7A8A9B11A2A4A6A7A8AA20A1A2A5A6A7A8B30A2A5A6A7A9B40A1A2B6B12A4A5A7A8D60001A2A4A5B11B21A3A5B41A3D1001A7A9B21A3A5A6E700001A2A3A4A5A6A7A8A9B10A1A7A8A9AA20A1B4A5B11A2A7A8D1001B12A3E800001A2A3A4A5A9B11A2A3A4A5A6B50A1A2A3A4A5A6A7A8A9B60A1A2A3A4A5A6A7E2001A2A3A5B51A3D4001A3A4A5B61A2A3B71A3E9001A21A2A3B3A4A5A6A7A8B14A6C1001A3D2018B20D7001C111A2A3A9B20F2001000A1A2A3A4A5A6A7A8A9B10A1A2A3A5A6A7A8A9D3000A1A2A4A6A7A8A9B13A4A5A8B20A1A2A3A9D4000A1A2A3A4A5A6A8B10A1A8B24D5000A1A2A3A4A5A6A7A8A9B14A8B20A1A2A3A8B38D6001A2A4A5A6A9B10A1A2A3B20A1A2D7000A1B10A1B20A1A2A5A6B30A1A2B41B99D8000A1A2A3A4A5A6A7B10A1A3A4A5A6B21A2A3A4A7A8A9B30A1A2D9008B12A3A4B32A3A4A5A9B40A2A3A4A5A7A8A9B50A6B60A7C100A1E10002A3A4A5A6A7B11A2A3A4A5A6B21A2A3A4A5A6A7B31A2A3A4A5A6A7A8D1000A1A2A3A4A5A7A8A9B10A5A6A7D3000A1A2A5A8A9B10A1A5B55D4000A1A2A3B11A2A3A4A5A6B40D5001A2A3A4A5A6D6000A1A2A3A5B20A1A2A3A4A5D7001A2A3A4A5A6B20D8000A1A2A3D9000A1A2A3A4B10A1B20A1A2A3A4B60E24000A1A2A3A4A5A6B10A1A2A3A4D5000A1A2A3A4A5A6A7A8A9D6000A1B10A1A2A3B20A1A2A3A4A5A6A7A8D7012D8000A1A2A3A4B14D9001A3A4B10A1A4A8A9B20A2B33A5A6B40A2A3B70A1A3C400E30000A1A2A3A4A5A6A7A8A9B20D1001A2A3A4A5A6D2000A1A2A3A4B10A1A2A3A5D3000A1A2A6B10A1A2A3A5A6D4000A1A2A3A4A5A6D5000A1A2A3A4A8B20A1A2A3A4D6000A1A2A4B10A1D7000A1A2A3A4A5A6A7A8B15B20A1A2A3A4A5B50A1A2B60A2D8000A1A2A3A4A5A6D9000A1A2A3A4A5A6A7A8A9E40001A2A3A4A5A6A7A8A9B60B70D1000A4A6A7B10D2000B11A2A3B20A1A2A3A4A5A6B40A1A2A4B50D3000A1A2B10A1A2A3A4A5A6B20A1A2A3A4D4000A2B11A2A3A4A5A6A7A8A9B20A1A2A3B30A1A2A3A4B40A1A2A3A4B60B80A1A2A3A4A5A6A7A8D5000B10A1A2A3A4A5A6A7B20A1B40A1A5A8B50A1D7000A1A3A5B50A1A2A3A4A5D8001A2A3A4A5A6A7A8A9B10A5A8B20A1A2A3A4A5A6A7B30A2A3B40A8B50A1A2E50000A1A2A3A4A5A6B10A1A2D1010A1A2A3B30A1D3000A1A2A3A4A5A6A8D4001A2A3A4B10D6000A1A3A4A5A6A7A8A9B10A1A2A3A4A5D8000A1A2A3B11A2A3B30D9000A1A2B20B30E60010A5B30D1000A1A2A3A8B20A1B30A1D2001A2A3A4A5B10A1A2A3A5B20B30A3B40A1A3B50A3B60D3001A2A3A4A5B10A1B50B60A1D4000A1A2A3A4D5000A1A3B11A2A3A4B50A1A2A3A4B60A1A2A3D6000A1A2A3B20A1A2A3D8001A2A3A4A5A6B10A1E70001A2A3A4A5B10B20A2A3B50E80001A2B10A1A2A3A4A5A7B20A1B50A1A2A4D1001A2A3D3001A2A3A4A5A8B10A1A2A3A4A5B80A1A2A5B90D4000A1A2A3A4A5A8D5001A2A3A4B10A1F100002A3E10009E29233E53292F200000A1A2A3A4F300000A1A2A3A4A5A8A9B14B25C105B12C205A9D1112C600B66F800001A2A3A4A5A7B15D8001A2A3A4B11A2A3C226A8B67A9C826E47001G3000000A3A6A9B12A5C500A9D1000B15A8B21A4A7B30A3A6D2000A3B18B21A4D3000A3B39F959980A1A2A3B95A8G4000000A1A2A3A5A6A8B10A1A2A3A4A5A8A9B21A2A3A4A5A7A8A9B30A1A2A3A5A6A7B55A6A7A8A9B66B97A8A9C100A1A2A3A4A5A6A7A8A9B10B30A1A2A3A4A9B40A1A5A6A7A8A9B50A1A2A3C301A2A3A4A5B51A2A3A4A5A6A7A8A9B60A1A2A3A4A5A6A7A8A9B70A2B80A1A2A3A4A5A9B90A1A2A3A4A5A6C451A2A3A4A5A6A7A8A9B60A1B74C501A2A3A4A5A6A9B10A1A2B31A2A3A4A5A6A7B56A7A8A9B60A1A2A3C601A2A4A5A7B57C781A2A3A4A5A6A7A8A9D1041A2A3A4A5A6A7A8A9B50E10001A2B46B58B75B81A2B96A9C106A8B10B20B45A7A8B50B61C210A2A7B36A8B42A4B55A7E60001A2A3A4A5A7A8A9B10A1A4A5A6A8A9F140007B13D1001A2A3A4A5A6A7A8F370001A7B10A3A6A9B22A5A8B31F700001A2A3A4A5B22A3A4A5A6A7A8A9B50C102A3A4A5A7A8B20D1000D3000F800101A2A3A4A5A6A7A8B10A1A2B26B41B72A7A8A9B80A1A4A6B91A9C219D1271A2C729B31A2A3A4A5A6A7A8A9B40A1A3A4A5A6A7A9B50A2A6A8A9B60A1A2A3A4A5A6A7C800G5000041A2A3A6A7B50A1A2B60A4A5A6A7C113A4B25B61A2A3B71C240A1A2A3A4A5B51A2A3C320A1A2A3A4B30A1A2B51A2A3A4A8B61A2A4C400A1A2A9B10A1B90A1C541A2A3A7A8A9B50A5C600B10B20A1A2A3B61A6A7A8C720A2A4A6A8B40A2A4A6A8D13B2000A1B10A1A2B20A1F415147A8A9B50A1A2A3A4A5A6A7A8A9B60A1A4A5A6A7A8A9B71A2A3A4A5A6A7F873611A2A3A4A5A6A7A8B20A1B34A5A6A7A8A9B40A2A3A5A7A8A9B50G6001002A3A4A5A7B10A1A2A4A5A6E63001A2A3A5A6A7A8B10A2A3A4B31E80001A2A3A4A5A6A7B11A2A3A5A6A8B20A3A4A5A6A8B32A3A4A5F101075A8A9B80A1C105A7A9B15B25B49B50A1A3A7B65B73A5A6A7A8A9B80A1A2A3A4D2000A1A2A3A4A5A6B10A1A2D4200A2A4A6A8B10A2A4A6A8B20A4A6A8B30A2A4B40A2C400A2A4A6A8B10A2A6C600A2A4A6A8B10A2A4A6A8B22A4D5000A4A8B10A6B20A6B30A2A4A6C100A2A4A6B10D7100A1A2A3A4A5A9B10A1A2A3A4A7D8100E30002A6A8A9B10A1E50001A2A3A4A5A6A7A8B10A1A2A4A5A6A9B20A1A2A3E60001A3A4A5A6A7D1000A1B10E70000A2F200000A1A4A5A6A7A8F400000A1A2A3A4A6A7A8A9B10A1A2A4A5A8A9B21A2A3A4A5A6B30A2A3A5A6A9B40A1A5A6A7A8A9B50A1A2A4A5A6A7A8A9B60B71A2A3A7A8A9B82A3A4G70002A3A4A5A7A8A9B10A1C10000A1A2A3A4A5A6A7A8A9E20000B10B20B40B50B60B70B80B90C100B10B20C210B20B30B40C410D9000A1B10C230E30600A1D1010B20B30B40B50B70B80B90C110B20B30D3000D5010B20A1A2A3B30B40B50C100A1B20B90C200B10B20C310B20C410A1B20B30B40B50B80B90C500B10B20B30B40B50B60B70E55000B10B20B30B50E60810B20B30B40B50B60B70A1A2A3B80A1A2A3D1030B80C120A1B50B60B70A1B80B90C200B10A1A2A3B20B30B70B80C310B20A1B40B50A1B60B70B80B90C400B20A1B30B40B50B60B80B90C500C610B20B30B50C800B10B20G8001002A3A4A5A9B10A1D3001A2A3A4A5A6D4001A2A3A5A6A7A9B12A5D5001A2A3A4A5A6A7A8A9B10A1A2A3A4A5D6001A2A3A4A5A8A9B10A1A2D7001A2A3A4A5B11A2A3A4A5A6D8001A2A3A4A9B10A1A2E10001A2A3A4A7D6001A2A3A4A5A6A7A8A9B10A1A2A3A8A9B20A1A2F713102A3A4A5A6A7A8A9E34600A1A2A3A4A5A6A7A8A9B10A1A2A3A4G90001A2A3A4A5A6A7A8A9B10A1D500000A1A4A5A6A7A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A6A7B30A1A2A3A4A7A9B40A1A2C150B60H20000000A2A3A4A5A6A7A8A9B10A1A2A3A4A6A7B50A1A2A3A4A5A7A9B60A1A2A3A4A5A6A8A9B70A1A3A4C100A1A2A3A4A5A6A7A8A9B10A5A6A7A9B20A1A2A3B62A3A4A5C201A2F100000B37C200A2A4A6A8B23A5A7A9B33A5A6A7A8A9B40C300A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7A8A9B40A1A2A3A4A5A6A7A8A9B50A1A2A3A4A5B97C417A9B21A3A5A7A9B31F200000A1A2A3A4A5A6A7A8A9B10G1400040A1A2A3A4A5A6A7A8A9B51A2A3A4E10100A1A2B30A1A2A3A4A5A6B40A1A6F520095A6C101A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7A8A9B40A1A2A3A4A5A6A7A8A9B50A1A2A3A4A5A6B61A2A3A4A5A6A7A8A9B70A6A7A8A9B80A1A4A5A6A7A8A9B90A1A2A3A4A5A6C239B40A1A2A3A4A5A6A7A8A9B50G2000230B40B50B60B70B80B90C800F100101A3A5A7A9B11A3A5A7A9B21A3B31F200001A2A3D1001A2A3C101A2C201D2001A2A3A4A5C101A2C201E30001A2A3A4A5A6A7A8D1001D2001C101E80001A2A3A4A5A6A7A9B10A1D1001C301D2001F600001A3A5A6A7A8A9B10A1A3A5A6B26A7A8A9B30A3C101A2A3A4A5A6B13A4A5A6A7A8C201A2A4A6A7A9B11A8A9B21A2G3000300A1A2A6A7B10A1A2A3A4A5A6A7A8D4001A2A3A4A5A6A7A8A9B10A9B30A1A2A3A4B50G4300001A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7B21B31A2A3A4A5B80A2A4A6A8A9B96E10020F562456A7B60A2A5A6A8B70A1A3A5A9B80A1A3A4A5A6G6800000A1A2A3A4D1000A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7D5001A5A7A8A9B10A1A3A5A6A7A8D6000A1A2A3A4A5A6A7A8A9B10A1A2A3A4B21A2A3A4A8A9B30A3A4A5B71A2A3A4A5D7000A2A6A7A8A9B11A2A3A9B20A1A2A3A9B30A9B40A1D8001A2A3A4A6A7A9B11A2E12001A3A4B15A6A7A8A9B20D8000A1A2A3A4A5A7A9B10A2A5A6A7A9B20A2A3A5A6A7A8A9B30A2A5A6A8B40B71A2A3A4A5A6D9007A8A9B10A1A2A3A4A5A6A7A8A9B21A2A3A4A5A6A8E21000A1A2A4A5A6A7A8A9B10A2A6A7A8A9B21A2A3A4A5A6D4000A1A2A3A4A5A6A7B10G8300000A1A2A3A4A5A6A7A8A9B10A1A2D2003D3001A3A4A6A7E15003A5A7A8A9B10A1D6000A1A2A3A5A7A9B12D7000A1A2A6A7A8D8001A2A3A4A5A9D9000A1A3A4A7A8B10E20000A1A2A3D1000A2A3A4A5A6D2001A2D6000A1A2A3G9065501A2B72A4A6A7A8A9B82A6A8A9B90A1A8C600A1A2A3A4A8A9B11A2A3A4H30000200B20B31A6B40C450B60C500B10D5000A5B10B20B30E99900F553000A1A3A9B10A1A2C101A2A3A4A5A6A8A9C201A3A5A7A9B11A3A4D6001A2A3A4A5B11A2C807A8B20D8001A2A3A4A5A6A8A9B11A3F700005A6A7A8B10A1A2A3A4A5A6B22A3A5A6A7A8A9B30A1A2A4A5A6A8A9B40A1A2A3A4G1300001A2A3A4A6A9B11A2A3A5A6G2828001A2F904921A2A3A4A5B31A2A3A4E12371A2A6A7A8A9B80A1G3200001A2A3A4A5A8B12A4A5B50A2A3A8A9B60A1A2A3A4A5A6A7A8A9B70A1C100A1A2A3A4A6A7B11A2C251A2A3A4A5A6A7A8A9B61F300150A1A2A3A4A6A7A8C200A1A2A3A4A5A6A7C810E10001A2A3A4A6A7A8A9B15A6A7A8A9B23A4A5A8C100A1A2A3A4B50A1A2A3A4A5A6A7C200A1A3A4A5A7B14A5A6B50A1A2A3A4A5A6C300A2A3A5A6A7A9B12B50A1B75C501A2A3A4A5A6A9B10C600A1A2A3A4A6A7E30001A2A3A4A5A6A7A8B15A9B20A1A2A3A4A5A6A7A8A9B30A1A2A4A8B45A6A7A8B50A2A3A5A7A8B61A3A4A5A6A7A8B70A1A4A5A6A8A9B80A2A4A7A8A9B90A1A4C100B50A2A3A5A6A7A8A9B60A3A4C201A2A4A5B11A2A6A7B21A2C301A2A3A4A5A6B23B50C400A1A2A3A4A5A6A7A8A9B11A2C501A2A3A4A9B12C601A2D1100A1A2A3A4A5B10A1C354C551A2A3A4A5A6A8B61A2A3D4568C650A9B69B72D9001A2A7A9B11A3B31A3B41A3E40001A2A3A4A5A6A7A8B13A4E50001A2A4A5A6B13A4A5A6A7A8A9D1001A3A4E74560A1A2A3A4A6A7F400001A2A3A4A5B17A8A9B37C100A1A2A3A4A5A6A7A8A9B10A1A2A3A4A6A7A8A9B20A7C200A1A2A3A4A5B10B22B54A5A6A7A8A9C300A1A2B10A1A2B20A2B50A1A2A3A4A5B60A1A2A3C401A2A4A5B13A5B20A1A2A3A4A7A8A9B30A1A3B50A1A2A3A4A6A7A8A9B60A1A2A4B70A1A2A3A4A5C501A2A3A4A5A6A7A8B19B20B50A1A2A4A5A6C601A2A3A4A5A6B51A2A3A4A5A6A7C701A2A3A4A5B11B51A2A3A4A5A6A7A8A9B60C801A2A3A4A5A6A7A8B50A1A2A3A4A5B60C900A1A2A3A4A5B51A2A3A4A5A6A7D1001A2A3A4A5B50A1A2A3A4A5A6A7A8C200A1A2A3A4C301A2A3A4A5A6B10A2A4A5A6A7A8B20A1A2C401A2A3A4A5A6A7A8A9B10A1B50C601A2A3A4A5B25A6A7A8A9B30B50A1A2A3A4B74A5A6A7A8A9B80A1A2A3A4A5D3500A1A2A3A4A5A6A7A8A9B10A2A3B20A1A2A3A4A5A6A7A8A9B30A1D5001A2A3A4A5A6A7A8A9F500001A2A3A4A5B11A2B20B50C100A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8B20A1A2A3C200A1A2A3A4A6A7A8A9B10A3A6C301A2A3A4A6C400A1A2A3A4A5A6C501A2A3B10B33A4C801A2A3A4A9B10A1A2C911B21B55B81A2A8D1000A1A2A7B11A6A7B24B77C201A3A6B50A2A4B60C301A2A3A4A5A6B10A1C401A2A3A4A5A6B31A2A3B41A2D2001A2A3A5A6A7A8B10A1A2A3A4A5A7B22A3A6C301A2A3B11A4C400A1A2A3A4A5B11A2A3A4C501A3A5A7A9B11C601A2A3A4A5A7A8A9B10A1A2A3C701A5A7A9D3200A1A2A3A5F700000A1A2A3A7A8A9B10A1A2A3A6B20A2A4A9B30A4A5A7A8A9B40A1A2A3A4A5A6A7A8A9B50A2A3A4A5A6A7A8A9B60A1A2A3A4A5A6A7A8A9B70A1A2A3A4A5A6A7A8A9B80A1A8A9B90A1A2A3A4A5A6A7A8A9C100A1A2A3A6B20A1A2A3A4A5A6A7A8B31A3A5A6A8A9B41A2A3A4A5A7B70A4A5A6A7A8B80A1A6A7A9B90A1A2A3A5A6A8A9C201A2A4A5A6A7A8A9B10A1C300A1A2A3A4A5A6A9B14A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A8A9B40A1A2A3B62A5B79B80A3A9B99C400A1A3A4A5A6A7A8A9B11A4A5B21A2A3A4A5A6C501A2A3A4C650A1A2A3A4A5A6A7A8A9C701A2A3A4A5A6B13A4A5A6A7A8A9B20A1A2A3A4A5A6A7B32A4A5A6A8A9B40A1A2A3A4A5A6A7A8A9B50A1A2A4A5A6A7A8A9B60A1A2A3A4A5A6A7A8A9B78A9B80A1A2A3B92A3A4C900A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A6B42A4A5A6A7B90A1A2A3A4A5A6A7A8D1003A4A5A6A7A8B10A1A2A3A4A5A6B21A2A3B66A7A8A9B70A3A4A5A6A7A8A9B80A1C120A1C315A6A7A8A9B20A1A2A5A6A7A8A9B30A1A5A6A7A8A9B40A1A2A3A4A5B59B60A1A2A3A5A7A8A9B70A1A2A3A4A5A7A8B95A7A8C400A1A2A4A5A6A7A8B10A1A2A5A6A7B21A2A3A4A5A6A7A8B30A1A2A3A4A5A6E10901A2A3A4A5A6A7A9B10A3B20A1A4D1004A5A6A7A8B10C101A6A7A8A9B10A2C401A3A4A5A6A8A9B10C501A2A3A4A5A6A7C601A3C701A2A4G4501310A1G5100103A5A9B23A5B31A3A5A9B41A3F400101A3A5A7G606005A8B10F7564005A6A7A8A9B10A4A5A6A7A8A9B20A3A4A5B31A7A9B42A7A8B51A4A6A7C200A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7C305A8A9B14A7A8B20A3A5A6A9B35A6B41A2A3A8A9B54A5C401A2A3A4A5A6A7A8A9B10A1A2A8A9B20A2A5A6A8B51A2A3A4A5A6C504A5A6A7A8A9B10A1A2A3A4A5A7A8B21A2A3A6A7A8A9B31A4A5A6B41A2A3A4A5A9B51A2A4A5A9B63A5A7A9B70A1C608A9B10A1A2A3A4A5C702B65B77C809B10A1A2A3A4A5A6A7A8A9B20A1A2A5A8A9B30A2A3A4A5A7A8A9B40A1A5A6A7A8A9B52A3C901A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8B20A1F900001A2A3A4A5A6A7B20A9B92A3A4A5A6A7A8A9C199G9100101B11B21B31B41B51B61B71B81B91C201B11B21H40006762A3C826A7A8A9B73A5A7A9B81A2A9B90D8450A5B65C541A2A4A5A6A9B50A1A2A3A4A5A6A8A9B60A1A2A3C609B12B26B30B41A3A6A7A8A9B50A5A6B74A7B80A3A8B94A7C721A5B34A6C809B11B25B74A7D9014A5C154A8B60A2A4A6A8B70A8B81A4A7B90A3A6C207A8B11A3B36A7A8B40A1A5C322A7B86C401C510A2A6B20A4B59B60B83A5A7A9B91A3C625A7B31A3A5A7B69C732A4A6A8B40A4A8B52C889B90A1A2A7A9C901A3A5A7A9B26A8B30A2A8B42A4G200110E10001A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6B21A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A9B42A3A5A6A7A8A9B51C108A9B10B51A2A3A4A5A6A9B60A1A2A3A4A5D2009B14A7A8A9C201A2A3A4A5A6A7A8C300A1A2A3A4A5A6A7A8A9B11A2A3A4A5A6A7A8A9B20A1A3A4A5A6A7A8A9B30B41A4E31000A1A2A3A4A5A6A7A8B10A1A2A5B21A2A9B30E41001A2A3A4B10A1F4000001A2A3A4A5A7A8A9B11A2A5A7A8A9C100A1A2D1003A4A5A6A7A8A9B10A3A4A5A6A7A8G5745901A2A3A4A5A6A7A8A9B10B21A2A3A4A5A6A7A8D6801A2A3A4A5A6A7A8A9B10A1A2A8A9B51A2A3A4A5A6A7A8A9B64A5A6A8B70A1A3C902E99901G6270000A1A2A3F564088G7500000A1A3A5A7A9B11A3A5B25A8B30A1A3C501D9999E10001A4A7B10A3A6B22A5A8B32A5A8B41A4A6B50B88B95A6A7A8A9C100C201A3A5A7A9B11A3A5A7A9B29B39B41A3A5A7B50B65A6A9B73C303A7C402D1101A2C919E20013E30021A2A6A7B31A2A5B40A2A4A5A8B50B61A2C134A6A8B40A3A4A5A7B51A3A7A9B61E50003A4A5A6A7A8D1100A2A3A7B11A5B20A4D2431D4018C352E70003D1269D7900A2A4A6B10A4A8D8901A3A4A9B12A4A5A6B22A6B30A2A6B99D9901E80003C345E91001A2A3A4A5A6A7A8A9B10D8771A6H50006660D8300F218101A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7A8A9B40A9B50C201A2A3A4A5A6A7A8A9B10B20A1A2A3A4C305B10A5B20A5B30A5B40A5B50A5B60B70B80C480C505B10A5B20A5B30B75B80A5B90A5A9C605B10A5B20A5B30A5B75B80A5B90E20105B35B40D1105B10A5B20A5B30A5C200A5B10A5B20A5B30C310A5B20G2500000D1000A1A2A3A4D2000D3000D4000E20000A1A2A3A4A5A6B10A1A2A3E80001A3G3701001A2A4A5A6A7A8B10A1A2A3A4A6A9B20A1A2A3A4A7B30D3001A2A3A4A5A6A7A8B13D7001A2A3A4A5A7A8A9B13A4A5E11001A2A3A4A9B10A1A2A3A4E98001A2A3D9001A2A3A4A5B12A6A8A9B20A1B32A3A5A6A7A8A9B40A3A7A8B52A3G7300000A1A2A3A4A5A6A7A8B16A7A8B21A4A6E20001A2A3B11A2E30001A2A3A4A5A6B10A1A2A3G800031G60000005D2001A2A3A6A7F150501A2A3A4A5A6A7A8A9B18B25B33A4B40A5A7A8A9B50A1C601A2A3A4A5A6A7A8A9B41A2B98C721A2A3A4A6B98C801A2A3A4A5A6B10A1A2A3A5A7A9B22C901A2A3A4A5A6B31A2A3A4A6D1001A2A3A4A5A6B31A2A3A4C101A2A3A4A5A6A7A8B96A7A8A9C201A2A3A4A5A6B96A7A8A9C301A2A3A4A5B51A2A3A4A7C401A2A3A4A5B21A2A3C501A4B51A2A3A4C601A2A3A4A5A6B21A2A3A4C701A3A4A5A6A7A8A9B10A1B61A2A3A4A5C901A3A4A5A6A7A8A9B10D2001A2A3A4A5A9B10A1A2A3A4A5A6A7C301A2A3A4A5A6B21A2A3C601A2A3A4B10A1C701A2C811D9901A2A3A4A5A9B10A1A2A4A5A6A9B23A4A5A7B32A6A9B42A3A4G1000000A1A2A3A4A5A6B10A1B30A1A2G2200001A2A3A4A5B23A4B33B40B54D1001D2019E10001A2A3A4G4300001A2A3A4A5A6A7A9B11A3A5A6A7A8A9B20A1A7F800000B16B42A6A7A8A9B56B60A1A2A3A4A5A6A7A8B74B83A5G5000000B64A5D1001A3A4A5A8B10A1A2A3A4A6A7A8A9B20A2A3A4A5A9B30A2A3A4A5E10001A2A3A4A5A6A7A8A9B10A1A2A3A4A5A7B20B32A4A6A8B40A8B51A9B60A2A5A9B77A8A9B80A1A2A3A6A7A8A9B90A1A2A3A4A5A9C105A7A8B10A1A2A4A8A9B20A1A2A4A5A6A7A9B30A1C201A2A3A4A5A6A7A8A9B10A1A2C314A5A6C501A2A4A6A8B10A9B20A1A2A4A6A8B30A2B46A7A8A9B52A6A8A9B61A2A4B77A8A9B80A1A2A3A5A6A7D1001A2A3A4A5A6A7A8A9B22A6E20001A2A3A4A5A6A7A8B10A1A2A3A9B20A1A2A3A4A5A6B44A5A6A7A8A9B51A2A3A4A5A6A7A8A9B60A4A5A6A7A8A9B70A1A2A9B80A2A4A6A8B90A5A6A7A8A9C100A1A2A3A4A5A7A8A9B10A1A2A3A5A7A9B32A3A4A5A6A7A8A9B40A1A2A3A4A5A6B51A2A3A4A5A6A7A8A9B60A1A2A8A9B70A1A3A5A7A8A9B80A1A2A6A8A9B90A1A2A3A4C210A1A2A3A4A5A6B22A3A4A5A9B30A1A2A4A5A7A9B41A2A3A4A5A6A7A8A9B50A3E30006A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A7A8A9B33A4A5A6A7A8A9B40A1A2A3A4A5A6A7A8A9B50A1A2A3A4A5A6A7A8B69B70A1A2A3A4A5A6A7A8A9B80A6A7A8A9B90C108A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4D1001A3A5A7A9B11A3A4A5E40001A2A3A4A5A6A7A8B18A9B20A1A2A3A4A5A7A8A9B30A1A2A4A8B40A3A4A5A6A8B50A1E50001A2A3A4A5A6A7A8A9B10A1A3A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7A8A9B40A1A2A3A4A5A6A7A9B51A3A5A7A9B65A7A8A9B70A1A3A5A7B91A2A3A4A5A6A7A9C101A2A4A5B13A4A5A6A7A8A9B20A1A3A5A7A9B31A9B41A2A3A4A5A6A7A8A9B51A3A5A7A9B76A7A8A9B81A3A5A7A9B91A3A5A7A9C211A2A3A4A5A6A7A8A9B20A1B31A2A3A4A5A8B41A4A7B50B63D9999E60001A2A3A4A5A6B13A4A5A6A7A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7A9B40A1A2A3A4A5A6A7A8A9B50A1A2A3A4A5A6A7A9B60A2E70009B10A1D1001A2A3A4A5A6B12A5A8B20A7B30A1A2A7B40A1A2A3A4A6A7A9B50A1A2A3A4A5A6A7A8A9B60A1A2A3A4A6A7A8A9B70A1A2A3A4A5A6B83A4A7A8A9B92A3A8A9C100A1A2A5A6A7A8A9B10B58A9D2000A1A2A3A4A5A6A7A8A9B10A1A2A3A4A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A2A3A4A5A6A7A8A9B40A1A2A3A4A5A6A8A9B50A1A2A3A4A5A6A7A8A9B60A1A2D3001D4000E80011A2A4A6B21B42A3A5A6A7A8A9B50A1A2A4A5A6A7A8E90001A3A5A7A9B11A3A5A7A9B21A3A5B58A9B61A2A3A4A5A6A7A8A9B70A1A2A3G6560000A1A2F612323A7A8D9901A2A3A4A5A6B13A4A5A6A7A8A9E77701A2A3A4A5A8A9B10A1A2A3A4D8901A2A3A4A5A6A7A8B16A7A8A9B20A2F911000A1A2A3A4D2000A3D3801A6A9B10A5A6A8B20A2D5001A2A3A4A5A8A9B10A1A2A3A4A5A7A8B23A5A7A8A9B30A2G700000A1A2A4A5A7A9B11B25A7A8B30A1A2A3A4A6A7A9E200000A1A5A6A8A9B11A6A7A8A9B21A2A3A5A6A7B30A3A6A9G9601001A2A3E90001A2A3A4A5A6D1901D6006A7A8A9B12C601C906B10A3A5A6A7A9B20B31A3A4A5A6A7A8B41A2A3A4A7A8B51A2A3A4A5A6A7A8A9B60A1A3H70700001A2A3A4A5A6A7A8A9B10A1A2A3A4A5G1000106A7A8A9B10A9B20E200A1A2A3A4A5A8B25A6A7A8A9B31A2A3A5A6A7A8A9B45D100000A1A3B15A7A9B20A1A2A7A8B31A2A3A5A7F400001A2A4A5A6A7B13A4A5A6A7A8A9B20A1A3A5A6A7A9B32A3A4A5A6A7A9B41A4A7A9B52A3A4A5A6A7D2000G2402001A4A7D4101A3A7A9B19B21A3A5A7A9B31A3A5D6001A3A7B13A5A7B21A3A5A7B39B51A3A5B63D9000A5B10A5B20A5B30A5B50A5B60A5B70A5B80A5B90C135B40B50A5B60A5B70A5B80A5C200E10060B70B80B90C180C220B30B40C380C420B30B40B50B60C610B40B50B60B70B80C700B10B20B60B70D1010B20B30B40B50B60B70B80B90C100B10B20C210B20B30B40B50B60B70B80B90C300B10B30B40B60B80C400B20B30B50B70C520B30A1B50B60B70B90C600B10B20B30C730A1B40B50B60B70D2110B20B30B50B60B70B80B90C200B10B20B30B40B50B60C310B30B50C440B50B60E99000B10F900000A1A2A3A5E79200A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8B20A1A2A3A4A5A6A7G3205001A2A3A4A5B10A1A2A3A4G5640000B50A1A2A3A4A6A7D1000A1A2A3A4A5A6D6000A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5B20A1A2A3A7A8C131A2A7A8B50A1A2A3A4A5A6A7A8A9B64A5A6A8A9B70A4A5A6A9B80A1A2A3A6A7A8A9B90A1A3A4A7A8A9C200A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5B50A1A2A3A4A5A7A8A9B60A1A2A3A4A5A6A7A8A9B70C300A1A2A3A4A6A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A8A9B30A1A2A3C401A2A3A5A6A8B10A2A3A5A6A8B20A2A3A4A5B51A2A4A5A6A9C507B10A5B21B39B40A1A2A3A4A6A7A9B51A2A3B60A1A2C600A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7B21A7A8C700A1A5A6A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5C801B50A1A3C900A1A2A3A5A6A7B10A3A4A5B50A1A3A4A5A7A8A9B60A1A3A4A5A7A8A9B70A1G6121001A2A3A4A5B11A2A3A4A5B33A4A5A6A7A8A9B40A2A3A4A5A6A7A8A9B52A3A4G7700000C1A2A341BA4A5A6A7A8B2002A3A4A5A7A8A9B10A1D5263A4D7002A3A6A7B10A1A4A9B22A4A5A6A7A8B31A7B44A5A7A8B52A7B66A7A8A9B80C701A2A3A4A5A6A7D9000A1A2A3A4A5A6A7A8A9E25300A1A2A3A4A5A6A7A8A9B10D9300E32113E57301A2E65001A2A3A4A5A6A7A8B10A1B20A1B30A1B40A1B50A1E84203H81000000A1A2A3A4A5A6D1016D2000A1A3A4A5A6A7A8B16A8B80A1A2A3A4A5A6A7D3000A1A2A3A4A5A6A7A8B13A4A5A6A7A8B21A3A4A5A6A7A8B31A2A4A5C100D4000A1A2A3A4A5A6A7A8A9D5000A2A3A4A5A6A7B11A2A6A8A9B20A1A2A3A4A6A8A9B71A2A4A5A6A7A8A9D6010B90A1A2D7006B13A4A7B90A1A2D8001A2A3A5A6A7A8A9B13A4B70A1A2B99D9021A2A3A5E10001A2A3A4A6A7A8A9B10A1A2A7A8B21A2A5A6D1000C100A1A2A3A4A5A6A7B10A1A2A3A4A5A6A8B20A1A2A3A4A5A6A7A8A9B36A7A8A9B40D2000A1A2A3A4A6A7B10A2A4A5A6B20A1A2A3A4A9B30A1A2A3A4A5A6A7B40A1A2A4A5A6A7A8A9B51A2A6A7A8A9B60A1A2A4A5A6A7A9B72A3A5A8A9B80A2A3A4A5A6A8A9D3001A2A4A5D4000A1A2A3A4A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1D5000A1A2A3A4A5A6A7B10A2A3A4A5A7A8A9B20A2A3A7A8A9B32A3A4A5A8A9B43A4A5A6A8A9B51A2A3A5A7A8A9B60A1A2A3A4A6A7A8B70D6000A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7A8A9B40A1A2A3A4A5A6A7D7000A2A5A6D8000A1A2A3A6A7A8A9B10A1A2A3A4A5A6A7A8B21A2A3A4A5A6A8A9B30A1A2A3A4A5A6A9B41A2A3A4A5A6A7A9B50A2A3A4A5A7A8A9B60A1A2A3A5D9000A1A4B72A4E20001D1000A1A2A3A4A6A7A8A9B10A1A2A3A4A5A7A8A9B20A1A2A3A4A5D2000A1A2A3A4A6A7A8A9B11A2A3A4A5A6A7A8A9B20A1A2A3A4A6A7A8A9B30A1A3A4A5A6A7A8A9B40A3A6A7A8A9B50A1A4A5A6A8A9D3000A1A2A3A4A5A6A7B13A4A5A6A7A8B20A1A2A3D4000A1A2A3A4A5A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5B31A2A3A4A5D5002A3A4D6000A1A2A3A4A5B70D7000A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7A8D8001A2A3A5A6B10A1A2A4A5A6E30001A2D1000A1A2D2000A1D3003A4D4001A2A3A5A6A7A8A9B10A1A2A5A6A7A8A9B23A4A5A6A7B30A3D5001A2A3A4D6000A1A2D8000A1A2A3E40000A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A2A3A4A5A6A8A9B40A1A2A3A4A5A6A8A9B50A2A3A4A5A6A7A8A9B60A1A4A5A6A7A8A9D1000A1A2A3A4A5A7A8B10A1A2A3A4A6A7A8A9B20A1A3A5A6A8A9B33A4A5A6A8B41A2A3A5A6A7A8A9B50A1A2A3A4A5A6A7A8A9B60A1A2A3A4A5A6A9B70A1A2A3D2000A1A2A3A4A5A6A7A9B10A1A2A3D3000A1A4D4003A4A6A7A8B11A5A6A7B21A2A3A5A6B33A4D5004A5A7A8D6000A1A2A5A7A8A9B10A1A2A3A4A5A7A8A9B24A7A9B30A2A3A4A5A6A9D7000A1A3A4A5A6B13B90D8001A2A3A4A5A6A7A8B10A2A4A6A7A8A9B20A5A6A7A8A9B30A1A2A4A5A6A7D9000A1A2A3A4A5A6A7A8A9B10A1A2A3B90A1A2E50000A2A3A4A6A7B50A3B71D1000A2A6D2000A1A2A3A5A6A8B71A2A3B90D3000A1A2A3A7A8B10D4001A2A4D6000A2A3B71D7003A4A5A6A7A8A9D8001A2A5E60002A3A4A9B10A4B71A2A3B90A1D2003A4A5A6A7A8A9B10A1A2A3A6A7B70D3000A1E81000C900B97A8A9G209709B10A1A2A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B33E204231A3A4A5A6A7A8A9B40A1A2A3A4A5A6B52A3B60A1A2A3A4A5A6A7A8A9D6000A1A2A3A4B20A3A4A5A6A8A9B30A3A5A7A8A9B41A3A5A6B50A1A4A5A6A7A8B86A7A8A9B90A1A3A4D7000A5A6A7A8A9E21000A1A2A3A4A5A6B11A2A3D4001A3B17A9B20B47B56A8B60A1A2B80A2C444D8494A8A9C500A2A3A6A7A9B10A1A2A3A5A7A9B20B62A3A4A5A6A7A9B70A1A2A3C600A1A2A4A5A6A7A8B10A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B38G5400000C100C200C500C600C700C800D1420B40B60B80C500C630B60C700C830B60G6500001A2A3A4A5A6A7A8A9B10E10101A2E40001A3A5A7A9B11A3A5A7A9B21A3A5A7A9B31A2E70000A1A2A9B10A1A2A3A4A5A6A7B88A9B90G7090001A2A3A4A5A6A7B15G8800001A2A3A4A5A6A7A8A9E80000A1A2A3A4A5A7C120A1C223A7B30F946420A5A6A7A8H92900001A2A3A4A5A6A7A8A9B11A2A3A4A5A6A7A8A9B20A2A3A4A5A6A7G300002A3C100C307B24A5B30C405B12A7B25C520A1A2C699E10001A2A3A7B14A8A9B20A2A4A6A7A9B30A5B40A2A3E20003A5E30001A2A7A8A9B10A1A2A3A4A5A6A7A8E60004B18A9E90000A1A3A4A5F5275432B40E80001A6B11A2A4A6A7A8B24G60001A2A3A4A5A6A7A8A9B10A9B20E8300000B10B30B40D1010B20B30B40B50B60D2010B20B30B40B50B60B70B80D3010B20F600003A4A5E10001A2A3A4A5A6B10A1A2G910052A7A9B66B72A5A8B80A1A3A4A5A6C209B12A3A4A5A7B22A3A4B33A4A5A6A7A9B51A3A5A6B60A1A2A3A4A5A6A9B76A9B82A5A9B90A1A2A3A5A7C305A7B10A3A6A8B20A2A5A7B30A2A6A9B41A6B52C451A2A3A4A5A6A8A9B60A2A4A5A7A9B70C501A3A4A5A7A9B10A1A2A4A5A7A9B21A2A5A6A7A9B30A2C803A5A7B10A1A2A6A9E600001A2A3A4A5B10B99H"
this.Extra="1000361A2A3A4B70A1A5A6A7C427C607B10A1A2A3A4A5A7B23A4A5A6C802A3B11A3D3000A1A2A3A9B12A3B23D70002A4A5A6A7A8B8B12A4A6A7C1011B21C111B21E8010A1B32A3D9011A2A3A4A6A7B24A5A6A7A8A9B38E108005A6B11A2A3E13037B69E51005E71007A8A9B10A1A7B22A4D4010B47B58A9B64F200855E20015D1015D2015B25B35B45F400019B20A1A2A3A4D1170F700212B20A1A3B30A1A3A8B41B73A7F900014B47A9D1014D2007A9B12D4011A2A5A6A9B20A4A5B31A2D5008A9B11D6007A8A9B10A5D7006D8005A6A8D9003B12A3E10009B11E20006A7E69990A1A3A6A7E70008B11C912G11006B111A2A3A4A5B21A2A3A4B31A2B5A61A2A4B7C13003A4B24B35A6B40B99C125A9B42A3A4A5A6A7A9B50B70A7D5002A8B11A4A7A8A9B20E2104A5C204E3009B10A1C220A3A4D40011B3A4A5A6A7B20A1A2B30A1A2C1021D5002C1419B36A7A8A9B40B56E6016A8B20E5002A3A4A5A7A8B10A1A6C4005D6001A2A3A5A7A8A9B10A1A2A3A5A6A7A8A9B20A1A2A3A4A5A6C605A6A7A8A9B11A2C902D7001A2A5C251C501E60006C201A3E700012A4A5A6E1006E800006A7A8B10A7A8A9B20B68A9E2011A2A3D4022B31B41B51E9002A9C5011D7101A2A3A4A5B52D9001F2001021A2A3A4A5D3003A5B10A2A6A9B24A8D4020A1A2A3A5A6D5010A1A2A3A5A6D6008D7040D8008A9B12A7A8A9B20A5B33A5D9041A6B57A8B62E10041A2A3A4A5A6A7A8B50A1A3A5A6D1020A1A2A4A5A9D3003A4A6A7B13A4B20A1B56D4020D5010D6010A1A2A3A5D7011D8004D9030A1B50A1E24020A1D5010A1D6030A1A2A3A4D8010A1A2A5D9002A5A7A8B12A6B27B30A1A4C401E30010A1A2B21A2D1000B10A1A2A3D2020A1A2A3D3003A4A5B14D4010A1A2A3A4B20D5010A1A5D6020A1D7011A2A3A4D8010A1A2A3A4A5E40010A1A2A3A5B50A1D1001A2A3A5D2030A1A2D3030D4001A3B51A2A3D5030A1D7010A1A2A3D8031A5E50020A1A2D1020A1A3D3010D4000A8D6020A1A2D8020A1A2A3D9010A1B31E60012A6D1010A1D3020A1B51D4010D5002B70A1D6010A1A2A5D8015A6E70011A2E80030A1A2B53D1010D3020A1D4010A1D5020A1A2A3F100001E29293F300007C101A9B15D1001E45678F800000A6D8225C331C652E22697E72491G3001003A6A9B12D2006A9B12A5D3021G4000004A7A9B16A7B20A6B34B60A1A2A3A4A5C135A6A7A8C306A7B71B86A7A8B97C507A8B38A9B55B64C603A6A8D1051E10003B13A4B47A8A9B63C115B94A5C215A6B37E60006B12A3B20F140001A4A5A6A8B11A2A4A5A6A7A8A9B20A1D2010F370004B37B40F700006A7A8A9B21B30A1A2C101D2000F800109B92D1726A7A8B30B48B55G5000044A5A8A9B55A6A7A8C254A5A6A7A8A9B60C337A8A9B40A1A7A8A9B55A7A9C420A1A2C540A4A6C625B30B70C730A2F873622A3A4A5A6A7A8A9B30A2B41G6001001A6A9B13C509E63004A9B23E80008A9B10A9B21A2A7A9B30A1D1016A7F101076A7C101A3B41A7B85D2013D4620D5012A4B22A4A8B38C108D7106A7A8B15A6A8A9E17101A4E30001A3A4A5A7B12A3A4E50009B13A7A8D1001E60009B11A2F400005B13A7B20A7A8A9B31A4A7A8B43A4B53B61A2A3B74A5A6B80A1A5A6G70006C20030C200A1C300C400B30D9130E31000A1A2B60C100A1B40B50B60D2000A1D5000C110A1B30B50B60B70B80C300B30B40C470C600B10E55040B60E60940D1010B20B40A1A2B60B70C240B50B60C330C410B70C640B60B70C900B70A1B90D2090G8001001A6A7A8D3011A2A3A4A5D4008B10A1A3A4A6A7D6006A7D7006A7A8A9B10D8005A6A7A8E10005A6D6014A5A6A7F713100A1G9500002A3A8B25A8A9B35A6A8B43C170H20000001B15B56A8C111A2A3A4A8B50A1A2A3A4A5A6A7A8A9B60A1A6F100210A2A4A6A8B21B31C356A7A8A9B60A1A2A3A4A5A6A7A8A9B70A1A2A3A4A5A6A7A8A9B80A1A2A3A4A5A6A7A8A9B90A1A2A3A4A5A6G1410150A1A5A6A7A8F520081A2A3A4A5A6A7A8A9B90A3A4A7A8A9C100B57A8A9B60B71A2A3A4A5B82A3B97A8A9C200B11A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7A8G2100125A7A9F200161E30141A2B61E80101B61F600017A8A9B20A2A4B32C107A8A9B10A1A2C212A3A4A5A6A7G3000303A4A5A8A9B19B50D4011A2A3A4A5A6A7A8B20A1G4300019B90A2A4F562458A9B61A3A7A9B72A4A6A7A8B82G6801099D5002A3A4A6B12A4D6015A6A7A8A9B20A5A6A7B31A2D7001A3B10D8000A5A8B10A3D9000A1A2A3A4A5B97A8A9E18006A8B11A3A4A8B21A4B31A3A4A7A9D9000A1A2A3A4A5A6B20A7E21003B11A3A4A5B20D4008A9G8302000A1A2E15000A1A2A4A6B12A3D6004A6A8B10A1D7003A4A5D8000A6A7A8D9002A5A6A9E21001D2000D3000A1A2D5000A1A2D6004A5G9065571A3B80A1A3A4A5A7B92A7A9C605A6A7B10A5H30000440C505C620A5B50D3035B45B55D5016B25D7110E10010F553005A6A8C110C215D6006A7A8A9B10D8007F700001A2A3A4B17A8A9B20A1A4B37G1300000A7B14G2904926A7A8A9B30A5E12373A4A5G3200006B11B25A6A7A9B30B51A4A5A6A7B73C105A8A9B14F300155E10010A1A2A3A4B20A1A2A9B30A1C158A9B60A1C209B10A1A2A3C507B11C605E30009B10A1A2A3A4A6A7A8B33A6B49B56B60B72A3B83A6B92A3A5A6A7A8A9C101A2A3A4A5A6A7A8A9B10B54B61C206A7A8B10B31C300B19B20C410A3C505A6A7A8C603A4A5A6D1106A7A8A9C557A9B60D9003A4B21A3A5A7E40009B10E50007A8A9B10A1A2B20A1A2A3D1005E74565E80000A1D8888F400006A7A8A9B10A1A2A3A4A5B33A5C206A7A8A9B20C303A4A5A6B13A4A5A6C403A6A7A8A9B10A1A6A7B25A6B32A5A6A7C509B10A1A2A3A4A5A6A7A8B24A6C607A8A9B10A1A2A7B36C706A7A8A9B10B47C809B10A1A2A3A4A5A8C906A7A8A9B10B39D1006A7A8A9B10A1B35C307A8A9B13C606A7A8A9B10A1A2A3B20B55A6A7A8A9B61F500006A7A8A9B10A3A4A5A6B41B51A2A3A4C205B11A2A4A5C305A7A8A9B10A1C407A8A9C601A2A3A5A9B11A2A3A4A5A6A7A8B20C805A6A7A8C901B33B47B54B83D1205B56A8C307A8A9C407A9B11A3A5A7A9B21A3B43D2009C406A7C703B22D3204F700004A5A6B23A8B33A6B51B82A3A4A5A6C104A5B29B30A4A7B68B71A2A3A9B82A3A4A5A8B94A7C200A3C307A8B10A1A2A3B34A5A6A7B44A5A6A7A8A9B50A2A3A5A6A7A9B60A7B72A3A4A8B84A5A6A7A8C412A3A6A8A9B27A8C707A8A9B10A1A2B28A9B30A1A7B70A1A2A3A4A5A6A7B84A5A6A7A8A9C800A1C917B35A7A8A9B40A1A3B66B99D1000A1A2A9B17A8A9B20B60A1A2A3A4A5B71A2C100A1A2A3A4A5A6A7A8A9B10A1A2C323A4B48A9B76A9B94C403B14A9B20A9E10908B11A2A5A6A7A8B22A8D1001A3A9C102A3A4A5B13A4C402A7G5100101A7B11A3A5A7A9B21A7A9B37G7564001A2A3A4B11A2A3B21A2A6A7A8A9B30A2A4A5A6B41A3A4A5A6A9B50A2A3A5A8C302A3A4A7B10A3A5A6B24B31A2A3A4A7A8A9B44A5A6A7B50A1A3C400B13A4A5A6A7B21A3A4A7A9B30A1A2B57A8A9C501A2A3B16A9B20A4A5B30A2A3A7A9B40A6A7A8B50A3A6A7A8B60A1A2A4A6A8C601A2A3A4A5A6A7B16C701C801A2A3A4A5A6A7A8B23A4A6A7B36B42A3A4B50A1C919F900011A2A3A4A5A6A7B30C999H40006764A5A6A7C884A5A6A7D8180C460C543A7A8B57B98C605B27B51A3A4B78B86B91A3C700A2A4A6D9016C152A6B73A5B99C202A5A9B10A2A4B42A4B86C414B91C514A8B26B45B95A7C629C709B30B42A6B50A4C893A4A5A6G200011A2A3A4A5A6E10017A8A9B20B37A8B44C105A6B57A8D2114A7A8A9C211C310B31A4E31009B14B23A4A7A8F4000006B10A3A6D1001A2B11A2G5745911A2A3A4A5A6A9B99D6813B31A2A3A4A5A6A7A8A9C901A5G6270004F560404D4044C888G7500019B21A3C101A3A4A7C381C503A5A7D1000A1A2A3A4A5A6A7A8A9B10A1C112E10000B72A5A6A7A8B81A4B90A2C101A3A7B11A5A9B22A9C222A4A5A7B31A3A5A7B52A4B60A2B80C300C666D1000A3C551D2001D4896C966D7001D9999E20001A3A5A7B15D2011E30001A2A3A4A5A6A7A8A9B12A3A5A6A7A8A9B20A3A4A5B30B51A2A3A4A8A9B67B72A3B93A6C100A1A2A3A4A5A6A7A8A9B11A2A3A4B30A1A2A3B48A9B63A5A7A8A9B70A1C782C962D1962D5000B20D9500C999E48001E50001A2B10A2A4A5A7B20D1000C105E70100C200C300C400C500C600D8905A7B13A8A9B28B33A4A5D9028C900A8E80001A5E90005A6A8A9B11A2C893D1200B99C477C533C666C788C822B55C911D4444D8772A3A4A5H50006661F218211A2A3A4A5A6A7A8A9C365C410B20B30B40B50B60B70C535B40A5B50A5B60A5B70C640A5B50A5B60A5B70E20110A5B20A5B30D1305G2520007A8A9E80000A2A4G3701003A9B15A7B25A6A8A9D3009B10A1A2D7006B10A1A2E11005A6A7A8E99017B25B41G7300009B10A1A2A3A4A5A9B20A2A3A5A7A8E20004A5A6A7A8A9B10A3E30007A8A9B14A5E40001H60000007B16B27B38D2004A5A8F150510A1A3A4A5A6A9B20A2B30A5A6A7A8B41A2A3A4A6C610A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6B31C731A2A3A4A6C807A8A9B14A6A8B20A1C917A8A9B20D1011A2A3A5A6A7C121A3A4A5A7A8C321A2A3A4A8A9C411A2C502A3C611A2A3A4A5C731A2A3A4A6A7A8C902D2311A2A3A4A5A6C605A6A7A8A9C801A2A3D9906A7B17A8B21B31A3A7B41A5G1000040A1G2200006A7B21A2G4300008B10A2A4B22A3A4A5A6A8A9B30F800015A7A8A9B20A1A2A3A4A5A6B43A4A5B50A1A2A3A4A5A7A8A9B80A1A2A4A7A8E10000G5001006B15B27B37E10018A9B22B42A5A6A7B54A6A7B71A2A3A4A5A6B84A5B96A7A8C100A1B15A6A7B32C200C512A4A5A6A7B33A5A7A9B41A3A4A5B54B60A3B88D1010A1A2A3A4A6A9B21A3A4A5A7E20009B14A5A6A7A8B50B61A2A3B73A4A5A6A7A8B92A3A4C106B21A2A3A4A5A6A7A8A9B30A1B47A8A9B50B63A4A5A6A7B83A4A5C217A8A9B20A1A6A7A8B33B51A2E30001A2A3A4A5B25A6B59B60A1A2A3A4A5A6A7A8B81A2A3A4A5C107E40009B10A1A2A3A4A5A6A7B26B33B41A2E50014A5A6B61A2A3A4B79B81A3A5A7A8A9C106A8B10A2B32A4A6A8B61A2A4A6A8A9B70A2A3A4C200A2A4A6A8A9B22A3A4A5A6A7A8A9B30B53A5A7A9B61A2E60007A8A9B10A1A2A8B38E73002A3A4A5E80018A9B41A4B53E90002A4A6A8B10A2A4A6A8B20A2A4A6A7A8A9B30A1A2A3A4A5A6A7A8A9B40A1A2A3A4A5A6A7A8A9B50A1A2A3A4A5A6A7G6560003F619907A8A9B10A1A2B20A1E77706A7B89D8909B10A1A2A3A4A5B21F912001D3800A2A3A4A8B13B30D5000A6A7B16A9B20A4A6B31A3G700012A3A4A5A6A7A9B21A3A4B40E200002A4B14B20A4B31A2A4A5A7A8B41G9691902D6005B10A1C901A3A4A8B18B21A3B32B45A6B50B62H71000121A2E206A7B30B50A1A2A3D100002A4B23A5A9B30A4A6A8F400008A9B10A1A2B22A4A8B30B40A3A5A6G2402010A3A6D4137A9B43D6041A3A5D9105B10E10050C100B10B20B30B40B50B90C390C400B10C730B40B50B80D1130B40B50A2A3B60B70B80B90A1C200C350B70B90C410B40B60B90C500B10B80C800D2010A1C140C340C470F979219G3205006A7A8A9G5640055D1008D6024A5B50A1A2A3A4A5A6A7A9B60A1A2A3A4A5A6A7A8A9B70A1A2A3A4A5C123B35C305A7B27C400A4A7A9B14A7A9B21A6B50A3A7A8C500A2A6A8A9B11A2A6A7A8A9B22A8B32A4A5A6A7A8B45A8B50A4A5B64C618A9B20A3A4A5A6C707B32B44C800B52A4C904A8A9B11A2B52A6B62B72G6121006A7A8A9B10B41B50A1G77009B11A3B7029B43B70E25299E77765B77H81001002A3A4A5A6A7A8A9B10A1A2A3A4A5A7A8D2009B11A2A3A4A5A7D3009B10A1A2A9B20A2A9B30A3A6D5001A8A9B10A3A4A5A7B25A7D6000A1A2A3A4A5A6A7A8A9B11D7000A1A2A3A4A5A7A8A9B10A2A5A6A8A9D8000A4B10A1A2D9000A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A4A6A7A8E11001A2A3A4A5A6A7A8A9B10A1A2C109B17A9B31A2A3A4A5B41D2005A8A9B11A3A7A8A9B25A6A7A8B38A9B43B50A3A4A5B63A8B70A1A4A6A7B81A7D3000A3A6A7D4005D5008A9B11A6B21A4A5A6B30A1A6A7B40A1A2A7B50A4A6B65A9D7001A3A4D8004A5B19B20A7B37A8B40A8B51A6B64D9002A3B71A3B90E20000A2A3D1005B16D2005B10B25B32B41A2A4A5B52A3A7B60D3008A9B10A1A2A9D4006A7B26A7A8A9B30A6D5000A1D8000A4A7A8A9B13A7A8E30000A3A4D2002D3000A2A5D4004B13A4B20A1A2A8A9B31A2D7000A1A2A3E40031A7B47D1006A9B15B22A4A7B30A1A2A7A9B40A4B67A8B74D2008D3002A3A5A7D4000A1A2A5A9B10A4A8A9B24A8B30A1A2D5000A1A2A3A6A9B11D6003A4A6B16B20A1A2A3A5A6A8B31A7A8B40A1A2A3D7002A7A9B10A1A2D8009B11A3A5B21A2A3A4B33A8A9E50001A5A8B51A2D1001A3A4A5D2004A7B70D3004A5A6D4000D6001A4D7000A1A2D8000A3A4A6D9000A1A2A3A4A5A6A7A8A9E60000A1A5A6A7A8B11A2A3A5A6D2000A1A2B14A5D3002E81001A2A3A4G209701A2A3A4A5A6A7A8B13B30A1A2A4A5A6E204232B54A5A6A7A8A9D6005A6A7A8B21A2A7B31A2A4A6B40A2A4A7A8A9B52B92D7001A2A3A4E21007A8A9B10D4006B24A5A7A8B30A1A2A3A5A6A8A9B40A1A2A3A4A5A6A8B54A5A9B65B79D8492A6A7C501A4A5A8B14A6B21B68C603A9B11B30A1A2A3A4G6500011A2A3A4A5A6E70003A4A5A6A7A8B19B86A7G7090008A9B10A1A2A3A4F600001A2G8880006A9C111C210A2A3F946421A2A3H92900010B21G300315B29B99C420C513E10016A7B21A8B37A9B41E20002A4A6E30004A5E601004F90002A6F5280002B13B20G60011A2A3A4A5A6A7A8E8600001A2A6A7A8B11A2E10007A8G910056B60A7B70A1A7C200A1A2A4A7A8B11B20A5A6A8B30A2A8B41A6B78B81A4A8B94C300A1A2B14A5B24A9B37C457B61A3C632C808B13A5E600006H"
this.BlackList="1110000C198E4026D5014A5A7A8E2029400A1G3001033F959980A1A2A3B95A8G4000000A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7F701000G90007F20000100B23F100000C301A2A3A5A6A7A9B10A1A3A4A5A7A8A9B21A2A3A5A6A7A9B30A1A3A4A5A7A8A9B41A2A3A5A6A7A9B50A1A3A4A5A7A8A9B61A2A3A5A6A7A9B70A1A3A4A5A7A8A9B81A2A3A5A6A7A9B90A1A3A4A5C417A9B21A3A5A7A9B31H47530144H50006660H60000005G5020223A4A5B32H71000106H82204252H"
this.BanList="1000410A2A3A9B20A2A8C613C817D3006D7000A1D8022A3D9010A5B36E113037B67E71007A9B10A1A7A8B20A2A3A4D4010B64F200090A9C520C855E20042D1022F700236F901000A1A2A3A4A6A8A9B10A2A3D4006A7A8B10A8B27A9B33A4A5D5008B11D6015D9000A4A7E10011E70006A7B10G110000A1A2A3A4A5A6B10AA2A8A9B10A11A2A4A5AA21A2A3A4AA31A2AA41A2AA51AA61B98D1001A2A3A4A5A9B25A6A9B31A2A6B41B90C201A2A3B21A2A3A4C3004B1B129B42A3A4A5A6A7A9B50D401A3C501A2B11D2102A3A4A5C201E2003A5C311D3000A1A2A3A4A5A6A7A8A9B10A1B59C217B24D40001B11C101B21C204B4A6B34A5C1001A2A4B21C101A3C201C701A2D500B1406B16A7A8B25B61B95C500B28F5001A28AA36B40A1B5A6B10C6003E60023A5E70005B11D1006B13E800016B54A5A7A9B64E2001E9001A3A4A7B16C1003D7101A2A3A4A5B11A2A3B20B52F2004023D7000A1B10A1B20A1A2A5A6B30A1A2B40A1B99D8006E10050D1015D3020A1D4000B15D5010D6020A3A4D7020D9060E26027D8001A3D9011A9B20B34A6B43C400A1E30000A2A3A4A5A9B10A2B20A1A2D6000A2B11B20A1D8001D9001A2A3A4A5A6A7A8A9E40001A2A3A4A5A6A7A8A9B10A1A2A3B50A1B60B70D4040A1A2A3A4D7003B11A2A3D8001A4A5A6A7B20A1A2A3A4A5B30A1A3A5B40A8E50010A1A2B21D1010A1A2A3B20A1A3B31E60012A6D2011A2A3B20B30B40B50B60D3051B60A1D5000A1A2A3B11A2A3A4D6000A1A2A3B10A1A2B20A1A2A3D8003A4A5A6B11A5A6E85002A3B21A2A3F129293F300115F800000A4A5A6E22697G3001033D3021G4000000A1A2A3A4A5A6A7A8A9B10A1A2A3A5A7A8B20A1A2A3A4A5A6A7A8A9B30A1A4A6A7B55A6A7A8A9B60A1A2A3A4A5A6B97A8A9C100A3A5A6A7A8A9B10B30A1A2A3A4A5A6A7A8A9B40A1A5A6A7A8A9B50A1A2A3C301A2A6A7B51A2A3A4A5A6A7A8A9B60A1A2A3A4A5A6A7A8A9B70A1A2B80A1A2A3A4A5A6A7A8A9B91A2A3A5A6A7C451A2A3A4A5A6A7A8A9B60A1C501A2A3A4A5A6A9B10A1A2B34A7A8A9B57A8A9B60A1A2A3C603A4A6A8C781A2A3A4A5A6A7A8A9D1051E10145C244E60020F141001A2A3A4A5A6A7A8F700006A7A8A9B30A2C107F801731A2G5000114C351A2A7B61C420A1A2C549C742D13B2010A1A2F415158A9B60A1A4A7A9B72A6F873611A2A3A4A5A6A7A8B20A1A2A3A4A5A6A7A8A9B30A2A4A5A6A7A8A9B40A1A2A3A5A7A8A9B50G6001005B16E63010F101081C105B41B53A7B73A4A5A6A7A8A9B80A1A2A3A4A5D2000A1A2A3A4A5A6B10A1A2A3D4200A2A4A6A8B10A2A4A6A8B20A4A6A8B30A2A4B40A2D5016A9D7113A8E30004A5A6A7A8A9B11A2A3A4E50006A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3E60003A5A6A7D1000A1E99990F200001A6A7A8F400015B21B44B56B73G70002A3A4A5A6A7B10A1C10001A2A3A4A5A6A7A8A9E20000B10B20B30B40B60B80C110C300D9001B10C230E30601D1001A2B10C110B20D2001D5010C101B11B30C411B70C500B10B20B40B50C610E55010B20B40B50E60871A2A3B81A2A3D1041A2B70C171B90C211A2A3B20B40B50B60C321B51C421B60C810C971G8001002A3A4A5A6A9B11D4001A2A3A5A6A7A8A9B10A1A2A3A4A5A6A7D5001A2A3A4A5A6A7A8A9B10A1A2A3A4A5D6001A2A3A4A5A6A7A8A9B10A1A2D7001A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6D8002A3A4A5A6A7A8A9B10A1A2E10001A2A3A4A5A6A7D6001A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2F713101E34604A6A8B10A2A4G90001A7D500031A2A9H20000002A3A4A5A6A7A8A9B11A2A3A4A5B53A4C100A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3F100000B37C301A2A3A5A6A7A9B10A1A3A4A5A7A8A9B21A2A3A5A6A7A9B30A1A3A4A5A7A8A9B41A2A3A5A6A7A9B50A1A3A4A5A7A8A9B61A2A3A5A6A7A9B70A1A3A4A5A7A8A9B81A2A3A5A6A7A9B90A1A3A4A5C417A9B21A3A5A7A9B31G1400053E10136B55A6A7A8F520096C113A4B37B45A9B50A3A7A8A9B60B71A2A3A4B91A2A3A4A5A6C211A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7A8G2100131F201001A2E30001A2A3A4A5A7C141A2B61D1001D2001C101E80002A3A4A6A7A9B10A1C101B61C999D1001C301D2001F600024A8C114G3000309B50D4019B33G4300001A2A3A4A5B13A4A5A6A9B21B31A2A3B80A2A4A8A9B96F562456A8B61A3A7A9B70A2A4B82A3G6800000A1A2A3A4D1004A7B12A3D5005A8B10A1A3A5A7D6000A1A2A3A4A5A6A7A8A9B10A1A2A3A4B21A2A4A6A7A9B30A3A4B71A2A3A4A5D7000A3A6A7B11A2B30D8000D9000A1A2A3A4A5B97A8A9E12003A4B15A7A8B20D8003A4A5A9B10A4A6A7A9B20A2A3A6B31A5A6A7B40B71A2A3A4A5A6E21000A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5C999D4000B10G8300000A1A2A3A4A5A6A7A8A9B10A1A2E15007B10C999D6011A2D9010E26003G9065501A2B71A7B91A8C601A2A3A4H30000220B40C450C510D5000F700010A1A8A9B20A2A7A9B39G1300012G2912373A4A7A8G3200026A7A9B52C100B14F300156D1350E10001A2A3A4A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A8A9B30A1C101B51C200B53A4A5A6C600A1A2A3A4A5A6A7E30005B20A1A4B31B50A3A5B61A3A5A6A7B70A1A4A8B86C110B53A8C212C303B23C605D1109C354D4568D9001B43E40001A4A5A6A7A8A9B10A4E50001A2A4A5A6A7A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3D1001A3A4E74560A1A3A6A7F400011A2B33A5C101A2A3A4A5A6A7A8A9B10A1A2A4B20C200B20C305B13A5B51A2A3A4C409B11B30A1B51A2A3A4B74C511B24A6B54A5A6C602A3A4A6B36B52A6C747B60C814A5A8B53C951D1011B35B51A4C200A1C308A9B15C606A7A8A9B10A2B20A5B75A6A7A8A9B80A1A2A3A4D3500B21A2D5006F500008A9B15B50A1A3A4C106B12A7B20A3C200A2A3A6A7A8B14A5C309C400A8A9C609B11A2A4A5A6A7A8B20C802A6A7A8A9B12C911B21B33B83A8D1001A2A7B16C258C301A2A3A4A5A6A7A8A9B10A1D2001A2A3A5A6A7A8A9B10A1A2A3A4A5A7B22A3A6C314C407B11A2A3A4C501D3200A1A2A3A4A5F700001A2A3B34A6B42A4A5A6A7B51B62B82B90A8C130A9B41A2A3A4A5A7B72B85B91C337B45B56A7A9B85A7C404A5A6A7B14A5A6A8A9B22A8C502A3A4C656A7A9C701A2A3A4A5A6A7A8A9B10A1A2A7A8A9B24B32A5A8A9B48A9B54A6A9B76C902A3A9B11A4A7A9B23A4A7B30A3A4B44B66D1006A7A8A9B62A4A8A9B72A4A5A6A7A8A9B80A1C104A5A6A7A8A9B10A1C315A6A9B27B30A1A6A7B44A5A8A9B59B60A2A5A7A8A9B70A1A2A3A5A8A9C405A7B12A5A6A7A8B21A2A3A4A5A6A7A8A9B30A1A2A3A4A6E10901A5A6A7A9B10A3A5A6A7A8B20A1A2D1003A4A7B10C106A7A8B14C405A6A7C502A3A4A5C601C701A2G4501311G5100109B13B31G7564001A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A4A5A6A7A9B41A2A3A4A6A7A9B50A1A2A3A5A8C200A1A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7C302A3A4B10A3A4A6A7B20A3A4A6B31A2A6A9B43B50A1A5C401A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2B51A2A3A4A5A6A7A8A9C501A2A3A9B10A1A2A3A4A6A7A8A9B20A3A4A5A7A8A9B30A1A4A5A6A7A9B40A4A5A6A8A9B50A1A2A3A6A7A8A9B60A1A2A4A6A7A8A9B70A1C601A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6C765B77C801A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7A8A9B40A1A2A3A4A5A6A7A8A9B50A1A2A3C901A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20F900003B11A2A4A5A7B20B30B99C199H40006762A4A6C826A8B90D8545B60C605A9B12B41B93C811B25B74A7D9156B64A6B70A3B99C202A5A8A9B10A1A2A3A4B44A5C327C414B91C512A8B20B45B97C730A2A4A6A8B40A2A4A6A8B50A2A4C889B93A5A7A9C901A3A5A7B26A8B30A2A8B42A4G200011A2A3A4A5A6E10009B10A1A2A3A4A5A6A8A9B20A3A4A6A7A9B30B42A3A6D2114A7A8A9C201A2A6E31000A1A2A3A5B11A2B21A2A3A4A7A8A9F4000001A2A3A4A5A6A7A8A9B10A1A2A3A5A6A7A8A9C101A2D1001A4A5A7B10A1A2A3A4A5A6A7A8G5745907A9B19B28D6807A8A9B10A1A2B52A5A6B65G6564088C888G7500000A1A3A5A7A9B11A3A5A9B21A3A5A8B30A1A3C101A3A4A7C381C503D1000A2A3A4A5A6A7A8A9B10A1E10046B84B95A6A7A8A9C100A3A7B15A9C222A4A5A7B31A3A5A7B41B54D1003C101C551D4966E20005D2011E30004B15A6A7A8A9B20B53A4A9B72A3B96C100A5B44B67B70D5000E48001E50002B15A7B20D1000C105B24E64333E70500C600D7904D8918D9908E80345E90005A6A8A9B11A2D1007A8A9B10C299D8772A3A4H50006660F218103A6A9B12A5A8B21A4A6A7A8B33A4A5A6A7A8B50C410B20B30B40B50B60B70C535B40A5B50A5B60A5B75B80B95A9C640A5B60A5B85E20110A5B20A5B30A5B40D1135C200B30G2500000D1000A1A2A4D2000D3000D4000E20003A4A5A6A7A8A9B10A1A2A3E80001G3701009D3009B10A1A2E11004A8A9B10A1A2A3A4E98002A3D9012A6A7B21B35A7B40B52A3G7300000B19B20A1A8E20001A2A3A4A5A6A7A8A9B10A1A2A3E30001A2A3A4A5A6A7A8A9B10A1A2A3A4A5H60000005D2002A4A6A7F150510A1A3A4A5A6A9B20A2B33A5A6A7A8B41A5A6A7A8A9B50A1C619B41A2C731A2A3A4A6C807A8B14A6C931A2A4A6D1017C125A8B99C296A9C322A3A4B51A2A4C411C551A2A3A4C613A5B24C736A7A8C901A2A3A4A5A6A7A8A9B10D2311A2A3A4A5A6C811D9906B15B21B33B41A5G2200001A2A3A4A5A6A7B21A2A3A4B33B54D1001D2019E10001A4G4300005A7B13B21B30F800000B17A9B21A2A4B44A5A6A7A8A9B50A1A2A3A4A5A6A7A8A9B60A1A2A3A4A5A6A8B74B80A1A2A4A5E10000G5000065D1004A5B10A3A5A6B22A3E10001A2A3A4A5A6A7A8A9B10A1A2A3A9B54A6A7A9B60A2A5A9B71A2A3A4A5A6A7A8A9B80A1A2A3A4C111B32C201A2A3A4A5A6A7A8A9B10A1A2C501A2A4A6A8B10A2A4A5A6A7A9B20A1A2A4A6A8B30A2A3A5A7B41A3A4A5A6A7A8A9B52A4A8B60B77A8A9B80A1A2A3A4A8D1009B22A6E20017B47A8A9B64A5A6B77A8C106B13A5A7A9B21A2A3A4A5A6B31A2B40A7A8A9B50A1A4A5A6A8A9B60A1A2A4A5A6A7A8A9B70A1A3A5A7C223A4A5A6A7A8A9B30A1A2A3A4A5A7A9B41A2E30001A2A3A4A5B11A2A3A4A5A6A7A8A9B20A1A2A5A6A7A9B52A3A4A5A6A7A8B72A5A6A7A8A9B80A1A2A3A4A5A6A7A8A9B90C108A9B10A1D1014E40017B20A1A2A3A4A5A6B31A2A3B51E50001A3A7B26A7A8A9B30A1B47B65A7A8A9B70B96C108B10A2A3A4A5A6A7A8A9B20B43A4A7A8B70A2A8C212A3A4B23A4A5A6A7A8A9B30A2A3A4B63E60028A9B31A8A9B41A2A3A4A5A6A7A8A9B50B60E71002A5B46A9B54A5A6A9B63A6A7B70C101A8B59D2000A1A2A3A4A5A6A7A8A9B10A1A2A3A4A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A2A3A4A5A6A7A8A9B40A1A2A3A4A5A6A8A9B50A1A2A3A4A5A6A7A8A9B60A1A2D3001A5E80044E90001A2A3A4A5A6A7A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5A6A7A8A9B30A1A2A3A4A5A6A7A8A9B40A1A2A3A4A5A6A7A8A9B50A1A2A3A4A5A6A7A8A9B61A9G6619901A3A4B12A3A4A5B21E77707A8A9B89D8912A3A4A5A9B20A1A2F911004D2001A3D3820A2B30D5000A6A9B10A5A6A8A9B20A5A7A9B30A1A2G700000A5B27B34E200001A2A8B21A5A6B32G9601002E90005A6D1901D6901A4B17B21B37A8B47H71000106A7A8A9B10E208B25A6A7A8A9B30A1A2A3A5A6A7A8A9B45B50A1A2A3D100019B20A5B30A1A3A4A8F400004A5A6A7A8A9B10A1A2A8A9B21A2A4A6A7A8A9B30A3A6A9B40A1A3A4A5A6A7A9B52A4A5A6A7D2000G2404127D6041A3B53D9000B50C135B50B60A5B70B80A5C200E10060B70C230C380B90C400B40B50C780D1010B40B70B80B90C110B91C200B70B80B90C300B10B30B40B60B80C400B10B20B30B40B50B70B90C500B10B20B31C600B10B20B30C731C800D2011C120C340C450B60B70F900000A1A2A3A5G3205001A2A3A4A5A6A7A8A9B10A1A2A3A4G5640051A2A3A4D1001A3A4A6D6006B11A2A3A4B24A7A8B57A9B72C123C201A3A5A6A7A8A9B10A2B66A7C317A8A9B28A9B30A3C406B15A7B51C546A9B53A4B60A2C600B10A2A7B28C700A1A5A6A8A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A4A5B32B44C853G6121009B14A5B43B51G77001A2A341BA4A5A6A7A8A9B11A3B2002A3A4A5A7A8A9B10A1D5264D7002A3A6A7B14B26A8A9B43A4B52B67A8A9B80D9000E25299C300A1A2A3A4A5A6A7A8A9B10E65001A2A3A4A5A6A7A8B10A1B20A1B30A1B40A1B50A1E77765E84203H81000000A1A2A3A4A5A6D1002A3A4A5A6A7A8A9B10A3A5A7A8D2006A7A8A9B11A3A4A6A7A8B80A1A2A3A4A5A6A7D3001A9B10B29B31A4A5D4000A1A2A3A4A5A6A7A8A9D5017A8A9B22D6000A1A2A3A4A5A6A7A8A9B10A1B90A1D7005B16B90A1A2D8000A1A2A3A4A5A6A7A8A9B10A1A2A3A4B70A1A2D9000A6A7A9B10A1A2A3A4A5A6A7A8A9B20A1A2A3A5A6A7A8E10002B10A1A7D1000A4A6A7A9B10A1C101A2A3A4A7B10A1A2A3A4A5A6A8A9B20A1A2A3A4A5A6A7A8A9B32A3A4A5A6A7A8A9B40A1D2000A3A5A8B10A1A3A5A8A9B24A5A6A8B30A3A8A9B54A5A7A8B63A4A7A9B70A3A5A8A9B82A6A8D4021D5009B10A1A6B24A5B30A7B41A7B54A5B63D6001A2A3A6A7A9B11A4A5A6A8A9B20A1A2A3A4A5A6A7A8B30A3A4A5A6A7A8A9B40A3A4A5A6A7D7000A2D8004A5B19B22A4B31A8B40A2A8B51A8B64A5D9071A3A4E21001A3A5A6B10A1A9D2007B17A9B24A6B30A2B46A8B58D3000B12A7A8B22A3D4005A7A8A9B10A1B21A2A3A4A5A7A8B30A2A6D5001D6070D7001A5A7A9B13B22A3B30A1A4A7D8004A7A8A9B10A6A7A8E30004D3000A2A3A4A5D4002A4A5A8B10A1A2A3A4A5A6A7A8B20A1A2D5001A4D6000A1A2E40000A4B14A9B20A7B30A7B41A7A9B53B60D1000A5A6A7A9B15A6A7B21A2A3A4A6A7A9B30A1A2A3A4A6A7A9B40A4A8B55A6A7A8B65A6A7A8B71A2A3A4D2000A3A4A5A6A7A8A9B10A1A2A3D3002A3A5D4004A6A7A8A9B11A9B21D5002D6000B16B21A5A6A7A8B39B40A1A3D7090D8005A6A8B11A5A7A9B20A1A3A9B30A1A3A6A8E50008B52D1003A5D2007A8B70A2D3004D6000A1A4D8003A5A6D9004E60001B12A3B72A3E81000A1A2A3A4C900B97A8A9G209729B33E204246B52D6034B44A9B56D7001A2A3A4A5E21012D4006B47B58A9B61B82D8496A7C501A4A8B14A6B69B71A2G5400000C100C200C600C800D1420B40B60B80C500C630B60C700C830B60G6500010E10101A2E40001A3A5A7A9B11A3A5A7A9B21A3A5A7A9B31A2E70000A1A2A4A7A8B10A1A2A3A4A9B88A9B90G7090001A3A4A5A6B13G8880120A1H92900010G300002C425C522E10042A3E30005F5280001A2B13B20G8300040D1010B20B30B40B50B60D3010B20F600001A3A4A7B11A2E10007A8B10G910253B61A4C346B52C517B29E600010H"
This source diff could not be displayed because it is too large. You can view the blob instead.
--2pick utilities --2pick utilities
c13959996={}
Duel.LoadScript("c13959996.lua")
local cc=13959997 local cc=13959997
local this=_G["c"..cc] local this=_G["c"..cc]
...@@ -179,8 +177,12 @@ function this.initSet(s) ...@@ -179,8 +177,12 @@ function this.initSet(s)
s.add=this.add s.add=this.add
s.del=this.del s.del=this.del
end end
function this.loadCardList(useBanList,ignoreBlackList) function this.loadCardList(useBanList,ignoreBlackList,clCode)
local cl=c13959996 if not _G["c"..clCode] then
_G["c"..clCode]={}
Duel.LoadScript("c"..clCode..".lua")
end
local cl=_G["c"..clCode]
local mainList=this.toList(this.loadSet(cl.Main)) local mainList=this.toList(this.loadSet(cl.Main))
local extraList=this.toList(this.loadSet(cl.Extra)) local extraList=this.toList(this.loadSet(cl.Extra))
local ml={} local ml={}
......
...@@ -11,6 +11,7 @@ this.extracount=20 ...@@ -11,6 +11,7 @@ this.extracount=20
this.useBanList=true this.useBanList=true
this.skillEnabled=false this.skillEnabled=false
this.CardList={} this.CardList={}
this.clCode=13959996
function this.initial_effect(c) function this.initial_effect(c)
if not this.gc then if not this.gc then
...@@ -173,6 +174,9 @@ function this.op(e,tp) ...@@ -173,6 +174,9 @@ function this.op(e,tp)
this.extracount=Duel.AnnounceLevel(0,1,10)*10 this.extracount=Duel.AnnounceLevel(0,1,10)*10
end end
this.useBanList=Duel.SelectYesNo(0,aux.Stringid(13959997,2)) this.useBanList=Duel.SelectYesNo(0,aux.Stringid(13959997,2))
if Duel.SelectYesNo(0,aux.Stringid(13959997,6)) then
this.clCode=({13959996,13959994})[Duel.SelectOption(0,aux.Stringid(13959997,7),aux.Stringid(13959997,8))+1]
end
end end
this.option=Duel.SelectOption(0,aux.Stringid(cc,0),aux.Stringid(cc,1),aux.Stringid(cc,6),aux.Stringid(cc,7),aux.Stringid(cc,11),aux.Stringid(cc,10),aux.Stringid(13959997,4),aux.Stringid(13959997,5)) this.option=Duel.SelectOption(0,aux.Stringid(cc,0),aux.Stringid(cc,1),aux.Stringid(cc,6),aux.Stringid(cc,7),aux.Stringid(cc,11),aux.Stringid(cc,10),aux.Stringid(13959997,4),aux.Stringid(13959997,5))
local n=0 local n=0
...@@ -244,7 +248,7 @@ end ...@@ -244,7 +248,7 @@ end
function this.ccGen(from,count) function this.ccGen(from,count)
if not this.CardList.Main then if not this.CardList.Main then
local ml,el,mat,eat=c13959997.loadCardList(this.useBanList) local ml,el,mat,eat=c13959997.loadCardList(this.useBanList,false,this.clCode)
this.CardList.Main=ml this.CardList.Main=ml
this.CardList.Extra=el this.CardList.Extra=el
this.CardList.MainAliasTable=mat this.CardList.MainAliasTable=mat
...@@ -711,7 +715,7 @@ end ...@@ -711,7 +715,7 @@ end
function this.picrandom(g) function this.picrandom(g)
if not this.CardList.Main then if not this.CardList.Main then
local ml,el,mat,eat=c13959997.loadCardList(this.useBanList) local ml,el,mat,eat=c13959997.loadCardList(this.useBanList,false,this.clCode)
this.CardList.Main=ml this.CardList.Main=ml
this.CardList.Extra=el this.CardList.Extra=el
this.CardList.MainAliasTable=mat this.CardList.MainAliasTable=mat
......
...@@ -4,7 +4,6 @@ local m,cm=rk.set(16107117,"GODONOVALORD") ...@@ -4,7 +4,6 @@ local m,cm=rk.set(16107117,"GODONOVALORD")
local nova=0x1cc ----nova counter local nova=0x1cc ----nova counter
function cm.initial_effect(c) function cm.initial_effect(c)
c:EnableCounterPermit(nova) c:EnableCounterPermit(nova)
aux.EnableChangeCode(c,16104212,LOCATION_MZONE)
--special summon --special summon
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD) e1:SetType(EFFECT_TYPE_FIELD)
......
...@@ -56,7 +56,7 @@ function cm.initial_effect(c) ...@@ -56,7 +56,7 @@ function cm.initial_effect(c)
c:RegisterEffect(e3_1) c:RegisterEffect(e3_1)
end end
function cm.mfilter(c,xyzc) function cm.mfilter(c,xyzc)
return c:IsCode(16104212) return c:IsCode(16107117)
end end
function cm.splimit(e,se,sp,st) function cm.splimit(e,se,sp,st)
if st&SUMMON_TYPE_XYZ ~=0 then if st&SUMMON_TYPE_XYZ ~=0 then
......
--教团的白骑士 依琳贝珥
if not pcall(function() require("expansions/script/c16104200") end) then require("script/c16104200") end
local m,cm=rscf.DefineCard(33500921,"CHURCH_KNIGHT")
function cm.initial_effect(c)
c:SetUniqueOnField(1,1,m)
local e1=rsch.SummonEffect(c,m,cm.op)
local e2=rsch.GainEffect(c,m)
local e3=rsef.QO(c,nil,{m,0},1,"sp",nil,LOCATION_MZONE,rsch.gaincon(m),nil,cm.sptg,cm.spop)
--cannot be battle target
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e4:SetRange(LOCATION_MZONE)
e4:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
e4:SetCondition(cm.tgcon)
e4:SetValue(aux.imval1)
c:RegisterEffect(e4)
--cannot be target
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
e5:SetRange(LOCATION_MZONE)
e5:SetValue(aux.tgoval)
e5:SetCondition(cm.tgcon)
c:RegisterEffect(e5)
end
--e1
function cm.spfilter0(c)
return c:IsSummonType(SUMMON_TYPE_ADVANCE)
end
function cm.op(e,tp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetOperation(cm.gain)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
function cm.gain(e,tp,eg,ep,ev,re,r,rp)
--Debug.Message(eg:GetCount())
local tg=eg:Filter(cm.spfilter0,nil)
local tc=tg:GetFirst()
while tc do
local code=tc:GetOriginalCodeRule()
if rsch.IsSet2(tc) and tc:GetOriginalLevel()>=6 then
tc:RegisterFlagEffect(code,rsreset.est,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(16104200,1))
end
tc=tg:GetNext()
end
end
--e2
function cm.spfilter(c,e,tp)
return rsch.IsSet1(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.spfilter2(c,e,tp)
return rsch.IsSet2(c) and c:IsSummonable(true,nil)
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_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
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_GRAVE,0,1,1,nil,e,tp)
if #g>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0
and Duel.IsExistingMatchingCard(cm.spfilter2,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
local tc=Duel.SelectMatchingCard(tp,cm.spfilter2,tp,LOCATION_HAND,0,1,1,nil):GetFirst()
if tc then
Duel.Summon(tp,tc,true,nil)
end
end
end
--e5
function cm.cfilter(c)
return c:IsFaceup() and rsch.IsSet2(c)
end
function cm.tgcon(e)
return Duel.IsExistingMatchingCard(cm.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,e:GetHandler()) and rsch.gaincon(m)
end
--幻影旅团·0 库洛洛
local m=45746000
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x5880),4,3,cm.ovfilter,aux.Stringid(m,0),3,cm.xyzop)
c:EnableReviveLimit()
--e1
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,1))
e1:SetCategory(CATEGORY_DISABLE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetRange(LOCATION_MZONE)
e1:SetCost(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():GetFlagEffect(m)==0 end
e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
end)
e1:SetTarget(function(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.tf1(chkc) end
if chk==0 then return Duel.IsExistingTarget(cm.tf1,tp,0,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
local g=Duel.SelectTarget(tp,cm.tf1,tp,LOCATION_GRAVE,0,1,1,nil)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc and c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsType(TYPE_TOKEN) then
Duel.NegateRelatedChain(tc,RESET_TURN_SET)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
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+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e2)
local code=tc:GetOriginalCodeRule()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCode(EFFECT_CHANGE_CODE)
e1:SetValue(code)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1)
if not tc:IsType(TYPE_TRAPMONSTER) then
local cid=c:CopyEffect(code,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,1)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(m,2))
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_PHASE+PHASE_END)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetCountLimit(1)
e3:SetRange(LOCATION_MZONE)
e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e3:SetLabelObject(e1)
e3:SetLabel(cid)
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local cid=e:GetLabel()
if cid~=0 then
c:ResetEffect(cid,RESET_COPY)
c:ResetEffect(RESET_DISABLE,RESET_EVENT)
end
local e1=e:GetLabelObject()
e1:Reset()
Duel.HintSelection(Group.FromCards(c))
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end)
c:RegisterEffect(e3)
end
local atk=tc:GetAttack()
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetValue(atk)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
c:RegisterEffect(e2)
end
end)
c:RegisterEffect(e1)
--e2
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e2:SetDescription(aux.Stringid(m,3))
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetCountLimit(1,m)
e2:SetRange(LOCATION_MZONE)
e2:SetCost(function(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)
e2:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tf2,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end)
e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,cm.tf2,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
Duel.ShuffleDeck(tp)
end
end)
c:RegisterEffect(e2)
end
function cm.ovfilter(c)
return c:IsFaceup() and c:IsSetCard(0x5880) and not c:IsCode(m) and c:IsType(TYPE_XYZ)
end
function cm.xyzop(e,tp,chk)
if chk==0 then return Duel.GetFlagEffect(tp,m)==0 end
Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
end
--e1
function cm.tf1(c)
return c:IsType(TYPE_EFFECT) and c:IsAbleToRemove() and c:IsFaceup() and aux.NegateMonsterFilter
end
--e2
function cm.tf2(c)
return c:IsLevelBelow(4) and c:IsRace(RACE_PSYCHO) and c:IsAbleToHand() and c:IsAttribute(ATTRIBUTE_DARK)
end
\ No newline at end of file
--幻影旅团·1 信长
local m=45746001
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_REMOVE)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,m)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return e:GetHandler():IsFaceup()
end)
e1:SetTarget(function(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)
e1:SetOperation(function(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_ATTACK)
end
end)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_XMATERIAL)
e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
e2:SetValue(1)
e2:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetOriginalRace()==RACE_PSYCHO
end)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EFFECT_IMMUNE_EFFECT)
e3:SetValue(function(e,re)
local tp=e:GetHandler():GetControler()
return re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsControler(1-tp)
end)
c:RegisterEffect(e3)
end
--幻影旅团·2 飞坦
local m=45746002
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCountLimit(1,m)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.t1,tp,LOCATION_DECK,0,1,nil) end
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,cm.t1,tp,LOCATION_DECK,0,1,1,nil)
local tc=g:GetFirst()
if tc and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then
Duel.SSet(tp,tc)
Duel.ConfirmCards(1-tp,tc)
end
end)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_REMOVE)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_REMOVE)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCountLimit(1,m+100)
e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return e:GetHandler():IsFaceup()
end)
e3:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_GRAVE,0,1,nil,0x5880) end
local g=Duel.GetMatchingGroup(Card.IsSetCard,tp,LOCATION_GRAVE,0,nil,0x5880)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end)
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsSetCard,tp,LOCATION_GRAVE,0,nil,0x5880)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local sg=g:Select(tp,1,2,nil)
Duel.HintSelection(sg)
Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
end
end)
c:RegisterEffect(e3)
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(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return r==REASON_XYZ and c:GetReasonCard():GetOriginalRace()==RACE_PSYCHO
end)
e2:SetOperation(function(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:SetCategory(CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
if g:GetCount()>0 then
Duel.Destroy(g,REASON_EFFECT)
end
end)
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
end)
c:RegisterEffect(e2)
end
function cm.t1(c)
return c:IsSetCard(0x5880) and c:IsSSetable() and c:IsType(TYPE_SPELL)
end
--幻影旅团·3 玛奇
local m=45746003
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x5880),4,2)
c:EnableReviveLimit()
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,3))
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
end)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
local b1=Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
local b2=Duel.IsExistingMatchingCard(function(c)return c:IsFaceup() and c:IsSetCard(0x5880) and c:IsCanOverlay()end,tp,LOCATION_REMOVED,0,1,nil)
if chk==0 then return b1 or b2 end
local off=1
local ops,opval={},{}
if b1 then
ops[off]=aux.Stringid(m,0)
opval[off]=0
off=off+1
end
if b2 then
ops[off]=aux.Stringid(m,1)
opval[off]=1
off=off+1
end
local op=Duel.SelectOption(tp,table.unpack(ops))+1
local sel=opval[op]
e:SetLabel(sel)
if sel==0 then
e:SetCategory(CATEGORY_REMOVE)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,LOCATION_ONFIELD)
else
e:SetCategory(0)
end
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local sel=e:GetLabel()
if sel==0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
if g:GetCount()>0 then
Duel.HintSelection(g)
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end
else
if not c:IsRelateToEffect(e) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local g=Duel.SelectMatchingCard(tp,function(c)return c:IsFaceup() and c:IsSetCard(0x5880) and c:IsCanOverlay()end,tp,LOCATION_REMOVED,0,1,1,nil)
if g:GetCount()>0 then
Duel.Overlay(c,g)
end
end
end)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(m,4))
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,m)
e2:SetCost(function(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)
e2:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tf3,tp,LOCATION_DECK,0,1,nil,e:GetHandler()) end
end)
e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local c=e:GetHandler()
local g=Duel.SelectMatchingCard(tp,cm.tf3,tp,LOCATION_DECK,0,1,1,nil,c)
local tc=g:GetFirst()
if c:IsType(TYPE_XYZ) and tc:IsCanOverlay() then
Duel.Overlay(c,Group.FromCards(tc))
end
end)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)return r==REASON_XYZ end)
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
e:SetProperty(EFFECT_FLAG_EVENT_PLAYER+EFFECT_FLAG_IGNORE_IMMUNE)
local rc=c:GetReasonCard()
local reset_flag=RESET_EVENT+RESETS_STANDARD
local cid=rc:CopyEffect(m,reset_flag,1)
--Debug.Message(e:GetOwnerPlayer()==rc:GetControler())
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(reset_flag)
e1:SetCode(EFFECT_ADD_CODE)
e1:SetValue(m)
rc:RegisterEffect(e1,true)
rc:RegisterFlagEffect(0,reset_flag,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
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
e:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
end)
c:RegisterEffect(e3)
end
--e3
function cm.tf3(c,mc)
return c:IsSetCard(0x5880) and mc:IsType(TYPE_XYZ) and c:IsCanOverlay()
end
\ No newline at end of file
--幻影旅团·4 西索
local m=45746004
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_FLIP)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local sg=g:Select(tp,1,1,nil)
Duel.HintSelection(sg)
Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
end
end)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_REMOVE)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,m)
e2:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return e:GetHandler():IsFaceup()
end)
e2:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.t2,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp)end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
end)
e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(cm.t2,tp,LOCATION_DECK+LOCATION_HAND,0,nil,e,tp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.t2,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
end)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(m,0))
e3:SetType(EFFECT_TYPE_XMATERIAL+EFFECT_TYPE_QUICK_O)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetCountLimit(1)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetOriginalRace()==RACE_PSYCHO
end)
e3:SetCost(function(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)
e3:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and c:IsControler(1-tp) end
if chk==0 then return Duel.IsExistingTarget(nil,tp,0,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
local g=Duel.SelectTarget(tp,nil,tp,0,LOCATION_MZONE,1,1,nil)
end)
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsFaceup() then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CHANGE_ATTRIBUTE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(ATTRIBUTE_DARK)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_CHANGE_RACE)
e2:SetValue(RACE_PSYCHO)
tc:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
e3:SetCode(EFFECT_CHANGE_CODE)
e3:SetValue(m)
tc:RegisterEffect(e3)
end
end)
c:RegisterEffect(e3)
end
function cm.t2(c,e,tp)
return c:IsSetCard(0x5880) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
\ No newline at end of file
--幻影旅团·5 芬克斯
local m=45746005
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCountLimit(1,m)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetRange(LOCATION_HAND)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return eg:IsExists(function(c)return c:IsSetCard(0x5880) and not c:IsCode(m) and c:IsSummonPlayer(tp)end,1,nil)
end)
e1:SetTarget(function(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)
e1:SetOperation(function(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)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_REMOVE)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCountLimit(1,m+100)
e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return e:GetHandler():IsFaceup()
end)
e3:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_DECK,0,1,nil,m) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end)
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,Card.IsCode,tp,LOCATION_DECK,0,1,1,nil,m)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(m,0))
e4:SetCategory(CATEGORY_ATKCHANGE)
e4:SetType(EFFECT_TYPE_XMATERIAL+EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
e4:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()==tp and e:GetHandler():GetOriginalRace()==RACE_PSYCHO
end)
e4:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsFaceup() then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(1000)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e1)
end
end)
c:RegisterEffect(e4)
end
--幻影旅团·6 侠客
local m=45746006
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_PSYCHO),4,2)
c:EnableReviveLimit()
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_DISABLE+CATEGORY_CONTROL)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,m)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()==1-tp
end)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCost(function(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)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:GetLocation()==LOCATION_MZONE and chkc:GetControler()~=tp and cm.t1(chkc) end
if chk==0 then return Duel.IsExistingTarget(cm.t1,tp,0,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and Duel.GetControl(tc,tp,PHASE_END,1)~=0 and not tc:IsDisabled() and not tc:IsImmuneToEffect(e) then
Duel.NegateRelatedChain(tc,RESET_TURN_SET)
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
end)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(m,1))
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_CHAINING)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,m)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e2:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end
if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return end
local loc,tg=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION,CHAININFO_TARGET_CARDS)
if not tg or not tg:IsContains(c) then return false end
return Duel.IsChainDisablable(ev) and loc~=LOCATION_DECK
end)
e2:SetOperation(function(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_IMMUNE_EFFECT)
e1:SetValue(function(e,te)
return te:GetOwner()~=e:GetOwner()
end)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1)
end
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_PHASE+PHASE_END)
e2:SetCountLimit(1)
e2:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsLocation(LOCATION_MZONE)
end)
e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
Duel.SendtoHand(sg,nil,REASON_EFFECT)
end)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
end)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)return r==REASON_XYZ end)
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
e:SetProperty(EFFECT_FLAG_EVENT_PLAYER+EFFECT_FLAG_IGNORE_IMMUNE)
local rc=c:GetReasonCard()
local reset_flag=RESET_EVENT+RESETS_STANDARD
local cid=rc:CopyEffect(m,reset_flag,1)
--Debug.Message(e:GetOwnerPlayer()==rc:GetControler())
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(reset_flag)
e1:SetCode(EFFECT_ADD_CODE)
e1:SetValue(m)
rc:RegisterEffect(e1,true)
rc:RegisterFlagEffect(0,reset_flag,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
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
e:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
end)
c:RegisterEffect(e3)
end
function cm.t1(c)
return c:IsControlerCanBeChanged() and c:IsFaceup()
end
\ No newline at end of file
--幻影旅团·7 富兰克林
local m=45746007
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddCodeList(c,45746031)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,m)
e1:SetCost(function(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c:IsDiscardable() end
Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
end)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp,chk)
local tg=Duel.GetFirstMatchingCard(cm.filter,tp,LOCATION_DECK,0,nil)
if tg then
Duel.SendtoHand(tg,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tg)
end
end)
c:RegisterEffect(e1)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_REMOVE)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,m)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return e:GetHandler():IsFaceup()
end)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp,chk)
local tg=Duel.GetFirstMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,nil)
if tg then
Duel.SendtoHand(tg,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tg)
end
end)
c:RegisterEffect(e1)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_XMATERIAL)
e4:SetCode(EFFECT_ATTACK_ALL)
e4:SetValue(1)
e4:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetOriginalRace()==RACE_PSYCHO
end)
c:RegisterEffect(e4)
end
function cm.filter(c)
return c:IsCode(45746031) and c:IsAbleToHand()
end
\ No newline at end of file
--幻影旅团·8 小滴
local m=45746008
local cm=_G["c"..m]
function cm.initial_effect(c)
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)
e1:SetCondition(function(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return ft>-1 and Duel.IsExistingMatchingCard(cm.f1,tp,LOCATION_MZONE,0,1,nil,ft)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,cm.f1,tp,LOCATION_MZONE,0,1,1,nil,ft)
Duel.Remove(g,POS_FACEUP,REASON_COST)
end)
c:RegisterEffect(e1)
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(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return r==REASON_XYZ and c:GetReasonCard():GetOriginalRace()==RACE_PSYCHO
end)
e2:SetOperation(function(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,0))
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsType(TYPE_XYZ)and Duel.IsExistingMatchingCard(Card.IsType,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,nil,TYPE_MONSTER) end
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) then
local tc=Duel.SelectMatchingCard(tp,Card.IsType,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,1,nil,TYPE_MONSTER):GetFirst()
local og=tc:GetOverlayGroup()
if not tc:IsImmuneToEffect(e) and og:GetCount()>0 then
Duel.SendtoGrave(og,REASON_RULE)
end
Duel.Overlay(c,Group.FromCards(tc))
end
end)
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
end)
c:RegisterEffect(e2)
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_SUMMON)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_REMOVE)
e4:SetProperty(EFFECT_FLAG_DELAY)
e4:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return e:GetHandler():IsFaceup()
end)
e4:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.sf,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,tp,LOCATION_GRAVE)
end)
e4:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
local g=Duel.SelectMatchingCard(tp,cm.sf,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
local tc=g:GetFirst()
if tc then
Duel.Summon(tp,tc,true,nil)
end
end)
c:RegisterEffect(e4)
end
function cm.f1(c,ft)
return c:IsFaceup() and c:IsSetCard(0x5880) and c:IsAbleToRemoveAsCost() and not c:IsCode(m) and (ft>0 or c:GetSequence()<5)
end
function cm.sf(c)
return c:IsSetCard(0x5880) and c:IsSummonable(true,nil)
end
\ No newline at end of file
--幻影旅团·9 派克诺妲
local m=45746009
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tf1,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
e:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,cm.tf1,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)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCategory(CATEGORY_REMOVE)
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetCountLimit(1,m)
e2:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tf2,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED)
end)
e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,cm.tf2,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end
end)
c:RegisterEffect(e2)
local e3=e1:Clone()
e3:SetCategory(CATEGORY_CONTROL)
e3:SetCode(EVENT_REMOVE)
e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return e:GetHandler():IsFaceup()
end)
e3:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.f3,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
end)
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.EnableGlobalFlag(GLOBALFLAG_BRAINWASHING_CHECK)
local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,LOCATION_MZONE)
local tg=Group.CreateGroup()
local tc=g:GetFirst()
while tc do
if not tc:IsImmuneToEffect(e) and tc:GetFlagEffect(m)==0 then
tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
tg:AddCard(tc)
end
tc=g:GetNext()
end
tg:KeepAlive()
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_REMOVE_BRAINWASHING)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e1:SetTarget(aux.TargetEqualFunction(Card.GetFlagEffect,1,m))
e1:SetLabelObject(tg)
Duel.RegisterEffect(e1,tp)
--force adjust
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVED)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetLabelObject(e1)
Duel.RegisterEffect(e2,tp)
--reset
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_CHAIN_SOLVED)
e3:SetLabelObject(e2)
e3:SetLabel(Duel.GetChainInfo(0,CHAININFO_CHAIN_ID))
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)==e:GetLabel() then
local e2=e:GetLabelObject()
local e1=e2:GetLabelObject()
local tg=e1:GetLabelObject()
for tc in aux.Next(tg) do
tc:ResetFlagEffect(m)
end
tg:DeleteGroup()
e1:Reset()
e2:Reset()
e:Reset()
end
end)
Duel.RegisterEffect(e3,tp)
end)
c:RegisterEffect(e3)
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(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return r==REASON_XYZ and c:GetReasonCard():GetOriginalRace()==RACE_PSYCHO
end)
e2:SetOperation(function(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,0))
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsType(TYPE_XYZ) and Duel.IsExistingMatchingCard(Card.IsFacedown,tp,0,LOCATION_ONFIELD+LOCATION_HAND,1,nil) end
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD+LOCATION_HAND):Filter(Card.IsFacedown,nil)
if #g>0 then
Duel.ConfirmCards(tp,g)
end
end)
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
end)
c:RegisterEffect(e2)
end
--e1
function cm.tf1(c)
return c:IsSetCard(0x5880) and c:IsAbleToHand()
end
--e2
function cm.tf2(c)
return c:IsSetCard(0x5880) and c:IsAbleToRemove()
end
--e3
function cm.f3(c)
return c:GetControler()~=c:GetOwner()
end
\ No newline at end of file
--幻影旅团·10 剥落列夫
local m=45746010
local cm=_G["c"..m]
function cm.initial_effect(c)
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetCountLimit(1,m)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.t1,tp,LOCATION_HAND,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
end)
e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
local g=Duel.GetMatchingGroup(cm.t1,tp,LOCATION_HAND,0,nil,e,tp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.t1,tp,LOCATION_HAND,0,1,1,nil,e,tp)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
end)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_REMOVE)
e4:SetProperty(EFFECT_FLAG_DELAY)
e4:SetCountLimit(1,m+100)
e4:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return e:GetHandler():IsFaceup()
end)
e4:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.t1,tp,LOCATION_GRAVE,0,1,nil,e,tp)end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
end)
e4:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(cm.t1,tp,LOCATION_GRAVE,0,nil,e,tp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.t1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
end)
c:RegisterEffect(e4)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_XMATERIAL)
e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e3:SetCountLimit(1,m+EFFECT_COUNT_CODE_DUEL)
e3:SetValue(1)
e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetOriginalRace()==RACE_PSYCHO
end)
c:RegisterEffect(e3)
end
function cm.t1(c,e,tp)
return c:IsSetCard(0x5880) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
\ No newline at end of file
--幻影旅团·11 窝金
local m=45746011
local cm=_G["c"..m]
function cm.initial_effect(c)
c:EnableReviveLimit()
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)
e1:SetCondition(function(e,c)
if c==nil then return true end
local tp=c:GetControler()
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
return Duel.IsExistingMatchingCard(cm.f1,tp,LOCATION_REMOVED,0,1,nil,ft)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp,c)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,cm.f1,tp,LOCATION_REMOVED,0,1,1,nil,ft)
Duel.SendtoGrave(g,REASON_COST)
end)
c:RegisterEffect(e1)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_REMOVE)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return e:GetHandler():IsFaceup()
end)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToGrave() end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SendtoGrave(c,REASON_EFFECT)
end
end)
c:RegisterEffect(e1)
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCost(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():GetFlagEffect(m)==0 end
end)
e3:SetCost(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
if Duel.IsExistingMatchingCard(cm.cf2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then
return Duel.IsExistingMatchingCard(cm.cof3,tp,LOCATION_REMOVED,0,1,nil)and e:GetHandler():GetFlagEffect(m)<=1
else
return Duel.IsExistingMatchingCard(cm.cof3,tp,LOCATION_REMOVED,0,1,nil)and e:GetHandler():GetFlagEffect(m)==0
end
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,cm.cof3,tp,LOCATION_REMOVED,0,1,1,nil)
Duel.SendtoGrave(g,REASON_COST)
e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
end)
e3:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() end
if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
end)
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.Destroy(tc,REASON_EFFECT)
end
end)
c:RegisterEffect(e3)
end
function cm.f1(c,ft)
return c:IsFaceup() and c:IsSetCard(0x5880) and c:IsAbleToGraveAsCost() and ft>0
end
function cm.cof3(c)
return c:IsAbleToGraveAsCost() and c:IsSetCard(0x5880) and c:IsType(TYPE_MONSTER)
end
function cm.cf2(c)
return c:IsFaceup() and c:IsCode(45746031)
end
\ No newline at end of file
--幻影旅团·12 库哔
local m=45746012
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.t2,tp,LOCATION_REMOVED,0,1,nil,e,tp)end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(cm.t2,tp,LOCATION_REMOVED,0,nil,e,tp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.t2,tp,LOCATION_REMOVED,0,1,1,nil,e,tp)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
end)
c:RegisterEffect(e1)
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_DRAW)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_REMOVE)
e4:SetCountLimit(1,m)
e4:SetProperty(EFFECT_FLAG_DELAY)
e4:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return e:GetHandler():IsFaceup()
end)
e4:SetTarget(function(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)
e4:SetOperation(function(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)
c:RegisterEffect(e4)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(m,0))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_XMATERIAL+EFFECT_TYPE_IGNITION)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetCountLimit(1)
e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetOriginalRace()==RACE_PSYCHO
end)
e3:SetCost(function(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)
e3:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and cm.g1(chkc,e,tp) end
if chk==0 then return Duel.IsExistingTarget(cm.g1,tp,0,LOCATION_GRAVE,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
local g=Duel.SelectTarget(tp,cm.g1,tp,0,LOCATION_GRAVE,1,1,nil,e,tp)
if g:GetFirst():IsType(TYPE_MONSTER) then
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
else
Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
end
end)
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if not tc:IsRelateToEffect(e) then return end
if tc:IsType(TYPE_MONSTER) then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
elseif (tc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) then
Duel.SSet(tp,tc)
end
end)
c:RegisterEffect(e3)
end
function cm.t2(c,e,tp)
return c:IsSetCard(0x5880) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsFaceup()
end
function cm.g1(c,e,tp)
if c:IsType(TYPE_MONSTER) then
return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
else
local ct=Duel.GetLocationCount(tp,LOCATION_SZONE)
if e:IsHasType(EFFECT_TYPE_ACTIVATE) and not e:GetHandler():IsLocation(LOCATION_SZONE) then ct=ct-1 end
return c:IsSSetable(true) and (c:IsType(TYPE_FIELD) or ct>0)
end
end
\ No newline at end of file
--H×H 杰
function c45746013.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(45746013,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCountLimit(1,45746013)
e1:SetTarget(c45746013.sptg)
e1:SetOperation(c45746013.spop)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(45746013,1))
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_BE_MATERIAL)
e2:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e2:SetCondition(c45746013.effcon)
e2:SetOperation(c45746013.effop)
c:RegisterEffect(e2)
end
--e1
function c45746013.spfilter(c,e,tp)
return c:IsSetCard(0x880) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) and not c:IsCode(45746013)
end
function c45746013.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c45746013.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
end
function c45746013.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c45746013.spfilter,tp,LOCATION_HAND+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
local e5=Effect.CreateEffect(e:GetHandler())
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e5:SetTargetRange(1,0)
e5:SetTarget(c45746013.splimit)
e5:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e5,tp)
end
function c45746013.splimit(e,c)
return not c:IsRace(RACE_PSYCHO)
end
--e2
function c45746013.effcon(e,tp,eg,ep,ev,re,r,rp)
return bit.band(r,REASON_SYNCHRO+REASON_XYZ+REASON_LINK)~=0 and e:GetHandler():GetReasonCard():IsSetCard(0x880)
end
function c45746013.effop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=c:GetReasonCard()
local e1=Effect.CreateEffect(rc)
e1:SetDescription(aux.Stringid(45746013,2))
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(TIMING_DAMAGE_STEP)
e1:SetCategory(CATEGORY_ATKCHANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCountLimit(1)
e1:SetOperation(c45746013.atkop)
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+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(45746013,1))
end
function c45746013.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_SET_ATTACK_FINAL)
e1:SetValue(c:GetBaseAttack()*2)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1)
end
end
\ No newline at end of file
--H×H 奇犽
function c45746014.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(45746014,0))
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCountLimit(1,45746014)
e1:SetTarget(c45746014.settg)
e1:SetOperation(c45746014.setop)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(45746014,1))
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_BE_MATERIAL)
e2:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e2:SetCondition(c45746014.effcon)
e2:SetOperation(c45746014.effop)
c:RegisterEffect(e2)
end
function c45746014.setfilter(c)
return c:IsSetCard(0x880) and (c:IsType(TYPE_TRAP) or c:IsType(TYPE_SPELL)) and c:IsSSetable()
end
function c45746014.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c45746014.setfilter,tp,LOCATION_DECK,0,1,nil) end
end
function c45746014.setop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,c45746014.setfilter,tp,LOCATION_DECK,0,1,1,nil)
local tc=g:GetFirst()
if tc then
Duel.SSet(tp,tc)
Duel.ConfirmCards(1-tp,tc)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
tc:RegisterEffect(e2)
end
end
--e2
function c45746014.effcon(e,tp,eg,ep,ev,re,r,rp)
return bit.band(r,REASON_SYNCHRO+REASON_XYZ+REASON_LINK)~=0 and e:GetHandler():GetReasonCard():IsSetCard(0x880)
end
function c45746014.effop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=c:GetReasonCard()
local e3=Effect.CreateEffect(rc)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1)
e3:SetTarget(c45746014.batg)
e3:SetOperation(c45746014.baop)
c:RegisterEffect(e3)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e3,true)
if not rc:IsType(TYPE_EFFECT) then
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EFFECT_ADD_TYPE)
e4:SetValue(TYPE_EFFECT)
e4:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e4,true)
end
rc:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(45746014,1))
end
function c45746014.batg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local c=e:GetHandler()
if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) end
if chk==0 then return c:IsAttackable()
and Duel.IsExistingTarget(nil,tp,0,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO)
local g=Duel.SelectTarget(tp,nil,tp,0,LOCATION_MZONE,1,1,nil)
end
function c45746014.baop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsAttackable() and c:IsControler(tp) and c:IsFaceup() and c:IsRelateToEffect(e) then
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local tc=g:GetFirst()
if tc:IsControler(1-tp) and tc:IsRelateToEffect(e) then
Duel.CalculateDamage(c,tc)
end
end
end
--H×H 酷拉皮卡
function c45746015.initial_effect(c)
c:EnableReviveLimit()
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_PSYCHO),2,2)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(45746015,0))
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCountLimit(1,45746015)
e1:SetTarget(c45746015.shtg)
e1:SetOperation(c45746015.shop)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(45746015,1))
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetCountLimit(1)
e2:SetRange(LOCATION_MZONE)
e2:SetCost(c45746015.cost)
e2:SetTarget(c45746015.chtg)
e2:SetOperation(c45746015.chop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(45746015,2))
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(c45746015.effcon)
e3:SetOperation(c45746015.effop)
c:RegisterEffect(e3)
end
--e1
function c45746015.filter(c)
return c:IsSetCard(0x880) and c:IsAbleToHand()
end
function c45746015.shtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c45746015.filter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c45746015.shop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c45746015.filter,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
--e2
function c45746015.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLPCost(tp,1000) end
Duel.PayLPCost(tp,1000)
end
function c45746015.filter1(c)
return c:IsFaceup() and c:IsSetCard(0x5880) and c:IsDestructable()
end
function c45746015.chtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c45746015.filter1,rp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
end
function c45746015.chop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectMatchingCard(tp,c45746015.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
if g:GetCount()>0 then
Duel.Destroy(g,REASON_EFFECT)
end
end
--e3
function c45746015.effcon(e,tp,eg,ep,ev,re,r,rp)
return bit.band(r,REASON_SYNCHRO+REASON_XYZ+REASON_LINK)~=0 and e:GetHandler():GetReasonCard():IsSetCard(0x880)
end
function c45746015.effop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=c:GetReasonCard()
local e1=Effect.CreateEffect(rc)
e1:SetDescription(aux.Stringid(45746015,2))
e1:SetCategory(CATEGORY_DISABLE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1)
e1:SetRange(LOCATION_MZONE)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e1:SetCost(c45746015.descost)
e1:SetTarget(c45746015.destg)
e1:SetOperation(c45746015.desop)
c:RegisterEffect(e1)
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+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(45746015,2))
end
function c45746015.descost(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 c45746015.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and aux.disfilter1(chkc) end
if chk==0 then return Duel.IsExistingMatchingCard(aux.disfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
end
function c45746015.desop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(aux.disfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(45746015,3))
local tc=g:Select(tp,1,1,nil)
local sg=tc:GetFirst()
Duel.HintSelection(tc)
if ((sg:IsFaceup() and not sg:IsDisabled()) or sg:IsType(TYPE_TRAPMONSTER)) then
Duel.NegateRelatedChain(sg,RESET_TURN_SET)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e4:SetCode(EFFECT_DISABLE)
e4:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
sg:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e5:SetCode(EFFECT_DISABLE_EFFECT)
e5:SetValue(RESET_TURN_SET)
e5:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
sg:RegisterEffect(e5)
if sg:IsType(TYPE_TRAPMONSTER) then
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_SINGLE)
e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e6:SetCode(EFFECT_DISABLE_TRAPMONSTER)
e6:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
sg:RegisterEffect(e6)
end
end
end
end
\ No newline at end of file
--H×H 雷欧力
function c45746016.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x880),2,true)
aux.AddContactFusionProcedure(c,Card.IsAbleToRemoveAsCost,LOCATION_ONFIELD+LOCATION_GRAVE,0,Duel.Remove,POS_FACEUP,REASON_COST)
--spsummon condition
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(c45746016.splimit)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(45746016,0))
e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetCountLimit(1,45746016)
e2:SetTarget(c45746016.thtg)
e2:SetOperation(c45746016.thop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(45746016,1))
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(c45746016.effcon)
e3:SetOperation(c45746016.effop)
c:RegisterEffect(e3)
end
function c45746016.splimit(e,se,sp,st)
return e:GetHandler():GetLocation()~=LOCATION_EXTRA
end
--e2
function c45746016.thfilter(c)
return c:IsCode(45746032) and c:IsAbleToHand()
end
function c45746016.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c45746016.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
end
function c45746016.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c45746016.thfilter),tp,LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
--e3
function c45746016.effcon(e,tp,eg,ep,ev,re,r,rp)
return bit.band(r,REASON_SYNCHRO+REASON_XYZ+REASON_LINK)~=0 and e:GetHandler():GetReasonCard():IsSetCard(0x880)
end
function c45746016.effop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=c:GetReasonCard()
local e1=Effect.CreateEffect(rc)
e1:SetDescription(aux.Stringid(45746016,0))
e1:SetCategory(CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1)
e1:SetTarget(c45746016.destg)
e1:SetOperation(c45746016.desop)
c:RegisterEffect(e1)
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+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(45746016,1))
end
function c45746016.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() end
if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
end
function c45746016.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
--幻影旅团·流星街
local m=45746031
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(function(c)return c:IsSetCard(0x5880) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER)end,tp,LOCATION_DECK,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)
c:RegisterEffect(e1)
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_REMOVE)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_FZONE)
e3:SetCountLimit(1,m)
e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
end)
e3:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.t3,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,0)
end)
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.SelectMatchingCard(tp,cm.t3,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end
end)
c:RegisterEffect(e3)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
e2:SetRange(LOCATION_FZONE)
e2:SetCode(EFFECT_TO_GRAVE_REDIRECT)
e2:SetTargetRange(0xff,0xff)
e2:SetTarget(function(e,c)
return c:IsSetCard(0x5880)
end)
e2:SetValue(LOCATION_REMOVED)
c:RegisterEffect(e2)
end
function cm.t3(c)
return c:IsSetCard(0x5880) and c:IsAbleToRemove() and c:IsType(TYPE_MONSTER)
end
\ No newline at end of file
--HxH 友客鑫市
local m=45746032
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(function(c)return c:IsCode(45746013) and c:IsAbleToHand() end,tp,LOCATION_DECK,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)
c:RegisterEffect(e1)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_FZONE)
e1:SetCountLimit(1)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetFlagEffect(tp,m)==0
end)
e1:SetCost(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLPCost(tp,500) end
Duel.PayLPCost(tp,500)
end)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanSummon(tp) and Duel.IsPlayerCanAdditionalSummon(tp) end
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetDescription(aux.Stringid(m,1))
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
e1:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0)
e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x880))
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,0)
e1:SetTarget(function(e,c)
return not c:IsRace(RACE_PSYCHO)
end)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=e1:Clone()
e2:SetCode(EFFECT_CANNOT_SUMMON)
Duel.RegisterEffect(e2,tp)
end)
c:RegisterEffect(e1)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsPreviousLocation(LOCATION_FZONE)
end)
e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp,chk)
return eg:IsExists(function(c)return c:IsSetCard(0x5880) and not c:IsCode(m) and c:IsSummonPlayer(tp)end,1,nil)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.Recover(tp,500,REASON_EFFECT)
end)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
Duel.RegisterEffect(e2,tp)
end)
c:RegisterEffect(e3)
end
--幻影旅团·镇魂协奏曲 前奏曲
local m=45746033
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:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
end
function cm.filter(c)
return c:IsSetCard(0x5880) and c:IsAbleToHand()
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return (Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,2,nil) and Duel.GetMatchingGroupCount(nil,tp,LOCATION_DECK,0,nil)%2==0) or (Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) and Duel.GetMatchingGroupCount(nil,tp,LOCATION_DECK,0,nil)%2~=0) end
if Duel.GetMatchingGroupCount(nil,tp,LOCATION_DECK,0,nil)%2==0 then
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK)
else
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
if not ((Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,2,nil) and Duel.GetMatchingGroupCount(nil,tp,LOCATION_DECK,0,nil)%2==0) or (Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) and Duel.GetMatchingGroupCount(nil,tp,LOCATION_DECK,0,nil)%2~=0)) then return end
local g
if Duel.GetMatchingGroupCount(nil,tp,LOCATION_DECK,0,nil)%2==0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,2,2,nil)
else
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
end
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
--幻影旅团·镇魂协奏曲 第一乐章
function c45746034.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,45746034+EFFECT_COUNT_CODE_OATH)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(45746034,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetCountLimit(1)
e2:SetRange(LOCATION_SZONE)
e2:SetTarget(c45746034.target)
e2:SetOperation(c45746034.operation)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_UPDATE_ATTACK)
e3:SetRange(LOCATION_SZONE)
e3:SetTargetRange(LOCATION_MZONE,0)
e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x5880))
e3:SetValue(c45746034.atkval)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_CHAIN_SOLVING)
e4:SetRange(LOCATION_SZONE)
e4:SetCondition(c45746034.discon)
e4:SetOperation(c45746034.disop)
c:RegisterEffect(e4)
local e6=Effect.CreateEffect(c)
e6:SetDescription(aux.Stringid(45746034,1))
e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e6:SetProperty(EFFECT_FLAG_DELAY)
e6:SetRange(LOCATION_SZONE)
e6:SetCode(EVENT_REMOVE)
e6:SetCountLimit(1,45746034)
e6:SetTarget(c45746034.sptg)
e6:SetOperation(c45746034.spop)
c:RegisterEffect(e6)
end
--e2
function c45746034.filter(c,e,tp)
return c:IsSetCard(0x5880) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP)
end
function c45746034.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c45746034.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
end
function c45746034.operation(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,c45746034.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
--e3
function c45746034.atkvalfilter(c)
return c:IsFaceup() and c:IsSetCard(0x5880)
end
function c45746034.atkval(e,c)
local tp=e:GetHandler():GetControler()
local g=Duel.GetMatchingGroup(c45746034.atkvalfilter,tp,LOCATION_REMOVED,0,nil)
return g:GetClassCount(Card.GetCode)*200
end
--e4
function c45746034.cfilter(c,seq2)
local seq1=aux.MZoneSequence(c:GetSequence())
return c:IsFaceup() and c:IsSetCard(0x58805555555) and seq1==4-seq2
end
function c45746034.discon(e,tp,eg,ep,ev,re,r,rp)
local loc,seq=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION,CHAININFO_TRIGGERING_SEQUENCE)
seq=aux.MZoneSequence(seq)
return rp==1-tp and re:IsActiveType(TYPE_MONSTER) and loc==LOCATION_MZONE
and Duel.IsExistingMatchingCard(c45746034.cfilter,tp,LOCATION_MZONE,0,1,nil,seq)
end
function c45746034.disop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,45746034)
Duel.NegateEffect(ev)
end
--e5
function c45746034.spfilter1(c,e,tp)
return c:IsCode(45746035) and not c:IsType(TYPE_FIELD+TYPE_MONSTER) and not c:IsForbidden() and c:CheckUniqueOnField(tp)
end
function c45746034.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
if e:IsHasType(EFFECT_TYPE_ACTIVATE) and not e:GetHandler():IsLocation(LOCATION_SZONE) then ft=ft-1 end
return ft>0 and Duel.IsExistingMatchingCard(c45746034.spfilter1,tp,LOCATION_DECK,0,1,nil,tp)
end
end
function c45746034.spop(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 tc=Duel.SelectMatchingCard(tp,c45746034.spfilter1,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
if tc then
Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
end
end
\ No newline at end of file
--幻影旅团·镇魂协奏曲 第二乐章
function c45746035.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMING_END_PHASE)
c:RegisterEffect(e1)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(45746035,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetHintTiming(0,TIMING_END_PHASE)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1,45746035)
e2:SetTarget(c45746035.sptg)
e2:SetOperation(c45746035.spop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_CHAIN_SOLVING)
e3:SetRange(LOCATION_SZONE)
e3:SetCondition(c45746035.discon)
e3:SetOperation(c45746035.disop)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetCode(EFFECT_UPDATE_ATTACK)
e4:SetRange(LOCATION_SZONE)
e4:SetTargetRange(LOCATION_MZONE,0)
e4:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x5880))
e4:SetValue(c45746035.atkval)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(45746035,1))
e5:SetCategory(CATEGORY_TOHAND)
e5:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e5:SetRange(LOCATION_SZONE)
e5:SetCountLimit(1,45746035)
e5:SetCode(EVENT_SPSUMMON_SUCCESS)
e5:SetProperty(EFFECT_FLAG_DELAY)
e5:SetCondition(c45746035.spcon1)
e5:SetTarget(c45746035.thtg)
e5:SetOperation(c45746035.thop)
c:RegisterEffect(e5)
end
--e2
function c45746035.spfilter(c,e,tp)
return c:IsSetCard(0x5880) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c45746035.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c45746035.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED)
end
function c45746035.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,c45746035.spfilter,tp,LOCATION_REMOVED,0,1,1,e:GetHandler(),e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
--e3
function c45746035.cfilter(c,seq2)
local seq1=aux.MZoneSequence(c:GetSequence())
return c:IsFaceup() and c:IsSetCard(0x588088888) and seq1==4-seq2
end
function c45746035.discon(e,tp,eg,ep,ev,re,r,rp)
local loc,seq=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION,CHAININFO_TRIGGERING_SEQUENCE)
return rp==1-tp and re:IsActiveType(TYPE_SPELL) and loc&LOCATION_SZONE==LOCATION_SZONE and seq<=4
and Duel.IsExistingMatchingCard(c45746035.cfilter,tp,LOCATION_MZONE,0,1,nil,seq)
end
function c45746035.disop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,45746035)
Duel.NegateEffect(ev)
end
--e4
function c45746035.atkvalfilter(c)
return c:IsFaceup() and c:IsSetCard(0x5880)
end
function c45746035.atkval(e,c)
local tp=e:GetHandler():GetControler()
local g=Duel.GetMatchingGroup(c45746035.atkvalfilter,tp,LOCATION_REMOVED,0,nil)
return g:GetClassCount(Card.GetCode)*200
end
--e5
function c45746035.cfilter1(c)
return c:IsFaceup() and c:IsType(TYPE_XYZ)
end
function c45746035.spcon1(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c45746035.cfilter1,1,nil)
end
function c45746035.thfilter(c)
return c:IsAbleToHand() and c:IsSetCard(0x5880) and c:IsFaceup()
end
function c45746035.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c45746035.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED)
end
function c45746035.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c45746035.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
if #g>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
end
end
\ No newline at end of file
--幻影旅团·镇魂协奏曲 终章
function c45746036.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e1:SetCondition(c45746036.handcon)
c:RegisterEffect(e1)
--disable
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DISABLE)
e2:SetType(EFFECT_TYPE_ACTIVATE)
e2:SetCode(EVENT_CHAINING)
e2:SetCountLimit(1,45746036+EFFECT_COUNT_CODE_OATH)
e2:SetCondition(c45746036.discon)
e2:SetTarget(c45746036.distg)
e2:SetOperation(c45746036.disop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(45746036,0))
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetRange(LOCATION_REMOVED)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetType(EFFECT_TYPE_ACTIVATE)
e3:SetCountLimit(1,45746036+EFFECT_COUNT_CODE_DUEL)
e3:SetCondition(c45746036.eqcon)
e3:SetCost(c45746036.cost)
e3:SetTarget(c45746036.settg)
e3:SetOperation(c45746036.setop)
c:RegisterEffect(e3)
end
--e1e2
function c45746036.filter(c)
return c:IsFaceup() and c:IsCode(45746000)
end
function c45746036.handcon(e)
return Duel.IsExistingMatchingCard(c45746036.filter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil)
end
function c45746036.cfilter(c)
return c:IsFaceup() and c:IsSetCard(0xaf93) and c:IsType(TYPE_MONSTER)
end
function c45746036.discon(e,tp,eg,ep,ev,re,r,rp)
if not Duel.IsChainDisablable(ev) then return false end
local te,p=Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
return ((te and p==tp and rp==1-tp) or ( rp==1-tp and tp==Duel.GetTurnPlayer()))
and Duel.IsExistingMatchingCard(c45746036.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c45746036.distg(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():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
end
end
function c45746036.filter2(c)
return c:IsFaceup() and c:IsType(TYPE_XYZ)
end
function c45746036.disop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=re:GetHandler()
if Duel.NegateActivation(ev) and rc:IsRelateToEffect(re) then
if not Duel.IsExistingMatchingCard(c45746036.filter2,tp,LOCATION_MZONE,0,1,nil) then
Duel.Destroy(eg,REASON_EFFECT) end
if Duel.IsExistingMatchingCard(c45746036.filter2,tp,LOCATION_MZONE,0,1,nil) and
Duel.SelectYesNo(tp,aux.Stringid(45746036,0)) then
local xyzg=Duel.GetMatchingGroup(c45746036.filter2,tp,LOCATION_MZONE,0,nil,g)
if xyzg:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
local xyz=xyzg:Select(tp,1,1,nil):GetFirst()
rc:CancelToGrave()
c:CancelToGrave()
Duel.Overlay(xyz,c)
Duel.Overlay(xyz,Group.FromCards(rc))
else
Duel.Destroy(eg,REASON_EFFECT)
end
end
end
end
--e3
function c45746036.eqcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c45746036.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() and e:GetHandler():IsFaceup() end
Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_RETURN)
end
function c45746036.setfilter(c)
return c:IsSetCard(0x5880) and c:IsType(TYPE_TRAP) and c:IsSSetable()
end
function c45746036.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c45746036.setfilter,tp,LOCATION_DECK,0,1,nil) end
end
function c45746036.setop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,c45746036.setfilter,tp,LOCATION_DECK,0,1,1,nil)
local tc=g:GetFirst()
if tc then
Duel.SSet(tp,tc)
Duel.ConfirmCards(1-tp,tc)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
tc:RegisterEffect(e2)
end
end
\ No newline at end of file
--幻影旅团 拍卖会
function c45746037.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,45746037+EFFECT_COUNT_CODE_OATH)
e1:SetTarget(c45746037.target)
e1:SetOperation(c45746037.activate)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOHAND)
e2:SetDescription(aux.Stringid(45746037,1))
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetRange(LOCATION_REMOVED)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetCountLimit(1,45746137)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCost(c45746037.cost)
e2:SetTarget(c45746037.thtg)
e2:SetOperation(c45746037.thop)
c:RegisterEffect(e2)
end
function c45746037.spfilter1(c,e,tp)
return c:IsSetCard(0x5880) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCanBeEffectTarget(e)
end
function c45746037.fselect1(g,tp)
return Duel.IsExistingMatchingCard(c45746037.synfilter,tp,LOCATION_EXTRA,0,1,nil,g) and aux.dncheck(g)
end
function c45746037.synfilter(c,g)
return c:IsSetCard(0x5880) and c:IsSynchroSummonable(nil,g,g:GetCount()-1,g:GetCount()-1)
end
function c45746037.fselect2(g,tp)
return Duel.IsExistingMatchingCard(c45746037.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,g) and aux.dncheck(g)
end
function c45746037.xyzfilter(c,g)
return c:IsSetCard(0x5880) and c:IsXyzSummonable(g,g:GetCount(),g:GetCount())
end
function c45746037.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return false end
local ft=math.min((Duel.GetLocationCount(tp,LOCATION_MZONE)),3)
local g=Duel.GetMatchingGroup(c45746037.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e,tp)
local b1=g:CheckSubGroup(c45746037.fselect1,1,ft,tp)
local b2=g:CheckSubGroup(c45746037.fselect2,1,ft,tp)
if chk==0 then return ft>0 and Duel.IsPlayerCanSpecialSummonCount(tp,2)
and not Duel.IsPlayerAffectedByEffect(tp,59822133) and (b1 or b2) end
local op=0
if b1 and b2 then
op=Duel.SelectOption(tp,aux.Stringid(45746037,0),aux.Stringid(45746037,1))
elseif b1 then
op=Duel.SelectOption(tp,aux.Stringid(45746037,0))
else
op=Duel.SelectOption(tp,aux.Stringid(45746037,1))+1
end
e:SetLabel(op)
local sg=nil
if op==0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
sg=g:SelectSubGroup(tp,c45746037.fselect1,false,1,ft,tp)
else
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
sg=g:SelectSubGroup(tp,c45746037.fselect2,false,1,ft,tp)
end
Duel.SetTargetCard(sg)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg,sg:GetCount(),0,0)
end
function c45746037.spfilter2(c,e,tp)
return c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c45746037.activate(e,tp,eg,ep,ev,re,r,rp)
local op=e:GetLabel()
if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c45746037.spfilter2,nil,e,tp)
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)
tc:RegisterEffect(e2)
tc=g:GetNext()
end
Duel.SpecialSummonComplete()
local og=Duel.GetOperatedGroup()
Duel.RaiseEvent(e:GetHandler(),EVENT_ADJUST,nil,0,PLAYER_NONE,PLAYER_NONE,0)
if og:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)<g:GetCount() then return end
if op==0 then
local tg=Duel.GetMatchingGroup(c45746037.synfilter,tp,LOCATION_EXTRA,0,nil,og)
if og:GetCount()==g:GetCount() and tg:GetCount()>0 then
local tc=og:GetFirst()
while tc do
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_IGNORE_IMMUNE)
e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
e3:SetValue(LOCATION_DECKBOT)
tc:RegisterEffect(e3)
tc=og:GetNext()
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local rg=tg:Select(tp,1,1,nil)
Duel.SynchroSummon(tp,rg:GetFirst(),nil,og,og:GetCount()-1,og:GetCount()-1)
end
else
local tg=Duel.GetMatchingGroup(c45746037.xyzfilter,tp,LOCATION_EXTRA,0,nil,og)
if og:GetCount()==g:GetCount() and tg:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local rg=tg:Select(tp,1,1,nil)
Duel.XyzSummon(tp,rg:GetFirst(),og,og:GetCount(),og:GetCount())
end
end
end
--e2
function c45746037.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() and e:GetHandler():IsFaceup() end
Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_RETURN)
end
function c45746037.thfilter(c)
return c:IsAbleToHand() and c:IsSetCard(0x5880) and c:IsFaceup()
end
function c45746037.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c45746037.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED)
end
function c45746037.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c45746037.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
if #g>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
end
end
--H×H 绝对时间
local m = 45746038
local cm= _G["c"..m]
function c45746038.initial_effect(c)
--Activate(summon)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCountLimit(1,m)
e1:SetTarget(cm.target2)
e1:SetOperation(cm.activate2)
c:RegisterEffect(e1)
local e3=e1:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e3)
--Activate(effect)
end
function cm.condition2(e,tp,eg,ep,ev,re,r,rp)
return re:IsActiveType(TYPE_SPELL+TYPE_TRAP)
end
function cm.filter(c,e,tp)
return c:IsSetCard(0x880) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.target2(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+LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
end
function cm.activate2(e,tp,eg,ep,ev,re,r,rp)
local tn=eg:GetFirst()
while tn do
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tn:RegisterEffect(e1)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
tn:RegisterEffect(e2)
tn=eg:GetNext()
end
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+LOCATION_GRAVE,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
\ No newline at end of file
--创刻-仙崎秀哉
function c67200050.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,67200050)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_END_PHASE)
e1:SetCondition(c67200050.spcon)
e1:SetTarget(c67200050.sptg)
e1:SetOperation(c67200050.spop)
c:RegisterEffect(e1)
--blood counter
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(67200050,1))
e2:SetCategory(CATEGORY_COUNTER)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_TO_GRAVE)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e2:SetOperation(c67200050.cop)
c:RegisterEffect(e2)
end
--
function c67200050.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c67200050.filter1(c,e)
return c:IsLocation(LOCATION_HAND) and not c:IsImmuneToEffect(e)
end
function c67200050.filter2(c,e,tp,m,f,gc,chkf)
return c:IsType(TYPE_FUSION) and c:IsSetCard(0x673) and (not f or f(c))
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c67200050.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsLocation,nil,LOCATION_HAND)
local res=Duel.IsExistingMatchingCard(c67200050.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c,chkf)
if not res then
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
local mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
res=Duel.IsExistingMatchingCard(c67200050.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c,chkf)
end
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c67200050.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local chkf=tp
if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end
local mg1=Duel.GetFusionMaterial(tp):Filter(c67200050.filter1,nil,e)
local sg1=Duel.GetMatchingGroup(c67200050.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c,chkf)
local mg2=nil
local sg2=nil
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
sg2=Duel.GetMatchingGroup(c67200050.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c,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,c,chkf)
tc:SetMaterial(mat1)
Duel.SendtoGrave(mat1,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,mg2,c,chkf)
local fop=ce:GetOperation()
fop(ce,e,tp,tc,mat2)
end
tc:CompleteProcedure()
end
end
--blood counter
function c67200050.cfilter(c)
return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsCanAddCounter(0x1673,1)
end
function c67200050.cop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c67200050.cfilter,tp,0,LOCATION_MZONE,nil)
local tc=g:GetFirst()
while tc do
tc:AddCounter(0x1673,1)
if tc:IsAttackAbove(300) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCondition(c67200050.lvcon)
e1:SetValue(-300)
tc:RegisterEffect(e1)
end
tc=g:GetNext()
end
end
function c67200050.lvcon(e)
return e:GetHandler():GetCounter(0x1673)>0
end
--创刻-仙崎秀哉『浴血之时』
function c67200051.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCodeFun(c,67200050,aux.FilterBoolFunction(Card.IsFusionType,TYPE_EFFECT),1,true,true)
--fusion success
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(67200051,0))
e1:SetCategory(CATEGORY_COUNTER)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCountLimit(67200051,1)
e1:SetTarget(c67200051.addct)
e1:SetOperation(c67200051.addc)
c:RegisterEffect(e1)
--atkdown
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e2:SetTarget(c67200051.atktg)
e2:SetValue(c67200051.atkval)
c:RegisterEffect(e2)
end
--
function c67200051.addct(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,3,0,0x1673)
end
function c67200051.addc(e,tp,eg,ep,ev,re,r,rp)
if e:GetHandler():IsRelateToEffect(e) then
e:GetHandler():AddCounter(0x1673,3)
end
end
--
function c67200051.atktg(e,c)
return not c:IsSetCard(0x673)
end
function c67200051.atkval(e,c)
return Duel.GetCounter(0,1,1,0x1673)*-300
end
--创刻-仙崎秀哉『血之操控』
function c67200052.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:SetHintTiming(0,TIMING_STANDBY_PHASE+TIMINGS_CHECK_MONSTER)
e1:SetCountLimit(1,67200052+EFFECT_COUNT_CODE_OATH)
e1:SetOperation(c67200052.activate)
c:RegisterEffect(e1)
--negate
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(67200052,0))
e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e2:SetCode(EVENT_CHAINING)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetCondition(c67200052.condition)
e2:SetCost(c67200052.cost)
e2:SetTarget(c67200052.target)
e2:SetOperation(c67200052.operation)
c:RegisterEffect(e2)
--blood counter
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(67200052,1))
e3:SetCategory(CATEGORY_COUNTER)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e3:SetOperation(c67200052.cop)
c:RegisterEffect(e3)
end
function c67200052.filter(c)
return c:IsCode(67200050) and c:IsAbleToHand()
end
function c67200052.activate(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(c67200052.filter,tp,LOCATION_DECK,0,nil)
if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(67200052,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 c67200052.condition(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return rp==1-tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
end
function c67200052.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x1673,2,REASON_COST) end
Duel.RemoveCounter(tp,1,1,0x1673,2,REASON_COST)
end
function c67200052.target(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():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
end
end
function c67200052.operation(e,tp,eg,ep,ev,re,r,rp)
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
Duel.Destroy(eg,REASON_EFFECT)
end
end
--blood counter
function c67200052.cfilter(c)
return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsCanAddCounter(0x1673,1)
end
function c67200052.cop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c67200052.cfilter,tp,0,LOCATION_MZONE,nil)
local tc=g:GetFirst()
while tc do
tc:AddCounter(0x1673,1)
tc=g:GetNext()
end
end
--创刻-仙崎美来
function c67200053.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,67200053)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_END_PHASE)
e1:SetCondition(c67200053.spcon)
e1:SetTarget(c67200053.sptg)
e1:SetOperation(c67200053.spop)
c:RegisterEffect(e1)
--indes
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(c67200053.indcon)
e2:SetOperation(c67200053.indop)
c:RegisterEffect(e2)
end
--
function c67200053.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c67200053.filter0(c)
return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
end
function c67200053.filter1(c,e)
return c:IsLocation(LOCATION_HAND+LOCATION_MZONE) and not c:IsImmuneToEffect(e)
end
function c67200053.filter2(c,e,tp,m,f,gc,chkf)
return c:IsType(TYPE_FUSION) and c:IsSetCard(0x5673) and (not f or f(c))
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c67200053.cfilter(c)
return c:IsSummonLocation(LOCATION_EXTRA)
end
function c67200053.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp)
if Duel.IsExistingMatchingCard(c67200053.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200053.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local res=Duel.IsExistingMatchingCard(c67200053.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c,chkf)
if not res then
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
local mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
res=Duel.IsExistingMatchingCard(c67200053.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c,chkf)
end
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c67200053.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local chkf=tp
if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end
local mg1=Duel.GetFusionMaterial(tp):Filter(c67200053.filter1,nil,e)
if Duel.IsExistingMatchingCard(c67200053.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200053.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local sg1=Duel.GetMatchingGroup(c67200053.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c,chkf)
local mg2=nil
local sg2=nil
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
sg2=Duel.GetMatchingGroup(c67200053.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c,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,c,chkf)
tc:SetMaterial(mat1)
Duel.SendtoGrave(mat1,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,mg2,c,chkf)
local fop=ce:GetOperation()
fop(ce,e,tp,tc,mat2)
end
tc:CompleteProcedure()
end
end
--
function c67200053.indcon(e,tp,eg,ep,ev,re,r,rp)
return r==REASON_FUSION and e:GetHandler():GetReasonCard():IsSetCard(0x673)
end
function c67200053.indop(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(67200053,1))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1,true)
end
--创刻-仙崎美来『浴血之时』
function c67200054.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCodeFun(c,67200053,aux.FilterBoolFunction(Card.IsFusionAttribute,ATTRIBUTE_DARK),1,true,true)
--fusion success
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(67200054,0))
e1:SetCategory(CATEGORY_COUNTER)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCountLimit(67200054,1)
e1:SetTarget(c67200054.addct)
e1:SetOperation(c67200054.addc)
c:RegisterEffect(e1)
--Activate
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_END_PHASE)
e2:SetCondition(c67200054.descon)
e2:SetTarget(c67200054.destg)
e2:SetOperation(c67200054.desop)
c:RegisterEffect(e2)
--set
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(67200054,1))
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_TO_GRAVE)
e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e4:SetCountLimit(1,67200055)
e4:SetTarget(c67200054.settg)
e4:SetOperation(c67200054.setop)
c:RegisterEffect(e4)
end
--
function c67200054.addct(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,3,0,0x1673)
end
function c67200054.addc(e,tp,eg,ep,ev,re,r,rp)
if e:GetHandler():IsRelateToEffect(e) then
e:GetHandler():AddCounter(0x1673,3)
end
end
--
function c67200054.descon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c67200054.tgfilter(c)
return c:IsFaceup() and c:GetCounter(0x1673)>0
end
function c67200054.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
local g=Duel.GetMatchingGroup(c67200054.tgfilter,tp,0,LOCATION_MZONE,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
end
function c67200054.desop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c67200054.tgfilter,tp,0,LOCATION_MZONE,nil)
Duel.Destroy(g,REASON_EFFECT)
end
--set
function c67200054.setfilter(c)
return c:IsCode(67200100) and c:IsSSetable()
end
function c67200054.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c67200054.setfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
end
function c67200054.setop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c67200054.setfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
local tc=g:GetFirst()
if tc and Duel.SSet(tp,tc)~=0 then
if tc:IsType(TYPE_QUICKPLAY) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
if tc:IsType(TYPE_TRAP) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
end
end
\ No newline at end of file
--创刻-仙崎美来『休憩时光』
function c67200056.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:SetHintTiming(0,TIMING_STANDBY_PHASE+TIMINGS_CHECK_MONSTER)
e1:SetCountLimit(1,67200056+EFFECT_COUNT_CODE_OATH)
e1:SetOperation(c67200056.activate)
c:RegisterEffect(e1)
--negate
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(67200056,0))
e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e2:SetCode(EVENT_CHAINING)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetCondition(c67200056.condition)
e2:SetCost(c67200056.cost)
e2:SetTarget(c67200056.target)
e2:SetOperation(c67200056.operation)
c:RegisterEffect(e2)
--blood counter
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(67200056,1))
e3:SetCategory(CATEGORY_COUNTER)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e3:SetOperation(c67200056.cop)
c:RegisterEffect(e3)
end
function c67200056.filter(c)
return c:IsSetCard(0x5673) and c:IsAbleToHand()
end
function c67200056.activate(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(c67200056.filter,tp,LOCATION_DECK,0,nil)
if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(67200056,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 c67200056.condition(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return rp==1-tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and not c:IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev)
end
function c67200056.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x1673,2,REASON_COST) end
Duel.RemoveCounter(tp,1,1,0x1673,2,REASON_COST)
end
function c67200056.target(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():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
end
end
function c67200056.operation(e,tp,eg,ep,ev,re,r,rp)
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
Duel.Destroy(eg,REASON_EFFECT)
end
end
--blood counter
function c67200056.cfilter(c)
return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsCanAddCounter(0x1673,1)
end
function c67200056.cop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c67200056.cfilter,tp,0,LOCATION_MZONE,nil)
local tc=g:GetFirst()
while tc do
tc:AddCounter(0x1673,1)
tc=g:GetNext()
end
end
--创刻-夏妮奥露卡
function c67200057.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,67200057)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_END_PHASE)
e1:SetCondition(c67200057.spcon)
e1:SetTarget(c67200057.sptg)
e1:SetOperation(c67200057.spop)
c:RegisterEffect(e1)
--indes
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(c67200057.indcon)
e2:SetOperation(c67200057.indop)
c:RegisterEffect(e2)
end
--
function c67200057.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c67200057.filter0(c)
return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
end
function c67200057.filter1(c,e)
return c:IsLocation(LOCATION_HAND+LOCATION_MZONE) and not c:IsImmuneToEffect(e)
end
function c67200057.filter2(c,e,tp,m,f,gc,chkf)
return c:IsType(TYPE_FUSION) and c:IsSetCard(0x6673) and (not f or f(c))
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c67200057.cfilter(c)
return c:IsSummonLocation(LOCATION_EXTRA)
end
function c67200057.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp)
if Duel.IsExistingMatchingCard(c67200057.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200057.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local res=Duel.IsExistingMatchingCard(c67200057.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c,chkf)
if not res then
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
local mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
res=Duel.IsExistingMatchingCard(c67200057.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c,chkf)
end
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c67200057.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local chkf=tp
if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end
local mg1=Duel.GetFusionMaterial(tp):Filter(c67200057.filter1,nil,e)
if Duel.IsExistingMatchingCard(c67200057.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200057.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local sg1=Duel.GetMatchingGroup(c67200057.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c,chkf)
local mg2=nil
local sg2=nil
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
sg2=Duel.GetMatchingGroup(c67200057.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c,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,c,chkf)
tc:SetMaterial(mat1)
Duel.SendtoGrave(mat1,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,mg2,c,chkf)
local fop=ce:GetOperation()
fop(ce,e,tp,tc,mat2)
end
tc:CompleteProcedure()
end
end
--
function c67200057.indcon(e,tp,eg,ep,ev,re,r,rp)
return r==REASON_FUSION and e:GetHandler():GetReasonCard():IsSetCard(0x673)
end
function c67200057.indop(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(67200057,1))
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1,true)
end
--创刻-夏妮奥露卡『治愈之光』
function c67200058.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCodeFun(c,67200057,aux.FilterBoolFunction(Card.IsFusionAttribute,ATTRIBUTE_LIGHT),1,true,true)
--change lp
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(67200058,0))
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCountLimit(1,67200058)
e1:SetOperation(c67200058.lpop)
c:RegisterEffect(e1)
--cannot activate
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_CANNOT_ACTIVATE)
e2:SetRange(LOCATION_ONFIELD)
e2:SetTargetRange(1,1)
e2:SetValue(c67200058.aclimit)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EFFECT_CANNOT_ATTACK)
c:RegisterEffect(e3)
--set
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(67200058,1))
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_TO_GRAVE)
e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e4:SetCountLimit(1,67200059)
e4:SetTarget(c67200058.settg)
e4:SetOperation(c67200058.setop)
c:RegisterEffect(e4)
end
function c67200058.lpop(e,tp,eg,ep,ev,re,r,rp)
Duel.SetLP(tp,4000)
end
--cannot activate
function c67200058.aclimit(e,re,tp)
local tc=re:GetHandler()
return tc:IsLocation(LOCATION_MZONE) and re:IsActiveType(TYPE_MONSTER) and e:GetHandler():GetColumnGroup():IsContains(tc)
end
--
function c67200058.setfilter(c)
return c:IsCode(67200100) and c:IsSSetable()
end
function c67200058.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c67200058.setfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
end
function c67200058.setop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c67200058.setfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
local tc=g:GetFirst()
if tc and Duel.SSet(tp,tc)~=0 then
if tc:IsType(TYPE_QUICKPLAY) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
if tc:IsType(TYPE_TRAP) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
end
end
--创刻-夏妮奥露卡『春游时分』
function c67200060.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:SetHintTiming(0,TIMING_STANDBY_PHASE+TIMINGS_CHECK_MONSTER)
e1:SetCountLimit(1,67200060+EFFECT_COUNT_CODE_OATH)
e1:SetOperation(c67200060.activate)
c:RegisterEffect(e1)
--inactivatable
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_CANNOT_INACTIVATE)
e2:SetRange(LOCATION_SZONE)
e2:SetValue(c67200060.effectfilter)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_CANNOT_DISEFFECT)
e3:SetRange(LOCATION_SZONE)
e3:SetValue(c67200060.effectfilter)
c:RegisterEffect(e3)
end
function c67200060.filter(c)
return c:IsSetCard(0x6673) and c:IsAbleToHand()
end
function c67200060.activate(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(c67200060.filter,tp,LOCATION_DECK,0,nil)
if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(67200060,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 c67200060.effectfilter(e,ct)
local p=e:GetHandler():GetControler()
local te,tp,loc=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER,CHAININFO_TRIGGERING_LOCATION)
return p==tp and te:GetHandler():IsSetCard(0x673) and bit.band(loc,LOCATION_ONFIELD)~=0
end
\ No newline at end of file
--创刻-北河灯里
function c67200061.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,67200061)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_END_PHASE)
e1:SetCondition(c67200061.spcon)
e1:SetTarget(c67200061.sptg)
e1:SetOperation(c67200061.spop)
c:RegisterEffect(e1)
--
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(c67200061.atkcon)
e3:SetOperation(c67200061.atkop)
c:RegisterEffect(e3)
end
--
function c67200061.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c67200061.filter0(c)
return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
end
function c67200061.filter1(c,e)
return c:IsLocation(LOCATION_HAND+LOCATION_MZONE) and not c:IsImmuneToEffect(e)
end
function c67200061.filter2(c,e,tp,m,f,gc,chkf)
return c:IsType(TYPE_FUSION) and c:IsSetCard(0x3673) and (not f or f(c))
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c67200061.cfilter(c)
return c:IsSummonLocation(LOCATION_EXTRA)
end
function c67200061.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp)
if Duel.IsExistingMatchingCard(c67200061.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200061.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local res=Duel.IsExistingMatchingCard(c67200061.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c,chkf)
if not res then
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
local mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
res=Duel.IsExistingMatchingCard(c67200061.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c,chkf)
end
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c67200061.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local chkf=tp
if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end
local mg1=Duel.GetFusionMaterial(tp):Filter(c67200061.filter1,nil,e)
if Duel.IsExistingMatchingCard(c67200061.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200061.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local sg1=Duel.GetMatchingGroup(c67200061.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c,chkf)
local mg2=nil
local sg2=nil
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
sg2=Duel.GetMatchingGroup(c67200061.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c,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,c,chkf)
tc:SetMaterial(mat1)
Duel.SendtoGrave(mat1,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,mg2,c,chkf)
local fop=ce:GetOperation()
fop(ce,e,tp,tc,mat2)
end
tc:CompleteProcedure()
end
end
--
function c67200061.atkcon(e,tp,eg,ep,ev,re,r,rp)
return r==REASON_FUSION
end
function c67200061.atkop(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:SetCode(EFFECT_UPDATE_DEFENSE)
e1:SetValue(500)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1,true)
end
--创刻-北河灯里『体操玩家』
function c67200062.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCodeFun(c,67200061,aux.FilterBoolFunction(Card.IsFusionAttribute,ATTRIBUTE_WATER),1,true,true)
--negate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(67200062,0))
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,67200062)
e1:SetTarget(c67200062.negtg)
e1:SetOperation(c67200062.negop)
c:RegisterEffect(e1)
--cannot announce
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
e2:SetTargetRange(0,LOCATION_MZONE)
e2:SetTarget(c67200062.antarget)
c:RegisterEffect(e2)
--set
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(67200062,1))
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e3:SetCountLimit(1,67200063)
e3:SetTarget(c67200062.settg)
e3:SetOperation(c67200062.setop)
c:RegisterEffect(e3)
end
--
function c67200062.filter2(c)
return c:IsFaceup() and c:IsType(TYPE_EFFECT)
end
function c67200062.negtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return false end
if chk==0 then return Duel.IsExistingTarget(c67200062.filter2,tp,0,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g2=Duel.SelectTarget(tp,c67200062.filter2,tp,0,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DISABLE,g2,1,0,0)
end
function c67200062.negop(e,tp,eg,ep,ev,re,r,rp)
local ex,g2=Duel.GetOperationInfo(0,CATEGORY_DISABLE)
local tc=g2:GetFirst()
if tc:IsFaceup() and tc:IsRelateToEffect(e) then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e2)
end
end
--
function c67200062.antarget(e,c)
return c:IsAttackBelow(1000)
end
--
function c67200062.setfilter(c)
return c:IsCode(67200100) and c:IsSSetable()
end
function c67200062.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c67200062.setfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
end
function c67200062.setop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c67200062.setfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
local tc=g:GetFirst()
if tc and Duel.SSet(tp,tc)~=0 then
if tc:IsType(TYPE_QUICKPLAY) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
if tc:IsType(TYPE_TRAP) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
end
end
--创刻-北河灯里『便当时间』
function c67200064.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:SetHintTiming(0,TIMING_STANDBY_PHASE+TIMINGS_CHECK_MONSTER+TIMING_DRAW_PHASE)
e1:SetCountLimit(1,67200064+EFFECT_COUNT_CODE_OATH)
e1:SetOperation(c67200064.activate)
c:RegisterEffect(e1)
--recover
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetRange(LOCATION_SZONE)
e2:SetCode(EVENT_DRAW)
e2:SetOperation(c67200064.recop)
c:RegisterEffect(e2)
end
function c67200064.filter(c)
return c:IsSetCard(0x3673) and c:IsAbleToHand()
end
function c67200064.activate(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(c67200064.filter,tp,LOCATION_DECK,0,nil)
if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(67200064,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 c67200064.recop(e,tp,eg,ep,ev,re,r,rp)
if ep==tp then return end
Duel.Recover(tp,100,REASON_EFFECT)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CHANGE_DAMAGE)
e1:SetRange(LOCATION_SZONE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,0)
e1:SetValue(c67200064.damval)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
function c67200064.damval(e,re,val,r,rp,rc)
if val>=1000 then return 0 else return val end
end
--创刻-苏芳杏里咲
function c67200065.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,67200065)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_END_PHASE)
e1:SetCondition(c67200065.spcon)
e1:SetTarget(c67200065.sptg)
e1:SetOperation(c67200065.spop)
c:RegisterEffect(e1)
--indes
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(c67200065.indcon)
e2:SetOperation(c67200065.indop)
c:RegisterEffect(e2)
end
--
function c67200065.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c67200065.filter0(c)
return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
end
function c67200065.filter1(c,e)
return c:IsLocation(LOCATION_HAND+LOCATION_MZONE) and not c:IsImmuneToEffect(e)
end
function c67200065.filter2(c,e,tp,m,f,gc,chkf)
return c:IsType(TYPE_FUSION) and c:IsSetCard(0x9673) and (not f or f(c))
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c67200065.cfilter(c)
return c:IsSummonLocation(LOCATION_EXTRA)
end
function c67200065.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp)
if Duel.IsExistingMatchingCard(c67200065.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200065.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local res=Duel.IsExistingMatchingCard(c67200065.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c,chkf)
if not res then
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
local mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
res=Duel.IsExistingMatchingCard(c67200065.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c,chkf)
end
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c67200065.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local chkf=tp
if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end
local mg1=Duel.GetFusionMaterial(tp):Filter(c67200065.filter1,nil,e)
if Duel.IsExistingMatchingCard(c67200065.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200065.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local sg1=Duel.GetMatchingGroup(c67200065.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c,chkf)
local mg2=nil
local sg2=nil
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
sg2=Duel.GetMatchingGroup(c67200065.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c,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,c,chkf)
tc:SetMaterial(mat1)
Duel.SendtoGrave(mat1,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,mg2,c,chkf)
local fop=ce:GetOperation()
fop(ce,e,tp,tc,mat2)
end
tc:CompleteProcedure()
end
end
--
function c67200065.indcon(e,tp,eg,ep,ev,re,r,rp)
return r==REASON_FUSION and e:GetHandler():GetReasonCard():IsSetCard(0x673)
end
function c67200065.indop(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(67200065,1))
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetValue(c67200065.efilter)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1,true)
end
function c67200065.efilter(e,te)
return te:IsActiveType(TYPE_TRAP) and e:GetOwnerPlayer()~=te:GetOwnerPlayer()
end
--创刻-苏芳杏里咲『链锯驾驭』
function c67200066.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCodeFun(c,67200065,aux.FilterBoolFunction(Card.IsFusionAttribute,ATTRIBUTE_EARTH),1,true,true)
--search
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(67200066,0))
e1:SetCategory(CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,67200066)
e1:SetTarget(c67200066.thtg)
e1:SetOperation(c67200066.thop)
c:RegisterEffect(e1)
--Activate
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_END_PHASE)
e2:SetCondition(c67200066.descon)
e2:SetTarget(c67200066.destg)
e2:SetOperation(c67200066.desop)
c:RegisterEffect(e2)
--set
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(67200066,1))
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e3:SetCountLimit(1,67200067)
e3:SetTarget(c67200066.settg)
e3:SetOperation(c67200066.setop)
c:RegisterEffect(e3)
end
function c67200066.thfilter(c)
return c:IsSetCard(0x673) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end
function c67200066.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c67200066.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c67200066.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c67200066.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 c67200066.descon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c67200066.destg(e,tp,eg,ep,ev,re,r,rp,chk)
local g=Duel.GetMatchingGroup(Card.IsType,tp,0,LOCATION_ONFIELD,nil,TYPE_SPELL+TYPE_TRAP)
if chk==0 then return #g>0 end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
end
function c67200066.desop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectMatchingCard(tp,Card.IsType,tp,0,LOCATION_ONFIELD,1,1,nil,TYPE_SPELL+TYPE_TRAP)
if g:GetCount()>0 then
Duel.HintSelection(g)
Duel.Destroy(g,REASON_EFFECT)
end
end
--
function c67200066.setfilter(c)
return c:IsCode(67200100) and c:IsSSetable()
end
function c67200066.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c67200066.setfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
end
function c67200066.setop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c67200066.setfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
local tc=g:GetFirst()
if tc and Duel.SSet(tp,tc)~=0 then
if tc:IsType(TYPE_QUICKPLAY) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
if tc:IsType(TYPE_TRAP) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
end
end
--创刻-苏芳杏里咲『团聚时光』
function c67200068.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:SetHintTiming(0,TIMING_STANDBY_PHASE+TIMINGS_CHECK_MONSTER+TIMING_DRAW_PHASE)
e1:SetCountLimit(1,67200068+EFFECT_COUNT_CODE_OATH)
e1:SetOperation(c67200068.activate)
c:RegisterEffect(e1)
--draw
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(67200068,1))
e2:SetCategory(CATEGORY_DRAW)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetCondition(c67200068.drcon)
e2:SetTarget(c67200068.drtg)
e2:SetOperation(c67200068.drop)
c:RegisterEffect(e2)
end
function c67200068.filter(c)
return c:IsSetCard(0x9673) and c:IsAbleToHand()
end
function c67200068.activate(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(c67200068.filter,tp,LOCATION_DECK,0,nil)
if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(67200068,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 c67200068.drfilter(c)
return c:IsFaceup() and c:IsType(TYPE_FUSION) and c:IsSetCard(0x673)
end
function c67200068.drcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c67200068.drfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c67200068.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 c67200068.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
--创刻-柏木鸣海
function c67200069.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,67200069)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_END_PHASE)
e1:SetCondition(c67200069.spcon)
e1:SetTarget(c67200069.sptg)
e1:SetOperation(c67200069.spop)
c:RegisterEffect(e1)
--
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(c67200069.atkcon)
e3:SetOperation(c67200069.atkop)
c:RegisterEffect(e3)
end
--
function c67200069.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c67200069.filter0(c)
return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
end
function c67200069.filter1(c,e)
return c:IsLocation(LOCATION_HAND+LOCATION_MZONE) and not c:IsImmuneToEffect(e)
end
function c67200069.filter2(c,e,tp,m,f,gc,chkf)
return c:IsType(TYPE_FUSION) and c:IsSetCard(0xa673) and (not f or f(c))
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c67200069.cfilter(c)
return c:IsSummonLocation(LOCATION_EXTRA)
end
function c67200069.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp)
if Duel.IsExistingMatchingCard(c67200069.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200069.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local res=Duel.IsExistingMatchingCard(c67200069.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c,chkf)
if not res then
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
local mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
res=Duel.IsExistingMatchingCard(c67200069.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c,chkf)
end
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c67200069.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local chkf=tp
if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end
local mg1=Duel.GetFusionMaterial(tp):Filter(c67200069.filter1,nil,e)
if Duel.IsExistingMatchingCard(c67200069.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200069.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local sg1=Duel.GetMatchingGroup(c67200069.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c,chkf)
local mg2=nil
local sg2=nil
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
sg2=Duel.GetMatchingGroup(c67200069.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c,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,c,chkf)
tc:SetMaterial(mat1)
Duel.SendtoGrave(mat1,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,mg2,c,chkf)
local fop=ce:GetOperation()
fop(ce,e,tp,tc,mat2)
end
tc:CompleteProcedure()
end
end
--
function c67200069.atkcon(e,tp,eg,ep,ev,re,r,rp)
return r==REASON_FUSION
end
function c67200069.atkop(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:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(500)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1,true)
end
--创刻-柏木鸣海『眩光之刃』
function c67200070.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCodeFun(c,67200069,aux.FilterBoolFunction(Card.IsFusionAttribute,ATTRIBUTE_WIND),1,true,true)
--atkup
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(67200070,0))
e1:SetCategory(CATEGORY_ATKCHANGE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCountLimit(1,67200070)
e1:SetCondition(c67200070.atkcon1)
e1:SetOperation(c67200070.atkop1)
c:RegisterEffect(e1)
--attack all
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_ATTACK_ALL)
e2:SetValue(1)
c:RegisterEffect(e2)
--set
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(67200070,1))
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e3:SetCountLimit(1,67200071)
e3:SetTarget(c67200070.settg)
e3:SetOperation(c67200070.setop)
c:RegisterEffect(e3)
end
function c67200070.atkcon1(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
end
function c67200070.atkop1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsFacedown() or not c:IsRelateToEffect(e) then return end
local g=c:GetMaterial()
local atk=g:GetSum(Card.GetBaseAttack)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(math.ceil(atk/2))
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e1)
end
--
function c67200070.setfilter(c)
return c:IsCode(67200100) and c:IsSSetable()
end
function c67200070.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c67200070.setfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
end
function c67200070.setop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c67200070.setfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
local tc=g:GetFirst()
if tc and Duel.SSet(tp,tc)~=0 then
if tc:IsType(TYPE_QUICKPLAY) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
if tc:IsType(TYPE_TRAP) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
end
end
--创刻-柏木鸣海『家务苦手』
function c67200072.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:SetHintTiming(0,TIMING_STANDBY_PHASE+TIMINGS_CHECK_MONSTER+TIMING_DRAW_PHASE)
e1:SetCountLimit(1,67200072+EFFECT_COUNT_CODE_OATH)
e1:SetOperation(c67200072.activate)
c:RegisterEffect(e1)
--extra damage
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(67200072,1))
e2:SetCategory(CATEGORY_DAMAGE)
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:SetCondition(c67200072.damcon)
e2:SetTarget(c67200072.damtg)
e2:SetOperation(c67200072.damop)
c:RegisterEffect(e2)
end
function c67200072.filter(c)
return c:IsSetCard(0xa673) and c:IsAbleToHand()
end
function c67200072.activate(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(c67200072.filter,tp,LOCATION_DECK,0,nil)
if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(67200072,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 c67200072.damcon(e,tp,eg,ep,ev,re,r,rp)
return ep~=tp and eg:GetFirst():IsControler(tp) and eg:GetFirst():IsSetCard(0x673) and eg:GetFirst():IsType(TYPE_FUSION)
end
function c67200072.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(1-tp)
Duel.SetTargetParam(ev)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,ev)
end
function c67200072.damop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Damage(p,d,REASON_EFFECT)
end
--创刻-源鸦鸟
function c67200073.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,67200073)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_BATTLE_START+TIMING_END_PHASE)
e1:SetCondition(c67200073.spcon)
e1:SetTarget(c67200073.sptg)
e1:SetOperation(c67200073.spop)
c:RegisterEffect(e1)
--indes
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(c67200073.indcon)
e2:SetOperation(c67200073.indop)
c:RegisterEffect(e2)
end
--
function c67200073.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c67200073.filter0(c)
return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
end
function c67200073.filter1(c,e)
return c:IsLocation(LOCATION_HAND+LOCATION_MZONE) and not c:IsImmuneToEffect(e)
end
function c67200073.filter2(c,e,tp,m,f,gc,chkf)
return c:IsType(TYPE_FUSION) and c:IsSetCard(0xc673) and (not f or f(c))
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c67200073.cfilter(c)
return c:IsSummonLocation(LOCATION_EXTRA)
end
function c67200073.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp)
if Duel.IsExistingMatchingCard(c67200073.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200073.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local res=Duel.IsExistingMatchingCard(c67200073.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c,chkf)
if not res then
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
local mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
res=Duel.IsExistingMatchingCard(c67200073.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c,chkf)
end
end
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c67200073.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local chkf=tp
if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end
local mg1=Duel.GetFusionMaterial(tp):Filter(c67200073.filter1,nil,e)
if Duel.IsExistingMatchingCard(c67200073.cfilter,tp,0,LOCATION_MZONE,1,nil) then
local mg3=Duel.GetMatchingGroup(c67200073.filter0,tp,0,LOCATION_MZONE,nil)
mg1:Merge(mg3)
end
local sg1=Duel.GetMatchingGroup(c67200073.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c,chkf)
local mg2=nil
local sg2=nil
local ce=Duel.GetChainMaterial(tp)
if ce~=nil then
local fgroup=ce:GetTarget()
mg2=fgroup(ce,e,tp)
local mf=ce:GetValue()
sg2=Duel.GetMatchingGroup(c67200073.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c,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,c,chkf)
tc:SetMaterial(mat1)
Duel.SendtoGrave(mat1,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,mg2,c,chkf)
local fop=ce:GetOperation()
fop(ce,e,tp,tc,mat2)
end
tc:CompleteProcedure()
end
end
--
function c67200073.indcon(e,tp,eg,ep,ev,re,r,rp)
return r==REASON_FUSION and e:GetHandler():GetReasonCard():IsSetCard(0x673)
end
function c67200073.indop(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(67200073,1))
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetValue(c67200073.efilter)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1,true)
end
function c67200073.efilter(e,te)
return te:IsActiveType(TYPE_SPELL) and e:GetOwnerPlayer()~=te:GetOwnerPlayer()
end
--创刻-源鸦鸟『赤红之影』
function c67200074.initial_effect(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCodeFun(c,67200073,aux.FilterBoolFunction(Card.IsFusionAttribute,ATTRIBUTE_FIRE),1,true,true)
--effect
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCountLimit(1,67200074)
e1:SetTarget(c67200074.tgtg)
e1:SetOperation(c67200074.tgop)
c:RegisterEffect(e1)
--deck destory
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(67200074,0))
e2:SetCategory(CATEGORY_DECKDES)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetTarget(c67200074.target)
e2:SetOperation(c67200074.operation)
c:RegisterEffect(e2)
--set
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(67200074,1))
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_TO_GRAVE)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e3:SetCountLimit(1,67200075)
e3:SetTarget(c67200074.settg)
e3:SetOperation(c67200074.setop)
c:RegisterEffect(e3)
end
function c67200074.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,nil)
if chk==0 then return #g>0 end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
end
function c67200074.tgop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_ONFIELD,nil)
if #g>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local sg=g:Select(tp,1,1,nil)
Duel.HintSelection(sg)
Duel.SendtoGrave(sg,REASON_EFFECT)
end
end
--
function c67200074.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,1)
end
function c67200074.operation(e,tp,eg,ep,ev,re,r,rp)
Duel.DiscardDeck(1-tp,1,REASON_EFFECT)
end
--set
function c67200074.setfilter(c)
return c:IsCode(67200100) and c:IsSSetable()
end
function c67200074.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c67200074.setfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
end
function c67200074.setop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c67200074.setfilter),tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
local tc=g:GetFirst()
if tc and Duel.SSet(tp,tc)~=0 then
if tc:IsType(TYPE_QUICKPLAY) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
if tc:IsType(TYPE_TRAP) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
end
end
--创刻-源鸦鸟『不详之爪』
function c67200076.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:SetHintTiming(0,TIMING_STANDBY_PHASE+TIMINGS_CHECK_MONSTER+TIMING_DRAW_PHASE)
e1:SetCountLimit(1,67200076+EFFECT_COUNT_CODE_OATH)
e1:SetOperation(c67200076.activate)
c:RegisterEffect(e1)
--equip
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(67200076,0))
e2:SetCategory(CATEGORY_EQUIP)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetTarget(c67200076.eqtg)
e2:SetOperation(c67200076.eqop)
c:RegisterEffect(e2)
end
--
function c67200076.filter(c)
return c:IsSetCard(0xc673) and c:IsAbleToHand()
end
function c67200076.activate(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local g=Duel.GetMatchingGroup(c67200076.filter,tp,LOCATION_DECK,0,nil)
if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(67200076,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 c67200076.cfilter(c,tp)
return c:IsFaceup() and c:IsSetCard(0xc673)
and Duel.IsExistingMatchingCard(c67200076.eqfilter,tp,LOCATION_ONFIELD,0,1,nil,0,0,tp)
end
function c67200076.eqfilter(c,att,race,tp)
return c:IsType(TYPE_TRAP) and c:IsOnField() and not c:IsForbidden()
end
function c67200076.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c67200076.cfilter(chkc,tp) end
if chk==0 then return Duel.IsExistingTarget(c67200076.cfilter,tp,LOCATION_MZONE,0,1,nil,tp) and Duel.IsExistingMatchingCard(c67200076.eqfilter,tp,LOCATION_ONFIELD,0,1,nil,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
Duel.SelectTarget(tp,c67200076.cfilter,tp,LOCATION_MZONE,0,1,1,nil,tp)
Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_ONFIELD)
end
function c67200076.eqop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsFaceup() then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
local g=Duel.SelectMatchingCard(tp,c67200076.eqfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
local sc=g:GetFirst()
if not sc then return end
local res=sc:IsLocation(LOCATION_ONFIELD)
if not Duel.Equip(tp,sc,tc) then return end
--equip limit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCode(EFFECT_EQUIP_LIMIT)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetLabelObject(tc)
e1:SetValue(c67200076.eqlimit)
sc:RegisterEffect(e1)
--atk up
local e2=Effect.CreateEffect(sc)
e2:SetType(EFFECT_TYPE_EQUIP)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetValue(1000)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
sc:RegisterEffect(e2)
end
end
function c67200076.eqlimit(e,c)
return c==e:GetLabelObject()
end
--红月骑士 仙崎美来
function c67200077.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCode2(c,67200053,67200054,true,true)
--fusion success
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(67200077,0))
e1:SetCategory(CATEGORY_COUNTER)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetTarget(c67200077.addct)
e1:SetOperation(c67200077.addc)
c:RegisterEffect(e1)
--def attack
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_DEFENSE_ATTACK)
e2:SetRange(LOCATION_MZONE)
e2:SetTargetRange(LOCATION_MZONE,0)
e2:SetTarget(c67200077.atktg)
e2:SetValue(1)
c:RegisterEffect(e2)
--negate
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(67200077,1))
e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_CHAINING)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,67200077)
e3:SetCondition(c67200077.negcon)
e3:SetCost(c67200077.negcost)
e3:SetTarget(c67200077.negtg)
e3:SetOperation(c67200077.negop)
c:RegisterEffect(e3)
end
--
function c67200077.addct(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,5,0,0x1673)
end
function c67200077.addc(e,tp,eg,ep,ev,re,r,rp)
if e:GetHandler():IsRelateToEffect(e) then
e:GetHandler():AddCounter(0x1673,5)
end
end
--def attack
function c67200077.atktg(e,c)
return c:IsSetCard(0x5673)
end
--neg
function c67200077.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) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev)
end
function c67200077.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x1673,2,REASON_COST) end
Duel.RemoveCounter(tp,1,1,0x1673,2,REASON_COST)
end
function c67200077.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():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
end
end
function c67200077.negop(e,tp,eg,ep,ev,re,r,rp)
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
Duel.Destroy(eg,REASON_EFFECT)
end
end
--黯魔法师 夏妮奥露卡
function c67200078.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCode2(c,67200057,67200058,true,true)
--cannot be target
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
e1:SetRange(LOCATION_MZONE)
e1:SetTargetRange(LOCATION_MZONE,0)
e1:SetCondition(c67200078.tgcon)
e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x6673))
e1:SetValue(aux.tgoval)
c:RegisterEffect(e1)
--atk update
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(c67200078.atkval)
c:RegisterEffect(e2)
--atk 0 & recover
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(67200078,0))
e3:SetCategory(CATEGORY_RECOVER)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1)
e3:SetTarget(c67200078.target)
e3:SetOperation(c67200078.operation)
c:RegisterEffect(e3)
end
--
function c67200078.tgcon(e)
local tp=e:GetHandlerPlayer()
return Duel.GetLP(tp)>Duel.GetLP(1-tp)
end
--
function c67200078.atkval(e,c)
return math.abs(Duel.GetLP(0)-Duel.GetLP(1))
end
--
function c67200078.filter(c,sp)
return c:IsSummonPlayer(sp)
end
function c67200078.filter1(c)
return c:IsFaceup() and c:GetAttack()>0
end
function c67200078.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c67200078.filter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c67200078.filter1,tp,0,LOCATION_MZONE,1,nil) and eg:IsExists(c67200078.filter,1,nil,1-tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g=Duel.SelectTarget(tp,c67200078.filter1,tp,0,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,g:GetFirst():GetBaseAttack())
end
function c67200078.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetAttack()>0 and not tc:IsImmuneToEffect(e) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK_FINAL)
e1:SetValue(0)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
Duel.Recover(tp,tc:GetBaseAttack(),REASON_EFFECT)
end
end
--异域公主 北河灯里
function c67200079.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCode2(c,67200061,67200062,true,true)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCountLimit(1)
e1:SetTarget(c67200079.target)
e1:SetOperation(c67200079.operation)
c:RegisterEffect(e1)
--to hand
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(67200079,2))
e2:SetCategory(CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_LEAVE_FIELD)
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET)
e2:SetCountLimit(1,67200079)
e2:SetCondition(c67200079.thcon)
e2:SetTarget(c67200079.thtg)
e2:SetOperation(c67200079.thop)
c:RegisterEffect(e2)
--disable field
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetRange(LOCATION_MZONE)
e4:SetCode(EFFECT_DISABLE_FIELD)
e4:SetValue(c67200079.disval)
c:RegisterEffect(e4)
end
--spsummon
function c67200079.filter(c,e,tp)
return c:IsFaceup() and c:IsSetCard(0x673) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c67200079.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c67200079.filter(chkc,e,tp) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingTarget(c67200079.filter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c67200079.filter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end
function c67200079.operation(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 c67200079.thcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousLocation(LOCATION_MZONE)
end
function c67200079.thfilter(c)
return c:IsFaceup() and c:IsSetCard(0x673) and c:IsAbleToHand()
end
function c67200079.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c67200079.filter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c67200079.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectTarget(tp,c67200079.thfilter,tp,LOCATION_REMOVED,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
end
function c67200079.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
--
function c67200079.disval(e)
local c=e:GetHandler()
return c:GetColumnZone(LOCATION_ONFIELD,0)
end
--异界歪魔 苏芳杏里咲
function c67200080.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCode2(c,67200065,67200066,true,true)
--des spell&trap
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_DESTROY)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE+TIMING_EQUIP)
e1:SetCountLimit(1)
e1:SetTarget(c67200080.destg)
e1:SetOperation(c67200080.desop)
c:RegisterEffect(e1)
--send to grave
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(67200080,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_LEAVE_FIELD)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,67200080)
e2:SetCondition(c67200080.condition)
e2:SetTarget(c67200080.target)
e2:SetOperation(c67200080.operation)
c:RegisterEffect(e2)
--activate cost
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_ACTIVATE_COST)
e3:SetRange(LOCATION_MZONE)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetTargetRange(0,1)
e3:SetCost(c67200080.costchk)
e3:SetOperation(c67200080.costop)
c:RegisterEffect(e3)
end
--
function c67200080.desfilter(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP)
end
function c67200080.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and c67200080.desfilter(chkc) and chkc~=e:GetHandler() end
if chk==0 then return Duel.IsExistingTarget(c67200080.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,c67200080.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
end
function c67200080.desop(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 c67200080.cfilter(c,tp,rp)
return c:IsPreviousControler(tp) and c:GetPreviousTypeOnField()&TYPE_TRAP~=0
and c:IsPreviousSetCard(0x673)
end
function c67200080.condition(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c67200080.cfilter,1,nil,tp,rp) and not eg:IsContains(e:GetHandler())
end
function c67200080.tgfilter(c)
return c:IsSetCard(0x673) and c:IsAbleToGrave()
end
function c67200080.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c67200080.tgfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
end
function c67200080.operation(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c67200080.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
end
end
--
function c67200080.costchk(e,te_or_c,tp)
local ct=Duel.GetFlagEffect(tp,67200080)
return Duel.CheckLPCost(tp,ct*500)
end
function c67200080.costop(e,tp,eg,ep,ev,re,r,rp)
Duel.PayLPCost(tp,500)
end
--高岭骑士 柏木鸣海
function c67200081.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCode2(c,67200069,67200070,true,true)
--damage
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(67200081,0))
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_BATTLE_DAMAGE)
e1:SetCondition(c67200081.atkcon)
e1:SetTarget(c67200081.atktg)
e1:SetOperation(c67200081.atkop)
c:RegisterEffect(e1)
--to hand
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(67200081,1))
e2:SetCategory(CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetOperation(c67200081.regop)
c:RegisterEffect(e2)
--draw
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(67200081,2))
e3:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_LEAVE_FIELD)
e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET)
e3:SetCountLimit(1,67200081)
e3:SetCondition(c67200081.drcon)
e3:SetTarget(c67200081.drtg)
e3:SetOperation(c67200081.drop)
c:RegisterEffect(e3)
end
function c67200081.atkcon(e,tp,eg,ep,ev,re,r,rp)
return ep~=tp
end
function c67200081.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsRelateToBattle() and not e:GetHandler():IsHasEffect(EFFECT_EXTRA_ATTACK) end
end
function c67200081.atkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToBattle() then return end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EXTRA_ATTACK)
e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
c:RegisterEffect(e1)
end
--to hand
function c67200081.regop(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_PHASE+PHASE_END)
e1:SetCountLimit(1)
e1:SetCondition(c67200081.thcon)
e1:SetOperation(c67200081.thop)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
function c67200081.thfilter(c)
return c:IsSetCard(0x673) and c:IsAbleToHand()
end
function c67200081.thcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c67200081.thfilter,tp,LOCATION_GRAVE,0,1,nil)
end
function c67200081.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c67200081.thfilter),tp,LOCATION_GRAVE,0,1,1,nil)
local tc=g:GetFirst()
if tc then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
end
end
--draw
function c67200081.drcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousLocation(LOCATION_MZONE)
end
function c67200081.tdfilter(c)
return (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:IsSetCard(0x673) and c:IsAbleToDeck()
end
function c67200081.drtg(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 c67200081.tdfilter(chkc) end
if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
and Duel.IsExistingTarget(c67200081.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=Duel.SelectTarget(tp,c67200081.tdfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,3,3,nil)
Duel.SetOperationInfo(0,CATEGORY_TODECK,g,3,0,0)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c67200081.drop(e,tp,eg,ep,ev,re,r,rp)
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
if tg:GetCount()<=0 then return end
Duel.SendtoDeck(tg,nil,0,REASON_EFFECT)
local g=Duel.GetOperatedGroup()
if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end
if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK+LOCATION_EXTRA) then
Duel.BreakEffect()
Duel.Draw(tp,1,REASON_EFFECT)
end
end
--林间武者 源鸦鸟
function c67200082.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--fusion material
c:EnableReviveLimit()
aux.AddFusionProcCode2(c,67200073,67200074,true,true)
--draw
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(67200082,0))
e1:SetCategory(CATEGORY_DRAW)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetTarget(c67200082.target)
e1:SetOperation(c67200082.operation)
c:RegisterEffect(e1)
--spsummon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(67200082,1))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_LEAVE_FIELD)
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
e2:SetCountLimit(1,67200082)
e2:SetCondition(c67200082.spcon)
e2:SetTarget(c67200082.sptg)
e2:SetOperation(c67200082.spop)
c:RegisterEffect(e2)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(67200082,2))
e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetCountLimit(1,67200083)
e3:SetRange(LOCATION_MZONE)
e3:SetTarget(c67200082.destg)
e3:SetOperation(c67200082.desop)
c:RegisterEffect(e3)
end
--Draw
function c67200082.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c67200082.operation(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
--spsummon
function c67200082.spcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsPreviousLocation(LOCATION_PZONE)
end
function c67200082.spfilter(c,e,tp)
return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsSetCard(0x673)
and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
function c67200082.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c67200082.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c67200082.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c67200082.spfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
if g:GetCount()>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
end
end
--Destroy
function c67200082.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(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetFirst():GetBaseAttack())
end
function c67200082.desop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
Duel.Damage(1-tp,tc:GetBaseAttack(),REASON_EFFECT)
end
end
--创刻-异世界起航
function c67200100.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e1:SetCondition(c67200100.spcon)
e1:SetTarget(c67200100.target)
e1:SetOperation(c67200100.activate)
c:RegisterEffect(e1)
--draw
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
e2:SetDescription(aux.Stringid(67200100,1))
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetRange(LOCATION_GRAVE)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetCountLimit(1,67200100)
e2:SetTarget(c67200100.tdtg)
e2:SetOperation(c67200100.tdop)
c:RegisterEffect(e2)
end
--
function c67200100.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()~=tp
end
function c67200100.filter0(c)
return c:IsOnField() and c:IsAbleToRemove()
end
function c67200100.filter1(c,e)
return c:IsOnField() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
end
function c67200100.filter2(c,e,tp,m,f,chkf)
return c:IsType(TYPE_FUSION) and c:IsSetCard(0x673) and (not f or f(c))
and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
end
function c67200100.filter3(c)
return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove()
end
function c67200100.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp):Filter(c67200100.filter0,nil)
local mg2=Duel.GetMatchingGroup(c67200100.filter3,tp,LOCATION_GRAVE,0,nil)
mg1:Merge(mg2)
local res=Duel.IsExistingMatchingCard(c67200100.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(c67200100.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_REMOVE,nil,1,tp,LOCATION_ONFIELD+LOCATION_GRAVE)
end
function c67200100.activate(e,tp,eg,ep,ev,re,r,rp)
local chkf=tp
local mg1=Duel.GetFusionMaterial(tp):Filter(c67200100.filter1,nil,e)
local mg2=Duel.GetMatchingGroup(c67200100.filter3,tp,LOCATION_GRAVE,0,nil)
mg1:Merge(mg2)
local sg1=Duel.GetMatchingGroup(c67200100.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(c67200100.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.Remove(mat1,POS_FACEUP,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
--
function c67200100.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToDeck() and Duel.IsPlayerCanDraw(tp,1) end
Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c67200100.tdop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,0,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_DECK) then
Duel.ShuffleDeck(tp)
Duel.BreakEffect()
Duel.Draw(tp,1,REASON_EFFECT)
end
end
...@@ -830,8 +830,6 @@ ...@@ -830,8 +830,6 @@
#setname="XueJiMo" 血祭魇 #setname="XueJiMo" 血祭魇
#小青 475054511 457 0x880-0x88f #小青 475054511 457 0x880-0x88f
!setname 0x880 H×H
!setname 0x5880 幻影旅团
!setname 0x881 极翼灵兽 !setname 0x881 极翼灵兽
!setname 0x88e 营地 !setname 0x88e 营地
!setname 0x88f 徽章 !setname 0x88f 徽章
...@@ -1037,14 +1035,6 @@ ...@@ -1037,14 +1035,6 @@
!setname 0x3672 神采-尤艾拉 !setname 0x3672 神采-尤艾拉
!setname 0x5672 神采-艾米莉塔 !setname 0x5672 神采-艾米莉塔
!setname 0x6672 神采-赛尔维 !setname 0x6672 神采-赛尔维
!setname 0x673 创刻
!setname 0x3673 创刻-北河灯里
!setname 0x5673 创刻-仙崎美来
!setname 0x6673 创刻-夏妮奥露卡
!setname 0x9673 创刻-苏芳杏里咲
!setname 0xa673 创刻-柏木鸣海
!setname 0xc673 创刻-源鸦鸟
!counter 0x1673 血指示物
#暗小智 1648243461 681 0x780-0x78f #暗小智 1648243461 681 0x780-0x78f
!setname 0xa780 虚拟歌姬 !setname 0xa780 虚拟歌姬
...@@ -1206,7 +1196,7 @@ ...@@ -1206,7 +1196,7 @@
!setname 0x5651 虚言灵 !setname 0x5651 虚言灵
!setname 0x3652 奇幻剑 !setname 0x3652 奇幻剑
!setname 0x5652 圣刃 !setname 0x5652 圣刃
!setname 0x5653 木甲 !setname 0x3653 木甲
#AddCodeList(86570018) 真言灵衍生物卡名记述 #AddCodeList(86570018) 真言灵衍生物卡名记述
#Yuki 2574476144 870 0xaf0-0xaff #Yuki 2574476144 870 0xaf0-0xaff
......
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