function cargar_nivel(nombrea as string)
	mapa.modocam=1
	jugando=0
	
	set directional light 0,0.8,-1,0.5
	set ambient light 70

	open to read 1,nombrea

	for i=0 to 12
		   for i2=0 to 34
		   	if cuadros(i,i2).objeto>0
		   		if object exist(cuadros(i,i2).objeto)
		   			delete object cuadros(i,i2).objeto
		   			cuadros(i,i2).objeto=0
		   		else
		   		cuadros(i,i2).objeto=0
		   		endif
		   	endif
		   	
		   	if cuadros(i,i2).objetoR>0
		   		if cuadros(i,i2).objetoR>0
		   			if object exist(cuadros(i,i2).objetoR)
		   				delete object cuadros(i,i2).objetoR
		   				cuadros(i,i2).objetoR=0
		   			else
		   				cuadros(i,i2).objetoR=0
		   			endif
		   		endif
		   	endif
		   	
		   	cuadros(i,i2).posx=0
				cuadros(i,i2).posz=0
				cuadros(i,i2).mat=0
				cuadros(i,i2).fade=0
		   next i2
	next i

	for i=0 to 12
	   for i2=0 to 34
	      read byte 1,tcuad
			cuadros(i,i2).mat=0
			
	      if tcuad=1
				cuadros(i,i2).mat=1
	         cuadros(i,i2).objeto=cargar_modelo("media\phie.x")	    
	         cuadros(i,i2).posx=i2*16
	         cuadros(i,i2).posz=-i*16
	         position object cuadros(i,i2).objeto,cuadros(i,i2).posx,0,cuadros(i,i2).posz
	      endif
	
	      if tcuad=2
				cuadros(i,i2).mat=2
	         cuadros(i,i2).objeto=cargar_modelo("media\plad.x")
	         cuadros(i,i2).posx=i2*16
	         cuadros(i,i2).posz=-i*16
	         position object cuadros(i,i2).objeto,cuadros(i,i2).posx,0,cuadros(i,i2).posz
	      endif
	      
	      if tcuad=3
	      	crear_enemigo(i2,i,1)
	      endif
	      
	     	if tcuad=4
	      	crear_enemigo(i2,i,2)
	      endif
	      	      
	      if tcuad=5
	      	crear_enemigo(i2,i,3)
	      endif
	      
	      cuadros(i,i2).objetoR=cuadros(i,i2).objeto
	   next i2
	next i
	
	close file 1
	
	if powerup.objeto>0
		if object exist(powerup.objeto)
			delete object powerup.objeto
		endif
	endif
	
	rem POCAS POSIBILIDADES DEL AUTOMATICO
	pup=rnd(3)
	
	if pup=1 
		pup=rnd(1)
	endif
		
	select pup
		case 0:
			powerup.objeto=cargar_modelo("media\pu1.x")
			powerup.tipo=0
		endcase
		
		case 1:
			powerup.objeto=cargar_modelo("media\pu2.x")
			powerup.tipo=1
		endcase
		
		case 2:
			powerup.objeto=cargar_modelo("media\pu3.x")
			powerup.tipo=2
		endcase
		
		case 3:
			powerup.objeto=cargar_modelo("media\pu4.x")
			powerup.tipo=3
		endcase
		
		
	endselect
	scale object powerup.objeto,50,50,50
	
	cz=rnd(12)	
	do 
		cx=rnd(34)
		if cuadros(cz,cx).mat=2
			position object powerup.objeto,cx*16,0,cz*-16
			exit
		endif			
	loop

	cz=rnd(12)	
	do 
		cx=rnd(34)
		if cuadros(cz,cx).mat=2
			position object mapa.salida,cx*16,0,cz*-16
			exit
		endif			
	loop
	
	loop sound snd_idl1
endfunction
 