egghelp/eggheads community

slennox's autolimit with pub cmd

2017-04-22T10:11:49-04:00

tnx caesar

Statistics: Posted by simo — Sat Apr 22, 2017 10:11 am

slennox's autolimit with pub cmd

2017-04-22T03:06:04-04:00

Ah, I messed up something and thus removed the code I posted. And yeah, you are right, should have added a utimer in the first place. Replace:

Code:

check $chan

with:

Code:

utimer 5 [list [namespace current]::check $chan]

And if you still aren't happy with the results then remove the binds for part, sign and kick and leave it as it was.

Statistics: Posted by caesar — Sat Apr 22, 2017 3:06 am

slennox's autolimit with pub cmd

2017-04-21T12:50:19-04:00

your entire code gives me this:

[18:47:41] can't read "chan": no such variable
while executing
"channel set $chan limitData "$limit:$grace""
(in namespace eval "::autoLimit" script line 20)
invoked from within
"namespace eval autoLimit {

setudef flag autolimit
setudef str limitData

bind pub o|o !adjust [namespace current]::adjust
bind pub o|o !l..."
(file "scripts2a/autolimit-caesar2a.tcl" line 1)
invoked from within
"source scripts2a/autolimit-caesar2a.tcl"

with what i got so far i dont get any error so far:

Code:

namespace eval autoLimit {   setudef flag autolimit   setudef str limitData   bind join * * [namespace current]::joins   bind pub o|o !adjust [namespace current]::adjust   bind pub o|o !autolimit [namespace current]::limit       bind pub o|o !limit [namespace current]::limit    bind pub o|o !climit [namespace current]::limit       bind part - * [namespace current]::del   bind sign - * [namespace current]::del   bind kick - * [namespace current]::kick      proc del {nick uhost hand chan {text ""}} {      if {![channel get $chan autolimit]} return      if {[isbotnick $nick]} return      check $chan   }      proc kick {nick uhost hand chan vict reason} {      if {![channel get $chan autolimit]} return      if {[isbotnick $vict]} return      check $chan   }    proc joins {nick uhost hand chan} {      if {![channel get $chan autolimit]} return      if {[isbotnick $nick] || ![botisop $chan]} return      check $chan   }   proc adjust {nick uhost hand chan text} {      if {![channel get $chan autolimit]} return      if {[scan [join [split $text :]] {%d%d} limit grace] != 2} {           puthelp "NOTICE $nick :Error, syntax: !adjust  (integer values)"         return      }      channel set $chan limitData "$limit:$grace"      puthelp "NOTICE $nick :Success, channel limit has been set to $limit and grace set to $grace"      check $chan   }   proc check {{chan ""}} {      if {[llength $chan]} {         set chan [string tolower $chan]         if {![channel get $chan autolimit]} return         if {[scan [join [split [channel get $chan limitData] :]] {%d%d} limit grace] != 2} return         set count [llength [chanlist $chan]]         set newlimit [expr $count + $limit]         set cm [getchanmode $chan]         if {[lsearch -exact [split $cm ""] "l"] != -1} {            set currlimit [lindex [split $cm] 1]         } else {            set currlimit 0         }         if {$newlimit == $currlimit} return         if {$newlimit > $currlimit} {            set diff [expr $newlimit - $currlimit]         } else {            set diff [expr $currlimit - $newlimit]         }         if {$diff <= $grace} return         pushmode $chan +l $newlimit      } else {         foreach chan [channels] {            check $chan         }      }   }proc limit {nick uhost hand chan text} {      if {[scan $text {%s} mode] != 1} {         puthelp "NOTICE $nick :Error, syntax: !limit "         return      }      set status [channel get $chan autolimit]      switch -- [string tolower $mode] {         "on" {            if {$status} {               puthelp "NOTICE $nick :Error, can't continue because autolimit is already enabled."            } else {               channel set $chan +autolimit             check $chan             puthelp "NOTICE $nick :Success, autolimit has been enabled."            }         }         "off" {            if {!$status} {               puthelp "NOTICE $nick :Error, can't continue because autolimit is already disabled."             pushmode $chan -l             } else {               channel set $chan -autolimit               puthelp "NOTICE $nick :Success, autolimit has been disabled."             pushmode $chan -l             }         }         default {            puthelp "NOTICE $nick :Error, given syntax is unknown: !limit "         }      }   }    proc start args {      utimer 5 [namespace current]::check   }   start}

