Le tcl fonctionne parfaitement, il n'y avait qu'une petite erreur dans le puthelp.
Et j'ai supprimé le flag "-|o" parce que tu ne t'es p-e pas défini comme @ sur le canal où tu utilise l'eggdrop.
Ce script pourrait être amélioré pour vérifier que la personne est bien connectée avant de lancer le VERSION.
Et j'ai supprimé le flag "-|o" parce que tu ne t'es p-e pas défini comme @ sur le canal où tu utilise l'eggdrop.
tcl
set caller ""
bind pub - !version version:call
proc version:call {nick uhost hand chan args} {
set ::caller $nick
set victim [lindex $args 0]
if {$victim == "" } { return 0 }
if { $::botnick == $victim } { return 0 }
puthelp "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}
puthelp "PRIVMSG $::caller :$nick use $text"
}
Ce script pourrait être amélioré pour vérifier que la personne est bien connectée avant de lancer le VERSION.