send a msg to server

[openglx]

Hi

I need a TCL that the bot when receives a command in /msg, it does a /notice $*.br :msg

just like this

/msg my-bot !global test 1 2 3

and the bot dumps a msg do the server:

/notice $*.br :test 1 2 3

Thanks!

[Wcc]

Code: Select all

# Set the message command here.
set global_cmd "!global"

# Set the flags required to use this
# command here.

set global_flags "m|-"

bind msg $global_flags $global_cmd msg:global

proc msg:global {nick uhost hand text} {
	global global_cmd
	if {$text == ""} { putserv "NOTICE $nick :Usage: $global_cmd <notice>" ; return 0 }
	putserv "NOTICE $*.br :$text"
}