adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Added the help command for the quote module.

Browse source
This commit is contained in:
Julien Dessaux 2010-08-22 18:16:21 +02:00
parent d33ab441f8
commit d0b0fb6ac1
3 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs
View file

@ -105,6 +105,23 @@ runCommand intCmd
-- | quote command dispatcher
dispatchQuoteCmd :: String -> QuoteBot ()
dispatchQuoteCmd cmd
| cmd == "help" =
case length stuff of
0 -> lift $ answerMsg request ("Usage: quote [append|commit|help|quick|start] {quoteId} {nickname} {quote}")
_ -> case head stuff of
"quick" -> do
lift $ answerMsg request ("quote quick [nickname] [quote]")
lift $ answerMsg request (" Performs a single line quote.")
"start" -> do
lift $ answerMsg request ("quote start [nickname] [quote]")
lift $ answerMsg request (" Begins a multi lines quote. Use either append to append new lines, or commit to terminate the quoting process.")
"append" -> do
lift $ answerMsg request ("quote append [quoteId] [nickname] [quote]")
lift $ answerMsg request (" Continue a multi line quote by appending to it.")
"commit" -> do
lift $ answerMsg request ("quote commit [quoteId]")
lift $ answerMsg request (" Terminates a multi lines quote.")
_ -> lift $ answerMsg request ("Usage: quote [append|commit|help|quick|start] {quoteId} {nickname} {quote}")
| cmd == "quick" = do
quoteBot <- get
now <- liftIO $ getCurrentTime

2
HsbotIrcBot/hsbot-irc.cabal
View file

@ -1,5 +1,5 @@
Name: hsbot-irc
Version: 0.3.10
Version: 0.3.11
Cabal-version: >=1.2
Synopsis: The irc part of a multi-purposes bot.
Description:

1
TODO
View file

@ -4,6 +4,7 @@
* fork process in background
* implement logging capabilities
* add a function to answer by /msg to somebody
* write the vote system for the quote module
* only the quote reporter should be able to edit it
* detect too identical quoting in a raw, or implement quote abort