2023/1/1 新增：炎神的遗能者，整合召唤/手卡特殊召唤手续，选择效果可以取消发动

script/RDBase.lua

@@ -185,50 +185,77 @@ function RushDuel.CreateSingleEffect(e, desc, card, code, value, reset, forced)
     card:RegisterEffect(e1, forced)
     return e1
 end
--- 创建效果: 选择效果 (自动生成Target和Operation)
-function RushDuel.CreateMultiChooseEffect(card, hint1, target1, operation1, hint2, target2, operation2)
+-- 创建效果: 选择效果
+function RushDuel.CreateMultiChooseEffect(card, condition, cost, hint1, target1, operation1, hint2, target2, operation2, category1, category2)
     local e1 = Effect.CreateEffect(card)
+    e1:SetDescription(hint1)
+    if category1 ~= nil then
+        e1:SetCategory(category1)
+    end
     e1:SetType(EFFECT_TYPE_IGNITION)
     e1:SetRange(LOCATION_MZONE)
-    e1:SetTarget(RushDuel.MultiChooseTarget(hint1, target1, hint2, target2))
-    e1:SetOperation(RushDuel.MultiChooseOperation(operation1, operation2))
+    if condition ~= nil then
+        e1:SetCondition(condition)
+    end
+    if cost ~= nil then
+        e1:SetCost(cost)
+    end
+    e1:SetTarget(target1)
+    e1:SetOperation(operation1)
+    card:RegisterEffect(e1)
+    local e2 = e1:Clone()
+    e2:SetDescription(hint2)
+    if category2 ~= nil then
+        e2:SetCategory(category2)
+    else
+        e2:SetCategory(0)
+    end
+    e2:SetTarget(target2)
+    e2:SetOperation(operation2)
+    card:RegisterEffect(e2)
+    return e1, e2
+end
+
+-- 添加通常召唤手续
+function RushDuel.AddSummonProcedure(card, desc, condition, operation, value)
+    local e1 = Effect.CreateEffect(card)
+    e1:SetDescription(desc)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_SUMMON_PROC)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_UNCOPYABLE)
+    e1:SetCondition(condition)
+    e1:SetOperation(operation)
+    e1:SetValue(value)
+    card:RegisterEffect(e1)
     return e1
 end
-function RushDuel.MultiChooseTarget(hint1, target1, hint2, target2)
-    return function(e, tp, eg, ep, ev, re, r, rp, chk)
-        local effect1 = target1 == nil or target1(e, tp, eg, ep, ev, re, r, rp, 0)
-        local effect2 = target2 == nil or target2(e, tp, eg, ep, ev, re, r, rp, 0)
-        if chk == 0 then
-            return effect1 or effect2
-        end
-        local option = 0
-        Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_EFFECT)
-        if effect1 and effect2 then
-            option = Duel.SelectOption(tp, hint1, hint2) + 1
-        elseif effect1 then
-            Duel.SelectOption(tp, hint1)
-            option = 1
-        elseif effect2 then
-            Duel.SelectOption(tp, hint2)
-            option = 2
-        end
-        if option == 1 and target1 ~= nil then
-            target1(e, tp, eg, ep, ev, re, r, rp, 1)
-        elseif option == 2 and target2 ~= nil then
-            target2(e, tp, eg, ep, ev, re, r, rp, 1)
-        end
-        e:SetLabel(option)
+-- 添加手卡特殊召唤手续
+function RushDuel.AddHandSpecialSummonProcedure(card, desc, condition, target, operation, value, position)
+    local e1 = Effect.CreateEffect(card)
+    e1:SetDescription(desc)
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetCode(EFFECT_SPSUMMON_PROC)
+    if position == nil then
+        e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_UNCOPYABLE)
+    else
+        e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_UNCOPYABLE + EFFECT_FLAG_SPSUM_PARAM)
+        e1:SetTargetRange(position, 0)
     end
