Change:
- channel
message (if you want)
exclude (add or remove nicknames)
- Code: Select all
namespace eval helpdesk {
namespace eval variable {
variable channel "#Channel"
variable message "entered the channel, and might need some assistance."
variable exclude "Q L fishbot catbot sp00fed"
}
bind join -|- * [namespace current]::onjoin
proc onjoin {nickname hostname handle channel} {
if {[string match [string tolower $::helpdesk::variable::channel] [string tolower $channel]]} {
set list ""
foreach user [chanlist $channel] {
if {[llength $list] == 6} {
putserv "PRIVMSG [join $list ","] :$nickname $::helpdesk::variable::message"
set list ""
}
if {[isop $user $channel]} {
foreach exclude $::helpdesk::variable::exclude {
if {[string match $user $exclude]} {
continue
}
lappend list "$user"
}
}
}
if {[llength $list] != 0} {
putserv "PRIVMSG [join $list ","] :$nickname $::helpdesk::variable::message"
set list ""
}
}
}
}
putlog "\00304[string range [info script] 0 end]\00304 \002loaded...\002"