bug fix and update ist and cdb

expansions/lflist.conf

@@ -319,7 +319,6 @@
 12026026 1 --光晓的神子 拉结尔
 12026032 1 --懵懂的纯真 拉结尔
 12028021 1 --顶点偶像 阿奎亚
-12029001 0 --欲念的梦魇女妖
 12029002 1 --切割天使
 12029003 1 --圣剑士 帕西乌尔
 12029004 1 --纯净的珍珠 依芙
@@ -398,7 +397,7 @@
 12062012 0 --灭天龙 最终法则
 12062041 2 --典理的祈祷
 12066023 1 --天境一闪
-12069000 0 --宇宙之源 拉结尔
+12069000 1 --宇宙之源 拉结尔
 12069006 1 --牙月之理 月丘儿
 12070046 0 --邪龙式装 玛格丽塔
 12083021 1 --十辉圣 素晴的莉薇娅
@@ -406,7 +405,7 @@
 12087003 1 --闪耀的光彩 维莉丝塔
 12087055 1 --闪耀的光彩 罗洛涅萝尔
 12087050 1 --响彻人心之歌 罗洛涅萝尔
-12087052 0 --花绽的歌声 罗洛涅萝尔
+12087052 2 --花绽的歌声 罗洛涅萝尔
 12087055 1 --闪耀的光彩 罗洛涅萝尔
 12087060 1 --雪花之碎片
 12087062 1 --茜色之小道
@@ -496,9 +495,8 @@
 16104224 0 --天命教令 异端剿灭
 16104234 1 --天命教廷
 16104232 1 --天命圣女 让·达克
-16104240 0 --天命真王 梦想王
 16104400 2 --天之界
-16104402 0 --天界银 亚沙拉姆
+16104402 1 --天界银 亚沙拉姆
 16104405 2 --天界的双子神 忒亚修斯
 16104406 1 --天界法 伊阿珀瑟斯
 16104408 1 --自天界而来的制裁
@@ -513,11 +511,10 @@
 16104422 0 --与天界的链接
 16104423 1 --归向天界的引导
 16104424 0 --天界士 刚严之伊欧
-16104427 0 --天界法 索提拉
+16104427 1 --天界法 索提拉
 16105300 2 --这个是什么怪兽来着？
 16107100 1 --侵略的G-神智
 16107101 1 --G-神智的强欲
-16107102 1 --G-神智的天导
 16107109 1 --升阶魔法 G-神智的统合
 16107110 2 --G-神智的泛衍
 16107111 2 --G-神智的强制
@@ -562,16 +559,17 @@
 16130013 0 --B.O.W.蟹钳滴漏者
 16130014 0 --B.O.W.三角兽滴漏者
 16149584 1 --超级英雄到来
-16150001 1 --大王百足虫
+16150001 0 --大王百足虫
 16150002 1 --大王兽使
-16150007 1 --大王虫 大百足
+16150006 0 --天命托宣
+16150007 0 --大王虫 大百足
 16150008 1 --王命的集结
-16150011 0 --大王剑使
+16150011 1 --大王剑使
 16150013 1 --大王具 大王龙机
 16150015 1 --天命之骑士 大王命骑士
 16150017 1 --圣王命之大王具
 16150018 0 --天命之启示 大王术使
-16150019 1 --大王咒使
+16150019 0 --大王咒使
 16150020 0 --大王具 智慧的抱拥
 16150026 0 --斩击的大王兽
 16150029 0 --洋馆的怪人
@@ -589,7 +587,7 @@
 16172022 0 --煌世破
 16172023 0 --煌世落
 16199520 0 --华丽的降神
-16199522 0 --礼物A
+16199522 1 --王牌礼物
 16199523 1 --暴发户的赠礼
 #162
 16200001 0 --单推人宣言
@@ -1230,7 +1228,7 @@
 33701402 0 --Niko ～是松饼！～
 33701419 0 --虚拟YouTuber 夜乃空
 33701420 0 --VOICEROID 伊达子