also it sets new limit to fast after joins making it ineffiecient incase of a join flood since it makes way after every join

also it sets new limit after each quit making it very spammy

Statistics: Posted by simo — Fri Apr 21, 2017 12:50 pm

slennox's autolimit with pub cmd

2017-04-22T03:04:06-04:00

Let's say for disscussion sake channel has 50 people, channel doesn't have any limits set and settings are: limit 5 and grace 3.

When you first activate it, if there's no limit set it will set the count + limit, meaning 50 + 5. If new people join and the grace limit (meaning count + grace, meaning 50 + 3) isn't reached it won't change the channel limit. As soon as the 4th person joins and the new limit (50+4) is over the grace (53) it will change the channel mode to 59.

Proof of concept.

Code:

% proc push {limit grace count {cm "+stn"}} {        set newlimit [expr $count + $limit]        if {[lsearch -exact [split $cm ""] "l"] != -1} {                set currlimit [lindex [split $cm] 1]        } else {                set currlimit 0        }        if {$newlimit == $currlimit} return        if {$newlimit > $currlimit} {                set diff [expr $newlimit - $currlimit]        } else {                set diff [expr $currlimit - $newlimit]        }        if {$diff <= $grace} return        puts "mode change: +l $newlimit"}% push 5 3 50mode change: +l 55% push 5 3 50 "+stnl 55"% push 5 3 52 "+stnl 55"% push 5 3 53 "+stnl 55"% push 5 3 54 "+stnl 55"mode change: +l 59

I set the "+stn" to mimic default channel modes and then I set them to mimic the changed modes.

So, is it working as you wanted or not?

As for adding the kick, part and quit part is as easy as 1.. 2.. 3..

Code:

bind part - * [namespace current]::delbind sign - * [namespace current]::delbind kick - * [namespace current]::kickproc del {nick uhost hand chan {text ""}} {if {![channel get $chan autolimit]} returnif {[isbotnick $nick]} returncheck $chan}proc kick {nick uhost hand chan vict reason} {if {![channel get $chan autolimit]} returnif {[isbotnick $vict]} returncheck $chan}

Edit: removed code.

Statistics: Posted by caesar — Fri Apr 21, 2017 12:11 pm

slennox's autolimit with pub cmd

2017-04-21T10:56:53-04:00

concerning the adding of part/kick/quit seems good idea as well

i was also thinking about to check if the set limit and actual users in channel difference it bigger than the grace to then set new limit

so lets say there are 50 users current +l is 55 while we have set it at 3

if u understand what i gettin at afaik the grace calculates if the difference with the set limit is not beyond set grace value

Statistics: Posted by simo — Fri Apr 21, 2017 10:56 am

slennox's autolimit with pub cmd

2017-04-21T09:54:32-04:00

Yeah, I forgot about that..

You could also add after:

Code:

channel set $chan +autolimit

a check $chan to make it start limiting right away when the limit has been enabled. Your welcome.

I guess we could also add a proc for kick, part and quit to adjust the limit right away when one of the events happens. Up to you.

Statistics: Posted by caesar — Fri Apr 21, 2017 9:54 am

slennox's autolimit with pub cmd

2017-04-21T09:30:29-04:00

looks to be working so far

only when disabling it doesnt remove -l

i added pushmode $chan -l
that seemed to work

tnx caesar.

Statistics: Posted by simo — Fri Apr 21, 2017 9:30 am

slennox's autolimit with pub cmd

2017-04-21T08:41:35-04:00

Initially the code had the limit and grace in two separate arguments and forgot to change this part as well.
Replace:

Code:

