X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=simple-enemy.lisp;fp=simple-enemy.lisp;h=c1614c9918c6ba1709760315ed50e24bcc3e44fb;hp=ae8d3b753adbf399787fdf834bd741d81a12e9b5;hb=a1b8d36904d4152a102637bdd61cbf064a247a72;hpb=ab302d9ac8adefaf2bfe630e29c0847b0d372e16

diff --git a/simple-enemy.lisp b/simple-enemy.lisp
index ae8d3b7..c1614c9 100755
--- a/simple-enemy.lisp
+++ b/simple-enemy.lisp
@@ -34,17 +34,15 @@
 	   (setf (activated obj) T))))))
 
 (defun simple-enemy-and-player (player enemy)
-  (decf (power player))
-  (setf (active enemy) nil)
-  (setf (visible enemy) nil)
-  (setf (colliding enemy) nil))
+  (decf (power player)))
 
 (defmethod player-hits-enemy ((player player) (enemy simple-enemy) &rest args)
   (cond
     ((eql (direction (car args)) :DOWN)
      (setf (animation enemy) (flat-animation enemy))
      (setf (active enemy) nil)
-     (setf (colliding enemy) nil))
+     (setf (colliding enemy) nil)
+     (setf (listen-to player) (remove enemy (listen-to player))))
     (T
      (simple-enemy-and-player player enemy))))