projects
/
uxul-world.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Key-Dungeons are now strings.
[uxul-world.git]
/
room.lisp
diff --git
a/room.lisp
b/room.lisp
index
f017379
..
e51b6d3
100755
(executable)
--- a/
room.lisp
+++ b/
room.lisp
@@
-147,6
+147,16
@@
(add-object (make-instance 'flying-nasobem
:x (* 128 x)
:y (* 128 y)) room))
(add-object (make-instance 'flying-nasobem
:x (* 128 x)
:y (* 128 y)) room))
+ ((eq type 'key)
+ (add-object (make-instance 'key
+ :x (* 128 x)
+ :y (* 128 y)
+ :dungeon arg1) room))
+ ((eq type 'door)
+ (add-object (make-instance 'door
+ :x (* 128 x)
+ :y (* 128 y)
+ :dungeon arg1) room))
((eq type 'burning-marshmallow)
(add-object (make-instance 'burning-marshmallow
:x (* 128 x)
((eq type 'burning-marshmallow)
(add-object (make-instance 'burning-marshmallow
:x (* 128 x)