randomResult = randomAction random
randomRange :: (Random a) => (a, a) -> RandomState a
randomResult = randomAction random
randomRange :: (Random a) => (a, a) -> RandomState a
enemyStartPosition :: Direction -> RandomState G.Coords
enemyStartPosition U = randomRange (fst topLeftBoundary, fst bottomRightBoundary) >>= \column -> return (snd bottomRightBoundary, column)
enemyStartPosition :: Direction -> RandomState G.Coords
enemyStartPosition U = randomRange (fst topLeftBoundary, fst bottomRightBoundary) >>= \column -> return (snd bottomRightBoundary, column)