Make this channel specific?

[DJmart]

Code: Select all

set badnicks [list "*[censored]*" "*dyn_*" "*dyn_user*"]

bind join - * ban:bnick
bind nick - * ban:bnick

proc ban:bnick {nick uhost hand chan {nn ""}} {
global badnicks
set 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!

[De Kus]

such a feature has been posted like 30 times.

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

[DJmart]

could you post it?

I am an uber noob with TCL

[Sir_Fz]

You can create a list of channels

Code: Select all

set bnchans {#chan1 #chan2}

and use

Code: Select all

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.

[DJmart]

Code: Select all

set badnicks [list "*[censored]*" "*dyn_*" "*dyn_user*"]
set bnchans {#aite}

bind join - * ban:bnick
bind nick - * ban:bnick

proc ban:bnick {nick uhost hand chan {nn ""}} {
if {[lsearch -exact $bnchans $chan] == -1} {return 0}
global badnicks
set 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: Select all

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

[De Kus]

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: Select all

[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.