La Chorra de los Emotes....

Citar

Escrito el 14 Abr 2005 09:16 pm

Código :

var ar:Array = new Array(/*A*/[[1,1,1],[1,0,1],[1,1,1],[1,0,1],[1,0,1]],
/*B*/[[1,1,0],[1,0,1],[1,1,0],[1,0,1],[1,1,0]],
/*C*/[[1,1,1],[1,0,0],[1,0,0],[1,0,0],[1,1,1]],
/*D*/[[1,1,0],[1,0,1],[1,0,1],[1,0,1],[1,1,0]],
/*E*/[[1,1,1],[1,0,0],[1,1,1],[1,0,0],[1,0,0]],
/*F*/[[1,1,1],[1,0,0],[1,1,0],[1,0,0],[1,0,0]],
/*G*/[[1,1,1],[1,0,0],[1,0,1],[1,0,1],[1,1,1]],
/*H*/[[1,0,1],[1,0,1],[1,1,1],[1,0,1],[1,0,1]],
/*I*/[[1,1,1],[0,1,0],[0,1,0],[0,1,0],[1,1,1]],
/*J*/[[1,1,1],[0,0,1],[0,0,1],[1,0,1],[1,1,1]],
/*K*/[[1,0,1],[1,1,0],[1,1,0],[1,1,0],[1,0,1]],
/*L*/[[1,0,0],[1,0,0],[1,0,0],[1,0,0],[1,1,1]],
/*M*/[[1,0,0,0,1],[1,1,0,1,1],[1,0,1,0,1],[1,0,0,0,1],[1,0,0,0,1]],
/*N*/[[1,0,0,0,1],[1,1,0,0,1],[1,0,1,0,1],[1,0,0,1,1],[1,0,0,0,1]],
/*O*/[[1,1,1],[1,0,1],[1,0,1],[1,0,1],[1,1,1]],
/*P*/[[1,1,1],[1,0,1],[1,1,1],[1,0,0],[1,0,0]],
/*Q*/[[1,1,1],[1,0,1],[1,0,1],[1,1,1],[1,1,1]],
/*R*/[[1,1,1],[1,0,1],[1,1,1],[1,1,0],[1,0,1]],
/*S*/[[1,1,1],[1,0,0],[1,1,1],[0,0,1],[1,1,1]],
/*T*/[[1,1,1],[0,1,0],[0,1,0],[0,1,0],[0,1,0]],
/*U*/[[1,0,1],[1,0,1],[1,0,1],[1,0,1],[1,1,1]],
/*V*/[[1,0,1],[1,0,1],[1,0,1],[0,1,0],[0,1,0]],
/*W*/[[1,0,1,0,1],[1,0,1,0,1],[1,0,1,0,1],[0,1,0,1,0],[0,1,0,1,0]],
/*X*/[[1,0,1],[1,0,1],[0,1,0],[1,0,1],[1,0,1]],
/*Y*/[[1,0,1],[1,0,1],[0,1,0],[0,1,0],[0,1,0]],
/*Z*/[[1,1,1],[0,0,1],[0,1,0],[1,0,0],[1,1,1]]);
//Aki una frase NO muy LARGA
var frase:String = "Dani";
var e0:String = ":cry:";
var e1:String = ":ownz:";
var i:Number;
var j:Number;
var k:Number;
var l1:String = e0;
var l2:String = e0;
var l3:String = e0;
var l4:String = e0;
var l5:String = e0;
frase = frase.toUpperCase();
for(i = 0;i<ar.length;i++) {
   for (j =0 ;j<ar[i].length;j++) {
      for (k =0 ;k<ar[i][j].length;k++) {
         if(ar[i][j][k]==0) {
            ar[i][j][k]=e0;
         } else {
            ar[i][j][k] = e1;
         };
      };
   };
};
for(i = 0;i<frase.length;i++) {
      for (k =0 ;k<ar[frase.charCodeAt(i)-65][0].length;k++) {
         l1 += ar[frase.charCodeAt(i)-65][0][k];
         l2 += ar[frase.charCodeAt(i)-65][1][k];
         l3 += ar[frase.charCodeAt(i)-65][2][k];
         l4 += ar[frase.charCodeAt(i)-65][3][k];
         l5 += ar[frase.charCodeAt(i)-65][4][k];
      };
   l1 += e0;
   l2 += e0;
   l3 += e0;
   l4 += e0;
   l5 += e0;
};

trace(l1);
trace(l2);
trace(l3);
trace(l4);
trace(l5);

MODO DE EMPLEO
Abran Flash, copien el codigo en un frase, sustituyan la variable "frase" por lo que ustedes deseen no muy larga, y tampoko puede llevar Ñ's ñ's
Pulsen Control+Intro [probar la pelicula] le saldra algo en el output, copienlo y penguelo aki.
Publiquen el post y alejense 4 o 5 metros del monitor... podran leer akello que escribieron...

PS: Post Editado pues lo del codigo se salia MUY fuera de los limites... cambienlo en flash pues no deberia de haber saltos de linea!!

Por _CONEJO

BOFH