Voilà :
on 1:input:*: {
if $left($1-,1) != $chr(47) {
var %a 1,%b $len($1-),%c,%d 1
while %a <= %b {
%c = %c $+ $+ $iif(%d == 1,1,$iif(%d == 2,4,$iif(%d == 3,12,9))) $+ $mid($1-,%a,1) | inc %d
if %d >= 5 { %d = 1 } | inc %a
}
msg $active %c
halt
}
}
C fait un peu à l'arrache désolé.... Si tu veux d'autre couleurs essaie de comprendre le script ou demande moi ... Je suis tjs là :D
By Koli
Rejoignez le channel du Réseau Codes Sources :
=>>
#Programmation