module Model.Game
  ( Game
  , initialGame
  ) where

import Random (..)
import Keyboard (KeyCode)

import Model.Player (..)
import Model.Cloud (..)
import Model.Vec2 (Vec2)
import Model.Config (..)
import Model.Round (Round)
import Model.Board (initBoardSize)

type alias Game =
  { time : Float
  , boardSize : Vec2
  , keysDown : List KeyCode
  , currentScore : Int
  , player : Player
  , cloud : Cloud
  , rounds : List Round
  , seed : Seed
  }

initialGame : Seed -> Game
initialGame seed =
  { time = 0
  , boardSize = initBoardSize
  , keysDown = []
  , currentScore = 0
  , player = initPlayer
  , cloud = initCloud
  , rounds = []
  , seed = seed
  }