egghelp/eggheads community

Want to add ban to this working script (thx demond)

2005-08-25T12:30:26-04:00

Try to add
Code:
putkick [lindex [split $whoisc($n)] 0] $n "please identify or register your nick. 5 min. ban.  Please return after you have registered."
after the newchanban line and see if it kicks the user out.

PS: don't double post.
Can someone please let me know how I can just ban any/all unregistered nicks which have the word {bot b0t serv sevr} Thnx

by using the above script after patching it to check if the nick contains whatever sh*tword you deemed unacceptable

Statistics: Posted by demond — Thu Aug 25, 2005 12:30 pm

Want to add ban to this working script (thx demond)

2005-08-25T12:14:50-04:00

Try to add
Code:
putkick [lindex [split $whoisc($n)] 0] $n "please identify or register your nick. 5 min. ban.  Please return after you have registered."
after the newchanban line and see if it kicks the user out.

PS: don't double post.

Can someone please let me know how I can just ban any/all unregistered nicks which have the word {bot b0t serv sevr} Thnx

Statistics: Posted by b|_ack — Thu Aug 25, 2005 12:14 pm

Want to add ban to this working script (thx demond)

2005-08-21T22:17:30-04:00

Try to add

Code:

putkick [lindex [split $whoisc($n)] 0] $n "please identify or register your nick. 5 min. ban.  Please return after you have registered."

after the newchanban line and see if it kicks the user out.

PS: don't double post.

Statistics: Posted by Sir_Fz — Sun Aug 21, 2005 10:17 pm

Want to add ban to this working script (thx demond)

2005-08-20T19:01:45-04:00

oops...this one doesn't ban at all. gives pm to user, but no ban onjoin nor with multiple /hops. Notice you cut out this portion of code:

