glguy/parabox
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

levels

Browse Source
This commit is contained in:
Eric Mertens 2022-12-02 19:57:04 -08:00
parent 0b3555be9e
commit f01d1f643c
1 changed files with 122 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

123
app/Main.hs
View File

@ -156,7 +156,7 @@ main :: IO ()
main = main =
bracket (mkVty =<< userConfig) shutdown \vty -> bracket (mkVty =<< userConfig) shutdown \vty ->
do do
loop vty (pure world0) loop vty (pure clone11)
pure () pure ()
loop :: Vty -> NonEmpty World -> IO () loop :: Vty -> NonEmpty World -> IO ()
@ -221,3 +221,124 @@ smallWorld =
(Original (solid 9)) (Original (solid 9))
(withForeColor defAttr red)) (withForeColor defAttr red))
]) 'b' ]) 'b'
center8 :: World
center8 =
World
(Map.fromList
[('a',
Box (Location 'a' 3 (-3))
(Original (makeWalls [
"▓▓▓▓▓▓▓▓▓",
"▓▓▓▓▓▓▓▓▓",
"▓▓ ▓▓",
"▓▓ ▓▓",
"▓ ▓▓",
"▓ ▓▓",
"▓▓▓▓ ▓▓▓▓",
"▓ ▓▓ ▓▓",
"▓▓▓▓▓▓▓▓▓"
]))
(withForeColor defAttr black)),
('1',
Box
(Location 'a' 0 0)
(Original (makeWalls [
" ▓▓",
" ▓▓▓▓▓",
" ",
" ",
" ",
" ",
" ",
" ",
" "
]))
(withForeColor defAttr green)),
('2',
Box
(Location '1' (-4) 0)
(Original (solid 9))
(withForeColor defAttr yellow)),
('b',
Box
(Location 'a' (-1) 0)
(Original (solid 9))
(withForeColor defAttr red))
]) 'b'
center13 :: World
center13 =
World
(Map.fromList
[('a',
Box (Location 'a' 3 (-3))
(Original (makeWalls [
"▓▓▓▓▓▓▓▓▓",
"▓ ▓",
"▓ ▓",
"▓ ▓",
"▓ ▓",
"▓ ▓▓▓ ▓▓",
"▓ ▓ ▓ ▓▓",
"▓ ▓▓ ▓",
"▓▓▓▓▓▓▓▓▓"
]))
(withForeColor defAttr cyan)),
('1',
Box
(Location 'a' (-1) 1)
(Original (makeWalls [
" ",
" ▓▓▓▓▓▓▓ ",
" ▓▓▓▓▓▓▓ ",
" ▓▓▓▓▓▓▓ ",
" ▓▓▓▓▓▓▓ ",
" ▓▓▓▓▓▓▓ ",
" ▓▓▓▓▓▓▓ ",
" ▓▓▓▓▓▓▓ ",
" "
]))
(withForeColor defAttr green)),
('2',
Box
(Location 'a' (-1) (-1))
(Original (solid 9))
(withForeColor defAttr yellow)),
('b',
Box
(Location 'a' (-3) 0)
(Original (solid 9))
(withForeColor defAttr red))
]) 'b'
clone11 :: World
clone11 =
World
(Map.fromList
[('a',
Box (Location 'a' (-2) 2)
(Original (makeWalls [
"▓▓▓▓▓▓▓▓▓",
"▓ ▓ ▓",
"▓ ▓ ▓",
"▓ ▓ ▓",
" ▓ ",
"▓ ▓ ▓",
"▓ ▓ ▓",
"▓▓▓ ▓▓▓",
"▓▓▓▓▓▓▓▓▓"
]))
(withForeColor defAttr green)),
('A',
Box
(Location 'a' 0 2)
(Link 'a')
(withForeColor defAttr green)),
('b',
Box
(Location 'a' 0 (-2))
(Original (solid 9))
(withForeColor defAttr red))
]) 'b'