-end
-function RushDuel.MultiChooseOperation(operation1, operation2)
-    return function(e, tp, eg, ep, ev, re, r, rp)
-        local option = e:GetLabel()
-        if option == 1 then
-            operation1(e, tp, eg, ep, ev, re, r, rp)
-        elseif option == 2 then
-            operation2(e, tp, eg, ep, ev, re, r, rp)
-        end
+    e1:SetRange(LOCATION_HAND)
+    if condition ~= nil then
+        e1:SetCondition(condition)
+    end
+    if target ~= nil then
+        e1:SetTarget(target)
+    end
+    if operation ~= nil then
+        e1:SetOperation(operation)
+    end
+    if value ~= nil then
+        e1:SetValue(value)
     end
+    card:RegisterEffect(e1)
+    return e1
 end
 
 -- 上级召唤时的解放怪兽检测

script/RDMaximum.lua

@@ -36,18 +36,8 @@ end
 -- 添加极大召唤手续
 function RushDuel.AddMaximumProcedure(c, max_atk, left_code, right_code)
     -- 极大召唤 手续
-    local e1 = Effect.CreateEffect(c)
-    e1:SetDescription(aux.Stringid(120000000, 0))
-    e1:SetType(EFFECT_TYPE_FIELD)
-    e1:SetCode(EFFECT_SPSUMMON_PROC)
-    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_UNCOPYABLE + EFFECT_FLAG_SPSUM_PARAM)
-    e1:SetRange(LOCATION_HAND)
-    e1:SetTargetRange(POS_FACEUP_ATTACK, 0)
-    e1:SetCondition(RushDuel.MaximumSummonCondition(left_code, right_code))
-    e1:SetTarget(RushDuel.MaximumSummonTarget(left_code, right_code))
-    e1:SetOperation(RushDuel.MaximumSummonOperation(left_code, right_code))
-    e1:SetValue(RushDuel.MaximumSummonValue)
-    c:RegisterEffect(e1)
+    RushDuel.AddHandSpecialSummonProcedure(c, aux.Stringid(120000000, 0), RushDuel.MaximumSummonCondition(left_code, right_code), RushDuel.MaximumSummonTarget(left_code, right_code),
+        RushDuel.MaximumSummonOperation(left_code, right_code), RushDuel.MaximumSummonValue, POS_FACEUP_ATTACK)
     -- 极大攻击力
     local e3 = Effect.CreateEffect(c)
     e3:SetType(EFFECT_TYPE_SINGLE)

script/c120109022.lua

@@ -5,15 +5,7 @@ cm.name="电子搜索龙"
 function cm.initial_effect(c)
 	RD.AddCodeList(c,list)
 	--Summon Procedure
-	local e0=Effect.CreateEffect(c)
-	e0:SetDescription(aux.Stringid(m,0))
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SUMMON_PROC)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetCondition(cm.sumcon)
-	e0:SetOperation(cm.sumop)
-	e0:SetValue(SUMMON_TYPE_ADVANCE)
-	c:RegisterEffect(e0)
+	RD.AddSummonProcedure(c,aux.Stringid(m,0),cm.sumcon,cm.sumop,SUMMON_TYPE_ADVANCE)
 	--Special Summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,1))

script/c120196001.lua

@@ -7,17 +7,13 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_DESTROY,CATEGORY_ATKCHANGE)
 end
 --Multi-Choose Effect
 cm.cost=RD.CostSendDeckTopToGrave(1)
 --Destroy
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFacedown,tp,0,LOCATION_ONFIELD,1,nil) end
-	e:SetCategory(CATEGORY_DESTROY)
 	local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_ONFIELD,nil)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end
@@ -36,7 +32,6 @@ end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,nil)
 		and Duel.IsExistingMatchingCard(cm.atkfilter,tp,0,LOCATION_MZONE,1,nil) end
-	e:SetCategory(CATEGORY_ATKCHANGE)
 end
 function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(cm.atkfilter,tp,0,LOCATION_MZONE,nil)

script/c120196002.lua

