Copy Material Editor

----------------------------------------------------------------------------------------------------------------------------------
-- Copy Material Editor by Titane357 @ www.scriptspot.com
----------------------------------------------------------------------------------------------------------------------------------
	try (destroyDialog ::rol_CmatEd) catch()
 
	rollout rol_CmatEd "Copy Material Editor"
	(
		button btn_CopyMatEd "CopyMatEd" width:115 height:22 tooltip:"Copy Materials in MatEditor + assign to spheres" align:#center
		button btn_DelObjs "Delete Scene Objects" width:115 height:22 tooltip:"Delete All Objects in Scene" align:#center
		HyperLink hl_homepage "..:: Titane357' 2013 ::.." address:"http://www.scriptspot.com/users/titane357" color:(color 255 255 255) hovercolor:(color 111 111 111) visitedcolor:(color 255 255 255) align:#center
 
		on btn_CopyMatEd pressed do
		(
 
				axyzyo = Plane length:6 width:8 lengthsegs:6 widthsegs:8 pos:[3.5,-2.5,0] isSelected:on wirecolor:(color 40 40 40)
				matt = 0
 
				for p = 1 to 4 do 
				(
					for cnt= 1 to 6 do 
					( 
						matt = matt +1
						a = copy meditmaterials[matt] 
						Sphere radius:0.4 smooth:on segs:32 chop:0 slice:off sliceFrom:0 sliceTo:0 mapcoords:on recenter:off wirecolor: black pos:[cnt,-p,0] isSelected:on material:a
						$.parent = axyzyo
					)
				)
				select axyzyo
		)
 
		on btn_DelObjs pressed do
		(
			if (queryBox "Are you sure you want to DELETE ALL OBJECTS in Scene?") == true do
			(
				delete (for obj in objects collect obj)
			)
		)
 
	)
 
	createDialog rol_CmatEd 140 75 100 150 style:#(#style_titlebar, #style_sysmenu, #style_toolwindow)