; BadNick Remote for mIRC
;  - otomatik kick + ban (mode +b) uygular
;  - regex bazlı kontrol
;  - kullanım: regex listesini aşağıdaki %BADNICK_REGEX değişkenine ekle

; ---------- Ayarlar (burayı kendine göre düzenle) ----------
; Regexler | ile ayrılmış. Büyük/küçük harf duyarlılığı için (?i) ekleyebilirsin.
; Örnekler:
;   ^guest     -> guest ile başlayan nickler
;   (?i)bot    -> içinde bot geçen (büyük/küçük ayrımı yok)
;   [^ -~]     -> ASCII dışı karakter içeren nickler
; Birden fazla kural örneği:
;   (?i)^(guest|anon)|bot|[^\x20-\x7E]
set %BADNICK_REGEX (?i)^(guest|anon)|bot|[^\x20-\x7E]

; Hangi kanallarda otomatik işlem yapılacağını belirtmek istersen buraya ekle (virgül ayracı).
; Boş bırakılırsa tüm kanallarda çalışır.
set %BADNICK_CHANNELS

; Kick mesajı
set %BADNICK_KICKMSG Banned nickname (pattern matched).

; ---------- Başlangıçta yükleme (opsiyonel) ----------
on *:START:{
  if (%BADNICK_REGEX == $null) {
    set %BADNICK_REGEX (?i)^(guest|anon)|bot|[^\x20-\x7E]
  }
}

; ---------- Katılanları kontrol et ----------
on *:JOIN:#:{
  ; %BADNICK_CHANNELS boşsa tüm kanallarda işlem; doluysa sadece listede olanlarda.
  if (%BADNICK_CHANNELS !=) {
    if ($numtok(%BADNICK_CHANNELS,$chan,44) == 0) return
  }
  if ($regex($nick,%BADNICK_REGEX)) {
    ; önce notice ile uyar (isteğe bağlı)
    notice $nick Your nickname is not allowed on $chan.
    ; ban: *!*@host şeklinde +b uygula (host almak için $address)
    if ($address($nick,2) != $null) {
      mode $chan +b *!*@$address($nick,2)
    }
    ; kick uygula
    kick $chan $nick %BADNICK_KICKMSG
    echo -a [BadNick] $nick matched %BADNICK_REGEX and was kicked/banned from $chan.
  }
}

; ---------- Nick değişikliklerini kontrol et ----------
on *:NICK:{
  ; $nick burada eski nick, $newnick yeni nick (mIRC: $nick içinde artık yeni nick geçer; ama on NICK içinde $nick yeni nicktir)
  ; mIRC on NICK event içindeki yeni nick için $nick kullanır.
  ; Kanal listesinde botun bulunduğu kanalları tarıyoruz.
  ; $chan(n) ile botun aktif kanalları alınır.
  var %i 1
  var %total $chan(0)
  while (%i <= %total) {
    var %c $chan(%i)
    if (%BADNICK_CHANNELS !=) {
      if ($numtok(%BADNICK_CHANNELS,%c,44) == 0) { inc %i | continue }
    }
    if ($regex($nick,%BADNICK_REGEX)) {
      if ($address($nick,2) != $null) {
        mode %c +b *!*@$address($nick,2)
      }
      kick %c $nick %BADNICK_KICKMSG
      echo -a [BadNick] $nick matched %BADNICK_REGEX and was kicked/banned from %c.
    }
    inc %i
  }
}

; ---------- Yardımcı komutlar (isteğe bağlı) ----------
; /badshow -> mevcut regexi gösterir
alias badshow {
  if (%BADNICK_REGEX == $null) { echo -a [BadNick] Hiçbir regex tanımlı değil. | return }
  echo -a [BadNick] Current regex: %BADNICK_REGEX
  if (%BADNICK_CHANNELS !=) echo -a [BadNick] Active channels whitelist: %BADNICK_CHANNELS
}

; /badset <regex> -> regexi değiştirir
alias badset {
  if ($1- ==) { echo -a Usage: /badset <regex> | return }
  set %BADNICK_REGEX $1-
  echo -a [BadNick] Yeni regex: %BADNICK_REGEX
}