[Résolu] script love system

[CrazyCat]

Bon, étrange:

Code :

.tcl proc percenthash string { set output 0; foreach {c1 c2} [split [md5 $string] {}] { incr output [expr 0x$c1$c2] }; return [expr $output %101] }
[12:04:53] tcl: builtin dcc call: *dcc:tcl CrazyCat 24 proc percenthash string { set output 0; foreach {c1 c2} [split [md5 $string] {}] { incr output [expr 0x$c1$c2] }; return [expr $output %101] }
[12:04:53] tcl: evaluate (.tcl): proc percenthash string { set output 0; foreach {c1 c2} [split [md5 $string] {}] { incr output [expr 0x$c1$c2] }; return [expr $output %101] }
Tcl:
.tcl percenthash paulalain
[12:06:14] tcl: builtin dcc call: *dcc:tcl CrazyCat 24 percenthash paulalain
[12:06:14] tcl: evaluate (.tcl): percenthash paulalain
Tcl: 61

Après un restart:

Code :

.tcl source scripts/love.tcl
[12:10:09] tcl: builtin dcc call: *dcc:tcl CrazyCat 24 source scripts/love.tcl
[12:10:09] tcl: evaluate (.tcl): source scripts/love.tcl

Code :

12:10:42 @CrazyCat | !love paul alain
12:10:45    @Artus | Les Probalités d'affinité entre paul et alain sont de : 61  %

Donc pour moi tout semble bien passer...