The First Eggdrop TCL LameNickometer! Hooplah!

[rosc2112]

You've seen it in Perl, you've dreamed about having one for your eggie, you've been waiting for it, now here it is!

A LameNickometer in TCL! Impress your friends, insult your k-l4m3 enemies! Includes multi-channel support, public command and optional on-join trigger.

http://members.dandy.net/~fbn/lamenick.tcl.txt

Uploaded to archive as well.

Enjoy

[rosc2112]

Sep.01.06 - Removed the "> 25%" check from onjoin trigger.
- Simplified the lamenickchar regex.
- Changed color codes in output cos some clients apparently think the percent numbers are color codes.

Sep.03.06 - No longer penalizing uppercase letter if it's the first letter in $lamenick
- Added "special cases" handling for extra lameness..

[Alchera]

I couldn't resist.

[demond]

could you add also LameChanometer?

[rosc2112]

could you add also LameChanometer?

What would it do?

[rosc2112]

Some more updates and reorganizing.

[Alchera]

could you add also LameChanometer?

What would it do?

It's called 'sarcasm'.

Satire; irony; ridicule; taunt; gibe

[demond]

could you add also LameChanometer?

What would it do?

It's called 'sarcasm'.

Satire; irony; ridicule; taunt; gibe

no no, I was serious

suppose your channel chatter consists mainly of one- or two-word phrases, idiotic remarks, too much emoticons, excessive amounts of caps, colors, repeats, you name it - as opposed to another style of chatter implying greater intelligence of those generating it - that is where your LameChanometer kicks in - well, not literally

[rosc2112]

Ah so basically a lame-chanuser script. Sounds kinda complicated, at least for me. The PISG script does something similar tho, so it might be useful as a guide, like the perl lamenick-o-meter which is what I used (more or less) for this tcl.

I'm thinking it would have to keep score in real-time, and do averages based on the totals of *all* users currently in chan, or at least in memory. I'll have to think on it a while, and see if I can decipher the regex parsing in PISG to handle things like repeat-chars, shouting(capslock) and so on. I'm not at all familiar with perl, but I have reference books to decipher things.

Anyway, I'll think on it a while, and put it in my todo list, and maybe someday I'll have something

[rosc2112]

Another bit of updating:

# Sep.05.06 - Added special exemptions regex's for "AFK" and "2112" (unless they're also in the "special cases")

[Alchera]

Like the script BUT I have discovered the channel variables are case sensitive (which is a pain); lower case would make life easier.

[rosc2112]

You got it.

# Sep.08.06 - Added case-insensitive channelname handling.

[Alchera]

You got it.

# Sep.08.06 - Added case-insensitive channelname handling.

Danke. Very much appreciated; working purrrrfectly.

@ demond: My apologies for misreading your post.

[Justdabomb2]

No offense rosc, but how come you space it so weird, with tabs?

[rosc2112]

Space what so weird? The script itself? or the output? Tabulating code makes it easier to read and see where subfunctions/tests start/end. It's a good habit to get used to and good coding style.