egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-12-19T10:40:44-04:00 https://forum.eggheads.org/app.php/feed/topic/3274 2002-12-19T10:40:44-04:00 2002-12-19T10:40:44-04:00 https://forum.eggheads.org/viewtopic.php?p=14427#p14427 <![CDATA[CAPS tcl help pls]]>
Can you give any examples or when it doesn't work?

Can you conclusivly proove it doesn't work?

Statistics: Posted by ppslim — Thu Dec 19, 2002 10:40 am

]]> 2002-12-19T10:38:06-04:00 2002-12-19T10:38:06-04:00 https://forum.eggheads.org/viewtopic.php?p=14426#p14426 <![CDATA[CAPS tcl help pls]]>
I tried this script below and it doesnt work. Please guide.

#########################################
# capsGF.tcl (GF stands for G-Force bot)
# credits goes to:
# ppslim, Papillon
#
#Date: 11 sept 2002
#
#########################################
#
#Set this to the minimum string wize, before it will act
#IE, set 6, "HELLO" = no kick, "HELLO ALL" = kick
set cap_min 5

#set this tot he percentage, wihtout any percentage char
#IE, 50
set cap_per 40

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)"
}
}

putlog "CapsGF.tcl 2002 Loaded"

Statistics: Posted by Illidan — Thu Dec 19, 2002 10:38 am

]]>