{-# OPTIONS -Wall #-}
module PowerPhrases where

import Data.Maybe(mapMaybe)
import Datatypes.Game (Command(..))

listToCommand :: String -> [Command]
listToCommand str = mapMaybe charToCommand str

charToCommand :: Char -> Maybe Command

charToCommand 'p'  = Just MoveW
charToCommand '\'' = Just MoveW
charToCommand '!'  = Just MoveW
charToCommand '.'  = Just MoveW
charToCommand '0'  = Just MoveW
charToCommand '3'  = Just MoveW

charToCommand 'b' = Just MoveE
charToCommand 'c' = Just MoveE
charToCommand 'e' = Just MoveE
charToCommand 'f' = Just MoveE
charToCommand 'y' = Just MoveE
charToCommand '2' = Just MoveE

charToCommand 'a' = Just MoveSW
charToCommand 'g' = Just MoveSW
charToCommand 'h' = Just MoveSW
charToCommand 'i' = Just MoveSW
charToCommand 'j' = Just MoveSW
charToCommand '4' = Just MoveSW

charToCommand 'l' = Just MoveSE
charToCommand 'm' = Just MoveSE
charToCommand 'n' = Just MoveSE
charToCommand 'o' = Just MoveSE
charToCommand ' ' = Just MoveSE
charToCommand '5' = Just MoveSE

charToCommand 'd' = Just RotateClockwise
charToCommand 'q' = Just RotateClockwise
charToCommand 'r' = Just RotateClockwise
charToCommand 'v' = Just RotateClockwise
charToCommand 'z' = Just RotateClockwise
charToCommand '1' = Just RotateClockwise

charToCommand 'k' = Just RotateCounterclockwise
charToCommand 's' = Just RotateCounterclockwise
charToCommand 't' = Just RotateCounterclockwise
charToCommand 'u' = Just RotateCounterclockwise
charToCommand 'w' = Just RotateCounterclockwise
charToCommand 'x' = Just RotateCounterclockwise

charToCommand _ = Nothing