@@ -7,9 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,nil,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_POSITION,CATEGORY_DESTROY)
 end
 --Position
 function cm.posfilter(c)
@@ -17,7 +15,6 @@ function cm.posfilter(c)
 end
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.posfilter,tp,0,LOCATION_MZONE,1,nil) end
-	e:SetCategory(CATEGORY_POSITION)
 	local g=Duel.GetMatchingGroup(cm.posfilter,tp,0,LOCATION_MZONE,nil)
 	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
 end
@@ -44,9 +41,8 @@ end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,nil)
 		and Duel.IsExistingMatchingCard(cm.desfilter,tp,0,LOCATION_MZONE,1,nil) end
-	e:SetCategory(CATEGORY_DESTROY)
 	local g=Duel.GetMatchingGroup(cm.desfilter,tp,0,LOCATION_MZONE,nil)
-	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end
 function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
 	local ct=Duel.GetMatchingGroupCount(cm.filter,tp,LOCATION_MZONE,0,nil)

script/c120196003.lua

@@ -7,10 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_TODECK+CATEGORY_GRAVE_ACTION,CATEGORY_TODECK)
 end
 --Multi-Choose Effect
 cm.cost=RD.CostSendGraveToDeckBottom(Card.IsAbleToDeckOrExtraAsCost,1,1)
@@ -20,7 +17,6 @@ function cm.filter1(c)
 end
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter1,tp,0,LOCATION_GRAVE,1,nil) end
-	e:SetCategory(CATEGORY_TODECK+CATEGORY_GRAVE_ACTION)
 	local g=Duel.GetMatchingGroup(cm.filter1,tp,0,LOCATION_GRAVE,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
 end
@@ -35,7 +31,6 @@ function cm.filter2(c)
 end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter2,tp,0,LOCATION_MZONE,1,nil) end
-	e:SetCategory(CATEGORY_TODECK)
 	local g=Duel.GetMatchingGroup(cm.filter2,tp,0,LOCATION_MZONE,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
 end

script/c120196004.lua

@@ -7,11 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_ATKCHANGE)
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_ATKCHANGE,CATEGORY_ATKCHANGE)
 end
 --Multi-Choose Effect
 cm.cost=RD.CostSendHandToGrave(Card.IsAbleToGraveAsCost,1,1)

script/c120196015.lua

@@ -7,10 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_ATKCHANGE,CATEGORY_TODECK+CATEGORY_GRAVE_ACTION)
 end
 --Multi-Choose Effect
 cm.cost=RD.CostSendDeckTopToGrave(1)
@@ -20,7 +17,6 @@ function cm.atkfilter(c)
 end
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.atkfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end
-	e:SetCategory(CATEGORY_ATKCHANGE)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -36,7 +32,6 @@ function cm.tdfilter(c)
 end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	e:SetCategory(CATEGORY_TODECK+CATEGORY_GRAVE_ACTION)
 	local g=Duel.GetMatchingGroup(cm.tdfilter,tp,LOCATION_GRAVE,0,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
 end

script/c120196022.lua

@@ -7,11 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCondition(cm.condition)
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,cm.condition,cm.cost,aux.Stringid(m,1),nil,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_ATKCHANGE)
 end
 --Multi-Choose Effect
 function cm.confilter1(c)
@@ -26,10 +22,6 @@ function cm.condition(e,tp,eg,ep,ev,re,r,rp)
 end
 cm.cost=RD.CostSendDeckTopToGrave(1)
 --Atk Up
-function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	e:SetCategory(CATEGORY_ATKCHANGE)
-end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if c:IsFaceup() and c:IsRelateToEffect(e) then
@@ -38,9 +30,8 @@ function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 --Pierce
-function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsAbleToEnterBP() and RD.IsCanAttachExtraAttack(e:GetHandler(),1) end
-	e:SetCategory(0)
 end
 function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

script/c120196023.lua

@@ -7,10 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON,CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
 end
 --Multi-Choose Effect
 function cm.costfilter(c)
