[langband-cvs] CVS: langband/variants/contraband objects.lisp,1.2,1.3

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

Update of /cvsroot/langband/langband/variants/contraband
In directory sc8-pr-cvs1:/tmp/cvs-serv17065

Modified Files:
	objects.lisp 
Log Message:
addedf function for objdescs

Index: objects.lisp
===================================================================
RCS file: /cvsroot/langband/langband/variants/contraband/objects.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** objects.lisp	30 Jan 2003 14:26:47 -0000	1.2
--- objects.lisp	30 Jan 2003 18:22:33 -0000	1.3
***************
*** 43,44 ****
--- 43,62 ----
  ;;  (%output-kinds-to-file "dumps/obj.lisp")
    )
+ 
+ (defmethod write-obj-description ((variant contraband) (obj active-object) stream
+ 				  &key (store nil) (verbosity 1) (numeric-prefix t))
+ 
+   (declare (ignore verbosity))
+   (let* ((o-type (aobj.kind obj))
+ 	 (name (object.name obj))
+ 	 ;;(flavour (if store nil (object.flavour o-type)))
+ 	 (known-type (or store (is-object-known? obj)))
+ 	 (number (aobj.number obj))
+ 	 ;;(plural-string nil)
+ 	 )
+ 
+ 
+     (let ((str (plural-name number name nil known-type nil :numeric-prefix numeric-prefix)))
+       (write-string str stream))
+ 
+     ))