egghelp/eggheads community

Badnick script

2002-09-06T08:52:41-04:00

Thank you Mapherick

Statistics: Posted by sys — Fri Sep 06, 2002 8:52 am

Badnick script

2002-09-04T18:50:45-04:00

a solution would be:

Code:

## Badnick scans set bnick_nicks {"badnick"}## channels to watchset bnick_chans {"#badchan"}## ban time in minutes (0 == perm)  set bnick_time 60bind nick - * bnick_nickbind join - * bnick_joinproc bnick_nick {nick uhost hand chan newnick} {  global bnick_chans  foreach ch $bnick_chans {    if {[onchan $newnick $ch]} {      bnick_check $newnick $uhost $hand $chan      return 1    }  }  return 0}proc bnick_join {nick uhost hand chan} {  global bnick_chans  foreach ch $bnick_chans {    if {[onchan $nick $ch]} {      bnick_check $nick $uhost $hand $chan      return 1    }  }  return 0}proc bnick_check {nick uhost hand chan} {  global bnick_nicks botnick bnick_time  if {([matchattr $hand b]) || ($nick == $botnick)} {return 0}  foreach badnick $bnick_nicks {    if {[string match "*[string tolower $badnick]*" [string tolower $nick]]} {      set banmask "*!*[string range $uhost [string first "@" $uhost] end]"      newchanban $chan $uhost $botnick "Please do not use $badnick on this channel" $bnick_time none      return 0    }  }}

BTW: Perm banning [badnick]!*@* works as well ofcourse

Statistics: Posted by Guest — Wed Sep 04, 2002 6:50 pm

Badnick script

2002-09-01T07:05:22-04:00

I need help in this small script please.
This tcl script kick/ban a certain nick on changed. I want the script also to kick/ban a same nick on join with ban time, and on specific channels.
such as:
set bandnickchan "#chan1 #chan2"

Thank you.

## code ##

## Badnick scans
set badnicks {
"[censored]"
"bitch"
"asshole"
}

bind nick - * Detected_changebad

proc Detected_changebad {nick uhost hand chan newnick} {
global badnicks botnick
if {(![matchattr $hand b]) && ($nick != $botnick)} {
foreach badchange [string tolower $badnicks] {
if {[string match *$badchange* [string tolower $newnick]]} {
set banmask "*!*[string range $uhost [string first "@" $uhost] end]"
putserv "MODE $chan +b $banmask"
putserv "KICK $chan $newnick :Please do not use Badnick on this channel"
return 0
}
}
}
}

Statistics: Posted by sys — Sun Sep 01, 2002 7:05 am