module Game where import Player (..) import Cloud (..) import Vec2 (Vec2) type Game = { time : Float , score : Int , player : Player , cloud : Cloud , bestScore : Int } initialGame : Vec2 -> Int -> Game initialGame playerPos bestScore = let initPlayer = { pos = playerPos , speed = { x = 0, y = 0 } } in { time = 0 , score = 0 , player = initPlayer , cloud = initCloud , bestScore = bestScore }