<botnick>, <command> - Tcl?

[Jas0n]

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]

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

Wcc

[Jas0n]

so what would the tcl look like then??

[guppy]

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]

Except:

Code: Select all

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

should be

Code: Select all

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

Wcc