anchor.diff:                           (vnum-of weapon)))
          do (incf prob (* (level-of spec) 4))))
   
  -  (let ((effective-weight (weight-of weapon))
  +  (let ((effective-weight (effective-weapon-weight-of weapon))
           (wield-weight (str-app-type-wield-w (aref +str-app+ (str-of ch)))))
       (cond
         ((/= (worn-on-of weapon) +wear-wield+)
  
positive.code:          (check-skill ch skill))))
     0))
  
  (defun calculate-weapon-probability (ch prob weapon)
    ;; Add in weapon specialization bonus
    (when (plusp (vnum-of weapon))
  
negative.code:     (decf prob (floor (* prob 32 (+ (carry-weight-of ch) (worn-weight-of ch)))
                        (* (can-carry-weight ch) 85)))
  
      (when (> (get-condition ch +drunk+) 5)
        (decf prob (floor (+ (* prob 15/100)
                             (* prob (/ (get-condition ch +drunk+) 100))))))
  
  