2edb963b97
git-subtree-dir: users/glittershark/xanthous git-subtree-mainline:91f53f02d8git-subtree-split:53b56744f4
40 lines
1.3 KiB
Haskell
40 lines
1.3 KiB
Haskell
--------------------------------------------------------------------------------
|
|
module Xanthous.App.Time
|
|
( stepGame
|
|
, stepGameBy
|
|
) where
|
|
--------------------------------------------------------------------------------
|
|
import Xanthous.Prelude
|
|
--------------------------------------------------------------------------------
|
|
import System.Exit
|
|
--------------------------------------------------------------------------------
|
|
import Xanthous.Data (Ticks)
|
|
import Xanthous.App.Prompt
|
|
import qualified Xanthous.Data.EntityMap as EntityMap
|
|
import Xanthous.Entities.Character (isDead)
|
|
import Xanthous.Game.State
|
|
import Xanthous.Game.Prompt
|
|
import Xanthous.Game.Lenses
|
|
import Control.Monad.State (modify)
|
|
--------------------------------------------------------------------------------
|
|
|
|
|
|
stepGameBy :: Ticks -> AppM ()
|
|
stepGameBy ticks = do
|
|
ents <- uses entities EntityMap.toEIDsAndPositioned
|
|
for_ ents $ \(eid, pEntity) -> do
|
|
pEntity' <- step ticks pEntity
|
|
entities . ix eid .= pEntity'
|
|
|
|
modify updateCharacterVision
|
|
|
|
whenM (uses character isDead)
|
|
. prompt_ @'Continue ["dead"] Uncancellable
|
|
. const . lift . liftIO
|
|
$ exitSuccess
|
|
|
|
ticksPerTurn :: Ticks
|
|
ticksPerTurn = 100
|
|
|
|
stepGame :: AppM ()
|
|
stepGame = stepGameBy ticksPerTurn
|