[Résolu] Aide sur un bout de code

[Alucard`68]

Bonsoir,
Alors j'ai tenter de façon voici la première (je met juste la procédure)

tclcopier

proc kickraison { nick host hand channel text } {
  global vhostmodo1 kickraison
  set args [split $text] # on mets chaque élément de $text dans la liste $args
  set victim [lindex $args 0] # le premier élément de $args est la victime
  set reason [join [lrange $args 1 end]] # la suite est la raison du kick
  foreach vhost $vhostmodo1 {
    if [string match -nocase $vhost $host] {
      putserv "cs kick $channel $victim $reason"
      putserv "PRIVMSG $::log :\0034$victim \00312à été kick de \0034$channel \00312par \0034$nick \00312pour flood."
      }
   }
}

Ne fonctionne pas et j'ai se message d'erreur en pl

Code :

[00:59:10] <Aragorn> [00:59:10] Tcl error [kickraison]: can't read "args": no such variable

et de cette façon

tclcopier

proc kickraison { nick host hand channel text } {
  global vhostmodo1 kickraison
  foreach vhost $vhostmodo1 {
    if [string match -nocase $vhost $host] {
    set args [split $text] # on mets chaque élément de $text dans la liste $args
    set victim [lindex $args 0] # le premier élément de $args est la victime
    set reason [join [lrange $args 1 end]] # la suite est la raison du kick
      putserv "cs kick $channel $victim $reason"
      putserv "PRIVMSG $::log :\0034$victim \00312à été kick de \0034$channel \00312par \0034$nick \00312pour flood."
      }
   }
}

Ne fonctionne pas non plus et aucun message en pl
Ai-je mal inséré le code?

Bien à toi.

Bye.