BadWords addon for Dark v1.0

on *:text:*:#: {
  if ($nick isop #botops) { return }
  IF ($nick isop $chan) { RETURN }
  if (!$window(@Botlog)) { window -n @Botlog }
  if ($1 == !badword) && ($_chan($chan)) && ($istok(on off,$2,32)) && ($nick isop $chan) {
    set %_badword $iif($2 == off,$v2,on)
    msg $chan Badword protection is now %_badword
    return
  }
  if (%_badword == on) && ($me isop $chan) && ($nick !isop $chan) && ($_chan($chan)) {
    var %badword = bitch,asshole,abspritz,abgewixxt,wixxen,fotze,ficken,biatch,suck dick,bumsen,schlampe,horny,fickgeil,penis,vagina,sieg heil,Schlampe,dickhead,dickface,pussy,whore,cunt,fuck you,shitface,fucker,faggot,tiersex,
    var %a = $numtok(%badword,44)
    while (%a) {
      var %bchk = $gettok(%badword,%a,44)
      if (%bchk isin $1-) {
        if (!$($+(%,badwordslock,.,$chan),2)) {
          inc -eu30 $+(%,badword,.,$nick,.,$chan)
          var %times = $($+(%,badword,.,$nick,.,$chan),2)
          if (%times == 1) {
            if (*german* !iswm $chan) {
              notice $nick 12 $+ $nick $+ 7, 4Your behavior is inappropriate. Please change your way of chatting.
              aline -a @Botlog $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Warned for Behaviour ( $+ $1- $+ )
              write Botlog.txt $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Warned for Behaviour ( $+ $1- $+ )
              echo $chan 4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
            }
            if (*german* iswm $chan) {
              notice $nick 12 $+ $nick $+ 7, 4Dein Verhalten ist unangebracht, bitte aendere deine Art zu chatten.
              echo $chan  4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
              aline -a @Botlog $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Warned for Behaviour ( $+ $1- $+ )
              write Botlog.txt $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Warned for Behaviour ( $+ $1- $+ )
            }
            inc -eu1800 $+(%,badwordwarned,.,$chan)
            if ($($+(%,badwordwarned,.,$chan),2) == 5) {
              unset $+(%,badword,.,$nick,.,$chan)
              unset $+(%,badwordwarned,.,$chan)
              set -eu30 $+(%,badwordslock,.,$chan) 1
            }
          }
          elseif (%times == 2) {
            if (*german* !iswm $chan) {
              kick $chan $nick Please change your way of chatting.
              echo  $chan 4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
              aline -a @Botlog $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Kicked for Behaviour ( $+ $1- $+ )
              write Botlog.txt $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Kicked for Behaviour ( $+ $1- $+ )
            }
            if (*german* iswm $chan) {
              kick $chan $nick Dein Verhalten ist unangebracht, bitte aendere deine Art zu chatten.
              echo  $chan  4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
              aline -a @Botlog $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Kicked for Behaviour ( $+ $1- $+ )
              write Botlog.txt $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Kicked for Behaviour ( $+ $1- $+ )
            }
          }
          elseif (%times > 2) {
            unset $+(%,badword,.,$nick,.,$chan)
            if (*german* !iswm $chan) {
              aline -a @Botlog $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
              write Botlog.txt $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
              ban -ku3600 $chan $nick 2 Banned: Please change your way of chatting.
              echo  $chan  4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
            }
            if (*german* iswm $chan) {
              aline -a @Botlog $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
              write Botlog.txt $timestamp [Bad-Behaviour-GER] $network - $chan - $nick - $fulladdress - Banned for Behaviour ( $+ $1- $+ )
              ban -ku3600 $chan $nick 2 Gebannt: Dein Verhalten ist unangebracht, bitte aendere deine Art zu chatten.
              echo  $chan  4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
            }
          }
        }
      }
      dec %a
    }
  }
}

alias -l _chan {
  ; Change the channels for the bot to work on below, to make it work in all channels just input “#”.
  var %a = #, %b = $numtok(%a,44)
  while (%b) {
    if ($1 == $gettok(%a,%b,44)) || (%a == $chr(35)) {
      return $true
    }
    dec %b
  }
}

on *:exit: { unset %badword.* }

menu channel  {
  .Turn badword filter $iif(%_badword == on,off,on) : set %_badword $iif(%_badword == on,off,on)
}