egghelp/eggheads community

ctcp version

2006-01-21T09:52:43-04:00

thanks Sir_Fz works perfect

Statistics: Posted by MacDaddy — Sat Jan 21, 2006 9:52 am

ctcp version

2006-01-21T06:30:05-04:00

Yes, try it. Or you can do it like this:

Code:

set bversions {"*version1*" "*version2*" "*version3*"}foreach bversion $bversions { if {[string match -nocase $version $arg]} {  # found match for one of the bad versions  break }}

Statistics: Posted by Sir_Fz — Sat Jan 21, 2006 6:30 am

ctcp version

2006-01-20T23:22:59-04:00

Sir_Fz thanks testing it now ok that works well is there a way of putting the

Code:

if {[string match -nocase "*version*" $arg]} {

into more than one version like

Code:

if {[string match -nocase "*version1*" $arg] || [string match -nocase "*version2*" $arg]} {

and so on add ing versions like that ?
thanks

Statistics: Posted by MacDaddy — Fri Jan 20, 2006 11:22 pm

ctcp version

2006-01-20T19:04:37-04:00

Code:

bind ctcr - VERSION version:replybind join - * check:versionproc check:version {nick uhost hand chan} { global cversion set cversion([string tolower $nick]) 1 putserv "privmsg $nick :\001VERSION\001"}proc version:reply {nick uhost hand dest kw arg} { global cversion if {[isbotnick $dest] && [info exists cversion([string tolower $nick])]} {  if {[string match -nocase "*version here*" $arg]} {   puthelp "notice $nick :message here"   unset cversion([string tolower $nick])  } }}

Statistics: Posted by Sir_Fz — Fri Jan 20, 2006 7:04 pm

ctcp version

2006-01-20T16:47:03-04:00

hey all i got a mIRC script that i use and i tryed to convert it into tcl

this is the mirc scrpt.

Code:

ON !*:JOIN:#: {  ctcp $nick version}ON *:CTCPREPLY:VERSION*: {  if (!$window(@version)) window -ne @version  aline @version $nick $1-  if (*version here* iswm $1-) {      /notice $nick $nick message here  }}

and this is what i have for tcl.

Code:

bind join - * verjoinproc verjoin {nick uhost hand chan} { if {([onchan $nick $chan]) && ("[getchanhost $nick $chan]" == "$uhost")} {  if {([string match -nocase *version here* $nick])} {   putserv "NOTICE $nick message here"  } }}

i dont get any errors and i dont send the notice can anyone help ?
thanks

Statistics: Posted by MacDaddy — Fri Jan 20, 2006 4:47 pm