maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Place the chacracter in the level at startup time

Browse source 
Randomly select a position in the largest contiguous region of the
generated level in which to place the character at startup time.
This commit is contained in:
Griffin Smith 2019-09-13 15:24:05 -04:00
parent 9ebdc6fbb4
commit c06edf3cc6
9 changed files with 171 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Xanthous/Generators/CaveAutomata.hs
View file

@ -92,7 +92,7 @@ generate params dims gen
$ flip runRandT gen
$ generate' params dims
generate' :: RandomGen g => Params -> Dimensions -> CellM g s (Cells s)
generate' :: RandomGen g => Params -> Dimensions -> CellM g s (MCells s)
generate' params dims = do
cells <- randInitialize dims $ params ^. aliveStartChance
let steps' = params ^. steps
@ -100,7 +100,7 @@ generate' params dims = do
$ for_ [0 .. pred steps'] . const $ stepAutomata cells dims params
pure cells
stepAutomata :: forall s g. Cells s -> Dimensions -> Params -> CellM g s ()
stepAutomata :: forall s g. MCells s -> Dimensions -> Params -> CellM g s ()
stepAutomata cells dims params = do
origCells <- lift $ cloneMArray @_ @(STUArray s) cells
for_ (range ((0, 0), (dims ^. width, dims ^. height))) $ \pos -> do