egghelp/eggheads community

bad channel with wildcard

2015-06-04T13:15:00-04:00

this is the idea in msl could some one translated it to tcl

it would be apreciated tnx in advance

Code:

ON !*:JOIN:#: {  IF ($nick(#,$me,@&~%)) { whois $nick } }Raw 319:*: {    IF ($regex($3-,/ $+ $regsubex(sex|incest|[sf]uck|h[0o][0o]|anal|fag|[censored]|ass|pussy|twat|gay,//g,.*) $+ /i)) {     VAR %bchans = $regml(1)    VAR %t = $comchan($2,0)    WHILE (%t) {      var %chanz1 = $comchan($2,%t)      IF ($nick(%chanz1,$me,@&~%)) {        mode %chanz1 +b $address($2,4)         kick %chanz1 $2 your on a banned channel ( $+  $+($chr(35),*,%bchans,*) $+ ) leave it and rejoin.      }      DEC %t    }  }}

Statistics: Posted by simo — Thu Jun 04, 2015 1:15 pm

bad channel with wildcard

2015-05-31T11:52:50-04:00

For one thing, the author misuses the argument args.
Please try this proc instead of the current one...

Code:

proc bad:chan:chk {from mask arg} {   global badchanwrds colore   set arg [split $arg]   set nick [lindex $arg 1]   set listchans [lrange $arg 2 end]   regexp -- {^:?(.*)$} [join $listchans] -> text   set text [split $text]   regsub -all $colore $text {} text   foreach txt $text {     foreach bw $::badchanwrds {       if {[string match -nocase "$bw" "$txt"]} {         badchan:kick $nick $bw         break       }     }   } }

Statistics: Posted by SpiKe^^ — Sun May 31, 2015 11:52 am

bad channel with wildcard

2015-05-31T10:46:32-04:00

hmm odd if you tested the same exact code and it did the ban could you post final code i might did some typo

Statistics: Posted by simo — Sun May 31, 2015 10:46 am

bad channel with wildcard

2015-05-31T10:38:44-04:00

i did the sugestion you posted it still doesnt ban if bad chan is detected

With a very brief test, for me it did do the ban.

would you recommend another tcl wich has the option of wildcard

like: ch*annel*

No, sorry. I have not looked closely.

I like, and use, All Protection. It can do this, but I don't recall if it can use wildcards. Obviously, I don't use that function.
It has a LOT of different protection functions.

If you want to check it out, the link to the author's download site/blog is in his post here:
http://forum.egghelp.org/viewtopic.php?p=101239#101239

Statistics: Posted by willyw — Sun May 31, 2015 10:38 am

bad channel with wildcard

2015-05-31T10:26:36-04:00

i did the sugestion you posted it still doesnt ban if bad chan is detected

would you recommend another tcl wich has the option of wildcard

like: ch*annel*

Statistics: Posted by simo — Sun May 31, 2015 10:26 am

bad channel with wildcard

2015-05-31T10:05:45-04:00

....and does nothing else

Find this:

Code:

 foreach chan $bchan_chans {      if {[onchan $nick $chan]} {         if {([isop $nick $chan]) || (![botisop $chan])} {return 0}         set bmask [getchanhost $nick $chan] ; set bmask [lindex [split $bmask @] 1]         putquick "MODE $chan +b *!*@$bmask" -next         putquick "KICK $chan $nick : $bchan_kmsg ($bchan)" -next         return 0      }      return 0   }

Change to:

Code:

