##### Gestion des changements de nick
proc motus::nickchange {nick host hand chan newnick} {
variable scores
variable nickchange_array
set cleanoldnick [motus::clean_nick $nick]
set cleannewnick [motus::clean_nick $newnick]
# si $nick a un score, on le transfère à $newnick et on note si un doublon est créé dans les scores.
# Si un doublon existe, ses scores seront fusionnés dès qu'il aura marqué au moins un point après
# s'être renommé, et ce afin de limiter les risques de vol de score.
if {[lsearch $scores "$cleannewnick *"] != -1} { set duplicate 1 } { set duplicate 0 }
set scorepos [lsearch $scores "$cleanoldnick *"]
if { $scorepos != -1 } { variable scores [lreplace $scores $scorepos $scorepos "$cleannewnick [motus::score $nick]"] }
# on va créer un tableau contenant cleannewnick/cleanoldnick
# ce tableau sera parcouru si quelqu'un marque un point
# si on trouve nick dans la colonne cleannewnick,
# alors on lance la procédure de remplacement de cleanoldnick par cleannewnick dans les stats
# et on supprime la ligne cleannewnick/cleanoldnick dans le tableau
array set nickchange_array[list $cleannewnick $cleanoldnick]
if { $scorepos != -1 } {
puthelp "NOTICE $newnick :[color warning]\002\[$newnick\]\002\003 Bütün PuanLarınız Bu Nickinize Aktarılmıştır.."
if {$motus::DEBUGMODE} { putlog "\00304\[MOTUS DEBUG\]\003 ${nick} \00314s'est renommé en\003 $newnick\00314. Scores :\003 $scores" }
motus::ecrit_scores
}
if {$duplicate == 1} { putlog "\00304\002\[Motus - INFO\]\002\003 \00307${nick}\003!$host ($hand) s'est renommé en $newnick. \037Remarque :\037 un score existe déjà à ce nom :\00314 $scores\003" }
}