Le mélangeur de lettres permet de mélanger les lettres d'un mot mais de façon à se que le cerveau puisse le comprendre quand même.
Exemple: Ntore cveareu arrvie à lrie une psrhae dont les letetrs des mtos snot mgéénlas suaf la preièrme et dnreirèe ltrete .

; Utilisation: $dez(votre phrase)

alias dez {

;Supprime les codes spéciaux (couleurs,gras,souligné...) du texte fourni par l'utilisateur
tokenize 32 $strip($1-)

;Création de la variable local %dez
var %dez

;Boucle fonctionannt tand que le paramètre $1 existe.
while ($1) {

;Création des varriables locales %a, %b, %w, %d et %c
;Inscrit la longeur du 1er paramètre dans %a et 2 dans %b
var %a $len($1), %b 2, %w, %d, %c

;Boucle fonctionnant tand que %b est plus petit que %a
while (%b < %a) {

;Inscrit dans %c un nombre compris entre 2 et la longeur du 1er paramètre - 1
%c = $r(2,$calc(%a - 1))

;Boucle vérifiant que le nombre précédament inscrit dans %c n'est pas dans %d
;Si oui, elle répète l'action précédante sur la variable %c
while ($findtok(%d,%c,32)) %c = $r(2,$calc(%a - 1))

;Ajoute à %d, le nombre contenu dans %c
%d = %d %c

;Ajoute à la suite de %w, le %c caractère du premier paramètre
%w = $+(%w,$mid($1,%c,1))

;Incremente la variable %b de 1
inc %b

}

;Ajoute à %dez la première la lettre du 1er paramètre, %w et la dernière lettre du 1er paramètre
%dez = %dez $+($left($1,1),%w,$iif(%a > 1,$right($1,1)))

;Transforme le 2ème paramètre en 1er
tokenize 32 $2-

}

;Retourne %dez
return %dez

}

Revue par

17 Juillet 2005
Optimisation du code
Ajout de commentaire
Suppression d'un alias