@@ -24,7 +21,6 @@ end
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetMZoneCount(tp)>0
 		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
-	e:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
@@ -36,7 +32,6 @@ function cm.thfilter(c)
 end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	e:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
 end
 function cm.operation2(e,tp,eg,ep,ev,re,r,rp)

script/c120199034.lua

@@ -7,17 +7,13 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_ATKCHANGE,CATEGORY_DESTROY)
 end
 --Multi-Choose Effect
 cm.cost=RD.CostSendDeckTopToGrave(1)
 --Atk Up
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE)>0 end
-	e:SetCategory(CATEGORY_ATKCHANGE)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -29,7 +25,6 @@ end
 --Destroy
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFacedown,tp,0,LOCATION_SZONE,1,nil) end
-	e:SetCategory(CATEGORY_DESTROY)
 	local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_SZONE,nil)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end

script/c120199035.lua

@@ -7,10 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCondition(cm.condition)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,cm.condition,nil,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_DAMAGE+CATEGORY_ATKCHANGE,CATEGORY_RECOVER+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 end
 --Multi-Choose Effect
 function cm.condition(e,tp,eg,ep,ev,re,r,rp)
@@ -19,7 +16,6 @@ end
 --Damage
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	e:SetCategory(CATEGORY_DAMAGE+CATEGORY_ATKCHANGE)
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,2000)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
@@ -39,7 +35,6 @@ function cm.spfilter(c,e,tp)
 end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	e:SetCategory(CATEGORY_RECOVER+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1000)
 end
 function cm.operation2(e,tp,eg,ep,ev,re,r,rp)

script/c120199036.lua

@@ -7,19 +7,11 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_POSITION)
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),nil,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_ATKCHANGE,CATEGORY_POSITION)
 end
 --Multi-Choose Effect
 cm.cost=RD.CostSendDeckTopToGrave(1)
 --Cannot Special Summon
-function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	e:SetCategory(CATEGORY_ATKCHANGE)
-end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if c:IsFaceup() and c:IsRelateToEffect(e) then
@@ -45,7 +37,6 @@ function cm.posfilter(c)
 end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
-	e:SetCategory(CATEGORY_POSITION)
 	local g=Duel.GetMatchingGroup(cm.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
 	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
 end

script/c120203011.lua

@@ -7,10 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION+CATEGORY_DESTROY)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,nil,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION,CATEGORY_DESTROY)
 end
 --To Hand
 function cm.thfilter(c)
@@ -18,7 +15,6 @@ function cm.thfilter(c)
 end
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	e:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
@@ -29,7 +25,6 @@ end
 --Destroy
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDefensePos,tp,0,LOCATION_ONFIELD,1,nil) end
-	e:SetCategory(CATEGORY_DESTROY)
 	local g=Duel.GetMatchingGroup(Card.IsDefensePos,tp,0,LOCATION_ONFIELD,nil)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end

script/c120205033.lua

@@ -7,17 +7,13 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_ATKCHANGE)
 end
 --Multi-Choose Effect
 cm.cost=RD.CostSendDeckTopToGrave(1)
 --Atk Down
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
-	e:SetCategory(CATEGORY_ATKCHANGE)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndDoAction(aux.Stringid(m,3),Card.IsFaceup,tp,0,LOCATION_MZONE,1,3,nil,function(g)
@@ -33,7 +29,6 @@ end
 --Direct Attack
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsAbleToEnterBP() and RD.IsCanAttachDirectAttack(e:GetHandler()) end
-	e:SetCategory(0)
 end
 function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

script/c120205034.lua

@@ -7,10 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_DAMAGE,CATEGORY_DRAW+CATEGORY_TOGRAVE)
 end
 --Multi-Choose Effect
 function cm.costfilter(c)
