From a1a3dbadffaaab290a6b6bb4b61df787d3b8ffdd Mon Sep 17 00:00:00 2001 From: Joris Guyonvarch Date: Fri, 3 Oct 2014 16:18:24 +0200 Subject: Adding a target to catch --- src/Game.elm | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) (limited to 'src/Game.elm') diff --git a/src/Game.elm b/src/Game.elm index c86af26..8de0c40 100644 --- a/src/Game.elm +++ b/src/Game.elm @@ -3,23 +3,27 @@ module Game where import Player (..) import Enemy (..) import EnemyState (..) +import Target(..) import Vec2 (Vec2) type Game = { time : Float , player : Player + , target : Target , enemyState : EnemyState - , bestTime : Float + , bestScore : Int } -initialGame : Vec2 -> Float -> Game -initialGame playerPos bestTime = +initialGame : Vec2 -> Int -> Game +initialGame playerPos bestScore = let initPlayer = - { pos = playerPos - , speed = { x = 0, y = 0 } - } - in { time = 0 - , player = initPlayer - , enemyState = initEnemyState - , bestTime = bestTime - } + { pos = playerPos + , speed = { x = 0, y = 0 } + } + in + { time = 0 + , player = initPlayer + , target = initTarget + , enemyState = initEnemyState + , bestScore = bestScore + } -- cgit v1.2.3