Code:
## $Id: advertisekick.tcl, eggdrop-1.6.x 2004/5 awyeah@usa.net Exp $# Begin - Channel Advertise/Spam Kicker Script v3.92.b (advertisekick.tcl)#Script Version: v3.92.b#Built Date: March 2004, Last Updated: 4th July 2004#Copyright © 1999-2004 awyeah (awyeah@usa.net)#TCL script was designed to work with eggdrop v1.5.x or higher########################################################################## Channel Advertise/Spam Kicker Script v3.92.b ## # # ## Author: awyeah 4th July 2004 ## Email: awyeah@usa.net Build version 3.92.b ## Copyright © 2004 awyeah All Rights Reserved http://www.awyeah.org/ ############################################################################# ################# ## PURPOSE OF SCRIPT ## ################### ## This script serves the purpose of eliminating advertisers, spammers## and inviters who join channels and advertise their channels or ## websites on the main channel window, with or without a flood.## ## This script is quite efficient and can detect almost any kind of ## spam, invite, or advertise sent into a chanenl. The main is for this## effectiveness are the wordlist matching wildcards I have added.#### This script can be run on almost any network on IRC because it does ## not utilize/invovle any network services.############################################################################### ##################### ## DESCRIPTION OF SCRIPT ## ####################### ## This script will make your eggdrop bot detect any spam, invite words## sent into the channel. It will *not* simply detect single characters## or words (such as #), which can cause chaos.## ## After the eggdrop bot has matched the wildcards in a channel text,## action or notice which seems relevant to an advertise or spam message## it, verifying this it will punish that user depending upon the## punishment level select by the bot owner.## ## This is a very effective script to eliminate spammers and advertisers## which join channels and spam their channels or websites.## ########################################################################### ## ############### ## SCRIPT FEATURES ## ################# ## 1. This script will not ban on detecting any single characters/words## in a text or action of a user. Supponsingly:#### It *WILL NOT* not ban for texts similar to this:#### - My cell phone # is 0800-856345 (for the # character)## - Will you join me tommorow for a game of badminton? (for *join*)## - Please do come to my wedding! (for *come to*)## - My aunt is going to visit us tommorow!! (for *to visit*)## - You can go to their counter and signup for..... (for *go to*)#### It *WILL* ban for texts similar to this:#### - #mychannel #mychannel #mychannel #mychannel #mychannel## - #mychannel#mychannel#mychannel#mychannel#mychannel#mychannel## - Please join #mychannel, /j #mychannel,## - visit #mychannel, visit http://* (same for *come to* and *goto*)## - click here #mychannel, check out www.*#### 2. This script will also not ban people in a channel, if they say ## the channel's name. (For example: If someone on the channel ## #funchat, says a text which includes the word #funchat, this## script will ignore the user and exempt him). Some scripts which ## I have seen would punish the user for saying the channel's name, ## which is quite annoying.#### 3. This script has *2* settings of channels to work on.## [1] It can be activated to work on user defined channels.## [2] It can be activated to work on all the channels the bot is on.#### 4. This script has switches to choose either to exempt channel ops,## voices and users with certain flags. It also has an effective## exemption system such as exemption of specific nicks, idents,## hosts, user@host's. It can also exempt all non-dynamic idents.#### 5. This script will detect TEXT, ACTION as well as channel NOTICES. ## Each of the *3* detection systems can be individually choosen to ## be enabled or disabled with the channel-interface type selector.## ## 6. This script also has an option to either use the scripts default## kick message when punishing the user, or either defining your own ## kick message and using that. #### 7. This script also has a kick counter logger. It will keep a record ## of how many people are kicked with the script. The number of users## kicked will be shown in the end of each kick message.#### 8. Also availiable are 20 types of bans which can be selected by bot ## owners with varying wilcards. These banmasks enforce a greater ## range of customizable bans for banning advertisers and spammers. ############################################################################# ## ################### ## SCRIPT INSTALLATION ## ##################### ## [1] Please unzip the advertisekick.zip zipped file & place the ## advertisekick.tcl file in your eggdrops */scripts* folder along ## with your other tcl scripts.## ## [2] Please add a link at the bottom of your eggdrop's .CONF file to ## the path of the advertisekick.tcl, it would be something like: ## ## source scripts/advertisekick.tcl## ## ## [3] Save your bot's configuration file## ## [4] *RESTART* your eggdrop bot and start kicking advertiser ass!## ########################################################################### ## ############ ## CONTACT INFO ## ############## ## - If you have any suggestions, comments, questions or if you want to ## report bugs, please feel free to email me at: awyeah@usa.net## ## - You can contact me on MSN Messenger on my ID: awyeah@awyeah.org## ## - You can also catch me on IRC (The DALnet Network) ## ## /server irc.dal.net:6667, Nick: awyeah ## ########################################################################### ## ############### ## SCRIPT VERSIONS ## ################### v3.92.b - Added a channel interface switch. This switch will give## (04/07/04) an option to choose which type of channel interface to## select from such as CHANNEL TEXT, ACTION, NOTICE orALL.## - Fixed a missing line punishment line in the options where ## the scripts random kick message is displayed.## - Added choices to exempt channel operators, voices and## bot user flags from advertisement detection.## - Added switches for other exemption options so it is easy## to switch ON the ones people will use, if not all.##- Added an option to choose to only detect users with ## dynamic idents. (idents which have a "~" sign in front)##- There were 2 matching ban types on the banmask selector,## removed the duplicate one and added a new banmask type.## - Added a unban timer to check if the ban is set on the## channel before removing it, otherwise the bot uselessly## unbans some bans which aren't set on the channel even.##- Added an option to either select the scripts default kick ## message when punishing the user or defining your own ## customizable kick message.## - Removed unwanted procedures, the total 6 procedureshave ## been reduced to *1* single procedure, which makes the ## script more cpu and ram friendly.##- Added some more matching words in the advertise detection ## wordlist.##- Modified all of the procedures, settings and timers to## give a more faster and efficient performance.#### v2.85.b - Fixed the kick counter initial file creation bug, so the## (14/06/04) kick counter file will be always checked before kicking.## - Added support for channel NOTICES as well, so script ## will react on any notices sent in channels.##- Added 20 different types of banmasks to select from ## while banning the spammer.##- Added a choice to select the default script kick message## or use your own customizable kick message.#### v1.28.b - Initial release of script.## (30/05/04)#### ## Latest released updated verions of this script can be found onthe ## tcl archives of the following websites:## ## http://www.egghelp.org/ - http://www.tclscript.com/## ########################################################################### ## ####### ## CREDITS ## ############# - Thanks to my friends who came up with the idea of this script,## because without them this wouldn't have been possible.#### - A very special thanks all my friends who did the beta testing for ## this script and helped me to fix the bugs and errors found.#### - Thanks to ppslim for providing the control code removing filter.###### Really great work people!###### ./awyeah## ############################################################################################################################### Start editing variables from here onwards! ######################################################----------------------------------------## SETUP CHANNEL ACTIVATION OPTIONS ##----------------------------------------##Set the type of channels you would like this script to work on.#USAGE: [1/2] (1=USER DEFINED CHANNELS, 2=ALL CHANNELS) (You can only enable ONE setting!)#Use '1' for 'user defined channels' (Will detect/punish the user only in the channels defined for the script)#Use '2' for 'all the channels' the bot is on. (Will detect/punish the user on any channel where he/she advertised)set advertisetype "1"#Set this if you have set the previous setting to '1' for user defined channels, if not then please#leave this as it is or leave this as empty/blank. (Set the channels on which this script would work)#USAGE: set advertisechans "#channel1 #channel2 #channel3 #mychannel #yourchannel"set advertisechans "#test-a"#---------------------------------------## SETUP CHANNEL INTERFACE OPTIONS ##---------------------------------------##Set the type of channel interface to enable. (MESSAGE, ACTION, NOTICE)#USAGE: [1/2/3/4] (1=CHANNEL TEXTS, 2=CHANNEL ACTIONS, 3=CHANNEL NOTICES, 4=ALL)#Use '1' for detecting advertisments from CHANNEL TEXTS. (Will only detect channel texts: /msg #channel)#Use '2' for detecting advertisments from CHANNEL ACTIONS. (Will only detect channel actions: /me #channel)#Use '3' for detecting advertisments from CHANNEL NOTICES. (Will only detect channel notices: /notice #channel)#Use '4' for detecting advertisements from CHANNEL TEXTS, ACTIONS and NOTICES (ALL). (Will detect all channel texts, actions and notices)set advertiseactivate "4"#----------------------------------------------## SETUP ADVERTISEMENT DETECTION WORDLIST ##----------------------------------------------##Set the *advertise words* for the script to react on. (wildcards such as "*" are accepted)#Already have pre-added all kinds of combinations, normally you would'nt need to edit these. #People only edit would need to edit if their language or channel not english.set advertisewords {"#*#*""*#*#*""#*#*#*""*#*#*#*""#* #*""*#* #*""#* #* #*""*#* #* #*""#* *#*""*#* *#*""#* *#* *#*""*#* *#* *#*""#* * #*""#* * *#*""*#* * #*""*#* * *#*""#* * #* * #*""#* * *#* *#*""*#* * #* * #*""*#* * *#* *#*""*/join #*""*join #*""*join* #*""*/join""*/join*""*/j0in #*""*j0in #*""*/j0in""*/j0in*""*/j #*""*/j* #*""*/j* * #*""*join#*""*join*#*""*j0|n#*""*j0|n*#*""*j0in#*""*j0in*#*""*jo|n#*""*jo|n*#*""*join to * * #*""*join to your #*""*join to your * #*""@hix*""*prank calls*""*prank call*""*recruiting #*""*contest #*""*in #*""#* OMG""#* growing*""#*"}#------------------------------------## SETUP USER PUNISHMENT METHOD ##------------------------------------##Set the type of punishment to declare for the user.#USAGE: [1/2/3/4] (1=KICK, 2=KICK/BAN, 3=STICKY KICK/BAN, 4=GLOBAL KICK/BAN)#Use '1' to 'kick' that user from the channel. (Minimal punishment)#Use '2' to 'kick and ban' that user from the channel. (Moderate punishment)#Use '3' to 'kick ban' that user using a sticky ban from the bots ban list. (Extreme punishment)#Use '4' to 'kick ban' that user from all channels the user is found on matching with the bot. (Maximum punishment)set advertisepunish "2"#-------------------------## SETUP BAN OPTIONS ##-------------------------##Select the type of banmask to use when banning the advertiser.# 1 - *!*@some.host.com# 2 - *!*@*.host.com# 3 - *!*ident@some.domain.com# 4 - *!*ident@*.host.com# 5 - *!*ident*@*.host.com# 6 - *!*ident*@some.host.com# 7 - nick*!*@*.host.com# 8 - *nick*!*@*.host.com# 9 - nick*!*@some.host.com# 10 - *nick*!*@some.host.com# 11 - nick!ident@some.host.com# 12 - nick!ident@*.host.com# 13 - *nick*!*ident@some.host.com# 14 - nick*!*ident*@some.host.com# 15 - *nick*!*ident*@some.host.com# 16 - nick!*ident*@some.host.com# 17 - nick*!*ident@*.host.com# 18 - nick*!*ident*@*.host.com# 19 - *nick*!*ident@*.host.com# 20 - *nick*!*ident*@*.host.comset advbanmask "1"#Set the amount of time in minutes to ban the user for. (in mins)#(By default if you don't set a value the script will assume it to be 60 minutes)set advertisebantime "2"#-------------------------------## SETUP KICK MESSAGE TYPE ##-------------------------------##Set this if you would like to use your own KICK message for kicking the advertiser.#If you set this OFF then the scripts default kick message will be used.#USAGE: [0/1] (O=OFF, 1=ON)set advkickswitch "1"#Set this if to your customizable KICK message if you have enabled to use your own custom KICK message.#By Default this is set to the scripts default kick message. (You will need to change this)set advkickmsg "Bad word detected. (2 minute ban)"#-----------------------------------## SETUP USER EXEMPTION OPTIONS ##-----------------------------------#### IMPORTANT NOTE ####For all of the exemption settings below please *DO NOT* use wildcards#such as: (*, !, *!*, *@*, *!*@*, @*.host.com, *@127.0.0.* etc as they maybe risky)#(If you do not have any ident, userhost, or ip to enter then please leave the field "")#### EXEMPT CHANNEL OPERATORS #####Set this if you want the bot to exempt all channel operators - ops (@'s) even though if the#bot has detected an advertise matching word from them. (This is a useful setting for not punishing ops)#USAGE: [0/1] (0=OFF, 1=ON) - (0=WILL NOT EXEMPT OPS, 1=WILL EXEMPT OPS)#If set to '0' channel ops will be punished if the bot detects an advertise word from them#If set to '1' channel ops will be exempted even if the bot detects an advertise word from themset advexopswitch "1"#### EXEMPT CHANNEL VOICES #####Set this if you want the bot to exempt all channel voices (+v's) even though if the bot has #detected an advertise matching word from them. (This is a useful setting for not punishing voices)#USAGE: [0/1] (0=OFF, 1=ON) - (0=WILL NOT EXEMPT VOICES, 1=WILL EXEMPT VOICES)#If set to '0' channel voices will be punished if the bot detects an advertise word from them#If set to '1' channel voices will be exempted even if the bot detects an advertise word from themset advexvoiceswitch "1"#### EXEMPT SPECIFIC USER FLAGS #####Set this if you want the bot to exempt user flags on the bots user list. Users with certain specific or all #flags would be exempted by the bot and will not be punished, even if the bot detects an advertise word from them.#USAGE: [0/1] (0=OFF, 1=ON) - (0=WILL NOT EXEMPT USERFLAGS, 1=WILL EXEMPT USERFLAGS)#If set to '0' users/owners on the bots userlist will be punished if the bot detects an advertise word from them#If set to '1' users/owners on the bots userlist will be exempted even if the bot detects an advertise word from themset advexflagswitch "1"#If you have enabled to exempt userflags on the bots userlist and not to punish them, set the 'user flags' #for bot owners, masters, ops, voices, users etc which will be exempted from this script.#(Try not to leave this field empty, atleast fill it with "n" to exempt the bot owner if possible)#Example: n=owner, m=master, o=op, v=voice, f=friend, b=bot etc#USAGE: m, n, o, v, f or "mnf", "bfv" etcset advexflags "mnof|mnof"#### EXEMPT SPECIFIC NICKS #####Set this if you want to enable 'exemption of specific nicks' from this script. (Users with such nicks will be #ignored by the script even if they are found to be advertising)#USAGE: [0/1] (0=OFF, 1=ON)set advnickswitch "0"#Set this if you have selected/enabled to 'exempt certain nicks' (if you have set the previous setting to '1'). #Set this to the list of 'exempted nicks', which you would like the bot to ignore and wouldn't want to check that #user for advertisement words. (If you do not have any 'nick' to exempt then, please leave this as "")#USAGE: "nick1, bot3, user5, robot7"set advexnicks ""#### EXEMPT SPECIFIC IDENTS #####Set this if you want to enable 'exemption of specific idents' from this script. (Users with such idents will be #ignored by the script even if they are found to be advertising)#USAGE: [0/1] (0=OFF, 1=ON)set advidentswitch "0"#Set this if you have selected/enabled to 'exempt certain idents' (if you have set the previous setting to '1').#Set this to the list of exempted 'user idents' which you would like the bot to ignore when checking users for #advertisement words. (If you do not have any 'user ident' to exempt then, please leave this as "")#(Whois example: awyeah is cooldude@loves.you.com ===> cooldude)#USAGE: "cooldude, myident, user, script, sweet"set advexidents "a-user-ident"#### EXEMPT SPECIFIC HOSTS #####Set this if you want to enable 'exemption of your hosts' from this script. (Users with such hosts will be ignored#by the script even if they are found to be advertising)#USAGE: [0/1] (0=OFF, 1=ON)set advhostswitch "0"#Set this if you have selected/enabled to 'exempt certain hosts' (if you have set the previous setting to '1').#Set this to the list of 'exempted domains' (user ip addresses) which you would like the bot to ignore #when checking for advertisement words. (If you do not have any 'ip addresses' to exempt then, please leave this as "")#(Whois example: awyeah is cooldude@adsl-154-462.cable.myisp.com ===> cable.myisp.com)#USAGE: "cable.myisp.com, name.myuniversity.edu, mindspring.com, cpe.net.cable.rogers.com"set advexhosts "an-isp-name"#### EXEMPT SPECIFIC USER HOSTS #####Set this if you want to enable 'exemption certain user@hosts' from this script. (Users with such user@host's will be#ignored by the script even if they are found to be advertising)#USAGE: [0/1] (0=OFF, 1=ON)set advuserhostswitch "0"#Set this if you have selected/enabled to 'exempt certain hosts' (if you have set the previous setting to '1').#Set this to the list of 'user hosts' (user@host) which you would like the bot to ignore when checking for #advertisement words. (If you do not have any 'user@host' to exempt then, please leave this as "")#USAGE: "rules@127.0.0.1, i@am.eleet.com, yeah@baby.yeah.net"set advexuserhosts "i@love.you.com"#### EXEMPT NON-DYNAMIC IDENTS ####### NOTE: I recommend you keep this setting *OFF*. (Meaning keep this setting to '0') ####Set this to ignore users without dynamic idents (idents without ~). Users without a "~" sign infront of their #ident will be exempted and ignore by the bot if this setting is enabled and will not be detected for advertisement words.#USAGE: [0/1] (0=OFF, 1=ON) - (0=DO NOT EXEMPT ANY IDENT, 1=EXEMPT ONLY NON-DYNAMIC IDENTS)#If set to '0' the script will not ignore any ident and will work as a regular script.#If set to '1' the script will ignore normal idents (idents without "~" ) and will only detect adverisement #words from dynamic idents (idents which have a "~" sign in the beginning of their ident)#(When enabled: awyeah is awesome@guy.com ===> awesome ==> Will make the user exempted)#(When enabled: awyeah is ~awesome@guy.com ===> ~awesome ===> Will *NOT* make the user exempted)set advdynamicident "0"#---------------------------## SETUP KICK COUNTER ##---------------------------##Set the filename in which you want the user kick record numbers to be stored in. This file would be #created in your main *eggdrop* dir, where your bot's .CONF, .CHAN, and .USER files are stored. #(You can leave this as it is, if you want)set advertisekicks "advertisekicks.dat" ################################################################################## Don't edit anything else from this point onwards, even if you know tcl! ##################################################################################bind pubm - * pub:advertisebind ctcp - ACTION act:advertisebind notc - * notc:advertisebind kick - * advertise:kick:counterproc pub:advertise {nick uhost hand chan text} { global botnick advertisetype advertisechans if {($nick != $botnick) && ($chan != $botnick)} {; set type "TEXT" if {($advertisetype == 1) && ($advertisechans != "") && ([string match "#*" $advertisechans])} { pub:specific:chans $nick $uhost $hand $chan $type $text } if {($advertisetype == 2)} { advertise:all:chans $nick $uhost $hand $chan $type $text } if {(($advertisetype != 1) && ($advertisetype != 2)) || ($advertisetype == "0") || ($advertisetype == "")} { return 0 } }}proc pub:specific:chans {nick uhost hand chan type text} { global botnick advertiseactivate advertisechans if {($advertiseactivate == 1) || ($advertiseactivate == 4)} { if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] != -1)} { advertise:all:chans $nick $uhost $hand $chan $type $text } if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] == -1)} { return 0 } }}proc act:advertise {nick uhost hand chan key text} { global botnick advertisetype advertisechans if {($nick != $botnick) && ($chan != $botnick)} {; set type "ACTION" if {($advertisetype == 1) && ($advertisechans != "") && ([string match "#*" $advertisechans])} { act:specific:chans $nick $uhost $hand $chan $type $text } if {($advertisetype == 2)} { advertise:all:chans $nick $uhost $hand $chan $type $text } if {(($advertisetype != 1) && ($advertisetype != 2)) || ($advertisetype == "0") || ($advertisetype == "")} { return 0 } }}proc act:specific:chans {nick uhost hand chan type text} { global botnick advertiseactivate advertisechans if {($advertiseactivate == 2) || ($advertiseactivate == 4)} { if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] != -1)} { advertise:all:chans $nick $uhost $hand $chan $type $text } if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] == -1)} { return 0 } }}proc notc:advertise {nick uhost hand text {chan ""}} { global botnick advertisetype advertisechans if {($nick != $botnick) && ($chan != $botnick) && (![string equal $nick "ChanServ"])} {; set type "NOTICE" if {($advertisetype == 1) && ($advertisechans != "") && ([string match "#*" $advertisechans])} { notc:specific:chans $nick $uhost $hand $chan $type $text } if {($advertisetype == 2)} { advertise:all:chans $nick $uhost $hand $chan $type $text } if {(($advertisetype != 1) && ($advertisetype != 2)) || ($advertisetype == "0") || ($advertisetype == "")} { return 0 } }}proc notc:specific:chans {nick uhost hand chan type text} { global botnick advertiseactivate advertisechans if {($advertiseactivate == 3) || ($advertiseactivate == 4)} { if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] != -1)} { advertise:all:chans $nick $uhost $hand $chan $type $text } if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] == -1)} { return 0 } }}proc advertise:all:chans {nick uhost hand chan type text} { global botnick advertisewords advexflags advkickswitch advkickmsg advdynamicident advexnicks advexidents advexhosts advexuserhosts global advertisekicks advexopswitch advexvoiceswitch advexflagswitch advnickswitch advidentswitch advhostswitch advuserhostswitch set text [advertise:filter $text]; set userident [lindex [split $uhost "@"] 0]; set ipaddress [lindex [split $uhost "@"] 1] if {![file exists $advertisekicks]} { set file [open $advertisekicks "w"]; puts $file 1; close $file } if {($advdynamicident == "1") && (![string match "*~*" $userident])} { return 0 } if {(($advnickswitch == 1) && ($advexnicks != "") && ([string match -nocase *$advexnicks* $nick])) || (($advidentswitch == 1) && ($advexidents != "") && ([string match -nocase *$advexidents* $userident])) || (($advhostswitch == 1) && ($advexhosts != "") && ([string match -nocase *$advexhosts* $ipaddress])) || (($advuserhostswitch == 1) && ($advexuserhosts != "") && ([string match -nocase *$advexuserhosts* $uhost])) } { return 0 } if {([string match -nocase *$chan* $text])} { return 0 } foreach advertiseword [string tolower $advertisewords] { if {[string match -nocase *$advertiseword* $text]} { if {(($advexopswitch == 1) && ([isop $nick $chan])) || (($advexvoiceswitch == 1) && ([isvoice $nick $chan])) || (($advexflagswitch == 1) && ([matchattr $hand $advexflags $chan]))} { return 0 } if {($nick != $botnick) && ($chan != $botnick) && ([botisop $chan]) && ([validchan $chan]) && (![string match -nocase *$chan* $text]) && ([onchan $nick $chan])} { set advertiseban [advertise:banmask $uhost $nick]; set advertisetype $type; if {($advkickswitch == 1) && ($advkickmsg != "")} { advertise:kick:user $nick $chan $advertiseword $advertiseban; return 0 } if {($advkickswitch == 0)} { advertise:kick:script $nick $chan $advertiseword $advertisetype $advertiseban; return 0 } if {(($advkickswitch != 1) && ($advkickswitch != 0)) || ($advkickswitch == "")} { putlog "ADVERTISE KICK MESSAGE: No kick-message type selected."; return 0 } } } }}proc advertise:kick:user {nick chan advertiseword advertiseban} { global botnick advertisepunish advertisekicks advertisebantime advkickmsg set file [open $advertisekicks "r"]; set currentkicks [gets $file]; close $file; set totalkicks [expr $currentkicks]; set banmask $advertiseban if {($advkickmsg == "")} { set advkickmsg "0,1 Channel Advertise Kick 12,0 - 2Advertise/Invite 12word 6\"$advertiseword\" 12detected. Mass 2Advertising/Inviting/Spamming 12in 12is not tolerated on this 2channel. 12Failing to 2comply 12with 2these rules 12will result into a 2permanent ban." } if {($advertisebantime == 0) || ($advertisebantime == "") || ($advertisebantime < 1)} { set advertisebantime 60 } if {($advertisepunish == 1)} { putquick "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)" } if {($advertisepunish == 2)} { putquick "MODE $chan +b $banmask"; putquick "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)"; timer $advertisebantime [list advertise:unban $banmask $chan] } if {($advertisepunish == 3)} { newchanban $chan $banmask advertise $advkickmsg $advertisebantime; putquick "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)" } if {($advertisepunish == 4)} { newban $banmask advertise $advkickmsg $advertisebantime; putquick "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)" } if {($advertisepunish != 1) && ($advertisepunish != 2) && ($advertisepunish != 3) && ($advertisepunish != 4)} { putlog "ADVERTISE PUNISHMENT: No punishment type selected."; return 0 }}proc advertise:kick:script {nick chan advertiseword advertisetype advertiseban} { global botnick advertisepunish advertisekicks advertisebantime set file [open $advertisekicks "r"]; set currentkicks [gets $file]; close $file; set totalkicks [expr $currentkicks]; set banmask $advertiseban set advertisemsg "2Advertise/Invite 12word 6\"$advertiseword\" 12detected. Mass 2Advertising/Inviting/Spamming 12in 12is not tolerated on this 2channel. 12Failing to 2comply 12with 2these rules 12will result into a 2permanent ban." if {($advertisebantime == 0) || ($advertisebantime == "") || ($advertisebantime < 1)} { set advertisebantime 60 } if {($advertisetype == "TEXT")} { set advertisescriptmsg "0,1 Channel Text Advertise Kick 12,0 - $advertisemsg" }; if {($advertisetype == "ACTION")} { set advertisescriptmsg "0,1 Channel Action Advertise Kick 12,0 - $advertisemsg" }; if {($advertisetype == "NOTICE")} { set advertisescriptmsg "0,1 Channel Notice Advertise Kick 12,0 - $advertisemsg" } if {($advertisepunish == 1)} { putquick "KICK $chan $nick :$advertisescriptmsg2 - (Kick #$totalkicks)" } if {($advertisepunish == 2)} { putquick "MODE $chan +b $banmask"; putquick "KICK $chan $nick :$advertisescriptmsg2 - (Kick #$totalkicks)"; timer $advertisebantime [list advertise:unban $banmask $chan] } if {($advertisepunish == 3)} { newchanban $chan $banmask advertise $advertisescriptmsg $advertisebantime; putserv "KICK $chan $nick :$advertisescriptmsg2 - (Kick #$totalkicks)" } if {($advertisepunish == 4)} { newban $banmask advertise $advkickmsg $advertisebantime; putserv "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)" } if {($advertisepunish != 1) && ($advertisepunish != 2) && ($advertisepunish != 3) && ($advertisepunish != 4)} { putlog "ADVERTISE PUNISHMENT: No punishment type selected."; return 0 }}proc advertise:banmask {uhost nick} { global advbanmask switch -- $advbanmask { 1 { set banmask "*!*@[lindex [split $uhost @] 1]" } 2 { set banmask "*!*@[lindex [split [maskhost $uhost] "@"] 1]" } 3 { set banmask "*!*$uhost" } 4 { set banmask "*!*[lindex [split [maskhost $uhost] "!"] 1]" } 5 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" } 6 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" } 7 { set banmask "$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" } 8 { set banmask "*$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" } 9 { set banmask "$nick*!*@[lindex [split $uhost "@"] 1]" } 10 { set banmask "*$nick*!*@[lindex [split $uhost "@"] 1]" } 11 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split $uhost @] 1]" } 12 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" } 13 { set banmask "*$nick*!*$uhost" } 14 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" } 15 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" } 16 { set banmask "$nick!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" } 17 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" } 18 { set banmask "$nick!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" } 19 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" } 20 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" } default { set banmask "*!*@[lindex [split $uhost @] 1]" } return $banmask }}proc advertise:unban {banmask chan} { global botnick if {([botisop $chan])} { if {([ischanban $banmask $chan])} { pushmode $chan -b $banmask; return 0 } if {(![ischanban $banmask $chan])} { return 0 } }}if {![file exists $advertisekicks]} { putlog "ADVERTISE KICK COUNTER: The \002advertise kick counter file\002 does not exist. Creating file \002$advertisekicks\002." set file [open $advertisekicks "w"] puts $file 1 close $file}### Thanks to NeOmAtRiX for this kick counter ###proc advertise:kick:counter {nick uhost handle chan target arg} { global botnick advertisekicks if {[string tolower $target] == [string tolower $botnick]} { return 0 } if {[string tolower $nick] == [string tolower $botnick]} { if {![file exists $advertisekicks]} { putlog "ADVERTISE KICK COUNTER: The advertise kick counter file does not exist. Creating file $advertisekicks." set file [open $advertisekicks "w"] puts $file 1; close $file } set file [open $advertisekicks "r"] set currentkicks [gets $file]; close $file set file [open $advertisekicks "w"] puts $file [expr $currentkicks + 1]; close $file }}### Thanks to ppslim for this filter ###proc advertise:filter {str} { regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str return $str}putlog "\[LOADED\] Channel Advertise/Spam Kicker v3.92.b by \002awyeah (awyeah@usa.net)\002"if {($advertisetype == 1)} { putlog "Advertise/Spam Kicker is \002*ACTIVE*\002 on: \002$advertisechans\002" }if {($advertisetype == 2)} { putlog "Advertise/Spam Kicker IS \002*ACTIVE*\002 on: \002All channels\002" }if {(($advertiseactivate == 1) || ($advertiseactivate == 2) || ($advertiseactivate == 3) || ($advertiseactivate == 4)) && (($advertisetype != 1) && ($advertisetype != 2))} { putlog "Advertise/Spam Kicker is \002*NOT ACTIVE*\002 because: \002No *channel activation type* has been seletected\002" }if {(($advertisetype == 1) || ($advertisetype == 2)) && (($advertiseactivate != 1) && ($advertiseactivate != 2) && ($advertiseactivate != 3) && ($advertiseactivate != 4))} { putlog "Advertise/Spam Kicker is \002*NOT ACTIVE*\002 because: \002No *channel interface* has been seletected\002" }if {($advertisetype != 1) && ($advertisetype != 2) && ($advertiseactivate != 1) && ($advertiseactivate != 2) && ($advertiseactivate != 3) && ($advertiseactivate != 4)} { putlog "Advertise/Spam Kicker is \002*NOT ACTIVE*\002 because: \002No *channel activation type* and *channel interface* has been seletected\002" }return
