Projeto-LI1-Donkey_Kong/GestorTeclas.hs at main · c0m1x/Projeto-LI1-Donkey_Kong · GitHub

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
module GestorTeclas where


import Graphics.Gloss
import Graphics.Gloss.Interface.IO.Game
import Data.Maybe (fromMaybe)
import LI12324
import Tarefa1
import Tarefa2
import Tarefa3
import Tarefa4
import DadosAuxiliar

{-|
Função para gerir as teclas
-}
handleTeclas :: Event -> EstadoProjeto -> EstadoProjeto
handleTeclas evento estado@(EstadoProjeto {estadoAtual = Estadodomenu }) =
  handleTeclasMenu evento estado

handleTeclas evento estado@(EstadoProjeto {estadoAtual = EstadoJogo }) =
  handleTeclasJogo evento estado


{-|
Função para gerir as teclas dentro do menu
-}
handleTeclasMenu :: Event -> EstadoProjeto -> EstadoProjeto
handleTeclasMenu (EventKey (SpecialKey KeyRight) Down _ _) estadoProjeto =
    estadoProjeto  {menu = opcaoAtualizada}
     where
         opcaoAtualizada = (menu estadoProjeto) { opcaoEscolhida = proximaOpcao (opcaoEscolhida (menu estadoProjeto)) }

handleTeclasMenu (EventKey (SpecialKey KeyLeft) Down _ _) estadoProjeto =
    estadoProjeto {menu = opcaoAtualizada}
     where
          opcaoAtualizada = (menu estadoProjeto) { opcaoEscolhida =  opcaoAnterior (opcaoEscolhida (menu estadoProjeto)) }


handleTeclasMenu (EventKey (SpecialKey KeyEnter) Down _ _) estadoProjeto
  | opcaoEscolhida m == Sair = error "O jogo foi encerrado"
  | opcaoEscolhida m == Jogar = estadoProjeto {estadoAtual = EstadoJogo}
  | otherwise = estadoProjeto
  where
      m = menu estadoProjeto

handleTeclasMenu _ estadoProjeto = estadoProjeto -- se nenhum caso acima for feito, manter o mesmom estado do Menu

{-|
Função auxiliar para obter a próxima opção do menu
-}
proximaOpcao :: Menuescolher -> Menuescolher
proximaOpcao Jogar  = Sair
proximaOpcao Sair = Jogar

{-|
Função auxiliar para obter a opção anterior do menu
-}
opcaoAnterior :: Menuescolher -> Menuescolher
opcaoAnterior Jogar  = Sair
opcaoAnterior Sair = Jogar


{-|
Função para gerir as teclas em jogo
-}
--função para gerir as teclas em jogo
handleTeclasJogo :: Event -> EstadoProjeto -> EstadoProjeto
handleTeclasJogo evento estado =
    case evento of
        (EventKey (SpecialKey bind) Down _ _) ->
            case bind of
                KeyLeft -> estado { jogo = atualiza [] (Just AndarEsquerda) (jogo estado)}
                KeyRight -> estado { jogo = atualiza [] (Just AndarDireita) (jogo estado)}
                KeySpace -> estado { jogo = atualiza [] (Just Saltar) (jogo estado)}
                KeyUp -> estado { jogo = atualiza [] (Just Subir) (jogo estado)}
                KeyDown -> estado { jogo = atualiza [] (Just Descer) (jogo estado)}
                KeyEnter -> estado { jogo = atualiza [] (Just Parar) (jogo estado)}
                KeyAltL -> estado { estadoAtual = Estadodomenu}
                _ -> estado
        (EventKey (SpecialKey bind) Up _ _) ->
            case bind of
                KeyRight -> estado { jogo = atualiza [] (Just Parar) (jogo estado)}
                KeyLeft -> estado { jogo = atualiza [] (Just Parar) (jogo estado)}
                KeyUp -> estado { jogo = atualiza [] (Just Parar) (jogo estado)}
                KeyDown -> estado { jogo = atualiza [] (Just Parar) (jogo estado)}
                _ -> estado
        _ -> estado