IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - IF-Hazirkodlar Categoriy Feeder bot addon

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - IF-Hazirkodlar Categoriy Feeder bot addon (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/398045-if-hazirkodlar-categoriy-feeder-bot-addon.html)

IF-Hazirkodlar Category Feeder bot addon

Merhaba:
uzun lafa gerek yok , hazırkodlar bölümündeki beslemeleri bir kanala aktarır. mIRC botlarınız için yapılmıştır , isteyen olursa kişiye göre çekimlenebilir kod.

Kod:

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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

    %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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }

  }

  else {

    msg $chan $nick Operatör olmanız gerekmektedir.

  }

}

Kırmızı olan yerleri kendi kanalınıza göre değiştirin.
Kullanımı: Belirlediğiniz kanalın herhangi bir operatörü belirlediğiniz kanalın genelinde !feed yazması yeterli olucaktır.
Hayırlı IF'ler.