on *:sockopen:ifbot:{
  if ($sockerr) { msg #kanal Hata bağlanılamadı! | return }
  else { 
    var %ifbot = sockwrite -nt $sockname
    %ifbot GET /external.php?type=rss2&forumids=70 $+ / HTTP/1.1
    %ifbot HOST: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ircforumlari.net
    %ifbot $crlf
  }
}
on *:sockread:ifbot:{
  var %ifread
  sockread %ifread
  if (*<title>* iswm %ifread) {
    set %ifbaslik $remove(%ifread,</title>,<title>,<![CDATA[,]],<,>) 
  }
  if (*<description>* iswm %ifread) {
    set %ifaciklama $remove(%ifread,</description>,<description><![CDATA[,]],<,>)
  }
  if (*<link>* iswm %ifread) {
    set %iflink $remove(%ifread,</link>,<link>)
  }
  if (*<pubDate>* iswm %ifread) {
    set %ifzaman $remove(%ifread,</pubDate>,<pubDate>,GMT)
  }
  if (*<dc:creator>* iswm %ifread) {
    set %ifkullanici $remove(%ifread,<dc:creator>,</dc:creator>)
    if !$read(kategoriler.txt,w,%ifbaslik) {
      write gelen.txt 2 ------------------------------------------------------;
      write gelen.txt Başlık: $+(,%ifbaslik,)   
      write gelen.txt Tarih ve zaman: $+(,$degistir(%ifzaman),)
      write gelen.txt Açıklama: $+(,%ifaciklama,)
      write gelen.txt Link: $+(,%iflink,) *
      write gelen.txt  Kullanıcı: $+(,%ifkullanici,)
      write gelen.txt 2 ------------------------------------------------------;
      write gelen.txt $chr(32)
      write kategoriler.txt %ifbaslik
    }
  }
}
alias degistir { 
  return $replace($1,Mon,Pazartesi,Tue,Salı,Wed,Çarşamba,Thu,Perşembe,Fri,Cuma,Sat,Cumartesi,Sun,Pazar,:,-,Jun,Ocak,Jan,Şubat,Mar,Mart,Apr,Nisan,May,Mayıs,Jul,Haziran,Aug,Ağustos,Sep,Temmuz,Oct,Ekim,Nov,Kasım,Dec,Aralık)
}
on *:sockclose:ifbot:{ play #kanal gelen.txt 75 | timer 1 80 remove gelen.txt  }
on *:text:!feed:#kanal:{
  if $regex($nick($chan,$nick).pnick,/(.|~|&|@|%)/) {
    if $sock(ifbot).status == on {
      msg $chan Şuanda aktarım yapılıyor $nick , daha sonra tekrar deneyin.
    }
    else {
      msg $chan Son 4Feeds1(beslemeler) çekiliyor. Lütfen bekleyin.
      unset %if*
      write -c gelen.txt
    sockopen ifbot 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ircforumlari.net 80 }
  }
  else {
    msg $chan $nick Operatör olmanız gerekmektedir.
  }
}