mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Put the character at the staircase when going down

Browse source 
Always put the character at the up staircase when going down a level,
even when going down to a level we've already generated.
This commit is contained in:
Griffin Smith 2020-01-25 11:06:01 -05:00
parent 5337d7c0eb
commit 2fc4fcfee9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Xanthous/App.hs
View file

@ -304,6 +304,7 @@ handleCommand GoDown = do
pCharacter <- entities . at cEID <<.= Nothing
levels .= levs'
entities . at cEID .= pCharacter
characterPosition .= extract levs' ^. upStaircasePosition
else say_ ["cant", "goDown"]
continue
@ -599,7 +600,6 @@ genLevel _num = do
level <- case generator of
CaveAutomata -> generateLevel SCaveAutomata CaveAutomata.defaultParams dims
Dungeon -> generateLevel SDungeon Dungeon.defaultParams dims
characterPosition .= level ^. levelCharacterPosition
pure $!! level
levelToGameLevel :: Level -> GameLevel