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