chrome dino clone (wip)

import Playground exposing (..)
import List exposing (map)


-- MAIN


main =
  game view update init

init =
    { y = 0
    , vy = 0
    , score = 0.0
    , countdown = 5.0
    , blocks = []
    , gameOver = False
    }

-- VIEW

fromBool p =
  case p of
    True  -> "True"
    False -> "False"

view computer mario =
  let
    w = computer.screen.width
    h = computer.screen.height
    b = computer.screen.bottom
  in
  [ rectangle (rgb 0 0 0) w 10
      |> moveY (b + h/2)
  , image 70 70 (toGif mario)
      |> move (-w/3) (b + h/2 + mario.y + 30)
  , words (rgb 0 0 0) ("Score: " ++ String.fromInt (round mario.score))
      |> scale 1.3
      |> moveY (b + h/2 - 70) -- (-w/3)
  ]
  ++ map
      (\x -> (rectangle (rgb 0 0 0) 10 50) |> move (w*x/100 - w/2) (b+h/2 + 30))
      mario.blocks
  ++ if mario.gameOver then gameOverScreen h b else []

gameOverScreen h b =
  [ rectangle (rgb 0 0 0) 200 100
      |> moveY (b + h/2)
  , words (rgb 255 255 255) "Game Over!"
      |> scale 2
      |> moveY (b + h/2)
  , words (rgb 255 255 255) "Press Space to try again"
      |> scale 0.8
      |> moveY (b + h/2 - 30)
  ]

toGif mario =
  if mario.y > 0 then
    "https://elm-lang.org/images/mario/jump/right.gif"
  else if not mario.gameOver then
    "https://elm-lang.org/images/mario/walk/right.gif"
  else
    "https://elm-lang.org/images/mario/stand/right.gif"


-- UPDATE

checkBounds w blocks =
  case blocks of
    [] -> []
    x::xs -> if x <= 0 then checkBounds w xs else x::(checkBounds w xs)

checkCollision : Float -> Float -> Float -> List Float -> Bool
checkCollision w mx my blocks =
  case blocks of
    []    -> False
    x::xs -> (abs (x - 100/6) <= 1 && my < 50) || (checkCollision w mx my xs)

update computer mario =
  if mario.gameOver then if computer.keyboard.space then init else mario else
  let
    w  = computer.screen.width
    dt = 1.666
    vy =
      if mario.y == 0 then
        if computer.keyboard.space then 5 else 0
      else
        mario.vy - dt / 8
    y = mario.y + dt * vy
    c = if mario.countdown <= 0 then 5.0 else mario.countdown - dt/50
    blocks =
      if mario.countdown <= 0
      then mario.blocks ++ [100]
      else map (\x -> x - dt/5) (checkBounds w mario.blocks) 
  in
  { y = max 0 y
  , vy = vy
  , score = mario.score + dt/50
  , countdown = c
  , blocks = blocks
  , gameOver = mario.gameOver || checkCollision w (-w/3) mario.y blocks
  }