Refresh on 2025-05-29 20:47:55

lflist.conf

@@ -2623,7 +2623,6 @@
 03040496 0 --混沌魔龙
 55320758 0 --天上天下百鬼罗刹
 99153051 0 --蕾祸之首
-69164989 0 --六花绚烂
 46640168 0 --落泪之日
 02463794 0 --镇魂棺
 114514003 0 --平衡镇魂棺
@@ -2648,7 +2647,6 @@
 30342076 0 --开箭头解码
 97051536 0 --狱火机 邪恶
 09396662 0 --冰洁界的镜魔
-53286626 0 --圣蔓的播种
 91300233 0 --虫龙星
 21056275 0 --武装蜂起
 68989420 0 --科技属龙骑士
@@ -2692,7 +2690,6 @@
 36436372 0 --机关傀儡 小士兵队
 42544773 0 --封印之魔导士 斯彭
 89812483 0 --金属化强化反射装甲
-92501449 0 --原石鸣狞
 56506740 0 --原石皇脉
 76375976 0 --魔鍾洞
 35844557 0 --雷火剑
@@ -2724,8 +2721,7 @@
 32061192 0 --码丽丝睡鼠
 96676583 0 --码丽丝柴郡猫
 27420823 0 --K9R5撕裂者
-92248362 0 --K917号饭纲
-55031170 0 --k966b号灯鬼
+91025875 0 --K900狼
 93192592 0 --味美奖品棒棒糖
 06153210 0 --计都星辰
 32548318 0 --罗睺星辰
@@ -2733,17 +2729,35 @@
 114514030 0 --平衡奖品棒棒糖
 31603289 0 --味美奖品蛋糕杯
 69299029 0 --王家神宝替神殿
-20357457 0 --未来之柱
-52340444 0 --閃刀機－ホーネットビット
 91438674 0 --阿尔戈Adela
-101301031 0 --月华香检索
-101301002 0 --我我我加把劲骑士
-101301004 0 --怒怒怒怒战士
-101301042 0 --船新未来皇
-101301029 0 --愤怒饥饿的汉堡
-101301023 0 --新式魔厨的船新料理长
-101301069 0 --闪刀新卡回收收
-100200271 0 --试作闪刀姬
+81196066 0 --月华香检索
+09491461 0 --我我我加把劲骑士
+62880279 0 --怒怒怒怒战士
+41522092 0 --船新未来皇
+29251488 0 --新式魔厨的船新料理长
+34433770 0 --闪刀新卡回收收
+76072561 0 --光闪刀
+82570174 0 --双叉戟龙君王
+42097666 0 --青眼精灵
+80326401 0 --青眼祈祷
+80181649 0 --k9案件
+41924516 0 --白森森狼
+44478599 0 --圣天大树
+71002019 0 --六花叶牡丹
+39931513 0 --天杯白龙
+51831560 0 --宝石骑士拿非琉
+74733322 0 --神艺学园
+01122030 0 --神艺永续
+97434754 0 --神艺粉发
+35550352 0 --征服斗魂场地
+02344618 0 --月光永续
+01047075 0 --斗炎之剑士
+08841431 0 --百夫长8白
+16528181 0 --王之棺
+15005145 0 --百夫长检索下级
+92133240 0 --恐啡肽检索下级
+08633261 0 --雷火内燃
+
 #limit
 76794549 1 --アストログラフ・マジシャン
 74586817 1 --PSYフレームロード・Ω
@@ -2787,12 +2801,6 @@
 23002292 1 --レッド・リブート
 48905153 1 --十二獣 龙枪
 38814750 1 --PSYフレームギア・γ
-91810826 1 --天杯红中
-39931513 1 --天杯白龙
-84941194 1 --荷鲁斯荣光
-16528181 1 --王之棺
-34909328 1 --雷火导导爆
-41371602 1 --起立吧，百夫长骑士
 25592142 1 --白森林的阿斯忒瑞亚
 92714517 1 --大欢迎
 26523337 1 --魊影塞克斯
@@ -2817,22 +2825,17 @@
 18239909 1 --爆龙剑士
 38356857 1 --冷酷遗式术士
 38572779 1 --幻创之混种恐龙
