Process elige_lenguaje();
Begin
	id_lang=id;
	z=0;
	frame;
	cuadro1();cuadro2();cuadro3();cuadro4();
//esp:Elige un idioma
//cat:Tria un idioma
//fra:Choisir une idiome
//ing:Choose a language
	write(fnt1,160,30,4,"Elige un idioma");
	write(fnt1,160,60,4,"Tria un idioma");
	write(fnt1,160,210,4,"Choose a language");
	write(fnt1,160,180,4,"Choisir un idiome");
	while(key(_enter)) frame; end
	while(!key(_control)) 
		if(key(_left) and z>0) z--; while(key(_left)) frame; end end
		if(key(_right) and z<3) z++; while(key(_right)) frame; end end
		frame; 
	end
	ops.op_lang=z;
	z=4;
	timer[0]=0;
	let_me_alone();
	logos();
End

Process cuadro1();
Begin
	graph=load_png("cosas/650.png");
	alpha=255;
	x=60;
	y=120;
	while(id_lang.z<4)
		if(id_lang.z!=0) flags=4; size=100; else flags=0; size=120; end
		frame;
	end
End

Process cuadro2();
Begin
	graph=load_png("cosas/651.png");
	alpha=255;
	x=120;
	y=120;
	while(id_lang.z<4)
		if(id_lang.z!=1) flags=4; size=100; else flags=0; size=120; end
		frame;
	end
End

Process cuadro3();
Begin
	graph=load_png("cosas/652.png");
	alpha=255;
	x=180;
	y=120;
	while(id_lang.z<4)
		if(id_lang.z!=2) flags=4; size=100; else flags=0; size=120; end
		frame;
	end
End

Process cuadro4();
Begin
	graph=load_png("cosas/653.png");
	alpha=255;
	x=240;
	y=120;
	while(id_lang.z<4)
		if(id_lang.z!=3) flags=4; size=100; else flags=0; size=120; end
		frame;
	end
End