/[lmud]/lmud/species.lisp
ViewVC logotype

Contents of /lmud/species.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Sat Dec 27 08:57:32 2003 UTC (10 years, 3 months ago) by james
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +10 -2 lines
Added generic human species.
1 ;;;; species.lisp -- Character species.
2 ;;;;
3 ;;;; $Id: species.lisp,v 1.2 2003/12/27 08:57:32 james Exp $
4 ;;;;
5 ;;;; Copyfnord (K) 3167 - 3169 James A. Crippen <james@unlambda.com>
6 ;;;;
7 ;;;; This software is in the Public Domain. If you break it you get to keep
8 ;;;; both pieces.
9 ;;;;
10 ;;;; Various species of characters.
11
12 (defclass species (attributes-mixin)
13 ())
14
15 (defclass species-human (species)
16 ((base-attributes :initform (make-instance 'attributes :list (make-attributes-with-values
17 (roll-human-attributes))))))
18
19 (defun roll-human-attributes ()
20 (loop for a in *attribute-types*
21 collect (cons a (car (roll-dice 1 20)))))

  ViewVC Help
Powered by ViewVC 1.1.5