Help pls (TCL Request)

tHeaCme · Post by **tHeaCme** » Wed Nov 22, 2006 7:33 pm

If the nick, the fullname of the user who enters to the server matches with one of the nicks which I creadted I want it to be banned.

eg: The words inTXT
*merhaba*
*hale*
*selam*
*husnu*

In matching condition I need a tcl which bans directly. do you the any similar tcl.

the spammer bot's attacking way is like this:

it takes random string in front of or behind the the words in the list and it is delivered to the nicks or full name in this way.
Eg txt :
merhaba
osman
kazim

eg: it took kazim randomly from the line and made the nick kazimxx

other random took osman from the other line and made the realname xosman11

I think now it is more clear

Post by **Sir_Fz** » Wed Nov 22, 2006 8:07 pm

Use demond's xchannel.tcl, it can detect bad real names.

tHeaCme · Post by **tHeaCme** » Wed Nov 22, 2006 8:22 pm

Sir_Fz wrote:Use demond's xchannel.tcl, it can detect bad real names.

thats not what i looking for

tHeaCme · Post by **tHeaCme** » Thu Nov 23, 2006 9:52 pm

can anybody help me ?

rosc2112 · Post by **rosc2112** » Fri Nov 24, 2006 1:09 am

tHeaCme wrote: In matching condition I need a tcl which bans directly. do you the any similar tcl.

Plenty of those in the tcl archive, including the one recommended already by sir_fz.

cache · Post by **cache** » Tue Nov 28, 2006 12:51 am

Code: Select all

set badnicks [list "*nick1*" "*nick2*" "*nick3*"] 

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

proc ban:bnick {nick uhost hand chan {nn ""}} { 
global badnicks 
set bbanmask "*$nick*!*@*" 
if {$nn == ""} { set nn $nick } 
if {![isbotnick $nick]} { 
  foreach badnick $badnicks { 
   if {[string match -nocase  $badnick $nn]} { 
    putserv "KICK $chan $nick :Nickname not allowed on this channel!"
    putserv "KICK $chan $nick :Nickname not allowed on this channel!" 
    break 
   } 
  } 
 } 
}

metroid · Post by **metroid** » Tue Nov 28, 2006 3:21 am

That script doesn't actually make much sense if you don't mind me saying.

Also, why KICK the same nick twice?

dusk · Post by **dusk** » Tue Nov 28, 2006 5:57 am

metroid wrote:That script doesn't actually make much sense if you don't mind me saying.

Also, why KICK the same nick twice?

Guess one of the two kicks was meant to be a ban...why setting a banmask otherwise??

cache · Post by **cache** » Tue Nov 28, 2006 1:02 pm

metroid wrote:That script doesn't actually make much sense if you don't mind me saying.

Also, why KICK the same nick twice?

I just simple threw it in from one of my scripts, wasn't going to alter it for them lol. However it works.

metroid · Post by **metroid** » Tue Nov 28, 2006 2:07 pm

Code: Select all

set badnicks [list "*nick1*" "*nick2*" "*nick3*"]

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

proc ban:bnick {nick uhost hand chan {nn ""}} {
  global badnicks
  if {$nn == ""} {
    set nn $nick
  }

  foreach badnick $badnicks {
    if {[string match -nocase  $badnick $nn]} {
      putquick "MODE $chan +b $nn!*@*"
      putserv "KICK $chan $nn :Nickname not allowed on this channel!"
    }
  }
}

cache · Post by **cache** » Tue Nov 28, 2006 4:49 pm

Oh well least im learning lol

egghelp/eggheads community

Help pls (TCL Request)

Help pls (TCL Request)

Re: Help pls (TCL Request)