OzgurceSohbet Script ile Sohbet'e Bağlan
irc haber botu
irc haber botu

irc haber botu

Öncelikle Selam Aleyküm Değerli İf Sakinleri.
Önceden Yazmış olup Kullandığım Kodu, Bot İçin editlenmiş Halini Paylaşıma Sunmak İstedim

Kod:

;#########Sondakika Haberler########
;#######-Yazan: SiLuet - Salih T. -######
;#######-Tarih: 25.12.2011-##########
;#########Sondakika Haberler########
alias sonhaber {
$iif(!$isdir(Haberler),mkdir Haberler) | set %satır 1
if ($1 == güncel) || !$1 { set -e %haber.Konu guncel | write -c $+(Haberler,,%haber.Konu,.txt) }
elseif ($1 == spor) { set -e %haber.Konu spor | write -c $+(Haberler,,%haber.Konu,.txt) }
elseif ($1 == Ekonomi) { set -e %haber.Konu ekonomi | write -c $+(Haberler,,%haber.Konu,.txt) }
elseif ($1 == Dunya) { set -e %haber.Konu dunya | write -c $+(Haberler,,%haber.Konu,.txt) }
elseif ($1 == magazin) { set -e %haber.Konu magazin | write -c $+(Haberler,,%haber.Konu,.txt) }
elseif ($1 == Kultur-sanat) { set -e %haber.Konu kultur-sanat | write -c $+(Haberler,,%haber.Konu,.txt) }
sockclose sonhaber
sockopen sonhaber sondakika.haberler.com 80
}
;########Sondakika Haberler Open##########
on *:sockopen:sonhaber:{
var %write sockwrite -n $sockname
%write Get /sondakika.asp?son_dakika= $+ %haber.konu HTTP/1.1
%write Host: sondakika.haberler.com
%write $crlf
}
;#######Sondakika Haberler Read##########
on *:sockread:sonhaber:{
var %son | sockread %son
if ( isin %son) { set -e %time $remove($htmlfree(%son),$chr(9)) }
if (
if (
isin %son) { write $+(Haberler,,%haber.Konu,.txt) 4Açıklama: $htmlfree(%son) | write $+(Haberler,,%haber.Konu,.txt) –
inc %satır
if (%satır == 6) { sockclose $sockname }
}
}
;#######Sondakika Haberler Event##########
on *:text:*:#Haber:{
if $istok(Nick1 Nick2 Nick3,$nick,32) && (!Güncelle == $1) { $iif($2 == Kapat,.timeroto off,.timeroto 0 10 oto) }
if (!bilgi == $1) { if (!%bilgi [ $+ [ $nick ] ]) { set -u25 %bilgi [ $+ [ $nick ] ] on | komutlar # } }
if (!haberler == $1) { if (!%haberler [ $+ [ $nick ] ]) { set -u25 %haberler [ $+ [ $nick ] ] on | haberler # } }
if ((!haber == $1) && $2) { if (!%haber [ $+ [ $nick ] ]) { set -u25 %haber [ $+ [ $nick ] ] on | sonhaber $2 | msg # $2 Haberleri Alınıyor Lütfen Sabırlı Olun! | .timer 1 3 play # $+(Haberler,,%haber.konu,.txt) 2000 | halt } }
if (!link == $1) && $2 && $3 { if (!%link [ $+ [ $nick ] ]) { set -u25 %link [ $+ [ $nick ] ] on | var %hb $replace($gettok($gettok($readini(haberlerlinks.ini,$2,$3),3,47),$+(1,-,$calc($numtok($readini(haberlerlinks.ini,$2,$3),45) – 2)),45),-,$chr(32)) | memoserv send $nick %hb Başlıklı Haberin Linki > $readini(haberlerlinks.ini,$2,$3) | msg # 4 %hb : Başlıklı Haberin Linki Memo Olarak Gönderilmiştir. } }
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^|]*>|]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
alias haberler { msg $1 [Haber Başlıkları] | msg $1 4Guncel , Dunya , Spor , EKonomi , Magazin , Kultur-sanat | msg $1 Haber Başlıklarını Okumak İçin Örn: !haber Guncel  Yazınız. | msg $1 [Haberler SoN] }
alias komutlar { msg $1 [Haber Botu Kullanabilecek Komutlar] | .timer 1 1 msg $1 !haberler Haber Başlıklarını Listeler | .timer 1 2 msg $1 !haber Belirtilen Haber Başlığındaki Haberleri Listeler. | .timer 1 3 msg $1 !link ”N” Numaralı haberin Linkini Görmenizi/Almanızı sağlar. Örn: !link kultur-sanat 2 | .timer 1 5 msg $1 [Haber Botu Komut sonu] }
;#######Sondakika Haberler Oto##########
alias oto { $iif($sock(oto),sockclose oto) | sockopen oto http://www.sondakika.haberler.com 80 }
on *:sockopen:oto:{
var %write sockwrite -n $sockname
%write Get /sondakika.asp?son_dakika=guncel HTTP/1.1
%write Host: sondakika.haberler.com
%write $crlf
}
on *:sockread:oto:{
var %oto | sockread %oto
if (
isin %oto) {
if (%oto1 == $htmlfree(%oto)) { sockclose $sockname }
else {
set %oto1 $htmlfree(%oto)
msg #Haber 4Yeni Haber: %oto1
msg #Haber –
sockclose $sockname
}
}
}
;#######Sondakika Haberler End##########

Kodu Botunuza Ekledikten Sonra Haber Kananlında !bilgi Yazdığınızda Gerekli Açıklamayı Göreceksiniz. Ben Haber Kanalı Olarak Ayarladım Siz Dilediğiniz Kanalı ayarlayabilirsiniz Gerekli yerden.

Koddaki Kırmızı renkte Olan Kısma Ekleyeceğiniz Nickler !güncelle Aç/kapat Komutunu Kullanabilecekler.
Bu Komutla Guncel Kategorisine Yeni Haber eklendiğinde Oto Güncelleme Yaparak Kanala Yansıtacaktır.

Komutlarda, Botu laga Sokmamak için Kullanımdan sonra 25 saniyelik Bekleme Süresine Tabi tutulmaktadır Komutu Kullanan Kişiler.

Umarım İşine Yarayan Olur.

[Toplam:1    Ortalama:5/5]
BİLGİLER
tarafından 04 Mart 2018 - 23:58 tarihinde yayınlandı.
GÖSTERİM SAYISI
Bu Yazı Şuana Kadar 12 Okundu kez Okunmuştur.
PAYLAŞ
facebook Twitter Frienfeed Twitter Google
OzgurceSohbet - Reklam Alanı
Yorum yapın
İsim
:
E-Posta
:
WebSite
:
Yorumunuz
:

 

SON YAZILAR
Görüntülü Sohbet ve Kameralı Chat

Görüntülü Sohbet ve Kameralı Chat Sistemimizi hazırlarken özellikle tüm kullanıcıların rahatlıkla gezinebilecekleri... [Devamı]

Görüntülü Sohbet ve Kameralı Chat
WordPress 2018 Film Botu İndir

WordPress 2018 Film Botu İndir WordPress 2018 Film Botu, WP Film siteleri için geliştirilmiş olan bir bot (eklentisi)... [Devamı]

WordPress 2018 Film Botu İndir
Google Adsense alternatifi 2018 yılı rekla..

Google Adsense alternatifi 2018 yılı reklam veren siteler Dünya genelinde en çok tık alan sitelerinin, popüler haber... [Devamı]

Google Adsense alternatifi 2018 yılı reklam veren siteler
Japon’ un biri, Rize’de

Japon’ un biri, Rize’de  Japon’ un biri, Rize’de bir kahveye girmis ve herkese kafa tutmuş. –... [Devamı]

Japon’ un biri, Rize’de
Hamilelikte cinsel ilişki pozisyonları

Hamilelikte cinsel ilişki pozisyonları Hamilelikte Cinsel İlişki Pozisyonları ve cinsel yaşam; Anne ve baba adayları... [Devamı]

Hamilelikte cinsel ilişki pozisyonları
Sesli Mobil Sohbet

Sesli Mobil Sohbet Merhaba Değerli Sohbet Ailesi Bu gün sizlere Sesli Mobil Sohbet  başlığımız adı altında ücretsiz... [Devamı]

Sesli Mobil Sohbet
Prenses Sohbet

Prenses Sohbet Sohbet  başlığımız adı altında sizlere platformumuz hakkında ve yapmanız gerekenler ile ilgili bir... [Devamı]

Prenses Sohbet