carta.hs

module CartaFunctions where

type Numero = Int
type Cor = String
type Efeito = String
type Carta = (Numero, Cor, Efeito)

-- Retorna a cor da carta
getColor :: Carta -> Cor
getColor (_,cor,_) = cor

-- Retorna o efeito da carta
getEffect :: Carta -> Efeito
getEffect (_,_,efeito) = efeito

-- Retorna o número da carta
getNumber :: Carta -> Numero
getNumber (n,_,_) = n

-- Exibe a carta do topo
showTopo :: Carta -> IO()
showTopo s = do
    putStrLn ("Topo : " ++ "Numero: " ++ show(getNumber s) ++ " Cor: " ++ getColor s ++ " Efeito: " ++ getEffect s ++ "\n")

showCard :: Carta -> String
showCard s = ("A carta : " ++ "Numero: " ++ show(getNumber s) ++ " Cor: " ++ getColor s ++ " Efeito: " ++ getEffect s ++ " foi ")

-- Verifica se a carta escolhida é válida
cartaValida :: Carta -> Carta -> Bool
cartaValida carta topo | getColor topo == getColor carta || getColor topo == "first card" || getEffect carta == "+4" || getEffect carta == "newColor" || getNumber topo == getNumber carta || ((getEffect topo == getEffect carta) && (getEffect carta /= " ")) = True
                       | otherwise = False
setColor :: String -> Carta -> Carta
setColor newColor (numero, cor, efeito) = (numero, newColor, efeito)

msgBlock :: Int -> Bool -> IO()
msgBlock vez reversed | vez == 1 && reversed == True = putStrLn ("Dilmãe passa a vez!!")
                      | vez == 3 && reversed == True = putStrLn ("Lula passa a vez!!")
                      | vez == 1 && reversed == False = putStrLn ("Lula passa a vez!!")
                      | vez == 2 && reversed == False = putStrLn ("Dilmãe passa a vez!!")
                      | otherwise = putStrLn ("Você passa a vez!!")

isSpecialCard :: Carta -> Bool
isSpecialCard (_,_,effect) | effect == " " = False
                           | otherwise = True

isMidCard :: Carta -> Bool
isMidCard (_,_,effect) | effect == "REVERSE" || effect == "BLOCK" = True
                       | otherwise = False

isLateCard :: Carta -> Bool
isLateCard (_,_,effect) | effect == "+2" || effect == "+4" = True
                        | otherwise = False