anchor.diff:        (plusp amount))))
   
   (defun obj-is-weapon (obj)
  -  "Returns non-NIL if OBJ ir a weapon or energy gun.  Returns NIL if
  +  "Returns non-NIL if OBJ is a weapon or energy gun.  Returns NIL if
   it isn't or if OBJ is NIL."
     (and obj
          (or (is-obj-kind obj +item-weapon+)
  
positive.code:      (floor (* 6 (max 0 (- (get-skill-bonus ch +skill-backstab+) 50))) 50)))
  
  (defun do-casting-weapon (ch weapon)
    nil)
  
  (defun hit (ch victim type)
    (let ((w-type type)
  
negative.code:                    (awakep victim)
                     (or (= diceroll 1)
                         (> (- thaco diceroll) victim-ac)))
            ;; Miss - deal 0 damage to emit miss message
            (if (member type (list +skill-backstab+
                                   +skill-circle+
                                   +skill-second-weapon+
                                   +skill-cleave+))
                (damage-creature ch victim 0 weapon type -1)
                (damage-creature ch victim 0 weapon w-type -1))
  
  