X-Git-Url: http://uxul.de/gitweb/?a=blobdiff_plain;f=simple-enemy.lisp;h=4315c5b24f8310b13106e00b26d3ea1f68e8bacb;hb=fe47814b2cd1ec57db67e494ff48faae46ffe21c;hp=ae8d3b753adbf399787fdf834bd741d81a12e9b5;hpb=3520f2248cddebdc3c03a080047d76fdf1f6c382;p=uxul-world.git

diff --git a/simple-enemy.lisp b/simple-enemy.lisp
index ae8d3b7..4315c5b 100755
--- a/simple-enemy.lisp
+++ b/simple-enemy.lisp
@@ -1,4 +1,4 @@
-;;; Copyright 2009 Christoph Senjak
+;;; Copyright 2009-2011 Christoph Senjak
 
 (in-package :uxul-world)
 
@@ -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))))