egghelp/eggheads community

Checking for identical messages in proc

2008-04-27T18:27:42-04:00

thanks

Statistics: Posted by TCL_no_TK — Sun Apr 27, 2008 6:27 pm

Checking for identical messages in proc

2008-04-27T16:29:20-04:00

Code:

proc my:message {text} { global settings if {![string equal -nocase [stripcodes bcruag $text] $settings(last)]} {  puthelp "PRIVMSG $settings(dest) :$text"  set settings(last) [stripcodes bcruag $text] }}

Statistics: Posted by Sir_Fz — Sun Apr 27, 2008 4:29 pm

Checking for identical messages in proc

2008-04-27T14:56:41-04:00

I'm looking for way to check for identical messages, example:

Code:

proc my:message {text} {global settings puthelp "PRIVMSG $settings(dest) :$text"  return}

I've thought about doing

Code:

if {($::settings(lastmsg) != "$text")} { set settings(lastmsg) "$text"  return}

but not having much luck getting it to work. alot of the text contains color codes. incase that helps any.

I'm aware of the settings:

set double-mode 0
Allow identical messages in the mode queue?
set double-server 0
Allow identical messages in the server queue?
set double-help 0
Allow identical messages in the help queue?

*sigh* as nice as it would be set these all to 1 its just the one proc i need to prevent identical messages from being sent.

Statistics: Posted by TCL_no_TK — Sun Apr 27, 2008 2:56 pm