diff options
| -rw-r--r-- | Hsbot/Plugin/Duck.hs | 38 | ||||
| -rw-r--r-- | hsbot.cabal | 3 |
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 |