[contraband-cvs] CVS: contraband/config character.lisp,1.3,1.4

[Stig E S. <st...@us...>]

Update of /cvsroot/contraband/contraband/config
In directory sc8-pr-cvs1:/tmp/cvs-serv12315/config

Modified Files:
	character.lisp 
Log Message:
added bit-flags

Index: character.lisp
===================================================================
RCS file: /cvsroot/contraband/contraband/config/character.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** character.lisp	1 May 2003 22:31:56 -0000	1.3
--- character.lisp	20 Jul 2003 11:57:51 -0000	1.4
***************
*** 137,154 ****
  
  (define-character-stat '<str> "strength"
!   :abbreviation "Str" :number 0 :positive-desc "strong" :negative-desc "weak")
  
  (define-character-stat '<agi> "agility"
!   :abbreviation "Agi" :number 1 :positive-desc "agile" :negative-desc "clumsy")
  
  (define-character-stat '<con> "constitution"
!   :abbreviation "Con" :number 2 :positive-desc "healthy" :negative-desc "sickly")
  
  (define-character-stat '<dis> "discipline"
!   :abbreviation "Dis" :number 3 :positive-desc "focused" :negative-desc "weak-willed")
  
  (define-character-stat '<rea> "reasoning"
!   :abbreviation "Rea" :number 4 :positive-desc "clever" :negative-desc "dumb")
  
  (define-character-stat '<pre> "presence"
!   :abbreviation "Pre" :number 5 :positive-desc "celebrity" :negative-desc "anonymous")
--- 137,154 ----
  
  (define-character-stat '<str> "strength"
!   :abbreviation "Str" :number 0 :bit-flag #x01 :positive-desc "strong" :negative-desc "weak")
  
  (define-character-stat '<agi> "agility"
!   :abbreviation "Agi" :number 1 :bit-flag #x02 :positive-desc "agile" :negative-desc "clumsy")
  
  (define-character-stat '<con> "constitution"
!   :abbreviation "Con" :number 2 :bit-flag #x04 :positive-desc "healthy" :negative-desc "sickly")
  
  (define-character-stat '<dis> "discipline"
!   :abbreviation "Dis" :number 3 :bit-flag #x08 :positive-desc "focused" :negative-desc "weak-willed")
  
  (define-character-stat '<rea> "reasoning"
!   :abbreviation "Rea" :number 4 :bit-flag #x10 :positive-desc "clever" :negative-desc "dumb")
  
  (define-character-stat '<pre> "presence"
!   :abbreviation "Pre" :number 5 :bit-flag #x20 :positive-desc "celebrity" :negative-desc "anonymous")