SAMODE

[Babytigrou16]

ok mais Remplacer putfast par putquick et sa devrait donner sa

tclcopier

set caller ""
bind pub - !version version:call
proc version:call {nick uhost hand chan args} {
   set ::caller $nick
   set victim [lindex $args 0]
   if ![string compare -nocase $chan "#Admin"] {
   if {$victim == "" } { return 0 }
   if { $::botnick == $victim } { return 0 }
   putquick "PRIVMSG $victim :\001VERSION\001"
}
}
 
bind ctcr - VERSION version:read
proc version:read {nick uhost handle dest key text} {
   if { ![info exists ::caller] || ($::caller == "") } { return 0 }
   if {$dest == ""} {set dest $::botnick}
   putquick "PRIVMSG #Admin \00306$nick \00312Utilise \00304$text"
   set ::caller ""
}

Et la votre TCL devrait fonctionné. Bonne journée !