src/Game/State.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Game.State (State (..)) where

data State = State
  { batteries :: Int,
    totalBatteries :: Int,
    lives :: Int,
    totalLives :: Int,
    hitDelay :: Int,
    gameOverDelay :: Int,
    exit :: Bool,
    lastBattery :: (Int, Int),
    levelCompleted :: Bool,
    currentLevel :: Int
  }