cards_specific_functions_ext.lua

-- Majestic monsters return proc
function Auxiliary.EnableMajesticReturn(c,extracat,extrainfo,extraop,returneff)
	if not extracat then extracat=0 end
	--return
	local e1=Effect.CreateEffect(c)
	e1:SetCategory(CATEGORY_TODECK | extracat)
	e1:SetDescription(aux.Stringid(2002000030,2))
	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
	e1:SetCode(EVENT_PHASE+PHASE_END)
	e1:SetRange(LOCATION_MZONE)
	e1:SetCountLimit(1)
	e1:SetCondition(Auxiliary.MajesticReturnCondition1)
	e1:SetTarget(Auxiliary.MajesticReturnTarget(c,extrainfo))
	e1:SetOperation(Auxiliary.MajesticReturnOperation(c,extraop))
	c:RegisterEffect(e1)
	local e2=e1:Clone()
	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
	e2:SetProperty(0)
	e2:SetCondition(Auxiliary.MajesticReturnCondition2)
	c:RegisterEffect(e2)
	if returneff then
		e1:SetLabelObject(returneff)
		e2:SetLabelObject(returneff)
	end	
end
function Auxiliary.MajesticReturnCondition1(e,tp,eg,ep,ev,re,r,rp)
	return not e:GetHandler():IsHasEffect(2002000030)
end
function Auxiliary.MajesticReturnCondition2(e,tp,eg,ep,ev,re,r,rp)
	return e:GetHandler():IsHasEffect(2002000030)
end
function Auxiliary.MajesticReturnSubstituteFilter(c)
	return c:IsCode(27001073) and c:IsAbleToRemoveAsCost()
