!say #Channel Text Text text

[lolwutxd]

Hello,

I'm after a !Say #Channel $1

tcl script, anybody able to help?

[bLzR]

U can achieve this by using the say command in the console to put a message through the bot

Code: Select all

say [channel] <text>
Dumps the text to your current console channel (or other specified channel), as if the bot said it.
Examples
	.say #NiceChan Hi everyone! This is Lemmon. I'm talking through the bot!

[tets]

There is a much easier way

Code: Select all

bind pub m !say say

proc say { n u h c t } {
  set l [split $t]
  set channel [lindex $l 0]
  set msg [join [lrange $l 1 end]]
  puthelp "privmsg $channel :$msg"
}

correct now

[nml375]

@EXEQED:
Please remember that the input is a string, not a list; and thus is not suitable for use with neither lindex nor lrange. Further, lrange returns a list, not a string.

Proper way to do it, using lindex and lrange:

Code: Select all

bind pub m !say say

proc say { n u h c t } {
  set l [split t]
  set channel [lindex $l 0]
  set msg [join [lrange $l 1 end]]
  puthelp "privmsg $channel :$msg"
}