Nombre del creador: REYES DAVILA
Breve descripción de su función: orden alfabético.
Versión GM utilizada: GM4
Código del Script:
[gml]b1=0
b3=0
kbk=0
contador=0
//ADMINISTRADOR DE PALABRAS
palabra_ram=""
i2=1
for(i=1;i<=string_length(argument0);i+=1)
{
letra=string_copy(argument0,i,1)
letra_pos=string_copy(argument0,i-1,1)
if(letra!=" ")palabra_ram+=letra
if(letra=" " && letra_pos!=" " || i=string_length(argument0))
{
palabra[i2]=palabra_ram
palabra_id[i2]=i2
palabra_letra[i2]=string_copy(palabra[i2],1,1)
if(ord(palabra_letra[i2])>=91 && ord(palabra_letra[i2])<=122)palabra_letra[i2]=chr(ord(palabra_letra[i2])-32)
palabra_ram=""
if(i<string_length(argument0))i2+=1
}
}
palabra_numero=i2
//organizador de palabras
for(i=1;i<=palabra_numero;i+=1)
{
palabra_pos=1
for(i2=1;i2<=palabra_numero;i2+=1)
{
ord1=ord(palabra_letra)
ord2=ord(palabra_letra[i2])
id1=palabra_id
id2=palabra_id[i2]
if(i!=i2 && ord1 > ord2){palabra_pos+=1}
if(i!=i2 && ord1 = ord2)
{
if(palabra=palabra[i2])
{
if(id1>id2){palabra_pos+=1}
}
else
{
if(string_length(palabra)>1 && string_length(palabra[i2])>1)
{
superior=0
i3=1
repetir=1
for(i3=1;repetir;i3+=1)
{
repetir=0
letra=string_copy(palabra,i3+1,1)
letra2=string_copy(palabra[i2],i3+1,1)
if(string_length(palabra)>i3-1 && string_length(palabra[i2])>i3-1)
{
if(ord(letra) > ord(letra2)){superior=1}
if(ord(letra) = ord(letra2)){repetir=1;}
}
}
if(superior){palabra_pos+=1}
}
else
{
if(string_length(palabra)!=string_length(palabra[i2]))
{
if(string_length(palabra)>string_length(palabra[i2])){palabra_pos+=1;}
}
else
{
if(id1>id2){palabra_pos+=1;palabra_cod="aqui"}
}
}//fin else
}//fin else
}//fin if
}//fin for
}//fin for
//organizador de palabras 2
for(i=1;i<=palabra_numero;i+=1)
{
for(i2=1;i!=palabra_pos[i2];i2+=1){};
palabra_ordenada=palabra[i2]
}
//agrupando palabras
str2=""
for(i=1;i<=palabra_numero;i+=1)
{
str2+=palabra_ordenada+" "
}
//devolviendo valor
if(argument1)
{
return palabra_ordenada[argument1]
}
else
{
return str2
} [/gml]
orden_alfabetico(str,index): en str colocas la cadena con el conjunto de palabras a ordenar y en index colocas la palabra que quieres ver, si no se especifica nada devuelve la cadena completa ordenada.
Ejemplo1:
orden_alfabetico("corazón tiburón azul ballena")
esto devuelve cadena: "azul ballena corazón tiburón"
Ejemplo2:
orden_alfabético("corazón tiburón azul ballena", 1)
esto devuelve cadena: "azul"