egghelp/eggheads community

tcl "goto" command?

2003-08-13T14:48:57-04:00

that will work just fine.

Thanks ppslim :^)

Statistics: Posted by Dedan — Wed Aug 13, 2003 2:48 pm

tcl "goto" command?

2003-08-13T14:36:02-04:00

Nope, there is no goto command in Tcl, however, you code can be re-written to perform the same effect with an extention to the if command.

Code:

bind pubm -|- "*" protect:channelproc protect:channel {nick uhost handle channel text} {  global botnick my text codes caps spaces rp  set chan [string tolower $channel]  if {![botisop $chan] || [isop $nick $chan]} {return 0}  if {[string length $text >= $text(large)]} {     codes:search     strip:codes     caps:search     spaces:search  } else {        strip:codes  }  badword:search}

Statistics: Posted by ppslim — Wed Aug 13, 2003 2:36 pm

tcl "goto" command?

2003-08-13T14:27:12-04:00

I think that can be only used in mIRC language.

cuz that's how it works there.

Statistics: Posted by Sir_Fz — Wed Aug 13, 2003 2:27 pm

tcl "goto" command?

2003-08-13T14:16:58-04:00

Code:

bind pubm -|- "*" protect:channelproc protect:channel {nick uhost handle channel text} {  global botnick my text codes caps spaces rp  set chan [string tolower $channel]  if {![botisop $chan] || [isop $nick $chan]} {return 0}  if {[string length $text >= $text(large)]} {     codes:search     strip:codes     caps:search     spaces:search     goto skip  }       strip:codes  :skip  badword:search}

Statistics: Posted by Dedan — Wed Aug 13, 2003 2:16 pm

tcl "goto" command?

2003-08-13T13:54:23-04:00

Where do you exactly want to make a *goto* thing? Paste a part of your code or give an example.

Statistics: Posted by caesar — Wed Aug 13, 2003 1:54 pm

tcl "goto" command?

2003-08-13T13:26:05-04:00

I was wondering if there was any kind of "goto"
command in tcl like many other languages have.

I have saerched a bit and have come up with nothing.

Thank for any help given.

Statistics: Posted by Dedan — Wed Aug 13, 2003 1:26 pm