[contraband-cvs] CVS: contraband/people fossgard.lisp,1.1,1.2
Status: Pre-Alpha
Brought to you by:
stig
|
From: Stig E S. <st...@us...> - 2003-07-27 19:54:36
|
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."))) |