[langband-cvs] CVS: langband dungeon.lisp,1.134,1.135

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

Update of /cvsroot/langband/langband
In directory sc8-pr-cvs1:/tmp/cvs-serv11526

Modified Files:
	dungeon.lisp 
Log Message:
removed some dead code

Index: dungeon.lisp
===================================================================
RCS file: /cvsroot/langband/langband/dungeon.lisp,v
retrieving revision 1.134
retrieving revision 1.135
diff -C2 -d -r1.134 -r1.135
*** dungeon.lisp	25 Nov 2002 14:09:08 -0000	1.134
--- dungeon.lisp	28 Nov 2002 19:20:02 -0000	1.135
***************
*** 343,405 ****
  	   (setf ret-attr (funcall attr-fun f-obj)
  		 ret-char (funcall char-fun f-obj))))
-    
-     #||
-     ;; skip hallucination
-     ;; do decor after floor!
-     (cond ((bit-flag-set? (floor.flags (get-floor-type feat)) +floor-flag-floor+)
- 	   ;; floor grids
- 	   ;; something we see
- 	   (cond ((or (bit-flag-set? flags +cave-mark+)
- 		      (bit-flag-set? flags +cave-seen+))
- 
- 		  (setf f-obj (get-floor-type feat))
- 		  
- 		  (unless f-obj
- 		    (setf f-obj (get-floor-type "normal-floor")))
- 		  (setf ret-attr (funcall attr-fun f-obj)
- 			ret-char (funcall char-fun f-obj))
- 
- 		  ;; do tricky handling here
- 		  ;; torch-light
- 		  (when (and (bit-flag-set? flags +cave-seen+) ;; isn't this always true?
- 			     (not (bit-flag-set? flags +cave-glow+))
- 			     )
  
! 		    (cond (using-gfx
! 			   (decf ret-char))
! 			  ((eql ret-attr +term-white+)
! 			   (setf ret-attr +term-yellow+)))
! 		    ))
! 
! 
! 		 
! 		 ;; otherwise darkness
! 		 (t
! 		  (setf f-obj (get-floor-type "nothing"))
! 		  (setf ret-attr (funcall attr-fun f-obj)
! 			ret-char (funcall char-fun f-obj))
! 		  ))
! 	     
! 	   )
! 	  
! 	  
! 	  ;; non-floor grids
! 	  (t
! 
! 	   (cond ((bit-flag-set? flags +cave-mark+)
! 		  (setf f-obj (get-floor-type feat))
! 		  (setf ret-attr (funcall attr-fun f-obj)
! 			ret-char (funcall char-fun f-obj)))
! 
! 		 ;; not noted
! 		 (t
! 		  (setf f-obj (get-floor-type "nothing"))
! 		  (setf ret-attr (funcall attr-fun f-obj)
! 			ret-char (funcall char-fun f-obj)))
! 		 
! 		)
! 	   
! 	   ))
!     ||#
  
      ;; hackish save of transparency
--- 343,348 ----
  	   (setf ret-attr (funcall attr-fun f-obj)
  		 ret-char (funcall char-fun f-obj))))
  
!     ;; removed code here, see older versions
  
      ;; hackish save of transparency