33 lines
749 B
Haskell
33 lines
749 B
Haskell
{-# LANGUAGE TemplateHaskell, NegativeLiterals #-}
|
|
|
|
module Game where
|
|
|
|
import Lens.Micro.TH
|
|
import Lens.Micro
|
|
import Linear.V2
|
|
|
|
import Dungeon
|
|
import Player
|
|
import Action
|
|
|
|
data Game = Game
|
|
{ _dungeon :: Dungeon
|
|
, _player :: Player
|
|
}
|
|
|
|
makeLenses ''Game
|
|
|
|
newGame :: IO Game
|
|
newGame = do
|
|
dun <- makeDungeonFromFile "maps/test.json"
|
|
return $ Game dun (Player $ V2 1 23)
|
|
|
|
runAction :: Action -> Game -> Maybe Game
|
|
runAction (Move vec) game = Just $ if ableToMove
|
|
then game & player . pos .~ newPos
|
|
else game
|
|
where ableToMove = getCell newPos (game ^. dungeon) == Empty
|
|
newPos = (game ^. player . pos) + vec
|
|
runAction None g = Just g
|
|
runAction ExitGame _ = Nothing
|