anchor.diff:  (defun vendor-get-value (obj percent modifier currency)
     "Returns the value of an OBJ, checking for buyability."
     (let ((cost (cost-of obj))
  -        (min-cost (if (eql currency 'qp) 1 100)))
  +        (min-cost (if (eql currency 'qp) 1 12)))
       ;; Adjust cost for wear and tear on a direct percentage basis
       (when (and (/= (damage-of obj) -1)
                  (/= (max-dam-of obj) -1)
  
positive.code: 
        (let ((cost (vendor-get-value obj
                                      (markdown-of shop)
                                      (cost-modifier-of ch self)
                                      (currency-of shop))))
          (perform-say-to self ch (format nil "I'll give you ~d ~a for it!"
                                          cost
  
negative.code: 
          (let ((cost (vendor-get-value obj
                                        (markdown-of shop)
                                        (- (cost-modifier-of ch self))
                                        (currency-of shop)))
                (amt-carried (if (eql (currency-of shop) 'gold) (gold-of self) (cash-of self))))
  
  