--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/help.tcl	Tue Sep 21 13:12:49 2010 +0300
@@ -0,0 +1,30 @@
+############################################################################
+# Niinuska Help
+############################################################################
+set nn_message "Niinuska Help v0.1 by ccr/TNSP"
+set nn_preferredmsg "PRIVMSG"
+
+putlog "$nn_message"
+bind pub - !help nn_pubmsg
+bind pub - !apua nn_pubmsg
+
+# -------------------------------------------------------------------------
+proc nn_smsg {udest umsg} {
+  global nn_preferredmsg
+
+  putserv "$nn_preferredmsg $udest :$umsg"
+}
+
+
+# -------------------------------------------------------------------------  
+proc nn_pubmsg {nick uhost hand chan args} {
+  if {$args == "{}" || $args == ""} { set args $hand }
+
+  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ä>"
+  return 1
+}
+
+# -------------------------------------------------------------------------