Commit 048b367c authored by Filip Polbratt's avatar Filip Polbratt
Browse files

new map and more tiles

parent 698634d8
......@@ -43,16 +43,49 @@
(lambda (i j)
(case (string-ref (list-ref spec i) j)
((#\space) 'space)
((#\#) 'wall))))
((#\#) 'wall)
((#\:) 'grass)
((#\;) 'teleporter)
((#\*) 'window)
((#) 'entrance))))
arr))
(define game-map
(parse-map
'("########"
"# #"
"# ### #"
"# # #"
"########")))
'(
" ###### "
" # ¤ # "
" # ####################"
" # ¤ #"
" # #############¤#¤##"
" # # # # #"
" # ¤ # # #"
" # #######****#**#**#"
"###¤¤###:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
" # ###**#*#**#**#**#**#"
" # ¤ # # # # # # #"
" # ### # # # # # #"
" # ####¤#¤##¤##¤#¤##¤##"
" # ¤ "
" ########################")))
(define-values (board-height board-width)
(apply values (array-dimensions game-map)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment