egghelp/eggheads community

TCL hunt

2004-09-14T16:12:32-04:00

why not make a damn car without brake, wheels and other crap? who needs them? if you do then add them yourself.

bla bla bla.. whatever..

ps: read this crap.. and for the 16468121354 time "bla" ain't equal with "BLA" .. browse the forum for an answer cos I ain't going to mention this again.

Statistics: Posted by caesar — Tue Sep 14, 2004 4:12 pm

TCL hunt

2004-09-13T21:14:36-04:00

Thats why I specified:
Although this script can be further corrected as it not yet in the best shape, but as it works for multiple channels so I suggest you use it.

I know there are many logics which can be improved. Everyone has their own way of doing things, because we don't think alike. Anyway this was a very old script when I was starting to learn and haven't changed it since then.

It can be improved, alot with new functions and remove some unnecessary commands which have no use, but then again the script works fine, so I guess the user has been helped with. I may update and release this for public use, so all small things like this would have been taken care off!

Code:

 if {([lsearch -exact [split [string tolower $badrcheck]] [string tolower $chan]] != -1)

Both variables have been set to lower case because we want to match them, lsearch -exact is case-sensitive and, I don't think lsearch has a nocase function as the string manipulation commands.

This will check if the channel joined by the user is mentioned in the working channel list or not. If the channel is mentioned and a user joins on that then only that person will be whois'ed.

As for string equal -nocase $botnick $nick, it will mainly work the same for isbotnick $nick, even I've seen scripts coded with == comparators for strings $botnick == $nick, still they work fine. Only they happen with very rare occasions, exceptions we might call them, one out of a hundred.

Even if you check in your previous version you are using strlwr $bla1 == strlwr $bla2 heh.

As for the uhost yes there are many ways to get it. You can split the string $arg and get it from there. There are many ways to do the same things and everyone has their own likings and dislikings. Getchanhost might be a bit slower in milliseconds than just splitting the string and getting the uhost. But then again this is only for performance, for the script to be the fastest as possible!

Suggestion:
I would personally add a scanner to to get who of the channel match all the raws and kick/ban out all users with badrealnames. Suppose this can happen when the bot joins a channel or when it is oped, maybe users with badrealnames are present before the bot arrived in the channel or was deoped and just got oped.

Fear not caesar I will update this script to be an asskicking one, in soon time.

Statistics: Posted by awyeah — Mon Sep 13, 2004 9:14 pm

TCL hunt

2004-09-13T10:58:03-04:00

foreach name [string tolower $badrlist] {
if {([string match -nocase *$name* $realname])} {

What's the point on having a tolower when just the "string match -nocase" is doing the job?
Also, "[isbotnick $nick]" equals and is better than "![string equal -nocase $botnick $nick])" and what the "[string tolower $chan]] != -1)" should do cos I for one don't understand it's logic?!?

Why do you get the uhost (set uhost [getchanhost $nick]) of an user like that when you allready have that info from the 311 raw.. anyway

Statistics: Posted by caesar — Mon Sep 13, 2004 10:58 am

TCL hunt

2004-09-10T13:08:46-04:00

Likewise, I am on that too, but will take sometime. In the meanwhile in your previous scripts you can add a line like this

Code:

if {([matchattr $hand ov|ov $chan])} { return 0 }#This will exempt global and channel ops/voices.

Statistics: Posted by awyeah — Fri Sep 10, 2004 1:08 pm

TCL hunt

2004-09-10T09:33:35-04:00

Mmm... Thanks alot abt the code... But right now i have another problem... I searching for a TCL which kick and ban user out when they have bad nickname... But all of the TCLs i've found doesn't spare Ops, flagged or voiced user at all...

Any recommend script/TCL anyone?

Statistics: Posted by WeiJie — Fri Sep 10, 2004 9:33 am

TCL hunt

2004-09-10T07:04:54-04:00

Here use this now.
Although this script can be further corrected as it not yet in the best shape, but as it works for multiple channels I suggest you use it.

Code:

### Setting options and variables #### What bad realnames should be banned?set badrlist {"sex""xxx""horny""bitch""asshole""pussy""penis""naked""blowjob"}# Set the channels to kick onset badrcheck "#funchat #gossip #giggles #usa #elite"# Set the kick messageset badrkick "bad channel found!"# For how many minutes would you like to ban?set badrtime "60"### SCRIPT ###bind join - * brealname:joinbind raw - 311 brealname:checkproc brealname:join {nick uhost hand chan} {  global botnick badrcheck  if {([lsearch -exact [split [string tolower $badrcheck]] [string tolower $chan]] != -1) && (![string equal -nocase $botnick $nick]) && (![matchattr $hand of|fo $chan])} {  putserv "WHOIS $nick"; return 0  }}proc brealname:check {from keyword arg} { global botnick badrcheck badrlist badrkick badrtime  set realname [string tolower [ctrl:filter [lindex [lrange [split $arg ":"] 1 end] 0]]]  set nick [lindex $arg 1]; set uhost [getchanhost $nick]  foreach realnamechan [string tolower $badrcheck] {   if {([botisop $realnamechan]) && (![isop $nick $realnamechan]) && (![isvoice $nick $realnamechan]) && ([onchan $nick $realnamechan])} {   foreach name [string tolower $badrlist] {   if {([string match -nocase *$name* $realname])} {    putserv "MODE $realnamechan +b *!*@[lindex [split $uhost "@"] 1]"    putserv "KICK $chan $realnamechan :$badrkick"    timer $badrtime "pushmode $chan -b *!*@[lindex [split $uhost "@"] 1]"    return 1    }   }  } }}proc ctrl:filter {str} {  regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str  return $str}

Statistics: Posted by awyeah — Fri Sep 10, 2004 7:04 am

TCL hunt

2004-09-10T06:35:47-04:00

Mmm... I don't really get what u mean thou... ;P

Hehe, I have modified it to work on more than 1 channels. Simply by changing it to a list and then lsearching finding and comparing the channel with the list if it is found.
Code:
And "#*" won't work.

Statistics: Posted by WeiJie — Fri Sep 10, 2004 6:35 am

TCL hunt

2004-09-10T03:49:59-04:00

Hehe, I have modified it to work on more than 1 channels. Simply by changing it to a list and then lsearching finding and comparing the channel with the list if it is found.

Code:

And "#*" won't work.

Statistics: Posted by awyeah — Fri Sep 10, 2004 3:49 am

TCL hunt

2004-09-10T03:28:54-04:00

Could anyone help with this? I just downloaded badrealname.tcl by Papillon and loaded it into my eggdrop, but will it's only allow to scan 1 channel i think... how could i let it scan few #s?

Code:

# The realname check should be done only in what channel?set badr(chan) "#*"

and this won't work?

Statistics: Posted by YooHoo — Fri Sep 10, 2004 3:28 am

TCL hunt

2004-09-10T02:37:33-04:00

Could anyone help with this? I just downloaded badrealname.tcl by Papillon and loaded it into my eggdrop, but will it's only allow to scan 1 channel i think... how could i let it scan few #s?

Statistics: Posted by WeiJie — Fri Sep 10, 2004 2:37 am

TCL hunt

2004-09-07T22:03:45-04:00

Hey, thanks alot... I will try out ur solution/advises...

Statistics: Posted by WeiJie — Tue Sep 07, 2004 10:03 pm

TCL hunt

2004-09-07T21:50:04-04:00

I knew there's this script caled sentine.tcl but quite a time back when i installed it on my botty, perhaps due to my wrong configuration, most of the time the bot will kick numbers of users out during netsplit (when they returned) and this i really withness it.. lolx!

I recommend you to use sentinel.tcl as it is currently one of the best flood protection scripts around. Especially I like the avalanche/tsunami protection, that is really effective.

If you are having troubles with setting up sentinel, then on this same forum in the 'slennoxs scripts' section post a thread with your problem and slennox will get back to you as he is the creator of sentinel.tcl.

As for the netsplit thing make sure you have set this correct in your configuration file so, the bot doesn't kick users on a netsplit rejoin.

Code:

# Set here the time (in seconds) to wait for someone to return from a netsplit# (i.e. wasop will expire afterwards). Set this to 1500 on IRCnet since its# nick delay stops after 30 minutes.set wait-split 600

Hmmm, awyeah, would like u to do me a favour... When u have posted the script that u have mention in this topic, please send me a msg to my forum's inbox or leave a msg here yea? Thanks...

I will release the script publicly on www.egghelp.org's tcl archive when I am done and through with it. Currently it is under test and will take sometime, approx. 2-3times. Unfortunately I haven't been getting so much time to do scripts these days!

Mmm...Cause i have no idea what's the drones or flood bots's nicks...As it was loaded manually by the user 1 by 1 so he can decide on what's the nicks and the username and wadever... Anyway, do anyone have a tcl that will make a bot whois a on-join user and check for their realname and den if it was blacklisted, it will kick + ban him/her out of the #? Will thsi tcl lag the bot too?

Basically my drone nick kicker will exempt all nicks with VOWELS, like nicks which have a, e, i, o, u and y also (if specified). It will match against certain combinations such as if "gv" or "zx" "wc" "rw" etc some of these kinds of combinations are present with a specific nick length and a specific user ident length also checking if the ident is dynamic (with an ~ at the front). All these conditions make it work perfectly fine, especially the dynamic ident (~) makes it easier to detect proxied bots as their idents do not resolve behind a proxy.

There is a tcl named badrealname.tcl search that on tclscript.com or egghelp.org. You can find it go ahead and use it will do the same. WHOIS users on join and check if a matching word is found in the realname it will ban it, with 'newchanban'. If you know how to code tcls you can remove that ban and .chattr [user/host] +k, blacklist and kick/ban that ip range.

Well this tcl will not lag the bot. Depends I had a bad channel kicker it used todo the same check for bad channels on join. It was loaded onto a channel with 300+ users, having 1 user join atleast 1-2secs so my bot was under alot of stress, and it used to die checking fast on join spammers. So I guess if the joining count and time are less it should be okay else if it is a big channel with a large user count and frequent joins of users within 1-5 secs then it might lagg the bot.

Statistics: Posted by awyeah — Tue Sep 07, 2004 9:50 pm

TCL hunt

2004-09-07T08:47:20-04:00

I knew there's this script caled sentine.tcl but quite a time back when i installed it on my botty, perhaps due to my wrong configuration, most of the time the bot will kick numbers of users out during netsplit (when they returned) and this i really withness it.. lolx!

Hmmm, awyeah, would like u to do me a favour... When u have posted the script that u have mention in this topic, please send me a msg to my forum's inbox or leave a msg here yea? Thanks...

Mmm...Cause i have no idea what's the drones or flood bots's nicks...As it was loaded manually by the user 1 by 1 so he can decide on what's the nicks and the username and wadever... Anyway, do anyone have a tcl that will make a bot whois a on-join user and check for their realname and den if it was blacklisted, it will kick + ban him/her out of the #? Will thsi tcl lag the bot too?

You might want to try out sentinel.tcl by slennox on egghelp.org for mass join flood, or join/part protections.

I am currently doing a script similarly to, it will lock the channel to some desired modes so the bots don't text/notice flood. It will prevent mass joins of alot of hosts in a less amount of time, mass joins of 2-3 similar hosts in less than desired secs and mass join/parts of similar hosts in the desired time. Still it is under test and development to some extent.

As for your drone nick problem. I use the script on a channel with 300+ users, regular users i.e. no bots or xdcc bots and it works fine for me. It has never gone mad and starting kicking everyone joining, out of 100 users kicked 2-3 might be innocent. However, likely alot of random nicks might not be kicked as there are alot of variations. It is based on the same pattern of matching which ozscript (mIRC script) uses for nonsense.ini (nosense nicks).

I have daily recorded logs for this estimate. The script won't go mad, although it might kick 1% innocent users sometimes out of the 99% as it is not always perfect. The more matches and exempts you define for it the better it can get, obviously. It is a random/drone nick kicker. I can't give it to you at the moment though, it will be released on egghelp.org when I fully test it as well.

Statistics: Posted by WeiJie — Tue Sep 07, 2004 8:47 am

TCL hunt

2004-09-07T05:11:02-04:00

You might want to try out sentinel.tcl by slennox on egghelp.org for mass join flood, or join/part protections.

I am currently doing a script similarly to, it will lock the channel to some desired modes so the bots don't text/notice flood. It will prevent mass joins of alot of hosts in a less amount of time, mass joins of 2-3 similar hosts in less than desired secs and mass join/parts of similar hosts in the desired time. Still it is under test and development to some extent.

As for your drone nick problem. I use the script on a channel with 300+ users, regular users i.e. no bots or xdcc bots and it works fine for me. It has never gone mad and starting kicking everyone joining, out of 100 users kicked 2-3 might be innocent. However, likely alot of random nicks might not be kicked as there are alot of variations. It is based on the same pattern of matching which ozscript (mIRC script) uses for nonsense.ini (nosense nicks).

I have daily recorded logs for this estimate. The script won't go mad, although it might kick 1% innocent users sometimes out of the 99% as it is not always perfect. The more matches and exempts you define for it the better it can get, obviously. It is a random/drone nick kicker. I can't give it to you at the moment though, it will be released on egghelp.org when I fully test it as well.

Statistics: Posted by awyeah — Tue Sep 07, 2004 5:11 am

TCL hunt

2004-09-07T03:58:26-04:00

Thanks for ur reply... I've think of this solution also, but some user due to the router's or bad identd (not drones/flood bot), they may get kicked out, out of no reason... So I've dropped the thinking instead...

Just ban everyone with no identd and be done with it

Statistics: Posted by WeiJie — Tue Sep 07, 2004 3:58 am