[contraband-cvs] CVS: contraband levels.lisp,1.11,1.12 keys.lisp,1.9,1.10

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

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

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

Index: levels.lisp
===================================================================
RCS file: /cvsroot/contraband/contraband/levels.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** levels.lisp	27 Jul 2003 13:52:55 -0000	1.11
--- levels.lisp	27 Jul 2003 19:54:34 -0000	1.12
***************
*** 173,177 ****
        )
  
!     (bit-flag-add! *update* +pl-upd-forget-view+ +pl-upd-update-view+)
      (ask-for-redraw! player '[map])
  
--- 173,178 ----
        )
  
!     (ask-for-update! player '[forget-view])
!     (ask-for-update! player '[update-view])
      (ask-for-redraw! player '[map])
  

Index: keys.lisp
===================================================================
RCS file: /cvsroot/contraband/contraband/keys.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** keys.lisp	27 Jul 2003 13:52:55 -0000	1.9
--- keys.lisp	27 Jul 2003 19:54:34 -0000	1.10
***************
*** 372,379 ****
  	;; skip combine & reorder
  
! 	(bit-flag-add! *update* #.(logior +pl-upd-torch+
! 					  +pl-upd-forget-view+
! 					  +pl-upd-update-view+ 
! 					  +pl-upd-monsters+))
  	(ask-for-redraw! player '[extra])
  	(ask-for-redraw! player '[basic])
--- 372,380 ----
  	;; skip combine & reorder
  
! 	(ask-for-update! player '[torch])
! 	(ask-for-update! player '[forget-view])
! 	(ask-for-update! player '[update-view])
! 	(ask-for-update! player '[monsters])
! 
  	(ask-for-redraw! player '[extra])
  	(ask-for-redraw! player '[basic])