[Demande] Soucis avec expr

[aliasangelius]

Oui j'ai modifié avec ton code Crazy

tclcopier

#############################
#                           #
# Tcl Eval commande public. #
#                           #
#############################
namespace eval ::tcleval {
 
    # Nous vérifions si ya le package requis pour le msgcat. Vous pouvez vérifier en PL avec la commande : .tcl info patchlevel
    package require msgcat
    # Nous mettons la langue de msgcat en français.
    ::msgcat::mclocale fr
    # Commandes chars Exemple "." ou "!" Ce qui donnera par exemple : .tcl/!tcl
    set cmds(char) "!"
     # Les messages msgcat.
     ::msgcat::mcset fr tc1 "\002TCL ->\002"
     ::msgcat::mcset fr tc2 "\002Done.\002"
     
     # Le code TCL.
     proc sleep {time} {
        after $time set end 1
        vwait end
     }
     bind pub - "$::tcleval::cmds(char)tcl" [namespace current]::tcl
     proc tcl {nick host hand chan arg} {
        variable sleep
        catch [list uplevel 0 $arg] error
        foreach line [split $error "\n"] {
            if {$line!=""} {
                putserv "PRIVMSG $chan :[::msgcat::mc tc1] $line"
            }
        variable version 1.0
        }
     putserv "PRIVMSG $chan :[::msgcat::mc tc2] [expr [lindex [$::sleep] 0] millisecondes.]"
     }
}
putlog "\0034TCL public chargé.\0034"

En PL :

.[15:15:13] <Talk-Me> [15:18:34] Tcl error [::tcleval::tcl]: can't read "::sleep": no such variable