anchor.diff:    (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)
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: (in-package :tempus)
  
  ;;; PC char_classes
  (defparameter +class-help+ -2)
  (defparameter +class-undefined+ -1)
  (defparameter +class-none+ -1)
  (defparameter +class-magic-user+ 0)
  (defparameter +class-mage+ +class-magic-user+)
  (defparameter +class-cleric+ 1)
  (defparameter +class-thief+ 2)
  (defparameter +class-warrior+ 3)
  (defparameter +class-barb+ 4)
  (defparameter +class-psionic+ 5)	; F
  (defparameter +class-physic+ 6)	; F
  (defparameter +class-cyborg+ 7)	; F
  (defparameter +class-knight+ 8)
  (defparameter +class-ranger+ 9)
  (defparameter +class-bard+ 10)	; N
  (defparameter +class-monk+ 11)
  (defparameter +class-vampire+ 12)
  (defparameter +class-mercenary+ 13)
  (defparameter +class-spare1+ 14)
  (defparameter +class-spare2+ 15)
  (defparameter +class-spare3+ 16)
  
  (defparameter +num-classes+ 17)	; This must be the number of char_classes!!
  (defparameter +class-normal+ 50)
  (defparameter +class-bird+ 51)
  (defparameter +class-predator+ 52)
  (defparameter +class-snake+ 53)
  (defparameter +class-horse+ 54)
  (defparameter +class-small+ 55)
  (defparameter +class-medium+ 56)
  (defparameter +class-large+ 57)
  (defparameter +class-scientist+ 58)
  (defparameter +class-skeleton+ 60)
  (defparameter +class-ghoul+ 61)
  (defparameter +class-shadow+ 62)
  (defparameter +class-wight+ 63)
  (defparameter +class-wraith+ 64)
  (defparameter +class-mummy+ 65)
  (defparameter +class-spectre+ 66)
  (defparameter +class-npc-vampire+ 67)
  (defparameter +class-ghost+ 68)
  (defparameter +class-lich+ 69)
  (defparameter +class-zombie+ 70)
  
  (defparameter +class-earth+ 81)	; Elementals
  (defparameter +class-fire+ 82)
  (defparameter +class-water+ 83)
  (defparameter +class-air+ 84)
  (defparameter +class-lightning+ 85)
  (defparameter +class-green+ 91)	; Dragons
  (defparameter +class-white+ 92)
  (defparameter +class-black+ 93)
  (defparameter +class-blue+ 94)
  (defparameter +class-red+ 95)
  (defparameter +class-silver+ 96)
  (defparameter +class-shadow-d+ 97)
  (defparameter +class-deep+ 98)
  (defparameter +class-turtle+ 99)
  (defparameter +class-least+ 101)	; Devils
  (defparameter +class-lesser+ 102)
  (defparameter +class-greater+ 103)
  (defparameter +class-duke+ 104)
  (defparameter +class-arch+ 105)
  (defparameter +class-hill+ 111)
  (defparameter +class-stone+ 112)
  (defparameter +class-frost+ 113)
  (defparameter +class-fire-g+ 114)
  (defparameter +class-cloud+ 115)
  (defparameter +class-storm+ 116)
  (defparameter +class-slaad-red+ 120)	; Slaad
  (defparameter +class-slaad-blue+ 121)
  (defparameter +class-slaad-green+ 122)
  (defparameter +class-slaad-grey+ 123)
  (defparameter +class-slaad-death+ 124)
  (defparameter +class-slaad-lord+ 125)
  (defparameter +class-demon-i+ 130)	; Demons of the Abyss
  (defparameter +class-demon-ii+ 131)
  (defparameter +class-demon-iii+ 132)
  (defparameter +class-demon-iv+ 133)
  (defparameter +class-demon-v+ 134)
  (defparameter +class-demon-vi+ 135)
  (defparameter +class-demon-semi+ 136)
  (defparameter +class-demon-minor+ 137)
  (defparameter +class-demon-major+ 138)
  (defparameter +class-demon-lord+ 139)
  (defparameter +class-demon-prince+ 140)
  (defparameter +class-deva-astral+ 150)
  (defparameter +class-deva-monadic+ 151)
  (defparameter +class-deva-movanic+ 152)
  (defparameter +class-mephit-fire+ 160)
  (defparameter +class-mephit-lava+ 161)
  (defparameter +class-mephit-smoke+ 162)
  (defparameter +class-mephit-steam+ 163)
  (defparameter +class-daemon-arcana+ 170)	// daemons
  (defparameter +class-daemon-charona+ 171)
  (defparameter +class-daemon-dergho+ 172)
  (defparameter +class-daemon-hydro+ 173)
  (defparameter +class-daemon-pisco+ 174)
  (defparameter +class-daemon-ultro+ 175)
  (defparameter +class-daemon-yagno+ 176)
  (defparameter +class-daemon-pyro+ 177)
  (defparameter +class-godling+ 178)
  (defparameter +class-diety+ 179)
  
  (defparameter +top-class+ 180)
  
  (defparameter +race-human+ 0)
  (defparameter +race-elf+ 1)
  