egghelp/eggheads community

Peak in choosen channel

2008-05-08T08:28:45-04:00

Ofcourse i'll keep the script unchanged which you posted so credits are where they should be, and also it works very nicely, thanks for all your help, and especially the very quick reply's.

Statistics: Posted by starpossen — Thu May 08, 2008 8:28 am

Peak in choosen channel

2008-05-08T00:30:58-04:00

To add it, copy the steps below.

Code:

# code provided by user via egghelp forums# url @ http://forum.egghelp.org/viewtopic.php?t=9009&start=3proc throttled {id seconds} {   global throttle   if {[info exists throttle($id)]&&$throttle($id)>[clock sec]} {      set id 1   } {      set throttle($id) [expr {[clock sec]+$seconds}]      set id 0   }}# delete expired entries every 10 minutesbind time - ?0* throttledCleanupproc throttledCleanup args {   global throttle   set now [clock sec]   foreach {id time} [array get throttle] {      if {$time<=$now} {unset throttle($id)}   }}

Add the above to bottom of the script (in it's entirety without changing anything, user deserves credit). Then make the change below, that's it.

Code:

#changeif {![lsearch -exact [split $::peakchanlist] $channel]} {return}#intoif {[throttled $hostname,$channel 30] || ![lsearch -exact [split $::peakchanlist] $channel]} {return}

This allows one trigger per "!ident@hostname,#channel" every 30 seconds. If instead you think once public in channel is enough, use the code below.

Code:

#intoif {[throttled $channel 30] || ![lsearch -exact [split $::peakchanlist] $channel]} {return}

Once every 30 seconds per channel, regardless of who why or what triggered it.

Statistics: Posted by speechles — Thu May 08, 2008 12:30 am

Peak in choosen channel

2008-05-07T23:54:46-04:00

Somewhat a flood-control, let's say users can't use the peak command twice in a row, a 30 second denial of usage, to prevent spam/flood, could be very usefull, in case of flagged users getting a bit to hyper with the command.

And yes I know I can restrict the command so only I can use it, but still, a flood-control kinda thing would be great.

*EDIT* maybe i'm to tired, but it looks like I kinda repeated what you wrote, except my text looks confusing.

Statistics: Posted by starpossen — Wed May 07, 2008 11:54 pm

Peak in choosen channel

2008-05-07T23:47:49-04:00

Number 2 is absolutly what I wanted, thanks alot for the help, and the quick replys.

So I guess there's nothing more to add to this script, or do you have any additions or ideas?

A throttle mechanism to keep clueless users from repeating the command several thousand times (+f/o users can be clueless and yes i noticed you restricted binding to just those flags )
User has written a great one that could easily be incorporated.

Statistics: Posted by speechles — Wed May 07, 2008 11:47 pm

Peak in choosen channel

2008-05-07T23:07:35-04:00

Number 2 is absolutly what I wanted, thanks alot for the help, and the quick replys.

So I guess there's nothing more to add to this script, or do you have any additions or ideas?

Statistics: Posted by starpossen — Wed May 07, 2008 11:07 pm

Peak in choosen channel

2008-05-07T21:36:45-04:00

Code:

#changeputhelp "PRIVMSG $channel :Peak for $channel: [lindex $peakdata 3] (by [lindex $peakdata 0]![lindex $peakdata 1] at [clock format [lindex $peakdata 2] -format {%d/%m/%y %H:%M:%S}])" #into either#1) gives 'nick at date' as reply.puthelp "PRIVMSG $channel :Peak for $channel: [lindex $peakdata 3] (by [lindex $peakdata 0] at [clock format [lindex $peakdata 2] -format {%d/%m/%y %H:%M:%S}])"#or#2) gives 'nick duration ago' as reply, this is a better replacement.puthelp "PRIVMSG $channel :Peak for $channel: [lindex $peakdata 3] (by [lindex $peakdata 0] [duration [expr [unixtime] - [lindex $peakdata 2]]] ago)"

Statistics: Posted by speechles — Wed May 07, 2008 9:36 pm

Peak in choosen channel

2008-05-07T21:32:35-04:00

I tried that and it seemed to work, so thank you
one thing that bothers me, is the output:

Code:

 Peak for #channel: 30 (by nick !host@hots.host at 08/05/08 02:48:57)

I don't like the idea of it showing the host, I just want nick and date/time, I tried removing the host part in the script, but once again realized that i'm no pro scripter, so the bot crashed, any idea of which line to edit/remove to make it only show nick and date/time?

Statistics: Posted by starpossen — Wed May 07, 2008 9:32 pm

Peak in choosen channel

2008-05-07T21:12:51-04:00

It kinda already does that, using .chanset. If you meant a static channel list, you can use the changes below.

Code:

#changesetudef flag peak #intovariable peakchanlist "#chan1 #chan2 #etc" ;#space delimited#changeif {![channel get $channel peak]} {return}#intoif {![lsearch -exact [split $::peakchanlist] $channel]} {return}#change if {![channel get $channel peak]} {#intoif {[lsearch -exact [split $::peakchanlist] $channel]} {

Statistics: Posted by speechles — Wed May 07, 2008 9:12 pm

Peak in choosen channel

2008-05-07T20:45:26-04:00

I found this script on an old backup cd:

Code:

bind PUB fo|fo -peak pub:peakbind JOIN -|- *  join:peaksetudef str peak-datasetudef flag peakproc pub:peak {nickname hostname handle channel arguments} {  if {![channel get $channel peak]} {return}  if {[set peakdata [channel get $channel peak-data]] == ""} {    puthelp "PRIVMSG $channel :No peak data available yet (try rejoining)."  } else {    puthelp "PRIVMSG $channel :Peak for $channel: [lindex $peakdata 3] (by [lindex $peakdata 0]![lindex $peakdata 1] at [clock format [lindex $peakdata 2] -format {%d/%m/%y %H:%M:%S}])"  }}proc join:peak {nickname hostname handle channel} {  if {[channel get $channel peak]} {    if {[set peakdata [channel get $channel peak-data]] == ""} {      channel set $channel peak-data [list $nickname $hostname [clock seconds] [llength [chanlist $channel]]]    } elseif {[lindex $peakdata 3] < [llength [chanlist $channel]]} {      channel set $channel peak-data [list $nickname $hostname [clock seconds] [llength [chanlist $channel]]]      # if you want to announce there is a new peak, do it here (just remove the comment)      puthelp "PRIVMSG $channel :New peak ([llength [chanlist $channel]]) by $nickname!"    }  }}

It works and all, but i'd like to define channels in which to use it
is that hard to make it do so?

Statistics: Posted by starpossen — Wed May 07, 2008 8:45 pm