Bonjour je poste déjà la partie de code
J'ai une erreur quand j'utilise la commande :
Si vous pouvez m'aider...
Cdlt
tcl
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