alias bbüyük { return $replace($1,a,A,b,B,c,C,ç,C,Ç,C,d,D,e,E,f,F,g,G,ğ,G,Ğ,G,h,H,ı,I,i,I,İ,I,j,J,k,K,l,L,m,M,n,N,o,O,ö,O,Ö,O,p,P,r,R,s,S,t,T,u,U,v,V,y,Y,z,Z,w,W,x,X,q,Q,ş,S,Ş,S,@,A) }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Å,ş,ÄŸ,ğ,Ãœ,ü,Ä,ğ,$chr(39),-)

on *:sockopen:haber*:{ 
  var %:haber sockwrite -n $sockname
  %:haber GET /rsskonu.asp?konu= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
  %:haber Host: rss.haberler.com
  %:haber $crlf
  if (!$hget(Haber)) { .hmake Haber }
}
on *:sockread:haber*:{
  if ($sockerr) { .sockclose $sockname | return }
  var %haberler | sockread %haberler | .tokenize 32 %haberler
  if (<title> isin %haberler) {
    if $htmlfree(%haberler) == Haberler.Com { return }
    .msg #haberler $token($sock($sockname).mark,2,191) :5Baslik: $htmlfree(%haberler)
  }
  if (*<description>*</description>* iswm %haberler) {
    if $htmlfree(%haberler) == Türkiye'nin en kapsamlı haber portalı { return }
    .msg #haberler $token($sock($sockname).mark,2,191) :5Aciklama: $trchra($htmlfree(%haberler))
  }
  if (*<pubDate>*</pubDate>* iswm %haberler) {
    .msg #haberler $token($sock($sockname).mark,2,191) :5Zaman: $htmlfree(%haberler)
    .msg #haberler $token($sock($sockname).mark,2,191) :
      .sockclose $sockname 
      return 
    } 
  }
}