Code:

 utimer $banafter(s) [list incr rejoins($n) -1]   if {[incr rejoins($n)] >= $banafter(j)} {    puthelp "MODE $chan +b *!*@[lindex [split $uhost @] 1]"

is this required? maybe this is the prob.

Also, I noticed this script is reversing the bans that had already been set in channel from other ops.

Thanks for your help.

Statistics: Posted by mikey2 — Sat Aug 20, 2005 7:01 pm

Want to add ban to this working script (thx demond)

2005-08-20T17:26:33-04:00

Try this:

Code:

bind join - * foobind raw - 311 got311 ;# first WHOIS reply bind raw - 307 got307 ;# nick has identified (registered) bind raw - 318 got318 ;# End of /WHOIS list proc foo {n u h c} { global whoisc  puthelp "whois $n" set whoisc($n) "$c *!*@[lindex [split $uhost @] 1]"} proc got311 {f k t} {  set n [lindex [split $t] 1]  set ::whoised($n) 0} proc got307 {f k t} {  set n [lindex [split $t] 1]  incr ::whoised($n) } proc got318 {f k t} { global whoisc set n [lindex [split $t] 1]  if {$::whoised($n) == 0} {   puthelp "privmsg $n :Hello $n and welcome.  You MUST register your nick to join this channel."  if {[info exists whoisc($n)]} {   newchanban [lindex [split $whoisc($n)] 0] [lindex [split $whoisc($n)] 1] unreg "please identify or register your nick. 5 min. ban.  Please return after you have registered." 5  } } }

Statistics: Posted by Sir_Fz — Sat Aug 20, 2005 5:26 pm

Want to add ban to this working script (thx demond)

2005-08-20T15:07:11-04:00

Script works, but only if you do a /hop in the channel. It does not ban when the user initially joins the channel. That's what I would like it to do. Here's the code:

Code:

bind join - * foo proc foo {n u h c} {    puthelp "whois $n" } bind raw - 311 got311 ;# first WHOIS reply bind raw - 307 got307 ;# nick has identified (registered) bind raw - 318 got318 ;# End of /WHOIS list proc got311 {f k t} {    set n [lindex [split $t] 1]    set ::whoised($n) 0 } proc got307 {f k t} {    set n [lindex [split $t] 1]    incr ::whoised($n) } proc got318 {f k t} {    set n [lindex [split $t] 1]    if {$::whoised($n) == 0} {       puthelp "privmsg $n :Hello $n and welcome.  You MUST register your nick to join this channel."    } }# ban after how many joins in how many seconds? set banafter(j:s) 3:60 bind join - * kick:unreg foreach {banafter(j) banafter(s)} [split $banafter(j:s) :] {break} proc kick:unreg {nick uhost hand chan} {  global banafter whoised rejoins  if {![info exists rejoins([set n [string tolower $nick]])]} { set rejoins($n) 0 }  if {!$whoised($nick)} {   newchanban $chan *!*@[lindex [split $uhost @] 1] unreg "please identify or register your nick. 5 min. ban.  Please return after you have registered." 5  utimer $banafter(s) [list incr rejoins($n) -1]   if {[incr rejoins($n)] >= $banafter(j)} {    puthelp "MODE $chan +b *!*@[lindex [split $uhost @] 1]"   }  } }

Any ideas??? I appreciate your help.

Statistics: Posted by mikey2 — Sat Aug 20, 2005 3:07 pm

Want to add ban to this working script (thx demond)

2005-08-20T14:31:03-04:00

thanks for all your help... I'll give it a try.

Statistics: Posted by mikey2 — Sat Aug 20, 2005 2:31 pm

Want to add ban to this working script (thx demond)

2005-08-20T00:23:35-04:00

Sorry for being such a bonehead, but can you include this in your code, and paste the whole script here so I can see how it's done?

Thanks.

Simply replace:

Code:

puthelp "kick $chan $nick :please identify or register your nick"

with:

Code:

newchanban $chan *!*@[lindex [split $uhost @] 1] unreg "please identify or register your nick" 5

Statistics: Posted by Alchera — Sat Aug 20, 2005 12:23 am

Want to add ban to this working script (thx demond)

2005-08-19T21:04:16-04:00

Sorry for being such a bonehead, but can you include this in your code, and paste the whole script here so I can see how it's done?

Thanks.

Statistics: Posted by mikey2 — Fri Aug 19, 2005 9:04 pm

Want to add ban to this working script (thx demond)

2005-08-19T20:45:59-04:00

No, the code I gave will kick the first 2 times, and ban on the third join. If you want it to ban for 5 minutes on each join, then add

Code:

newchanban $chan *!*@[lindex [split $uhost @] 1] unreg "please identify or register your nick" 5

instead of the kick command.

Statistics: Posted by Sir_Fz — Fri Aug 19, 2005 8:45 pm

Want to add ban to this working script (thx demond)

2005-08-19T20:05:38-04:00

Thanks for your quick comments Sir_Fz. And Alchera, can you give me an example of your suggestion? Sorry I'm a newbie here.

Question for Sir_Fz:

Will this code kick/ban for 5 mins. for each join? As this will prevent auto-join for non-reg. users. So the flow should be as follows:

1st. join - kick/ban (5 min. ban)
2nd. join - kick/ban (5 min. ban)
3rd. join - kick/ban (permanent ban)

I like how you set so I can adjust the j/s (join/sec.).

Thanks for your help.

Statistics: Posted by mikey2 — Fri Aug 19, 2005 8:05 pm

Want to add ban to this working script (thx demond)

2005-08-19T19:36:49-04:00

You could replace the 'puthelp' line in got318 with 'newchanban'

newchanban [lifetime] [options]
Description: adds a ban to the ban list of a channel; creator is given
credit for the ban in the ban list. lifetime is specified in
minutes. If lifetime is not specified, ban-time (usually 60) is
used. Setting the lifetime to 0 makes it a permanent ban.

Statistics: Posted by Alchera — Fri Aug 19, 2005 7:36 pm

Want to add ban to this working script (thx demond)

2005-08-19T19:36:59-04:00

Code:

# ban after how many joins in how many seconds?set banafter(j:s) 3:60bind join - * kick:unregforeach {banafter(j) banafter(s)} [split $banafter(j:s) :] {break}proc kick:unreg {nick uhost hand chan} { global banafter whoised rejoins if {![info exists rejoins([set n [string tolower $nick]])]} { set rejoins($n) 0 } if {!$whoised($nick)} {   puthelp "kick $chan $nick :please identify or register your nick"   utimer $banafter(s) [list incr rejoins($n) -1]  if {[incr rejoins($n)] >= $banafter(j)} {   puthelp "MODE $chan +b *!*@[lindex [split $uhost @] 1]"  } } }

Statistics: Posted by Sir_Fz — Fri Aug 19, 2005 7:35 pm

Want to add ban to this working script (thx demond)

2005-08-19T17:53:16-04:00

This bit of code to check if a user's nick is registered works great (a big thanks go out to Demond for all their help:)

Code:

bind join - * foo proc foo {n u h c} {    puthelp "whois $n" } bind raw - 311 got311 ;# first WHOIS reply bind raw - 307 got307 ;# nick has identified (registered) bind raw - 318 got318 ;# End of /WHOIS list proc got311 {f k t} {    set n [lindex [split $t] 1]    set ::whoised($n) 0 } proc got307 {f k t} {    set n [lindex [split $t] 1]    incr ::whoised($n) } proc got318 {f k t} {    set n [lindex [split $t] 1]    if {$::whoised($n) == 0} {       puthelp "privmsg $n :please identify or register your nick"    } }

Now, I would like to add a ban to this which would kick/ban a non-reg. user for 5 mins upon joining my channel. After 3 attempts to join channel with a non-reg. nick the user gets banned permanently.

Thanks for all your support. This website rocks.

Statistics: Posted by mikey2 — Fri Aug 19, 2005 5:53 pm