#####################################################################
#   Başlık:Bad Nick v1.2
#   Yazar:Epic (http://epicnet.ru, irc.epicnet.ru:6667 #Code)
#   Açıklam:Kanala katılan kullanıcıları veritabanında tarar ve kötü kullanıcılara Kick+Ban atar.
#####################################################################

alias -l bn_set {
  %bn_badwords = scripts\BadNick\badwords.txt     | ;# Komut sözdizimi kullanımı: /bnb <*badword*> [Sayı] [sebep]
  %bn_excepts = scripts\BadNick\exceptions.txt    | ;# Komut sözdizimi kullanımı: /bne <*masknick*> [Sayı] [sebep]
  %bn_whitelist = scripts\BadNick\whitelist.txt   | ;# Komut sözdizimi kullanımı: /bnw <nick/host> [Sayı]
  %bn_database = scripts\BadUser\baduser.txt      | ;# Kick+Ban atılan nick kayıt txt yeri.
  %bn_bad_reason = Nickin badnick listesinde      | ;# Badnick'e kick+ban atılma sebebi.
  %bn_exc_reason = Sahte nick!                    | ;# Sahte isme kick+ban atılma sebebi.
  %bn_whi_reason = Muaf nick listesindesin        | ;# Muaf nick adı.
  %bn_length = 5                                  | ;# Bir nick'e verilen karakter sayısı.
}
---------------------------------------------------------------------
on !*:JOIN:#sohbet: bn_set | checknick $nick $chan
on !*:NICK: bn_set | var %nick $newnick | var %n 1 | while (%n <= $comchan(%nick,0)) { checknick %nick $comchan(%nick,%n) | inc %n }
---------------------------------------------------------------------
alias -l checknick {
  var %nick $1 | var %chan $2 | var %host $gettok($address(%nick,5),2,64)
  if ($read(%bn_whitelist,nw,$+(%nick,;*))) || ($read(%bn_whitelist,nw,$+(%host,;*))) {
    if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) .window -nk0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $mircexe 21
    .aline -hnp @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(10[,$time,]) 05[Muaf]14 %chan 15->07 %nick $+(12*!*@,%host) | halt
  }
  var %res_e $except(%nick) | if (%res_e) {
    tokenize 59 %res_e | if ($len(%nick) > $2) {
      if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) .window -nk0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $mircexe 21
      .aline -hnp @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(10[,$time,]) 05[Uzunluk]14 %chan 15-> $+(14,$chr(40),04,$2,+14,$chr(41),07) %nick $+(12*!*@,%host)
      if (!$read(%bn_database,nw,$+(*;,%host,;*))) .write -il1 %bn_database $+(%nick,;,%host,;,$3-)
      if ($me isop %chan) { .mode %chan +b $address(%nick,2) | .kick %chan %nick $3- }
    } | halt
  }
  var %res_w $badword(%nick) | if (%res_w) {
    tokenize 59 %res_w | if ($len(%nick) > $2) {
      if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) .window -nk0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $mircexe 21
      .aline -hnp @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(10[,$time,]) 05[Kötü Kelime]14 %chan 15-> $+(14,$chr(40),04,$1,14,$chr(41),07) %nick $+(12*!*@,%host)
      if (!$read(%bn_database,nw,$+(*;,%host,;*))) .write -il1 %bn_database $+(%nick,;,%host,;,$3-)
      if ($me isop %chan) { .mode %chan +bb $+(%nick,!*@*) $address(%nick,2) | .kick %chan %nick $3- }
    }
  }
}
alias -l except { var %i 1 | while (%i <= $lines(%bn_excepts)) { var %str $read(%bn_excepts,n,%i) | var %mask $gettok(%str,1,59) | if (%mask iswm $1) return %str | inc %i } }
alias -l badword { var %i 1 | while (%i <= $lines(%bn_badwords)) { var %str $read(%bn_badwords,n,%i) | var %mask $gettok(%str,1,59) | if (%mask iswm $1) return %str | inc %i } }
---------------------------------------------------------------------
alias bnb {
  bn_set | if (!$1) { echo -a 05Kullanımı:12 /bnb <*Kötü Kelime*> [Uzunluk] [Sebep] | halt }
  if (!$read(%bn_badwords,nw,$+($1,;*))) {
    if ($2) var %bn_l $2 | else var %bn_l %bn_length | if ($3) var %bn_r $3- | else var %bn_r %bn_bad_reason
    var %bn_wstr $+($1,;,%bn_l,;,%bn_r) | .write -il1 %bn_badwords %bn_wstr | echo -a 04Kötü kelime ekli:12 %bn_wstr
  } | else echo -a 04Kötü kelime $+(,$1,) - listesinde yer alıyor.
}
alias bne {
  bn_set | if (!$1) { echo -a 05Kullanımı:12 /bne <*masknick*> [Uzunluk] [Sebep] | halt }
  if (!$read(%bn_excepts,nw,$+($1,;*))) {
    if ($2) var %bn_l $2 | else var %bn_l %bn_length | if ($3) var %bn_r $3- | else var %bn_r %bn_exc_reason
    var %bn_wstr $+($1,;,%bn_l,;,%bn_r) | .write -il1 %bn_excepts %bn_wstr | echo -a 03İstisna ekli:12 %bn_wstr
  } | else echo -a 03İstisna $+(,$1,) - listesinde yer alıyor.
}
alias bnw {
  bn_set | if (!$1) { echo -a 05Kullanımı:12 /bnw <nick/host> [Sebep] | halt }
  if (!$read(%bn_whitelist,nw,$+($1,;*))) {
    if ($2) var %bn_r $2- | else var %bn_r %bn_whi_reason
    var %bn_wstr $+($1,;,%bn_r) | .write -il1 %bn_whitelist %bn_wstr | echo -a 15MUAF ekli:12 %bn_wstr
  } | else echo -a 15Muaf $+(,$1,) - listesinde yer alıyor.
}
---------------------------------------------------------------------