-33701435 0 --艹！DIY卡的LUA又写错了！
+33701435 1 --艹！DIY卡的LUA又写错了！
 33701441 0 --踏破新世界 ～铸甲之卷～
 33710901 0 --千篇万花
 33710909 0 --快乐八重彩
@@ -1438,10 +1436,10 @@
 51417999 0 --报社
 51419704 0 --无光之夜的鬼杰静舞
 51419712 0 --彼岸-地狱轴心
-51419714 1 --地狱的糖球女神-赫卡提亚
+51419714 0 --地狱的糖球女神-赫卡提亚
 51419716 0 --地狱的狂气女神-赫卡提亚
-51419718 1 --地狱的时尚女神-赫卡提亚
-51419720 1 --地狱的三球女神-赫卡提亚
+51419718 0 --地狱的时尚女神-赫卡提亚
+51419720 0 --地狱的三球女神-赫卡提亚
 #525
 52506000 1 --亚特兰蒂斯的歌声
 52506004 1 --月明之夜·海伊
@@ -1647,13 +1645,12 @@
 64837005 0 --歌姬 凑友希那
 64837006 0 --水晶之歌 凑友希那
 64837007 0 --斩尽杀绝凶猛龙
-64837008 1 --『怪盗Hello Happy』 濑田薰
+64837008 0 --『怪盗Hello Happy』 濑田薰
 64837010 0 --副语音乐家 克兰贝莉
 64837011 0 --『Lost One的号哭』美竹兰
 64837015 0 --Neo-Aspect宇田川亚子
 64837016 0 --八岐大狐
 64837017 0 --白色相册
-64837018 0 --友希兰
 64837023 0 --绝对宣言-独奏会-
 64837024 0 --
 64837027 0 --见习魔女 弦卷心
@@ -1689,7 +1686,6 @@
 #669
 66911000 0 --寒灵刻使 雾水
 66912000 1 --Unicorn Gundam
-66915001 2 --璀璨的星辉
 66915002 2 --星曜观星台
 66915005 1 --光辉星曜·圣芒
 66915007 2 --星曜女神·乐音
@@ -1903,7 +1899,8 @@
 96013031 0 --百花香 种植的时间
 96013051 0 --百花香 百花争
 96019001 0 --潜入深渊的预告
-96019011 0 --必中之枪
+96019011 1 --必中之枪
+96019021 0 --咕杀
 96019041 1 --次元孤城
 96030002 0 --被驯服的猎犬
 96030003 0 --无心骑士 零度火焰
@@ -1921,11 +1918,11 @@
 98600004 1 --情书
 98600005 1 --夜樱之宴
 98610007 1 --少女分形·冻结之世
-98622201 0 --子虚之
+98622201 1 --子虚之
 98625006 0 --十十六木花奏子·淑
 98626800 0 --菲诺蒙丹帕·娜美塞拉
 98626803 1 --失落的圣诞节
-98626823 0 --水之未眠
+98626823 2 --水之未眠
 98626824 0 --朝你大胯捏一把
 98650000 1 --妖精传说-爱丽丝
 98657312 1 --库拉丽丝-心配

expansions/script/c12029001.lua

@@ -12,6 +12,7 @@ function cm.initial_effect(c)
 	e1:SetHintTiming(0,0x1c0)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCost(cm.cost)
+	e1:SetCondition(function(e,tp) return Duel.GetCurrentPhase()==PHASE_STANDBY end)
 	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
 	if not cm.global_check then
@@ -83,9 +84,9 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SUMMON)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetTargetRange(0,1)
+	e1:SetTargetRange(1,1)
 	e1:SetTarget(cm.tg)
-	e1:SetReset(RESET_PHASE+PHASE_END,1)
+	e1:SetReset(RESET_PHASE+PHASE_END,2)
 	Duel.RegisterEffect(e1,tp)
 	local e2=e1:Clone()
 	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)

expansions/script/c12069000.lua

@@ -88,6 +88,17 @@ end
 function cm.actop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	Duel.SendtoDeck(c,2,nil,REASON_EFFECT)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(cm.splimitc)
