alias .host {
  return ip
}
alias .port {
  return port
}
alias .sock {
  return shoutcast
}
on *:sockopen:$($.sock): {
  sockwrite -n $sockname GET $+(/ HTTP/1.1)
  sockwrite -n $sockname Host: $+($.host, :, $.port)
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname Keep-Alive: 300
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}
alias radyoal {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $.sock $.host $.port
}
on *:sockread:$($.sock): {
  var %radyobilgi
  sockread %radyobilgi
  echo -a %radyobilgi
  if (%radyobilgi != $null) { 
    if (*stream title* iswm %radyobilgi) { msg #xx $remove(%radyobilgi,<font class=default>Stream Title: </font></td><td><font class=default><b>,</b></td></tr><tr><td, ) }
  }
}