X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=room.lisp;fp=room.lisp;h=e51b6d316ebcbf52b6f46047a44092d33e0bdf96;hp=f0173792ec9e71707a40658498591eaa77556349;hb=ab302d9ac8adefaf2bfe630e29c0847b0d372e16;hpb=741faf5a2e1b4a133807530778e507d674cc02b1

diff --git a/room.lisp b/room.lisp
index f017379..e51b6d3 100755
--- a/room.lisp
+++ b/room.lisp
@@ -147,6 +147,16 @@
 	   (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)