Code:

.set errorInfo

Code:

####################################################     Anti Mass Letter Script by SilentStorm    ###################################################### Version 1.1#################################################### If a User writes more then x letters of the# same type in a row (i.e spaaaaaaaaaaaam) then# the User will be warned and after y warnings# the User will be kicked out of the channel.# Allows you to set Exceptions too so specified# nicks wont be affected by this.# Also offers a 'Hardcore Violation Mode' which# will kick the User without any warnings. Useful# for extreme violations and Spamming.#####################################################                 CONFIGURATION                 ###################################################### Every Nickname entered here will NOT be affected by this Script. So choose the Nicks you enter here carefully!# Nicknames has to be seperated by a Space (i.e. User1 User2 User3)set massmsg(except) "SilentStorm blueshadow"# Here you can specify all channels which should be protected by this script.# Make sure your Bot has at least HalfOp in all the channels you enter here in order to be able to kick# Channels has to be seperated by a Space (i.e. Chan1 Chan2 Chan3) and must be entered without the preceding #set massmsg(chans) "x-tec hellgate"# This controls wether digits are punished as well or not. If set to 1 then 6666666 wont be treated as Spam# and Users wont be warned (and therefore not kicked) when spamming lines full of digits# Possible Settings are (0/1)set massmsg(ignint) 0# Here you can specify how often the users are warned before they receive a kickset massmsg(warnings) 3# Here you can specify how many following characters of the same type are allowed (if User exceeds this they'll be warned)set massmsg(maxchr) 3# This sets the amount of same characters in a row which will trigger the Hardmode (User will be kicked regardless of warnings)set massmsg(hmchr) 10# Here you can specify the messages for the warnings as well as for the kick message.# %nick will be replaced by the nick of the warned/kicked user# %cnt will be replaced by the amount of warnings the User receivedset massmsg(warnmsg) "%nick du bist hiermit verwarnt. Dies ist deine %cnt Verwarnung."set massmsg(kickmsg) "oO Stop Spamming. You've been warned %cnt times already."#####################################################         !!DO NOT CHANGE ANYTHING BELOW!!         #####################################################set massmsg(version) "V 1.1"set massmsg(author) "SilentStorm"##################### Application Part #####################bind pubm - * check_massletterproc check_massletter {nick uhost hand chan arg} {global usrwarnglobal massmsgset maxstr 0set spam 0set check 0set laststr ""foreach n $massmsg(chans) {if {([string tolower $chan] == [string tolower \#$n])} {set check 1}}if {$check != 1} {#putlog "Aborting MassLetter. May not check for Channel $chan"return}foreach n $massmsg(except) {if {([string tolower $nick] == [string tolower $n])} {#putlog "Aborting MassLetter. User $nick is on ExceptionsList"return}}if {![info exists usrwarn([nick2hand $nick])]} {set usrwarn([nick2hand $nick]) 0}regsub -all "%nick" $massmsg(warnmsg) "$nick" wmsgregsub -all "%nick" $massmsg(kickmsg) "$nick" kmsgfor {set cnt 0} {$cnt <= [string length $arg]} {incr cnt} {if {([string index $arg $cnt] == $laststr)} {if {$massmsg(ignint) == 1} {if {([string match [string index $arg $cnt] 0] == 0) && ([string match [string index $arg $cnt] 1] == 0) && ([string match [string index $arg $cnt] 2] == 0) && ([string match [string index $arg $cnt] 3] == 0) && ([string match [string index $arg $cnt] 4] == 0) && ([string match [string index $arg $cnt] 5] == 0) && ([string match [string index $arg $cnt] 6] == 0) && ([string match [string index $arg $cnt] 7] == 0) && ([string match [string index $arg $cnt] 8] == 0) && ([string match [string index $arg $cnt] 9] == 0)} {incr maxstr}} else {incr maxstr}} else {set maxstr 1set laststr [string index $arg $cnt]}if {$maxstr > $massmsg(maxchr)} {set spam 1}if {$maxstr > $massmsg(hmchr)} {set spam 2}}if {($spam == 1)} {incr usrwarn([nick2hand $nick])regsub -all "%cnt" $wmsg "$usrwarn([nick2hand $nick])" wmsgputchan $chan $wmsg}if {($spam == 2)} {incr usrwarn([nick2hand $nick])regsub -all "%cnt" $wmsg "$usrwarn([nick2hand $nick])" wmsgregsub -all "%cnt" $kmsg "$usrwarn([nick2hand $nick])" kmsgputchan $chan $wmsgputkick $chan $nick $kmsg}if {($usrwarn([nick2hand $nick]) > $massmsg(warnings))} {putserv "PRIVMSG $chan : Kicking $nick (Kept Spamming)"regsub -all "%cnt" $kmsg "$usrwarn([nick2hand $nick])" kmsgset usrwarn([nick2hand $nick]) 0putkick $chan $nick $kmsgreturn}}putlog "Anti Mass Letter Spam $massmsg(version) by $massmsg(author) loaded (SilentStorm)"