Mercurial > hg > egg-tcls

changeset 42:6f8d699fe03f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update help.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 07 Sep 2011 08:03:42 +0300
parents 636fa4bf0814
children 965b728c2a9d
files help.tcl
diffstat 1 files changed, 3 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/help.tcl	Tue Sep 06 21:16:20 2011 +0300
+++ b/help.tcl	Wed Sep 07 08:03:42 2011 +0300
@@ -1,7 +1,7 @@
 ############################################################################
 # Niinuska Help
 ############################################################################
-set nn_message "Niinuska Help v0.1 by ccr/TNSP"
+set nn_message "Niinuska Help v0.2 by ccr/TNSP"
 set nn_preferredmsg "PRIVMSG"
 
 putlog "$nn_message"
@@ -17,13 +17,11 @@
 
 
 # -------------------------------------------------------------------------  
-proc nn_pubmsg {nick uhost hand chan args} {
-  if {$args == "{}" || $args == ""} { set args $hand }
-
+proc nn_pubmsg {unick uhost uhand uchan uargs} {
   nn_smsg $chan "Lisätietoja: http://tnsp.org/irc/readme.php"
   nn_smsg $chan "!sää \[paikka|minmax\] ; !urlfind <+sana|-sana|%käyttäjä> ; !tj \[käyttäjä\] ; !tjaamut \[-\]vuorokaudet \[\[-\]tunnit\]"
   nn_smsg $chan "!laske <kaava> (\002HUOM! Pyöristää vakiona lähimpään kokonaislukuun, käytä yhtä desimaalikua vaihtaaksesi tarkkuuden\002)"
-  nn_smsg $chan "!spede \[nro\] ; !spedefind <+sana|-sana|%käyttäjä> ; !mn \[nro\] ; !mnfind <+sana|-sana|%käyttäjä>"
+  nn_smsg $chan "!spede \[nro\] ; !spede find <+sana|-sana|%käyttäjä> ; !spede add <teksti> ; !spede del <id> ; (Samat myös: !mn, !tuksu)"
   return 1
 }