end
function Auxiliary.MajesticSPFilter(c,mc,e,tp)
	return mc.material and c:IsCode(table.unpack(mc.material)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(21159309)
end
function Auxiliary.MajesticReturnTarget(c,extrainfo)
	return function(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
			local c=e:GetHandler()
			if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and Auxiliary.MajesticSPFilter(chkc,e,tp) end
			if chk==0 then return true end
			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
			local g=Duel.SelectTarget(tp,Auxiliary.MajesticSPFilter,tp,LOCATION_GRAVE,0,1,1,nil,c,e,tp)
			Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
			Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
			if extrainfo then extrainfo(e,tp,eg,ep,ev,re,r,rp,chk) end
	end
end
function Auxiliary.MajesticReturnOperation(c,extraop)
	return function(e,tp,eg,ep,ev,re,r,rp)
		local tc=Duel.GetFirstTarget()
		local c=e:GetHandler()
		local sc=Duel.GetFirstMatchingCard(Auxiliary.NecroValleyFilter(Auxiliary.MajesticReturnSubstituteFilter),tp,LOCATION_GRAVE,0,nil)
		if sc and Duel.SelectYesNo(tp,aux.Stringid(27001073,2)) then
			Duel.Remove(sc,POS_FACEUP,REASON_COST)
		else
			if Duel.SendtoDeck(c,nil,0,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_EXTRA) 
			and tc and tc:IsRelateToEffect(e) then
				Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)	
			end
		end
		if c:IsLocation(LOCATION_EXTRA) then
			if extraop then
				extraop(e,tp,eg,ep,ev,re,r,rp)
			end
		end
	end
end

-- aux.XenoMatCheckSummoned = "Cannot be used as material, except for the Special Summon of a ..."
--	-- matfilter: Required function 
function Auxiliary.XenoMatCheckSummoned(c,matfilter)
	if not matfilter then return false end
	local e1=Effect.CreateEffect(c)
	e1:SetType(EFFECT_TYPE_SINGLE)
	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
	e1:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
	e1:SetValue(matfilter)
	c:RegisterEffect(e1)	
	local e2=e1:Clone()
	e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
	c:RegisterEffect(e2)
	local e3=e1:Clone()
	e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
	c:RegisterEffect(e3)
	local e4=e1:Clone()
	e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
	c:RegisterEffect(e4)
end

-- aux.XenoMatCheckOthers = "... all other materials are ..."
-- matfilter: Required function
function Auxiliary.XenoMatCheckOthers(c,matfilter,reset,reset_count)
	if not matfilter then return false end
	if not reset_count then reset_count=1 end
	local e1=Effect.CreateEffect(c)
	e1:SetType(EFFECT_TYPE_SINGLE)
	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
	e1:SetCode(EFFECT_FUSION_MAT_RESTRICTION)
	e1:SetValue(matfilter)
	if reset then
		e1:SetReset(reset,reset_count)
	end
	c:RegisterEffect(e1)
	local e2=e1:Clone()
	e2:SetCode(EFFECT_SYNCHRO_MAT_RESTRICTION)
	c:RegisterEffect(e2)
	local e3=e1:Clone()
	e3:SetCode(EFFECT_XYZ_MAT_RESTRICTION)
	c:RegisterEffect(e3)	
	local e4=e1:Clone()
	e4:SetCode(CUSTOM_LINK_MAT_RESTRICTION)
	c:RegisterEffect(e4)
end

-- Assault Mode Activate Summon: Made into a global function for future cards
if not aux.AssaultModeProcedure then
	aux.AssaultModeProcedure = {}
	AssaultMode = aux.AssaultModeProcedure
end
if not AssaultMode then
	AssaultMode = aux.AssaultModeProcedure
end

AssaultMode.CreateProc = aux.FunctionWithNamedArgs(
function(c,location,stage2)
	-- Special Summon
	local e1=Effect.CreateEffect(c)
	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
	e1:SetType(EFFECT_TYPE_ACTIVATE)
	e1:SetCode(EVENT_FREE_CHAIN)
	e1:SetCost(AssaultMode.Cost)
	e1:SetTarget(AssaultMode.Target(c,location,stage2))
	e1:SetOperation(AssaultMode.Operation(c,location,stage2))
	return e1
end,"handler","location","stage2")

function AssaultMode.Cost(e,tp,eg,ep,ev,re,r,rp,chk)
	e:SetLabel(1)
	return true
end
function AssaultMode.filter(c,tc,e,tp)
	local code=tc:GetCode()
	local ocode=tc:GetOriginalCode()
	local nocheck=false
	if c:IsLocation(LOCATION_GRAVE) then nocheck=true end
	if tc.assault_mode_all then
		return c:IsSetCard(0x104f) and c:IsCanBeSpecialSummoned(e,0,tp,true,nocheck)
	else
		return c:IsSetCard(0x104f) and c.assault_mode 
			and (c.assault_mode==code or c.assault_mode==ocode)
			and c:IsCanBeSpecialSummoned(e,0,tp,true,nocheck)
	end
end
function AssaultMode.cfilter(c,e,tp,ft,location)
	if c:IsType(TYPE_SYNCHRO) and (ft>0 or (c:GetSequence()<5 and c:IsControler(tp))) then
		return Duel.IsExistingMatchingCard(AssaultMode.filter,tp,location,0,1,nil,c,e,tp)		
	end
end
function AssaultMode.Target(c,location,stage2)
	return function(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
		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,AssaultMode.cfilter,1,false,nil,nil,e,tp,ft,location)
		end
		stage2 = stage2 or aux.TRUE
		local rg=Duel.SelectReleaseGroupCost(tp,AssaultMode.cfilter,1,1,false,nil,nil,e,tp,ft,location)
		Duel.SetTargetCard(rg:GetFirst())
		Duel.Release(rg,REASON_COST)
		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,location)
	end
end
function AssaultMode.Operation(c,location,stage2)
	return function(e,tp,eg,ep,ev,re,r,rp)
		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
		local c=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):GetFirst()
		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
		local tc=Duel.SelectMatchingCard(tp,AssaultMode.filter,tp,location,0,1,1,nil,c,e,tp,location):GetFirst()
		local nocheck=false
		stage2 = stage2 or aux.TRUE
		if tc:IsLocation(LOCATION_GRAVE) then nocheck=true end
		if tc and Duel.SpecialSummonStep(tc,0,tp,tp,true,nocheck,POS_FACEUP) then  
			stage2(e,tc,tp,0)
			Duel.SpecialSummonComplete()
			stage2(e,tc,tp,3)
			tc:CompleteProcedure()
			stage2(e,tc,tp,1)
		end
		stage2(e,tc,tp,2)
	end
