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

fix(gs/xanthous): Don't gen dupe tutorial messages

Browse source 
Don't generate tutorial messages on levels other than the first.

Change-Id: I7681377461b92f5d5015931b0088bef9d358d2e4
Reviewed-on: https://cl.tvl.fyi/c/depot/+/3804
Reviewed-by: grfn <grfn@gws.fyi>
Tested-by: BuildkiteCI
This commit is contained in:
Griffin Smith 2021-11-06 12:24:10 -04:00 • committed by grfn
parent 580e37ff64
commit eeafd0fa0e
2 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
users/grfn/xanthous/src/Xanthous/App.hs
View file

@ -568,12 +568,14 @@ showPanel panel = do
genLevel
:: Word -- ^ Level number, starting at 0
-> AppM Level
genLevel _num = do
genLevel num = do
let dims = Dimensions 80 80
generator <- choose $ CaveAutomata :| [Dungeon]
level <- case generator of
CaveAutomata -> generateLevel SCaveAutomata CaveAutomata.defaultParams dims
Dungeon -> generateLevel SDungeon Dungeon.defaultParams dims
let
doGen = case generator of
CaveAutomata -> generateLevel SCaveAutomata CaveAutomata.defaultParams
Dungeon -> generateLevel SDungeon Dungeon.defaultParams
level <- doGen dims num
pure $!! level
levelToGameLevel :: Level -> GameLevel