25 lines
507 B
Haskell
25 lines
507 B
Haskell
-- Representation of all the game's data
|
|
|
|
module RPGEngine.Data.Game
|
|
( Game(..)
|
|
,initGame
|
|
) where
|
|
|
|
import RPGEngine.Data
|
|
import RPGEngine.Data.State
|
|
|
|
----------------------------------------------------------------------
|
|
|
|
-- Initialize the game
|
|
initGame :: Game
|
|
initGame = Game {
|
|
state = defaultState,
|
|
playing = head levels,
|
|
levels = levels
|
|
}
|
|
where levels = [emptyLevel]
|
|
emptyLevel = Level {
|
|
layout = [],
|
|
items = [],
|
|
entities = []
|
|
}
|