[contraband-cvs] CVS: contraband/tasks trader.lisp,1.10,1.11 letters.lisp,1.7,1.8 dress.lisp,1.4,1.5

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

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

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

Index: trader.lisp
===================================================================
RCS file: /cvsroot/contraband/contraband/tasks/trader.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** trader.lisp	28 May 2003 10:34:30 -0000	1.10
--- trader.lisp	27 Jul 2003 19:54:33 -0000	1.11
***************
*** 49,53 ****
    (print-message! "You have completed your first task as diplomat, good work.")
    (modify-xp! quest-taker 100)
!   (bit-flag-add! *update* +pl-upd-bonuses+)
    
    quest)
--- 49,53 ----
    (print-message! "You have completed your first task as diplomat, good work.")
    (modify-xp! quest-taker 100)
!   (ask-for-update! quest-taker '[bonuses])
    
    quest)

Index: letters.lisp
===================================================================
RCS file: /cvsroot/contraband/contraband/tasks/letters.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** letters.lisp	19 Apr 2003 16:34:15 -0000	1.7
--- letters.lisp	27 Jul 2003 19:54:33 -0000	1.8
***************
*** 55,60 ****
  	   (print-message! "The Mereo's letter removed from backpack, you're given 15 florentins.")
  	   (modify-gold! *player* 15)
! 	   (modify-xp! quest-taker 70)
! 	   (bit-flag-add! *update* +pl-upd-bonuses+))
  	  (t
  	   (print-message! "Letter to Mereo Junifer removed from inventory.")
--- 55,59 ----
  	   (print-message! "The Mereo's letter removed from backpack, you're given 15 florentins.")
  	   (modify-gold! *player* 15)
! 	   (modify-xp! quest-taker 70))
  	  (t
  	   (print-message! "Letter to Mereo Junifer removed from inventory.")
***************
*** 62,66 ****
  
  
!   (bit-flag-add! *update* +pl-upd-bonuses+)
    
    ;;(setf (quest.state quest) :finished)
--- 61,65 ----
  
  
!   (ask-for-update! quest-taker '[bonuses])
    
    ;;(setf (quest.state quest) :finished)
***************
*** 78,88 ****
  	   (print-message! "The Mereo's Letter removed from backpack, you're given 5 florentins.")
  	   (modify-gold! *player* 5)
! 	   (modify-xp! quest-taker 50)
! 	   (bit-flag-add! *update* +pl-upd-bonuses+))
  	  (t
  	   (print-message! "Letter to Mereo Ulydes removed from inventory.")
  	   (modify-xp! quest-taker 30))))
  
!   (bit-flag-add! *update* +pl-upd-bonuses+)
    
    ;;(setf (quest.state quest) :finished)
--- 77,86 ----
  	   (print-message! "The Mereo's Letter removed from backpack, you're given 5 florentins.")
  	   (modify-gold! *player* 5)
! 	   (modify-xp! quest-taker 50))
  	  (t
  	   (print-message! "Letter to Mereo Ulydes removed from inventory.")
  	   (modify-xp! quest-taker 30))))
  
!   (ask-for-update! quest-taker '[bonuses])
    
    ;;(setf (quest.state quest) :finished)
***************
*** 100,110 ****
  	   (print-message! "The Consul's Letter removed from backpack, you're given 15 florentins.")
  	   (modify-gold! *player* 15)
! 	   (modify-xp! quest-taker 70)
! 	   (bit-flag-add! *update* +pl-upd-bonuses+))
  	  (t
  	   (print-message! "Letter to Consul Tepesco removed from backpack.")
  	   (modify-xp! quest-taker 30))))
  
!   (bit-flag-add! *update* +pl-upd-bonuses+)
    
    ;;(setf (quest.state quest) :finished)
--- 98,108 ----
  	   (print-message! "The Consul's Letter removed from backpack, you're given 15 florentins.")
  	   (modify-gold! *player* 15)
! 	   (modify-xp! quest-taker 70))
! 
  	  (t
  	   (print-message! "Letter to Consul Tepesco removed from backpack.")
  	   (modify-xp! quest-taker 30))))
  
!   (ask-for-update! quest-taker '[bonuses])
    
    ;;(setf (quest.state quest) :finished)

Index: dress.lisp
===================================================================
RCS file: /cvsroot/contraband/contraband/tasks/dress.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** dress.lisp	17 Apr 2003 16:37:58 -0000	1.4
--- dress.lisp	27 Jul 2003 19:54:33 -0000	1.5
***************
*** 21,25 ****
  
    (modify-xp! quest-taker 100)
!   (bit-flag-add! *update* +pl-upd-bonuses+)
    
    ;;(setf (quest.state quest) :finished)
--- 21,25 ----
  
    (modify-xp! quest-taker 100)
!   (ask-for-update! quest-taker '[bonuses])
    
    ;;(setf (quest.state quest) :finished)