egghelp/eggheads community

A comparison

2009-08-15T07:03:12-04:00

Thanks a lot arfer and Speechless the code works

Statistics: Posted by neoclust — Sat Aug 15, 2009 7:03 am

A comparison

2009-08-15T06:18:40-04:00

Just to answer the original poster, I think the following will now work in all circumstances (all that I can test anyway).

Code:

bind JOIN - * pLimitJoinbind MODE - "% +l" pLimitChangeproc pLimitJoin {nick uhost hand chan} {    if {[isbotnick $nick]} {        utimer 10 [list pLimitCheck $chan]    }    return 0}proc pLimitCheck {chan} {    global vLimitOld    regexp -- {^[^-\s]+k?l([\s][^-\s]+)?[\s]([0-9]+)} [getchanmode $chan] -> dummy vLimitOld($chan)    return 0}proc pLimitChange {nick uhost hand chan mode target} {    global vLimitOld    if {([info exists vLimitOld($chan)]) && ([string length $vLimitOld($chan)] != 0)} {        if {$vLimitOld($chan) != $target} {            putlog "limit change in $chan from $vLimitOld($chan) to $target"        }    }    set vLimitOld($chan) $target    return 0}# eof

Statistics: Posted by arfer — Sat Aug 15, 2009 6:18 am

A comparison

2009-08-14T21:18:36-04:00

Ok thanks. It was my IRC knowledge that let me down, though I don't doubt there must be a regexp that would do the trick no matter how complex the compounded modes get.

Code:

regexp -- {\+[^\-]+k?l([\s].+)? ([0-9]+)} [getchanmode $chan] -> key limit

The above seems to work as long as there is no other mode appearing between k and l

Statistics: Posted by arfer — Fri Aug 14, 2009 9:18 pm

A comparison

2009-08-14T20:22:21-04:00

I think the regexp I have used would be correct in all circumstances.

Code:

set limit [lindex [split [string trim [lindex [split [getchanmode $chan] l] 1]]] 0]

Note: that is a lowercase L during the [split] on [getchanmode]. It is not the numeral 1.

This works almost as well as your regexp with the same common problem. If the channel is keyed and contains any digits, your regexp will pick this up instead as k comes before l. In my version it will pick up the entire key regardless of digits or not. Yours will fail on a key with digits, mine will fail with a key period.. HAW

There is probably a simple way to extract just the limit but may require more than a single line of code. Need to get an if in there to perform some manipulation depending upon circumstances (presence of +k)...

Code:

-- in channel #test* speechles sets mode: +l 1337* speechles sets mode: +k 31337-- in partyline .tcl regexp -- {\+[^\-]+l ([0-9]+)} [getchanmode #test] -> limit Tcl: 1 .tcl set test $limit Tcl: 31337 .tcl set test  [lindex [split [string trim [lindex [split [getchanmode #test] l] 1]]] 0] Tcl: 31337

Basically, it needs this code:

Code:

set place 0if {[string match "*k*" [lindex [split [getchanmode #test] l] 0]]} { incr place }set limit [lindex [split [string trim [lindex [split [getchanmode #test] l] 1]]] $place]

This should work with a key now and in all situations. *crosses fingers*

Code:

-- in partyline .tcl set place 0 Tcl: 0 .tcl if {[string match "*k*" [lindex [split [getchanmode #test] l] 0]]} { incr place } Tcl: 1 .tcl set limit [lindex [split [string trim [lindex [split [getchanmode #test] l] 1]]] $place] Tcl: 1337 YAY!!

Statistics: Posted by speechles — Fri Aug 14, 2009 8:22 pm

A comparison

2009-08-14T19:24:51-04:00

This script will get the bot's channel limits shortly after it joins each channel to initialise the old limit array (if it tried to do this immediately then the result would be erroneous).

It then compares the old limit with the new after each +l mode change and if different outputs to the partyline and resets the variable containing the old limit.

Code:

bind JOIN - * pLimitJoinbind MODE - "% +l" pLimitChangeproc pLimitJoin {nick uhost hand chan} {    if {[isbotnick $nick]} {        utimer 10 [list pLimitCheck $chan]    }    return 0}proc pLimitCheck {chan} {    global vLimitOld    regexp -- {\+[^\-]+l ([0-9]+)} [getchanmode $chan] -> vLimitOld($chan)    return 0}proc pLimitChange {nick uhost hand chan mode target} {    global vLimitOld    if {[info exists vLimitOld($chan)]} {        if {$vLimitOld($chan) != $target} {            putlog "limit change in $chan from $vLimitOld($chan) to $target"        }    }    set vLimitOld($chan) $target    return 0}# eof

Your attempt to get the limit from [getchanmode $chan] would probably not work in all circumstances, for example if the modes were "+ntl 45 -c". I think the regexp I have used would be correct in all circumstances. I have tested the script and it seems to function as expected.

Statistics: Posted by arfer — Fri Aug 14, 2009 7:24 pm

A comparison

2009-08-14T11:14:02-04:00

Good morning, i need to make a comparison between the previous value of the limit with the new, it's possible to store the previous value to compare with the new ? show me how plz thanks.

bind mode - * Xlimite:scan
proc currentlimit {chan} {
set currentmodes [getchanmode $chan]
if {[string match "*l*" [lindex $currentmodes 0]]} {
return [lindex $currentmodes end]
}
return 0
}

proc Xlimite:scan {nick host hand chan modechg victim} {
set newlimit [currentlimit $chan]
# i want set previous value of limit
if {$limit < $newlimit} { return 0 }

the rest of the proc

return 0
}

Statistics: Posted by neoclust — Fri Aug 14, 2009 11:14 am