[SOLVED] CS {-

{-
Module: Human.

This is the non-AI type of player. It chooses its actions according to the user input, following
the standard notation of the game.
-}
module Players.Human where

import Data.Char
import Data.String

import Types
import Action
import Cell
import Player
import Board

Translates commands to actions. There are two types:
* Move commands of the form c2, meaning move to c2.
* Place commands of the form c3v meaning place a vertical wall next to c3 (similarly h).
commandToAction :: Board -> [Player] -> String -> Int -> Maybe Action
commandToAction _ (p:_) [i, j] _ = Just (Move (currentCell p, (i, digitToInt j)))
commandToAction _ (p:_)[i, j, d] _
|d == h = Just (Place (wallTop (i, digitToInt j)))
| d == v = Just (Place (wallRight (i, digitToInt j)))
| otherwise = Nothing
commandToAction _ _ _ _ = Nothing

We build a human player from a name, a starting cell, a number of walls, an array of winning
positions and commandToAction.
makeHumanPlayer :: String -> Cell -> Int -> [Cell] -> Player
makeHumanPlayer n c rws wps = Player {
name = n,
turn = 1,
currentCell = c,
remainingWalls = rws,
winningPositions = wps,
isHuman = True,
chooseAction = commandToAction }