-26984177 1 --王墓的石壁
 81522098 1 --拟箱龙
 86809440 1 --拟箱场地
 35261759 1 --强欲而贪欲之壶
 24220368 1 --宝石骑士色散
-51831560 1 --宝石骑士拿非琉
-08633261 1 --雷火内燃
 96540807 1 --再世战神弹弹怪
 22938501 1 --再世导神康康炸
 59323650 1 --再世龙神除除后
 30581601 1 --点心抓取味美喵
 60764609 1 --刻魔铁匠
-101301008 1 --神艺主角
-101301054 1 --神艺学园
-101301057 1 --神艺主角检索
-101301058 1 --神艺学园检索
+52340444 1--閃刀機－ホーネットビット
+30243636 1 --愤怒and饥饿的汉堡
 #semi limit
 57103969 2 --炎舞－「天璣」
 98338152 2 --閃刀機－ウィドウアンカー
@@ -2841,12 +2844,8 @@
 24224830 2 --墓穴の指名者
 87209160 2 --铁兽弗拉克杜尔
 24878656 2 --玩具箱
-56465181 2 --龙相剑现
+56465981 2 --龙相剑现
 78080961 2 --SPYRAL－ジーニアス
-70711847 2 --未界域的尼斯水怪
-78420796 2 --恐啡肽狂龙激昂
-26631975 2 --恐啡肽狂龙领域
-63526052 2 --机怪虫胞体虫
 67723438 2 --緊急テレポート
 26400609 2 --瀑征竜－タイダル
 17548456 2 --陨石兽

script/c114514378.lua

---忍法 借物遁形之术
-local s,id,o=GetID()
-function s.initial_effect(c)
-	--activate
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_ACTIVATE)
-	e0:SetCode(EVENT_FREE_CHAIN)
-	c:RegisterEffect(e0)
-	--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(id,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e1:SetRange(LOCATION_SZONE)
-	e1:SetCountLimit(1,id)
-	e1:SetCondition(s.spcon)
-	e1:SetTarget(s.sptg)
-	e1:SetOperation(s.spop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_ATTACK_ANNOUNCE)
-	e2:SetCondition(s.spcon2)
-	c:RegisterEffect(e2)
-	--fusion summon
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(id,1))
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetCode(EVENT_FREE_CHAIN)
-	e3:SetRange(LOCATION_GRAVE)
-	e3:SetCountLimit(1,id+o)
-	e3:SetCost(aux.bfgcost)
-	e3:SetTarget(s.fstg)
-	e3:SetOperation(s.fsop)
-	c:RegisterEffect(e3)
-end
+--忍法 借物遁形之术
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.spcon)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e2:SetCondition(s.spcon2)
+	c:RegisterEffect(e2)
+	--fusion summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(id,1))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCountLimit(1,id+o)
+	e3:SetCost(aux.bfgcost)
+	e3:SetTarget(s.fstg)
+	e3:SetOperation(s.fsop)
+	c:RegisterEffect(e3)
+end
 function s.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return rp==1-tp
 end

script/c114514921.lua

@@ -47,6 +47,9 @@ function c114514921.initial_effect(c)
 	local e6=e5:Clone()
 	e6:SetCode(EVENT_REMOVE)
 	c:RegisterEffect(e6)
+	local e7=e3:Clone()
+	e7:SetCode(EVENT_SUMMON_SUCCESS)
+	c:RegisterEffect(e7)
 end
 function c114514921.thfilter(c)
 	return ((c:IsType(TYPE_SPELL) and c:IsSetCard(0x46)) or c:IsCode(37630732) or c:IsCode(63995093) or c:IsCode(23171610) or c:IsCode(52875873) or c:IsCode(81193865) or c:IsCode(78217065)) and c:IsAbleToHand()

script/c114514937.lua

@@ -13,6 +13,7 @@ function s.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true
 	Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))
 end
 function s.filter(c,e,tp)

script/c12450071.lua

