elspoke.tcl - Easy LastSpoke.

username · Post by **username** » Thu Dec 27, 2012 3:34 pm

Hello.
This is lastspoke script. You can excemp some nick from output, and create output only for one nick.
Example:

# Show full output.
[23:08:22] <@tvrsh> !last
[23:08:22] <+bionic> [23:05:52] <tvrsh> np Assemblage 23 - Document (Schreibgeschutzt Remix) (MP3@192kbps, 6.62mb)
[23:08:22] <+bionic> [23:05:53] <Info> [video] Assemblage 23 - Document (lyrics) (05:13) @ http://youtu.be/ktBmwP8KfXc
[23:08:23] <+bionic> [23:05:56] <tvrsh> asdf
[23:08:23] <+bionic> [23:05:59] <tvrsh> man
[23:08:23] <+bionic> [23:05:59] <lamestbot> * synonims.tcl = Словарь синонимов деловой лексики. Выдает в канал синонимы указанного слова: http://forum.egghelp.ru/post1518.html#p1518 [tvrsh]

# The chosen nick only.
[23:08:33] <@tvrsh> !last +tvrsh
[23:08:33] <+bionic> [23:05:52] <tvrsh> np Assemblage 23 - Document (Schreibgeschutzt Remix) (MP3@192kbps, 6.62mb)
[23:08:33] <+bionic> [23:05:56] <tvrsh> asdf
[23:08:33] <+bionic> [23:05:59] <tvrsh> man

# Everyone except chosen nick.
[23:25:39] <@tvrsh> !last -tvrsh
[23:25:39] <+bionic> [23:05:53] <Info> [video] Assemblage 23 - Document (lyrics) (05:13) @ http://youtu.be/ktBmwP8KfXc
[23:25:39] <+bionic> [23:05:59] <lamestbot> * synonims.tcl = Словарь синонимов деловой лексики. Выдает в канал синонимы указанного слова: http://forum.egghelp.ru/post1518.html#p1518 [tvrsh]

All information keeps in memory, and it clears after .rehash.

Download it here: elspoke.tcl

spithash · Post by **spithash** » Thu Dec 27, 2012 5:51 pm

Briliant!

If you only could translate the notices in english for us to use, it would be awesome

Football · Post by **Football** » Sat Dec 29, 2012 2:37 pm

I join that request please..

username · Post by **username** » Sun Dec 30, 2012 10:59 am

Code: Select all

    if {[info exists elspoke(lasttime,$chan)] && [expr $elspoke(lasttime,$chan) + $elspoke(delay)] > [clock seconds]} {
        putserv "NOTICE $nick :$elspoke(color1)You can use one request in $elspoke(color2)$elspoke(delay) $elspoke(color1)[lindex {. second seconds seconds} [::elspoke::elspoke_numgrp $elspoke(delay)]]."
        putserv "NOTICE $nick :$elspoke(color1)Wait $elspoke(color3)[expr $elspoke(delay) - [expr [clock seconds] - $elspoke(lasttime,$chan)]] $elspoke(color1)[lindex {. second seconds seconds} [::elspoke::elspoke_numgrp [expr $elspoke(delay) - [expr [clock seconds] - $elspoke(lasttime,$chan)]]]] and try again."
        return 0
    }