ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-10-04 11:17:08 +03:00
Code Issues Projects Releases Wiki Activity

more silly hackery - expand the rouge game

Browse Source
This commit is contained in:
Corey O'Connor 2013-10-26 09:43:16 -07:00
parent 12cd6e507c
commit 58cf4160df
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test/Rouge.hs
View File

@ -49,13 +49,10 @@ mkLevel _difficulty = do
level_height <- randomRIO (10,15)
start <- (,) <$> randomRIO (2, level_width-3) <*> randomRIO (2, level_height-3)
end <- (,) <$> randomRIO (2, level_width-3) <*> randomRIO (2, level_height-3)
let geo = array ((0,0), (level_width, level_height))
[((x,y),p) | x <- [0..level_width-1], y <- [0..level_height-1],
let p = if (x == 0 || x == level_width-1) || (y==0 || y==level_height-1)
then Rock
else EmptySpace
]
return $ Level start end geo
-- first the base geography: all rocks
let base_geo = array ((0,0), (level_width, level_height))
[((x,y),Rock) | x <- [0..level_width-1], y <- [0..level_height-1]]
return $ Level start end base_geo
image_for_geo EmptySpace = char (def_attr `with_back_color` green) ' '
image_for_geo Rock = char (def_attr `with_fore_color` white) 'X'