serialize body

base-classes.lisp

@@ -8,4 +8,5 @@
 (defclass named-object ()
   ((name
     :initarg :name
+    :initform nil
     :reader name)))

body-part.lisp

@@ -27,7 +27,7 @@
         (setf (latest-event (game-room body))
               (list (id body)
                     (list 'body-parts
-                          (serialize body-part))
+                          (list (serialize body-part)))
                     (list 'current-health
                           (current-health body))))))
 

body.lisp

@@ -109,3 +109,18 @@
 
 (defmethod current-health ((body body))
   (- (max-health body) (reduce #'+ (mappend (lambda (bp) (hash-values (damage-received bp))) (body-parts body)))))
+
+(defmethod player? ((body body))
+  (not (null (player body))))
+
+;; TODO should this be a before method that doesn't do
+;; call-next-method if the body belongs to a player?
+(defmethod name ((body body))
+  (if (player? body)
+      (name (player body))
+      (call-next-method)))
+
+(defmethod serialize ((body body))
+  (list (list 'name (name body))
+        (list 'current-health (current-health body))
+        (list 'body-parts (mapcar #'serialize (body-parts body)))))