[langband-cvs] CVS: langband/variants/vanilla keys.lisp,1.85.2.2,1.85.2.3 levels.lisp,1.39.2.1,1.39.2.2 spells.lisp,1.57,1.57.2.1 wizard.lisp,1.40.2.1,1.40.2.2

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

Update of /cvsroot/langband/langband/variants/vanilla
In directory sc8-pr-cvs1:/tmp/cvs-serv17386/variants/vanilla

Modified Files:
      Tag: VER_0_1_2multi
	keys.lisp levels.lisp spells.lisp wizard.lisp 
Log Message:
fixed all calls to the now dead C-PRT!

Index: keys.lisp
===================================================================
RCS file: /cvsroot/langband/langband/variants/vanilla/keys.lisp,v
retrieving revision 1.85.2.2
retrieving revision 1.85.2.3
diff -C2 -d -r1.85.2.2 -r1.85.2.3
*** keys.lisp	23 Dec 2002 23:45:29 -0000	1.85.2.2
--- keys.lisp	31 Dec 2002 16:22:10 -0000	1.85.2.3
***************
*** 128,132 ****
  	       (c-clear-from! 0)
  	       (display-creature *variant* player)
! 	       ;;(c-prt! "['C' to show combat-info, 'R' to show resists,  ESC to continue]"
  	       ;;5 (get-last-console-line))
  	       (print-note! "['C' to show combat-info, 'R' to show resists,  ESC to continue]")
--- 128,132 ----
  	       (c-clear-from! 0)
  	       (display-creature *variant* player)
! 	       ;;(put-coloured-line! +term-white+ "['C' to show combat-info, 'R' to show resists,  ESC to continue]"
  	       ;;5 (get-last-console-line))
  	       (print-note! "['C' to show combat-info, 'R' to show resists,  ESC to continue]")
***************
*** 159,163 ****
  ;;	(warn "Quitting")
  	(with-frame (+query-frame+)
! 	  (c-prt! "Are you sure you wish to quit [will kill character]? " 0 0)
  	  (let ((chr (read-one-character)))
  	    (when (or (equal chr #\y)
--- 159,163 ----
  ;;	(warn "Quitting")
  	(with-frame (+query-frame+)
! 	  (put-coloured-line! +term-white+ "Are you sure you wish to quit [will kill character]? " 0 0)
  	  (let ((chr (read-one-character)))
  	    (when (or (equal chr #\y)

Index: levels.lisp
===================================================================
RCS file: /cvsroot/langband/langband/variants/vanilla/levels.lisp,v
retrieving revision 1.39.2.1
retrieving revision 1.39.2.2
diff -C2 -d -r1.39.2.1 -r1.39.2.2
*** levels.lisp	20 Dec 2002 12:04:56 -0000	1.39.2.1
--- levels.lisp	31 Dec 2002 16:22:10 -0000	1.39.2.2
***************
*** 131,135 ****
  		(warn "Unknown key read: ~s" val)))
  	 
! 	 ;;     (c-prt! "" 0 0)
  	 )))
      )))
--- 131,135 ----
  		(warn "Unknown key read: ~s" val)))
  	 
! 	 ;;     (put-coloured-line! +term-white+ "" 0 0)
  	 )))
      )))

Index: spells.lisp
===================================================================
RCS file: /cvsroot/langband/langband/variants/vanilla/spells.lisp,v
retrieving revision 1.57
retrieving revision 1.57.2.1
diff -C2 -d -r1.57 -r1.57.2.1
*** spells.lisp	24 Nov 2002 15:56:28 -0000	1.57
--- spells.lisp	31 Dec 2002 16:22:10 -0000	1.57.2.1
***************
*** 393,397 ****
  
        (unless books
! 	(c-prt! "No books" 0 0)
  	(return-from select-book nil))
      
--- 393,397 ----
  
        (unless books
! 	(put-coloured-line! +term-white+ "No books" 0 0)
  	(return-from select-book nil))
      
***************
*** 401,405 ****
  				    first-num last-num)))
  
! 	(c-prt! select-string 0 0)
  	(loop
  	 (let ((selection (read-one-character)))
--- 401,405 ----
  				    first-num last-num)))
  
! 	(put-coloured-line! +term-white+ select-string 0 0)
  	(loop
  	 (let ((selection (read-one-character)))
***************
*** 498,502 ****
  
  	;; clean up some!
! 	;; (c-prt! "" 0 0)
  	
        	)))
--- 498,502 ----
  
  	;; clean up some!
! 	;; (put-coloured-line! +term-white+ "" 0 0)
  	
        	)))
***************
*** 526,530 ****
  				  #\a (i2a (1- (spellbook.size spellbook))) prompt)))
  
!        (c-prt! select-string 0 0)
         (let ((selection (read-one-character)))
  	 (cond ((eql selection +escape+)
--- 526,530 ----
  				  #\a (i2a (1- (spellbook.size spellbook))) prompt)))
  
!        (put-coloured-line! +term-white+ select-string 0 0)
         (let ((selection (read-one-character)))
  	 (cond ((eql selection +escape+)
***************
*** 603,607 ****
  		  )))
      
!     (c-prt! "" x (+ (spellbook.size spellbook) y  1))
      
      nil
--- 603,607 ----
  		  )))
      
!     (put-coloured-line! +term-white+ "" x (+ (spellbook.size spellbook) y  1))
      
      nil

Index: wizard.lisp
===================================================================
RCS file: /cvsroot/langband/langband/variants/vanilla/wizard.lisp,v
retrieving revision 1.40.2.1
retrieving revision 1.40.2.2
diff -C2 -d -r1.40.2.1 -r1.40.2.2
*** wizard.lisp	20 Dec 2002 09:27:47 -0000	1.40.2.1
--- wizard.lisp	31 Dec 2002 16:22:10 -0000	1.40.2.2
***************
*** 359,363 ****
  	     (print-message! nil)
  	     (with-frame (+query-frame+)
! 	       (c-prt! "Wizard command: " 0 0)
  
  	       (let* ((ch (read-one-character))
--- 359,363 ----
  	     (print-message! nil)
  	     (with-frame (+query-frame+)
! 	       (put-coloured-line! +term-white+ "Wizard command: " 0 0)
  
  	       (let* ((ch (read-one-character))