Code: Select all
.tcl putserv "MODE #channel +o nick"
Code: Select all
bind JOIN - * join:op
proc join:op { nickname hostname handle channel } {
if {[matchattr $handle |mnov $channel]} {
putquick "MODE $channel +o $nickname"
} elseif {[matchattr $handle |o $channel]} {
putquick "MODE $channel +o $nickname"
} elseif {[matchattr $handle |v $channel]} {
putquick "MODE $channel +v $nickname"
}
}
Code: Select all
} elseif {[matchattr $handle |o $channel]} {
putquick "MODE $channel +o $nickname"
Code: Select all
} elseif {[matchattr $handle o|o $channel]} {
putquick "MODE $channel +o $nickname"
Code: Select all
bind JOIN - * join:op
proc join:op {nickname hostname handle channel} {
if {[matchattr $handle |mn $channel] || [matchattr $handle o|o $channel]} {
putquick "MODE $channel +o $nickname"
}
elseif {[matchattr $handle |v $channel]} {
putquick "MODE $channel +v $nickname"
}
}