egghelp/eggheads community

Make this channel specific?

2006-04-02T12:02:50-04:00

you would want to make the channels lower-case since [lsearch] is case-sensitive.

I'd recommned using the same capitalition as the bot knows them (like shown in .status).

I get an error, is there something I did wrong?
Code:
[08:12] Tcl error [ban:bnick]: can't read "bnchans": no such variable

Read this again:

bnchans should be globalized inside the proc

that means you either add it to the global line or add :: behind the $ for each call to that var within a proc.

Statistics: Posted by De Kus — Sun Apr 02, 2006 12:02 pm

Make this channel specific?

2006-04-02T11:15:51-04:00

Code:

set badnicks [list "*[censored]*" "*dyn_*" "*dyn_user*"]set bnchans {#aite}bind join - * ban:bnickbind nick - * ban:bnickproc ban:bnick {nick uhost hand chan {nn ""}} {if {[lsearch -exact $bnchans $chan] == -1} {return 0}global badnicksset bbanmask "*!*@[lindex [split $uhost @] 1]"if {$nn == ""} { set nn $nick }if {![isbotnick $nick]} {  foreach badnick $badnicks {   if {[string match -nocase  $badnick $nn]} {    putserv "MODE $chan +b $bbanmask"    putserv "KICK $chan $nick :Please Identify, before you enter this channel, and or make sure you auto-ident when you disconnect This ban will expire in 15 Minutes ."    break   }  } }}

I get an error, is there something I did wrong?

Code:

[08:12] Tcl error [ban:bnick]: can't read "bnchans": no such variable

Statistics: Posted by DJmart — Sun Apr 02, 2006 11:15 am

Make this channel specific?

2006-04-02T10:11:44-04:00

You can create a list of channels

Code:

set bnchans {#chan1 #chan2}

and use

Code:

if {[lsearch -exact $bnchans $chan] == -1} {return 0}

inside your proc(s). Here ofcourse, bnchans should be globalized inside the proc and you would want to make the channels lower-case since [lsearch] is case-sensitive.

Statistics: Posted by Sir_Fz — Sun Apr 02, 2006 10:11 am

Make this channel specific?

2006-04-01T19:52:53-04:00

could you post it?

I am an uber noob with TCL

Statistics: Posted by DJmart — Sat Apr 01, 2006 7:52 pm

Make this channel specific?

2006-04-02T08:40:57-04:00

such a feature has been posted like 30 times.

Edit: http://forum.egghelp.org/search.php

Statistics: Posted by De Kus — Sat Apr 01, 2006 4:18 pm

Make this channel specific?

2006-04-01T12:49:21-04:00

Code:

set badnicks [list "*[censored]*" "*dyn_*" "*dyn_user*"]bind join - * ban:bnickbind nick - * ban:bnickproc ban:bnick {nick uhost hand chan {nn ""}} {global badnicksset bbanmask "*!*@[lindex [split $uhost @] 1]"if {$nn == ""} { set nn $nick }if {![isbotnick $nick]} {  foreach badnick $badnicks {   if {[string match -nocase  $badnick $nn]} {    putserv "MODE $chan +b $bbanmask"    putserv "KICK $chan $nick :Please Identify, before you enter this channel, and or make sure you auto-ident when you disconnect This ban will expire in 15 Minutes ."    break   }  } }}

Thats the code, yet, I want this to be for user defined channels such as

Channels: "#lamer" "#Smile"

Thanks!

Statistics: Posted by DJmart — Sat Apr 01, 2006 12:49 pm