[Résolu] script love system

[CrazyCat]

Déjà, je viens de le télécharger, et c'est un .rtf et non pas un .tcl... C'est moche. Je viens de mettre le script "propre" à la place.

Pour ton souci, il semble plutôt être dans la procédure percenthash :

tclcopier

proc percenthash string {
   set output 0
   foreach {c1 c2} [split [md5 $string] {}] {
     incr output [expr 0x$c1$c2]
   }
   return [expr $output %101]
}

Est-ce qu'il n'y a pas eu de modifs depuis tcl8.5 sur le "expr 0x" qui est censé convertir d'hexa en décimal ?

Dans le doute, commence par télécharger la version que j'ai remise en ligne, et teste.