| View previous topic :: View next topic |
| Author |
Message |
swarfega
Voice
Joined: 07 Oct 2006
Posts: 25
|
 Posted: Sun Aug 31, 2008 5:18 am Post subject: script for an #idle type channel |
 |
|
Hi, Ive search all over for a script to do what I want without much luck.
I am trying to set up an #idle type channel and need a script (or settings) that would auto kick/ban people for 30 minutes for talking in the channel. |
|
| Back to top |
|
 |
nsrafk
Halfop
Joined: 11 May 2007
Posts: 73
|
| Posted: Sun Sep 07, 2008 5:27 am Post subject: |
|
|
| You can just use a badword script i guess, and add wildcards.. * means anyword.. seems useless tho :p |
|
| Back to top |
|
|
swarfega
Voice
Joined: 07 Oct 2006
Posts: 25
|
| Posted: Sun Sep 07, 2008 6:47 pm Post subject: |
|
|
Thanks for the idea about using a bad words script which I am doing and works ok. What I would like to do is a ban counter. Could any one help integrate that into the code below:
| Code: | bind pubm -|- * blocked:words
setudef flag bwords
#Rlsdate : 28-05-2003
#? and * works as wildcards
set bwords(words) "*"
#Allow pflag to use these words ?
set bwords(p) 1
set bwords(pflag) o
#How long time to last ? must be in minutes.
set bwords(mins) 30
bind ctcp -|- * blocked:words2
proc blocked:words2 {nick uhost handle dest keyword text} {
if {[validchan $dest]} { blocked:words $nick $uhost $handle $dest $text }
}
proc blocked:words {nick uhost handle chan text} {
global botnick bwords
set word [join [lindex [split $text] 0]]
if {![string match "*+bwords*" [channel info $chan]]} { return 0 }
if {[matchattr $handle $bwords(pflag)|$bwords(pflag) $chan] && $bwords(p)==1} { return 0 }
foreach w [split $bwords(words) " "] {
if {[string match [join $w] [join $word]]} {
set nck [split [getchanhost $nick] "@"]
set b1 [split [lindex $nck 1] "\."]
set domain [lindex $b1 [expr [llength $b1]-2]].[lindex $b1 [expr [llength $b1]-1]]
set banmask *![lindex $nck 0]@*.$domain
newchanban $chan $banmask $botnick "$bwords (mins) mins anti-idle ban. ([strftime %m-%d-%Y@%H:%M])" $bwords(mins)
putlog "Banned $nick@$chan for using $word."
return 0
}
}
}
putlog "Bwords loaded v2.1 : Bad words list = $bwords(words)" |
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
