levels

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) '═' ++ "╗") :

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
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓

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
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓

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
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓

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
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓

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
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓

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
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓

levels/enter13.txt

@@ -0,0 +1,17 @@
+player p height 81
+block b blue boring
+▓▓▓▓▓▓▓▓▓
+▓       ▓
+▓ ▓▓▓▓▓ ▓
+▓ ▓=    ▓
+  ▓    -▓
+▓▓▓ p ▓ ▓
+▓     ▓b▓
+▓     ▓ ▓
+▓▓▓▓ ▓▓▓▓
+block p magenta boring
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓

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
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓

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
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓

levels/enter16.txt

@@ -0,0 +1,17 @@
+player p height 81
+block b blue boring
+▓▓▓▓ ▓▓▓▓
+▓    ▓▓▓▓
+▓ ▓▓▓▓ ▓▓
+▓       ▓
+▓       ▓
+▓▓▓ ▓▓▓▓▓
+▓= b▓  ▓▓
+▓-  p  ▓▓
+▓▓▓▓▓▓▓▓▓
+block p magenta boring
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓

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
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓

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
+▓▓▓▓▓
+▓ ▓ ▓
+▓▓▓▓▓
+▓▓▓▓▓
+▓▓▓▓▓