Forums Scripts & Popups Badwords-Script, I need help!

Print Thread

Badwords-Script, I need help!

#255637 11/11/15 09:36 AM

Joined: Nov 2015

Posts: 15

DarkTexas

Pikka bird

DarkTexas

Pikka bird

Joined: Nov 2015

Posts: 15

Hello everyone, I got my Badword script from somewhere and used to re-code it a bit ages ago; it's still working and I', happy how it's running. Well, now I got the Problem when there are 50 Floodbots in the Room, Spamming/Flooding badwords the Bot tries to ban them all, also it tries to warn and kick them, which causes an excess flood for the bot.

So, my question, can somebody add a block/tell me how that it automaticly detects like.. after 5 Warns in 30 seconds that it won't warn anymore? - Just bans?

Here is the code

Code:

#Badwords
#normal
on *:text:*:#: {
  if ($nick isop #botops ) { return }
  IF ($nick isop # ) { RETURN }
  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
  }
  else {
    if (%_badword == on) && ($me isop $chan) && ($nick !isop $chan) && ($_chan($chan)) {
      ; Change the badwords below to fit your own needs.
      var %badword = bitch,asshole,fotze,ficken,biatch,suck dick,bumsen,schlampe,horny,fickgeil,penis,vagina,sieg heil,Schlampe,dickhead,dickface,pussy,whore,cunt,fuck you,shitface,fucker,faggot, %a = $numtok(%badword,44)
      while (%a) {
        var %bchk = $gettok(%badword,%a,44)
        if (%bchk isin $1-) {
          inc $+(%,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) { msg $chan 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- $+ )
            }
          }
          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) {
            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 -u3600 $chan $address($nick,2)
              kick $chan $nick Banned: Please change your way of chatting.
              unset $+(%,badword,.,$nick,.,$chan)
              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 -u3600 $chan $address($nick,2)
              kick $chan $nick Gebannt: Dein Verhalten ist unangebracht, bitte aendere deine Art zu chatten.
              unset $+(%,badword,.,$nick,.,$chan)
              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 &#147;#&#148;.
  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)
}

Thank you, it's really important.

Re: Badwords-Script, I need help! DarkTexas #255638 11/11/15 10:14 AM
Joined: Dec 2008 Posts: 1,483 Greece westor Hoopy frood
westor Hoopy frood Joined: Dec 2008 Posts: 1,483 Greece	So you want only to ban after 3 warns?

Re: Badwords-Script, I need help! westor #255639 11/11/15 10:30 AM
Joined: Nov 2015 Posts: 15 D DarkTexas OP Pikka bird
OP DarkTexas Pikka bird D Joined: Nov 2015 Posts: 15	Originally Posted By: westor So you want only to ban after 3 warns? Well, I want it to detect if there are 5 Warned Users within 30 secs (flood) to stop warning and kicking for badwords; I want it to ban directly after 5 warned users in 30 secs for a period of like 30 secs

Re: Badwords-Script, I need help!

DarkTexas #255640 11/11/15 10:52 AM

Joined: Dec 2008

Posts: 1,483

Greece

westor

Hoopy frood

westor

Hoopy frood

Joined: Dec 2008

Posts: 1,483

Greece

Try use this code:

Code:

on *:text:*:#: {
  if ($nick isop #botops ) { return }
  IF ($nick isop # ) { RETURN }
  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
  }
  else {
    if (%_badword == on) && ($me isop $chan) && ($nick !isop $chan) && ($_chan($chan)) {
      ; Change the badwords below to fit your own needs.
      var %badword = bitch,asshole,fotze,ficken,biatch,suck dick,bumsen,schlampe,horny,fickgeil,penis,vagina,sieg heil,Schlampe,dickhead,dickface,pussy,whore,cunt,fuck you,shitface,fucker,faggot
      var %a = $numtok(%badword,44)
      while (%a) {
        var %bchk = $gettok(%badword,%a,44)
        if (%bchk isin $1-) {
          inc -eu30 $+(%,badword,.,$chan)
          var %times = $($+(%,badword,.,$chan),2)
          if (%times < 5) {
            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) { 
              msg $chan 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- $+ )
            }
          }
          elseif (%times == 5) {
            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 > 5) {
            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 Banned: Please change your way of chatting.
              unset $+(%,badword,.,$chan)
              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 Gebannt: Dein Verhalten ist unangebracht, bitte aendere deine Art zu chatten.
              unset $+(%,badword,.,$chan)
              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 &#147;#&#148;.
  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)
}

Re: Badwords-Script, I need help!

westor #255641 11/11/15 11:08 AM

Joined: Nov 2015

Posts: 15

DarkTexas

Pikka bird

DarkTexas

Pikka bird

Joined: Nov 2015

Posts: 15

sadly, not working

It keeps warning etc.

Originally Posted By: westor

Try use this code:

Code:

on *:text:*:#: {
  if ($nick isop #botops ) { return }
  IF ($nick isop # ) { RETURN }
  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
  }
  else {
    if (%_badword == on) && ($me isop $chan) && ($nick !isop $chan) && ($_chan($chan)) {
      ; Change the badwords below to fit your own needs.
      var %badword = bitch,asshole,fotze,ficken,biatch,suck dick,bumsen,schlampe,horny,fickgeil,penis,vagina,sieg heil,Schlampe,dickhead,dickface,pussy,whore,cunt,fuck you,shitface,fucker,faggot
      var %a = $numtok(%badword,44)
      while (%a) {
        var %bchk = $gettok(%badword,%a,44)
        if (%bchk isin $1-) {
          inc -eu30 $+(%,badword,.,$chan)
          var %times = $($+(%,badword,.,$chan),2)
          if (%times < 5) {
            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) { 
              msg $chan 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- $+ )
            }
          }
          elseif (%times == 5) {
            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 > 5) {
            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 Banned: Please change your way of chatting.
              unset $+(%,badword,.,$chan)
              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 Gebannt: Dein Verhalten ist unangebracht, bitte aendere deine Art zu chatten.
              unset $+(%,badword,.,$chan)
              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 &#147;#&#148;.
  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)
}

Re: Badwords-Script, I need help! DarkTexas #255642 11/11/15 11:49 AM
Joined: Dec 2008 Posts: 1,483 Greece westor Hoopy frood
westor Hoopy frood Joined: Dec 2008 Posts: 1,483 Greece	Can you decide what you want? you said 5 warnings into 30 seconds then kick and then ban, i did that and now you telling me other things? So you want after 5 times someone says a badword into the channel to kick and in the 6th to ban him without any warning, am i correct?

Re: Badwords-Script, I need help! westor #255643 11/11/15 11:55 AM
Joined: Nov 2015 Posts: 15 D DarkTexas OP Pikka bird
OP DarkTexas Pikka bird D Joined: Nov 2015 Posts: 15	Sorry If i said it wrong. I want it that following way: If 5 Users are getting warned for any badwords within 30 seconds I want the bot to 'switch' on "hardcore mode" and directly ban them, without any warning, yes. After 30 Seconds the bot should "switch" back to normal mode and warn + kick + ban again.

Re: Badwords-Script, I need help!

DarkTexas #255644 11/11/15 12:53 PM

Joined: Dec 2008

Posts: 1,483

Greece

westor

Hoopy frood

westor

Hoopy frood

Joined: Dec 2008

Posts: 1,483

Greece

Try use this code:

Code:

on *:text:*:#test_chan: {
  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,fotze,ficken,biatch,suck dick,bumsen,schlampe,horny,fickgeil,penis,vagina,sieg heil,Schlampe,dickhead,dickface,pussy,whore,cunt,fuck you,shitface,fucker,faggot
    var %a = $numtok(%badword,44)
    while (%a) {
      var %bchk = $gettok(%badword,%a,44)
      if (%bchk isin $1-) {
        if ($($+(%,badwordslock,.,$chan),2)) {
          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 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 Gebannt: Dein Verhalten ist unangebracht, bitte aendere deine Art zu chatten.
            echo $chan  4 $timestamp [Bad-Behaviour] $network - $chan - $nick - $fulladdress - ( $+ $1- $+ )
          }
          set -eu30 $+(%,badwordslock,.,$chan) 1
        }
        elseif (!$($+(%,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) { 
              msg $chan 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 -eu30 $+(%,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 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 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 &#147;#&#148;.
  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)
}

Re: Badwords-Script, I need help! westor #255646 11/11/15 12:55 PM
Joined: Nov 2015 Posts: 15 D DarkTexas OP Pikka bird
OP DarkTexas Pikka bird D Joined: Nov 2015 Posts: 15	works perfect, thanks man.

Link Copied to Clipboard