anchor.diff:      (setf (ammo weapon) (* (ammo weapon) (ammo-deplete-rate weapon)))))
   
   (defmethod shoot ((weapon weapon) event)
  +  (with-slots (fire-sound) weapon
  +    (shoot-helper weapon (weapon-type weapon) event)
  +    (when fire-sound
  +      (play fire-sound))))
  +
  +(defmethod shoot-helper ((weapon weapon) (weapon-type (eql :radial)) event)
     (with-slots ((shooter parent) projectile-class projectile-image
                  projectile-n-directions projectile-veloc projectile-timer
                  fire-sound ammo ammo-deplete-rate angle-increment
  
positive.code:                  :veloc v
                   :image image
                   :timer projectile-timer))
            (decf ammo firepower))
          (when fire-sound
            (play fire-sound))))))
  
  (defmethod missile ((enemy enemy) event)
    (shoot (secondary-weapon enemy) event)
  
negative.code:              :parent thopter
               :offset #c(-33 -22)
               :depth -1
               :image blade-anim)
              (subscribe (game-keys screen) thopter)
              (incf (players-left (players-left screen)))))
      (let* ((tile-names '(:forest-0 :forest-1 :forest-2 :forest-3
  