@@ -20,7 +17,6 @@ cm.cost=RD.CostSendGraveSubToDeck(cm.costfilter,aux.dncheck,2,2)
 --Damage
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	e:SetCategory(CATEGORY_DAMAGE)
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1500)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
@@ -29,7 +25,6 @@ end
 --Draw
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsPlayerCanDraw(tp,3) end
-	e:SetCategory(CATEGORY_DRAW+CATEGORY_TOGRAVE)
 	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,3)
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,2,tp,LOCATION_HAND)
 end

script/c120205036.lua

@@ -7,9 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,nil,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON,CATEGORY_TODECK+CATEGORY_GRAVE_ACTION)
 end
 --Multi-Choose Effect
 function cm.spfilter(c,e,tp)
@@ -17,7 +15,6 @@ function cm.spfilter(c,e,tp)
 end
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
-	e:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
@@ -33,7 +30,6 @@ end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.ctfilter,tp,LOCATION_GRAVE,0,1,nil)
 		and Duel.IsExistingMatchingCard(cm.tdfilter,tp,0,LOCATION_GRAVE,1,nil) end
-	e:SetCategory(CATEGORY_TODECK+CATEGORY_GRAVE_ACTION)
 	local g=Duel.GetMatchingGroup(cm.tdfilter,tp,0,LOCATION_GRAVE,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
 end

script/c120205039.lua

@@ -7,17 +7,13 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_DRAW+CATEGORY_TOGRAVE,CATEGORY_ATKCHANGE)
 end
 --Multi-Choose Effect
 cm.cost=RD.CostSendHandToGrave(Card.IsAbleToGraveAsCost,1,1)
 --Draw
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
-	e:SetCategory(CATEGORY_DRAW+CATEGORY_TOGRAVE)
 	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
 	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND)
 end
@@ -35,7 +31,6 @@ function cm.downfilter(c)
 end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.downfilter,tp,0,LOCATION_MZONE,1,nil) end
-	e:SetCategory(CATEGORY_ATKCHANGE)
 end
 function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndDoAction(aux.Stringid(m,3),cm.downfilter,tp,0,LOCATION_MZONE,1,3,nil,function(g)

script/c120208037.lua

@@ -7,11 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCondition(cm.condition)
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,cm.condition,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_ATKCHANGE,CATEGORY_DESTROY)
 end
 --Multi-Choose Effect
 function cm.confilter(c)
@@ -27,7 +23,6 @@ function cm.filter(c)
 end
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,1,nil) end
-	e:SetCategory(CATEGORY_ATKCHANGE)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -41,7 +36,6 @@ end
 --Destroy
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-	e:SetCategory(CATEGORY_DESTROY)
 	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
 end

script/c120211001.lua

@@ -7,17 +7,13 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_ATKCHANGE,CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 end
 --Multi-Choose Effect
 cm.cost=RD.CostSendDeckTopToGrave(1)
 --Atk 0
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
-	e:SetCategory(CATEGORY_ATKCHANGE)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndDoAction(aux.Stringid(m,3),Card.IsFaceup,tp,0,LOCATION_MZONE,1,3,nil,function(g)
@@ -39,7 +35,6 @@ function cm.spfilter(c,e,tp)
 end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.desfilter,tp,0,LOCATION_ONFIELD,1,nil) end
-	e:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 	local g=Duel.GetMatchingGroup(cm.desfilter,tp,0,LOCATION_ONFIELD,nil)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end

script/c120217004.lua

@@ -7,17 +7,13 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_ATKCHANGE)
 end
 --Multi-Choose Effect
 cm.cost=RD.CostSendDeckTopToGrave(1)
 --Atk Up
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end
-	e:SetCategory(CATEGORY_ATKCHANGE)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
@@ -34,7 +30,6 @@ end
 cm.indval=RD.ValueEffectIndesType(0,TYPE_TRAP)
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end
-	e:SetCategory(0)
 end
 function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)

script/c120217024.lua

@@ -7,11 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY)
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_ATKCHANGE,CATEGORY_DESTROY)
 end
 --Multi-Choose Effect
 cm.cost=RD.CostSendDeckTopToGrave(1)
