(defmethod add-object ((obj moving-enemy) (place room))
(i-wanna-listen-to obj place 'player 'stone)
(must-be-listened-by obj place 'player)
(defmethod add-object ((obj moving-enemy) (place room))
(i-wanna-listen-to obj place 'player 'stone)
(must-be-listened-by obj place 'player)