JacobLeach

{-# LANGUAGE OverloadedStrings #-}

import Data.Attoparsec.Char8
import Data.Word
import Control.Applicative

data IP = IP Int Int Int Int deriving (Show)

data Command = PrivMsg String String

JacobLeach

Failed to load resource http://localhost:8000/socket.io/1/?t=1392064293074
Firing ready event poker.js:340
Firing bet event poker.js:367
Firing bet event poker.js:350
Firing bet event poker.js:367
10
Firing ready event poker.js:340
23
Firing ready event poker.js:340

JacobLeach

import Map
import Player
import System.Random

main = do
    putStrLn "Welcome to Hunt the Wumpus"
    gameloop (generateMap 10) 

gameloop m = do
    putStrLn ("You are in room: " ++ (show (location (_player m))))