src/Model/Game.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

module Model.Game
  ( Game
  , initialGame
  ) where

import Random (..)
import Keyboard (KeyCode)

import Model.Player (..)
import Model.Cloud (..)
import Model.Vec2 (Vec2)
import Model.Config (..)

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

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