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
38
|
module Model.Game
( Game
, initialGame
) where
import Random (..)
import Keyboard (KeyCode)
import Time (Time)
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
}
|
