#####################################################################
#   Название: Bad Nick v1.0
#   Автор: Epic (epicnet@mail.ru, http://epicnet.ru, irc.epicnet.ru:6667 #Code)
#   Описание: Проверяет все входящие на канал ники пользователей на наличие в них плохих слов и выполняет Кик+Бан.
#   Команды: /bnw <*badword*> [length] [reason] , /bne <*masknick*> [length] [reason]
#####################################################################

alias -l bn_set {
  %bn_excepts = scripts\BadNick\exceptions.txt
  %bn_badwords = scripts\BadNick\badwords.txt
  %bn_database = scripts\BadUser\baduser.txt
  %bn_bad_reason = Your nick is abusive!
  %bn_exc_reason = Fake nick!
  %bn_length = 5
  %bn_newnickchan = #channel
}
---------------------------------------------------------------------
on !*:JOIN:#: bn_set | checknick $nick $chan
on !*:NICK: bn_set | checknick $newnick %bn_newnickchan
---------------------------------------------------------------------
alias -l checknick {
  var %nick $1 | var %chan $2 | var %host $gettok($address(%nick,5),2,64)
  var %res_w $badword(%nick) | if (%res_w) {
    tokenize 59 %res_w | if ($1 iswm %nick && $2 < $len(%nick)) {
      if (!$window(@BadNick)) .window -nk0 @BadNick $mircexe 21
      .aline -hnp @BadNick $+(10[,$time,]) 05[BADWORD]14 %chan 15->07 %nick $+(12*!*@,%host)
      if (!$read(%bn_database,nw,$+(*,;,%host,;,*))) .write -il1 %bn_database $+(%nick,;,%host,;,$3-)
      if ($me isop %chan) { .mode %chan +bb $+($1,!*@*) $address(%nick,2) | .kick %chan %nick $3- } | halt
    }
  }
  var %res_e $except(%nick) | if (%res_e) {
    tokenize 59 %res_e | if ($1 iswm %nick && $2 < $len(%nick)) {
      if (!$window(@BadNick)) .window -nk0 @BadNick $mircexe 21
      .aline -hnp @BadNick $+(10[,$time,]) 05[LENGTH]14 %chan 15->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- }
    }
  }
}
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 -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 bnw {
  bn_set | if (!$1) { echo -a 05Correct syntax:12 /bnw <*badword*> [length] [reason] | 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 04BADWORD added:12 %bn_wstr
  } | else echo -a 04BADWORD $+(,$1,) - is already on the list.
}
alias bne {
  bn_set | if (!$1) { echo -a 05Correct syntax:12 /bne <*masknick*> [length] [reason] | 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 03EXCEPT added:12 %bn_wstr
  } | else echo -a 03EXCEPT $+(,$1,) - is already on the list.
}
---------------------------------------------------------------------

#####################################################################
#   Название: Bad Nick v1.2
#   Автор: Epic (epicnet@mail.ru, http://epicnet.ru, irc.epicnet.ru:6667 #Code)
#   Описание: Проверяет все входящие на канал ники пользователей на наличие в них плохих слов и выполняет Кик+Бан.
#####################################################################

alias -l bn_set {
  %bn_badwords = scripts\BadNick\badwords.txt     | ;# Синтаксис команды: /bnb <*badword*> [length] [reason]
  %bn_excepts = scripts\BadNick\exceptions.txt    | ;# Синтаксис команды: /bne <*masknick*> [length] [reason]
  %bn_whitelist = scripts\BadNick\whitelist.txt   | ;# Синтаксис команды: /bnw <nick/host> [reason]
  %bn_database = scripts\BadUser\baduser.txt      | ;# База данных для сохранения записей пользовательских данных с причиной бана.
  %bn_bad_reason = Your nick is abusive!          | ;# Причина кика по умолчанию за плохое слово в нике.
  %bn_exc_reason = Fake nick!                     | ;# Причина кика по умолчанию за использование поддельного ника.
  %bn_whi_reason = Always a good nick user!       | ;# Заметка по умолчанию для хорошего ника.
  %bn_length = 5                                  | ;# Лимит по умолчанию для допустимого числа символов в нике.
}
---------------------------------------------------------------------
on !*:JOIN:#: 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(@BadNick)) .window -nk0 @BadNick $mircexe 21
    .aline -hnp @BadNick $+(10[,$time,]) 05[WHITE]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(@BadNick)) .window -nk0 @BadNick $mircexe 21
      .aline -hnp @BadNick $+(10[,$time,]) 05[LENGTH]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(@BadNick)) .window -nk0 @BadNick $mircexe 21
      .aline -hnp @BadNick $+(10[,$time,]) 05[BADWORD]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 05Correct syntax:12 /bnb <*badword*> [length] [reason] | 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 04BADWORD added:12 %bn_wstr
  } | else echo -a 04BADWORD $+(,$1,) - is already on the list.
}
alias bne {
  bn_set | if (!$1) { echo -a 05Correct syntax:12 /bne <*masknick*> [length] [reason] | 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 03EXCEPT added:12 %bn_wstr
  } | else echo -a 03EXCEPT $+(,$1,) - is already on the list.
}
alias bnw {
  bn_set | if (!$1) { echo -a 05Correct syntax:12 /bnw <nick/host> [reason] | 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 15WHITE added:12 %bn_wstr
  } | else echo -a 15WHITE $+(,$1,) - is already on the list.
}
---------------------------------------------------------------------