end

-- aux.ChangeCode = This card's name becomes "code" while in "location"
function Auxiliary.ChangeCode(c,code,location)
	if not code then return false end
	if location then
		location=location
	else
		location=LOCATION_ONFIELD
	end
	local e1=Effect.CreateEffect(c)
	e1:SetType(EFFECT_TYPE_SINGLE)
	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
	e1:SetCode(EFFECT_CHANGE_CODE)
	e1:SetRange(location)
	e1:SetValue(code)
	return e1
end

--Amorphage Maintenance Cost
local function AmorphOp(e,tp,eg,ep,ev,re,r,rp)
	local c=e:GetHandler()
	local id=c:GetCode()
	local b1=Duel.CheckReleaseGroup(tp,Card.IsReleasableByEffect,1,c)
	local b2=true
	if not (c:IsHasEffect(2002000001) and Duel.SelectYesNo(tp,aux.Stringid(2002000001,0))) then
		--Tribute 1 monster or destroy this card
		local op=b1 and Duel.SelectEffect(tp,
			{b1,aux.Stringid(2002000134,0)},
			{b2,aux.Stringid(2002000134,1)}) or 2
		if op==1 then
			local g=Duel.SelectReleaseGroup(tp,Card.IsReleasableByEffect,1,1,c)
			Duel.Release(g,REASON_COST)
		elseif op==2 then
			Duel.Destroy(c,REASON_COST)
		end
	end 
end
function Auxiliary.AmorphageMCost(c)
	local e1=Effect.CreateEffect(c)
	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
	e1:SetRange(LOCATION_PZONE)
	e1:SetCountLimit(1)
	e1:SetCondition(function(e,tp) return Duel.IsTurnPlayer(tp) end)
	e1:SetOperation(AmorphOp)
	c:RegisterEffect(e1)
end

-- New Toon Ability: 
	-- + Includes the new Summoning proc
	-- + Includes Summoning Sickness in Summoning Proc
if not aux.Toon then
	aux.Toon = {}
	Toon = aux.Toon
end
if not Toon then
	Toon = aux.Toon
end

Toon.CreateProc = aux.FunctionWithNamedArgs(
function(c,location)
	local id=c:GetCode()
	if not location then location = LOCATION_HAND end
	-- Special Summon 
	local sumproc=Effect.CreateEffect(c)
	sumproc:SetType(EFFECT_TYPE_FIELD)
	sumproc:SetCode(EFFECT_SPSUMMON_PROC)
	sumproc:SetProperty(EFFECT_FLAG_UNCOPYABLE)
	sumproc:SetRange(location)
	sumproc:SetCondition(Toon.SummonCondition)
	sumproc:SetTarget(Toon.SummonTarget)
	sumproc:SetOperation(Toon.SummonOperation)
	c:RegisterEffect(sumproc)
	--cannot attack
	Toon.SummoningSickness(c)
	return sumproc
end,"handler","location")
function Toon.SummonCondition(e,c)
	if c==nil then return true end
	local tp=c:GetControler()
	local ctr=e:GetHandler():GetTributeRequirement()
	local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
	if ctr==0 or (ctr>0 and g:FilterCount(Card.IsReleasable,nil)>=ctr) then 
		return (Duel.GetLocationCount(tp,LOCATION_MZONE)+ctr)>0
			and Duel.IsExistingMatchingCard(aux.FaceupFilter(Card.IsCode,CARD_TOON_WORLD),tp,LOCATION_ONFIELD,0,1,nil)
	end 
	return false
