egghelp/eggheads community

History script

2004-12-21T10:45:37-04:00

this will show: text

Code:

set bsize 20bind pubm - * fooproc foo {n u h c t} {  if {[info exists ::buf($c)] && [llength $::buf($c)] == $::bsize} {    set ::buf($c) [lreplace $::buf($c) 0 0]  }  lappend ::buf($c) "<$n> $t"}bind join - * barproc bar {n u h c} {  if [info exists ::buf($c)] {    foreach line $::buf($c) {puthelp "notice $n :$line"}  }}

[putserv] should be faster than [puthelp] since the server queue has higher flush priority than the help queue

Statistics: Posted by demond — Tue Dec 21, 2004 10:45 am

Slow

2004-12-21T06:08:30-04:00

1. I don't know if it's my connection but I the history is displayed very slowly. I tried putserv instead of puthelp but the result is the same.

2. Is there a way of showing the nick on each line as well?

Slicer

Statistics: Posted by Slicer121 — Tue Dec 21, 2004 6:08 am

Thanks

2004-12-20T06:03:01-04:00

I works like a charm! Thank you very much!!

S

Statistics: Posted by Slicer121 — Mon Dec 20, 2004 6:03 am

History script

2004-12-19T13:56:21-04:00

Code:

set bsize 20bind pubm - * fooproc foo {n u h c t} {  if {[info exists ::buf($c)] && [llength $::buf($c)] == $::bsize} {    set ::buf($c) [lreplace $::buf($c) 0 0]  }  lappend ::buf($c) $t}bind join - * barproc bar {n u h c} {  if [info exists ::buf($c)] {    foreach line $::buf($c) {puthelp "notice $n :$line"}   }}

Statistics: Posted by demond — Sun Dec 19, 2004 1:56 pm

History script

2004-12-19T13:30:04-04:00

I'm looking for a script that buffers, for instance the last 20 lines on my channel and displays them on join. Does this exist?

Slicer121

Statistics: Posted by Slicer121 — Sun Dec 19, 2004 1:30 pm