summaryrefslogtreecommitdiff
path: root/HsbotIrcBot/Hsbot/Irc/Plugin
diff options
context:
space:
mode:
authorJulien Dessaux2010-08-22 18:16:21 +0200
committerJulien Dessaux2010-08-22 18:16:21 +0200
commitd0b0fb6ac1340880d7e4f1ea423604714a11cfb4 (patch)
treeb711023b9004c5609b67da69074cbf9c9f44b6e2 /HsbotIrcBot/Hsbot/Irc/Plugin
parentAdded the quote quick command. (diff)
downloadhsbot-d0b0fb6ac1340880d7e4f1ea423604714a11cfb4.tar.gz
hsbot-d0b0fb6ac1340880d7e4f1ea423604714a11cfb4.tar.bz2
hsbot-d0b0fb6ac1340880d7e4f1ea423604714a11cfb4.zip
Added the help command for the quote module.
Diffstat (limited to 'HsbotIrcBot/Hsbot/Irc/Plugin')
-rw-r--r--HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs17
1 files changed, 17 insertions, 0 deletions
diff --git a/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs b/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs
index 81c3794..ab4734a 100644
--- a/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs
+++ b/HsbotIrcBot/Hsbot/Irc/Plugin/Quote.hs
@@ -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