25/11/2009, 15:06
Pour les accents même problème avec ce code et pour les points variable c'est surement la ligne que je colle au mauvais endroit :/
dans la proc tgcorrectanswer que j'ajoute la ligne mais je pense faire une erreur car il me crée d'autre comptes scores :p
dans la proc tgcorrectanswer que j'ajoute la ligne mais je pense faire une erreur car il me crée d'autre comptes scores :p
TCL
#déclenché quand quelqu'un dit la réponse correcte.
proc tgcorrectanswer {nick} {
global tgcurrentanswer tghinttimer tgtimenext tgchan tgnextqtimer tgstreak tgstreakmin
global tgscoresbyname tgranksbyname tgranksbynum tgcongrats tgscorestotal tgmissed
global tgtimestart tgshowallscores tgrealnames tgscoresbyrank tgtimeanswer tgmulti
tggetscores
if {![info exists tgranksbyname([strlwr $nick])]} {
set _oldrank 0
} else {
set _oldrank $tgranksbyname([strlwr $nick])
}
tgincrscore $nick[lindex $::tganswscore $::tghintnum]
tggetscores
set _newrank $tgranksbyname([strlwr $nick])
set _timetoanswer ""
if {$tgtimeanswer==1} {
set _timetoanswer [expr [expr [clock clicks -milliseconds]-$tgtimestart]/1000.00]
}
if !([isvoice $nick $tgchan]||[isop $nick $tgchan]) {
putserv "MODE $tgchan +v $nick"
}