hi i need some help with limit tcl,

2005-03-12T09:26:44-04:00

bind time - "* * * * *" time:ChanLimit
...
if {$currentlimit < [expr $newlimit - 1] || $currentlimit > [expr $newlimit + 1]} {

these are the key triggers how often it will be changed.
every 25min isnt very easy, for every 30 min you could replace the timebind with:
bind time - "30*" time:ChanLimit
bind time - "00*" time:ChanLimit

for every 10min it would be:
bind time - "?0*" time:ChanLimit

Statistics: Posted by De Kus — Sat Mar 12, 2005 9:26 am

hi i need some help with limit tcl,

2005-03-12T09:05:13-04:00

find:

Code:

set newlimit [expr [llength [chanlist $chan]] + 5]

and replace 5 with 25 (or what you wish) with something like like:

Code:

set newlimit [expr [llength [chanlist $chan]] + 25]

Statistics: Posted by caesar — Sat Mar 12, 2005 9:05 am

hi i need some help with limit tcl,

2005-03-12T05:40:11-04:00

thats limit he changes the limit of channel vere 1mins,
pls i need help with this i wonna this limit change the limit vere 25 since
pls help me with this, and thanks, for all

##########################################################################
# Binds #
##########################################################################

bind time - "* * * * *" time:ChanLimit

##########################################################################
# time:ChanLimit start #
##########################################################################

proc time:ChanLimit {min hour day month year} {
foreach chan [channels] {
set newlimit [expr [llength [chanlist $chan]] + 5]
set currentlimit [currentlimit $chan]
if {$currentlimit < [expr $newlimit - 1] || $currentlimit > [expr $newlimit + 1]} {
putserv "mode $chan +l $newlimit"
}
}
}

##########################################################################
# time:ChanLimit end #
##########################################################################

##########################################################################
# currentlimit start #
##########################################################################

proc currentlimit {chan} {
set currentmodes [getchanmode $chan]
if {[string match "*l*" [lindex $currentmodes 0]]} {
return [lindex $currentmodes end]
}
return 0
}

##########################################################################
# currentlimit end #
##########################################################################

##########################################################################
# putlog #
##########################################################################

putlog "Loaded ChanLimit (DLF)"

Statistics: Posted by Bader — Sat Mar 12, 2005 5:40 am

egghelp/eggheads community

hi i need some help with limit tcl,

hi i need some help with limit tcl,

hi i need some help with limit tcl,