egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-07-05T02:17:49-04:00 https://forum.eggheads.org/app.php/feed/topic/7822 2004-07-05T02:17:49-04:00 2004-07-05T02:17:49-04:00 https://forum.eggheads.org/viewtopic.php?p=38209#p38209 <![CDATA[request for a little chanlimit script]]> , i will try it , thanks for it :D

Statistics: Posted by Guest — Mon Jul 05, 2004 2:17 am

]]> 2004-07-03T09:26:48-04:00 2004-07-03T09:26:48-04:00 https://forum.eggheads.org/viewtopic.php?p=38163#p38163 <![CDATA[request for a little chanlimit script]]>

Statistics: Posted by greenbear — Sat Jul 03, 2004 9:26 am

]]> 2004-07-03T03:53:25-04:00 2004-07-03T03:53:25-04:00 https://forum.eggheads.org/viewtopic.php?p=38154#p38154 <![CDATA[request for a little chanlimit script]]>

Code: 

bind pub n|m "autolimit" autolimit:pub bind join -|- * autolimit:join setudef str "autolimit" proc autolimit:start {} { foreach channel [channels] { if {[channel get $channel "autolimit"] == ""} { channel set $channel "autolimit" "0" } } utimer 60 autolimit } proc autolimit:join {nickname hostname handle channel} { if {![isbotnick $nickname]} { return 0 } if {[channel get $channel "autolimit"] == ""} { channel set $channel "autolimit" "0" } } proc autolimit:pub {nickname hostname handle channel arguments} { global lastbind set argumentc [llength [split $arguments { }]] set option [lindex $arguments 0] set users [llength [chanlist $channel]] if {$argumentc < 1} { set currentlimit [channel get $channel "autolimit"] if {$currentlimit > 0} { putserv "NOTICE $nickname :Current auto-limit is: [channel get $channel "autolimit"]" } else { putserv "NOTICE $nickname :Argument should start with a '#' and a digit. (eg. #10 or on|off)" } return } if {([regexp -nocase -- {(#[0-9]+|off|on)} $option tmp result]) && (![regexp -nocase -- {\S#} $option])} { switch $result { on { channel set $channel "autolimit" "10" putserv "MODE $channel +l [expr $users + 10]" puthelp "NOTICE $nickname :Auto-limit is changed to: +10" } off { channel set $channel "autolimit" "0" putserv "MODE $channel -l *" puthelp "NOTICE $nickname :Done. Auto-limit disabled successfully." } default { if {([regexp {#[0-9]} $result]) && ([string index $result 0] == "#")} { regexp {#([0-9]+)} $result tmp result if {($result < 2)} { set result 2 } elseif {($result > 500)} { set result 500 } channel set $channel "autolimit" "$result" putserv "MODE $channel +l [expr $users + $result]" puthelp "NOTICE $nickname :Auto-limit is changed to: $result" } } } } else { puthelp "NOTICE $nickname :Argument should start with a '#' and a digit. (eg. #10 or on|off)" } } proc autolimit {} { if {![string match *autolimit* [utimers]]} { utimer 60 autolimit } foreach channel [channels] { set autolimit [channel get $channel "autolimit"] if {(![botisop $channel]) || ($autolimit == "0")} { continue } set users [llength [chanlist $channel]] set newlimit [expr $users + $autolimit] set chanmodes [getchanmode $channel] if {[string match *l* [lindex $chanmodes 0]]} { regexp {\S[\s]([0-9]+)} $chanmodes tmp currentlimit } else { set currentlimit 0 } if {$newlimit == $currentlimit} {continue} if {$newlimit > $currentlimit} { set difference [expr $newlimit - $currentlimit] } elseif {$newlimit < $currentlimit} { set difference [expr $currentlimit - $newlimit] } if {($difference <= [expr round($autolimit * 0.5)]) && ($autolimit > 5)} { continue } elseif {($difference < [expr round($autolimit * 0.38)]) && ($autolimit <= 5)} { continue } putserv "mode $channel +l $newlimit" } } autolimit:start
Set the limit with autolimit #*how many* on and turn it off with autolimit off

Statistics: Posted by metroid — Sat Jul 03, 2004 3:53 am

]]> 2004-07-02T19:02:21-04:00 2004-07-02T19:02:21-04:00 https://forum.eggheads.org/viewtopic.php?p=38145#p38145 <![CDATA[request for a little chanlimit script]]> Statistics: Posted by Ofloo — Fri Jul 02, 2004 7:02 pm

]]> 2004-07-02T03:17:35-04:00 2004-07-02T03:17:35-04:00 https://forum.eggheads.org/viewtopic.php?p=38126#p38126 <![CDATA[request for a little chanlimit script]]>
thanks

Statistics: Posted by Guest — Fri Jul 02, 2004 3:17 am

]]> 2004-07-01T13:07:09-04:00 2004-07-01T13:07:09-04:00 https://forum.eggheads.org/viewtopic.php?p=38106#p38106 <![CDATA[request for a little chanlimit script]]> Statistics: Posted by dollar — Thu Jul 01, 2004 1:07 pm

]]> 2004-07-01T08:55:27-04:00 2004-07-01T08:55:27-04:00 https://forum.eggheads.org/viewtopic.php?p=38094#p38094 <![CDATA[request for a little chanlimit script]]>
something like this

so i can use .chanset #chan +nolimit if i want a channel without no limit

set pluslimit "number"

set timer "number(in seconds)"

then the procedure

......

that it :P

thank you

Statistics: Posted by Guest — Thu Jul 01, 2004 8:55 am

]]>