@@ -19,7 +15,6 @@ cm.cost=RD.CostSendDeckTopToGrave(1)
 cm.indval=RD.ValueEffectIndesType(0,TYPE_TRAP)
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 end
-	e:SetCategory(CATEGORY_ATKCHANGE)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -35,7 +30,6 @@ function cm.desfilter(c)
 end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.desfilter,tp,0,LOCATION_ONFIELD,1,nil) end
-	e:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 	local g=Duel.GetMatchingGroup(cm.desfilter,tp,0,LOCATION_ONFIELD,nil)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end

script/c120217025.lua

@@ -7,14 +7,11 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,nil,nil,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_POSITION+CATEGORY_ATKCHANGE,CATEGORY_TODECK+CATEGORY_GRAVE_ACTION)
 end
 --Position
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(RD.IsCanChangePosition,tp,LOCATION_MZONE,0,1,nil) end
-	e:SetCategory(CATEGORY_POSITION+CATEGORY_ATKCHANGE)
 	local g=Duel.GetMatchingGroup(RD.IsCanChangePosition,tp,LOCATION_MZONE,0,nil)
 	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0)
 end
@@ -34,7 +31,6 @@ function cm.tdfilter(c)
 end
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter,tp,0,LOCATION_GRAVE,1,nil) end
-	e:SetCategory(CATEGORY_TODECK+CATEGORY_GRAVE_ACTION)
 	local g=Duel.GetMatchingGroup(cm.tdfilter,tp,0,LOCATION_GRAVE,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
 end

script/c120218001.lua

@@ -7,10 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[2])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCondition(cm.condition)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,cm.condition,nil,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_DAMAGE+CATEGORY_ATKCHANGE,CATEGORY_RECOVER+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 end
 --Multi-Choose Effect
 function cm.condition(e,tp,eg,ep,ev,re,r,rp)
@@ -19,7 +16,6 @@ end
 --Damage
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	e:SetCategory(CATEGORY_DAMAGE+CATEGORY_ATKCHANGE)
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,2000)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
@@ -39,7 +35,6 @@ function cm.spfilter(c,e,tp)
 end
 function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	e:SetCategory(CATEGORY_RECOVER+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 	Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1000)
 end
 function cm.operation2(e,tp,eg,ep,ev,re,r,rp)

script/c120228000.lua

@@ -3,15 +3,7 @@ local cm=_G["c"..m]
 cm.name="堕天使 杰拉特"
 function cm.initial_effect(c)
 	--Summon Procedure
-	local e0=Effect.CreateEffect(c)
-	e0:SetDescription(aux.Stringid(m,0))
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SUMMON_PROC)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetCondition(cm.sumcon)
-	e0:SetOperation(cm.sumop)
-	e0:SetValue(SUMMON_TYPE_ADVANCE)
-	c:RegisterEffect(e0)
+	RD.AddSummonProcedure(c,aux.Stringid(m,0),cm.sumcon,cm.sumop,SUMMON_TYPE_ADVANCE)
 	--Destroy
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,1))

script/c120231022.lua

@@ -5,15 +5,7 @@ cm.name="电子强袭龙"
 function cm.initial_effect(c)
 	RD.AddCodeList(c,list)
 	--Summon Procedure
-	local e0=Effect.CreateEffect(c)
-	e0:SetDescription(aux.Stringid(m,0))
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SUMMON_PROC)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetCondition(cm.sumcon)
-	e0:SetOperation(cm.sumop)
-	e0:SetValue(SUMMON_TYPE_ADVANCE)
-	c:RegisterEffect(e0)
+	RD.AddSummonProcedure(c,aux.Stringid(m,0),cm.sumcon,cm.sumop,SUMMON_TYPE_ADVANCE)
 	--Destroy
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,1))

script/c120231023.lua

@@ -5,15 +5,7 @@ cm.name="电子隐形龙"
 function cm.initial_effect(c)
 	RD.AddCodeList(c,list)
 	--Summon Procedure
