egghelp/eggheads community

Thanks for all your efforts.

2003-12-26T14:03:14-04:00

Sir_Fz,

Thanks for all your effort in trying to c0de that script for me, but as of yet I am still reading up on the TCL language. I like to dabble in scripting but haven't had a chance to learn very much as of yet. Found a few documents and manuals on this site that have been very helpful.

I was really hoping to find the original pre-made script as it was actually a little more involved than just this. It repeated the ask at 20 second intervals, remembered the number of times the person answered wrong, permanently banned them after 3 tries and also had a maximum age of xx, responding with, "You're too old!!" heh In addition it aked through a notice and didn't care if the person said in channel simply "21" or said, "I am 21" it knew the difference.

Regardless, thanks for the sample. It has renewed my interest in learning the TCL language structure and syntax.

Thanks again.

BigSmoke

Statistics: Posted by Guest — Fri Dec 26, 2003 2:03 pm

Looking for a script.

2003-12-26T07:49:53-04:00

Oh yeah, he's a great person hehe.

Someone has a big ego, and it's not me...

Statistics: Posted by dollar — Fri Dec 26, 2003 7:49 am

Looking for a script.

2003-12-25T19:00:11-04:00

Oh yeah, he's a great person hehe.

anyway I edited it hush..

Statistics: Posted by Sir_Fz — Thu Dec 25, 2003 7:00 pm

Looking for a script.

2003-12-25T15:55:57-04:00

Someone named Sir_Fz do you knw that guy?

Statistics: Posted by caesar — Thu Dec 25, 2003 3:55 pm

Looking for a script.

2003-12-25T09:56:58-04:00

Ofcurse it does ! who did that mistake lol

Statistics: Posted by Sir_Fz — Thu Dec 25, 2003 9:56 am

Looking for a script.

2003-12-25T08:05:19-04:00

bind join - * ask:user

proc join {nick uhost hand chan} {

Shouldn't that be 'proc ask:user'?

Statistics: Posted by dollar — Thu Dec 25, 2003 8:05 am

Looking for a script.

2003-12-25T18:53:48-04:00

Code:

# minimum age allowed (above 10) ?set minage 18# kick after how many seconds of silence ?set aftsecs 30bind join - * ask:userbind pubm - 1? voice:userproc ask:user {nick uhost hand chan} {global aftsecs noansputhelp "PRIVMSG $nick :What is your age please ?"set noans([string tolower $nick]) 1utimer $aftsecs [list kick:user $nick $uhost $chan]}proc voice:user {nick uhost hand chan arg} {global minage noansif {[lindex arg 0] >= $minage} { putserv "MODE $chan +v $nick" if {[info exists $noans([string tolower $nick])]} {  unset noans([string tolower $nick])  }} { ## User is under age }}proc kick:user {nick uhost chan} {global noansif {[info exists noans([string tolower $nick])]} { newchanban $chan *!*@[lindex [split $uhost @] 1] noans "No answer For age" 1 unset noans([string tolower $nick]) }}

this will ask the nick his age on join. if = or more than minimum age it will voice the user, if no answer after the set time he will be banned for 1 minute.

EDIT: corrected 'proc join' to 'proc ask:user'

Statistics: Posted by Sir_Fz — Wed Dec 24, 2003 6:02 pm

Looking for a script.

2003-12-24T13:14:17-04:00

Thanks for the point in the right direction firepac.

I checked the TCL archives before I asked in here and didn't see the script I was looking for. I tried checking the greet scritps. I did a global searched on "age" and was returned a ton of scripts with the word "message" in them.

As for the bad channel, I searched for 'bad channel' and got a ton that had the word 'channel' in them. When I searched for 'bad chan' I found one and it doesn't seem to want to work for me. Maybe I'm just an idiot and just couldn't get it working.

Should I post this in the TCL forum?

Thanks again.

BigSmoke

Statistics: Posted by Guest — Wed Dec 24, 2003 1:14 pm

Looking for a script.

2003-12-24T01:31:37-04:00

This question might be better in the TCL Forum but to answer at least part of your question.........

I'm looking to see if there is a script that will ask a user their age first before voicing them. If they are over a certain age they get voiced. If they don't answer in an allotted amount of time they will be kicked and banned for a minute. Repeat offenders or underage folks will be banned permanently.

Yes I have seen it in several rooms but I'm not sure what it is called try searching the tcl achive.

Also is there a script that will scan the channels the user is on and kick them if they are in a #teen channel or something like that?

Again yes........do a search in the tcl archive using the words 'bad chan'

Statistics: Posted by firepac — Wed Dec 24, 2003 1:31 am

Looking for a script.

2003-12-23T19:19:11-04:00

Hi,

I'm looking to see if there is a script that will ask a user their age first before voicing them. If they are over a certain age they get voiced. If they don't answer in an allotted amount of time they will be kicked and banned for a minute. Repeat offenders or underage folks will be banned permanently.

Also is there a script that will scan the channels the user is on and kick them if they are in a #teen channel or something like that?

Anyone happened upon something like this out there? TIA.

BigSmoke

Statistics: Posted by Guest — Tue Dec 23, 2003 7:19 pm