end
function Toon.SummonTarget(e,tp,eg,ep,ev,re,r,rp,c)
	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
	local ctr=e:GetHandler():GetTributeRequirement()
	if ctr and ctr~=0 then
		local g=Duel.SelectReleaseGroup(tp,aux.TRUE,ctr,ctr,false,true,true,c,nil,nil,false,nil)
		if g then
			g:KeepAlive()
			e:SetLabelObject(g)
			return true
		end
	elseif ctr and ctr==0 then
		return true
	end
	return false
end
function Toon.SummonOperation(e,tp,eg,ep,ev,re,r,rp,c)
	local g=e:GetLabelObject()
	if not g then return end
	Duel.Release(g,REASON_COST)
	g:DeleteGroup()
end
function Toon.SummoningSickness(c)
	local sumsick=Effect.CreateEffect(c)
	sumsick:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
	sumsick:SetCode(EVENT_SPSUMMON_SUCCESS)
	sumsick:SetOperation(Toon.AttackLimit)
	c:RegisterEffect(sumsick)
end
function Toon.AttackLimit(e,tp,eg,ep,ev,re,r,rp)
	local c=e:GetHandler()
	local e1=Effect.CreateEffect(c)
	e1:SetType(EFFECT_TYPE_SINGLE)
	e1:SetCode(EFFECT_CANNOT_ATTACK)
	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
	e1:SetCondition(aux.NOT(aux.IsToonWorldUp))
	c:RegisterEffect(e1)
end
function aux.IsToonWorldUp(e)
	local c=e:GetHandler()
	return Duel.IsExistingMatchingCard(aux.FaceupFilter(Card.IsCode,CARD_TOON_WORLD),c:GetControler(),LOCATION_ONFIELD,0,1,nil)
end 

function Auxiliary.NaturiaWendiCheck(e,tp,eg,ep,ev,re,r,rp)
	return Duel.IsPlayerAffectedByEffect(tp,CARD_NATURIA_WENDI)
		and Duel.GetFlagEffect(tp,CARD_NATURIA_WENDI)==0
end
function Auxiliary.NaturiaWendiCost(e,tp,eg,ep,ev,re,r,rp,chk)
	if chk==0 then 
		return e:GetHandler():IsReleasable() 
		and Duel.GetFlagEffect(tp,CARD_NATURIA_WENDI)==0
	end
	Duel.Release(e:GetHandler(),REASON_COST)
	Auxiliary.NaturiaWendiOpe(e,tp,eg,ep,ev,re,r,rp)
	return true
end
function Auxiliary.NaturiaWendiOpe(e,tp,eg,ep,ev,re,r,rp)
	local tp=e:GetHandler():GetOwner()
	Duel.Hint(HINT_CARD,0,CARD_NATURIA_WENDI)
	Duel.RegisterFlagEffect(tp,CARD_NATURIA_WENDI,RESET_PHASE+PHASE_END,0,1)
	return true
end

function Auxiliary.NekrozOuroCheck(e,tp,eg,ep,ev,re,r,rp)
	return Duel.IsPlayerAffectedByEffect(tp,CARD_NEKROZ_OUROBOROS)
end

function Auxiliary.IsEquippedByItself(param)
	local c=param
	if type(param)=="Effect" then
		c=param:GetHandler()
	end
	return c:IsHasEffect(EFFECT_EQUIPPED_ITSELF)
end
local function GraydleCheck(e,tp,eg,ep,ev,re,r,rp)
	if e:GetHandler():IsDisabled() or not aux.IsEquippedByItself(e) then
		e:SetLabel(1)
	else e:SetLabel(0) end
end
local function GraydleDestroy(e,tp,eg,ep,ev,re,r,rp)
	if e:GetLabelObject():GetLabel()~=0 then return end
	local tc=e:GetHandler():GetEquipTarget()
	if tc and tc:IsLocation(LOCATION_MZONE) then
		Duel.Destroy(tc,REASON_EFFECT)
	end
