<botnick>, <command> - Tcl?

Jas0n · Post by **Jas0n** » Sun Jun 30, 2002 2:30 pm

How would i produce something like this in TCL?

[Jason] bot, hello
[bot] Hi

Want the commands to be accessed like..

<botnick>, <command>

If anyone knows how please post!

Thanks,
Jas0n
[/code][/quote]

Wcc · Post by **Wcc** » Sun Jun 30, 2002 5:03 pm

I would do a pubm bind on "*", then compare it to "${::botnick}," inside the proc.

Wcc

Jas0n · Post by **Jas0n** » Sun Jun 30, 2002 6:24 pm

so what would the tcl look like then??

guppy · Post by **guppy** » Mon Jul 01, 2002 6:51 pm

Code: Select all

bind pubm - "% %,*" pubm:botnick

proc pubm:botnick {nick uhost hand chan arg} {
  if {[scan $arg "%\[^,]," somenick] && [isbotnick $somenick]} {
    <your code here>
  }
  return 0
}

something like that probably.

[/code]

Wcc · Post by **Wcc** » Mon Jul 01, 2002 9:05 pm

Except:

Code: Select all

  if {[scan $arg "%\[^,]," somenick] && [isbotnick $somenick]} {

should be

Code: Select all

  if {[scan $arg "%\[^,\]," somenick] && [isbotnick $somenick]} {

Wcc

egghelp/eggheads community

<botnick>, <command> - Tcl?

<botnick>, <command> - Tcl?

tcl?