Go to a random room

diff --git a/Dummy.hs b/Dummy.hs
index 9932a6d..e166a2a 100644 (file)
--- a/Dummy.hs
+++ b/Dummy.hs
@@ -1,12 +1,14 @@
 import Control.Monad.Trans
 import Control.Monad.Writer
 import Control.Monad.Trans
 import Control.Monad.Writer

+import System.Random

 
 import Partty
 
 dcb :: DayCallback ()
 dcb DayStarts = do
        liftIO $ putStrLn "Good Morning!"
 
 import Partty
 
 dcb :: DayCallback ()
 dcb DayStarts = do
        liftIO $ putStrLn "Good Morning!"

-       send (Goto 1)
+       room <- liftIO $ randomRIO (0,9)
+       send (Goto room)

 
 dcb e = liftIO  $ putStrLn (show e)
 
 
 dcb e = liftIO  $ putStrLn (show e)