From 9e6647634f36280281cb1ad327ffb3e57f6fc426 Mon Sep 17 00:00:00 2001
From: Joachim Breitner <mail@joachim-breitner.de>
Date: Fri, 4 Jul 2008 23:54:48 +0000
Subject: [PATCH] A DeafAndSilend bot

---
 DeafAndSilent.hs | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 DeafAndSilent.hs

diff --git a/DeafAndSilent.hs b/DeafAndSilent.hs
new file mode 100644
index 0000000..06d9457
--- /dev/null
+++ b/DeafAndSilent.hs
@@ -0,0 +1,37 @@
+import Control.Monad.Trans
+import Control.Monad.State
+import Control.Monad.Writer
+import System.Random
+
+import Partty
+
+type UserData = Maybe Place
+
+dcb :: DayCallback UserData
+dcb DayStarts = do
+	mbp <- get
+	case mbp of
+		Nothing -> do
+			liftIO $ putStrLn "No idea where to go, guessgin..."
+			room <- liftIO $ randomRIO (0,9)
+			send (Goto room)
+		Just room -> do
+			liftIO $ putStrLn $ "Yay, I know where to go! (" ++ show room ++")"
+			send (Goto room)
+
+
+dcb e = return ()
+
+ncb :: NightCallback UserData
+ncb (NightEnds) = put Nothing
+
+ncb (PartyHint room) = put (Just room)
+
+ncb (GotScore score) = liftIO $ putStrLn $ "Got score: " ++ show score
+
+ncb e = return ()
+
+
+main = do
+	runPartty "localhost" 1111 "me2" "passwd" dcb ncb Nothing
+
-- 
2.20.1