end
function Auxiliary.AddGraydleEffect(c)
	--Take control
	local eq1=Effect.CreateEffect(c)
	eq1:SetType(EFFECT_TYPE_EQUIP)
	eq1:SetCode(EFFECT_SET_CONTROL)
	eq1:SetCondition(aux.IsEquippedByItself)
	eq1:SetValue(function(e) return e:GetHandlerPlayer() end)
	eq1:SetReset(RESET_EVENT|RESETS_STANDARD)
	c:RegisterEffect(eq1)
	--When this card leaves the field, destroy the equipped monster
	local eq2=Effect.CreateEffect(c)
	eq2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
	eq2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
	eq2:SetCode(EVENT_LEAVE_FIELD_P)
	eq2:SetOperation(GraydleCheck)
	eq2:SetReset(RESET_EVENT|RESETS_STANDARD)
	c:RegisterEffect(eq2)
	local eq3=Effect.CreateEffect(c)
	eq3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
	eq3:SetCode(EVENT_LEAVE_FIELD)
	eq3:SetOperation(GraydleDestroy)
	eq3:SetLabelObject(eq2)
	eq3:SetReset(RESET_EVENT|RESET_OVERLAY|RESET_TOFIELD)
	c:RegisterEffect(eq3)
end
function Auxiliary.EquipGraydle(c,e,tp,tc)
	local xa=tc:GetControler()~=e:GetHandler():GetControler()
	local xb=aux.CheckStealEquip(tc,e,tp)
	if not((xa and xb) or (not xa or not xb)) then return end
	if Duel.Equip(tp,c,tc,true) then 
		--Add Equip limit
		local e1=Effect.CreateEffect(c)
		e1:SetType(EFFECT_TYPE_SINGLE)
		e1:SetCode(EFFECT_EQUIP_LIMIT)
		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
		e1:SetReset(RESET_EVENT|RESETS_STANDARD)
		e1:SetValue(function(e,c) return c==e:GetLabelObject() end)
		e1:SetLabelObject(tc)
		c:RegisterEffect(e1)
		--Equipped by itself
		local e2=Effect.CreateEffect(c)
		e2:SetType(EFFECT_TYPE_SINGLE)
		e2:SetCode(EFFECT_EQUIPPED_ITSELF)
		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
		e2:SetReset(RESET_EVENT|RESETS_STANDARD)
		c:RegisterEffect(e2)
		aux.AddGraydleEffect(c)
		return true
	end
end
local function EnableEquippedByItselfHint()
	local ge=Effect.GlobalEffect()
	ge:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
	ge:SetCode(EVENT_ADJUST)
	ge:SetOperation(
		function()
			local g=Duel.GetMatchingGroup(aux.IsEquippedByItself,0,LOCATION_SZONE,LOCATION_SZONE,nil)
			for c in g:Iter() do
				if not c:HasFlagEffect(EFFECT_EQUIPPED_ITSELF) then
					c:RegisterFlagEffect(EFFECT_EQUIPPED_ITSELF,RESET_EVENT|RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,0,1,3402)
				end
			end
		end
	)
	Duel.RegisterEffect(ge,0)
end
EnableEquippedByItselfHint()

local Azurist={}

function Azurist.registerflag(id)
	return function(e,tp,eg,ep,ev,re,r,rp)
		e:GetHandler():RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,0,1,3399)
	end
end

function Azurist.resetflag(id)
	return function(e,tp,eg,ep,ev,re,r,rp)
		e:GetHandler():ResetFlagEffect(id)
	end
end

function Azurist.matlimit(e,c)
	if not c then return false end
	return not c:IsRace(RACE_SPELLCASTER)
end

