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

fiddle with world map

Browse Source
This commit is contained in:
Eric Mertens 2022-12-02 11:26:00 -08:00
parent f940ce8d75
commit 7f236b0fe2
1 changed files with 33 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
app/Main.hs
View File

@ -30,13 +30,13 @@ world0 = World {
boxColor = withForeColor defAttr cyan, boxColor = withForeColor defAttr cyan,
boxLocation = Location '1' 1 1, boxLocation = Location '1' 1 1,
boxWalls = makeWalls [ boxWalls = makeWalls [
"▓▓▓ ▓▓▓", "▓ ▓ ▓ ▓",
"▓ ▓", " ",
"▓ ▓", "▓ ▓",
" ", " ",
"▓ ▓", "▓ ▓",
"▓ ▓", " ",
"▓▓▓ ▓▓▓" "▓ ▓ ▓ ▓"
] ]
}), }),
('3', Box { ('3', Box {
@ -68,7 +68,15 @@ world0 = World {
('b', Box { ('b', Box {
boxColor = withForeColor defAttr red, boxColor = withForeColor defAttr red,
boxLocation = Location '1' 0 1, boxLocation = Location '1' 0 1,
boxWalls = solid 7 boxWalls = makeWalls [
"▓▓▓▓▓▓▓",
"▓ ▓",
"▓ ▓ ▓ ▓",
" ",
"▓ ▓▓",
"▓ ▓",
"▓▓▓▓▓▓▓"
]
}), }),
('x', Box { ('x', Box {
boxColor = withForeColor defAttr yellow, boxColor = withForeColor defAttr yellow,
@ -79,8 +87,27 @@ world0 = World {
boxColor = withForeColor defAttr magenta, boxColor = withForeColor defAttr magenta,
boxLocation = Location '1' 0 (-2), boxLocation = Location '1' 0 (-2),
boxWalls = solid 7 boxWalls = solid 7
}),
('i', Box {
boxColor = withForeColor defAttr black,
boxLocation = Location 'b' 0 (-2),
boxWalls = solid 7
}),
('j', Box {
boxColor = withForeColor defAttr black,
boxLocation = Location 'b' 0 (-1),
boxWalls = solid 7
}),
('k', Box {
boxColor = withForeColor defAttr black,
boxLocation = Location 'b' 0 0,
boxWalls = solid 7
}),
('l', Box {
boxColor = withForeColor defAttr black,
boxLocation = Location 'b' 0 1,
boxWalls = solid 7
}) })
] ]
} }