Switch 3D Renderer type

From VFXPedia

------------------------------------------------------------
-- Switch 3D Render Type.eyeonscript
--
-- Version 1.0
--
-- written by Peter Marinov (peter@wwfx.net)
-- Feb. 28, 2006
------------------------------------------------------------
 
 
rt = {"RendererOpenGL", "RendererSoftware"}
ret = AskUser("Change 3D Render Type ",{
{"RendererType",  "Dropdown", Options = rt},
{"Selected", Name = "Affect Selected Tools Only", "Checkbox", Default = 0}
})
 
 
if ret then
	tr={}
	tools=composition:GetToolList((ret.Selected == 1))
	for i,o in tools do
		if o:GetAttrs().TOOLS_RegID == "Renderer3D" then
			table.insert(tr,o)
		end
	end
 
	if table.getn(tr)==0 then
		print('No 3D renderer tools found in this comp, nothing to do.')
		do return end
	end
 
	print("Changing 3D Render Type to ' ".. rt[ret.RendererType + 1] .." ' on tools of type 3D renderer ("..table.getn(tr)..") total.")
 
	for i, v in tr do
		name=v:GetAttrs().TOOLS_Name
		if v.RendererType:GetConnectedOutput() ~= nil then
			print(name..'\t\t is animated, skipping...')
		else
			v.RendererType[0] = rt[ret.RendererType + 1]
			print(name..'\t\t------> '..v.RendererType[0])
		end
	end
	print("---------------------------------------------------\n\t\t\t done.")
else
	print('Canceled..')
end