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

new map and more tiles

parent 698634d8
...@@ -43,16 +43,49 @@ ...@@ -43,16 +43,49 @@
(lambda (i j) (lambda (i j)
(case (string-ref (list-ref spec i) j) (case (string-ref (list-ref spec i) j)
((#\space) 'space) ((#\space) 'space)
((#\#) 'wall)))) ((#\#) 'wall)
((#\:) 'grass)
((#\;) 'teleporter)
((#\*) 'window)
((#) 'entrance))))
arr)) arr))
(define game-map (define game-map
(parse-map (parse-map
'("########" '(
"# #" " ###### "
"# ### #" " # ¤ # "
"# # #" " # ####################"
"########"))) " # ¤ #"
" # #############¤#¤##"
" # # # # #"
" # ¤ # # #"
" # #######****#**#**#"
"###¤¤###:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
"::* *:::::::::::::::::"
" # ###**#*#**#**#**#**#"
" # ¤ # # # # # # #"
" # ### # # # # # #"
" # ####¤#¤##¤##¤#¤##¤##"
" # ¤ "
" ########################")))
(define-values (board-height board-width) (define-values (board-height board-width)
(apply values (array-dimensions game-map))) (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