bind pub n !broadcast pub_do_broadcast
# Broadcasts a message to every channel the bot is on 
proc pub_do_broadcast {nick host hand chan text} {  
  if {[string length $text] > 0} { 
    set text [string trim $text "{}"] 
    foreach n [channels] { puthelp "PRIVMSG $n :14(4BROADCAST14): $text" } 
  }
} 

putlog "Broadcast v1.0 by Wikked Loaded"