2024/4/9 新增：碧牙重连，整合高天召唤

script/RDSummon.lua

@@ -149,6 +149,21 @@ function RushDuel.SummonProcedureOperationThree(filter, operation)
     end
 end
 
+-- 添加解放1只的妥协召唤手续 (改变原本攻击力)
+function RushDuel.AddPrimeSummonProcedure(card, desc, attack)
+    return RushDuel.AddSummonProcedureOne(card, desc, nil, nil, function(e, tp, eg, ep, ev, re, r, rp, c, mg)
+        -- 改变原本攻击力
+        local e1 = Effect.CreateEffect(card)
+        e1:SetType(EFFECT_TYPE_SINGLE)
+        e1:SetCode(EFFECT_SET_BASE_ATTACK)
+        e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+        e1:SetRange(LOCATION_MZONE)
+        e1:SetValue(attack)
+        e1:SetReset(RESET_EVENT + 0xff0000)
+        c:RegisterEffect(e1)
+    end)
+end
+
 -- 上级召唤时的解放怪兽检测
 function RushDuel.CreateAdvanceCheck(card, filter, count, flag)
     local e1 = Effect.CreateEffect(card)

script/c120238002.lua

@@ -3,7 +3,7 @@ local cm=_G["c"..m]
 cm.name="百兽王 贝希摩斯"
 function cm.initial_effect(c)
 	--Summon Procedure
-	RD.AddSummonProcedureOne(c,aux.Stringid(m,0),nil,nil,cm.sumop)
+	RD.AddPrimeSummonProcedure(c,aux.Stringid(m,0),2000)
 	--To Hand
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,1))
@@ -15,18 +15,6 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
 end
---Summon Procedure
-function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c,mg)
-	--Change Base Attack
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_SET_BASE_ATTACK)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(2000)
-	e1:SetReset(RESET_EVENT+0xff0000)
-	c:RegisterEffect(e1)
-end
 --To Hand
 function cm.thfilter(c)
 	return c:IsRace(RACE_BEAST) and c:IsAbleToHand()

script/c120247058.lua

@@ -20,8 +20,7 @@ function cm.condition(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetAttacker():IsControler(1-tp)
 end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsPlayerCanDraw(tp,1)
-		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,1,nil) end
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,1,nil) end
 	local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_GRAVE,0,nil)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
 end

script/c120257004.lua

@@ -5,7 +5,7 @@ cm.name="高天爪少女"
 function cm.initial_effect(c)
 	RD.AddCodeList(c,list)
 	--Summon Procedure
-	RD.AddSummonProcedureOne(c,aux.Stringid(m,0),nil,nil,cm.sumop)
+	RD.AddPrimeSummonProcedure(c,aux.Stringid(m,0),200)
 	--Special Summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,1))
@@ -17,18 +17,6 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
 end
---Summon Procedure
-function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c,mg)
-	--Change Base Attack
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_SET_BASE_ATTACK)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(200)
-	e1:SetReset(RESET_EVENT+0xff0000)
-	c:RegisterEffect(e1)
-end
 --Special Summon
 function cm.spfilter(c,e,tp)
 	return c:IsType(TYPE_NORMAL) and c:IsAttribute(ATTRIBUTE_LIGHT)

script/c120257005.lua

@@ -3,7 +3,7 @@ local cm=_G["c"..m]
 cm.name="高天拖拉虎"
 function cm.initial_effect(c)
 	--Summon Procedure
-	RD.AddSummonProcedureOne(c,aux.Stringid(m,0),nil,nil,cm.sumop)
+	RD.AddPrimeSummonProcedure(c,aux.Stringid(m,0),1800)
 	--Pierce
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,1))
@@ -15,18 +15,6 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
 end
---Summon Procedure
-function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c,mg)
-	--Change Base Attack
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_SET_BASE_ATTACK)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(1800)
-	e1:SetReset(RESET_EVENT+0xff0000)
-	c:RegisterEffect(e1)
-end
 --Pierce
 function cm.costfilter(c)
 	return c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()

