abea2dcfac
Add a (debug) command to reveal all tiles on the game regardless of the character's vision, which'll make it easier to debug creature's behavior while they're not visible.
33 lines
611 B
Haskell
33 lines
611 B
Haskell
module Xanthous.Game
|
|
( GameState(..)
|
|
, entities
|
|
, revealedPositions
|
|
, messageHistory
|
|
, randomGen
|
|
, promptState
|
|
, GamePromptState(..)
|
|
|
|
, getInitialState
|
|
|
|
, positionedCharacter
|
|
, character
|
|
, characterPosition
|
|
, updateCharacterVision
|
|
|
|
, MessageHistory(..)
|
|
, pushMessage
|
|
, popMessage
|
|
, hideMessage
|
|
|
|
-- * App monad
|
|
, AppT(..)
|
|
|
|
-- * Debug State
|
|
, DebugState(..)
|
|
, debugState
|
|
, allRevealed
|
|
) where
|
|
--------------------------------------------------------------------------------
|
|
import Xanthous.Game.State
|
|
import Xanthous.Game.Lenses
|
|
import Xanthous.Game.Arbitrary ()
|