getStatusSprites :: DLevel -> [Sprite]
getStatusSprites lvl =
    let p = player lvl
        hpSprite = (MessageSprite (64, 15) (show (hp p)) (SpriteAttr hpColor black))
        hpPercent = fromIntegral (hp p) / fromIntegral (mhp p)
        hpColor = if hpPercent >= 1.0 then white
                  else if hpPercent >= 0.7 then green
                  else if hpPercent >= 0.4 then yellow
                  else red
    in [ mkMessage (60, 15) "HP: ", hpSprite, mkMessage (66, 15) ("/" ++ show (mhp p)),
         mkMessage (60, 16) ("Depth: " ++ show (depth lvl)) ]
getStatusSprites :: DLevel -> [Sprite]
getStatusSprites lvl =
    let p = player lvl
        hpSprite = (MessageSprite (64, 15) (show (hp p)) (SpriteAttr hpColor black))
        hpPercent = fromIntegral (hp p) / fromIntegral (mhp p)
        hpColor = if hpPercent >= 1.0 then white
                  else if hpPercent >= 0.7 then green
                  else if hpPercent >= 0.4 then yellow
                  else red
    in [ mkMessage (60, 15) "HP: ", hpSprite, mkMessage (66, 15) ("/" ++ show (mhp p)),
         mkMessage (60, 16) ("Depth: " ++ show (depth lvl)) ]
getStatusSprites lvl =
    let p = player lvl
        hpSprite = (MessageSprite (64, 15) (show (hp p)) (SpriteAttr hpColor black))
        hpPercent = fromIntegral (hp p) / fromIntegral (mhp p)
        hpColor = if hpPercent >= 1.0 then white
                  else if hpPercent >= 0.7 then green
                  else if hpPercent >= 0.4 then yellow
                  else red
    in [ mkMessage (60, 15) "HP: ", hpSprite, mkMessage (66, 15) ("/" ++ show (mhp p)),
         mkMessage (60, 16) ("Depth: " ++ show (depth lvl)) ]