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
      }
    }
}