Help Me With This Code

[ZaKiR]

i made a code which will kill someone when connecting with a bad nick... but don`t know why this is not working

Code: Select all

set killnicks { 
"*dick*" 
"nick2" 
"nick3" 
} 
 
set killreason "\00304Réason: \00301\037B\037\00314ad \00301\037N\037\00314ick \00301\037D\037\00314étéctéd\003" 

bind raw - NOTICE client:connect 

proc client:connect {from keyword args} { 
global killnicks killreason 
if {[string match "*Client connecting*" $args]} { 
set usernick [lindex [split $args] 9] 
foreach nick $killnicks { 
if {[string equal -nocase $nick $usernick]} { 
putserv "KILL $nick :$killreason"
break 
} 
} 
} 
} 

I think, may be the following line is not appropriate here

Code: Select all

putserv "KILL $nick :$killreason"

i need some help with that... thanks in advance

[KrzychuG]

Your bot has opper status on that server?

[ZaKiR]

Of couser my bot has oper access

[ZaKiR]

actually this code is working but....

Code: Select all

set killnicks { 
"hell" 
"*hell*" 
}

if someone comes with nick 'hell' it works.. but if someone comes with nick 'sdhellsd' it doesn`t work..

[greenbear]

First, don't use bold text unless its necessary.

Replace this line:

Code: Select all

if {[string equal -nocase $nick $usernick]} {

with this:

Code: Select all

if {[string match -nocase *$nick* $usernick]} {

and you only need "hell" listed in killnicks

[DarkJFMan]

Not sure if this might work, but also try

Code: Select all

"% *hell*"

[ZaKiR]

Code: Select all

set killnicks { 
"hell" 
} 
 
set killreason "\00304Réason: \00301\037B\037\00314ad \00301\037N\037\00314ick \00301\037D\037\00314étéctéd\003" 

bind raw - NOTICE client:connect 

proc client:connect {from keyword args} { 
global killnicks killreason 
if {[string match "*Client connecting*" $args]} { 
set usernick [lindex [split $args] 9] 
foreach nick $killnicks { 
if {[string match -nocase *$nick* $usernick]} { 
putserv "KILL $nick :$killreason"
break 
} 
} 
} 
} 

It's working for nick 'hell' but not working for nick 'hell123'
but if i change it to

Code: Select all

set killnicks { 
"*hell*" 
} 

then it doesn`t work for 'hell' and 'hell123' both

[awyeah]

I'd say this code should work for anything matching
the words:

dgdsgdhelldgfdgfdg
shell
gotohellloser
lamersinhell

And so on because wildcards are on
both sides of the string match *badword*

Because the words are specificed as *hell*
so there for any match on both left and right
hand sides will give results.

Code: Select all

set killnicks { 
"hell" 
"loser"
"dick"
"bitch"
} 
  
set killreason "\00304Réason: \00301\037B\037\00314ad \00301\037N\037\00314ick \00301\037D\037\00314étéctéd\003" 

bind raw - NOTICE client:connect 

proc client:connect {from keyword args} { 
 global killnicks killreason 
   if {[string match -nocase "*client connecting*" $args]} { 
    set usernick [lindex [split $args] 9] 
     foreach badnick $killnicks { 
      if {[string match -nocase *$badnick* $usernick]} { 
       putserv "KILL $badnick :$killreason" 
       return 0
      } 
    } 
  } 
}

[ZaKiR]

Code: Select all

set killnicks { 
"hell" 
"loser" 
"dick" 
"bitch" 
} 
  
set killreason "\00304Réason: \00301\037B\037\00314ad \00301\037N\037\00314ick \00301\037D\037\00314étéctéd\003" 

bind raw - NOTICE client:connect 

proc client:connect {from keyword args} { 
 global killnicks killreason 
   if {[string match -nocase "*client connecting*" $args]} { 
    set usernick [lindex [split $args] 9] 
     foreach badnick $killnicks { 
      if {[string match -nocase *$badnick* $usernick]} { 
       putserv "KILL $badnick :$killreason" 
       return 0 
      } 
    } 
  } 
} 

this code this totally not working... i used nick like 'hell' 'ashellas' ... but this code this not working

[DarkJFMan]

I told you give

Code: Select all

"% *hell*"

a try...

[ZaKiR]

Code: Select all

set killnicks { 
"% *hell*" 
"% *dick*" 
"% *bitch*" 
} 

set killreason "\00304Réason: \00301\037B\037\00314ad \00301\037N\037\00314ick \00301\037D\037\00314étéctéd\003" 

bind raw - NOTICE client:connect 

proc client:connect {from keyword args} { 
global killnicks killreason 
if {[string match -nocase "*client connecting*" $args]} { 
set usernick [lindex [split $args] 9] 
foreach badnick $killnicks { 
if {[string match -nocase *$badnick* $usernick]} { 
putserv "KILL $badnick :$killreason" 
return 0 
} 
} 
} 
}

this is not working also

[awyeah]

You dont need to set the characters % or * in your wordlist.
Just set your words in between quotation marks after spaces or in new lines.

The string matching procedure has *'s on both sides, so its
useless to use those.

[DarkJFMan]

and also make sure you put that script in a new file, because if you have too many scripts on same file, they'll interact causing others to crash.

[user]

and also make sure you put that script in a new file, because if you have too many scripts on same file, they'll interact causing others to crash.

Putting the code in a new file makes no difference what so ever unless you source the resulting file into another interpreter/namespace.

[Alchera]

Code: Select all

set killnicks { 
  *hell*
  *dick* 
  *bitch*
} 

Try this?