All pastes #236646 Raw Edit

Mine

public text v1 · immutable
·published 2006-11-03 23:01 UTC
rendered paste body
### Error ###
Tcl error [medge_chansynk]: illegal channel option:

### Code ###

proc medge_chansynk {bot cmd arg} {
 global limbomode hubnick
 if {$bot != $hubnick} {
  return 0
 }
 if {[xindex $arg 0] == "0"} {
  set n [xrange $arg 1 end]
   foreach c [channels] {
    if {[lsearch -exact $n $c] < 0} {
     channel remove $c
    }
   }
   foreach c $n {
    if {[lsearch -exact [channels] $c] < 0} {
     channel add $c
    }
   }
   return 0
  } elseif {[xindex $arg 0] == "1"} {
   set c [xindex $arg 1]
   channel set $c chanmode [lindex $arg 2]
   channel set $c idle-kick [lindex $arg 3]
   channel set $c stopnethack-mode [lindex $arg 4]
   channel set $c revenge-mode [lindex $arg 5]
   channel set $c flood-chan [lindex $arg 6]
   channel set $c flood-ctcp [lindex $arg 7]
   channel set $c flood-join [lindex $arg 8]
   channel set $c flood-kick [lindex $arg 9]
   channel set $c flood-deop [lindex $arg 10]
   channel set $c flood-nick [lindex $arg 11]
   channel set $c aop-delay [lindex $arg 12]
  } elseif {[xindex $arg 0] == "2"} {
  foreach s [lrange $arg 2 end] {
   if {[llength $s] == "1"} {
    channel set [xindex $arg 1] $s
   } {
    channel set [xindex $arg 1] [lindex $s 0] [lindex $s 1]
   }
  }
 }
}