Mercurial > hg > egg-tcls
view help.tcl @ 58:0da3461eb871
quotedb: Retrieving total number of quotes in the table does not seem to be working, so commenting out the code.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 08 Sep 2011 22:14:27 +0300 |
parents | 6f8d699fe03f |
children | 15fc72bc3f3e |
line wrap: on
line source
############################################################################ # Niinuska Help ############################################################################ set nn_message "Niinuska Help v0.2 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 {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\] ; !spede find <+sana|-sana|%käyttäjä> ; !spede add <teksti> ; !spede del <id> ; (Samat myös: !mn, !tuksu)" return 1 } # -------------------------------------------------------------------------