Son Dakika Güncel Haberleri Botunuzdan Öğrenin.

[ahmetserkan]

Kullanılabilen Komutlar

!sondakika: TRT, NTV, Halk TV, EnSonHaber ve Anadolu Ajansı'ndan en son çıkan haberleri 2'şer saniye arayla sırayla kanala dizer. !ntv: Sadece NTV'nin en son dakikasını çeker. !halktv: Sadece Halk TV'nin en son dakikasını çeker. !trt: Sadece TRT Haber'in en son dakikasını çeker. !esh veya !ensonhaber: Sadece EnSonHaber'in en son dakikasını çeker. !aa: Sadece Anadolu Ajansı'nın en son dakikasını çeker.

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!

; =========================================================

; Koruma Botu İçin Son Dakika & Özel Kanal Komutları

; =========================================================


; --- KANAL KOMUTU DİNLEYİCİSİ ---

on *:TEXT:*:*: {

var %cmd = $lower($1)



; Hepsini Tek Tek Yansıtma Trigger'ı (sondakika veya !sondakika)

if (%cmd == sondakika) || (%cmd == !sondakika) {

msg $chan 04[SON DAKİKA] Haber kaynaklarından son gelişmeler çekiliyor...



; Sunucu flood koruması için 2'şer saniye arayla soketler açılır

haber_sorgula trt $chan

.timer 1 2 haber_sorgula ntv $chan

.timer 1 4 haber_sorgula halktv $chan

.timer 1 6 haber_sorgula esh $chan

.timer 1 8 haber_sorgula aa $chan

}



; Özel Site Trigger'ları

elseif (%cmd == !trt) { haber_sorgula trt $chan }

elseif (%cmd == !ntv) { haber_sorgula ntv $chan }

elseif (%cmd == !halktv) { haber_sorgula halktv $chan }

elseif (%cmd == !esh) || (%cmd == !ensonhaber) { haber_sorgula esh $chan }

elseif (%cmd == !aa) { haber_sorgula aa $chan }

}


; --- SOKET BAŞLATICI ALIAS ---

alias haber_sorgula {

var %site = $1, %chan = $2

var %sock = news_ $+ %site $+ _ $+ %chan



if ($sock(%sock)) { sockclose %sock }



if (%site == trt) { sockopen -e %sock www.trthaber.com 443 }

if (%site == ntv) { sockopen -e %sock www.ntv.com.tr 443 }

if (%site == halktv) { sockopen -e %sock halktv.com.tr 443 }

if (%site == esh) { sockopen -e %sock www.ensonhaber.com 443 }

if (%site == aa) { sockopen -e %sock www.aa.com.tr 443 }

}


; --- SOKET BAĞLANTISI VE HTTP İSTEĞİ ---

on *:SOCKOPEN:news_*: {

if ($sockerr) { return }

var %site = $gettok($sockname, 2, 95)

var %host, %path



if (%site == trt) { %host = www.trthaber.com | %path = /sondakika.rss }

if (%site == ntv) { %host = www.ntv.com.tr | %path = /gundem.rss }

if (%site == halktv) { %host = halktv.com.tr | %path = /rss }

if (%site == esh) { %host = www.ensonhaber.com | %path = /rss/ensonhaber.xml }

if (%site == aa) { %host = www.aa.com.tr | %path = /tr/rss/default?cat=gundem }


sockwrite -n $sockname GET %path HTTP/1.1

sockwrite -n $sockname Host: %host

sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64)

sockwrite -n $sockname Connection: close

sockwrite -n $sockname $crlf

}


; --- SOKET VERİ OKUMA VE REGEX PARSING ---

on *:SOCKREAD:news_*: {

if ($sockerr) { return }

var %line, %site = $gettok($sockname, 2, 95), %chan = $gettok($sockname, 3, 95)

sockread %line


; 1. Regex: Başlığı Yakala

if ($regex(%line, /<title>(?:<!\[CDATA\[)?(.*?)(?:\]\]>)?<\/title>/i)) {

var %t = $regml(1)

; Genel RSS başlıklarını (site adını) atlayıp gerçek haberi tutar

if (%t != TRT Haber) && (%t != NTV) && (%t != Halk TV) && (%t != Ensonhaber) && (%t != Anadolu Ajansı) {

set -u10 %temp_title_ $+ $sockname %t

}

}


; 2. Regex: Linki Yakala ve Kanala Yansıt

if ($regex(%line, /<link>(.*?)<\/link>/i)) {

var %l = $regml(1)

var %t = %temp_title_ [ $+ [ $sockname ] ]



if (%t) && (%l) {

; Renkli Kanal Etiketleri

var %tag

if (%site == trt) { %tag = 04[TRT HABER] }

if (%site == ntv) { %tag = 03[NTV] }

if (%site == halktv) { %tag = 07[HALK TV] }

if (%site == esh) { %tag = 12[ENSONHABER] }

if (%site == aa) { %tag = 10[A.AJANSI] }


; Haberi kanala bas

msg %chan %tag %t - %l



; İlk en son haberi bastıktan sonra değişkeni silip soketi kapatır

unset %temp_title_ $+ $sockname

sockclose $sockname

}

}

}

 

[birgün]

Emeğine sağlık aranıpta bulunamayan remoteler