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
34
35
36
37
|
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
}
|
