hi i need some help with limit tcl,

[Bader]

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

[caesar]

find:

Code: Select all

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

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

Code: Select all

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

[De Kus]

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