Utimer

[mein]

Bonjour je poste déjà la partie de code

tclcopier

bind dcc - box join:box
proc join:box {hand idx arg} {
  set:box $idx $arg
}
proc set:box {idx arg} {
global box
set hand [idx2hand $idx]
 
if {[lindex $arg 0]=="Op"  || [lindex $arg 0]=="op"} {
      if [matchattr $hand +K] {
        set chann [lindex $arg 1]
        putlog $hand
        channel add $chann
        if {$chann==""} {
          putdcc $idx "\002Syntaxe:\002 Vous devez specifiez un channel"
          dccbroadcast "\002\#$hand\#\002 Op $chan => \002\0034Echoue"
          return
        }
          utimer 2 {
          if {![onchan $hand $chann]} {
          putdcc $idx "Vous devez être sur le chan"
          dccbroadcast "\002\#$hand\#\002 Op $chann => \002\0034Echoue"
          channel remove $chann
          return
}
}
        utimer 4 {        
        putquick "MODE $chann +o $hand"
        putdcc $idx "\002\#$hand\#\002 Vous avez été @ sur $chann"
        dccbroadcast "\002\#$hand\#\002 Op $chann => \002\0033Reussi"
        channel remove $chann
      }
    }
}

J'ai une erreur quand j'utilise la commande :

Code :

[15:37:46]  <Secret> [15:37] Tcl error in script for 'timer6':
[15:37:46]  <Secret> [15:37] can't read "hand": no such variable
[15:37:48]  <Secret> [15:37] Tcl error in script for 'timer7':
[15:37:48]  <Secret> [15:37] can't read "chann": no such variable

Si vous pouvez m'aider...
Cdlt