TCL dummy needs help

[MarlbMan]

Sorry to ask, I know everyone is just as busy as I am, but could I get someone to script a very simply tcl that responds to commands in channel by notice? I am a decent mirc scripter but tcl is eluding me at the moment, I am reading all I can on it, but need to figure this one out now. Basically, I want something that, when you type a trigger in channel, it would respond via notice like:
!rules would notice to the user <This is the channel rules text line one> <This is the channel rules text line two>
!helo would notice to the user <This is the channel help text line one> <this is the channel rules text line two>

If I could get a bit of a jump start I could expand upon it from there. thanks all.

MM

[GodOfSuicide]

there are at least 3 such scripts in TCL archive

[spock]

Code: Select all

set rules "No touching"
bind pub - !rules pub:rules
proc pub:rules {nick host handle chan text} {
   global rules
   putnotc $nick $rules
}
 

expand it

[spock]

next time ask in the tcl section

[Papillon]

Code: Select all

putnotc $nick $rules

note that putnotc is a command taken from the "alltools.tcl" script and as such is not a default eggdrop/tcl command, it's added to all eggdrops at default but some might want to remove it for unknown reasons. If you do not use alltools.tcl then use this line to put notice to the user instead:

Code: Select all

putserv "NOTICE $nick :$rules" 

[spock]

/me spanks Papi

MM:

dont use pap's putserv suggestion, use puthelp instead, it has a slower queue and will potentially prevent abuse, and repercussions from strict servers.

yes i wrote this to be an ass

[Papillon]

hehehe

naughty

[MarlbMan]

Thanks all... working great now... really appreciate the replies...