[langband-cvs] CVS: langband global.lisp,1.207.2.16,1.207.2.17 project.lisp,1.29.2.1,1.29.2.2 sound.lisp,1.7,1.7.2.1

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

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

Modified Files:
      Tag: VER_0_1_2multi
	global.lisp project.lisp sound.lisp 
Log Message:
removed some old calls to term-xtra

Index: global.lisp
===================================================================
RCS file: /cvsroot/langband/langband/global.lisp,v
retrieving revision 1.207.2.16
retrieving revision 1.207.2.17
diff -C2 -d -r1.207.2.16 -r1.207.2.17
*** global.lisp	23 Dec 2002 23:04:38 -0000	1.207.2.16
--- global.lisp	23 Dec 2002 23:45:31 -0000	1.207.2.17
***************
*** 980,983 ****
--- 980,985 ----
  (defun paint-gfx-image& (fname type x y)
    )
+ (defun load-scaled-image& (fname idx wid hgt)
+   )
  
  (defun %load-people-image (name wid height)
***************
*** 992,995 ****
--- 994,1000 ----
  
  
+ (defun delay (msecs)
+   "Delays given amount of msecs."
+   )
  
  (defun c-print-text! (col row colour text &key (end-col 80))

Index: project.lisp
===================================================================
RCS file: /cvsroot/langband/langband/project.lisp,v
retrieving revision 1.29.2.1
retrieving revision 1.29.2.2
diff -C2 -d -r1.29.2.1 -r1.29.2.2
*** project.lisp	20 Dec 2002 12:04:57 -0000	1.29.2.1
--- project.lisp	23 Dec 2002 23:45:32 -0000	1.29.2.2
***************
*** 138,142 ****
    (put-cursor-relative! dungeon x y)
    (refresh-window *map-frame*)
!   (org.langband.ffi:c-term-xtra& 13 50) ;; 50 msec delay
    (light-spot! dungeon x y) ;; also enforces a paint
    )
--- 138,142 ----
    (put-cursor-relative! dungeon x y)
    (refresh-window *map-frame*)
!   (delay 50) ;; 50 msec delay
    (light-spot! dungeon x y) ;; also enforces a paint
    )
***************
*** 378,382 ****
  		(refresh-window *map-frame*)
  		(when (or drawn-blast drawn-beam)
! 		  (org.langband.ffi:c-term-xtra& 13 draw-delay) 
  		  )
  ;;		(light-spot! dungeon x y)
--- 378,382 ----
  		(refresh-window *map-frame*)
  		(when (or drawn-blast drawn-beam)
! 		  (delay draw-delay) 
  		  )
  ;;		(light-spot! dungeon x y)

Index: sound.lisp
===================================================================
RCS file: /cvsroot/langband/langband/sound.lisp,v
retrieving revision 1.7
retrieving revision 1.7.2.1
diff -C2 -d -r1.7 -r1.7.2.1
*** sound.lisp	11 Nov 2002 13:32:56 -0000	1.7
--- sound.lisp	23 Dec 2002 23:45:32 -0000	1.7.2.1
***************
*** 56,60 ****
  	  (sounds (gethash type *sound-table*)))
        (when sounds
! 	(c-term-xtra& xtra-code-sound (rand-elm sounds))))))
  
  
--- 56,63 ----
  	  (sounds (gethash type *sound-table*)))
        (when sounds
! 	;; add sounds back in
! 	;; (play (rand-elm sounds))
! 
! 	))))