+--プロキシー・F・マジシャン
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--link summon
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2)
+	--fusion
+	local e1=FusionSpell.CreateSummonEffect(c,nil,nil,LOCATION_ONFIELD)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,id)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,id+o)
+	e2:SetCondition(s.spcon)
+	e2:SetTarget(s.sptg)
+	e2:SetOperation(s.spop)
+	c:RegisterEffect(e2)
+end
+function s.cfilter(c,g)
+	return c:IsFaceup() and c:IsType(TYPE_FUSION) and c:IsSummonType(SUMMON_TYPE_FUSION) and g:IsContains(c)
+end
+function s.spfilter(c,e,tp)
+	return c:IsAttackBelow(1000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function s.spcon(e,tp,eg,ep,ev,re,r,rp)
+	local lg=e:GetHandler():GetLinkedGroup()
+	return lg and eg:IsExists(s.cfilter,1,nil,lg) and not eg:IsContains(e:GetHandler())
+end
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function s.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,s.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
\ No newline at end of file

script/c191981306.lua

@@ -57,6 +57,7 @@ function s.regop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetCode(EFFECT_CANNOT_TRIGGER)
 	e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
 	e1:SetTargetRange(0,LOCATION_SZONE)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 	e1:SetTarget(s.distg)
 	Duel.RegisterEffect(e1,tp)
 end
@@ -68,7 +69,7 @@ function s.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
 end
 function s.matfilter(c)
-	return c:IsSetCard(0x1a4) and c:IsType(TYPE_MONSTER) and c:IsLevelAbove(1)
+	return c:IsSetCard(0x1a4) and c:IsType(TYPE_MONSTER) and c:IsLevelAbove(1) and c:IsAbleToGrave()
 end
 function s.fgoal(sg,e,tp)
 	return sg:GetSum(Card.GetLevel)==10
@@ -76,14 +77,14 @@ end
 function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		local mg=Duel.GetMatchingGroup(s.matfilter,tp,LOCATION_DECK,0,nil)
-		return mg:CheckSubGroup(s.fgoal,1,99,e,tp)
+		return mg:CheckSubGroup(s.fgoal,1,10,e,tp)
 	end
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
 end
 function s.tgop(e,tp,eg,ep,ev,re,r,rp)
 	local mg=Duel.GetMatchingGroup(s.matfilter,tp,LOCATION_DECK,0,nil)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local sg=mg:SelectSubGroup(tp,s.fgoal,false,1,99,e,tp)
+	local sg=mg:SelectSubGroup(tp,s.fgoal,false,1,10,e,tp)
 	if sg:GetCount()>0 then
 		Duel.SendtoGrave(sg,REASON_EFFECT)
 	end

script/c191981308.lua

@@ -99,7 +99,7 @@ end
 function s.rmop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(s.rmfilter,tp,0,LOCATION_ONFIELD,nil)
 	if g:GetCount()>0 then
-		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+		Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
 	end
 end
 function s.setfilter(c)

script/c2344618.lua

+--月光舞踏会
+local s,id,o=GetID()
+function s.initial_effect(c)
+	aux.AddCodeList(c,24094653)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(s.reg)
+	c:RegisterEffect(e1)
+	--send to GY
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,0))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,id)
+	e2:SetCondition(s.tgcon)
+	e2:SetTarget(s.tgtg)
+	e2:SetOperation(s.tgop)
+	c:RegisterEffect(e2)
+	--to hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION+CATEGORY_HANDES)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1,id+o)
+	e3:SetCondition(s.thcon)
+	e3:SetTarget(s.thtg)
+	e3:SetOperation(s.thop)
+	c:RegisterEffect(e3)
+end
+function s.reg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
+end
+function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetFlagEffect(id)~=0
+end
+function s.tgfilter(c)
+	return c:IsSetCard(0xdf) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
+end
+function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function s.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end
+function s.cfilter(c,tp)
+	return c:IsFaceup() and c:IsSetCard(0xdf) and c:IsSummonType(SUMMON_TYPE_FUSION) and c:IsSummonPlayer(tp)
+		and c:IsAllTypes(TYPE_FUSION+TYPE_MONSTER)
+end
+function s.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(s.cfilter,1,nil,tp)
+end
+function s.thfilter(c)
+	return c:IsFaceupEx() and c:IsCode(24094653) and c:IsAbleToHand()
+end
+function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
+end
+function s.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.thfilter),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
+	local tc=g:GetFirst()
+	if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then
+		Duel.ConfirmCards(1-tp,g)
+		local sg=Duel.GetMatchingGroup(Card.IsDiscardable,tp,LOCATION_HAND,0,nil,REASON_EFFECT+REASON_DISCARD)
+		if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+			local dg=sg:Select(tp,1,1,nil)
+			Duel.ShuffleHand(tp)
+			Duel.SendtoGrave(dg,REASON_EFFECT+REASON_DISCARD)
+            --Once this turn, if you Fusion Summon a "Lunalight" monster, you can also banish monsters from your grave as material
+            local e1=Effect.CreateEffect(e:GetHandler())
+            e1:SetType(EFFECT_TYPE_FIELD)
+            e1:SetCode(EFFECT_EXTRA_FUSION_MATERIAL)
+            e1:SetCountLimit(1)
+            e1:SetTargetRange(LOCATION_GRAVE,0)
+            e1:SetTarget(function(_,c) return c:IsAbleToRemove() and c:IsType(TYPE_MONSTER) end)
+            e1:SetOperation(function() return FusionSpell.FUSION_OPERATION_BANISH end)
+            e1:SetValue(function(fusion_effect,c) return c and c:IsSetCard(0xdf) and c:IsControler(fusion_effect:GetHandlerPlayer()) end)
+            e1:SetReset(RESET_PHASE|PHASE_END)
+            Duel.RegisterEffect(e1,tp)
+		end
+	end
+end
+
+-- --月光舞踏会
+-- local s,id=GetID()
+-- function s.initial_effect(c)
+-- 	--Activate
+-- 	local e1=Effect.CreateEffect(c)
+-- 	e1:SetType(EFFECT_TYPE_ACTIVATE)
+-- 	e1:SetCode(EVENT_FREE_CHAIN)
+-- 	c:RegisterEffect(e1)
+-- 	--fake one, activate to get extra materials
+-- 	local e2=Effect.CreateEffect(c)
+-- 	e2:SetDescription(aux.Stringid(id,0))
+-- 	e2:SetType(EFFECT_TYPE_IGNITION)
+-- 	e2:SetRange(LOCATION_SZONE)
+-- 	e2:SetOperation(s.op)
+-- 	c:RegisterEffect(e2)
+-- end
+
+-- function s.op(e,tp,eg,ep,ev,re,r,rp)
+--     --Once this turn, if you Fusion Summon a "Lunalight" monster, you can also banish monsters from your grave as material
+--     local c=e:GetHandler()
+--     local e1=Effect.CreateEffect(c)
+--     e1:SetType(EFFECT_TYPE_FIELD)
+--     e1:SetCode(EFFECT_EXTRA_FUSION_MATERIAL)
+--     e1:SetCountLimit(1)
+--     e1:SetTargetRange(LOCATION_GRAVE,0)
+--     e1:SetTarget(function(e,c) return c:IsAbleToRemove() and c:IsType(TYPE_MONSTER) end)
+--     e1:SetOperation(function() return FusionSpell.FUSION_OPERATION_BANISH end)
+--     e1:SetValue(function(e,c) return c and c:IsSetCard(0xdf) and c:IsControler(e:GetHandlerPlayer()) end)
+--     e1:SetReset(RESET_PHASE|PHASE_END)
+--     Duel.RegisterEffect(e1,tp)
+-- end
+

