Document the bot some more
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:00:48 +0000 (00:00 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:00:48 +0000 (00:00 +0000)
DeafAndSilent.hs

index 06d9457..3f8ec83 100644 (file)
@@ -5,28 +5,34 @@ import System.Random
 
 import Partty
 
+{- 
+ - Stupid player: Goes to a party it knows about for sure, otherwise guesses
+ -}
+
 type UserData = Maybe Place
 
 dcb :: DayCallback UserData
 dcb DayStarts = do
        mbp <- get
-       case mbp of
+       room <- case mbp of
                Nothing -> do
                        liftIO $ putStrLn "No idea where to go, guessgin..."
-                       room <- liftIO $ randomRIO (0,9)
-                       send (Goto room)
+                       liftIO $ randomRIO (0,9)
                Just room -> do
                        liftIO $ putStrLn $ "Yay, I know where to go! (" ++ show room ++")"
-                       send (Goto room)
-
+                       return room
+       send (Goto room)
 
 dcb e = return ()
 
 ncb :: NightCallback UserData
+-- Round over, forget everything
 ncb (NightEnds) = put Nothing
 
+-- We have the hint, remember it
 ncb (PartyHint room) = put (Just room)
 
+-- Output the score
 ncb (GotScore score) = liftIO $ putStrLn $ "Got score: " ++ show score
 
 ncb e = return ()