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: (in-package :tempus)
  
  (defparameter +race-human+ 0)
  (defparameter +race-elf+ 1)
  
negative.code: (defparameter +sex-male+ 1)
  (defparameter +sex-female+ 2)
  
  ;;; Positions
  (defparameter +bottom-pos+ 0)
  (defparameter +pos-dead+ 0)	; dead
  (defparameter +pos-mortallyw+ 1)	; mortally wounded
  (defparameter +pos-incap+ 2)	; incapacitated
  (defparameter +pos-stunned+ 3)	; stunned
  (defparameter +pos-sleeping+ 4)	; sleeping
  (defparameter +pos-resting+ 5)	; resting
  (defparameter +pos-sitting+ 6)	; sitting
  (defparameter +pos-fighting+ 7)	; fighting
  (defparameter +pos-standing+ 8)	; standing
  (defparameter +pos-flying+ 9)	; flying around
  (defparameter +pos-mounted+ 10)
  (defparameter +pos-swimming+ 11)
  (defparameter +top-pos+ 11)
  
  ;;; Player flags: used by Creature.char_specials.act
  (defparameter +plr-killer+ (ash 1 0))	; Player is a player-killer
  (defparameter +plr-thief+ (ash 1 1))	; Player is a player-thief
  (defparameter +plr-frozen+ (ash 1 2))	; Player is frozen
  (defparameter +plr-dontset+ (ash 1 3))	; Don't EVER set (ISNPC bit)
  (defparameter +plr-writing+ (ash 1 4))	; Player writing (board/mail/olc)
  (defparameter +plr-mailing+ (ash 1 5))	; Player is writing mail
  (defparameter +plr-crash+ (ash 1 6))	; Player needs to be crash-saved
  (defparameter +plr-siteok+ (ash 1 7))	; Player has been site-cleared
  (defparameter +plr-noshout+ (ash 1 8))	; Player not allowed to shout/goss
  (defparameter +plr-notitle+ (ash 1 9))	; Player not allowed to set title
  (defparameter +plr-deleted+ (ash 1 10))	; Player deleted - space reusable
  (defparameter +plr-loadroom+ (ash 1 11))	; Player uses nonstandard loadroom
  (defparameter +plr-noclanmail+ (ash 1 12))	; Player doesn't get clanmail
  (defparameter +plr-nodelete+ (ash 1 13))	; Player shouldn't be deleted
  (defparameter +plr-invstart+ (ash 1 14))	; Player should enter game wizinvis
  (defparameter +plr-cryo+ (ash 1 15))	; Player is cryo-saved (purge prog)
  (defparameter +plr-afk+ (ash 1 16))	; Player is away from keyboard
  (defparameter +plr-clan-leader+ (ash 1 17))	; The head of the respective clan
  (defparameter +plr-unused2+ (ash 1 18))
  (defparameter +plr-olc+ (ash 1 19))	; Player is descripting olc
  (defparameter +plr-halt+ (ash 1 20))	; Player is halted
  (defparameter +plr-olcgod+ (ash 1 21))	; Player can edit at will
  (defparameter +plr-tester+ (ash 1 22))	; Player is a tester
  (defparameter +plr-unused3+ (ash 1 23))	; Quest god
  (defparameter +plr-mortalized+ (ash 1 24))	; God can be killed
  (defparameter +plr-unused4+ (ash 1 25))
  (defparameter +plr-unused6+ (ash 1 26))
  (defparameter +plr-nopost+ (ash 1 27))
  (defparameter +plr-log+ (ash 1 28))	; log all cmds
  (defparameter +plr-unused5+ (ash 1 29))	; player approved for port olc
  (defparameter +plr-nopk+ (ash 1 30))	; player cannot pk
  
  ;; Player Flags Mark II
  (defparameter +plr2-soulless+ (ash 1 0))	; Signing the Unholy Compact.
  (defparameter +plr2-buried+ (ash 1 1))	; Player has died way too many times.
  (defparameter +plr2-in-combat+ (ash 1 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
  