script/c24094653.lua

+--融合
+local s,id,o=GetID()
+function s.initial_effect(c)
+	FusionSpell.RegisterSummonEffect(c)
+end

script/c37630732.lua

+--パワー・ボンド
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--Activate
+	FusionSpell.RegisterSummonEffect(c,s.fusfilter,nil,nil,nil,nil,nil,nil,nil,nil,nil,s.stage_x_operation)
+end
+
+---@param c Card
+function s.fusfilter(c)
+    return c:IsRace(RACE_MACHINE)
+end
+
+---@type FUSION_SPELL_STAGE_X_CALLBACK_FUNCTION
+function s.stage_x_operation(e,tc,tp,stage,mg_fuison_spell,mg_all)
+    --- register if the summon is finished
+    if stage==FusionSpell.STAGE_AT_SUMMON_OPERATION_FINISH then
+        -- if base ATK is 0, do nothing
+        local atk=tc:GetBaseAttack()
+        if atk<=0 then
+            return
+        end
+        ---increase ATK
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(tc:GetBaseAttack())
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1,true)
+        --- do damage on end phase
+		if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
+			local e2=Effect.CreateEffect(e:GetHandler())
+			e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e2:SetCode(EVENT_PHASE+PHASE_END)
+			e2:SetCountLimit(1)
+			e2:SetLabel(tc:GetBaseAttack())
+			e2:SetReset(RESET_PHASE+PHASE_END)
+			e2:SetOperation(s.damop)
+			Duel.RegisterEffect(e2,tp)
+		end
+	end
+end
+function s.damop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Damage(tp,e:GetLabel(),REASON_EFFECT)
+end
\ No newline at end of file

