TCL Liste

[CrazyCat]

Pour moi, le script fait ce qu'il doit faire.
Dans la procédure addanim, tu as:

tclcopier

puts $newsfile "+ $msg (+++$chkuser) (+-+[strftime "%H:%M %d.%m.%Y"])"

(avec $msg qui contient le nick du nouvel animateur)
Et dans listanim, tu as:

tclcopier

incr numnews
            set delimn [string last "(+++" $line]
            set delimt [string last "(+-+" $line]
            set msg [string range $line 2 [expr {$delimn} - 2]]
            set stlen [string length $line]
            set adder [string range $line [expr {$delimn} + 4] [expr {$delimt} - 3]]
            set adtim [string range $line [expr {$delimt} + 4] [expr {$stlen} - 2]]
            if { $msg != "" } {
                putquick "NOTICE $nick :\00304‹\00302$numnews\00304› \00312$msg  - \00301(\00306$adtim\00301)"

Donc, le retour est correct, il te manque peut-être de la mise en forme, du genre "a été ajouté par $adder"