Updated "Cost.Discard" and some cards to use it

Cost.Discard:
- Can now take both a min and a max number to discard that can also be a function that returns a number.
- Can now take an additional operation function if the effect needs to do something regarding the discarded cards (e.g. save how many were discarded).
- Now by default also passes the effect itself and the triggering player to the discard filter.

Updated "Linkslayer" and "Dragonic Warrior" to make use of these updates.

Author: pyrQ

official/c35595518.lua

@@ -2,51 +2,51 @@
 --Linkslayer
 local s,id=GetID()
 function s.initial_effect(c)
-	--spsummon proc
+	--If you control no monsters, you can Special Summon this card (from your hand)
 	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
 	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCondition(s.spcon)
 	c:RegisterEffect(e1)
-	--destroy
+	--Destroy up to 2 Spells/Traps on the field
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(id,0))
+	e2:SetDescription(aux.Stringid(id,1))
 	e2:SetCategory(CATEGORY_DESTROY)
 	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetCountLimit(1)
 	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e2:SetRange(LOCATION_MZONE)
-	e2:SetCost(s.cost)
-	e2:SetTarget(s.target)
-	e2:SetOperation(s.operation)
+	e2:SetCountLimit(1)
+	e2:SetCost(Cost.Discard(nil,nil,1,
+				function(e,tp)
+					return math.min(2,Duel.GetTargetCount(Card.IsSpellTrap,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil))
+				end,
+				function(e,tp,og) e:SetLabel(#og) end
+				)
+			)
+	e2:SetTarget(s.destg)
+	e2:SetOperation(s.desop)
 	c:RegisterEffect(e2)
 end
 function s.spcon(e,c)
 	if c==nil then return true end
-	return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0,nil)==0
-		and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
-end
-function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
-	local rt=Duel.GetTargetCount(Card.IsSpellTrap,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
-	if rt>2 then rt=2 end
-	local ct=Duel.DiscardHand(tp,nil,1,rt,REASON_DISCARD|REASON_COST)
-	e:SetLabel(ct)
+	local tp=c:GetControler()
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0,nil)==0
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 end
-function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsOnField() and chkc:IsSpellTrap() end
 	if chk==0 then return Duel.IsExistingTarget(Card.IsSpellTrap,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
 	local ct=e:GetLabel()
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
 	local g=Duel.SelectTarget(tp,Card.IsSpellTrap,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct,ct,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,ct,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,ct,tp,0)
 end
-function s.operation(e,tp,eg,ep,ev,re,r,rp,chk)
-	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	local rg=tg:Filter(Card.IsRelateToEffect,nil,e)
-	if #rg>0 then
-		Duel.Destroy(rg,REASON_EFFECT)
+function s.desop(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tg=Duel.GetTargetCards(e)
+	if #tg>0 then
+		Duel.Destroy(tg,REASON_EFFECT)
 	end
 end

pre-release/c100201001.lua

@@ -9,7 +9,7 @@ function s.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCountLimit(1,id)
-	e1:SetCost(s.spcost)
+	e1:SetCost(Cost.Discard(s.spcostfilter))
 	e1:SetTarget(s.sptg)
 	e1:SetOperation(s.spop)
 	c:RegisterEffect(e1)
@@ -21,10 +21,6 @@ end
 function s.spfilter(c,e,tp)
 	return c:IsLevelBelow(4) and c:IsRace(RACE_DRAGON) and not c:IsCode(id) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
-function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(s.spcostfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
-	Duel.DiscardHand(tp,s.spcostfilter,1,1,REASON_COST|REASON_DISCARD,nil,e,tp)
-end
 function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE,0)>0
 		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND|LOCATION_DECK,0,1,nil,e,tp) end
@@ -39,4 +35,4 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 		sc:NegateEffects(e:GetHandler())
 	end
 	Duel.SpecialSummonComplete()
-end
+end

utility.lua

@@ -1513,14 +1513,28 @@ function Cost.HintSelectedEffect(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
 end
 
-function Cost.Discard(filter,other,count)
-	count=count or 1
-	filter=filter and aux.AND(filter,Card.IsDiscardable) or Card.IsDiscardable
-	return function(e,tp,eg,ep,ev,re,r,rp,chk)
+function Cost.Discard(filter,other,min,max,op)
+	local min_type=type(min)
+	local max_type=type(max)
+	
+	local function filter_final(c,e,tp)
+		return (not filter or filter(c,e,tp)) and c:IsDiscardable()
+	end
+	
+	local function cost_func(e,tp,eg,ep,ev,re,r,rp,chk)
+		local min_count=(min_type=="function" and min(e,tp))
+			or (min==nil and 1)
+			or min
+		local max_count=(max_type=="function" and max(e,tp))
+			or (max==nil and min_count)
+			or max
 		local exclude=other and e:GetHandler() or nil
-		if chk==0 then return Duel.IsExistingMatchingCard(filter,tp,LOCATION_HAND,0,count,exclude) end
-		Duel.DiscardHand(tp,filter,count,count,REASON_COST|REASON_DISCARD,exclude)
+		if chk==0 then return min_count>0 and max_count>=min_count
+			and Duel.IsExistingMatchingCard(filter_final,tp,LOCATION_HAND,0,min_count,exclude,e,tp) end
+		Duel.DiscardHand(tp,filter_final,min_count,max_count,REASON_COST|REASON_DISCARD,exclude,e,tp)
+		if op then op(e,tp,Duel.GetOperatedGroup()) end
 	end
+	return cost_func
 end
 
 local detach_costs={}