Help with TCL Script to say msg channel

[pilot1]

Ok, I know virtually nothing about eggdrop scripting..
What I want is when you send a message to the eggdrop with something like
"!say bob smells" the eggdrop performs the command "/msg $chan bob smells"

Can anyone write me a simple script for this?
And tell me how to install it?
Thanks!

[pilot1]

I don't see an edit button so...

Ok, I figured out the command to do that would be
".dump PRIVMSG #channel whatever your saying" on the DCC chat.
How can I make a TCL script where "!say yada yada" tells the eggdrop to do ".dump PRIVMSG #channel yada yada"?

I just need !say to work in the channel.. if it doesn't work in a PM/notice/ctcp that's fine.

[caesar]

Code: Select all

bind msg m say pub:say

proc pub:say { nick uhost hand text } { 
if {[llength [split $text]] < 2} {
  putserv "PRIVMSG $nick :\002Usage\002: say #channel text"
return }
set channel [lindex $text 0]
set msg [lrange $text 1 end]
if {![validchan $channel] || ![botonchan $channel]} {
  putserv "PRIVMSG $nick :I'm not monitoring $channel or I'm not there."
return }
putserv "PRIVMSG $channel :$msg"
}

[pilot1]

Thanks, just one problem though..
It lets me do the say command, but it won't let anyone else.
Do you have any idea how to fix that? I want *everyone* to have access to it.

[Papillon]

change this:

Code: Select all

bind msg m say pub:say

to this:

Code: Select all

bind msg - say pub:say

[pilot1]

Thanks, that works perfectly.

Could you also please give me the code to do the same thing, except do it on the word "action" and do a /me action instead of messaging the channel with it?

[spock]

bind msg - say pub:say

to

bind msg - action pub:say

and

putact $channel $msg

instead of the putserv

and if you're going to use both the msg&act scripts, rename all instances of pub:say (in the act script) to pub:act

[pilot1]

Thanks, it works.