Add 究極竜魔導師

c12381100.lua

@@ -2,6 +2,33 @@
 local s,id,o=GetID()
 function s.initial_effect(c)
 	aux.AddMaterialCodeList(c,23995346)
+	-- common Ritual‐monster filter: 「カオス」儀式モンスター
+    local ritual_filter=function(mc,tc)
+        if not mc:IsAllTypes(TYPE_MONSTER|TYPE_RITUAL) then return false end
+		return mc:IsFusionSetCard(0xcf)
+    end
+	Fusion.AddFusionProcedure(c,{
+        variants = {
+            -- Variant A: 1 × 青眼の究極竜 + 1 × 「カオス」儀式モンスター
+            {
+                slots = {
+                    Fusion.Slot.Code(23995346),
+                    Fusion.Slot.Filter(ritual_filter),
+                }
+            },
+            -- Variant B: 3 × 「ブルーアイズ」モンスター + 1 × 「カオス」儀式モンスター
+            {
+                slots = {
+					Fusion.Slot.Group({
+						min=3,
+						max=3,
+						filter=function(mc,tc) return mc:IsFusionSetCard(0xdd) end,
+					}),
+                    Fusion.Slot.Filter(ritual_filter),
+                }
+            }
+        }
+	})
 	c:EnableReviveLimit()
 	--summon procedure
 	local e0=Effect.CreateEffect(c)
@@ -10,13 +37,13 @@ function s.initial_effect(c)
 	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
 	e0:SetValue(aux.fuslimit)
 	c:RegisterEffect(e0)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EFFECT_FUSION_MATERIAL)
-	e1:SetCondition(s.fcondition)
-	e1:SetOperation(s.foperation)
-	c:RegisterEffect(e1)
+	-- local e1=Effect.CreateEffect(c)
+	-- e1:SetType(EFFECT_TYPE_SINGLE)
+	-- e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	-- e1:SetCode(EFFECT_FUSION_MATERIAL)
+	-- e1:SetCondition(s.fcondition)
+	-- e1:SetOperation(s.foperation)
+	-- c:RegisterEffect(e1)
 	--negate
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(id,1))

c71143015.lua

@@ -11,7 +11,14 @@ function s.initial_effect(c)
 			{ [0xff]=FusionSpell.FUSION_OPERATION_SHUFFLE }
 		},
 		stage_x_operation=s.stage_x_operation,
-		locked_codes={89631139,23995346}
+		locked_codes=function(tc)
+			if aux.IsMaterialListCode(tc,89631139)==true then
+				return {89631139}
+			elseif aux.IsMaterialListCode(tc,23995346)==true then
+				return {23995346}
+			end
+			return {}
+		end
 	})
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON+CATEGORY_GRAVE_ACTION)
 	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)