Mercurial > hg > egg-tcls

comparison help.tcl @ 0:1c4e2814cd41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial import.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 21 Sep 2010 13:12:49 +0300
parents
children 6f8d699fe03f
comparison
equal deleted inserted replaced
-1:000000000000 0:1c4e2814cd41
1 ############################################################################
2 # Niinuska Help
3 ############################################################################
4 set nn_message "Niinuska Help v0.1 by ccr/TNSP"
5 set nn_preferredmsg "PRIVMSG"
6
7 putlog "$nn_message"
8 bind pub - !help nn_pubmsg
9 bind pub - !apua nn_pubmsg
10
11 # -------------------------------------------------------------------------
12 proc nn_smsg {udest umsg} {
13 global nn_preferredmsg
14
15 putserv "$nn_preferredmsg $udest :$umsg"
16 }
17
18
19 # -------------------------------------------------------------------------
20 proc nn_pubmsg {nick uhost hand chan args} {
21 if {$args == "{}" || $args == ""} { set args $hand }
22
23 nn_smsg $chan "Lisätietoja: http://tnsp.org/irc/readme.php"
24 nn_smsg $chan "!sää \[paikka|minmax\] ; !urlfind <+sana|-sana|%käyttäjä> ; !tj \[käyttäjä\] ; !tjaamut \[-\]vuorokaudet \[\[-\]tunnit\]"
25 nn_smsg $chan "!laske <kaava> (\002HUOM! Pyöristää vakiona lähimpään kokonaislukuun, käytä yhtä desimaalikua vaihtaaksesi tarkkuuden\002)"
26 nn_smsg $chan "!spede \[nro\] ; !spedefind <+sana|-sana|%käyttäjä> ; !mn \[nro\] ; !mnfind <+sana|-sana|%käyttäjä>"
27 return 1
28 }
29
30 # -------------------------------------------------------------------------