"Assault Mode Activate" script update + updated some functions

- Assault Mode Activate: Added more hint timings and general modernisation.
- Duel.GetReleaseGroup & Duel.Release: Added partial handling for Tributing cards in the Extra Deck.

Author: pyrQ

official/c80280737.lua

@@ -4,45 +4,45 @@ local s,id=GetID()
 function s.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetHintTiming(0,TIMING_END_PHASE)
 	e1:SetCost(s.cost)
 	e1:SetTarget(s.target)
 	e1:SetOperation(s.activate)
+	e1:SetHintTiming(0,TIMING_STANDBY_PHASE|TIMING_MAIN_END|TIMINGS_CHECK_MONSTER_E)
 	c:RegisterEffect(e1)
 end
 s.listed_series={SET_ASSAULT_MODE}
 function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	e:SetLabel(1)
 	return true
 end
-function s.filter1(c,e,tp,ft)
-	return c:IsType(TYPE_SYNCHRO) and (ft>0 or (c:GetSequence()<5 and c:IsControler(tp))) 
-		and Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_DECK,0,1,nil,c:GetCode(),e,tp)
+function s.costfilter(c,e,tp)
+	return c:IsSynchroMonster() and Duel.GetMZoneCount(tp,c)>0
+		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetCode())
 end
-function s.filter2(c,tcode,e,tp)
-	return c:IsSetCard(SET_ASSAULT_MODE) and c.assault_mode and c.assault_mode==tcode and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
+function s.spfilter(c,e,tp,code)
+	return c:IsSetCard(SET_ASSAULT_MODE) and c.assault_mode and c.assault_mode==code and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
 end
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
 	if chk==0 then
 		if e:GetLabel()~=1 then return false end
 		e:SetLabel(0)
-		return ft>-1 and Duel.CheckReleaseGroupCost(tp,s.filter1,1,false,nil,nil,e,tp,ft)
+		return Duel.CheckReleaseGroupCost(tp,s.costfilter,1,false,nil,nil,e,tp)
 	end
-	local rg=Duel.SelectReleaseGroupCost(tp,s.filter1,1,1,false,nil,nil,e,tp,ft)
-	Duel.SetTargetParam(rg:GetFirst():GetCode())
-	Duel.Release(rg,REASON_COST)
+	local sc=Duel.SelectReleaseGroupCost(tp,s.costfilter,1,1,false,nil,nil,e,tp):GetFirst()
+	Duel.SetTargetParam(sc:GetCode())
+	Duel.Release(sc,REASON_COST)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	local code=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local tc=Duel.SelectMatchingCard(tp,s.filter2,tp,LOCATION_DECK,0,1,1,nil,code,e,tp):GetFirst()
-	if tc and Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP_ATTACK)>0 then
-		tc:CompleteProcedure()
+	local sc=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,code):GetFirst()
+	if sc and Duel.SpecialSummon(sc,0,tp,tp,true,false,POS_FACEUP_ATTACK)>0 then
+		sc:CompleteProcedure()
 	end
 end

proc_workaround.lua

@@ -1,5 +1,57 @@
 --Utilities to be added to the core
 
+--[[
+	allow EFFECT_EXTRA_RELEASE_NONSUM effects to work on cards in the Extra Deck
+	used by "Duel Evolution - Assault Zone"
+	possibly to be expanded on to also include other locations such as the Deck
+	
+	will add more comments later
+--]]
+Duel.GetReleaseGroup=(function()
+	local oldfunc=Duel.GetReleaseGroup
+	return function(player,use_hand,use_oppo,reason)
+		use_hand=use_hand or false
+		use_oppo=use_oppo or false
+		reason=reason or REASON_COST
+		local g=oldfunc(player,use_hand,use_oppo,reason)
+		local exg=Duel.GetMatchingGroup(function(c) return c:IsHasEffect(EFFECT_EXTRA_RELEASE_NONSUM) and c:IsReleasable(reason) end,player,LOCATION_EXTRA,0,nil)
+		if #exg>0 then
+			local re=Duel.GetReasonEffect()
+			for exc in exg:Iter() do
+				local effs={exc:IsHasEffect(EFFECT_EXTRA_RELEASE_NONSUM)}
+				for _,eff in ipairs(effs) do
+					local value=eff:GetValue()
+					if value==1 or value(eff,re,reason,player) then
+						g:AddCard(exc)
+					end
+				end
+			end
+		end
+		return g
+	end
+end)()
+Duel.Release=(function()
+	local oldfunc=Duel.Release
+	return function(targets,reason,rp)
+		rp=rp or Duel.GetReasonPlayer()
+		local exg=Group.CreateGroup()
+		local others=Group.CreateGroup()
+		if type(targets)=="Group" then
+			exg,others=targets:Split(Card.IsLocation,nil,LOCATION_EXTRA)
+		elseif type(targets)=="Card" then
+			if targets:IsLocation(LOCATION_EXTRA) then
+				exg:AddCard(targets)
+			else
+				others:AddCard(targets)
+			end
+		end
+		oldfunc(others,reason,rp)
+		if #exg>0 then
+			Duel.SendtoGrave(exg,REASON_RELEASE|reason,nil,rp)
+		end
+	end
+end)()
+
 --[[
 	If a non-activated effect allows a monster to be Special Summoned with a different property (e.g. "as a Level X monster") then that different property should be considered when any "cannot summon" type of effects are checked
 	("Cockadoodledoo" vs "Evilswarm Ophion" workaround)