if {[scan $text {%d%d} limit grace] != 2} {

with:

Code:

if {[scan [join [split $text :]] {%d%d} limit grace] != 2} return

As for adding the public enable/disable, just add:

Code:

bind pub o|o !limit [namespace current]::limit

behind:

Code:

bind pub o|o !adjust [namespace current]::adjust

and before the proc start args { insert:

Code:

proc limit {nick uhost hand chan text} {if {[scan $text {%s} mode] != 1} {puthelp "NOTICE $nick :Error, syntax: !limit "return}set status [channel get $chan autolimit]switch -- [string tolower $mode] {"on" {if {$status} {puthelp "NOTICE $nick :Error, can't continue because autolimit is already enabled."} else {channel set $chan +autolimitputhelp "NOTICE $nick :Success, autolimit has been enabled."}}"off" {if {!$status} {puthelp "NOTICE $nick :Error, can't continue because autolimit is already disabled."} else {channel set $chan -autolimitputhelp "NOTICE $nick :Success, autolimit has been disabled."}}default {puthelp "NOTICE $nick :Error, given syntax is unknown: !limit "}}}

As always, haven't tested anything.

Statistics: Posted by caesar — Fri Apr 21, 2017 8:41 am

slennox's autolimit with pub cmd

2017-04-21T07:34:56-04:00

i tried it and no matter what value i use in !adjust i get get:

also could the enable disable pub cmd be added

Error, syntax: !adjust (integer values)

Statistics: Posted by simo — Fri Apr 21, 2017 7:34 am

slennox's autolimit with pub cmd

2017-04-21T05:07:52-04:00

Code:

namespace eval autoLimit {setudef flag autolimitsetudef str limitDatabind join * * [namespace current]::joinsbind pub o|o !adjust [namespace current]::adjustproc joins {nick uhost hand chan} {if {![channel get $chan autolimit]} returnif {[isbotnick $nick] || ![botisop $chan]} returncheck $chan}proc adjust {nick uhost hand chan text} {if {![channel get $chan autolimit]} returnif {[scan $text {%d%d} limit grace] != 2} {puthelp "NOTICE $nick :Error, syntax: !adjust  (integer values)"return}channel set $chan limitData "$limit:$grace"puthelp "NOTICE $nick :Success, channel limit has been set to $limit and grace set to $grace"check $chan}proc check {{chan ""}} {if {[llength $chan]} {set chan [string tolower $chan]if {![channel get $chan autolimit]} returnif {[scan [join [split [channel get $chan limitData] :]] {%d%d} limit grace] != 2} returnset count [llength [chanlist $chan]]set newlimit [expr $count + $limit]set cm [getchanmode $chan]if {[lsearch -exact [split $cm ""] "l"] != -1} {set currlimit [lindex [split $cm] 1]} else {set currlimit 0}if {$newlimit == $currlimit} returnif {$newlimit > $currlimit} {set diff [expr $newlimit - $currlimit]} else {set diff [expr $currlimit - $newlimit]}if {$diff <= $grace} returnpushmode $chan +l $newlimit} else {foreach chan [channels] {check $chan}}}proc start args {utimer 5 [namespace current]::check}start}

Forgot to add the activation/deactivation from channel command so for now do .chanset #channel +autolimit from DCC Chat/telnet. Set the limit and grace with !adjust limit:grace (integer numbers), for example !adjust 3:5, or from DCC Chat/Telnet with .chanset #channel limitData limit:grace (integer numbers).

I could tie an utimer for each channel as well, if that is really needed.

Statistics: Posted by caesar — Fri Apr 21, 2017 5:07 am

slennox's autolimit with pub cmd

2017-04-20T09:27:21-04:00

does anyone know how to modify the code to have it work with pub commands

tnx in advance

Statistics: Posted by simo — Thu Apr 20, 2017 9:27 am

slennox's autolimit with pub cmd

2017-04-17T15:49:58-04:00

Without the utimer part is fine as well

Statistics: Posted by simo — Mon Apr 17, 2017 3:49 pm

slennox's autolimit with pub cmd

2017-04-16T14:14:20-04:00

Adjusting the grace and limit on the fly is easy to implement, but the utimer part will be a bit tricky as would have to kill previous utimer before making and calling a new one.

If nobody jumps on this will do something tomorrow.

Statistics: Posted by caesar — Sun Apr 16, 2017 2:14 pm

slennox's autolimit with pub cmd

2017-04-16T07:58:18-04:00

if posible to input grace , limit and timer by pub cmd

Statistics: Posted by simo — Sun Apr 16, 2017 7:58 am

slennox's autolimit with pub cmd

2017-04-16T02:57:36-04:00

Please don't revive old topics and post whatever info you want in your own and link to them.

What exactly you want to adjust on the fly? The limit to set (cl_limit)? Limit grace (cl_grace)? Want a adjustable timer (cl_timer) for each channel or one for all will do fine like is in the chanlimit.tcl by Slennox? I'm asking cos he used timer (minutes) and in your code i see you switched to utimer (seconds).

Statistics: Posted by caesar — Sun Apr 16, 2017 2:57 am