Modify the %swears variable to the words you want to warn/kick on.
Change the %warnings to the number of warnings you want to give out.
; Copy the following code into your remotes (Alt+R)
; Tye @ Undernet #mirc.net
on @*:TEXT:*:#: {
; The list of swears. Words should be separated by commas
var %swears = fark,shoot,mittens
; Number of times to warn before banning
var %warns = 2
var %x = $numtok(%swears,44)
tokenize 32 $strip($1-)
while (%x) && ($nick isreg $chan) {
if ($istok($1-,$gettok(%swears,%x,44),32)) {
inc $+(%,swear.,$wildsite)
var %n = $($+(%,swear.,$wildsite),2)
if (%n <= %warns) {
notice $nick $nick $+ , this is your $ord(%n) warning for using forbidden language in this channel. $iif(%n = %warns,Breaking the channel rules one more time will result in ban.)
}
elseif (%n > %warns) {
ban -ku300 $chan $nick 2 Using forbidden language
unset $+(%,swear.,$wildsite)
}
}
dec %x
}
}
; Reset all of the swear data on mIRC start
on *:START: { unset %swear.* }
very nice addons .. but could someone edit it a bit example like i mean its like this..
1st. when user type forbidden words like fark
.. notice he got will be warn abt wat the forbidden words that he using ..eg. match words fark
pls dont repeat it again.
2d. when the user got kick from the channel, eg. match word fark
.. forbidden words
ty pls help
Im referring to TYE script from canada who wrote of this script.
; Copy the following code into your remotes (Alt+R)
; Tye @ Undernet #mirc.net
on @:TEXT::#: {
; The list of swears. Words should be separated by commas
var %swears = fark,shoot,mittens
; Number of times to warn before banning
var %warns = 2
var %x = $numtok(%swears,44)
tokenize 32 $strip($1-)
while (%x) && ($nick isreg $chan) {
if ($istok($1-,$gettok(%swears,%x,44),32)) {
inc $+(%,swear.,$wildsite)
var %n = $($+(%,swear.,$wildsite),2)
if (%n <= %warns) {
notice $nick $nick $+ , this is your $ord(%n) warning for using forbidden language in this channel. $iif(%n = %warns,Breaking the channel rules one more time will result in ban.)
}
elseif (%n > %warns) {
ban -ku300 $chan $nick 2 Using forbidden language
unset $+(%,swear.,$wildsite)
}
}
dec %x
}
}
; Reset all of the swear data on mIRC start
on :START: { unset %swear. }
so, where will I delete the part of this script to enable to kick anybody and warn anybody who uses the foul word.
@ falcon
you can add the word to the var or make a new code
just add the word to this line
var %swears = fark,shoot,mittens
so it looks like
var %swears = fark,shoot,mittens,farksss
or you could use somthing like this
on $@*:text:/(fuck(.+)?|shit(.+)?)/iS:#:{
if ($nick(#,$nick,vr)) {
inc $+(%,warn,.,$nick,.,$chan)
$iif($($+(%,warn,.,$nick,.,$chan),2) == 1,.notice $nick $nick $+ $chr(44) this is your $ord($($+(%,warn,.,$nick,.,$chan),2)) and only warning for using forbidden language,ban -ku300 # $nick 2 Using forbidden language)
$iif($($+(%,warn,.,$nick,.,$chan),2) == 2,unset $+(%,warn,.,$nick,.,$chan))
}
}
You would change /notice $nick to /msg $chan