X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=add-object.lisp;fp=add-object.lisp;h=1a14a3581227f33625df8991a4071857c7e20c7c;hp=a68a2cb4e05d44fabe7c4f077158a11fe3ef3ded;hb=6c07f06cf1f91accd15a9134765887e514643187;hpb=2e53415afb091bfb0c17e59a88c3338e9a130d6b

diff --git a/add-object.lisp b/add-object.lisp
index a68a2cb..1a14a35 100755
--- a/add-object.lisp
+++ b/add-object.lisp
@@ -37,6 +37,10 @@ for. Classes: ~A ~A"
   (must-be-listened-by obj place 'player 'moving-enemy 'moving-item)
   (call-next-method))
 
+(defmethod add-object ((obj teleporter) (place room))
+  (must-be-listened-by obj place 'player)
+  (call-next-method))
+
 (defmethod add-object ((obj moving-enemy) (place room))
   (i-wanna-listen-to obj place 'player 'stone)
   (must-be-listened-by obj place 'player)