-----------------------------------------------------------------------------------------------------------------
-- Rob's Light object add to Light Include/Exclude quad menu extension.
-- Place in UI\Macroscripts
-- Look under Rob's Scripts in Category
--
-- Version History
-- 1.0 first release:
-- Max R7,R8.
-- If you find any bugs then please send them to support@robandrews.co.uk and I'll see what I can do.
-- Copyright Robert Andrews 2005.
-- comments to support@robandrews.co.uk
-- Copyright Robert Andrews 2005.
-----------------------------------------------------------------------------------------------------------------

macroscript addLightIncludeExclude
category: "Rob's Scripts"
internalcategory:"Lights and Cameras" 
buttonText: "Add to Light Include/Exclude"
tooltip: "Add to Light Include/Exclude"
(	
	on isEnabled return
	(
		if (superclassof $ == light) AND (classof $ != Brazil_Light) then true else false
	)

	on isVisible return
	(
		if (superclassof $ == light) AND (classof $ != Brazil_Light) then true else false
	)
	on execute do
	(
		if (superclassof $ == light)do
		(
			if (classof $ != Brazil_Light) do
			(
				if ($.includeList != undefined) do
				(
					items = #()
					items = pickObject prompt:"pick objects" count:#multiple
					print items
					if (items != #escape) or (items != undefined) then
					(
						oldList = $.includeList
						$.includeList = join oldList items
					)
				)
				if ($.excludeList != undefined) do
				(
					items = #()
					items = pickObject prompt:"pick objects" count:#multiple
					print items
					if (items != #escape) or (items != undefined) then
					(
						oldLust = $.excludeList
						$.excludeList = join oldList items
					)
				)
			)
		)
	)
)

macroscript addBrazilLightIllumIncludeExclude
category: "Rob's Scripts"
internalcategory:"Lights and Cameras" 
buttonText: "Add to Brazil Light Illumination Include/Exclude"
tooltip: "Add to Brazil Light Illumination Include/Exclude"
(
 	
	on isEnabled return
	(
		if (superclassof $ == light) AND (classof $ == Brazil_Light) then true else false
	)
	on isVisible return
	(
		if (superclassof $ == light) AND (classof $ == Brazil_Light) then true else false
	)

	on execute do
	(
		if (superclassof $ == light)do
		(
			if (classof $ == Brazil_Light) do
			(
				items = #()
				items = pickObject prompt:"pick objects" count:#multiple
				print items
				if (items != #escape) or (items != undefined) then
				(
					oldList = BzGetListLight $ #Illum mode:#dont_care
					BzSetListLight $ #Illum (join oldList items) mode:#dont_care
				)
			)
		)
	)
)
macroscript addBrazilLightShadowIncludeExclude
category: "Rob's Scripts"
internalcategory:"Lights and Cameras" 
buttonText: "Add to Brazil Light Shadow Include/Exclude"
tooltip: "Add to Brazil Light Shadow Include/Exclude"
(
 	
	on isEnabled return
	(
		if (superclassof $ == light) AND (classof $ == Brazil_Light) then true else false
	)
	on isVisible return
	(
		if (superclassof $ == light) AND (classof $ == Brazil_Light) then true else false
	)

	on execute do
	(
		if (superclassof $ == light)do
		(
			if (classof $ == Brazil_Light) do
			(
				items = #()
				items = pickObject prompt:"pick objects" count:#multiple
				print items
				if (items != #escape) or (items != undefined) then
				(
					oldList = BzGetListLight $ #shadow mode:#dont_care
					BzSetListLight $ #shadow (join oldList items) mode:#dont_care
				)
			)
		)
	)
)