script/c120257006.lua

@@ -5,7 +5,7 @@ cm.name="高天之班卓琴盗贼"
 function cm.initial_effect(c)
 	RD.AddCodeList(c,list)
 	--Summon Procedure
-	RD.AddSummonProcedureOne(c,aux.Stringid(m,0),nil,nil,cm.sumop)
+	RD.AddPrimeSummonProcedure(c,aux.Stringid(m,0),1800)
 	--To Hand
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))
@@ -17,18 +17,6 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
 end
---Summon Procedure
-function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c,mg)
-	--Change Base Attack
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_SET_BASE_ATTACK)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(1800)
-	e1:SetReset(RESET_EVENT+0xff0000)
-	c:RegisterEffect(e1)
-end
 --To Hand
 function cm.thfilter(c)
 	return ((c:IsType(TYPE_NORMAL) and c:IsLevelBelow(4) and c:IsAttribute(ATTRIBUTE_LIGHT))

script/c120257007.lua

@@ -5,7 +5,7 @@ cm.name="高天之神童 迪安·凯特"
 function cm.initial_effect(c)
 	RD.AddCodeList(c,list)
 	--Summon Procedure
-	RD.AddSummonProcedureOne(c,aux.Stringid(m,0),nil,nil,cm.sumop)
+	RD.AddPrimeSummonProcedure(c,aux.Stringid(m,0),1000)
 	--Recover
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,1))
@@ -18,18 +18,6 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)
 end
---Summon Procedure
-function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c,mg)
-	--Change Base Attack
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_SET_BASE_ATTACK)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(1000)
-	e1:SetReset(RESET_EVENT+0xff0000)
-	c:RegisterEffect(e1)
-end
 --Recover
 function cm.costfilter(c)
 	return c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()

script/c120257008.lua

@@ -3,7 +3,7 @@ local cm=_G["c"..m]
 cm.name="穿越侍·高天海牛侍 铠天原新星"
 function cm.initial_effect(c)
 	--Summon Procedure
-	RD.AddSummonProcedureOne(c,aux.Stringid(m,0),nil,nil,cm.sumop1)
+	RD.AddPrimeSummonProcedure(c,aux.Stringid(m,0),1800)
 	RD.AddSummonProcedureThree(c,aux.Stringid(m,1))
 	RD.CreateAdvanceSummonFlag(c,20257008)
 	--Atk Up
@@ -33,18 +33,6 @@ function cm.initial_effect(c)
 	--Continuous Effect
 	RD.AddContinuousEffect(c,e1)
 end
---Summon Procedure
-function cm.sumop1(e,tp,eg,ep,ev,re,r,rp,c,mg)
-	--Change Base Attack
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_SET_BASE_ATTACK)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetValue(1800)
-	e1:SetReset(RESET_EVENT+0xff0000)
-	c:RegisterEffect(e1)
-end
 --Set Attack
 function cm.atkcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_VALUE_THREE)

script/c120261054.lua

+local m=120261054
+local list={120222017}
+local cm=_G["c"..m]
+cm.name="碧牙重连"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_GRAVE_ACTION+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+end
+--Activate
+function cm.filter(c)
+	return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_DRAGON) and c:IsAbleToDeck()
+end
+function cm.spfilter(c,e,tp)
+	return c:IsCode(list[1]) and RD.IsCanBeSpecialSummoned(c,e,tp,POS_FACEUP)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,2,nil) end
+	local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_GRAVE,0,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,2,0,0)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_TODECK,aux.NecroValleyFilter(cm.filter),tp,LOCATION_GRAVE,0,1,6,nil,function(g)
+		if RD.SendToDeckAndExists(g) then
+			RD.CanSelectAndSpecialSummon(aux.Stringid(m,1),aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,POS_FACEUP,true)
+		end
+	end)
+end
\ No newline at end of file