Checking for identical messages in proc

[TCL_no_TK]

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

Code: Select all

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

I've thought about doing

Code: Select all

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.

[Sir_Fz]

Code: Select all

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]
 }
}

[TCL_no_TK]

thanks