By Vortex on Jul 19, 2005Swear protection, K+bans them if they swear. Give it a try, I was just bored when I made this.
#################################################
# Minor Swear Protection #
# Against Swearing #
# Kicks anyone who swears #
#################################################
;Swearing Protection by Sozou
on 1:LOAD:{
echo -a Congrats! You loaded the Swearing Protection!
}
on 1:UNLOAD:{
echo -a Unload Successfull
}
menu menubar,status,channel {
-
Protection
.Swearing
..On:/enable #acswearing | echo -a Swearing Protection is ON
..Off:/disable #acswearing | echo -a Swearing Protection is OFF
-
}
#acswearing off
on 1:TEXT:*porno*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: porno ) 0,4BANNED:10mins (k:#66) }
}
on 1:TEXT:*gay*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: Gay ) 0,4BANNED:10mins (k:#50) }
}
on 1:TEXT:*fuck*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: Fuck ) 0,4BANNED:10mins (k:#49) }
on 1:TEXT:*Dick*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: Dick ) 0,4BANNED:10mins (k:#47) }
on 1:TEXT:*asshole*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: Asshole ) 0,4BANNED:10mins (k:#42) }
}
on 1:TEXT:*pussy*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: Pussy ) 0,4BANNED:10mins (k:#41) }
}
on 1:TEXT:*bitch*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: bitch ) 0,4BANNED:10mins (k:#32) }
}
on 1:TEXT:*suck*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: suck ) 0,4BANNED:10mins (k:#31) }
}
on 1:TEXT:*sex*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: sex ) 0,4BANNED:10mins (k:#30) }
}
on 1:TEXT:*sucker*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: sucker ) 0,4BANNED:10mins (k:#29) }
}
on 1:TEXT:*fucker*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: fucker ) 0,4BANNED:10mins (k:#28) }
}
on 1:TEXT:*ass*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: ass ) 0,4BANNED:10mins (k:#27) }
}
on 1:TEXT:*porn*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: porn ) 0,4BANNED:10mins (k:#26) }
}
on 1:TEXT:*fuck off*:#:{
if ($me isop $chan) { ban -u600 # $nick 2 | .kick # $nick 0,4Swearing is not allowed here ( $+ $1- $+ , 0,4Matching: fuck off ) 0,4BANNED:10mins (k:#25) }
}
#swearing end
When it comes down to it, it doesn\'t matter what it looks like. This code wont work. \'#swearing end\' Needs to be \'#acswearing end\'. Also \'(k:#27)\' will always say \'(k:#27)\'. It won\'t change as it continues to kick, I suggest finding a Kick Counter which can be found on here for an idea on how to script a Kick Counter for this to actualy work. And as you have seen when it comes to coding it is easier to use .txt files and hashtables but you wouldn\'t be able to get the detailed message as you have put into this snippet. And yet it would have gone alot faster.
Hmm Deathryder082 has a point, it does look almost the same. Just different swear words & colors. Here\'s the link: http://www.hawkee.com/snippet.php?snippet_id=1060
to what I understand Fuck would work if the word fuck was used anywhere in the text therefore Fuck off would not be needed since fuck was already established. other than that good job.
a better idea then using so many on text events is to put all the swear words in a text file, a variable, or a hash table for example: on @:text::#: { var %x $0, %swears fuck,shit,cunt,bitch | while (%x) { if ($istok(%swears,$gettok($1-,%x,32),44))) { .ban -ku600 $nick 2 Swear Protection } | dec %x } }