-	local e0=Effect.CreateEffect(c)
-	e0:SetDescription(aux.Stringid(m,0))
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SUMMON_PROC)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetCondition(cm.sumcon)
-	e0:SetOperation(cm.sumop)
-	e0:SetValue(SUMMON_TYPE_ADVANCE)
-	c:RegisterEffect(e0)
+	RD.AddSummonProcedure(c,aux.Stringid(m,0),cm.sumcon,cm.sumop,SUMMON_TYPE_ADVANCE)
 	--Def Up
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)

script/c120231024.lua

@@ -3,13 +3,7 @@ local cm=_G["c"..m]
 cm.name="电子龙"
 function cm.initial_effect(c)
 	--Special Summon Procedure
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(cm.spcon)
-	c:RegisterEffect(e1)
+	RD.AddHandSpecialSummonProcedure(c,aux.Stringid(m,0),cm.spcon)
 end
 --Special Summon Procedure
 function cm.spcon(e,c)

script/c120231031.lua

@@ -3,22 +3,16 @@ local cm=_G["c"..m]
 cm.name="超可爱执行者·光天女"
 function cm.initial_effect(c)
 	--Special Summon Procedure
+	RD.AddHandSpecialSummonProcedure(c,aux.Stringid(m,0),cm.spcon)
+	--To Deck
 	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(cm.spcon)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
-	--To Deck
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetCategory(CATEGORY_TODECK)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetTarget(cm.target)
-	e2:SetOperation(cm.operation)
-	c:RegisterEffect(e2)
 end
 --Special Summon Procedure
 function cm.spcon(e,c)
@@ -49,7 +43,7 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 		RD.SendToDeckAndExists(g)
 	end)
 	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateHintEffect(e,aux.Stringid(m,1),tp,1,0,RESET_PHASE+PHASE_END)
+	RD.CreateHintEffect(e,aux.Stringid(m,2),tp,1,0,RESET_PHASE+PHASE_END)
 	RD.CreateAttackLimitEffect(e,cm.atktg,tp,LOCATION_MZONE,0,RESET_PHASE+PHASE_END)
 	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
 end

script/c120231032.lua

@@ -3,25 +3,19 @@ local cm=_G["c"..m]
 cm.name="超可爱执行者·细剑女"
 function cm.initial_effect(c)
 	--Special Summon Procedure
+	RD.AddHandSpecialSummonProcedure(c,aux.Stringid(m,0),cm.spcon)
+	--Atk & Def
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(cm.spcon)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e1:SetTarget(cm.downtg)
+	e1:SetValue(-300)
 	c:RegisterEffect(e1)
-	--Atk & Def
-	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(cm.downtg)
-	e2:SetValue(-300)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_UPDATE_DEFENSE)
 	c:RegisterEffect(e2)
-	local e3=e2:Clone()
-	e3:SetCode(EFFECT_UPDATE_DEFENSE)
-	c:RegisterEffect(e3)
 end
 --Special Summon Procedure
 function cm.spconfilter(c)

script/c120231034.lua

@@ -3,21 +3,15 @@ local cm=_G["c"..m]
 cm.name="超可爱执行者·夜魔女"
 function cm.initial_effect(c)
 	--Special Summon Procedure
+	RD.AddHandSpecialSummonProcedure(c,aux.Stringid(m,0),cm.spcon)
+	--Cannot Attack
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(cm.spcon)
+	e1:SetCode(EFFECT_CANNOT_ATTACK)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetTarget(cm.target)
 	c:RegisterEffect(e1)
-	--Cannot Attack
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_CANNOT_ATTACK)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetTargetRange(LOCATION_MZONE,0)
-	e2:SetTarget(cm.target)
-	c:RegisterEffect(e2)
 end
 --Special Summon Procedure
 function cm.spconfilter(c)

script/c120231037.lua

@@ -3,26 +3,18 @@ local cm=_G["c"..m]
 cm.name="超可爱执行者·花草女"
 function cm.initial_effect(c)
 	--Special Summon Procedure
