anchor.diff:             (or (eql (plane-of (zone-of (in-room-of ch))) +plane-hell-5+)
                  (eql (plane-of (zone-of (in-room-of ch))) +plane-hell-8+)))))
   
  +(defun char-withstands-radiation (ch)
  +  (or (immortalp ch)
  +      (pref-flagged ch +pref-nohassle+)
  +      (aff2-flagged ch +aff2-prot-rad+)))
  +
   (defun char-has-blood (ch)
     (not (or (is-undead ch)
              (is-elemental ch)
  
positive.code:            (is-pudding ch)
             (is-slime ch))))
  
  (defun is-remort (ch) (plusp (remort-gen-of ch)))
  (defun is-pc (ch) (typep ch 'player))
  (defun is-npc (ch) (typep ch 'mobile))
  
negative.code:   ((shared :accessor shared-of :initarg :shared :initform nil)
     (memory :accessor memory-of :initarg :memory :initform nil)
     (func-data :accessor func-data-of :initarg :func-data :initform nil)
     (wait-state :accessor wait-state-of :initarg :wait-state :initform 0)
     (last-direction :accessor last-direction-of :initarg :last-direction :initform nil)
     (mob-idnum :accessor mob-idnum-of :initarg :mob-idnum :initform nil)
     (prog-state :accessor prog-state-of :initarg :prog-state :initform nil)
  