help.tcl 968 B

1234567891011121314151617
  1. # help.tcl
  2. proc show_help { nick host hand chan arg } {
  3. putserv "PRIVMSG $nick :*** command help: ***"
  4. putserv "PRIVMSG $nick : Quake2 Server List Commands:"
  5. putserv "PRIVMSG $nick : !addserver ip:port - this adds a server to the server list"
  6. putserv "PRIVMSG $nick : !delserver number - this removes the server specified by number from the server list"
  7. putserv "PRIVMSG $nick : !serverlist - this shows all servers in the server list"
  8. putserv "PRIVMSG $nick : !refresh - this refreshes all servers in the server list"
  9. putserv "PRIVMSG $nick : !refresh number - this refreshes the server specified by number"
  10. putserv "PRIVMSG $nick : Others:"
  11. putserv "PRIVMSG $nick : !help - you are viewing this right now ;)"
  12. putserv "PRIVMSG $nick : !insult name - this insults the user specified by name with a random insult"
  13. putserv "PRIVMSG $nick :*** end of help ***"
  14. }
  15. bind pub - !help show_help