I need some help.

--- LayerCreator 1.0 ---
 
--- Globals for script ---
 
global lyrDefNames  
global lyrNames
 
--- Define globals---
 
lyrDefNames=#() 
lyrNames=#()
 
---The function to create layers---
 
fn crtNewLayer =
(  
	for n = 1 to lyrNames.count do
		(  
		   i= n
		   x= lyrNames 
		   y= layermanager.getlayerfromname  x [i]
		   z= layermanager.newlayerfromname x [i]
		   if  y != undefined then  
			   z	
		)
)
 
---Rollout for interface of script---
 
rollout LayerCreator "LayerCreator 1.0" width:280 height:208
(
	GroupBox Layers "Select Layers for Scene Objects" pos:[8,40] width:264 height:112
	checkbox lyrCameras "Cameras" pos:[144,88] width:120 height:24
	checkbox lyrController "Controller Objects" pos:[16,88] width:120 height:24
	checkbox lyrHiden "Hiden Objects" pos:[16,120] width:120 height:24
	checkbox lyrLights "Light Objects" pos:[144,56] width:120 height:24
	checkbox lyrMesh "Mesh Objects" pos:[16,56] width:120 height:24
	checkbox lyrParticles "Particles" pos:[144,120] width:120 height:24
	edittext lyrBsName " Base Name of Layers" pos:[13,7] width:254 height:17 enabled:false
	button crtLayers "Create New Layers" pos:[8,160] width:264 height:37 enabled:true toolTip:""
 
 
--- The function to enable edittext because at least one checkbox should be checked before enter a word in edittext line ----
 
    fn txtEnbl=
	(
		cb=#( lyrCameras.triState, lyrController.triState, lyrHiden.triState, lyrLights.triState, lyrMesh.triState, lyrParticles.triState)
		for i= 1 to cb.count collect
		if cb [i] != 1 then
			(  
					lyrBsName.enabled= false
			)
 
		else
			(
				if cb [i] == 1 then
					(
						lyrBsName.enabled= true
					)
			)
	) 
 
---Adding a string by each checkbos to the  global  lyrDefNames  ----
 
	on lyrCameras changed theState do
	(   
	    txtEnbl ()
		if lyrCameras.checked == true then 
		(
			objCameras= "_Cameras"
		    append lyrDefNames objCameras
 
		)
 
		else 
		(
			lyrDefNames [1] = undefined
		)
	)
 
	on lyrController changed theState do
	(
		txtEnbl ()
		if lyrController.checked == true then 
		(
			objController= "_Controller"
		   append lyrDefNames objController
		)
 
		else 
		(
			lyrDefNames [2] = undefined
		)
	)
 
	on lyrHiden changed theState do
	(
		txtEnbl ()
		if lyrHiden.checked == true then 
		(
			objHiden= "_Hiden"
			append lyrDefNames objHiden
		)
 
		else 
		(
			lyrDefNames [4] = undefined
		)
	)
 
	on lyrLights changed theState do
	(   
	    txtEnbl ()
		if lyrLights.checked == true then 
		(
			objLights= "_Lights"
			append lyrDefNames objLights	
		)
 
		else 
		(
			lyrDefNames [5] = undefined
		)
	)
 
	on lyrMesh changed theState do
	(
		txtEnbl ()
		if lyrMesh.checked == true then 
		(
			objMesh= "_Mesh"
			append lyrDefNames objMesh
		)
 
		else 
		(
			lyrDefNames [3] = undefined
		)
	)
 
	on lyrParticles changed theState do
	(
		txtEnbl ()
		if lyrParticles.checked == true then 
		(
			objParticles= "_Particles"
			append lyrDefNames objParticles
		)
 
		else 
		(
			lyrDefNames [6] = undefined
		)
	)
 
	--- Adding a sting when text entered to the text line ---
 
	on lyrBsName entered txt do
	(   
 
		bsName= lyrBsName.text as string
		cmbNames= 
		(
			if bsName != ""  then 
				( 
					if lyrDefNames != undefined then 
					(
						for i= 1 to lyrDefNames.count  collect
						append lyrNames (bsName + lyrDefNames [i])
					)
				)
 
				else 
				(
					if bsName =="" then
					(
						lyrNames= #()
					)
				)
			)
	)
 
	--- When button pressed creating layers---
	on crtLayers pressed do
		crtNewLayer ()
)
 
createdialog LayerCreator