04/11/2008, 22:44
Exposition du Probleme :
Quand n'importe quel utilisateurs change de pseudo via "/nick newpseudo" ou "!newnick" et parle juste après le robot plante , pareil si il change le mode d'un salon et parle juste après le robot plante avec l'erreure suivante :
Erreur tcl [evenement_serveur]: can't read "Chatteurs(heretoc@ident)": no such element in array
Voila le code ou je pense que sa foire bien (cela est mon premier tcl link au server soyez indulgents) :
Merci de bien vouloir m'aider.
Quand n'importe quel utilisateurs change de pseudo via "/nick newpseudo" ou "!newnick" et parle juste après le robot plante , pareil si il change le mode d'un salon et parle juste après le robot plante avec l'erreure suivante :
Erreur tcl [evenement_serveur]: can't read "Chatteurs(heretoc@ident)": no such element in array
Voila le code ou je pense que sa foire bien (cela est mon premier tcl link au server soyez indulgents) :
Code :
"NICK" {
set pseudonyme [string tolower [string trim [lindex $raw_brute 0] :]];
set changement_pseudonyme [string tolower [lindex $raw_brute 2]];
if {![info exists Chatteurs($changement_pseudonyme@host)]} {
if {![info exists Chatteurs($pseudonyme@host)]} {
set Chatteurs($changement_pseudonyme@ident) $Chatteurs($pseudonyme@ident);
set Chatteurs($changement_pseudonyme@host) $Chatteurs($pseudonyme@host);
unset Chatteurs($pseudonyme@ident);
unset Chatteurs($pseudonyme@host);
} else {
set Chatteurs($changement_pseudonyme@ident) $Chatteurs($pseudonyme@ident);
set Chatteurs($changement_pseudonyme@host) $Chatteurs($pseudonyme@host);
unset Chatteurs($pseudonyme@ident);
unset Chatteurs($pseudonyme@host);
}
}
unset pseudonyme;
unset changement_pseudonyme;
}
"SETHOST" {
set pseudonyme [string tolower [string trim [lindex $raw_brute 0] :]];
if {[info exists Chatteurs($pseudonyme@host)]} {
set Chatteurs($pseudonyme@host) [lindex $raw_brute 2];
}
}
"CHGHOST" {
set pseudonyme [string tolower [string trim [lindex $raw_brute 2] :]];
if {[info exists Chatteurs($pseudonyme@host)]} {
set Chatteurs($pseudonyme@host) [lindex $raw_brute 3];
}
}
}
}Merci de bien vouloir m'aider.
