egghelp/eggheads community

Looking for a brief history bot. Record and display 10 lines

2008-04-19T21:18:40-04:00

Thanks, modified it a bit for my bot, and it works perfectly. Thanks for the hand.

Statistics: Posted by bradleylauchlin — Sat Apr 19, 2008 9:18 pm

Looking for a brief history bot. Record and display 10 lines

2008-04-15T09:12:05-04:00

Code:

bind pubm - "#channel *" record:linesbind join - "#channel *" notice:linesset last10Lines [list]proc record:lines {nick uhost hand chan arg} { global last10Lines lappend last10Lines "<$nick> $arg" if {[llength $last10Lines] > 10} {  set last10Lines [lrange $last10Lines end-9 end] }}proc notice:lines {nick uhost hand chan} { global last10Lines foreach line $last10Lines {  puthelp "notice $nick :$line" }}

Statistics: Posted by Sir_Fz — Tue Apr 15, 2008 9:12 am

Looking for a brief history bot. Record and display 10 lines

2008-04-14T20:06:22-04:00

Hi, I am looking to add a script to my bot where it records the last 10 lines from the conversation and then will message, or notice them to a user when they join the channel so that they know what is going on, and are not completely oblivious to the converstation going on as they enter.

I am fairly new to TCL scripting and can do basic stuff, but am not sure how to best approach this. If someone could get me started that would be great. Thanks.

Statistics: Posted by bradleylauchlin — Mon Apr 14, 2008 8:06 pm