It should be simple

[Devil]

Hey guys, I'm kind of stuck here on this code. I just want it to see is @ isin the $text var. But I'm kind of noob to tcl and need some help

Code: Select all

bind msg m| !compra compra

proc compra {nick uhost hand text} {
set compras "@"
if {![string match *$compras* $text]} {
putserv "PRIVMSG memoserv :send $nick $uhost $text"
putserv "PRIVMSG $nick :Sua solicitação foi encaminhada com sucesso. Aguarde resposta da TuxHost."
} else {
putserv "PRIVMSG $nick :Por favor informe um e-mail válido para que a TuxHost possa entrar em contato."
}
}

thank you, I hope I didn't ask too much.

[user]

What's the problem? If it does the opposite of what you expect, you're a noob at logic, not tcl ("!" is a logical NOT)