egghelp/eggheads community

Loud Bot

2012-01-12T14:41:26-04:00

any chance flat file storage could be added to this? thanks.

Statistics: Posted by radix — Thu Jan 12, 2012 2:41 pm

Loud Bot

2010-02-18T17:52:18-04:00

Uhm seems like sometimes it replies even though the person didn't write the text with caps..

It didn't contain an alphabet check, now it does. Use the code I've altered found above. [::alpha::] should behave differently than [a-z] (foreign languages) in regard to full alphabetic ranges.

Statistics: Posted by speechles — Thu Feb 18, 2010 5:52 pm

Loud Bot

2010-02-18T10:42:35-04:00

[16:20:16] <@Allyn> Cash-strapped Portsmouth are understood to have asked the Premier League for permission to sell players outside the transfer window.
[16:20:19] <@Allyn> ............
[16:20:21] <@EPL> ALLYN,

[15:35:09] well good for you that you managed to google it, Oreo, despite the fact that you are.. you.
[15:35:11]
[15:35:12] <@EPL> AHMADINEJAD, OMG

Uhm seems like sometimes it replies even though the person didn't write the text with caps..

Statistics: Posted by Football — Thu Feb 18, 2010 10:42 am

Loud Bot

2010-02-18T08:40:55-04:00

Thank worked, cheers!

Statistics: Posted by Football — Thu Feb 18, 2010 8:40 am

Loud Bot

2010-02-18T08:18:30-04:00

Remove the "!" from this line

Code:

if {![channel get $chan loud]} {

Statistics: Posted by Sir_Fz — Thu Feb 18, 2010 8:18 am

Loud Bot

2010-02-18T07:01:30-04:00

.chanset #Xabriel +loud
Successfully set modes { +loud } on #Xabriel.

[13:01:05] OMG
[13:01:06] LOL

The bot doesn't reply

Statistics: Posted by Football — Thu Feb 18, 2010 7:01 am

Loud Bot

2010-02-18T17:50:19-04:00

Code:

# flagsetudef flag loud# bindbind pubm - * my:reply:catcher# create catch for LOUD chatterproc my:reply:catcher {nick uhost hand chan text} {# loud is activated on the channel?if {[channel get $chan loud]} {# does this string even have alphabet charactersif {[regexp -nocase {[::alpha::]} $text]} {# yes, is this person using ALL CAPS?if {[string equal [string toupper $text] $text]} {# yes, before replying is there even a reply or is# our list corrupt?if {[string length [set reply [my:reply:proc $text]]]} {# LOUD reply isn't empty so let's spam it :)putserv "privmsg $chan :[string toupper $nick], $reply"}}}}# this is a pubm bind, we must return 0 here because the last# value returned otherwise will be 1 from the putserv. We do# NOT want a 1 returned from a pubm bind. This causes it to# do the reverse of what you think. pubm binds differ from# pub binds in this way.return 0}# reply proc helper for the catcherproc my:reply:proc {text} {# do we already have a LOUD list built?if {[info exists ::__my_list]} {# yes, then reply randomly from the present list# before we add this text to our listset reply [lindex $::__my_list [rand [llength $::__my_list]]]} else {# no, then reply that they are LOOOUUDDD!set reply "LOOOOUUUDDDDDD!!!!"}# add the text to our LOUD listlappend ::__my_list $text# return the LOUD replyreturn $reply}#eof

fixed.
added alpha check before replying LOUDLY.

Statistics: Posted by speechles — Wed Feb 17, 2010 8:02 pm

Loud Bot

2010-02-16T17:15:09-04:00

Hey, I`m looking for a scrirpt that when someone shouts in caps it will reply in all caps with another message that was shouted in all caps by someone else.

Statistics: Posted by Football — Tue Feb 16, 2010 5:15 pm