Code: Select all
bind pub S .set tb_set
bind pub - .roster tb_roster
proc tb_set { nick chan hand host cmd arg } {
global set botnick
set command [lindex $arg 1]
switch -exact [string tolower $command] {
"" {
putserv "NOTICE $nick :Roster Leagues Record Sponsors Servers Website Scrims Auto-Voice Auto-OP GotFrag"
}
"roster" {
if { $arg == "" } {
putserv "NOTICE $nick :\002Usage:\002 .set Roster Roster Here."
} else {
channel set $chan roster "$arg"
putserv "NOTICE $nick :\002Roster:\002 [channel get $chan roster]"
}
}
}
}
proc tb_roster { nick host chan } {
global roster
putserv "NOTICE $nick :\0002Roster:\002 [channel get $chan roster]"
}