anchor.diff:                   (enemy-correction (nearest-object enemy 'enemy 0))))))))
   
   (defmethod alarm ((enemy enemy) event)
  -  (with-slots (parent offset size veloc timer missiles fire-rate) enemy
  +  (with-slots (parent offset size veloc timer 
  +		      missiles missile-chance fire-rate) enemy
       (setf timer
             (ceiling (+ 5 (mt19937:random 30) (mt19937:random 30)) fire-rate))
       (let* ((shoot-decision (mt19937:random 1d0)))
  -      (if (and (> missiles 0) (> shoot-decision 0.7))
  -	(progn (decf missiles) 
  -	       (make-instance
  -		'enemy-missile
  -		:parent parent 
  -		:offset (+ offset (complex (/ (x size) 2) (y size)))
  -		:depth -1
  -		:veloc veloc
  -		:image (make-instance 'image :name :enemy-missile-s)))
  -	(shoot enemy event)))))
  +      (if (and (> missiles 0) (< shoot-decision missile-chance))
  +        (progn (decf missiles) 
  +               (make-instance
  +                'enemy-missile
  +                :parent parent 
  +                :offset (+ offset (complex (/ (x size) 2) (y size)))
  +                :depth -1
  +                :veloc veloc
  +                :image (make-instance 'image :name :enemy-missile-s)))
  +        (shoot enemy event)))))
   
   (defmethod collide ((enemy enemy) event)
     (with-slots (parent offset size depth veloc health firepower missiles) enemy
  
positive.code: 
  (defmethod collide ((missile enemy-missile) event)
    (with-slots (parent offset size depth veloc) missile
      (when (and parent 	  (and (typep missile 'enemy-missile)
  			       (typep (event-hit event) 'thopter)))
        (let ((explosion (make-instance 'anim :name :explosion)))
          (make-instance 'explosion :parent parent
                         :offset (+ offset (/ size 2) (/ (size explosion) -2))
  
negative.code:    (missiles
      :accessor missiles
      :initarg :missiles
      :initform 0)
     (missile-chance
      :accessor missile-chance
      :initarg :missile-chance
      :initform 0)
     (difficulty
      :initarg :difficulty
  