Hamish - TCL Example

bind pubm - "* !*" pubm_commands
proc pubm_commands {nick host handle channel stuff} {
  if {[string tolower [lindex $stuff 0]] == "!commands"} {
    putserv "PRIVMSG $channel :COmmands for bot
    putserv "PRIVMSG $channel :!hello - says hello
    putserv "PRIVMSG $channel :!watsup - asks you watsup
    return 0
  }
  if {[string tolower [lindex $stuff 0]] == "!hello"} {
    putserv "PRIVMSG $channel :Hello there, $nick!
  }
}