+	Duel.RegisterEffect(e1,tp)
+end
+function cm.splimitc(e,c)
+	return not c:GetCode()//100000==120
 end
 function cm.con(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetFieldGroup(tp,LOCATION_DECK,0)

expansions/script/c16104216.lua

@@ -9,7 +9,7 @@ function cm.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_CONTROL)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_PZONE)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetCode(EVENT_FREE_CHAIN)

expansions/script/c16104240.lua

@@ -21,11 +21,11 @@ function cm.initial_effect(c)
 	--Announce Sp
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,1))
-	e2:SetCategory(CATEGORY_ANNOUNCE+CATEGORY_REMOVE)
+	e2:SetCategory(CATEGORY_ANNOUNCE+CATEGORY_TOGRAVE)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_FREE_CHAIN)
 	e2:SetRange(LOCATION_PZONE)
-	e2:SetCountLimit(1,m+1)
+	e2:SetCountLimit(1,m)
 	e2:SetCost(cm.cost)
 	e2:SetCondition(cm.discondition)
 	e2:SetTarget(cm.distarget)
@@ -59,10 +59,10 @@ function cm.initial_effect(c)
 	e6:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
 	e6:SetCondition(cm.discon1)
 	e6:SetValue(1)
-	c:RegisterEffect(e6)
+	--c:RegisterEffect(e6)
 	local e7=e6:Clone()
 	e7:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	c:RegisterEffect(e7)
+	--c:RegisterEffect(e7)
 	--
 	local e8=Effect.CreateEffect(c)
 	e8:SetType(EFFECT_TYPE_SINGLE)
@@ -80,14 +80,14 @@ function cm.initial_effect(c)
 	e9:SetCondition(cm.discon3)
 	e9:SetValue(cm.efilter)
 	e9:SetOwnerPlayer(tp)
-	c:RegisterEffect(e9) 
+	--c:RegisterEffect(e9) 
 	local e10=Effect.CreateEffect(c)
 	e10:SetType(EFFECT_TYPE_FIELD)
 	e10:SetRange(LOCATION_MZONE)
 	e10:SetCode(EFFECT_CANNOT_SUMMON)
 	e10:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e10:SetTargetRange(0,1)
-	e10:SetCondition(cm.discon4)
+	e10:SetCondition(cm.discon3)
 	e10:SetLabel(1)
 	c:RegisterEffect(e10)
 	local e11=e10:Clone()
@@ -168,7 +168,6 @@ function cm.distarget(e,tp,eg,ep,ev,re,r,rp,chk)
 	local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
 	Duel.SetTargetParam(ac)
 	Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,0)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,1-tp,0)
 end
 function cm.rmfilter(c,ac,tp)
 	return c:IsAbleToRemove(1-tp,POS_FACEDOWN,REASON_EFFECT) and c:IsCode(ac)
@@ -179,9 +178,9 @@ function cm.disoperation(e,tp,eg,ep,ev,re,r,rp)
 	Duel.ConfirmCards(tp,g1)
 	local g=Duel.GetMatchingGroup(Card.IsCode,tp,0,LOCATION_HAND,nil,ac)
 	if g:GetCount()>0 then
-		local rg=Duel.GetMatchingGroup(cm.rmfilter,tp,0,LOCATION_HAND+LOCATION_DECK+LOCATION_ONFIELD+LOCATION_GRAVE,nil,ac,1-tp)
+		local rg=Duel.GetMatchingGroup(cm.rmfilter,tp,0,LOCATION_HAND+LOCATION_DECK+LOCATION_ONFIELD,nil,ac,1-tp)
 		e:SetOwnerPlayer(tp)
-		Duel.Remove(rg,POS_FACEDOWN,REASON_EFFECT)
+		Duel.SendtoGrave(rg,REASON_EFFECT)
 	end
 	Duel.ShuffleHand(1-tp)
 end
