[jeux] taboo

[djkenny]

salut,

Certaines personnes rencontrant des problèmes avec leur script (1ere lettre de couleur différente), il semblerait que la proc stripcodes de eggdrop soit bogué, elle ne supprime pas le char \015 ou \017 (ctrl + o)
voici donc la solution:

Code :

proc ::taboo::debug arg {
#    set arg [stripcodes abcru $arg]
    regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\007|\015} $arg {} arg
    while {[string is space [string index $arg 0]]} {set arg [string replace $arg 0 0]}
    while {[string is space [string index $arg end]]} {set arg [string replace $arg end end]}
    string map {
        \346 "\157\145" \
        \347 \143 \307 \143 \
        \361 \156 \321 \156 \
        \375 \171 \377 \171 \355 \171 \
        \354 \151 \355 \151 \356 \151 \357 \151 \314 \151 \315 \151 \316 \151 \317 \151 \
        \350 \145 \351 \145 \352 \145 \353 \145 \310 \145 \311 \145 \312 \145 \313 \145 \
        \371 \165 \372 \165 \373 \165 \374 \165 \331 \165 \332 \165 \333 \165 \334 \165 \
        \362 \157 \363 \157 \364 \157 \365 \157 \366 \157 \322 \157 \323 \157 \324 \157 \325 \157 \326 \157 \
        \300 \141 \301 \141 \302 \141 \303 \141 \304 \141 \305 \141 \340 \141 \341 \141 \342 \141 \343 \141 \344 \141 \345 \141 \
        "'" " " "_" "" "\-" " " "\\" "" "\[" "" "\]" "" \
    } $arg
}