IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

Kod:

 
 

; Kullanım: Kanalda !fenerkadro yazıldığında bot kadroyu listeler.
 

on *:TEXT:!fenerkadro:#: {

  ; Kanal adını ve bağlantı durumunu hafızaya al

  set %fener.kanal $chan

  set %fener.sayac 0

  

  ; Varsa eski socketi kapat ve Sporx'e güvenli (SSL) bağlan

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

  sockopen -e fenerKadro ://sporx.com 443

  msg %fener.kanal  [Fenerbahçe Kadrosu]  Veriler [Sporx](https://://sporx.com/fenerbahce-takim-kadrosu/) üzerinden çekiliyor, lütfen bekleyin...

}
 

on *:SOCKOPEN:fenerKadro: {

  if ($sockerr) {

    msg %fener.kanal  [Hata]  Sporx sunucusuna bağlanılamadı.

    sockclose fenerKadro

    return

  }

  ; HTTP/1.1 İstek Başlıkları (Headers)

  sockwrite -nt $sockname GET /fenerbahce-takim-kadrosu/ HTTP/1.1

  sockwrite -nt $sockname Host: ://sporx.com

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

  sockwrite -nt $sockname Connection: close

  sockwrite -nt $sockname $crlf

}
 

on *:SOCKREAD:fenerKadro: {

  if ($sockerr) { return }

  var %read

  sockread %read

  

  ; Satır boşsa işleme geçme

  if (%read == $null) { return }

  

  ; Sporx kadro sayfasındaki oyuncu isimlerini içeren HTML etiketini yakala

  ; Not: Kaynak kod yapısına göre buradaki filtreleme (regex/wildcard) güncellenebilir.

  if ((*<td class="player-name">* iswm %read) || (*<a href="/futbol/takim/fenerbahce/*" title=* iswm %read)) {

    var %oyuncu = $removetags(%read)

    if (%oyuncu != $null) {

      inc %fener.sayac

      ; Kanala çok hızlı text gönderip banlanmamak (Flood) için hafif geciktirme eklenebilir

      msg %fener.kanal %fener.sayac $+ . %oyuncu

    }

  }

}
 

on *:SOCKCLOSE:fenerKadro: {

  unset %fener.kanal

  unset %fener.sayac

}
 

; HTML Kodlarını Temizleme Kimliği (Alias)

alias -l removetags {

  var %x, %y = $regsub($1-,/<[^>]*>/g,$null,%x)

  return $htmlfree(%x)

}
 

alias -l htmlfree {

  var %x = $regsubex($1,/[^\x20-\x7E]/g,$null)

  ; Yaygın HTML encode karakterlerini temizle

  %x = $replace(%x,&nbsp;,$chr(32),&amp;,&,&Icirc;,İ,&icirc;,i,&Uuml;,Ü,&uuml;,ü,&Ccedil;,Ç,&ccedil;,ç,&Ouml;,Ö,&ouml;,ö,&Scedil;,Ş,&scedil;,ş)

  return $strip($numtok(%x,0))

}
Not: kodu kopyala alt + R ile remote sayfasını açarak yapıstır.
Kullanım: Kanalda !fenerkadro yazıldığında bot kadroyu listeler.