+	RD.AddHandSpecialSummonProcedure(c,aux.Stringid(m,0),cm.spcon,cm.sptg,cm.spop)
+	--Recover
 	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(cm.spcon)
-	e1:SetTarget(cm.sptg)
-	e1:SetOperation(cm.spop)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_RECOVER)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
-	--Recover
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(m,0))
-	e2:SetCategory(CATEGORY_RECOVER)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCost(cm.cost)
-	e2:SetTarget(cm.target)
-	e2:SetOperation(cm.operation)
-	c:RegisterEffect(e2)
 end
 --Special Summon Procedure
 function cm.spconfilter(c)

script/c120235000.lua

@@ -3,15 +3,7 @@ local cm=_G["c"..m]
 cm.name="闪电之战士 吉尔福德"
 function cm.initial_effect(c)
 	--Summon Procedure
-	local e0=Effect.CreateEffect(c)
-	e0:SetDescription(aux.Stringid(m,0))
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SUMMON_PROC)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetCondition(cm.sumcon)
-	e0:SetOperation(cm.sumop)
-	e0:SetValue(SUMMON_TYPE_ADVANCE+SUMMON_VALUE_SELF)
-	c:RegisterEffect(e0)
+	RD.AddSummonProcedure(c,aux.Stringid(m,0),cm.sumcon,cm.sumop,SUMMON_TYPE_ADVANCE+SUMMON_VALUE_SELF)
 	--Check Material
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)

script/c120235027.lua

+local m=120235027
+local cm=_G["c"..m]
+cm.name="炎神的遗能者"
+function cm.initial_effect(c)
+	--Special Summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.condition)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Special Summon
+function cm.spfilter(c,e,tp)
+	return c:IsCode(m) and RD.IsCanBeSpecialSummoned(c,e,tp,POS_FACEUP)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return RD.IsSummonTurn(e:GetHandler())
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMZoneCount(tp)>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.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndSpecialSummon(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,2,nil,e,POS_FACEUP)
+	if Duel.GetFlagEffect(tp,m)~=0 then return end
+	RD.CreateCannotSummonEffect(e,aux.Stringid(m,1),cm.sumlimit,tp,1,0,RESET_PHASE+PHASE_END)
+	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+end
+function cm.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return not c:IsRace(RACE_WARRIOR)
+end
\ No newline at end of file

script/c120235034.lua

@@ -7,11 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[1])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCondition(cm.condition)
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,cm.condition,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
 end
 --Multi-Choose Effect
 function cm.confilter1(c)

script/c120235035.lua

@@ -7,11 +7,7 @@ function cm.initial_effect(c)
 	--Fusion Material
 	RD.AddFusionProcedure(c,list[1],list[1])
 	--Multi-Choose Effect
-	local e1=RD.CreateMultiChooseEffect(c,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCondition(cm.condition)
-	e1:SetCost(cm.cost)
-	c:RegisterEffect(e1)
+	RD.CreateMultiChooseEffect(c,cm.condition,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,nil,CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 end
 --Multi-Choose Effect
 function cm.confilter1(c,tp)
@@ -34,7 +30,6 @@ end
 function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	local g=Duel.GetMatchingGroup(cm.filter1,tp,LOCATION_MZONE,0,nil)
 	if chk==0 then return Duel.IsAbleToEnterBP() and g:CheckSubGroup(cm.check,2,2) end
-	e:SetCategory(0)
 end
 function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectGroupAndDoAction(aux.Stringid(m,3),cm.filter1,cm.check,tp,LOCATION_MZONE,0,2,2,nil,function(g)
@@ -51,7 +46,6 @@ function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
 	local g=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_GRAVE,0,nil,e,tp)
 	if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) and Duel.GetMZoneCount(tp)>1
 		and g:CheckSubGroup(cm.check,2,2,nil) end
-	e:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_GRAVE)
 end
 function cm.operation2(e,tp,eg,ep,ev,re,r,rp)