script/c5370235.lua

+--サイバー・ダーク・キメラ
+local s,id,o=GetID()
+function s.initial_effect(c)
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,id)
+	e1:SetCost(s.thcost)
+	e1:SetTarget(s.thtg)
+	e1:SetOperation(s.thop)
+	c:RegisterEffect(e1)
+	--to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(id,1))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,id+o)
+	e2:SetTarget(s.tgtg)
+	e2:SetOperation(s.tgop)
+	c:RegisterEffect(e2)
+end
+function s.costfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDiscardable()
+end
+function s.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.costfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,s.costfilter,1,1,REASON_COST+REASON_DISCARD,nil)
+end
+function s.thfilter(c)
+	return c:IsCode(37630732) and c:IsAbleToHand()
+end
+function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function s.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,s.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
+    -- Can only use Dragon or Machine "Cyber" monsters as Fusion Material this turn
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
+	e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetTargetRange(0xff,0xff)
+	e1:SetTarget(s.limittg)
+	e1:SetValue(s.fuslimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+   	--Can also banish monsters from your GY as material once when you Fusion Summon this turn
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetDescription(aux.Stringid(id,2))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_EXTRA_FUSION_MATERIAL)
+	e2:SetTargetRange(LOCATION_GRAVE,0)
+	e2:SetCountLimit(1)
+	e2:SetTarget(s.mttg)
+    e2:SetOperation(function() return FusionSpell.FUSION_OPERATION_BANISH end)
+	e2:SetValue(1)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+end
+function s.limittg(e,c)
+	return not (c:IsRace(RACE_DRAGON+RACE_MACHINE) and c:IsSetCard(0x93))
+end
+function s.fuslimit(e,c,sumtype)
+	if not c then return false end
+	return c:IsControler(e:GetHandlerPlayer())
+end
+function s.mttg(e,c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
+end
+function s.tgfilter(c,tp)
+	return c:IsSetCard(0x4093) and c:IsType(TYPE_MONSTER)
+		and not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,c:GetCode()) and c:IsAbleToGrave()
+end
+function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_DECK,0,1,nil,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function s.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil,tp)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end
\ No newline at end of file

script/c87931906.lua

+--月光融合
+local s,id=GetID()
+function s.initial_effect(c)
+	--Activate
+	local e1=FusionSpell.CreateSummonEffect(c,s.fusfilter,nil,s.pre_select_mat_location,nil,nil,nil,s.fcheck,s.gcheck)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON+CATEGORY_DECKDES)
+	e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(e1)
+end
+
+---@param c Card
+function s.fusfilter(c)
+    return c:IsSetCard(0xdf)
+end
+
+---@type FUSION_SPELL_PRE_SELECT_MAT_LOCATION_FUNCTION 
+function s.pre_select_mat_location(tc,tp)
+    local res=LOCATION_HAND|LOCATION_ONFIELD
+    if Duel.IsExistingMatchingCard(s.cfilter,tp,0,LOCATION_MZONE,1,nil) then
+        res=res|LOCATION_DECK|LOCATION_EXTRA
+    end
+    return res
+end
+
+function s.cfilter(c)
+	return c:IsSummonLocation(LOCATION_EXTRA)
+end
+
+function s.fcheck(tp,mg,fc,all_mg)
+	---@type Group
+	local extra_mg=mg:Filter(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
+	if #extra_mg==0	then
+		return true
+	end
+	--- by fusion spell, the material from deck/extra can only be at most 1
+	if #extra_mg>1 then
+		return false
+	end
+	--- by fusion spell, the material from deck/extra must be Lunalight monster
+	if extra_mg:FilterCount(Card.IsSetCard,nil,0xdf)~=#extra_mg then
+		return false
+	end
+	return true
+end
+function s.gcheck(sg)
+	return sg:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)<=1
+end