wonder if anyone be so kind as to help

[Callisto]

Hi I am very new to tcl so any help would be appreciated.
I would like help or be pointed in the right direction regarding making a script.The script I would like is one where a trigger can be used in public or msg like !help or /msg botnick help and it would play a text file back to the nick.
Any help appreciated and many thanks

[YooHoo]

try reading tcl-commands.doc, as well as this excellent guide:
suninet tcl guide

[greenbear]

Code: Select all

set filename "help.txt"

bind pub - !help help

proc help {nick uhost hand chan text} {
 if ![file exists $::filename] {
  putserv "NOTICE $nick :Error: Can't find $::filename."
 } {
  set id [open $::filename]
  while {![eof $id]} {
   puthelp "PRIVMSG $nick :[gets $id]"
  }
  close $id
 }
}