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))
}