<?xml version="1.0" encoding="UTF-8"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="en-gb">
	<link rel="self" type="application/atom+xml" href="https://forum.eggheads.org/app.php/feed/topic/15802" />

	<title>egghelp/eggheads community</title>
	<subtitle>Discussion of eggdrop bots, shell accounts and tcl scripts.</subtitle>
	<link href="https://forum.eggheads.org/index.php" />
	<updated>2008-06-03T15:33:34-04:00</updated>

	<author><name><![CDATA[egghelp/eggheads community]]></name></author>
	<id>https://forum.eggheads.org/app.php/feed/topic/15802</id>

		<entry>
		<author><name><![CDATA[TCL_no_TK]]></name></author>
		<updated>2008-06-03T15:33:34-04:00</updated>

		<published>2008-06-03T15:33:34-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=83403#p83403</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=83403#p83403"/>
		<title type="html"><![CDATA[anti spam script]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=83403#p83403"><![CDATA[
Try MC_8's Bad Word Script <blockquote class="uncited"><div>Description: This script will act upon anyone in a specified channel that mentions a certain word that you add to the bad words database (wildcards accepted). Such actions popular are /kick and /ban, but can do more. This script also has the ability to share it's bad words database with other bot's on the botnet.</div></blockquote>  <img class="smilies" src="https://forum.eggheads.org/images/smilies/icon_biggrin.gif" width="15" height="15" alt=":D" title="Very Happy"> <a href="http://forum.purehype.net/phpBB3/viewtopic.php?f=32&amp;t=683" class="postlink">Link</a><p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=8130">TCL_no_TK</a> — Tue Jun 03, 2008 3:33 pm</p><hr />
]]></content>
	</entry>
		<entry>
		<author><name><![CDATA[noobman]]></name></author>
		<updated>2008-06-03T06:58:28-04:00</updated>

		<published>2008-06-03T06:58:28-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=83391#p83391</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=83391#p83391"/>
		<title type="html"><![CDATA[mm]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=83391#p83391"><![CDATA[
i want an script like this one :<br><div class="codebox"><p>Code: </p><pre><code>##################################################### 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 "#..."#---------------------------------------##    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 {"#*""www.*""http://*""/j*""*€*"}#------------------------------------##    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 "3"#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 "10"#-------------------------------##    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 "spam detected"#-----------------------------------##    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 "spamcheckerbot"#### 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 ===&gt; 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 ===&gt; 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 ===&gt; awesome ==&gt; Will make the user exempted)#(When enabled: awyeah is ~awesome@guy.com ===&gt; ~awesome ===&gt; 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) &amp;&amp; ($chan != $botnick)} {; set type "TEXT"   if {($advertisetype == 1) &amp;&amp; ($advertisechans != "") &amp;&amp; ([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) &amp;&amp; ($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) &amp;&amp; ($chan != $botnick)} {; set type "ACTION"   if {($advertisetype == 1) &amp;&amp; ($advertisechans != "") &amp;&amp; ([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) &amp;&amp; ($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) &amp;&amp; ($chan != $botnick) &amp;&amp; (![string equal $nick "ChanServ"])} {; set type "NOTICE"   if {($advertisetype == 1) &amp;&amp; ($advertisechans != "") &amp;&amp; ([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) &amp;&amp; ($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") &amp;&amp; (![string match "*~*" $userident])} { return 0 }  if {(($advnickswitch == 1) &amp;&amp; ($advexnicks != "") &amp;&amp; ([string match -nocase *$advexnicks* $nick])) || (($advidentswitch == 1) &amp;&amp; ($advexidents != "") &amp;&amp; ([string match -nocase *$advexidents* $userident])) || (($advhostswitch == 1) &amp;&amp; ($advexhosts != "") &amp;&amp; ([string match -nocase *$advexhosts* $ipaddress])) || (($advuserhostswitch == 1) &amp;&amp; ($advexuserhosts != "") &amp;&amp; ([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) &amp;&amp; ([isop $nick $chan])) || (($advexvoiceswitch == 1) &amp;&amp; ([isvoice $nick $chan])) || (($advexflagswitch == 1) &amp;&amp; ([matchattr $hand $advexflags $chan]))} { return 0 }    if {($nick != $botnick) &amp;&amp; ($chan != $botnick) &amp;&amp; ([botisop $chan]) &amp;&amp; ([validchan $chan]) &amp;&amp; (![string match -nocase *$chan* $text]) &amp;&amp; ([onchan $nick $chan])} {     set advertiseban [advertise:banmask $uhost $nick]; set advertisetype $type;     if {($advkickswitch == 1) &amp;&amp; ($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) &amp;&amp; ($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 &lt; 1)} { set advertisebantime 60 }  if {($advertisepunish == 1)} { putserv "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)" }  if {($advertisepunish == 2)} { putserv "MODE $chan +b $banmask"; putserv "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)"; timer $advertisebantime [list advertise:unban $banmask $chan] }  if {($advertisepunish == 3)} { newchanban $chan $banmask advertise $advkickmsg $advertisebantime; putserv "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)" }  if {($advertisepunish == 4)} { newban $banmask advertise $advkickmsg $advertisebantime; putserv "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)" }  if {($advertisepunish != 1) &amp;&amp; ($advertisepunish != 2) &amp;&amp; ($advertisepunish != 3) &amp;&amp; ($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 &lt; 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)} { putserv "KICK $chan $nick :$advertisescriptmsg2 - (Kick #$totalkicks)" }  if {($advertisepunish == 2)} { putserv "MODE $chan +b $banmask"; putserv "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) &amp;&amp; ($advertisepunish != 2) &amp;&amp; ($advertisepunish != 3) &amp;&amp; ($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)) &amp;&amp; (($advertisetype != 1) &amp;&amp; ($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)) &amp;&amp; (($advertiseactivate != 1) &amp;&amp; ($advertiseactivate != 2) &amp;&amp; ($advertiseactivate != 3) &amp;&amp; ($advertiseactivate != 4))} { putlog "Advertise/Spam Kicker is \002*NOT ACTIVE*\002 because: \002No *channel interface* has been seletected\002" }if {($advertisetype != 1) &amp;&amp; ($advertisetype != 2) &amp;&amp; ($advertiseactivate != 1) &amp;&amp; ($advertiseactivate != 2) &amp;&amp; ($advertiseactivate != 3) &amp;&amp; ($advertiseactivate != 4)} { putlog "Advertise/Spam Kicker is \002*NOT ACTIVE*\002 because: \002No *channel activation type* and *channel interface* has been seletected\002" }return</code></pre></div>But i only want that the bot don't kick the user, only set the ban i want and it be removed in the time i set, like 10, 20 or more mins.<p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=9488">noobman</a> — Tue Jun 03, 2008 6:58 am</p><hr />
]]></content>
	</entry>
		<entry>
		<author><name><![CDATA[Nor7on]]></name></author>
		<updated>2008-06-02T12:46:41-04:00</updated>

		<published>2008-06-02T12:46:41-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=83377#p83377</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=83377#p83377"/>
		<title type="html"><![CDATA[anti spam script]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=83377#p83377"><![CDATA[
Hi.<br><br>You need an anti-spam or an Anti-advertise???<br><br>you should use: allprotection4.6b8.tcl is better.<br><br>set:<div class="codebox"><p>Code: </p><pre><code>.chanset #yourchan ap:adv + 10 b 2.ap:add adwords #yourchan *#*.ap:add adwords #yourchan *join*</code></pre></div>read the tcl, works perfectly <img class="smilies" src="https://forum.eggheads.org/images/smilies/icon_wink.gif" width="15" height="15" alt=";)" title="Wink"><br><br>u can download and view news here: <a href="http://forum.egghelp.org/viewtopic.php?t=9721" class="postlink">http://forum.egghelp.org/viewtopic.php?t=9721</a><br><br><img class="smilies" src="https://forum.eggheads.org/images/smilies/icon_wink.gif" width="15" height="15" alt=";)" title="Wink"><p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=8762">Nor7on</a> — Mon Jun 02, 2008 12:46 pm</p><hr />
]]></content>
	</entry>
		<entry>
		<author><name><![CDATA[noobman]]></name></author>
		<updated>2008-06-02T07:38:54-04:00</updated>

		<published>2008-06-02T07:38:54-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=83372#p83372</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=83372#p83372"/>
		<title type="html"><![CDATA[anti spam script]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=83372#p83372"><![CDATA[
Hi, i need an anti-spam script which i can add the bad words, and i'd want the bot sets ban with *!*<a href="mailto:ident@hostname.com">ident@hostname.com</a> and then it removes the ban after 10 min, but what i want its that dont kick to the user when he spams. I want only that the bot sets the ban, and removes it after the time i set.<br><br>It should have configurable options like :<br><br>1) the kind of ban "*!*<a href="mailto:ident@hostname.com">ident@hostname.com</a>" "*!*@hostname.com" etc...<br>2) to can add the bad words "*#*" "*join*" etc...<br>3) The time of ban "10" "20" "60" etc.. in minutes.<br>4) the bot only must ban, not kick.<br><br>best regards<p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=9488">noobman</a> — Mon Jun 02, 2008 7:38 am</p><hr />
]]></content>
	</entry>
	</feed>
