anchor.diff:     (total-dam :accessor total-dam-of :initarg :total-dam :initform nil)
      (hold-load-room :accessor hold-load-room-of :initarg :hold-load-room :initform nil)
      (quest-id :accessor quest-id-of :initarg :quest-id :initform nil)
  +   (plr-bits :accessor plr-bits-of :initarg :plr-bits :initform nil)
      (plr2-bits :accessor plr2-bits-of :initarg :plr2-bits :initform nil)
      (reputation :accessor reputation-of :initarg :reputation :initform nil)
      (killer-severity :accessor killer-severity-of :initarg :killer-severity :initform nil)
  
positive.code: (defparameter +sex-male+ 1)
  (defparameter +sex-female+ 2)
  
  (defparameter +mob-spec+ (ash 1 0))	; Mob has a callable spec-proc
  (defparameter +mob-sentinel+ (ash 1 1))	; Mob should not move
  (defparameter +mob-scavenger+ (ash 1 2))	; Mob picks up stuff on the ground
  
negative.code:   (logtest (aff2-flags-of ch) flag))
  (defun aff3-flagged (ch flag)
    (logtest (aff3-flags-of ch) flag))
  (defun plr-flagged (ch flag)
    (and (typep ch 'player)
         (logtest (plr-bits-of ch) flag)))
  (defun plr2-flagged (ch flag)
    (and (typep ch 'player)
         (logtest (plr2-bits-of ch) flag)))
  (defun is-good (ch) (>= (alignment-of ch) 350))
  (defun is-evil (ch) (<= (alignment-of ch) -350))
  (defun is-neutral (ch) (< -350 (alignment-of ch) 350))
  (defun is-sick (ch) (aff3-flagged ch +aff3-sickness+))
  (defun is-hamstrung (ch) (aff3-flagged ch +aff3-hamstrung+))
  (defun has-poison-1 (ch) (aff-flagged ch +aff-poison+))
  (defun has-poison-2 (ch) (aff3-flagged ch +aff3-poison-2+))
  (defun has-poison-3 (ch) (aff3-flagged ch +aff3-poison-2+))
  
  (defun is-npc (ch) (typep ch 'mobile))
  (defun is-cleric (ch) (or (eql (char-class-of ch) +class-cleric+)
                            (eql (remort-char-class-of ch) +class-cleric+)))
  
  (defun can-detect-disguise (ch vict level)
    (or (pref-flagged ch +pref-holylight+)
        (aff2-flagged ch +aff2-true-seeing+)
        (> (+ (int-of ch) (wis-of ch))
           (+ level (cha-of vict)))))
  (defun get-disguised-name (ch tch)
    (let* ((af (affected-by-spell tch +skill-disguise+))
           (mob (when af (real-mobile-proto (modifier-of af)))))
      (cond
        ((or (is-npc tch)
             (null af)
             (null mob))
         (short-descr-of tch))
        ((can-detect-disguise ch tch (duration-of af))
         (format nil "~a (disguised as ~a)"
                 (short-descr-of tch)
                 (short-descr-of mob)))
        (t
         (short-descr-of mob)))))
  (defun testerp (ch)
    nil)
  
  (defun get-level-bonus (ch)
    0)
  
  (defun in-same-group-p (ch tch)
    (and (aff-flagged ch +aff-group+)
         (aff-flagged tch +aff-group+)
         (or (eql ch (master-of tch))
             (eql tch (master-of ch))
             (eql (master-of ch) (master-of tch)))))
  
  (defun affected-by-spell (ch spell)
    nil)