mIRC üzerinden haber okuma

on *:text:!haberler:#haber:set $+(%,haber,nick) $nick | sondakika | .msg %habernick 3Son dakika haberleri listeleniyor :
alias haberler {
unset %haberler
sockclose s6
sockopen s6 sondakika.hurriyet.com.tr 80
}
on *:sockopen:s6: {
if (!$sockerr) {
    if $window(@Haberler) { clear @Haberler | window -a @Haberler }
    else { window -adCk0 +let @Haberler 0 0 500 270 Verdana 13 }
    sw GET /?sid=0 HTTP/1.1
    sw Host: sondakika.hurriyet.com.tr
    sw User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5
    sw Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    sw Accept-Language: tr-TR,tr;q=0.8,en-us;q=0.5,en;q=0.3
    sw Accept-Encoding: gzip,deflate
    sw Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
    sw Connection: Close
    sw $crlf
}
}
on *:sockread:s6: {
sockread %cenk
if (class=”hurtextverdana”> isin %cenk) {
    set %haberler $htmlfree(%cenk)
    var %iks = 1 , %ide $numtok(%haberler,191)
    while (%iks <= $calc(%ide – 1)) {
      var %srdr $gettok(%haberler,%iks,191)
      if (difuzyon isin %srdr) { halt }
      aline 7 @Haberler $replace(%srdr,-,4-10)
      inc %iks
    }
}
}