alias rtopic { topic #radiochan Radio Something - Current Dj: %onair.dj - News: %news }
on *:text:@onair:#radiochan:{ if ($nick isop $chan) { set %onair.dj $nick | rtopic } | else notice $nick You aren't an op! }
on *:text:@offair:#radiochan:{ if ($nick isop $chan) { set %onair.dj No DJ | rtopic } | else notice $nick You aren't an op! }
on *:text:@request *:#radiochan:{ msg %onair.dj $nick Requested $2- }
on *:text:@shoutout *:#radiochan:{ msg %onair.dj $nick Wants to shout $2- }
on *:text:@setnews *:#radiochan:{ if ($nick isop $chan) set %news $2- | rtopic } | else notice $nick You are not an op! }
on *:TEXT:@listeners:#:{ set %sc.chan $chan | sockclose sc.list | sockopen sc.list %host %port }
on *:sockopen:sc.list:{
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,%password,&mode=viewxml&page=0) HTTP/1.0
  sockwrite -n $sockname User-Agent: Mozilla Compatible
  sockwrite -n $sockname $crlf
}
on *:sockread:sc.list:{
sockread %temp
  if (<CURRENTLISTENERS> isin %temp) set %sc.listeners $remove(%temp,<CURRENTLISTENERS>,</CURRENTLISTENERS>)
  if (<PEAKLISTENERS> isin %temp) set %sc.peaklisteners $remove(%temp,<PEAKLISTENERS>,</PEAKLISTENERS>)
  if (<MAXLISTENERS> isin %temp) set %sc.maxlisteners $remove(%temp,<MAXLISTENERS>,</MAXLISTENERS>)
}
on *:sockclose:sc.list:{
  msg %sc.chan Current Listeners: $+(%sc.listeners,/,%sc.maxlisteners) Peak Listeners: %sc.peaklisteners
}
on *:TEXT:@song:#:{ set %sc.chan $chan | sockclose sc.song | sockopen sc.song %host %port }
on *:sockopen:sc.list:{
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,%password,&mode=viewxml&page=0) HTTP/1.0
  sockwrite -n $sockname User-Agent: Mozilla Compatible
  sockwrite -n $sockname $crlf
}
on *:sockread:sc.list:{
  sockread %temp
  if (<CURRENTSONG> isin %temp) set %sc.listeners $remove(%temp,<CURRENTSONG>,</CURRENTSONG>)
}
on *:sockclose:sc.list:{
  msg %sc.chan Current Listeners: $+(%sc.listeners,/,%sc.maxlisteners) Peak Listeners: %sc.peaklisteners
}