hello

dont want to act up but... it seems to be a whole new script thx how to display the values (like % caps) in the kickmessage also ?

ok, i tried it with a simple thing
10 x a's
when i use
aaaaaaaaaa it doesnt do anything (wich is normal)
when i do
Aaaaaaaaaa it kicks already, while i've set 5:50

basicly it just kicks when i talk in the channel

anyway isnt it better to add to the previous script ? (the channel awareness) i tested that and it works good

# Set the channels here where you wish the kick to be activated on.set capschans "#india #bharat"#Set this to the minimum text size, before it will actset capsmin "70"# Minimum percentage of CAPS detected from the full textset capslen "65"bind pubm - * pub:caps:kickproc pub:caps:kick {nick uhost hand chan text} { global botnick capschans capsmin capslen  if {[string length $text] < $capsmin} {return 0}    set text [ctrl:filter $text]    set maxcaps "[string length $text]"    regsub -all {[A-Z]} $text "" counted    set countcaps [string length $counted]    set capsban "*!*@[lindex [split $uhost @] 1]"    set capsper [expr (($maxcaps - $countcaps) * 100) / $maxcaps]    if {(([lsearch -exact [string tolower $capschans] [string tolower $chan]] != -1) || ($capschans == "*"))} {     if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand mn|mn $chan]) && ([onchan $nick $chan]) && ($capsper >= $capslen)} {      set capsrange "[string range $capsper 0 end]%"      putquick "MODE $chan +b $capsban"      putquick "KICK $chan $nick :0,1 Excessive CAPS Text Kick 12,0 - 12Exceeded the limit of2 $capslen% percent 12of caps by typing2 *$maxcaps* capital characters, 12at a rate of2 $capsrange percent. 12Please turn *off* your 2caps lock switch, 12which is located 2left to the 'A' button 12on your keyboard."       timer 30 "pushmode $chan -b $capsban"      return 0      }   }}proc ctrl:filter {str} {  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str  return $str}

Statistics: Posted by awyeah — Sun Jan 23, 2005 5:16 am

anyway isnt it better to add to the previous script ? (the channel awareness) i tested that and it works good

Statistics: Posted by user — Fri Jan 21, 2005 10:04 am

Statistics: Posted by CosmicD — Fri Jan 21, 2005 9:25 am

Code:

# use .chanset #yourchan <channel setting name> <min length>:<max percent># the name of your channel setting:set capskick CAPSKICK;setudef str $capskickbind pubm - * capskickproc capskick {n u h c a} {if {[scan [channel get $c $::capskick] %d:%d m p]!=2} returnif {[set t [string len $a]]<$m} returnset P [expr ([regexp -all {[A-Z]} $a]/$t.)*100]if {$P>=$p} {putkick $c $n "A-Z: [format %.1f $P]%"}}

Statistics: Posted by user — Fri Jan 21, 2005 9:09 am

Statistics: Posted by CosmicD — Fri Jan 21, 2005 8:44 am

Statistics: Posted by Mackenzie — Wed Sep 04, 2002 10:04 am

Statistics: Posted by Mackenzie — Wed Sep 04, 2002 8:53 am

Statistics: Posted by Papillon — Wed Sep 04, 2002 8:40 am

Statistics: Posted by Mackenzie — Wed Sep 04, 2002 8:26 am

Statistics: Posted by Papillon — Wed Sep 04, 2002 8:19 am

Statistics: Posted by Mackenzie — Wed Sep 04, 2002 8:15 am

Statistics: Posted by Papillon — Wed Sep 04, 2002 8:06 am

Code:

#Set this to the minimum string wize, before it will act #IE, set 6, "HELLO" = no kick, "HELLO ALL" = kick set cap_min 6 #set this tot he percentage, wihtout any percentage char #IE, 50 set cap_per 50 bind pubm - "*" cap:perc:kick proc cap:perc:kick {nick uh hand chan arg} {   global cap_per cap_min   if {[string length $arg] <= $cap_min} { return }   set full [string length $arg]   regsub -all {[A-Z]} $arg "" arg  putlog "$arg"  set perc [expr (($full - [string length $arg]) * 100) / $full]   putlog "$perc"  if {$perc >= $cap_per} {     putserv "KICK $chan $nick :*** NO *** caps please!!!) ([string range $perc 0 5]% caps)"   } } 

Statistics: Posted by Papillon — Wed Sep 04, 2002 8:04 am

Code:

putserv "KICK $chan $nick :*** NO *** caps please!!!) ([string range $perc 0 5])"

putserv "KICK $chan $nick :*** NO *** caps please!!!) ([string range $perc 0 5]% caps)" 

Statistics: Posted by Papillon — Wed Sep 04, 2002 7:53 am

Statistics: Posted by Mackenzie — Wed Sep 04, 2002 7:29 am