on *:sockopen:yayin:{
  sockwrite -n $sockname GET / HTTP/1.1
  sockwrite -n $sockname Host: yayinakisi.com $+ $crlf $+ $crlf
}
on *:sockread:yayin:{
  var %yayinsecme
  sockread %yayinsecme
  if (<span class='prgtur'> isin %yayinsecme) {
    echo %yayinsecme
  }
}

alias htmlfree {
  var %x, %i = $regsub($replace($1-,$+($chr(38),#8217,$chr(59)),'),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}