This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

warn once, then ban after 3 minutes

Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
Post Reply
a
avatar132
Voice
Posts: 21
Joined: Sat Dec 17, 2005 12:20 am

warn once, then ban after 3 minutes

Post by 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!
User avatar
demond
Revered One
Posts: 3073
Joined: Sat Jun 12, 2004 9:58 am
Location: San Francisco, CA
Contact:

Post by demond »

lol
connection, sharing, dcc problems? click <here>
before asking for scripting help, read <this>
use

Code: Select all

 tag when posting logs, code
a
avatar132
Voice
Posts: 21
Joined: Sat Dec 17, 2005 12:20 am

Post by avatar132 »

lol?
User avatar
demond
Revered One
Posts: 3073
Joined: Sat Jun 12, 2004 9:58 am
Location: San Francisco, CA
Contact:

Post by 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
connection, sharing, dcc problems? click <here>
before asking for scripting help, read <this>
use

Code: Select all

 tag when posting logs, code
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

Or maybe it's a gay channel :P
a
avatar132
Voice
Posts: 21
Joined: Sat Dec 17, 2005 12:20 am

Post by 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
User avatar
Alchera
Revered One
Posts: 3344
Joined: Mon Aug 11, 2003 12:42 pm
Location: Ballarat Victoria, Australia
Contact:

Post by 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.
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by 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)
  }
 }
}
a
avatar132
Voice
Posts: 21
Joined: Sat Dec 17, 2005 12:20 am

Post by 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?
a
avatar132
Voice
Posts: 21
Joined: Sat Dec 17, 2005 12:20 am

Post by 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
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

avatar132 wrote: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.
User avatar
demond
Revered One
Posts: 3073
Joined: Sat Jun 12, 2004 9:58 am
Location: San Francisco, CA
Contact:

Post by demond »

avatar132 wrote:
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 :)
connection, sharing, dcc problems? click <here>
before asking for scripting help, read <this>
use

Code: Select all

 tag when posting logs, code
Post Reply