last talk / last line

[fredvil]

just asking, is there a tcl script that records the date/time of last talk or last line on the channel before user leave. and when someone use:

!lastline nick or
!lasttalk nick

the bot will repond with the time nick last talked on the channel.

semilar with the seen script but reporting the last talked time.

thanks

[demond]

Code: Select all

bind pubm - * foo
bind pub - !last bar
proc foo {n args} {set ::last($n) [unixtime]}
proc bar {n u h c t} {catch {puthelp "privmsg $c :[ctime $::last($t)]"}}

[fredvil]

thanks a lot demond... that's exactly what im looking for...

<fredvil> !last hannah23
<botnick> Thu Aug 24 18:27:25 2006

demond one thing if it's ok... how can i put a little comment on the reply.. something like this:

<fredvil> !last hannah23
<botnick> hannah23 last talk - Thu Aug 24 18:27:25 2006

your help is very much appreciated... thanks again.. God bless!

fredvil

[r0t3n]

change

Code: Select all

proc bar {n u h c t} {catch {puthelp "privmsg $c :[ctime $::last($t)]"}}

to

Code: Select all

proc bar {n u h c t} {catch {puthelp "privmsg $c :$t last talk - [ctime $::last($t)]"}}

[fredvil]

got it! thank you very much...

regards!