Requesting Script

[Valodim]

LOL.

may I ask how old you are, ZaKir?

[j0n]

Zakir:

1. Open Internet Explorer
2. Click on Tools
3. Click on Internet Options...
4. Tab over to Security
5. Click on Restricted Sites
6. Click on Sites
7. Where is says "Add this website to the zone" enter http://forum.egghelp.org
8. Click on Add then Ok twice
9. Close Internet Explorer

[awyeah]

Here you go, next time read the posts carefully.... understand them and then try todo what has been told in them.

For the above script you will having something like this:

Code: Select all

#Set the channel you want this script to work on.
set killchan "#mychannel" 

#Set the reason which will be included in the kill message.
set killreason "Forbidden words, you have been killed."

bind pub - "!list" evil_word 
bind pub - "@locate" evil_word 
bind pubm - "*!list*" evil_word 
bind pubm - "*@locate*" evil_word 

proc evil_word {nick host hand chan args} { 
global botnick killchan killreason 
    if {$chan != $killchan} {return 0} 
    if {$nick == $botnick} {return 0} 
    if {[isop $nick $chan]} {return 0}
    putserv "KILL $nick :$killreason"
   }    
return 1 
} 

[ZaKiR]

Thanks a lottttttttttttttttttttt love ya....

[ZaKiR]

Can u add one more thing on this script set badwords ""[\b]

[awyeah]

Here it is.
Try to do things yourself from now onwards.

Code: Select all

# Set the bad/swear words to kill on
set swearwords {
"bitch"
"slut"
"asshole"
"bastard"
"vagina"
}


#Set the channels to activate swear kill on.
set swearchans "#chan1 #chan2 #chan3"

#Set the kill reason. 
set swearkill "Forbidden word detected. You have been killed." 


bind pubm - * pub:swear:kick

proc pub:swear:kick {nick host hand chan text} {
 global botnick swearchans swearwords swearkill
  if {(([lsearch -exact [string tolower $swearchans] [string tolower $chan]] != -1) || ($swearchans == "*"))} {
  if {($swearkill == "")} { set swearkill "Killed: Badword detected." }
   foreach swearword [string tolower $swearwords] {
     if {[string match -nocase *$swearword* [string tolower $text]]} {
      if {([botisop $chan]) && (![isbotnick $nick]) && (![isop $nick $chan])} {
        putserv "KILL $nick :$swearkill" 
        }
      }
    }
  }
}

[Alchera]

Ever thought of trying to do some thing on your own and then ask if it hasn't worked?

[shanks]

god help the people who join an IRC server where the ircops with potential to kill your connection are people like zakir....

[greenbear]

you sure kill and zline alot of users on that server of yours.. got any users left ?

[awyeah]

I think, this topic can be closed now as the problem has been solved

-yeah baby-

[DarkJFMan]

Code: Select all

#Set the channel you want this script to work on.
set killchan "#mychannel"

#Set the reason which will be included in the kill message.
set killreason "Forbidden words, you have been killed."

#Set bad words
set badwords {
bad_word1
bad_word2
*bad_word1*
*bad_word2*
}

bind pub - "!list" evil_word
bind pub - "@locate" evil_word
bind pubm - "*!list*" evil_word
bind pubm - "*@locate*" evil_word

proc evil_word {nick host hand chan args} {
global botnick killchan killreason
    if {$chan != $killchan} {return 0}
    if {$nick == $botnick} {return 0}
    if {[isop $nick $chan]} {return 0}
    if {(([lsearch -exact [split [string tolower $killchan]] [string tolower $chan]] != -1) || ($killchan == "*"))} {
   foreach badwords [string tolower $badwords] {
    putserv "KILL $nick :$killreason"
   }   
return 1
}

[greenbear]

That code doesn't make much sense..

The script is still triggered by those !. and @.. words, and you have 2 checks for a valid channel..

Not really sure what that foreach turning all the badwords into lowercase is about ...