blob: 8987a2edf4fc7ee3594543137cf9ea8b9daeae1c (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
module Game.State (State (..)) where
data State = State
{ batteries :: Int,
totalBatteries :: Int,
lives :: Int,
totalLives :: Int,
hitDelay :: Int,
gameOverDelay :: Int,
exit :: Bool
}
|