Bad Word DetectoR

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Aug 15, 2007
Last Updated	Sep 06, 2007
Tags	bad ban channel kick kicker list protection word

Introduction

Bad Word Detector is a simple remote that kick&ban user who said a bad word you have added in your list.It has no exeptions.It kicks&ban everyone.If you want to add a word then Open bad word detector and clink on * Add word * Button.You can simply enable it or disable it.
*Note This remote works if you are an operator.

Open Scripts editor(Alt+r) Create a new remote file,Copy the code (Ctrl+c) and paste it(Ctrl+v into your new remote file and hit ok Button and you are ready.

Grab the Code

on *:load:if ($version >= 5.91) { echo  -a 15,1l Bad Word Detector Loaded | echo -a 0,1Visit Home page http://www.NouMeRo.tk/  Or You Can Find Me on GRNet /server nana.irc.gr (6667) channel #NouMeRa } | else { echo $colour(info) -a * mirc version: $version - v5.8 needed, get newer mirc at www.mirc.co.uk, unloading.. | .unload -rs $script }
on @*:TEXT:*:#:{
  var %p = 0 
  while (%p < $numtok($1-,32)) { 
    inc %p 
    if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {

Ban $chan $nick 1
      kick # $nick 4.!You have said an unacceptable word in your message.!Punishment:Kick&Ban 
    }
  }
}
alias badword {
  if ($1 == add) { 
    set %badwords $addtok(%badwords,$2,32)
    echo  -a 14�1�15�9 Added $2 to Bad words list
  }
  if ($1 == del) {
    if ($istok(%badwords,$2,32)) {
      set %badwords $remtok(%badwords,$2,32)
      echo  -a  14�1�15�9 Deleted $2 from Bad words list 
    }
  }
  if ($1 == delall) {
    unset %badwords
    echo  -a 14�1�15�9 Bad word list in now empty 
  }
  if ($1 == list) {
    if ($window(@Badwords-List) == $null) { 
      window -ab @BadWords-List
    } 
    if ($numtok(%badwords,32) == 0) { aline  @BadWords-List 14�1�15�1 No Words in Bad word list  | halt }   
    aline   @BadWords-List 14�1�14�1 Listing Bad words from list 4  ( $+ $numtok(%badwords,32) $+ )
    var %n = 1
    while (%n <= $numtok(%badwords,32)) {
      aline $color(info 2) @Badwords-List 4��� $gettok(%badwords,%n,32)
      inc %n
    } 
    aline  @BadWords-List 14�1�15�1 End of list ..
  }
}

alias Badword dialog -m Badword Badword
dialog Badword {
  title "NouMeRo Bad Word DetectoR" 
  size -1 -1 355 200
  button "Close BadWord"2, 25 125 300 25,ok
  button "Enable BadWord"3, 25 25 150 25
  button "Disable Badword"4, 175 25 150 25
  button "Add Bad word"5, 25 50 150 25
  button "Remove Bad word"6, 175 50 150 25
  button "Delete All The Words"7, 25 75 300 25
  button "Bad Words List"8, 25 100 300 25
  box "NouMeRo Bad Word DetectoR"9, 2 1 350 190

}

on 1:dialog:Badword:sclick:*:{
  if ($did == 3) { /set %badword.detect on | echo  -a 3�(14 *** Bad word detector is now Enabled 3)� }
  if ($did == 4) { /unset %badword.detect | echo  -a 3�(14  *** Bad word detector is now Disabled 3)� }
  if ($did == 5) { /badword add $$?="enter word:" }
  if ($did == 6) { /badword del $$?="enter word:" }
  if ($did == 7) { /badword delall }
  if ($did == 8) { /badword list }
}

menu menubar,channel {
  * Bad WorD DetectoR *:/dialog -m Badword Badword
}

Comments

(4) RSS

Go to Bottom

Sick_Puppy

Comments: 38

mIRC Snippet: Bad Word DetectoR
Posted on Aug 15, 2007 10:30 pm

SWEET!
now i cant get yelled at lol
thx dude
but all the asterisks in the windows and stuff got annoying....

NouMeRo

Comments: 26

mIRC Snippet: Bad Word DetectoR
Posted on Aug 15, 2007 10:33 pm

fixed ;p

NouMeRo

Comments: 26

mIRC Snippet: Bad Word DetectoR
Posted on Sep 6, 2007 4:54 am

badword detector updated :D

SuperMicke

Comments: 1

mIRC Snippet: Bad Word DetectoR
Posted on Jul 22, 2008 9:45 am

Never played around with scripts, so I have a question.

How do I set it to only kick? Which part of the code do I need to change?

Bad Word DetectoR

Introduction

Grab the Code

Comments

NouMeRo

My Snippet Tags

Contact

Sponsors

		Student Greece
Last seen: Oct 30, 2007 Profile \| Website Scripts (1) Snippets (5) Images (9) Comments Received (44) Comments Submitted (26) Forum Posts (2)