@@ -219,19 +218,10 @@ function cm.anop(e,tp,eg,ep,ev,re,r,rp)
 	local ac=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) then return end
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e0:SetRange(LOCATION_MZONE)
-	e0:SetCode(EVENT_TO_HAND)
-	e0:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-	e0:SetOperation(cm.flagop)
-	e0:SetLabel(ac)
-	e0:SetReset(RESET_EVENT+RESETS_STANDARD)
-	c:RegisterEffect(e0,true)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e1:SetRange(LOCATION_MZONE)
-	e1:SetCode(EVENT_MOVE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
 	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
 	e1:SetOperation(cm.flagop1)
 	e1:SetLabel(ac)
@@ -239,16 +229,7 @@ function cm.anop(e,tp,eg,ep,ev,re,r,rp)
 	c:RegisterEffect(e1,true)
 end
 function cm.desfilter(c,code,tp)
-	return c:IsCode(code) and c:IsFaceup() and c:IsControler(tp) and not c:IsPreviousLocation(LOCATION_ONFIELD)
-end
-function cm.desfilter2(c,code,tp)
-	return c:IsCode(code) and c:IsControler(tp)
-end
-function cm.flagop(e,tp,eg,ep,ev,re,r,rp)
-	local code=e:GetLabel()
-	if eg:IsExists(cm.desfilter2,1,nil,code,e:GetHandlerPlayer()) and e:GetHandler():IsLocation(LOCATION_MZONE) then
-		e:GetHandler():RegisterFlagEffect(m+100,RESET_EVENT+RESETS_STANDARD,0,0,0)
-	end
+	return c:IsCode(code) and c:IsFaceup() and c:IsSummonType(SUMMON_TYPE_ADVANCE) and c:GetSummonPlayer()==tp
 end
 function cm.flagop1(e,tp,eg,ep,ev,re,r,rp)
 	local code=e:GetLabel()

expansions/script/c16104403.lua

@@ -2,7 +2,6 @@
 local m=16104403
 local cm=_G["c"..m]
 function cm.initial_effect(c)
-	c:SetSPSummonOnce(m)
 	aux.EnablePendulumAttribute(c)
 	--summon with s/t
 	local e10=Effect.CreateEffect(c)

expansions/script/c47330019.lua

---秘械环神 转化核枢
-xpcall(function() require("expansions/script/c47330000") end,function() require("script/c47330000") end)
-local s,id,o=GetID()
-function s.ntr(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(id,0))
-	e1:SetCategory(CATEGORY_CONTROL)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCountLimit(1,id)
-	e1:SetTarget(s.cttg)
-	e1:SetOperation(s.ctop)
-	c:RegisterEffect(e1)
-end
-function s.ctfilter(c)
-	return c:IsControlerCanBeChanged() and c:IsFaceup()
-end
-function s.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and s.ctfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(s.ctfilter,tp,0,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
-	local g=Duel.SelectTarget(tp,s.ctfilter,tp,0,LOCATION_MZONE,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
-end
-function s.ctop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.GetControl(tc,tp)~=0 then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_CHANGE_ATTRIBUTE)
-		e1:SetValue(ATTRIBUTE_DARK)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e1)
-		local e2=Effect.CreateEffect(e:GetHandler())
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_CHANGE_RACE)
-		e2:SetValue(RACE_MACHINE)
-		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
-		tc:RegisterEffect(e2)
-	end
-end
-function s.indis(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-	e1:SetValue(1)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
-	c:RegisterEffect(e2)
-	--add setcode
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetTargetRange(LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0)
-	e3:SetTarget(s.sctg)
-	e3:SetCode(EFFECT_ADD_SETCODE)
-	e3:SetValue(0x433)
-	c:RegisterEffect(e3)
-	
-end
-function s.remove(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(id,1))
-	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_TOGRAVE)
-	e1:SetType(EFFECT_TYPE_QUICK_O)
-	e1:SetRange(LOCATION_GRAVE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetCountLimit(1,id)
-	e1:SetTarget(s.rmtg)
-	e1:SetOperation(s.rmop)
-	c:RegisterEffect(e1)
-end
-function s.sctg(e,c)
-	return Ms_my.filter(c)
-end
-function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_REMOVED) end
-	if chk==0 then return Duel.IsExistingTarget(Ms_my.filter,tp,LOCATION_REMOVED,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectTarget(tp,Ms_my.filter,tp,LOCATION_REMOVED,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,LOCATION_REMOVED)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,e:GetHandler(),1,0,LOCATION_GRAVE)
-end
-function s.rmop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	local c=e:GetHandler()
-	if tc:IsRelateToEffect(e) and c:IsRelateToEffect(e) then
-		Duel.Remove(c,POS_FACEUP,REASON_EFFECT)
-		Duel.SendtoGrave(tc,REASON_EFFECT)
-	end
-end
-function s.initial_effect(c)
-	c:EnableReviveLimit()
-
-	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(aux.FALSE)
-	c:RegisterEffect(e1)
-
-	s.ntr(c)
-	s.indis(c)
-	s.remove(c)
-end
+--秘械环神 转化核枢
+xpcall(function() require("expansions/script/c47330000") end,function() require("script/c47330000") end)
+local s,id,o=GetID()
+function s.ntr(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_CONTROL)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,id)
+	e1:SetTarget(s.cttg)
+	e1:SetOperation(s.ctop)
+	c:RegisterEffect(e1)
+end
+function s.ctfilter(c)
+	return c:IsControlerCanBeChanged() and c:IsFaceup()
+end
+function s.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and s.ctfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(s.ctfilter,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+	local g=Duel.SelectTarget(tp,s.ctfilter,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
+end
+function s.ctop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.GetControl(tc,tp)~=0 then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+		e1:SetValue(ATTRIBUTE_DARK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_CHANGE_RACE)
+		e2:SetValue(RACE_MACHINE)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e2)
+	end
+end
+function s.indis(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	c:RegisterEffect(e2)
+	--add setcode
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0)
+	e3:SetTarget(s.sctg)
+	e3:SetCode(EFFECT_ADD_SETCODE)
+	e3:SetValue(0x433)
+	c:RegisterEffect(e3)
+	
+end
+function s.remove(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,1))
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,id)
+	e1:SetTarget(s.rmtg)
+	e1:SetOperation(s.rmop)
+	c:RegisterEffect(e1)
+end
+function s.sctg(e,c)
+	return Ms_my.filter(c)
+end
+function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_REMOVED) end
+	if chk==0 then return Duel.IsExistingTarget(Ms_my.filter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectTarget(tp,Ms_my.filter,tp,LOCATION_REMOVED,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,LOCATION_REMOVED)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,e:GetHandler(),1,0,LOCATION_GRAVE)
+end
+function s.rmop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	local c=e:GetHandler()
+	if tc:IsRelateToEffect(e) and c:IsRelateToEffect(e) then
+		Duel.Remove(c,POS_FACEUP,REASON_EFFECT)
+		Duel.SendtoGrave(tc,REASON_EFFECT)
+	end
+end
+function s.initial_effect(c)
+	aux.AddCodeList(c,47330015)
+	c:EnableReviveLimit()
+
+	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(aux.FALSE)
+	c:RegisterEffect(e1)
+
+	
+	s.ntr(c)
+	s.indis(c)
+	s.remove(c)
+end

expansions/script/c98626823.lua

@@ -23,13 +23,16 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetFieldGroupCount(1-tp,LOCATION_HAND,0)>0 and sg>0 end
 	Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,1-tp,sg)
 	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
-		Duel.SetChainLimit(aux.FALSE)
+		Duel.SetChainLimit(cm.chainlm)
 	end
 end
+function cm.chainlm(e,rp,tp)
+	return not (e:GetHandler():IsType(TYPE_MONSTER) or e:IsHasType(EFFECT_TYPE_ACTIVATE))
+end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	local sg=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)
 	if Duel.DiscardHand(1-tp,nil,sg,sg,REASON_EFFECT+REASON_DISCARD)~=0 and Duel.GetFieldGroupCount(1-tp,LOCATION_HAND,0)==0 then
-		local dg=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
+		local dg=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil)
 		if dg:GetCount()>0 then
 			Duel.BreakEffect()
 			Duel.Destroy(dg,REASON_EFFECT)