24/05/2009, 22:28
Hello,
J'essaye actuellement de faire un petit tcl qui modifie automatiquement le realname des utilisateurs au join dans un salon ou ce tient le robot mais je coince ... etant donné que j'ai jamais vraiment utiliser les regex et les raw je me suis un peu perdu et mon code est invalide (il y a aucune réaction).
Voici mon code :
Ps : $Clam(asv) est une valeur par defaut dans un fichier de config qui est de "20 H asv de defaut"
Merci aux gens qui vont m'aider.
J'essaye actuellement de faire un petit tcl qui modifie automatiquement le realname des utilisateurs au join dans un salon ou ce tient le robot mais je coince ... etant donné que j'ai jamais vraiment utiliser les regex et les raw je me suis un peu perdu et mon code est invalide (il y a aucune réaction).
Voici mon code :
tcl
bin join -|- "*" realname
proc realname {nick uhost hand chan arg} {
global Clam;
set asv [lrange $arg 2 end]
set name [lindex $arg 0]
bind_raw - 311 msg_realname
if {$asv == ""|| [regexp -nocase {^[1-7][0-9]\s(h|f)\s.*} $asv]} {
putdcc $Clam(idx) ":$Clam(link) who $asv"
putdcc $Clam(idx) ":$Clam(pseudo) PRIVMSG $Clam(admin) :Mauvais ASV >> $name >> $asv"
return 1
}
}
proc msg_realname {nick from keyword arg} {
global Clam realname asv
if {[info exists realname] && ($keyword == 311)} {
putdcc $Clam(idx) ":$Clam(link) SETNAME $nick $Clam(asv)"
unbind raw - 311 msg_realname
unset realname
unset asv
}
}
Ps : $Clam(asv) est une valeur par defaut dans un fichier de config qui est de "20 H asv de defaut"
Merci aux gens qui vont m'aider.