warn once, then ban after 3 minutes

[avatar132]

hi, i've been trying to figure out how to do this but im totally lost.

Im tryin to get a script that will check a user's nickname on join for 2 things

1.) the word girl in the nick. if it sees girl it will ask the user once to change it, if they dont they will be banned in 3 minutes

2.) if a nick has numbers in it that are under 18 but excluding single digitals 10-17 maybe, (i.e.: kenola14 but not kenola1), it kick/ban the person and msg "you being banned because you are underage, if this incorrect please contact an op"

i was looking thru the forum, i could of swarn someone asked for something close to this a couple weeks ago but i couldnt find it

thanks in advance!

[demond]

lol

[avatar132]

lol?

[demond]

I don't know who you are really targeting, spammers and imposters or girls and children, but such naive effort won't stop anybody

[Sir_Fz]

Or maybe it's a gay channel

[avatar132]

Its a 18+ Cybersex channel, [edited]... its getting very popular, 48+ daily. Honestly i dont know why they like to cyber, done it once didnt like it.. but we are gettin alot of underage in, already got a few scripts set in place.. that are helping big time, most of them had to modify to my needs.
but we have a VERY strict poilcy on young people in here

[Alchera]

I agree with demond; such efforts will not stop perverts let alone kids. So, underage boys are ok to enter but not girls?

Seriously, have you tried setting a channel key? Some kids actually have trouble fathoming channel keys. Setting it +s or +p (private) may also help. There's no real TCL solution.

[Sir_Fz]

You don't have to explain yourself, and next time don't open a new topic about it. (it went directly into the junk yard)

Code: Select all

bind join - "#gangbangsluts *" check:nick
bind time - * kick:girl

proc check:nick {n u h c} {
 global gotgirl
 if {[string match {*1[0234567]} $n]} {
  putserv "kick $c $n :Underaged user, if incorrect msg one of the ops."
  putserv "mode $c +b *!*@[lindex [split $u] 1]"
 } elseif {[string match -nocase *girl* $n]} {
  if {![info exists gotgirl([string tolower $n:[lindex [split $u @] 1]])]} {
   set gotgirl([string tolower $n:[lindex [split $u @] 1]]) [unixtime]
   puthelp "notice $n :You have 3 minutes to change your nick or else you'll get banned."
  }
 }
}

proc kick:girl {m args} {
 global gotgirl
 foreach {nu t} [array get gotgirl] {
  if {([unixtime] - $t)/60 >= 3} {
   if {[onchan [set n [lindex [split $nu :] 0]] #gangbangsluts]} {
    putserv "kick #gangbangsluts $n :You have the phrase girl in your nick which is against our chan's policy"
    putserv "mode #gangbangsluts +b *!*@[lindex [split $nu :] 1]"
   }
   unset gotgirl($nu)
  }
 }
}

[avatar132]

Worked perfect Sir_Fz, thank you!

this script will also be servered as a learnning tool for myself, so i can understand some of the verablies... is there any good learner help sites for tcl?

[avatar132]

Alchera Said:
So, underage boys are ok to enter but not girls?

Surprisingly we dont have a problem with underage boys, maybe once or twice, but no where next needing to writing up a script for it

[Sir_Fz]

this script will also be servered as a learnning tool for myself, so i can understand some of the verablies... is there any good learner help sites for tcl?

Suninet's Guide to Tcl Scripting for Eggdrop is a good start + Reading Tcl-commands.doc and the Tcl Commands Manual.

[demond]

Alchera Said:
So, underage boys are ok to enter but not girls?

Surprisingly we dont have a problem with underage boys, maybe once or twice, but no where next needing to writing up a script for it

one would think it should be other way around