foreach chan $bchan_chans {      if {[onchan $nick $chan]} {         if {([isop $nick $chan]) || (![botisop $chan])} {return 0}         set bmask [getchanhost $nick $chan] ; set bmask [lindex [split $bmask @] 1]         putquick "MODE $chan +b *!*@$bmask" -next         putquick "KICK $chan $nick : $bchan_kmsg ($bchan)" -next         return 0      }    ##  return 0   }

also it would help if throtle could be integrated so bot wont be disconnected if mass bots join channel choking the bot

Sorry.
I don't care for this script.
When looking at someone else's code, it is always difficult enough.
This one though, just seems extra strange to me. Before I would do much more with it, I think I would just start over.

However, if you wish to continue with it, you can search this forum, for a couple of posts by the forum name of:
user

He posted a short throttle script, in a couple versions, some time ago. They are still here on the forum.
You can find them, examine them, and implement one of them if you wish.

Statistics: Posted by willyw — Sun May 31, 2015 10:05 am

bad channel with wildcard

2015-05-31T08:40:18-04:00

also it would help if throtle could be integrated so bot wont be disconnected if mass bots join channel choking the bot

Statistics: Posted by simo — Sun May 31, 2015 8:40 am

bad channel with wildcard

2015-05-31T07:05:24-04:00

thanx for your reply willy i changed that and i also just tried your solution but it doesnt seem to help it whoises and does nothing else

and im not gettin any error neither

Statistics: Posted by simo — Sun May 31, 2015 7:05 am

bad channel with wildcard

2015-05-30T23:33:25-04:00

You changed this line, correct?

Code:

set bchan_chans "*"

Instead of a list of chans, you changed it to that asterisk ?

At a fast glance (I have not tested it) try this:

comment out that line, then add a new line:

Code:

# set bchan_chans "*" set bchan_chans [channels]

reference:
http://www.eggheads.org/support/egghtml ... mands.html
and find the
channels
command there and see the description.

I hope this helps.

Statistics: Posted by willyw — Sat May 30, 2015 11:33 pm

bad channel with wildcard

2015-05-30T19:20:42-04:00

hi folks,

i was wondering why this bad chan tcl doesnt work properly all i changed is the channel kicker cause i wanted it to work on all channels bot is sitting

Code:

bind join - * bad:whoisbind raw - 319 bad:chan:chk# Set your Bad channel kicker's CHANNELS here (Type in lower case)set bchan_chans "*"# Set your Bad channel kicker's KICK MSG hereset bchan_kmsg "You are on a bad channel"######### Stop editing here, unless u know how to #####set badchanwrds {"*incest*""*sex*""*gay*"}proc bad:whois {n h c a} {global join_ctrif {[isbotnick $n]} {return 0}set c [string tolower $c]if {[matchattr $h f]} {return 0}putserv "WHOIS $n"if {![info exists join_ctr($c)]} {set join_ctr($c) 0}incr join_ctr($c) 1if {$join_ctr($c) >= "5"} {set join_ctr($c) 1if {[catch {unbind join - * bad:whois}]} {}utimer 2 whois:reset}}proc whois:reset {} {bind join - * bad:whois}set colore {([\002\017\026\037]|[\003]{1}[0-9]{0,2}[\,]{0,1}[0-9]{0,2})}proc bad:chan:chk {from mask args} {global badchanwrds coloreset args [split $args]set nick [lindex $args 1]set listchans [lrange $args 2 end]regexp -- {^:?(.*)$} [join $listchans] -> textset text [split $text]regsub -all $colore $text {} textforeach txt $text {foreach bw $::badchanwrds {if {[string match -nocase "$bw" "$txt"]} {badchan:kick $nick $bwbreak}}}}proc badchan:kick {nick bchan} {global bchan_chans bchan_bantime bchan_kmsgforeach chan $bchan_chans {if {[onchan $nick $chan]} {if {([isop $nick $chan]) || (![botisop $chan])} {return 0}set bmask [getchanhost $nick $chan] ; set bmask [lindex [split $bmask @] 1]putquick "MODE $chan +b *!*@$bmask" -nextputquick "KICK $chan $nick : $bchan_kmsg ($bchan)" -nextreturn 0}return 0}}foreach c $bchan_chans {set join_ctr($c) 0}array set join_ctr {}putlog "badchan.tcl Banned Channel Protection loaded."

Statistics: Posted by simo — Sat May 30, 2015 7:20 pm