egghelp/eggheads community

detect Nick with length longer than 20 char in it

2017-01-02T20:46:36-04:00

loaded and tested it works really wel Spike^^ thanx again

Statistics: Posted by simo — Mon Jan 02, 2017 8:46 pm

Bad-Nick script.

2017-01-02T19:34:22-04:00

A more complete example of the bad-nick script.

fixed an issue where nick-length bans were ignoring the bchan setting.
cleaned up a little.
added the reason setting.
both scan modes now set proper nick bans.

Code:

# 1) Ban nicks for containing any of these words. #set bnick {      "bad"      "words"      "one"      "to"      "each"      "line" } # 2) Ban nicks for being very long?? ##    0 = do not ban nicks as too long ##  10+ = ban any nick this long or longer #set blong 0# Set this to "" (= all channels)  or "#channel" or "#chan #chan2 #nother" set bchan ""# Set the reason for the kick/ban. #set kickreason "BadNick: Change your nick and re-join."## End of Settings ##bind join - * join:checkbadnick bind nick - * nick:tvrsh set bchan [split [string trim [string tolower $bchan]]]proc nick:tvrsh {nick uhost hand chan newnick} {    join:checkbadnick $newnick $uhost $hand $chan } proc join:checkbadnick {nick uhost hand chan} {  global bnick bchan kickreason blong if {($bchan ne "") && ([lsearch -exact $bchan [string tolower $chan]] == -1)} {   return 0 } set bad 0 if {($blong > 9) && ([string length $nick] >= $blong)} {  set bad 1   #putquick "MODE $chan  +b  *!*@[lindex [split $uhost @] 1]"   putquick "MODE $chan  +b  $nick!*@*" } else {   foreach i [string tolower $bnick] {     if {[string match *$i* [string tolower $nick]]} {       putquick "MODE $chan  +b  *$i*!*@*"       #putquick "MODE $chan  +b  $nick!*@*"      set bad 2  ;  break     }    }  }  if {$bad > 0} {   putquick "KICK $chan $nick :$kickreason"  } }

Statistics: Posted by SpiKe^^ — Mon Jan 02, 2017 7:34 pm

detect Nick with length longer than 20 char in it

2017-01-01T19:45:56-04:00

great works fine thx Spike^^

add the kickreason var tho

Statistics: Posted by simo — Sun Jan 01, 2017 7:45 pm

detect Nick with length longer than 20 char in it

2017-01-01T18:22:11-04:00

Added new unrelated function to an existing "bad-words in nick" script.

Script can now kick/ban for nicks being too long¿...

Code:

# NEW Nick-Too-Long setting ## 0 = do not ban nicks as too long ## 10+ = ban any nick this long or longer #set blong 0set bnick {      "bad"      "words"      "one"      "to"      "each"      "line"  } # set this to "" or "#channel" or "#chan #chan2 #nother"set bchan ""## End of Settings ##bind join - * join:checkbadnick bind nick - * nick:tvrsh set bchan [split [string trim [string tolower $bchan]]]proc nick:tvrsh {nick uhost hand chan newnick} {    join:checkbadnick $newnick $uhost $hand $chan } proc join:checkbadnick {nick uhost hand chan} {  global bnick bchan kickreason blong set bad 0 if {($blong > 9) && ([string length $nick] >= $blong)} {  set bad 1   putquick "MODE $chan  +b  *!*@[lindex [split $uhost @] 1]" } elseif {([lsearch -exact $bchan [string tolower $chan]] != -1)  || ($bchan == "")} {   foreach i [string tolower $bnick] {     if {[string match *$i* [string tolower $nick]]} {       set badpart $i       set bad 2  ;  break     }    }    if {$bad == 2} {     putquick "MODE $chan  +b  *$badpart*!*@*"    }  }  if {$bad > 0} {   putquick "KICK $chan $nick :$kickreason"  } }

Statistics: Posted by SpiKe^^ — Sun Jan 01, 2017 6:22 pm

detect Nick with length longer than 20 char in it

2017-01-01T15:27:57-04:00

Script makes no restriction as to nick length.

Your Eggdrop and/or network may:)

yea perhaps i wasnt clear with the request

the question wasnt if the script restricted anything the request was to modify it to make it detect nicks longer than 20 char in it and than place ban / kick

tnx.

Statistics: Posted by simo — Sun Jan 01, 2017 3:27 pm

detect Nick with length longer than 20 char in it

2016-12-31T16:08:30-04:00

Script makes no restriction as to nick length.

Your Eggdrop and/or network may:)

Statistics: Posted by SpiKe^^ — Sat Dec 31, 2016 4:08 pm

detect Nick with length longer than 20 char in it

2017-01-01T21:25:51-04:00

greetz how can this code be modify to detect nicks on join and nickchange longer than 20

Code:

set bnick {    "HOMO"    "h0mo"    "hom0"    "gay"    "assho"    "pussy"    "[censored]"    "cock"    "dick"    "anus"    "suck"    "[censored]"    "aars"    "tits"    "boob"    "lick"    "sex"    "anal"}set bchan ""bind join - * join:checkbadnickbind nick - * nick:tvrshproc nick:tvrsh {nick uhost hand chan newnick} {    join:checkbadnick $newnick $uhost $hand $chan}proc join:checkbadnick {nick uhost hand chan} {global bnick bchan kickreason tempif {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1)  || ($bchan == ""))} {  set temp 0foreach i [string tolower $bnick] {if {[string match *$i* [string tolower $nick]]} {        set badpart $iset temp 1 } }}if {!$temp} { return } {putquick "MODE $chan  +b  *$badpart*!*@*"putquick "KICK $chan $nick :$kickreason" } }

Statistics: Posted by simo — Sat Dec 31, 2016 10:04 am