Par un détour à Yoda

proc u {} {return \037}; #underline
proc r {} {return \026}; #reverse
proc b {} {return \002}; #bold

#color
proc c { {color ""} } {
    switch -- $color {
        white {
            set colornum "0"
        }
        black {
            set colornum "1"
        }
        blue {
            set colornum "2"
        }
        green {
            set colornum "3"
        }
        red {
            set colornum "4"
        }
        redbdx {
            set colornum "5"
        }
        mauve {
            set colornum "6"
        }
        orange {
            set colornum "7"
        }
        yellow {
            set colornum "8"
        }
        lightgreen {
            set colornum "9"
        }
        bluegreen {
            set colornum "10"
        }
        blueocean {
            set colornum "11"
        }
        lightblue {
            set colornum "12"
        }
        pink {
            set colornum "13"
        }
        gray {
            set colornum "14"
        }
        lightgray {
            set colornum "15"
        }
        1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11- 12 - 13 - 14 - 15 {
            set colornum $color
        }
        default {
            set colornum ""
        }
    }
    return \003$colornum
}

putserv "PRIVMSG $channel :[c blue]code bleu[b]gras et bleu[b][u]bleu souligne[c red]rouge souligne[c]souligne[u]normal"

walaaaaaaa