[contraband-cvs] CVS: contraband levels.lisp,1.11,1.12 keys.lisp,1.9,1.10
Status: Pre-Alpha
Brought to you by:
stig
|
From: Stig E S. <st...@us...> - 2003-07-27 19:54:37
|
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])
|