demande de compression du code si possible

[CrazyCat]

Heu, je ne te comprends pas bien là.
Ton code devrait être:

tclcopier

"PRIVMSG" {
   set user [string trim [lindex $arg 0] :]
   set nick [lindex [split $user !] 0]
   set nick [lindex [split $nick |] 0]
   set chan [string tolower [lindex $arg 2]]
   set cmd [string trim [string tolower [lindex $arg 3]] :]
   switch -exact $cmd {
      "csauth" {
         if [iscsa $nick] {
            send ":$webs(socket:nick) PRIVMSG $webs(chan:log) :*** CSAUTH $nick"
            send ":$webs(socket:nick) NOTICE $nick :MOTD $webs(chan:log) Bienvenue chez les CsAdmins de $webs(socket:nick)"
            send ":$webs(socket:nick) INVITE $nick $webs(chan:log)"
         }
      }
   }
}

Sauf si tu veux pouvoir utiliser le nick actuellement utilisé sur IRC ET le nick sous lequel est reconnu l'utilisateur.