[contraband-cvs] CVS: contraband/people fossgard.lisp,1.1,1.2

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

Update of /cvsroot/contraband/contraband/people
In directory sc8-pr-cvs1:/tmp/cvs-serv1071/people

Modified Files:
	fossgard.lisp 
Log Message:
updated *update code to use a table and not bit-field

Index: fossgard.lisp
===================================================================
RCS file: /cvsroot/contraband/contraband/people/fossgard.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** fossgard.lisp	19 Apr 2003 16:34:14 -0000	1.1
--- fossgard.lisp	27 Jul 2003 19:54:33 -0000	1.2
***************
*** 44,48 ****
  			    (add-to-inventory player (get-new-object "green-silk-dress"))
  			    (decf (player.gold player) 50)
! 			    (bit-flag-add! *update* +pl-upd-bonuses+))
  		  (:dest :quit "Goodbye.")))
  
--- 44,48 ----
  			    (add-to-inventory player (get-new-object "green-silk-dress"))
  			    (decf (player.gold player) 50)
! 			    (ask-for-update! player '[bonuses]))
  		  (:dest :quit "Goodbye.")))