summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJulien Dessaux2011-05-05 00:30:34 +0200
committerJulien Dessaux2011-05-05 00:30:34 +0200
commit9abbc593a2dada91aaeabe092a19089111f6ab40 (patch)
treef84c34dc35c04cde0749aa70d0d060b3640e79e1
parentUpdated for TLS 0.6 (diff)
downloadhsbot-9abbc593a2dada91aaeabe092a19089111f6ab40.tar.gz
hsbot-9abbc593a2dada91aaeabe092a19089111f6ab40.tar.bz2
hsbot-9abbc593a2dada91aaeabe092a19089111f6ab40.zip
Added the Duck module (PAN!).
Diffstat (limited to '')
-rw-r--r--Hsbot/Plugin/Duck.hs38
-rw-r--r--hsbot.cabal3
2 files changed, 40 insertions, 1 deletions
diff --git a/Hsbot/Plugin/Duck.hs b/Hsbot/Plugin/Duck.hs
new file mode 100644
index 0000000..5b4371e
--- /dev/null
+++ b/Hsbot/Plugin/Duck.hs
@@ -0,0 +1,38 @@
+module Hsbot.Plugin.Duck
+ ( duck
+ , theDuck
+ ) where
+
+import Control.Concurrent.Chan ()
+import qualified Data.List as L
+import Control.Monad.State
+import qualified Network.IRC as IRC
+import Prelude hiding (catch)
+
+import Hsbot.Message
+import Hsbot.Types
+
+duck :: PluginId
+duck = PluginId
+ { pluginName = "duck"
+ , pluginEp = theDuck }
+
+-- | The IrcPlugin monad main function
+theDuck :: Plugin (Env IO) ()
+theDuck = forever $ do
+ msg <- readMsg
+ eval msg
+ where
+ eval :: Message -> Plugin (Env IO) ()
+ eval (IncomingMsg msg)
+ | IRC.msg_command msg == "PRIVMSG" = answerMsg msg . concat . isThereADuckToKillInThere . concat $ IRC.msg_params msg
+ | otherwise = return ()
+ eval _ = return ()
+
+isThereADuckToKillInThere :: String -> [String]
+isThereADuckToKillInThere = concatMap (\y -> map (\x -> if x `L.isInfixOf` y then "PAN! " else "") ducks) . words
+
+ducks :: [String]
+ducks = ["\\_o<", "\\_O<", "\\_o>", "\\_O>", "\\o<", "\\O<", "\\o>", "\\O>",
+ ">o_/", ">O_/", "<o_/", "<O_/", ">o/", ">O/", "<o/", "<O/" ]
+
diff --git a/hsbot.cabal b/hsbot.cabal
index 8470339..f28bef9 100644
--- a/hsbot.cabal
+++ b/hsbot.cabal
@@ -1,5 +1,5 @@
Name: hsbot
-Version: 0.4.6
+Version: 0.4.7
Cabal-version: >=1.2
Synopsis: A multipurposes IRC bot
Description:
@@ -23,6 +23,7 @@ Library
Hsbot.Core
Hsbot.Message
Hsbot.Plugin
+ Hsbot.Plugin.Duck
Hsbot.Plugin.Ping
Hsbot.Types
Hsbot.Utils