25 lines
470 B
Haskell
25 lines
470 B
Haskell
-- Representation of all the game's data
|
|
|
|
module RPGEngine.Internals.Data.Game
|
|
( Game(..),
|
|
|
|
initGame
|
|
) where
|
|
|
|
import RPGEngine.Internals.Data.State
|
|
|
|
----------------------------- Constants ------------------------------
|
|
|
|
-- TODO Add more
|
|
data Game = Game {
|
|
-- Current state of the game
|
|
state :: State
|
|
}
|
|
|
|
----------------------------------------------------------------------
|
|
|
|
-- Initialize the game
|
|
initGame :: Game
|
|
initGame = Game {
|
|
state = defaultState
|
|
}
|