function Auxiliary.CreateAzuristRestriction(c,id)
	-- Cannot be material
	local e1=Effect.CreateEffect(c)
	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
	e1:SetOperation(Azurist.registerflag(id))
	c:RegisterEffect(e1)
	local e2=Effect.CreateEffect(c)
	e2:SetType(EFFECT_TYPE_SINGLE)
	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
	e2:SetCode(EFFECT_CANNOT_BE_MATERIAL)
	e2:SetCondition(function(e) return e:GetHandler():GetFlagEffect(id)>0 end)
	e2:SetValue(1)
	c:RegisterEffect(e2)
	local ep1=Effect.CreateEffect(c)
	ep1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
	ep1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
	ep1:SetCode(EVENT_CUSTOM+id)
	ep1:SetRange(LOCATION_MZONE)
	ep1:SetCondition(function(e) return e:GetHandler():GetFlagEffect(CARD_THE_AZURE_PROJECT)>0 end)
	ep1:SetOperation(Azurist.resetflag(id))
	c:RegisterEffect(ep1)
	local ep2=Effect.CreateEffect(c)
	ep2:SetType(EFFECT_TYPE_SINGLE)
	ep2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
	ep2:SetCode(EFFECT_CANNOT_BE_MATERIAL)
	ep2:SetCondition(function(e) return e:GetHandler():GetFlagEffect(CARD_THE_AZURE_PROJECT)>0 end)
	ep2:SetValue(Azurist.matlimit)
	c:RegisterEffect(ep2)
	return e1 and e2 and ep1 and ep2
end

local Lycansquad={}

function Lycansquad.lmfilter(c,lc,tp,id)
	return c:IsFaceup() and c:IsSummonCode(lc,SUMMON_TYPE_LINK,tp,id) and c:IsCanBeLinkMaterial(lc,tp)
		and Duel.GetLocationCountFromEx(tp,tp,c,lc)>0 and not c:IsDisabled()
end

function Lycansquad.condition(id)
	return function(e,c,must,g,min,max)
		if c==nil then return true end
		local tp=c:GetControler()
		local g=Duel.GetMatchingGroup(Lycansquad.lmfilter,tp,LOCATION_MZONE,0,nil,c,tp,id)
		local mustg=Auxiliary.GetMustBeMaterialGroup(tp,g,tp,c,g,REASON_LINK)
		if must then mustg:Merge(must) end
		return ((#mustg==1 and Lycansquad.lmfilter(mustg:GetFirst(),c,tp)) or (#mustg==0 and #g>0))
			and Duel.GetFlagEffect(tp,id+EVENT_CUSTOM)>=3
	end
end

function Lycansquad.target(id)
	return function(e,tp,eg,ep,ev,re,r,rp,chk,c,must,g,min,max)
		local g=Duel.GetMatchingGroup(Lycansquad.lmfilter,tp,LOCATION_MZONE,0,nil,c,tp,id)
		local mustg=Auxiliary.GetMustBeMaterialGroup(tp,g,tp,c,g,REASON_LINK)
		if must then mustg:Merge(must) end
		if #mustg>0 then
			if #mustg>1 then
				return false
			end
			mustg:KeepAlive()
			e:SetLabelObject(mustg)
			return true
		end
		local tc=g:SelectUnselect(Group.CreateGroup(),tp,false,true)
		if tc then
			local sg=Group.FromCards(tc)
			sg:KeepAlive()
			e:SetLabelObject(sg)
			return true
		else return false end
	end
end

function Lycansquad.operation(e,tp,eg,ep,ev,re,r,rp,c,must,g,min,max)
	local mg=e:GetLabelObject()
	c:SetMaterial(mg)
	Duel.SendtoGrave(mg,REASON_MATERIAL+REASON_LINK)
end

function Auxiliary.CreateLycansquadAlterLinkProc(c,id)
	local ly1=Effect.CreateEffect(c)
	ly1:SetDescription(3401)
	ly1:SetType(EFFECT_TYPE_FIELD)
	ly1:SetCode(EFFECT_SPSUMMON_PROC)
	ly1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE|EFFECT_FLAG_UNCOPYABLE|EFFECT_FLAG_IGNORE_IMMUNE)
	ly1:SetRange(LOCATION_EXTRA)
	ly1:SetCondition(Lycansquad.condition(id))
	ly1:SetTarget(Lycansquad.target(id))
	ly1:SetOperation(Lycansquad.operation)
	ly1:SetValue(SUMMON_TYPE_LINK)
	c:RegisterEffect(ly1)
	return ly1
end