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]"
}
Eggdrop community