Update the Link Summoning procedure to support checking for an additional summoning condition

Author: pyrQ

official/c10019086.lua

@@ -5,12 +5,13 @@ local s,id=GetID()
 function s.initial_effect(c)
 	c:EnableReviveLimit()
 	--Link Summon Procedure: 3+ Beast, Beast-Warrior, and/or Winged Beast monsters
-	Link.AddProcedure(c,aux.FilterBoolFunctionEx(Card.IsRace,RACES_BEAST_BWARRIOR_WINGB),3,5)
-	--Special Summon restriction
+	Link.AddProcedure(c,aux.FilterBoolFunctionEx(Card.IsRace,RACES_BEAST_BWARRIOR_WINGB),3,5,nil,nil,s.splimit)
+	--Special Summon condition
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetCode(EFFECT_SPSUMMON_COST)
-	e0:SetCost(s.spcost)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetValue(s.splimit)
 	c:RegisterEffect(e0)
 	--Opponent cannot activate cards or effects on Special Summon
 	local e1=Effect.CreateEffect(c)
@@ -45,8 +46,8 @@ s.listed_series={SET_TRI_BRIGADE}
 function s.spcostfilter(c)
 	return c:IsSetCard(SET_TRI_BRIGADE) and c:IsSpellTrap()
 end
-function s.spcost(e,c,sp,st)
-	return not c:IsLocation(LOCATION_EXTRA) or Duel.GetMatchingGroupCount(s.spcostfilter,sp,LOCATION_GRAVE,0,nil)>2
+function s.splimit(e,se,sp,st)
+	return not e:GetHandler():IsLocation(LOCATION_EXTRA) or Duel.IsExistingMatchingCard(s.spcostfilter,sp,LOCATION_GRAVE,0,3,nil)
 end
 function s.sucop(e,tp,eg,ep,ev,re,r,rp)
 	if eg:IsExists(Card.IsSummonPlayer,1,nil,tp) then

proc_link.lua

@@ -6,7 +6,7 @@ if not Link then
 	Link = aux.LinkProcedure
 end
 --Link Summon
-function Link.AddProcedure(c,f,min,max,specialchk,desc)
+function Link.AddProcedure(c,f,min,max,specialchk,desc,spcon)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	if desc then
@@ -18,7 +18,7 @@ function Link.AddProcedure(c,f,min,max,specialchk,desc)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
 	e1:SetRange(LOCATION_EXTRA)
 	if max==nil then max=c:GetLink() end
-	e1:SetCondition(Link.Condition(f,min,max,specialchk))
+	e1:SetCondition(Link.Condition(f,min,max,specialchk,spcon))
 	e1:SetTarget(Link.Target(f,min,max,specialchk))
 	e1:SetOperation(Link.Operation(f,min,max,specialchk))
 	e1:SetValue(SUMMON_TYPE_LINK)
@@ -104,11 +104,14 @@ function Link.CheckGoal(tp,sg,lc,minc,f,specialchk,filt)
 	return #sg>=minc and sg:CheckWithSumEqual(Link.GetLinkCount,lc:GetLink(),#sg,#sg)
 		and (not specialchk or specialchk(sg,lc,SUMMON_TYPE_LINK|MATERIAL_LINK,tp)) and Duel.GetLocationCountFromEx(tp,tp,sg,lc)>0
 end
-function Link.Condition(f,minc,maxc,specialchk)
+function Link.Condition(f,minc,maxc,specialchk,spcon)
 	return	function(e,c,must,g,min,max)
 				if c==nil then return true end
 				if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
 				local tp=c:GetControler()
+				if spcon and not spcon(e,e,tp,SUMMON_TYPE_LINK) then
+					return false
+				end
 				if not g then
 					g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
 				end