[contraband-cvs] CVS: contraband/config dialogues.lisp,1.7,1.8

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

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

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

Index: dialogues.lisp
===================================================================
RCS file: /cvsroot/contraband/contraband/config/dialogues.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** dialogues.lisp	19 Apr 2003 21:57:56 -0000	1.7
--- dialogues.lisp	27 Jul 2003 19:54:33 -0000	1.8
***************
*** 61,65 ****
  					     (remove-from-inventory quest-taker '(object "filled-out-export-forms"))
  					     (add-to-inventory player (get-new-object "signed-export-forms"))
! 					     (bit-flag-add! *update* +pl-upd-bonuses+))
  				   (:text "Ok, fair enough, since it's you.")
  				   (:dest :back "Good doing business with you."))
--- 61,65 ----
  					     (remove-from-inventory quest-taker '(object "filled-out-export-forms"))
  					     (add-to-inventory player (get-new-object "signed-export-forms"))
! 					     (ask-for-update! player '[bonuses]))
  				   (:text "Ok, fair enough, since it's you.")
  				   (:dest :back "Good doing business with you."))
***************
*** 73,77 ****
  				     (remove-from-inventory player '(object "filled-out-export-forms"))
  				     (add-to-inventory player (get-new-object "signed-export-forms"))
! 				     (bit-flag-add! *update* +pl-upd-bonuses+))
  			   (:node (:text "Thanks buddy.")
  				  (:dest :quit "We'll do business again.")))
--- 73,77 ----
  				     (remove-from-inventory player '(object "filled-out-export-forms"))
  				     (add-to-inventory player (get-new-object "signed-export-forms"))
! 				     (ask-for-update! player '[bonuses]))
  			   (:node (:text "Thanks buddy.")
  				  (:dest :quit "We'll do business again.")))