alias .host {
  return 37.123.98.27
}
alias .port {
  return 2121
}
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
  if *Server*Version* iswm %radyobilgi {
    if $regex($htmlfree(%radyobilgi),/(Stream Status.+)\sListener Peak/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/(Listener Peak.+)\sAverage Listen Time/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/(Average Listen Time.+)\sStream Title/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/(Stream Title.+)\sContent Type/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/(Content Type.+)\sStream Genre/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/(Stream Genre.+)\sStream URL/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/[^\|]\s(Stream URL.+)\sStream ICQ/) { msg #radyo $regml(1) }
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;)   
  return %x
}