diff --git a/app/Rendering.hs b/app/Rendering.hs index 9783f1c..8d67243 100644 --- a/app/Rendering.hs +++ b/app/Rendering.hs @@ -25,6 +25,7 @@ wrapBox a body = char a '└' <|> charFill a '─' (imageWidth body) 1 <|> char a '┘' button :: Attr -> Int -> Int -> Image +button a 1 1 = char a '□' button a 1 w = string a ("[" ++ replicate (w-2) '-' ++ "]") button a h w = vertCat $ string a ('┌' : replicate (w-2) '─' ++ "┐") : @@ -32,6 +33,7 @@ button a h w = vertCat $ [string a ('└' : replicate (w-2) '─' ++ "┘")] home :: Attr -> Int -> Int -> Image +home a 1 1 = char a '⊞' home a 1 w = string a ("<" ++ replicate (w-2) '=' ++ ">") home a h w = vertCat $ string a ('╔' : replicate (w-2) '═' ++ "╗") : diff --git a/levels/empty1.txt b/levels/empty1.txt new file mode 100644 index 0000000..4b6365a --- /dev/null +++ b/levels/empty1.txt @@ -0,0 +1,18 @@ +player p height 90 +block w white interesting +▓▓▓▓▓▓ +▓▓▓-▓▓ +▓= ▓▓ +▓▓ b ▓ +▓▓p▓▓▓ +▓▓▓▓▓▓ +block b blue interesting + + + +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓ diff --git a/levels/empty10.txt b/levels/empty10.txt new file mode 100644 index 0000000..c4184f1 --- /dev/null +++ b/levels/empty10.txt @@ -0,0 +1,39 @@ +player p height 90 +block t white boring +▓▓▓ +▓w▓ +▓▓▓ +block w white interesting +▓▓▓▓▓▓▓▓▓ +▓▓▓ +▓▓▓ ▓▓= +▓▓▓ ▓▓▓▓- + ▓▓ + b ▓▓ +▓ gpy ▓▓▓ +▓ ▓▓▓ +▓▓▓▓▓▓▓▓▓ +block b blue interesting +▓▓▓▓▓ +▓ ▓ +▓ ▓ +▓ ▓ +▓ ▓ +block y yellow interesting +▓▓▓▓▓ + ▓ + ▓ + ▓ +▓▓▓▓▓ +block g yellow interesting +▓▓▓▓▓ +▓ +▓ +▓ +▓▓▓▓▓ +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓ diff --git a/levels/empty14.txt b/levels/empty14.txt new file mode 100644 index 0000000..d15815c --- /dev/null +++ b/levels/empty14.txt @@ -0,0 +1,21 @@ +player p height 81 +block b blue boring +▓▓▓▓ ▓▓▓▓ +▓▓▓▓ ▓▓▓▓ +▓ 1 ▓ +▓ ---b ▓ +▓ p ▓ +▓ 2 =▓ +▓▓▓▓ ▓▓▓▓ +▓▓▓▓ ▓▓▓▓ +▓▓▓▓ ▓▓▓▓ +block 1 yellow boring +▓ +block 2 yellow boring +▓ +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓ diff --git a/levels/empty2.txt b/levels/empty2.txt new file mode 100644 index 0000000..b1a74ca --- /dev/null +++ b/levels/empty2.txt @@ -0,0 +1,29 @@ +player p height 75 +block t white boring +▓▓▓ +▓w▓ +▓▓▓ +block w white interesting +▓ + b + = +y -p + +block b blue interesting +▓▓▓ +▓-▓ +▓1▓ +block y yellow interesting + + + + + +block 1 cyan boring +▓ +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓ diff --git a/levels/empty3.txt b/levels/empty3.txt new file mode 100644 index 0000000..c449ca4 --- /dev/null +++ b/levels/empty3.txt @@ -0,0 +1,27 @@ +player p height 105 +block w white interesting +▓▓▓▓▓▓▓ +▓ = ▓ +▓ ▓ +▓ b p ▓ +▓ ▓ +▓ ▓ +▓▓▓▓▓▓▓ +block b blue interesting + + + y + + +block y yellow interesting + + + - + + +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓ diff --git a/levels/empty8.txt b/levels/empty8.txt new file mode 100644 index 0000000..9cc02ec --- /dev/null +++ b/levels/empty8.txt @@ -0,0 +1,27 @@ +player p height 121 +block b blue boring +▓▓▓▓▓▓▓▓▓▓▓ +▓ ▓ +▓ ▓ +▓ ▓▓ ▓ +▓ g ▓ b p ▓ +▓ ▓▓▓ +▓1▓ ▓ +▓▓▓ ▓▓ +▓▓▓ 2 ▓ +▓▓▓ ▓▓▓ +▓▓▓▓▓ ▓▓▓▓▓ +block 1 yellow boring +▓ +block 2 yellow boring +▓ +block g green boring +▓▓▓ +▓=▓ +▓ ▓ +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓ diff --git a/levels/enter13.txt b/levels/enter13.txt new file mode 100644 index 0000000..25007ef --- /dev/null +++ b/levels/enter13.txt @@ -0,0 +1,17 @@ +player p height 81 +block b blue boring +▓▓▓▓▓▓▓▓▓ +▓ ▓ +▓ ▓▓▓▓▓ ▓ +▓ ▓= ▓ + ▓ -▓ +▓▓▓ p ▓ ▓ +▓ ▓b▓ +▓ ▓ ▓ +▓▓▓▓ ▓▓▓▓ +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓ diff --git a/levels/enter14.txt b/levels/enter14.txt new file mode 100644 index 0000000..121177a --- /dev/null +++ b/levels/enter14.txt @@ -0,0 +1,17 @@ +player p height 98 +block b blue boring +▓▓▓▓▓▓▓ +▓= p ▓ +▓ ▓ + y b▓ +▓▓▓▓▓ ▓ +▓- ▓ +▓▓▓▓▓▓▓ +block y yellow boring +▓ +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓ diff --git a/levels/enter15.txt b/levels/enter15.txt new file mode 100644 index 0000000..4c3b2df --- /dev/null +++ b/levels/enter15.txt @@ -0,0 +1,19 @@ +player p height 81 +block b blue boring +▓▓▓▓▓▓▓▓▓ +▓▓ ▓ +▓▓b p ▓ +▓▓ y +▓▓ ▓▓ ▓ +▓▓ -▓▓▓▓▓ +▓▓ ▓▓▓▓▓▓ +▓▓ =▓▓▓▓▓ +▓▓▓▓▓▓▓▓▓ +block y yellow boring +▓ +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓ diff --git a/levels/enter16.txt b/levels/enter16.txt new file mode 100644 index 0000000..607fd7e --- /dev/null +++ b/levels/enter16.txt @@ -0,0 +1,17 @@ +player p height 81 +block b blue boring +▓▓▓▓ ▓▓▓▓ +▓ ▓▓▓▓ +▓ ▓▓▓▓ ▓▓ +▓ ▓ +▓ ▓ +▓▓▓ ▓▓▓▓▓ +▓= b▓ ▓▓ +▓- p ▓▓ +▓▓▓▓▓▓▓▓▓ +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓ diff --git a/levels/enter17.txt b/levels/enter17.txt new file mode 100644 index 0000000..509d836 --- /dev/null +++ b/levels/enter17.txt @@ -0,0 +1,19 @@ +player p height 81 +block b blue boring +▓▓▓▓▓▓▓▓▓ +▓ y b▓ +▓ ▓ +▓ p ▓▓ ▓ + ▓ ▓ +▓▓ ▓▓▓ ▓ +▓▓ ▓=▓ ▓ +▓▓ -▓▓▓ +▓▓▓▓ ▓▓▓▓ +block y yellow boring +▓ +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓ diff --git a/levels/enter18.txt b/levels/enter18.txt new file mode 100644 index 0000000..6e46bce --- /dev/null +++ b/levels/enter18.txt @@ -0,0 +1,19 @@ +player p height 81 +block b blue boring +▓▓▓▓▓▓▓▓▓ +▓ ▓ ▓ +▓ ▓ ▓ +▓ b y ▓ +▓ - ▓ ▓ +▓ - ▓ ▓ +▓ =p▓▓ ▓ +▓ ▓▓▓▓ +▓▓▓▓ ▓▓▓▓ +block y yellow boring +▓ +block p magenta boring +▓▓▓▓▓ +▓ ▓ ▓ +▓▓▓▓▓ +▓▓▓▓▓ +▓▓▓▓▓