24/11/2009, 21:25
Bonsoir,
Le titre du sujet semble bizard mais non, mes questions ont surement déjà été poser mais je trouve pas mes réponses ou presque.
alors je commence, Les réponses qui ont des caractères avec accents le bot ne vois rien ( domage ) voice ce que j'ai pour les accents sur le script :
Et ensuite j'ai cherché des réponses pour les points variable et je suis tombé sur ce sujet : http://www.eggdrop.fr/board/Triviatcl-Po...ml#pid2860
Je sais pas si je fait la chose comme elle doit être faite mais cela me plante un peux les scores :/
Si vous aurriez deux trois petit conseils cela serais sympa :).
Merci d'avance kipof.
Le titre du sujet semble bizard mais non, mes questions ont surement déjà été poser mais je trouve pas mes réponses ou presque.
alors je commence, Les réponses qui ont des caractères avec accents le bot ne vois rien ( domage ) voice ce que j'ai pour les accents sur le script :
tcl
proc mx_tweak_umlauts {texts} {
regsub -all {(([0-9])?([0-9])?(\,([0-9])?([0-9])?)?)?} $texts "" texts
regsub -all {([0-9A-F][0-9A-F])?} $texts "" texts
regsub -all \{|\} $texts "" texts
regsub -all \002 $texts "" texts
regsub -all \037 $texts "" texts
regsub -all $texts "" texts
regsub -all $texts "" texts
regsub -all $texts "" texts
regsub -all $texts "" texts
regsub -all $texts "" texts
regsub -all $texts "" texts
regsub -all "A" $texts "a" texts
regsub -all "B" $texts "b" texts
regsub -all "C" $texts "c" texts
regsub -all "D" $texts "d" texts
regsub -all "E" $texts "e" texts
regsub -all "F" $texts "f" texts
regsub -all "G" $texts "g" texts
regsub -all "H" $texts "h" texts
regsub -all "I" $texts "i" texts
regsub -all "J" $texts "j" texts
regsub -all "K" $texts "k" texts
regsub -all "L" $texts "l" texts
regsub -all "M" $texts "m" texts
regsub -all "N" $texts "n" texts
regsub -all "O" $texts "o" texts
regsub -all "P" $texts "p" texts
regsub -all "Q" $texts "q" texts
regsub -all "R" $texts "r" texts
regsub -all "S" $texts "s" texts
regsub -all "T" $texts "t" texts
regsub -all "U" $texts "u" texts
regsub -all "V" $texts "v" texts
regsub -all "W" $texts "w" texts
regsub -all "X" $texts "x" texts
regsub -all "Y" $texts "y" texts
regsub -all "Z" $texts "z" texts
regsub -all "à" $texts "a" texts
regsub -all "â" $texts "a" texts
regsub -all "è" $texts "e" texts
regsub -all "È" $texts "E" texts
regsub -all "é" $texts "e" texts
regsub -all "É" $texts "E" texts
regsub -all "ê" $texts "e" texts
regsub -all "Ê" $texts "e" texts
regsub -all "ë" $texts "e" texts
regsub -all "Ë" $texts "e" texts
regsub -all "à" $texts "a" texts
regsub -all "À" $texts "a" texts
regsub -all "â" $texts "a" texts
regsub -all "Â" $texts "a" texts
regsub -all "ç" $texts "c" texts
regsub -all "ô" $texts "o" texts
regsub -all "Ô" $texts "o" texts
regsub -all "ù" $texts "u" texts
regsub -all "Ù" $texts "u" texts
regsub -all "û" $texts "u" texts
regsub -all "Û" $texts "u" texts
regsub -all "ü" $texts "u" texts
regsub -all "í" $texts "u" texts
regsub -all "ï" $texts "i" texts
regsub -all "Ã" $texts "i" texts
regsub -all "î" $texts "i" texts
regsub -all "Î" $texts "i" texts
regsub -all "ì" $texts "i" texts
regsub -all "í" $texts "i" texts
set text [string trimleft $texts]
set lastchar [string index $text [expr [string length $text] -1]]
if {[string compare $lastchar "\\"] == 0} {
regsub -all {\\} $text "" newarg
append newarg "\\"
set text $newarg
}
return $text
}
Et ensuite j'ai cherché des réponses pour les points variable et je suis tombé sur ce sujet : http://www.eggdrop.fr/board/Triviatcl-Po...ml#pid2860
Je sais pas si je fait la chose comme elle doit être faite mais cela me plante un peux les scores :/
Si vous aurriez deux trois petit conseils cela serais sympa :).
Merci d'avance kipof.