alias sondakikahaber {
  unset %haberl
  sockclose s4d
  sockopen s4d [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
alias -l sew sockwrite -n $sockname $1-
on *:sockopen:s4d: {
  if (!$sockerr) {
    sew GET /rss.asp HTTP/1.1
    sew Host: kelebekhaber.com $+ $crlf $+ $crlf
    sew $crlf
  }
}
on *:sockread:s4d: {
  if (!$sockerr) {
    var %difi 
    sockread %difi
    if (*</description>* iswm %difi) { 
      %haberl = $addtok(%haberl,$htmlfree($replace(%difi,</description>,~,<link>,$chr(32),</link>,$chr(32),</title>,</title,<description>,description>)),32) 
    }
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:text:!Haberler:#Kanal:if !%haberl { sondakikahaber | msg $chan Bilgiler alınıyor | .timer 1 5 haberyaz }

alias -l haberyaz {
  if %haberl {
    var %1 1 | while %1 <= $numtok(%haberl,126) { msg #Kanal $token(%haberl,%1,126) | inc %1 }
    unset %haberl
  }
}
 
alias haberoku {
  if !%haberl { sondakikahaber | echo -a Bilgiler alınıyor | .timer 1 5 echohaber }
}
alias -l echohaber {
  if %haberl {
    var %1 1 | while %1 <= $numtok(%haberl,126) { echo -a $token(%haberl,%1,126) | inc %1 }
    unset %haberl
  }
}