alias sondakika {
  unset %haber
  sockclose s4
  sockopen s4 sondakika.hurriyet.com.tr 80
}
alias -l sw sockwrite -n $sockname $1-
on *:sockopen:s4: {
  if (!$sockerr) {
    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
  }
}
alias htmlfree {
  var %x, %i = $regsub($replace($1-,</strong>,-,</a></td></tr><tr>,¿,DiÄŸer haberler için tıklayın...,difuzyonnnn),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9))
  return %x
}
on *:sockread:s4: {
  sockread %a
  if (class="hurtextverdana"> isin %a) {
    set %haber $htmlfree(%a)
    var %i = 1 , %id $numtok(%haber,191)
    while (%i <= $calc(%id - 1)) {
      var %s $gettok(%haber,%i,191)
      if (difuzyon isin %s) halt
      .msg %habernick $replace(%s,-,4-01)
      inc %i
    }
  }
}
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) {
    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 }
      .msg $nick  $replace(%srdr,-,4-10)
      inc %iks
    }
  }

alias haber {
  sockclose dify
  .remove haber.txt
  sockopen dify sondakika.hurriyet.com.tr 80
}
on *:sockopen:dify:{
  sockwrite -n $sockname GET / HTTP/1.1
  sockwrite -n $sockname Host: sondakika.hurriyet.com.tr $+ $crlf $+ $crlf
}
on *:sockread:dify:{
  if ($sockerr) { echo 4 -s Hata meydana geldi | halt }
  else {
    var %yok 
    sockread %yok
    if $regex(%yok,/("sondakika_saat"><strong>)/i) { write haber.txt $regsubex(%yok,/(<strong>)/gi,~) | sockclose dify | göster #KANAL }
  }
}
alias -l göster {
  var %dify 1 | while %dify <= $token($read(haber.txt,1),0,126) { 
    if $left($token($read(haber.txt,1),%dify,126),5) > $asctime($calc($ctime -300),HH:nn) {
      msg $1 $regsubex($token($read(haber.txt,1),%dify,126),/(</strong><\/td><td width="100%" valign="top"><a href="|" class="sondakika_haberlink" target="_blank">|</a></td></tr><tr><td width="40" valign="top" class="sondakika_saat">)/ig,$chr(32))
    }
    inc %dify
  }
}
menu * {
  Haberler:.timerdify 0 300 haber
}